tools/specmaker/main.c

   1 /*
   2  *  Option processing and main()
   3  *
   4  *  Copyright 2000 Jon Griffiths
   5  */
   6 #include "specmaker.h"
   7
   8
   9 _globals globals; /* All global variables */
  10
  11
  12 static void do_include (const char *arg)
  13 {
  14   globals.directory = arg;
  15   globals.do_code = 1;
  16 }
  17
  18
  19 static inline const char* strip_ext (const char *str)
  20 {
  21   char *ext = strstr(str, ".dll");
  22   if (ext)
  23     return str_substring (str, ext);
  24   else
  25     return strdup (str);
  26 }
  27
  28
  29 static void do_name (const char *arg)
  30 {
  31   globals.dll_name = strip_ext (arg);
  32 }
  33
  34
  35 static void do_input (const char *arg)
  36 {
  37   globals.input_name = strip_ext (arg);
  38 }
  39
  40
  41 static void do_code (void)
  42 {
  43   globals.do_code = 1;
  44 }
  45
  46
  47 static void do_trace (void)
  48 {
  49   globals.do_trace = 1;
  50   globals.do_code = 1;
  51 }
  52
  53
  54 static void do_forward (const char *arg)
  55 {
  56   globals.forward_dll = arg;
  57   globals.do_trace = 1;
  58   globals.do_code = 1;
  59 }
  60
  61 static void do_document (void)
  62 {
  63   globals.do_documentation = 1;
  64 }
  65
  66 static void do_cdecl (void)
  67 {
  68   globals.do_cdecl = 1;
  69 }
  70
  71
  72 static void do_quiet (void)
  73 {
  74   globals.do_quiet = 1;
  75 }
  76
  77
  78 static void do_start (const char *arg)
  79 {
  80   globals.start_ordinal = atoi (arg);
  81   if (!globals.start_ordinal)
  82     fatal ("Invalid -s option (must be numeric)");
  83 }
  84
  85
  86 static void do_end (const char *arg)
  87 {
  88   globals.end_ordinal = atoi (arg);
  89   if (!globals.end_ordinal)
  90     fatal ("Invalid -e option (must be numeric)");
  91 }
  92
  93
  94 static void do_verbose (void)
  95 {
  96   globals.do_verbose = 1;
  97 }
  98
  99
 100 struct option
 101 {
 102   const char *name;
 103   int   has_arg;
 104   void  (*func) ();
 105   const char *usage;
 106 };
 107
 108
 109 static const struct option option_table[] = {
 110   {"-d", 1, do_input,    "-d dll   Use dll for input file (mandatory)"},
 111   {"-h", 0, do_usage,    "-h       Display this help message"},
 112   {"-I", 1, do_include,  "-I dir   Look for prototypes in 'dir' (implies -c)"},
 113   {"-o", 1, do_name,     "-o name  Set the output dll name (default: dll)"},
 114   {"-c", 0, do_code,     "-c       Generate skeleton code (requires -I)"},
 115   {"-t", 0, do_trace,    "-t       TRACE arguments (implies -c)"},
 116   {"-f", 1, do_forward,  "-f dll   Forward calls to 'dll' (implies -t)"},
 117   {"-D", 0, do_document, "-D       Generate documentation"},
 118   {"-C", 0, do_cdecl,    "-C       Assume __cdecl calls (default: __stdcall)"},
 119   {"-s", 1, do_start,    "-s num   Start prototype search after symbol 'num'"},
 120   {"-e", 1, do_end,      "-e num   End prototype search after symbol 'num'"},
 121   {"-q", 0, do_quiet,    "-q       Don't show progress (quiet)."},
 122   {"-v", 0, do_verbose,  "-v       Show lots of detail while working (verbose)."},
 123   {NULL, 0, NULL, NULL}
 124 };
 125
 126
 127 void do_usage (void)
 128 {
 129   const struct option *opt;
 130   printf ("Usage: specmaker [options] -d dll\n\nOptions:\n");
 131   for (opt = option_table; opt->name; opt++)
 132     printf ("   %s\n", opt->usage);
 133   puts ("\n");
 134   exit (1);
 135 }
 136
 137
 138 /*******************************************************************
 139  *          parse_options
 140  *
 141  * Parse options from the argv array
 142  */
 143 static void parse_options (char *argv[])
 144 {
 145   const struct option *opt;
 146   char *const *ptr;
 147   const char *arg = NULL;
 148
 149   ptr = argv + 1;
 150
 151   while (*ptr != NULL)
 152   {
 153     for (opt = option_table; opt->name; opt++)
 154     {
 155       if (opt->has_arg && !strncmp (*ptr, opt->name, strlen (opt->name)))
 156       {
 157         arg = *ptr + strlen (opt->name);
 158         if (*arg == '\0')
 159         {
 160           ptr++;
 161           arg = *ptr;
 162         }
 163         break;
 164       }
 165       if (!strcmp (*ptr, opt->name))
 166       {
 167         arg = NULL;
 168         break;
 169       }
 170     }
 171
 172     if (!opt->name)
 173       fatal ("Unrecognized option");
 174
 175     if (opt->has_arg && arg != NULL)
 176       opt->func (arg);
 177     else
 178       opt->func ("");
 179
 180     ptr++;
 181   }
 182
 183   if (globals.do_code && !globals.directory)
 184     fatal ("-I must be used if generating code");
 185
 186   if (!globals.input_name)
 187     fatal ("Option -d is mandatory");
 188
 189   if (VERBOSE && QUIET)
 190     fatal ("Options -v and -q are mutually exclusive");
 191 }
 192
 193
 194 /*******************************************************************
 195  *         main
 196  */
 197 #ifdef __GNUC__
 198 int   main (int argc __attribute__((unused)), char *argv[])
 199 #else
 200 int   main (int argc, char *argv[])
 201 #endif
 202 {
 203   parsed_symbol symbol;
 204   int count = 0;
 205
 206   parse_options (argv);
 207
 208   dll_open (globals.input_name);
 209
 210   output_spec_preamble ();
 211   output_header_preamble ();
 212   output_c_preamble ();
 213
 214   memset (&symbol, 0, sizeof (parsed_symbol));
 215
 216   while ((symbol.symbol = dll_next_symbol ()))
 217   {
 218     count++;
 219
 220     if (NORMAL)
 221       printf ("Export %3d - '%s' ...%c", count, symbol.symbol,
 222               VERBOSE ? '\n' : ' ');
 223
 224     if (globals.do_code && count >= globals.start_ordinal
 225         && (!globals.end_ordinal || count <= globals.end_ordinal))
 226     {
 227       /* Attempt to get information about the symbol */
 228       int result = symbol_demangle (&symbol);
 229
 230       if (result)
 231         result = symbol_search (&symbol);
 232
 233       if (!result)
 234       /* Clean up the prototype */
 235         symbol_clean_string (symbol.function_name);
 236
 237       if (NORMAL)
 238         puts (result ? "[Not Found]" : "[OK]");
 239     }
 240     else if (NORMAL)
 241       puts ("[Ignoring]");
 242
 243     output_spec_symbol (&symbol);
 244     output_header_symbol (&symbol);
 245     output_c_symbol (&symbol);
 246
 247     symbol_clear (&symbol);
 248   }
 249
 250   output_makefile ();
 251   output_install_script ();
 252
 253   if (VERBOSE)
 254     puts ("Finished, Cleaning up...");
 255
 256   return 0;
 257 }