static int CompLink( void )
/***************************/
{
int rc;
char *p;
char *file;
char *path;
list *itm;
char errors_found;
tool_type utl;
int i;
if( Flags.be_quiet ) {
Fputnl( "option quiet", Fp );
}
fputs( DebugOptions[DebugFlag], Fp );
if( StackSize != NULL ) {
fputs( "option stack=", Fp );
Fputnl( StackSize, Fp );
}
if( Flags.link_for_sys ) {
fputs( "system ", Fp );
Fputnl( SystemName, Fp );
} else if( Flags.is32bit ) {
#if defined(__OS2__)
Fputnl( "system os2v2", Fp );
#elif defined(__NT__)
Fputnl( "system nt", Fp );
#elif defined(__LINUX__)
Fputnl( "system linux", Fp );
if( !Flags.strip_all )
Fputnl( "option exportall", Fp );
#else
Fputnl( "system dos4g", Fp );
#endif
} else {
if( Flags.windows ) { /* 15-mar-90 */
Fputnl( "system windows", Fp );
} else if( Flags.tiny_model ) {
Fputnl( "system com", Fp );
} else {
#if defined(__OS2__)
Fputnl( "system os2", Fp );
#else
Fputnl( "system dos", Fp );
#endif
}
}
for( itm = Directive_List; itm != NULL; itm = itm->next ) {
Fputnl( itm->item, Fp );
}
Word = MemAlloc( MAX_CMD );
errors_found = 0;
for( itm = Files_List; itm != NULL; itm = itm->next ) {
strcpy( Word, itm->item );
utl = SrcName( Word ); /* if no extension, assume .c */
file = GetName( Word ); /* get first matching filename */
path = MakePath( Word ); /* isolate path portion of filespec */
while( file != NULL ) { /* while more filenames: */
strcpy( Word, path );
strcat( Word, file );
if( !FileExtension( Word, OBJ_EXT ) && // if not .obj or .o, compile
!FileExtension( Word, OBJ_EXT_SECONDARY ) ) {
rc = tool_exec( utl, Word, CC_Opts );
if( rc != 0 ) {
errors_found = 1;
}
p = strrchr( file, '.' );
if( p != NULL ) {
*p = '\0';
}
strcpy( Word, file );
}
AddName( Word, Fp );
if( Obj_List != NULL && Flags.do_disas ) {
char *sfile;
char *ofile;
ofile = MemAlloc( strlen( file ) + 6 );
strcpy( ofile, file );
if( Exe_Name[0] != '\0' ) { /* have "-S -o output.name" */
sfile = Exe_Name;
} else {
if( FileExtension( Word, OBJ_EXT ) ||
FileExtension( Word, OBJ_EXT_SECONDARY ) ) {
p = strrchr( file, '.' );
if( p != NULL ) {
*p = '\0';
}
strcpy( Word, file );
} else { /* wdis needs extension */
strcat( ofile, Obj_Name );
}
sfile = Word;
strcat( Word, ".s" );
}
memmove( sfile + 3, sfile, strlen( sfile ) + 1 );
sfile[0] = '-';
sfile[1] = 'l';
sfile[2] = '=';
rc = tool_exec( TYPE_DIS, ofile, sfile );
MemFree( ofile );
}
if( Exe_Name[0] == '\0' ) {
#ifdef __UNIX__
strcpy( Exe_Name, OUTPUTFILE );
Flags.keep_exename = 1;
#else
p = strrchr( Word, '.' );
if( p != NULL ) {
*p = '\0';
}
strcpy( Exe_Name, Word );
#endif
}
#ifdef __UNIX__
MemFree( file );
#endif
file = GetName( NULL ); /* get next filename */
}
MemFree( path );
}
if( errors_found ) {
rc = 1;
} else {
rc = 0;
BuildLinkFile();
if(( Obj_List != NULL || Flags.do_link ) && Flags.no_link == FALSE ) {
rc = tool_exec( TYPE_LINK, "@" TEMPFILE, NULL );
if( rc == 0 && Flags.do_cvpack ) {
rc = tool_exec( TYPE_PACK, Exe_Name, NULL );
}
if( rc != 0 ) {
rc = 2; /* return 2 to show Temp_File already closed */
}
}
}
if( Word != NULL ) {
MemFree( Word );
Word = NULL;
}
for( i = 0; i < TYPE_MAX; ++i ) {
if( tools[i].path != NULL ) {
MemFree( tools[i].path );
tools[i].path = NULL;
}
}
return( rc );
}
static int CompLink( void ) {
//================================
int rc;
const char *file;
bool comp_err;
PGROUP pg;
int i;
list *currobj;
list *nextobj;
if( Flags.quiet ) {
Fputnl( "option quiet", Fp );
}
fputs( DebugOptions[ DebugFlag ], Fp );
if( Flags.link_for_sys ) {
fputs( "system ", Fp );
Fputnl( SystemName, Fp );
} else {
#if defined( __QNX__ )
Fputnl( "system qnx", Fp );
#elif defined( __LINUX__ )
Fputnl( "system linux", Fp );
#elif _CPU == 386
#if defined( __OS2__ )
Fputnl( "system os2v2", Fp );
#elif defined( __NT__ )
Fputnl( "system nt", Fp );
#else
Fputnl( "system dos4g", Fp );
#endif
#elif _CPU == 8086
if( Flags.windows ) {
Fputnl( "system windows", Fp );
} else if( Flags.link_for_dos ) {
Fputnl( "system dos", Fp );
} else if( Flags.link_for_os2 ) {
Fputnl( "system os2", Fp );
} else {
#if defined( __OS2__ )
Fputnl( "system os2", Fp );
#else
Fputnl( "system dos", Fp );
#endif
}
#elif _CPU == _AXP
Fputnl( "system ntaxp", Fp );
#else
#error Unknown System
#endif
}
comp_err = false;
ObjList = NULL;
for( currobj = FileList; currobj != NULL; currobj = nextobj ) {
strcpy( Word, currobj->filename );
MakeName( Word, ".for" ); // if no extension, assume ".for"
file = DoWildCard( Word );
while( file != NULL ) { // while more filenames:
strcpy( Word, file );
#ifndef __UNIX__
strlwr( Word );
#endif
_splitpath2( Word, pg.buffer, &pg.drive, &pg.dir, &pg.fname, &pg.ext );
if( strcmp( pg.ext, OBJ_EXT ) != 0 ) { // if not object, compile
rc = tool_exec( TYPE_FOR, Word, CmpOpts );
if( rc != 0 ) {
comp_err = true;
if( ( rc == -1 ) || ( rc == 255 ) ) {
rc = 1;
break;
}
}
}
_makepath( Word, NULL, NULL, pg.fname, NULL );
if( ExeName[0] == '\0' ) {
fputs( "name '", Fp );
fputs( Word, Fp );
Fputnl( "'", Fp );
strcpy( ExeName, Word );
}
_makepath( Word, NULL, NULL, pg.fname, OBJ_EXT );
AddName( Word, Fp ); // add obj filename
file = DoWildCard( NULL ); // get next filename
}
DoWildCardClose();
nextobj = currobj->next;
free( currobj->filename );
free( currobj );
}
for( currobj = LibList; currobj != NULL; currobj = nextobj ) {
fputs( "library ", Fp );
Fputnl( currobj->filename, Fp );
nextobj = currobj->next;
free( currobj->filename );
free( currobj );
}
fclose( Fp ); // close TempFile
if( comp_err ) {
rc = 1;
} else {
rc = 0;
if( ( ObjList != NULL ) && !Flags.no_link ) {
rc = tool_exec( TYPE_LINK, "@" TEMPFILE, NULL );
if( rc == 0 && Flags.do_cvpack ) {
rc = tool_exec( TYPE_PACK, ExeName, NULL );
}
if( rc != 0 ) {
rc = 2; // return 2 to show Temp_File already closed
}
}
}
for( currobj = ObjList; currobj != NULL; currobj = nextobj ) {
nextobj = currobj->next;
free( currobj->filename );
free( currobj );
}
for( i = 0; i < TYPE_MAX; ++i ) {
if( tools[i].path != NULL ) {
free( tools[i].path );
tools[i].path = NULL;
}
}
return( rc );
}
static int CompLink( void )
/***************************/
{
int rc;
char *p;
char *file;
char *path;
list *itm;
char errors_found;
void *tmp_env;
tool_type utl;
int i;
if( Flags.be_quiet ) {
Fputnl( "option quiet", Fp );
}
fputs( DebugOptions[DebugFlag], Fp );
if( StackSize != NULL ) {
fputs( "option stack=", Fp );
Fputnl( StackSize, Fp );
}
if( Flags.link_for_sys ) { /* 10-jun-91 */
fputs( "system ", Fp );
Fputnl( SystemName, Fp );
} else {
#if defined( WCLAXP )
Fputnl( "system ntaxp", Fp );
#elif defined( WCLPPC )
#if defined( __LINUX__ )
Fputnl( "system linuxppc", Fp );
#else
Fputnl( "system ntppc", Fp );
#endif
#elif defined( WCLMPS )
Fputnl( "system linuxmips", Fp );
#elif defined( WCL386 )
#if defined( __OS2__ )
Fputnl( "system os2v2", Fp ); /* 04-feb-92 */
#elif defined( __NT__ )
Fputnl( "system nt", Fp );
#elif defined( __LINUX__ )
Fputnl( "system linux", Fp );
#else
Fputnl( "system dos4g", Fp );
#endif
#else
if( Flags.windows ) { /* 15-mar-90 */
Fputnl( "system windows", Fp );
} else if( Flags.tiny_model ) {
Fputnl( "system com", Fp );
} else if( Flags.link_for_dos ) {
Fputnl( "system dos", Fp );
} else if( Flags.link_for_os2 ) {
Fputnl( "system os2", Fp );
} else {
#if defined( __OS2__ )
Fputnl( "system os2", Fp );
#else
Fputnl( "system dos", Fp );
#endif
}
#endif
}
/* pass given resources to linker */
for( itm = Res_List; itm != NULL; itm = itm->next ) {
fputs( "option resource=", Fp );
FputnlQuoted( itm->item, Fp );
}
/* pass given directives to linker */
for( itm = Directive_List; itm != NULL; itm = itm->next ) {
Fputnl( itm->item, Fp );
}
tmp_env = NULL;
if( via_environment && strlen( CC_Opts ) >= 20 ) // 20 to allow wclxxxxx=y
tmp_env = makeTmpEnv( CC_Opts );
errors_found = 0;
for( itm = Files_List; itm != NULL; itm = itm->next ) {
strcpy( Word, itm->item );
utl = SrcName( Word ); /* if no extension, assume .c */
file = GetName( Word ); /* get first matching filename */
path = MakePath( Word ); /* isolate path portion of filespec */
while( file != NULL ) { /* while more filenames: */
strcpy( Word, path );
strcat( Word, file );
if( !FileExtension( Word, OBJ_EXT ) && /* if not .obj or .o, compile */
!FileExtension( Word, OBJ_EXT_SECONDARY ) ) {
rc = tool_exec( utl, Word, CC_Opts );
if( rc != 0 ) {
errors_found = 1;
}
p = strrchr( file, '.' );
if( p != NULL )
*p = '\0';
strcpy( Word, file );
}
AddName( Word, Fp );
if( Exe_Name[0] == '\0' ) {
p = strrchr( Word, '.' );
if( p != NULL )
*p = '\0';
strcpy( Exe_Name, Word );
}
#ifdef __UNIX__
MemFree( file );
#endif
file = GetName( NULL ); /* get next filename */
}
MemFree( path );
}
if( tmp_env != NULL )
killTmpEnv( tmp_env );
if( errors_found ) {
rc = 1;
} else {
rc = 0;
BuildLinkFile();
if(( Obj_List != NULL || Flags.do_link ) && Flags.no_link == FALSE ) {
rc = tool_exec( TYPE_LINK, "@" TEMPFILE, NULL );
if( rc == 0 && Flags.do_cvpack ) {
rc = tool_exec( TYPE_PACK, Exe_Name, NULL );
}
if( rc != 0 ) {
rc = 2; /* return 2 to show Temp_File already closed */
}
}
}
for( i = 0; i < TYPE_MAX; ++i ) {
if( tools[i].path != NULL ) {
MemFree( tools[i].path );
tools[i].path = NULL;
}
}
return( rc );
}
