void _ShellEscape ( char * str ) { int returned = system ( str ) ; if ( _Q_->Verbosity > 1 ) Printf ( c_dd ( "\nCfrTil : system ( \"%s\" ) returned %d.\n" ), str, returned ) ; D0 ( CfrTil_PrintDataStack ( ) ) ; Interpreter_SetState ( _Context_->Interpreter0, DONE, true ) ; // }
void ilinrec ( block ifBlock, block thenBlock, block else1Block, block else2Block ) { _Block_Eval ( ifBlock ) ; if ( _DataStack_Pop ( ) ) { _Block_Eval ( thenBlock ) ; } else { _Block_Eval ( else1Block ) ; D0 ( CfrTil_PrintDataStack ( ) ) ; ilinrec ( ifBlock, thenBlock, else1Block, else2Block ) ; _Block_Eval ( else2Block ) ; } }