#!/usr/bin/perl -w

#### reminder: this file (which resides in $RJ_HOME/bin or $RJ_HOME\bin)
#### is generated from files in $RJ_HOME/cmds,
#### so you probably don't want to edit this file directly.

use strict;

sub u_findmain($$);
sub u_init();
sub u_jfindmain();
sub u_jgo($);
sub u_jgot(\@);
sub u_jgox($);
sub u_rj(\@);
sub u_rjc(\@);
sub u_rjfindmain();
sub u_rjgo($);
sub u_rjgot(\@);
sub u_rjgox($);
sub u_rjrun(\@);
sub u_rjt(\@);
sub u_mysystem($);
sub u_quote_args(\@);

# runs javac *.java

my $exitstatus;
$exitstatus = u_jgot(@ARGV);
exit $exitstatus;

sub u_jgot(\@) {
  my $A = shift(@_);
  if ( @$A != 0 ) {
    print STDERR "jgot ignoring command line arguments\n";
  }
  return u_mysystem("javac *.java");
}
sub u_mysystem($) {
  my $s = shift(@_);
  system($s);
  return $?>>8;
}

