Error rntRun(void)
{
Error rval = ERR_None;
enableTrace();
do
{
rval = executeNextInstr();
} while(rval == ERR_None);
// The only thing that can interrupt a running program is a breakpoint.
// Or the "error" ERR_EndOfProgram. Other values are REAL errors.
if(rval != ERR_Breakpoint)
{
displayError(rval);
}
else
{
consoleOut("==> A breakpoint has been hit!\n");
}
displayTrace();
disableTrace();
rntDisplayStatus();
return rval; // forward return value
}
__fastcall TMinosControlForm::TMinosControlForm( TComponent* Owner )
: TForm( Owner ), connected( false ), controlLineEventThread( 0 )
{
disableInterrupts::initialise();
enableTrace( ".\\TraceLog\\MinosControl_" );
LineSet *ls = LineSet::GetLineSet();
ls->lsLog = LineLog;
}
//---------------------------------------------------------------------------
__fastcall TKeyControlForm::TKeyControlForm( TComponent* Owner )
: TForm( Owner ), saveResize( false )
{
enableTrace( ".\\TraceLog\\MinosKeyer" );
SetPriorityClass( GetCurrentProcess(), ABOVE_NORMAL_PRIORITY_CLASS ); // Win2K and Above only!
std::vector<boost::shared_ptr<VKMixer> > mixers = VKMixer::getMixers( Handle ); // initialisae the VKMixer system
OutputMixerComboBox->Enabled = !LockMixersCB->Checked;
populateMixerList();
loadKeyers();
setLineCallBack( lcallback );
setVUCallBack( recvolcallback, outvolcallback );
TMessage Message;
MMMixControlChange( Message );
}
//---------------------------------------------------------------------------
__fastcall TQRigSyncMain::TQRigSyncMain(TComponent* Owner)
: TForm(Owner), muted(false)
{
enableTrace( ".\\TraceLog\\QS1RProxy_" );
try
{
int args = 0;
ic = Ice::initialize(args, _argv);
Ice::ObjectPrx base = ic->stringToProxy(
"RadioCommander:default -t 2000 -h opti -p 43065");
qs1r = QS1R::RadioCommanderPrx::checkedCast(base);
if (!qs1r)
throw "Invalid proxy";
Timer1->Enabled = true;
}
catch (const Ice::Exception& ex)
{
ShowMessage(ex.what());
}
catch (const char* msg)
{
ShowMessage(msg);
}
}
//---------------------------------------------------------------------------
__fastcall TRigCtlMain::TRigCtlMain( TComponent* Owner )
: TForm( Owner ), my_rig( 0 )
{
enableTrace( ".\\TraceLog\\MinosRigCtl_" );
}
//---------------------------------------------------------------------------
__fastcall TMinosChatForm::TMinosChatForm( TComponent* Owner )
: TForm( Owner ), subscribed( false ), saveResize( false )
{
enableTrace( ".\\TraceLog\\MinosChat_" );
}
