X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/a7c09cba098dd0140b0ba0336cd05ece2c8dfcf0..8f0d265e9d88ae555be0af9fdb1bfc8f307533ee:/build-aux/cross-options.pl

diff --git a/build-aux/cross-options.pl b/build-aux/cross-options.pl
index 478303d5..241c741b 100755
--- a/build-aux/cross-options.pl
+++ b/build-aux/cross-options.pl
@@ -35,8 +35,11 @@ while (<STDIN>)
             # put each word in @var, to build @var{name}[=@var{value}], not
             # @var{name[=value]}].
 	    $arg =~ s/(\w+)/\@var{$1}/g;
-	    $arg = '[' . $arg . ']'
-		if $opt eq '[';
+	    my $long_arg = "=$arg";
+	    if ($opt eq '[') {
+	      $long_arg = "[$long_arg]";
+	      $arg = "[$arg]";
+	    }
 	    # For arguments of directives: this only works if all arguments
 	    # are strings and have the same syntax as on the command line.
 	    if ($dir_arg eq 'name[=value]')
@@ -49,7 +52,7 @@ while (<STDIN>)
 		$dir_arg = '[' . $dir_arg . ']'
 		    if $opt eq '[';
 	    }
-	    $long = "$long=$arg";
+	    $long = "$long$long_arg";
 	    $short = "$short $arg" if $short && $short ne '-d';
 	    $dir = "$dir $dir_arg" if $dir;
 	}
@@ -58,9 +61,12 @@ while (<STDIN>)
     }
 }
 
+my $sep = '';
 foreach my $long (sort keys %option)
 {
     # Avoid trailing spaces.
+    print $sep;
+    $sep = "\n";
     print '@item @option{', $long, "}\n\@tab";
     print ' @option{', $option{$long}, '}' if $option{$long};
     print "\n\@tab";