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();
}
