void OMFLibWalk( libfile io, char *name, void (*rtn)( arch_header *arch, libfile io ) )
/*************************************************************************************/
{
long pagelen;
long offset;
arch_header arch;
char buff[ MAX_IMPORT_STRING ];
int len;
unsigned_16 rec_len;
unsigned_8 type;
if( LibRead( io, &type, 1 ) != 1 )
return; // nyi - FALSE?
if( LibRead( io, &rec_len, 2 ) != 2 )
return;
offset = GET_LE_16( rec_len );
pagelen = offset + 3;
if( Options.page_size == 0 ) {
Options.page_size = pagelen;
}
LibSeek( io, offset, SEEK_CUR );
NewArchHeader( &arch, name );
offset = LibTell( io );
while( LibRead( io, &type, 1 ) == 1 && ( type == CMD_THEADR ) ) {
LibSeek( io, 2, SEEK_CUR );
if( LibRead( io, &type, 1 ) != 1 )
break;
len = type;
if( LibRead( io, buff, len ) != len )
break;
buff[ len ] = '\0';
arch.name = buff;
LibSeek( io, offset, SEEK_SET );
rtn( &arch, io );
offset = LibTell( io );
offset = ( offset + pagelen - 1 ) & ~( pagelen - 1 );
LibSeek( io, offset, SEEK_SET );
}
}
static void ProcessLibOrObj( char *name, objproc obj, void (*process)( arch_header *arch, libfile io ) )
{
libfile io;
unsigned char buff[ AR_IDENT_LEN ];
arch_header arch;
NewArchHeader( &arch, name );
io = LibOpen( name, LIBOPEN_READ );
if( LibRead( io, buff, sizeof( buff ) ) != sizeof( buff ) ) {
FatalError( ERR_CANT_READ, name, strerror( errno ) );
}
if( memcmp( buff, AR_IDENT, sizeof( buff ) ) == 0 ) {
// AR format
AddInputLib( io, name );
LibWalk( io, name, process );
if( Options.libtype == WL_LTYPE_NONE ) {
Options.libtype = WL_LTYPE_AR;
}
} else if( memcmp( buff, LIBMAG, LIBMAG_LEN ) == 0 ) {
// MLIB format
if( LibRead( io, buff, sizeof( buff ) ) != sizeof( buff ) ) {
FatalError( ERR_CANT_READ, name, strerror( errno ) );
}
if( memcmp( buff, LIB_CLASS_DATA_SHOULDBE, LIB_CLASS_LEN + LIB_DATA_LEN ) ) {
BadLibrary( name );
}
AddInputLib( io, name );
LibWalk( io, name, process );
if( Options.libtype == WL_LTYPE_NONE ) {
Options.libtype = WL_LTYPE_MLIB;
}
} else if( AddImport( &arch, io ) ) {
LibClose( io );
} else if( buff[ 0 ] == LIB_HEADER_REC && buff[ 1 ] != 0x01 ) {
/*
The buff[ 1 ] != 1 bit above is a bad hack to get around
the fact that the coff cpu_type for PPC object files is
0x1f0. Really, we should be reading in the first object
record and doing the checksum and seeing if it is actually
a LIB_HEADER_REC. All file format designers who are too
stupid to recognize the need for a signature should be
beaten up with large blunt objects.
*/
// OMF format
AddInputLib( io, name );
LibSeek( io, 0, SEEK_SET );
if( Options.libtype == WL_LTYPE_NONE ) {
Options.libtype = WL_LTYPE_OMF;
}
OMFLibWalk( io, name, process );
} else if( obj == OBJ_PROCESS ) {
// Object
LibSeek( io, 0, SEEK_SET );
AddObjectSymbols( &arch, io, 0 );
LibClose( io );
} else if( obj == OBJ_ERROR ) {
BadLibrary( name );
} else {
LibClose( io );
}
}
