git.oblomov.eu Git - wine/blob - tools/winapi/make_filter_options.pm

   1 package make_filter_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 &parse_value);
  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     "make" => { default => "make",
  23                 parser => \&parse_value,
  24                 description => "use which make" },
  25     "pedantic" => { default => 0, description => "be pedantic" },
  26 );
  27
  28 my %options_short = (
  29     "d" => "debug",
  30     "?" => "help",
  31     "v" => "verbose"
  32 );
  33
  34 my $options_usage = "usage: make_filter [--help]\n";
  35
  36 $options = '_options'->new(\%options_long, \%options_short, $options_usage);
  37
  38 1;