void ORLSkipObj( file_list *list, unsigned long *loc ) /****************************************************/ // skip the object file. // NYI: add an entry point in ORL for a more efficient way of doing this. { orl_file_handle filehdl; ORLFileSeek( list, *loc, SEEK_SET ); filehdl = InitFile(); // assumes that entire file is read! *loc = ORLFileSeek( list, 0, SEEK_CUR ); FiniFile( filehdl, list ); }
bool IsORL( file_list *list, unsigned long loc ) /**********************************************/ // return true if this is can be handled by ORL { orl_file_format type; bool isOK; isOK = true; ORLFileSeek( list, loc, SEEK_SET ); type = ORLFileIdentify( ORLHandle, list ); if( type == ORL_ELF ) { ObjFormat |= FMT_ELF; } else if( type == ORL_COFF ) { ObjFormat |= FMT_COFF; } else { isOK = false; } ClearCachedData( list ); return( isOK ); }
bool IsORL( file_list *list, wio_off_t loc ) /*************************************************/ // return TRUE if this is can be handled by ORL { orl_file_format type; bool isOK; isOK = TRUE; ORLFileSeek( list, loc, SEEK_SET ); type = ORLFileIdentify( ORLHandle, list ); if( type == ORL_ELF ) { ObjFormat |= FMT_ELF; } else if( type == ORL_COFF ) { ObjFormat |= FMT_COFF; } else { isOK = FALSE; } ClearCachedData( list ); return( isOK ); }