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_" ); }