tools/winapi/winapi_extract_options.pm

   1 package winapi_extract_options;
   2 use base qw(options);
   3
   4 use strict;
   5
   6 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
   7 require Exporter;
   8
   9 @ISA = qw(Exporter);
  10 @EXPORT = qw();
  11 @EXPORT_OK = qw($options);
  12
  13 use options qw($options &parse_comma_list);
  14
  15 my %options_long = (
  16     "debug" => { default => 0, description => "debug mode" },
  17     "help" => { default => 0, description => "help mode" },
  18     "verbose" => { default => 0, description => "verbose mode" },
  19
  20     "progress" => { default => 1, description => "show progress" },
  21
  22     "win16" => { default => 1, description => "Win16 extraction" },
  23     "win32" => { default => 1, description => "Win32 extraction" },
  24
  25     "local" =>  { default => 1, description => "local extraction" },
  26     "global" => { default => 1, description => "global extraction" },
  27
  28     "spec-files" => { default => 1, parent => "global", description => "spec files extraction" },
  29     "stub-statistics" => { default => 1, parent => "global", description => "stub statistics" },
  30 );
  31
  32 my %options_short = (
  33     "d" => "debug",
  34     "?" => "help",
  35     "v" => "verbose"
  36 );
  37
  38 my $options_usage = "usage: winapi_extract [--help] [<files>]\n";
  39
  40 $options = '_options'->new(\%options_long, \%options_short, $options_usage);
  41
  42 1;