コード例 #1
0
ファイル: cfrtil.c プロジェクト: dennisj001/openvmtil
void
_CfrTil_Run ( CfrTil * cfrTil, int32 restartCondition )
{
    while ( 1 )
    {
        OVT_MemListFree_Session ( ) ;
        cfrTil = _CfrTil_New ( cfrTil ) ;
        if ( cfrTil )
        {
            if ( ! sigsetjmp ( cfrTil->JmpBuf0, 0 ) )
            {
                System_RunInit ( _Context_->System0 ) ;
                _CfrTil_ReStart ( cfrTil, restartCondition ) ;
                // check if reset is ok ...
                if ( cfrTil && _Context_ && _Context_->System0 )
                {
                    DebugOff ;
                    CfrTil_C_Syntax_Off ( ) ;
                    Ovt_RunInit ( _Q_ ) ;
                    //if ( _Q_->Verbosity > 1 ) 
                    {
                        if ( _Q_->Verbosity ) System_Time ( cfrTil->Context0->System0, 0, ( char* ) "Startup", 1 ) ; //_Q_->StartedTimes == 1 ) ;
                        if ( _Q_->Verbosity ) _CfrTil_Version ( 0 ) ;
                    }
                    CfrTil_InterpreterRun ( ) ;
                }
            }
        }
    }
}
コード例 #2
0
ファイル: systems.c プロジェクト: 8l/openvmtil
void
CfrTil_Time ( )
{
    int32 timer = DataStack_Pop ( ) ;
    System_Time ( _Context_->System0, timer, ( char* ) "Timer", 1 ) ;
}