ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/cv/iso2klems.pl
(Generate patch)

Comparing ray/src/cv/iso2klems.pl (file contents):
Revision 2.1 by greg, Tue Mar 8 19:04:56 2022 UTC vs.
Revision 2.2 by greg, Tue Mar 8 19:50:06 2022 UTC

# Line 9 | Line 9 | use strict;
9   my $windoz = ($^O eq "MSWin32" or $^O eq "MSWin64");
10   use File::Temp qw/ :mktemp  /;
11   sub userror {
12 <        print STDERR "Usage: iso2klems [-t][-W][-s \"x=string;y=string\"] [input.dat]\n";
12 >        print STDERR "Usage: iso2klems [-t][-f \"x=string;y=string\"][-u unit] [input.dat]\n";
13          exit 1;
14   }
15   my ($td,$rmtmp,$cmd);
# Line 29 | Line 29 | my $reverse = 0;
29   while ($#ARGV >= 0) {
30          if  ("$ARGV[0]" eq "-t") {
31                  $reverse = ! $reverse;
32 <        } elsif ("$ARGV[0]" eq "-s") {
32 >        } elsif ("$ARGV[0]" =~ /^-[fs]$/) {
33                  $wrapper .= " -f \"$ARGV[1]\"";
34 +                shift @ARGV;
35 +        } elsif ("$ARGV[0]" eq "-u") {
36 +                $wrapper .= " -u $ARGV[1]";
37                  shift @ARGV;
38          } elsif ("$ARGV[0]" =~ /^-./) {
39                  userror();

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)