diff options
Diffstat (limited to 'debian/gcjh-wrapper-BV')
-rw-r--r-- | debian/gcjh-wrapper-BV | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/debian/gcjh-wrapper-BV b/debian/gcjh-wrapper-BV deleted file mode 100644 index 312c02c..0000000 --- a/debian/gcjh-wrapper-BV +++ /dev/null @@ -1,86 +0,0 @@ -#!/usr/bin/perl -w -# -# Starts the GNU Java header generator. -# -# Command-line arguments should be in the style of Sun's javah command; -# these will be converted to gcjh arguments before being passed to the -# gcjh itself. -# -# Copyright (C) 2003 by Peter Hawkins <peterh@debian.org> -# Haphazardly hacked up based on the gcj-wrapper perl script. -# Copyright (C) 2002-2003 by Ben Burton <bab@debian.org> -# Based on the original gcj-wrapper-3.2 shell script. - -use strict; - -# The real Java header generator: -my $javaHeaderGen = '/usr/bin/gcjh-@BV@'; - -# The command-line arguments to pass to the real Java compiler: -my @commandLine; - -# Build the command-line from the arguments given. -my $parsingOptions = 1; -my $copyNextArg = 0; -my $ignoreNextArg = 0; -my $appendNextArg = ''; -foreach my $arg (@ARGV) { - # See if we already know what to do with this argument. - if ($ignoreNextArg) { - # Throw it away. - $ignoreNextArg = 0; - next; - } elsif ($copyNextArg or not $parsingOptions) { - # Copy it directly. - push @commandLine, $arg; - $copyNextArg = 0; - next; - } elsif ($appendNextArg) { - # Append it to $appendNextArg and then copy directly. - push @commandLine, ($appendNextArg . $arg); - $appendNextArg = ''; - next; - } - - # Try to interpret Sun-style options. - if ($arg eq '-version') { - push @commandLine, '--version'; - } elsif ($arg eq '-h' or $arg eq '-help') { - push @commandLine, '--help'; - } elsif ($arg eq '-verbose') { - push @commandLine, '--verbose'; - } elsif ($arg eq '-classpath' or $arg eq '--classpath' or $arg eq '--cp') { - $appendNextArg = '--classpath='; - } elsif ($arg eq '-encoding' or $arg eq '-bootclasspath' or - $arg eq '-extdirs') { - $appendNextArg = "-".$arg . '='; - } elsif ($arg eq '-d') { - push @commandLine, '-d'; - $copyNextArg = 1; - } elsif ($arg eq '-o') { - push @commandLine, '-o'; - $copyNextArg = 1; - } elsif ($arg eq '-stubs') { - push @commandLine, '-stubs'; - } elsif ($arg eq '-jni') { - push @commandLine, '-jni'; - } elsif ($arg =~ /^-old/) { - # An extended Sun option (which we don't support). - push @commandLine, '--help' if ($arg eq '-old'); - } elsif ($arg =~ /^-/) { - # An unsupported standalone option. - } else { - # Some non-option argument has been given. - # Stop parsing options at this point. - push @commandLine, $arg; - $parsingOptions = 0; - } -} - -# Was there a partial argument that was never completed? -push @commandLine, $appendNextArg if ($appendNextArg); - -# Call the real Java header generator. -my @fullCommandLine = ( $javaHeaderGen ); -push @fullCommandLine, @commandLine; -exec @fullCommandLine or exit(1); |