| 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
 | 
| 
 | 
| 
 |