| ... |
... |
@@ -22,7 +22,7 @@ |
|
22
|
22
|
#include <ctype.h>
|
|
23
|
23
|
|
|
24
|
24
|
#define PROGRAM_NAME "apinames"
|
|
25
|
|
-#define PROGRAM_VERSION "0.3"
|
|
|
25
|
+#define PROGRAM_VERSION "0.4"
|
|
26
|
26
|
|
|
27
|
27
|
#define LINEBUFF_SIZE 1024
|
|
28
|
28
|
|
| ... |
... |
@@ -33,6 +33,7 @@ typedef enum OutputFormat_ |
|
33
|
33
|
OUTPUT_WINDOWS_DEF, /* output a Windows .DEF file for Visual C++ or Mingw */
|
|
34
|
34
|
OUTPUT_BORLAND_DEF, /* output a Windows .DEF file for Borland C++ */
|
|
35
|
35
|
OUTPUT_WATCOM_LBC, /* output a Watcom Linker Command File */
|
|
|
36
|
+ OUTPUT_VMS_OPT, /* output an OpenVMS Linker Option File */
|
|
36
|
37
|
OUTPUT_NETWARE_IMP, /* output a NetWare ImportFile */
|
|
37
|
38
|
OUTPUT_GNU_VERMAP /* output a version map for GNU or Solaris linker */
|
|
38
|
39
|
|
| ... |
... |
@@ -200,6 +201,16 @@ names_dump( FILE* out, |
|
200
|
201
|
|
|
201
|
202
|
break;
|
|
202
|
203
|
|
|
|
204
|
+ case OUTPUT_VMS_OPT:
|
|
|
205
|
+ fprintf( out, "GSMATCH=LEQUAL,2,0\n"
|
|
|
206
|
+ "CASE_SENSITIVE=YES\n"
|
|
|
207
|
+ "SYMBOL_VECTOR=(-\n" );
|
|
|
208
|
+ for ( nn = 0; nn < num_names - 1; nn++ )
|
|
|
209
|
+ fprintf( out, " %s=PROCEDURE,-\n", the_names[nn].name );
|
|
|
210
|
+ fprintf( out, " %s=PROCEDURE)\n", the_names[num_names - 1].name );
|
|
|
211
|
+
|
|
|
212
|
+ break;
|
|
|
213
|
+
|
|
203
|
214
|
case OUTPUT_NETWARE_IMP:
|
|
204
|
215
|
if ( dll_name )
|
|
205
|
216
|
fprintf( out, " (%s)\n", dll_name );
|
| ... |
... |
@@ -352,6 +363,7 @@ usage( void ) |
|
352
|
363
|
" -w output .DEF file for Visual C++ and Mingw\n"
|
|
353
|
364
|
" -wB output .DEF file for Borland C++\n"
|
|
354
|
365
|
" -wW output Watcom Linker Response File\n"
|
|
|
366
|
+ " -wV output OpenVMS Linker Options File\n"
|
|
355
|
367
|
" -wN output NetWare Import File\n"
|
|
356
|
368
|
" -wL output version map for GNU or Solaris linker\n"
|
|
357
|
369
|
"\n";
|
| ... |
... |
@@ -445,6 +457,10 @@ main( int argc, |
|
445
|
457
|
format = OUTPUT_WATCOM_LBC;
|
|
446
|
458
|
break;
|
|
447
|
459
|
|
|
|
460
|
+ case 'V':
|
|
|
461
|
+ format = OUTPUT_VMS_OPT;
|
|
|
462
|
+ break;
|
|
|
463
|
+
|
|
448
|
464
|
case 'N':
|
|
449
|
465
|
format = OUTPUT_NETWARE_IMP;
|
|
450
|
466
|
break;
|