/[gcjwebplugin]/gcjwebplugin/src/gcjappletviewer.in
ViewVC logotype

Diff of /gcjwebplugin/src/gcjappletviewer.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mkoch, Mon Jul 5 09:48:59 2004 UTC revision 1.2 by fitzsim, Sun Feb 20 08:29:44 2005 UTC
# Line 5  use strict; Line 5  use strict;
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);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26