git.oblomov.eu Git - wine/blob - tools/winebuild/main.c

   1 /*
   2  * Main function
   3  *
   4  * Copyright 1993 Robert J. Amstadt
   5  * Copyright 1995 Martin von Loewis
   6  * Copyright 1995, 1996, 1997 Alexandre Julliard
   7  * Copyright 1997 Eric Youngdale
   8  * Copyright 1999 Ulrich Weigand
   9  *
  10  * This library is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU Lesser General Public
  12  * License as published by the Free Software Foundation; either
  13  * version 2.1 of the License, or (at your option) any later version.
  14  *
  15  * This library is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  * Lesser General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU Lesser General Public
  21  * License along with this library; if not, write to the Free Software
  22  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  23  */
  24
  25 #include "config.h"
  26 #include "wine/port.h"
  27
  28 #include <assert.h>
  29 #include <stdio.h>
  30 #include <signal.h>
  31 #include <errno.h>
  32 #include <string.h>
  33 #include <stdarg.h>
  34 #include <ctype.h>
  35 #ifdef HAVE_GETOPT_H
  36 # include <getopt.h>
  37 #endif
  38
  39 #include "windef.h"
  40 #include "winbase.h"
  41 #include "build.h"
  42
  43 int UsePIC = 0;
  44 int nb_lib_paths = 0;
  45 int nb_errors = 0;
  46 int display_warnings = 0;
  47 int kill_at = 0;
  48 int verbose = 0;
  49 int save_temps = 0;
  50
  51 #ifdef __i386__
  52 enum target_cpu target_cpu = CPU_x86;
  53 #elif defined(__x86_64__)
  54 enum target_cpu target_cpu = CPU_x86_64;
  55 #elif defined(__sparc__)
  56 enum target_cpu target_cpu = CPU_SPARC;
  57 #elif defined(__ALPHA__)
  58 enum target_cpu target_cpu = CPU_ALPHA;
  59 #elif defined(__powerpc__)
  60 enum target_cpu target_cpu = CPU_POWERPC;
  61 #else
  62 #error Unsupported CPU
  63 #endif
  64
  65 #ifdef __APPLE__
  66 enum target_platform target_platform = PLATFORM_APPLE;
  67 #elif defined(__svr4__)
  68 enum target_platform target_platform = PLATFORM_SVR4;
  69 #elif defined(_WINDOWS)
  70 enum target_platform target_platform = PLATFORM_WINDOWS;
  71 #else
  72 enum target_platform target_platform = PLATFORM_UNSPECIFIED;
  73 #endif
  74
  75 char **lib_path = NULL;
  76
  77 char *input_file_name = NULL;
  78 char *spec_file_name = NULL;
  79 const char *output_file_name = NULL;
  80 static const char *output_file_source_name;
  81
  82 char *as_command = NULL;
  83 char *ld_command = NULL;
  84 char *nm_command = NULL;
  85
  86 static FILE *output_file;
  87 static int nb_res_files;
  88 static char **res_files;
  89
  90 /* execution mode */
  91 enum exec_mode_values
  92 {
  93     MODE_NONE,
  94     MODE_DLL,
  95     MODE_EXE,
  96     MODE_DEF,
  97     MODE_RELAY16,
  98     MODE_RELAY32
  99 };
 100
 101 static enum exec_mode_values exec_mode = MODE_NONE;
 102
 103 static const struct
 104 {
 105     const char *name;
 106     enum target_cpu cpu;
 107 } cpu_names[] =
 108 {
 109     { "i386",    CPU_x86 },
 110     { "i486",    CPU_x86 },
 111     { "i586",    CPU_x86 },
 112     { "i686",    CPU_x86 },
 113     { "i786",    CPU_x86 },
 114     { "x86_64",  CPU_x86_64 },
 115     { "sparc",   CPU_SPARC },
 116     { "alpha",   CPU_ALPHA },
 117     { "powerpc", CPU_POWERPC }
 118 };
 119
 120 static const struct
 121 {
 122     const char *name;
 123     enum target_platform platform;
 124 } platform_names[] =
 125 {
 126     { "macos",   PLATFORM_APPLE },
 127     { "darwin",  PLATFORM_APPLE },
 128     { "sunos",   PLATFORM_SVR4 },
 129     { "windows", PLATFORM_WINDOWS },
 130     { "winnt",   PLATFORM_WINDOWS }
 131 };
 132
 133 /* set the dll file name from the input file name */
 134 static void set_dll_file_name( const char *name, DLLSPEC *spec )
 135 {
 136     char *p;
 137
 138     if (spec->file_name) return;
 139
 140     if ((p = strrchr( name, '\\' ))) name = p + 1;
 141     if ((p = strrchr( name, '/' ))) name = p + 1;
 142     spec->file_name = xmalloc( strlen(name) + 5 );
 143     strcpy( spec->file_name, name );
 144     if ((p = strrchr( spec->file_name, '.' )))
 145     {
 146         if (!strcmp( p, ".spec" ) || !strcmp( p, ".def" )) *p = 0;
 147     }
 148 }
 149
 150 /* set the dll subsystem */
 151 static void set_subsystem( const char *subsystem, DLLSPEC *spec )
 152 {
 153     char *major, *minor, *str = xstrdup( subsystem );
 154
 155     if ((major = strchr( str, ':' ))) *major++ = 0;
 156     if (!strcmp( str, "native" )) spec->subsystem = IMAGE_SUBSYSTEM_NATIVE;
 157     else if (!strcmp( str, "windows" )) spec->subsystem = IMAGE_SUBSYSTEM_WINDOWS_GUI;
 158     else if (!strcmp( str, "console" )) spec->subsystem = IMAGE_SUBSYSTEM_WINDOWS_CUI;
 159     else fatal_error( "Invalid subsystem name '%s'\n", subsystem );
 160     if (major)
 161     {
 162         if ((minor = strchr( major, '.' )))
 163         {
 164             *minor++ = 0;
 165             spec->subsystem_minor = atoi( minor );
 166         }
 167         spec->subsystem_major = atoi( major );
 168     }
 169     free( str );
 170 }
 171
 172 /* set the target CPU and platform */
 173 static void set_target( const char *target )
 174 {
 175     unsigned int i;
 176     char *p, *platform, *spec = xstrdup( target );
 177
 178     /* target specification is in the form CPU-MANUFACTURER-OS or CPU-MANUFACTURER-KERNEL-OS */
 179
 180     /* get the CPU part */
 181
 182     if (!(p = strchr( spec, '-' ))) fatal_error( "Invalid target specification '%s'\n", target );
 183     *p++ = 0;
 184     for (i = 0; i < sizeof(cpu_names)/sizeof(cpu_names[0]); i++)
 185     {
 186         if (!strcmp( cpu_names[i].name, spec )) break;
 187     }
 188     if (i < sizeof(cpu_names)/sizeof(cpu_names[0])) target_cpu = cpu_names[i].cpu;
 189     else fatal_error( "Unrecognized CPU '%s'\n", spec );
 190
 191     platform = p;
 192     if ((p = strrchr( p, '-' ))) platform = p + 1;
 193
 194     /* get the OS part */
 195
 196     target_platform = PLATFORM_UNSPECIFIED;  /* default value */
 197     for (i = 0; i < sizeof(platform_names)/sizeof(platform_names[0]); i++)
 198     {
 199         if (!strncmp( platform_names[i].name, platform, strlen(platform_names[i].name) ))
 200         {
 201             target_platform = platform_names[i].platform;
 202             break;
 203         }
 204     }
 205
 206     free( spec );
 207
 208     if (!as_command)
 209     {
 210         as_command = xmalloc( strlen(target) + sizeof("-as") );
 211         strcpy( as_command, target );
 212         strcat( as_command, "-as" );
 213     }
 214     if (!ld_command)
 215     {
 216         ld_command = xmalloc( strlen(target) + sizeof("-ld") );
 217         strcpy( ld_command, target );
 218         strcat( ld_command, "-ld" );
 219     }
 220     if (!nm_command)
 221     {
 222         nm_command = xmalloc( strlen(target) + sizeof("-nm") );
 223         strcpy( nm_command, target );
 224         strcat( nm_command, "-nm" );
 225     }
 226 }
 227
 228 /* cleanup on program exit */
 229 static void cleanup(void)
 230 {
 231     if (output_file_name) unlink( output_file_name );
 232 }
 233
 234 /* clean things up when aborting on a signal */
 235 static void exit_on_signal( int sig )
 236 {
 237     exit(1);  /* this will call atexit functions */
 238 }
 239
 240 /*******************************************************************
 241  *         command-line option handling
 242  */
 243 static const char usage_str[] =
 244 "Usage: winebuild [OPTIONS] [FILES]\n\n"
 245 "Options:\n"
 246 "       --as-cmd=AS          Command to use for assembling (default: as)\n"
 247 "   -d, --delay-lib=LIB      Import the specified library in delayed mode\n"
 248 "   -D SYM                   Ignored for C flags compatibility\n"
 249 "   -E, --export=FILE        Export the symbols defined in the .spec or .def file\n"
 250 "   -e, --entry=FUNC         Set the DLL entry point function (default: DllMain)\n"
 251 "   -f FLAGS                 Compiler flags (only -fPIC is supported)\n"
 252 "   -F, --filename=DLLFILE   Set the DLL filename (default: from input file name)\n"
 253 "   -h, --help               Display this help message\n"
 254 "   -H, --heap=SIZE          Set the heap size for a Win16 dll\n"
 255 "   -i, --ignore=SYM[,SYM]   Ignore specified symbols when resolving imports\n"
 256 "   -I DIR                   Ignored for C flags compatibility\n"
 257 "   -k, --kill-at            Kill stdcall decorations in generated .def files\n"
 258 "   -K, FLAGS                Compiler flags (only -KPIC is supported)\n"
 259 "       --ld-cmd=LD          Command to use for linking (default: ld)\n"
 260 "   -l, --library=LIB        Import the specified library\n"
 261 "   -L, --library-path=DIR   Look for imports libraries in DIR\n"
 262 "   -M, --main-module=MODULE Set the name of the main module for a Win16 dll\n"
 263 "       --nm-cmd=NM          Command to use to get undefined symbols (default: nm)\n"
 264 "   -N, --dll-name=DLLNAME   Set the DLL name (default: from input file name)\n"
 265 "   -o, --output=NAME        Set the output file name (default: stdout)\n"
 266 "   -r, --res=RSRC.RES       Load resources from RSRC.RES\n"
 267 "       --save-temps         Do not delete the generated intermediate files\n"
 268 "       --subsystem=SUBSYS   Set the subsystem (one of native, windows, console)\n"
 269 "       --target=TARGET      Specify target CPU and platform for cross-compiling\n"
 270 "   -u, --undefined=SYMBOL   Add an undefined reference to SYMBOL when linking\n"
 271 "   -v, --verbose            Display the programs invoked\n"
 272 "       --version            Print the version and exit\n"
 273 "   -w, --warnings           Turn on warnings\n"
 274 "\nMode options:\n"
 275 "       --dll                Build a .c file from a .spec or .def file\n"
 276 "       --def                Build a .def file from a .spec file\n"
 277 "       --exe                Build a .c file for an executable\n"
 278 "       --relay16            Build the 16-bit relay assembly routines\n"
 279 "       --relay32            Build the 32-bit relay assembly routines\n\n"
 280 "The mode options are mutually exclusive; you must specify one and only one.\n\n";
 281
 282 enum long_options_values
 283 {
 284     LONG_OPT_DLL = 1,
 285     LONG_OPT_DEF,
 286     LONG_OPT_EXE,
 287     LONG_OPT_ASCMD,
 288     LONG_OPT_LDCMD,
 289     LONG_OPT_NMCMD,
 290     LONG_OPT_RELAY16,
 291     LONG_OPT_RELAY32,
 292     LONG_OPT_SAVE_TEMPS,
 293     LONG_OPT_SUBSYSTEM,
 294     LONG_OPT_TARGET,
 295     LONG_OPT_VERSION
 296 };
 297
 298 static const char short_options[] = "C:D:E:F:H:I:K:L:M:N:d:e:f:hi:kl:m:o:r:u:vw";
 299
 300 static const struct option long_options[] =
 301 {
 302     { "dll",      0, 0, LONG_OPT_DLL },
 303     { "def",      0, 0, LONG_OPT_DEF },
 304     { "exe",      0, 0, LONG_OPT_EXE },
 305     { "as-cmd",   1, 0, LONG_OPT_ASCMD },
 306     { "ld-cmd",   1, 0, LONG_OPT_LDCMD },
 307     { "nm-cmd",   1, 0, LONG_OPT_NMCMD },
 308     { "relay16",  0, 0, LONG_OPT_RELAY16 },
 309     { "relay32",  0, 0, LONG_OPT_RELAY32 },
 310     { "save-temps",0, 0, LONG_OPT_SAVE_TEMPS },
 311     { "subsystem",1, 0, LONG_OPT_SUBSYSTEM },
 312     { "target",   1, 0, LONG_OPT_TARGET },
 313     { "version",  0, 0, LONG_OPT_VERSION },
 314     /* aliases for short options */
 315     { "delay-lib",     1, 0, 'd' },
 316     { "export",        1, 0, 'E' },
 317     { "entry",         1, 0, 'e' },
 318     { "filename",      1, 0, 'F' },
 319     { "help",          0, 0, 'h' },
 320     { "heap",          1, 0, 'H' },
 321     { "ignore",        1, 0, 'i' },
 322     { "kill-at",       0, 0, 'k' },
 323     { "library",       1, 0, 'l' },
 324     { "library-path",  1, 0, 'L' },
 325     { "main-module",   1, 0, 'M' },
 326     { "dll-name",      1, 0, 'N' },
 327     { "output",        1, 0, 'o' },
 328     { "res",           1, 0, 'r' },
 329     { "undefined",     1, 0, 'u' },
 330     { "verbose",       0, 0, 'v' },
 331     { "warnings",      0, 0, 'w' },
 332     { NULL,            0, 0, 0 }
 333 };
 334
 335 static void usage( int exit_code )
 336 {
 337     fprintf( stderr, "%s", usage_str );
 338     exit( exit_code );
 339 }
 340
 341 static void set_exec_mode( enum exec_mode_values mode )
 342 {
 343     if (exec_mode != MODE_NONE) usage(1);
 344     exec_mode = mode;
 345 }
 346
 347 /* parse options from the argv array and remove all the recognized ones */
 348 static char **parse_options( int argc, char **argv, DLLSPEC *spec )
 349 {
 350     char *p;
 351     int optc;
 352
 353     while ((optc = getopt_long( argc, argv, short_options, long_options, NULL )) != -1)
 354     {
 355         switch(optc)
 356         {
 357         case 'D':
 358             /* ignored */
 359             break;
 360         case 'E':
 361             spec_file_name = xstrdup( optarg );
 362             set_dll_file_name( optarg, spec );
 363             break;
 364         case 'F':
 365             spec->file_name = xstrdup( optarg );
 366             break;
 367         case 'H':
 368             if (!isdigit(optarg[0]))
 369                 fatal_error( "Expected number argument with -H option instead of '%s'\n", optarg );
 370             spec->heap_size = atoi(optarg);
 371             if (spec->heap_size > 65535)
 372                 fatal_error( "Invalid heap size %d, maximum is 65535\n", spec->heap_size );
 373             break;
 374         case 'I':
 375             /* ignored */
 376             break;
 377         case 'K':
 378             /* ignored, because cc generates correct code. */
 379             break;
 380         case 'L':
 381             lib_path = xrealloc( lib_path, (nb_lib_paths+1) * sizeof(*lib_path) );
 382             lib_path[nb_lib_paths++] = xstrdup( optarg );
 383             break;
 384         case 'M':
 385             spec->type = SPEC_WIN16;
 386             break;
 387         case 'N':
 388             spec->dll_name = xstrdup( optarg );
 389             break;
 390         case 'd':
 391             add_delayed_import( optarg );
 392             break;
 393         case 'e':
 394             spec->init_func = xstrdup( optarg );
 395             if ((p = strchr( spec->init_func, '@' ))) *p = 0;  /* kill stdcall decoration */
 396             break;
 397         case 'f':
 398             if (!strcmp( optarg, "PIC") || !strcmp( optarg, "pic")) UsePIC = 1;
 399             /* ignore all other flags */
 400             break;
 401         case 'h':
 402             usage(0);
 403             break;
 404         case 'i':
 405             {
 406                 char *str = xstrdup( optarg );
 407                 char *token = strtok( str, "," );
 408                 while (token)
 409                 {
 410                     add_ignore_symbol( token );
 411                     token = strtok( NULL, "," );
 412                 }
 413                 free( str );
 414             }
 415             break;
 416         case 'k':
 417             kill_at = 1;
 418             break;
 419         case 'l':
 420             add_import_dll( optarg, NULL );
 421             break;
 422         case 'o':
 423             {
 424                 char *ext = strrchr( optarg, '.' );
 425
 426                 if (unlink( optarg ) == -1 && errno != ENOENT)
 427                     fatal_error( "Unable to create output file '%s'\n", optarg );
 428                 if (ext && !strcmp( ext, ".o" ))
 429                 {
 430                     output_file_source_name = get_temp_file_name( optarg, ".s" );
 431                     if (!(output_file = fopen( output_file_source_name, "w" )))
 432                         fatal_error( "Unable to create output file '%s'\n", optarg );
 433                 }
 434                 else
 435                 {
 436                     if (!(output_file = fopen( optarg, "w" )))
 437                         fatal_error( "Unable to create output file '%s'\n", optarg );
 438                 }
 439                 output_file_name = xstrdup(optarg);
 440                 atexit( cleanup );  /* make sure we remove the output file on exit */
 441             }
 442             break;
 443         case 'r':
 444             res_files = xrealloc( res_files, (nb_res_files+1) * sizeof(*res_files) );
 445             res_files[nb_res_files++] = xstrdup( optarg );
 446             break;
 447         case 'u':
 448             add_extra_ld_symbol( optarg );
 449             break;
 450         case 'v':
 451             verbose++;
 452             break;
 453         case 'w':
 454             display_warnings = 1;
 455             break;
 456         case LONG_OPT_DLL:
 457             set_exec_mode( MODE_DLL );
 458             break;
 459         case LONG_OPT_DEF:
 460             set_exec_mode( MODE_DEF );
 461             break;
 462         case LONG_OPT_EXE:
 463             set_exec_mode( MODE_EXE );
 464             if (!spec->subsystem) spec->subsystem = IMAGE_SUBSYSTEM_WINDOWS_GUI;
 465             break;
 466         case LONG_OPT_ASCMD:
 467             as_command = xstrdup( optarg );
 468             break;
 469         case LONG_OPT_LDCMD:
 470             ld_command = xstrdup( optarg );
 471             break;
 472         case LONG_OPT_NMCMD:
 473             nm_command = xstrdup( optarg );
 474             break;
 475         case LONG_OPT_RELAY16:
 476             set_exec_mode( MODE_RELAY16 );
 477             break;
 478         case LONG_OPT_RELAY32:
 479             set_exec_mode( MODE_RELAY32 );
 480             break;
 481         case LONG_OPT_SAVE_TEMPS:
 482             save_temps = 1;
 483             break;
 484         case LONG_OPT_SUBSYSTEM:
 485             set_subsystem( optarg, spec );
 486             break;
 487         case LONG_OPT_TARGET:
 488             set_target( optarg );
 489             break;
 490         case LONG_OPT_VERSION:
 491             printf( "winebuild version " PACKAGE_VERSION "\n" );
 492             exit(0);
 493         case '?':
 494             usage(1);
 495             break;
 496         }
 497     }
 498
 499     if (spec->file_name && !strchr( spec->file_name, '.' ))
 500         strcat( spec->file_name, exec_mode == MODE_EXE ? ".exe" : ".dll" );
 501
 502     return &argv[optind];
 503 }
 504
 505
 506 /* load all specified resource files */
 507 static void load_resources( char *argv[], DLLSPEC *spec )
 508 {
 509     int i;
 510     char **ptr, **last;
 511
 512     switch (spec->type)
 513     {
 514     case SPEC_WIN16:
 515         for (i = 0; i < nb_res_files; i++) load_res16_file( res_files[i], spec );
 516         break;
 517
 518     case SPEC_WIN32:
 519         for (i = 0; i < nb_res_files; i++)
 520         {
 521             if (!load_res32_file( res_files[i], spec ))
 522                 fatal_error( "%s is not a valid Win32 resource file\n", res_files[i] );
 523         }
 524
 525         /* load any resource file found in the remaining arguments */
 526         for (ptr = last = argv; *ptr; ptr++)
 527         {
 528             if (!load_res32_file( *ptr, spec ))
 529                 *last++ = *ptr; /* not a resource file, keep it in the list */
 530         }
 531         *last = NULL;
 532         break;
 533     }
 534 }
 535
 536 /* add input files that look like import libs to the import list */
 537 static void load_import_libs( char *argv[] )
 538 {
 539     char **ptr, **last;
 540
 541     for (ptr = last = argv; *ptr; ptr++)
 542     {
 543         if (strendswith( *ptr, ".def" ))
 544             add_import_dll( NULL, *ptr );
 545         else
 546             *last++ = *ptr; /* not an import dll, keep it in the list */
 547     }
 548     *last = NULL;
 549 }
 550
 551 static int parse_input_file( DLLSPEC *spec )
 552 {
 553     FILE *input_file = open_input_file( NULL, spec_file_name );
 554     char *extension = strrchr( spec_file_name, '.' );
 555     int result;
 556
 557     if (extension && !strcmp( extension, ".def" ))
 558         result = parse_def_file( input_file, spec );
 559     else
 560         result = parse_spec_file( input_file, spec );
 561     close_input_file( input_file );
 562     return result;
 563 }
 564
 565
 566 /*******************************************************************
 567  *         main
 568  */
 569 int main(int argc, char **argv)
 570 {
 571     DLLSPEC *spec = alloc_dll_spec();
 572
 573 #ifdef SIGHUP
 574     signal( SIGHUP, exit_on_signal );
 575 #endif
 576     signal( SIGTERM, exit_on_signal );
 577     signal( SIGINT, exit_on_signal );
 578
 579     output_file = stdout;
 580     argv = parse_options( argc, argv, spec );
 581
 582     switch(exec_mode)
 583     {
 584     case MODE_DLL:
 585         spec->characteristics |= IMAGE_FILE_DLL;
 586         load_resources( argv, spec );
 587         load_import_libs( argv );
 588         if (!spec_file_name) fatal_error( "missing .spec file\n" );
 589         if (!parse_input_file( spec )) break;
 590         switch (spec->type)
 591         {
 592             case SPEC_WIN16:
 593                 if (argv[0])
 594                     fatal_error( "file argument '%s' not allowed in this mode\n", argv[0] );
 595                 BuildSpec16File( output_file, spec );
 596                 break;
 597             case SPEC_WIN32:
 598                 read_undef_symbols( spec, argv );
 599                 BuildSpec32File( output_file, spec );
 600                 break;
 601             default: assert(0);
 602         }
 603         break;
 604     case MODE_EXE:
 605         if (spec->type == SPEC_WIN16) fatal_error( "Cannot build 16-bit exe files\n" );
 606         if (!spec->file_name) fatal_error( "executable must be named via the -F option\n" );
 607         load_resources( argv, spec );
 608         load_import_libs( argv );
 609         if (spec_file_name && !parse_input_file( spec )) break;
 610         read_undef_symbols( spec, argv );
 611         BuildSpec32File( output_file, spec );
 612         break;
 613     case MODE_DEF:
 614         if (argv[0]) fatal_error( "file argument '%s' not allowed in this mode\n", argv[0] );
 615         if (spec->type == SPEC_WIN16) fatal_error( "Cannot yet build .def file for 16-bit dlls\n" );
 616         if (!spec_file_name) fatal_error( "missing .spec file\n" );
 617         if (!parse_input_file( spec )) break;
 618         BuildDef32File( output_file, spec );
 619         break;
 620     case MODE_RELAY16:
 621         if (argv[0]) fatal_error( "file argument '%s' not allowed in this mode\n", argv[0] );
 622         BuildRelays16( output_file );
 623         break;
 624     case MODE_RELAY32:
 625         if (argv[0]) fatal_error( "file argument '%s' not allowed in this mode\n", argv[0] );
 626         BuildRelays32( output_file );
 627         break;
 628     default:
 629         usage(1);
 630         break;
 631     }
 632     if (nb_errors) exit(1);
 633     if (output_file_name)
 634     {
 635         fclose( output_file );
 636         if (output_file_source_name) assemble_file( output_file_source_name, output_file_name );
 637         output_file_name = NULL;
 638     }
 639     return 0;
 640 }