# Id: newgetopt.pl,v 1.18 2001/09/21 13:34:59 jv

[0] Fix | Delete

[1] Fix | Delete

# This library is no longer being maintained, and is included for backward

[2] Fix | Delete

# compatibility with Perl 4 programs which may require it.

[3] Fix | Delete

# It is now just a wrapper around the Getopt::Long module.

[4] Fix | Delete

#

[5] Fix | Delete

# In particular, this should not be used as an example of modern Perl

[6] Fix | Delete

# programming techniques.

[7] Fix | Delete

#

[8] Fix | Delete

# Suggested alternative: Getopt::Long

[9] Fix | Delete

[10] Fix | Delete

{ package newgetopt;

[11] Fix | Delete

[12] Fix | Delete

# Values for $order. See GNU getopt.c for details.

[13] Fix | Delete

$REQUIRE_ORDER = 0;

[14] Fix | Delete

$PERMUTE = 1;

[15] Fix | Delete

$RETURN_IN_ORDER = 2;

[16] Fix | Delete

[17] Fix | Delete

# Handle POSIX compliancy.

[18] Fix | Delete

if ( defined $ENV{"POSIXLY_CORRECT"} ) {

[19] Fix | Delete

$autoabbrev = 0; # no automatic abbrev of options (???)

[20] Fix | Delete

$getopt_compat = 0; # disallow '+' to start options

[21] Fix | Delete

$option_start = "(--|-)";

[22] Fix | Delete

$order = $REQUIRE_ORDER;

[23] Fix | Delete

$bundling = 0;

[24] Fix | Delete

$passthrough = 0;

[25] Fix | Delete

}

[26] Fix | Delete

else {

[27] Fix | Delete

$autoabbrev = 1; # automatic abbrev of options

[28] Fix | Delete

$getopt_compat = 1; # allow '+' to start options

[29] Fix | Delete

$option_start = "(--|-|\\+)";

[30] Fix | Delete

$order = $PERMUTE;

[31] Fix | Delete

$bundling = 0;

[32] Fix | Delete

$passthrough = 0;

[33] Fix | Delete

}

[34] Fix | Delete

[35] Fix | Delete

# Other configurable settings.

[36] Fix | Delete

$debug = 0; # for debugging

[37] Fix | Delete

$ignorecase = 1; # ignore case when matching options

[38] Fix | Delete

$argv_end = "--"; # don't change this!

[39] Fix | Delete

}

[40] Fix | Delete

[41] Fix | Delete

use Getopt::Long;

[42] Fix | Delete

[43] Fix | Delete

################ Subroutines ################

[44] Fix | Delete

[45] Fix | Delete

sub NGetOpt {

[46] Fix | Delete

[47] Fix | Delete

$Getopt::Long::debug = $newgetopt::debug

[48] Fix | Delete

if defined $newgetopt::debug;

[49] Fix | Delete

$Getopt::Long::autoabbrev = $newgetopt::autoabbrev

[50] Fix | Delete

if defined $newgetopt::autoabbrev;

[51] Fix | Delete

$Getopt::Long::getopt_compat = $newgetopt::getopt_compat

[52] Fix | Delete

if defined $newgetopt::getopt_compat;

[53] Fix | Delete

$Getopt::Long::option_start = $newgetopt::option_start

[54] Fix | Delete

if defined $newgetopt::option_start;

[55] Fix | Delete

$Getopt::Long::order = $newgetopt::order

[56] Fix | Delete

if defined $newgetopt::order;

[57] Fix | Delete

$Getopt::Long::bundling = $newgetopt::bundling

[58] Fix | Delete

if defined $newgetopt::bundling;

[59] Fix | Delete

$Getopt::Long::ignorecase = $newgetopt::ignorecase

[60] Fix | Delete

if defined $newgetopt::ignorecase;

[61] Fix | Delete

$Getopt::Long::ignorecase = $newgetopt::ignorecase

[62] Fix | Delete

if defined $newgetopt::ignorecase;

[63] Fix | Delete

$Getopt::Long::passthrough = $newgetopt::passthrough

[64] Fix | Delete

if defined $newgetopt::passthrough;

[65] Fix | Delete

[66] Fix | Delete

&GetOptions;

[67] Fix | Delete

}

[68] Fix | Delete

[69] Fix | Delete

################ Package return ################

[70] Fix | Delete

[71] Fix | Delete

1;

[72] Fix | Delete

[73] Fix | Delete

################ End of newgetopt.pl ################

[74] Fix | Delete

[75] Fix | Delete