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