5 |
my $JAVA = '@JAVA@'; |
my $JAVA = '@JAVA@'; |
6 |
my $MAINCLASS = 'gnu.gcjwebplugin.AppletViewer'; |
my $MAINCLASS = 'gnu.gcjwebplugin.AppletViewer'; |
7 |
my $PREFIX = '@prefix@'; |
my $PREFIX = '@prefix@'; |
8 |
my $USE_NATIVE_VIEWER = '@USE_NATIVE_VIEWER@'; |
my $GCJAPPLETVIEWER_CLASSPATH = "$PREFIX/share/java/gcjappletviewer.jar"; |
|
|
|
|
|
|
|
# Check if we are installed or in build tree. |
|
|
|
|
|
my $JARFILE; |
|
|
my $NATIVE_VIEWER; |
|
|
my $scriptpath = $0; |
|
|
$scriptpath =~ s/gcjappletviewer$/\./; |
|
|
my $testfile = $scriptpath . '/Makefile'; |
|
|
|
|
|
if (-e ($testfile)) { |
|
|
# We are in build tree. |
|
|
$JARFILE = "$scriptpath/gcjappletviewer.jar"; |
|
|
$NATIVE_VIEWER = "$scriptpath/gcjappletviewer-bin"; |
|
|
} |
|
|
else { |
|
|
# We are installed. |
|
|
$JARFILE = "$PREFIX/share/gcjwebplugin/gcjappletviewer.jar"; |
|
|
$NATIVE_VIEWER = "$PREFIX/bin/gcjappletviewer-bin"; |
|
|
} |
|
|
|
|
|
# Choose applet viewer. |
|
|
|
|
9 |
my $RUNTIME_ARGS = ''; |
my $RUNTIME_ARGS = ''; |
10 |
my $VIEWER_ARGS = ''; |
my $VIEWER_ARGS = ''; |
11 |
my $COMMANDLINE; |
my $COMMANDLINE; |
12 |
my $arg; |
my $arg; |
13 |
my @args; |
my @args; |
14 |
|
|
15 |
if ("$USE_NATIVE_VIEWER" eq "yes") { |
foreach $arg (@ARGV) { |
16 |
my $GCJ_PROPERTIES = ''; |
if ($arg =~ /^-J/) { |
17 |
foreach $arg (@ARGV) { |
$arg =~ s/^-J//; |
18 |
if ($arg =~ /^-J-D/) { |
|
19 |
$arg =~ s/^-J-D//; |
if ($arg =~ /^-Djava.class.path=/) { |
20 |
$GCJ_PROPERTIES = "$GCJ_PROPERTIES $arg"; |
# CLASSPATH was specified in JVM args |
21 |
|
$arg =~ s/^-Djava.class.path=//; |
22 |
|
$GCJAPPLETVIEWER_CLASSPATH = "$arg"; |
23 |
} |
} |
24 |
else { |
else { |
25 |
$VIEWER_ARGS .= " $arg"; |
# FIXME: strip out -debug option |
26 |
} |
|
|
} |
|
|
$COMMANDLINE = "GCJ_PROPERTIES=\"$GCJ_PROPERTIES\" $NATIVE_VIEWER $VIEWER_ARGS"; |
|
|
} |
|
|
else { |
|
|
foreach $arg (@ARGV) { |
|
|
if ($arg =~ /^-J/) { |
|
|
$arg =~ s/^-J//; |
|
27 |
$RUNTIME_ARGS .= " $arg"; |
$RUNTIME_ARGS .= " $arg"; |
28 |
} |
} |
|
else { |
|
|
$VIEWER_ARGS .= " $arg"; |
|
|
} |
|
29 |
} |
} |
30 |
$COMMANDLINE = "$JAVA -cp $JARFILE $RUNTIME_ARGS $MAINCLASS $VIEWER_ARGS"; |
else { |
31 |
|
$VIEWER_ARGS .= " $arg"; |
32 |
|
} |
33 |
} |
} |
34 |
|
$COMMANDLINE = "$JAVA -cp $GCJAPPLETVIEWER_CLASSPATH $RUNTIME_ARGS $MAINCLASS $VIEWER_ARGS"; |
|
|
|
|
# Run applet viewer process. |
|
35 |
|
|
36 |
exec($COMMANDLINE) or exit(1); |
exec($COMMANDLINE) or exit(1); |