| Index: bison/src/bison/2.4.1/bison-2.4.1-src/build-aux/cross-options.pl
|
| ===================================================================
|
| --- bison/src/bison/2.4.1/bison-2.4.1-src/build-aux/cross-options.pl (revision 0)
|
| +++ bison/src/bison/2.4.1/bison-2.4.1-src/build-aux/cross-options.pl (revision 0)
|
| @@ -0,0 +1,37 @@
|
| +#! /usr/bin/env perl
|
| +
|
| +use warnings;
|
| +use 5.005;
|
| +use strict;
|
| +
|
| +my %option;
|
| +while (<>)
|
| +{
|
| + if (/^\s* # Initial spaces.
|
| + (?:(-\w),\s+)? # $1: Possible short option.
|
| + (--[-\w]+) # $2: Long option.
|
| + (\[?) # $3: '[' iff the argument is optional.
|
| + (?:=([-\w]+))? # $4: Possible argument name.
|
| + /x)
|
| + {
|
| + my ($short, $long, $opt, $arg) = ($1, $2, $3, $4);
|
| + $short = defined $short ? '@option{' . $short . '}' : '';
|
| + if ($arg)
|
| + {
|
| + $arg =~ s/^=//;
|
| + $arg = '@var{' . lc ($arg) . '}';
|
| + $arg = '[' . $arg . ']'
|
| + if $opt eq '[';
|
| + $option{"$long=$arg"} = $short ? "$short $arg" : '';
|
| + }
|
| + else
|
| + {
|
| + $option{"$long"} = "$short";
|
| + }
|
| + }
|
| +}
|
| +
|
| +foreach my $long (sort keys %option)
|
| +{
|
| + printf "\@item %-40s \@tab %s\n", '@option{' . $long . '}', $option{$long};
|
| +}
|
|
|
| Property changes on: bison\src\bison\2.4.1\bison-2.4.1-src\build-aux\cross-options.pl
|
| ___________________________________________________________________
|
| Added: svn:eol-style
|
| + LF
|
|
|
|
|