void CLE( void ) { time_t start; InitPurge(); OpenSrc(); if( CurrFile != NULL ) { StartCompile(); start = time( NULL ); Compile(); CompTime = difftime( time( NULL ), start ); FiniCompile(); Conclusion(); } else { // Consider: wfc /who what CloseErr(); } }
void Compile( char *buffer ) { //=============================== InitCompile(); if( ProcCmd( buffer ) != FALSE ) { // initialize permanent i/o buffers after memory has been // initialized InitMemIO(); CLE(); if( ( NumErrors != 0 ) && ( RetCode == _SUCCESSFUL ) ) { RetCode = _SYSRETCOD( NumErrors ); } } else { ShowUsage(); if( RetCode == _REQSYNTAX ) { // A specific request for syntax (WATFOR77 ?) should return 0. RetCode = _SUCCESSFUL; } } FiniComIO(); FiniProcCmd(); FiniCompile(); }