From: Jonathan Stowe Date: Sat, 14 Jul 2001 10:14:34 +0000 (+0100) Subject: use Getopt::Long (was Re: [PATCH] h2xs) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4d2d0db22574599aba3e3abe53e0ed95f3ace0ce;p=p5sagit%2Fp5-mst-13.2.git use Getopt::Long (was Re: [PATCH] h2xs) Message-ID: p4raw-id: //depot/perl@11372 --- diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 1d60d69..292a461 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -70,39 +70,39 @@ extra-libraries argument. =over 5 -=item B<-A> +=item B<-A>, B<--omit-autoload> Omit all autoload facilities. This is the same as B<-c> but also removes the S> statement from the .pm file. -=item B<-C> +=item B<-C>, B<--omit-changes> Omits creation of the F file, and adds a HISTORY section to the POD template. -=item B<-F> I +=item B<-F>, B<--cpp-flags>=I Additional flags to specify to C preprocessor when scanning header for function declarations. Should not be used without B<-x>. -=item B<-M> I +=item B<-M>, B<--func-mask>=I selects functions/macros to process. -=item B<-O> +=item B<-O>, B<--overwrite-ok> Allows a pre-existing extension directory to be overwritten. -=item B<-P> +=item B<-P>, B<--omit-pod> Omit the autogenerated stub POD section. -=item B<-X> +=item B<-X>, B<--omit-XS> Omit the XS portion. Used to generate templates for a module which is not XS-based. C<-c> and C<-f> are implicitly enabled. -=item B<-a> +=item B<-a>, B<--gen-accessors> Generate an accessor method for each element of structs and unions. The generated methods are named after the element name; will return the current @@ -116,7 +116,7 @@ two methods are constructed for the structure type itself, C<_to_ptr> which returns a Ptr type pointing to the same structure, and a C method to construct and return a new structure, initialised to zeroes. -=item B<-b> I +=item B<-b>, B<--compat-version>=I Generates a .pm file which is backwards compatible with the specified perl version. @@ -128,39 +128,39 @@ For versions < 5.6.0, the changes are. Specifying a compatibility version higher than the version of perl you are using to run h2xs will have no effect. -=item B<-c> +=item B<-c>, B<--omit-constant> Omit C from the .xs file and corresponding specialised C from the .pm file. -=item B<-d> +=item B<-d>, B<--debugging> Turn on debugging messages. -=item B<-f> +=item B<-f>, B<--force> Allows an extension to be created for a header even if that header is not found in standard include directories. -=item B<-h> +=item B<-h>, B<-?>, B<--help> Print the usage, help and version for this h2xs and exit. -=item B<-k> +=item B<-k>, B<--omit-const-func> For function arguments declared as C, omit the const attribute in the generated XS code. -=item B<-m> +=item B<-m>, B<--gen-tied-var> B: for each variable declared in the header file(s), declare a perl variable of the same name magically tied to the C variable. -=item B<-n> I +=item B<-n>, B<--name>=I Specifies a name to be used for the extension, e.g., S<-n RPC::DCE> -=item B<-o> I +=item B<-o>, B<--opaque-re>=I Use "opaque" data type for the C types matched by the regular expression, even if these types are C-equivalent to types @@ -176,33 +176,33 @@ The type-to-match is whitewashed (except for commas, which have no whitespace before them, and multiple C<*> which have no whitespace between them). -=item B<-p> I +=item B<-p>, B<--remove-prefix>=I Specify a prefix which should be removed from the Perl function names, e.g., S<-p sec_rgy_> This sets up the XS B keyword and removes the prefix from functions that are autoloaded via the C mechanism. -=item B<-s> I +=item B<-s>, B<--const-subs>=I Create a perl subroutine for the specified macros rather than autoload with the constant() subroutine. These macros are assumed to have a return type of B, e.g., S<-s sec_rgy_wildcard_name,sec_rgy_wildcard_sid>. -=item B<-t> I +=item B<-t>, B<--default-type>=I Specify the internal type that the constant() mechanism uses for macros. The default is IV (signed integer). Currently all macros found during the header scanning process will be assumed to have this type. Future versions of C may gain the ability to make educated guesses. -=item B<-v> I +=item B<-v>, B<--version>=I Specify a version number for this extension. This version number is added to the templates. The default is 0.01. -=item B<-x> +=item B<-x>, B<--autogen-xsubs> Automatically generate XSUBs basing on function declarations in the header file. The package C should be installed. If this @@ -422,7 +422,7 @@ my $TEMPLATE_VERSION = '0.01'; my @ARGS = @ARGV; my $compat_version = $]; -use Getopt::Std; +use Getopt::Long; use Config; use Text::Wrap; $Text::Wrap::huge = 'overflow'; @@ -432,41 +432,97 @@ use ExtUtils::Constant qw (constant_types C_constant XS_constant autoload); sub usage { warn "@_\n" if @_; die < \$opt_A, + 'omit-changes|C' => \$opt_C, + 'cpp-flags|F=s' => \$opt_F, + 'func-mask|M=s' => \$opt_M, + 'overwrite_ok|O' => \$opt_O, + 'omit-pod|P' => \$opt_P, + 'omit-XS|X' => \$opt_X, + 'gen-accessors|a' => \$opt_a, + 'compat-version|b=s' => \$opt_b, + 'omit-constant|c' => \$opt_c, + 'debugging|d' => \$opt_d, + 'force|f' => \$opt_f, + 'help|h|?' => \$opt_h, + 'omit-const-func|k' => \$opt_k, + 'gen-tied-var|m' => \$opt_m, + 'name|n=s' => \$opt_n, + 'opaque-re|o=s' => \$opt_o, + 'remove-prefix|p=s' => \$opt_p, + 'const-subs|s=s' => \$opt_s, + 'default-type|t=s' => \$opt_t, + 'version|v=s' => \$opt_v, + 'autogen-xsubs|x=s' => \$opt_x + ); + +GetOptions(%options) || usage; usage if $opt_h;