static uint SrcRead( void ) { //=============================== uint len; file_handle fp; char msg[81]; fp = CurrFile->fileptr; if( CurrFile->flags & INC_LIB_MEMBER ) { len = LibRead( fp ); if( LibEof( fp ) ) { ProgSw |= PS_INC_EOF; } else if( LibError( fp, msg ) ) { InfoError( SM_IO_READ_ERR, CurrFile->name, msg ); ProgSw |= PS_INC_EOF; } } else { len = SDRead( fp, SrcBuff, SRCLEN ); if( SDEof( fp ) ) { ProgSw |= PS_INC_EOF; } else if( SDError( fp, msg ) ) { InfoError( SM_IO_READ_ERR, CurrFile->name, msg ); ProgSw |= PS_INC_EOF; } } return( len ); }
bool LibError( lib_handle lp, char *buff ) { //============================================= // Check for error on library read (source only). return( SDError( lp, buff ) ); }
static void chkIOErr( file_handle fp, int error, char *filename ) { /******************************************************************/ char err_msg[ERR_BUFF_SIZE+1]; if( SDError( fp, err_msg ) ) { Error( error, filename, err_msg ); CSuicide(); } }
static void ChkIOErr( file_handle fp, int error ) { //===================================================== // Check for i/o errors to page file. char err_msg[ERR_BUFF_SIZE+1]; if( SDError( fp, err_msg ) ) { Error( error, PageFileName, err_msg ); } }
void mywrite( FILE *fp, void *data, size_t len ) { /*************************************************/ char err_msg[ERR_BUFF_SIZE+1]; SDWrite( fp, data, len ); if( SDError( fp, err_msg ) ) { Error( SM_IO_WRITE_ERR, fName, err_msg ); CSuicide(); } }
void Include( char *inc_name ) { //================================= file_handle fp; char bld_name[MAX_FILE+1]; char err_msg[ERR_BUFF_SIZE+1]; SDInitAttr(); CopyMaxStr( inc_name, bld_name, MAX_FILE ); MakeName( bld_name, SDSrcExtn( bld_name ), bld_name ); if( AlreadyOpen( inc_name ) ) return; if( AlreadyOpen( bld_name ) ) return; // try file called <include_name>.FOR. fp = SDOpen( bld_name, READ_FILE ); if( fp != NULL ) { SrcInclude( bld_name ); CurrFile->fileptr = fp; } else { // get error message before next i/o SDError( NULL, err_msg ); // try library fp = IncSearch( inc_name ); if( fp != NULL ) { // SrcInclude( inc_name ) now done in LIBSUPP CurrFile->fileptr = fp; CurrFile->flags |= INC_LIB_MEMBER; } else { // could not open include file InfoError( SM_OPENING_FILE, bld_name, err_msg ); } } // clear RetCode so that we don't get "file not found" returned // because we could not open include file RetCode = _SUCCESSFUL; AddDependencyInfo( CurrFile ); }
void OpenSrc( void ) { //======================= file_handle fp; char err_msg[ERR_BUFF_SIZE+1]; char bld_name[MAX_FILE+1]; bool erase_err; erase_err = ErrFile == NULL; SDInitAttr(); MakeName( SrcName, SrcExtn, bld_name ); fp = SDOpen( bld_name, READ_FILE ); if( fp != NULL ) { SrcInclude( bld_name ); CurrFile->fileptr = fp; } else { SDError( NULL, err_msg ); InfoError( SM_OPENING_FILE, bld_name, err_msg ); } if( erase_err ) { CloseErr(); Erase( ErrExtn ); } }