* src/tools/apinames.c: Facilitate OpenVMS linker options.

This commit is contained in:
Alexei Podtelezhnikov 2021-09-29 22:17:31 -04:00
parent dd0ccdc3d3
commit 1d79c892cf
1 changed files with 17 additions and 1 deletions

View File

@ -22,7 +22,7 @@
#include <ctype.h>
#define PROGRAM_NAME "apinames"
#define PROGRAM_VERSION "0.3"
#define PROGRAM_VERSION "0.4"
#define LINEBUFF_SIZE 1024
@ -33,6 +33,7 @@ typedef enum OutputFormat_
OUTPUT_WINDOWS_DEF, /* output a Windows .DEF file for Visual C++ or Mingw */
OUTPUT_BORLAND_DEF, /* output a Windows .DEF file for Borland C++ */
OUTPUT_WATCOM_LBC, /* output a Watcom Linker Command File */
OUTPUT_VMS_OPT, /* output an OpenVMS Linker Option File */
OUTPUT_NETWARE_IMP, /* output a NetWare ImportFile */
OUTPUT_GNU_VERMAP /* output a version map for GNU or Solaris linker */
@ -200,6 +201,16 @@ names_dump( FILE* out,
break;
case OUTPUT_VMS_OPT:
fprintf( out, "GSMATCH=LEQUAL,2,0\n"
"CASE_SENSITIVE=YES\n"
"SYMBOL_VECTOR=(-\n" );
for ( nn = 0; nn < num_names - 1; nn++ )
fprintf( out, " %s=PROCEDURE,-\n", the_names[nn].name );
fprintf( out, " %s=PROCEDURE)\n", the_names[num_names - 1].name );
break;
case OUTPUT_NETWARE_IMP:
if ( dll_name )
fprintf( out, " (%s)\n", dll_name );
@ -352,6 +363,7 @@ usage( void )
" -w output .DEF file for Visual C++ and Mingw\n"
" -wB output .DEF file for Borland C++\n"
" -wW output Watcom Linker Response File\n"
" -wV output OpenVMS Linker Options File\n"
" -wN output NetWare Import File\n"
" -wL output version map for GNU or Solaris linker\n"
"\n";
@ -445,6 +457,10 @@ main( int argc,
format = OUTPUT_WATCOM_LBC;
break;
case 'V':
format = OUTPUT_VMS_OPT;
break;
case 'N':
format = OUTPUT_NETWARE_IMP;
break;