void CpInclude(void) { //=================== // Process INCLUDE statement. // INCLUDE 'file-name' char *lit; StmtExtension( SP_STRUCTURED_EXT ); if( RecLiteral() ) { lit = MkNodeStr( CITNode ); AdvanceITPtr(); if( ReqEOS() ) { Include( lit ); ComRead(); } FrNodeStr( lit ); } else { Error( SX_EXPECT_CHAR_CONST ); } }
static void NumOrLit( FCODE routine ) { //=============================================== if( RecNOpn() ) { AdvanceITPtr(); } if( RecNOpn() ) { GBreak( routine ); } else if( !RecLiteral() ) { if( CITNode->opn.ds == DSOPN_INT ) { if( CITNode->opnd_size > 5 ) { Extension( ST_LONG_NUM, StmtKeywords[ StmtProc ] ); } BreakOpn( routine ); } else { Error( SX_NUM_OR_LIT ); } } else { BreakOpn( routine ); } }