Changeset 1279 for branches/New_Config_Format-branch/gsdl/perllib/parsargv.pm

Timestamp:

2000-07-13T10:21:53+12:00 (24 years ago)

Author:

sjboddie

Message:

merged changes to trunk into New_Config_Format branch

File:

• branches/New_Config_Format-branch/gsdl/perllib/parsargv.pm (modified) (3 diffs)

branches/New_Config_Format-branch/gsdl/perllib/parsargv.pm

@@ -64 +64 @@
 # Returns 0 if there was an error, nonzero otherwise.
 # 
-sub parse
+
+ 
+ sub parse
 {
     my $arglist = shift;
@@ -70 +72 @@
     my %option;
 
-    while (($spec, $var) = splice(@_, 0, 2))
-    {
+    my @rest = @_;
+
+    # if the last argument is the string "allow_extra_options" then options
+    # in \@rest without a corresponding SPEC will be ignored (i.e. the "$arg is
+    # not a valid option" error won't occur)\n";
+    my $allow_extra_options = pop @rest;
+    if (defined ($allow_extra_options)) {
+    if ($allow_extra_options eq "allow_extra_options") {
+        $allow_extra_options = 1;
+    } else {
+        # put it back where we got it
+        push (@rest, $allow_extra_options);
+        $allow_extra_options = 0;
+    }
+    } else {
+    $allow_extra_options = 0;
+    }
+
+    while (($spec, $var) = splice(@rest, 0, 2))
+        {
     die "Variable for $spec is not a valid type."
         unless ref($var) eq 'SCALAR' || ref($var) eq 'ARRAY';
@@ -126 +146 @@
         &process_arg($option{$arg}, $arglist, \$errors);
         }
-        else
+        elsif (!$allow_extra_options)
         {
         print STDERR "$arg is not a valid option.\n";