static void SetupImpLib( void )
/*****************************/
{
const char *fname;
size_t namelen;
ImpLib.bufsize = 0;
ImpLib.handle = NIL_FHANDLE;
ImpLib.buffer = NULL;
ImpLib.dllname = NULL;
ImpLib.didone = false;
if( FmtData.make_implib ) {
_ChkAlloc( ImpLib.buffer, IMPLIB_BUFSIZE );
if( FmtData.make_impfile ) {
ImpLib.fname = ChkStrDup( FmtData.implibname );
ImpLib.handle = QOpenRW( ImpLib.fname );
} else {
ImpLib.handle = OpenTempFile( &ImpLib.fname );
}
/* GetBaseName results in the filename only *
* it trims both the path, and the extension */
fname = GetBaseName( Root->outfile->fname, 0, &namelen );
ImpLib.dlllen = namelen;
/*
* increase length to restore full extension if not OS2
* sometimes the extension of the output name is important
*/
ImpLib.dlllen += strlen( fname + namelen );
_ChkAlloc( ImpLib.dllname, ImpLib.dlllen );
memcpy( ImpLib.dllname, fname, ImpLib.dlllen );
}
}
static void DoPass1( mod_entry *next, file_list *list )
/*****************************************************/
/* do pass 1 on the object file */
{
member_list *member;
char *membname;
unsigned long loc;
unsigned long size;
unsigned reclength;
bool lastmod;
bool ignoreobj;
loc = 0;
lastmod = FALSE;
if( CacheOpen( list ) ) {
reclength = CheckLibraryType( list, &loc, FALSE );
for( ;; ) { /* there may be more than 1 object module in a file */
member = NULL;
ignoreobj = FALSE;
if( EndOfLib( list, loc ) )
break;
membname = IdentifyObject( list, &loc, &size );
if( list->status & STAT_IS_LIB ) {
if( (list->status & STAT_HAS_MEMBER) && list->u.member != NULL ) {
member = FindMember( list, membname );
if( member == NULL ) {
ignoreobj = TRUE;
} else if( list->u.member == NULL ) {
lastmod = TRUE;
}
}
}
if( ignoreobj ) {
_LnkFree( membname );
if( size != 0 ) {
loc += size;
} else {
SkipFile( list, &loc );
}
} else {
if( next == NULL ) {
next = NewModEntry();
}
next->n.next_mod = NULL;
next->f.source = list;
next->modtime = next->f.source->file->modtime;
next->modinfo |= ObjFormat & FMT_OBJ_FMT_MASK;
if( member != NULL ) {
next->modinfo |= member->flags;
_LnkFree( member );
}
if( !(list->status & STAT_HAS_MEMBER) ) {
next->modinfo |= list->status & DBI_MASK;
if( list->status & STAT_LAST_SEG ) {
next->modinfo |= MOD_LAST_SEG;
}
}
AddToModList( next );
next->location = loc;
if( membname == NULL ) {
membname = ChkStrDup( list->file->name );
}
next->name = membname;
loc = ObjPass1();
if( list->status & STAT_TRACE_SYMS ) {
TraceSymList( CurrMod->publist );
}
next = NULL;
}
ObjFormat = 0;
if( list->status & STAT_IS_LIB ) { // skip padding.
loc += CalcAlign( loc, reclength );
} else if( !IS_FMT_OMF( CurrMod->modinfo ) ) {
break; // can only concat omf.
}
if( lastmod || CacheEnd( list, loc ) ) {
break;
}
}
if( list->u.member != NULL ) {
LnkMsg( ERR+MSG_CANT_FIND_MEMBER, "12", list->file->name,
list->u.member->name );
}
CacheClose( list, 1 );
}
CheckStop();
}
void DoCmdFile( char *fname )
/**********************************/
/* start parsing the command */
{
exe_format possible;
f_handle file;
size_t namelen;
file_defext extension;
char *namelnk;
ResetCmdFile();
if( fname == NULL || *fname == '\0' ) {
_ChkAlloc( fname, (10*1024) ); // arbitrarily large buffer that won't
GetCmdLine( fname ); // be overflowed
NewCommandSource( NULL, fname, COMMANDLINE );
} else {
NewCommandSource( NULL, fname, ENVIRONMENT );
}
if( IsStdOutConsole() ) {
CmdFlags |= CF_TO_STDOUT;
}
while( *fname == ' ' ) {
fname++;
}
if( QSysHelp( &Token.next ) ) {
Help();
}
if( *fname == '?' ) {
Token.next = fname + 1; // skip question mark.
Help();
#if defined( __UNIX__ )
} else if( *fname == '-' ) {
#else
} else if( *fname == '-' || *fname == '/' ) {
#endif
if( *(fname + 1) == '?' ) {
Token.next = fname + 2; // skip /?
Help();
}
}
if( *fname == '\0' ) { // go into interactive mode.
Token.how = INTERACTIVE;
Token.where = ENDOFLINE;
LnkMsg( INF+MSG_PRESS_CTRL_Z, NULL );
}
namelnk = GetEnvString( INIT_FILE_ENV );
file = ( namelnk != NULL ) ? FindPath( namelnk ) : NIL_FHANDLE;
if( file == NIL_FHANDLE ) {
namelnk = INIT_FILE_NAME;
file = FindPath( namelnk );
}
if( file != NIL_FHANDLE ) {
fname = ChkStrDup( namelnk );
SetCommandFile( file, fname );
}
if( Spawn( DoCmdParse ) ) {
Ignite();
Suicide();
}
GetExtraCommands();
if( !(LinkState & FMT_DECIDED) ) {
/* restrict set to automatically decided ones */
#if defined( __QNX__ )
#define LAST_CHANCE ( MK_OS2_LX | MK_OS2_LE | MK_OS2_NE | MK_QNX )
#elif defined( __LINUX__ )
#define LAST_CHANCE ( MK_OS2_LX | MK_OS2_LE | MK_OS2_NE | MK_ELF )
#elif defined( __NT__ )
#define LAST_CHANCE ( MK_OS2_LX | MK_OS2_NE | MK_WINDOWS | MK_PE | MK_DOS_EXE | MK_WIN_VXD )
#else
#define LAST_CHANCE ( MK_OS2_LX | MK_OS2_LE | MK_OS2_NE | MK_DOS_EXE | MK_PHAR_SIMPLE )
#endif
HintFormat( LAST_CHANCE );
} else {
/* restrict to a unique type */
for( possible = 1; possible != 0; possible *= 2 ) {
if( FmtData.type & possible ) {
FmtData.type = possible;
break;
}
}
}
if( (FmtData.type & (MK_NOVELL | MK_DOS)) && (LinkFlags & INC_LINK_FLAG) ) {
LnkMsg( FTL+MSG_FORMAT_BAD_OPTION, "s", "incremental" );
}
#ifdef _NOVELL
if( FmtData.type & MK_NOVELL ) {
CmdNovFini();
} else
#endif
if( FmtData.type & MK_OVERLAYS ) {
CmdOvlFini();
AddObjLib( "wovl.lib", LIB_PRIORITY_MIN ); // add a reference to wovl.lib
}
if( Name == NULL || !(CmdFlags & CF_HAVE_FILES) ) {
Ignite();
LnkMsg( FTL+MSG_NO_FILES_FOUND, NULL );
}
namelen = strlen( Name );
if( MapFlags & MAP_FLAG ) {
if( MapFName == NULL ) {
MapFName = FileName( Name, namelen, E_MAP, TRUE );
}
} else {
MapFlags = 0; // if main isn't set, don't set anything.
}
if( SymFileName == NULL && ( (CmdFlags & CF_SEPARATE_SYM) ||
(LinkFlags & OLD_DBI_FLAG) && (FmtData.type & MK_COM) ) ) {
SymFileName = FileName( Name, namelen, E_SYM, TRUE );
}
if( FmtData.make_implib && FmtData.implibname == NULL ) {
if( FmtData.make_impfile ) {
extension = E_LBC;
} else {
extension = E_LIBRARY;
}
FmtData.implibname = FileName( Name, namelen, extension, TRUE );
}
CheckTraces();
BurnUtils();
PruneSystemList();
NumberSections();
DBIInit();
}
