summaryrefslogtreecommitdiff
path: root/debian/gcjh-wrapper-BV
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2017-05-13 13:54:49 +0300
committerIgor Pashev <pashev.igor@gmail.com>2017-05-13 13:54:49 +0300
commit42156b5190f4fa150e1fab6777eb81e69d4db8c9 (patch)
tree3bf47de81cf1f89892789535a036d2d55d93a136 /debian/gcjh-wrapper-BV
downloadgcc-6-debian.tar.gz
Imported gcc-6 (6.3.0-17)debian/6.3.0-17debian
Diffstat (limited to 'debian/gcjh-wrapper-BV')
-rw-r--r--debian/gcjh-wrapper-BV86
1 files changed, 86 insertions, 0 deletions
diff --git a/debian/gcjh-wrapper-BV b/debian/gcjh-wrapper-BV
new file mode 100644
index 0000000..312c02c
--- /dev/null
+++ b/debian/gcjh-wrapper-BV
@@ -0,0 +1,86 @@
+#!/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);