home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / jpl / Sample / Sample.jpl < prev   
Text File  |  1999-09-14  |  1KB  |  49 lines

  1. class Sample {
  2.     public static void main(String[] args) {
  3.     Sample sam = new Sample();
  4.     System.out.println(sam.foo("manny","moe","jack"));
  5.     System.out.println(sam.foo(1));
  6.     System.out.println(sam.foo(3.0));
  7.     sam.foo();
  8.     }
  9.  
  10.     public static int thrice(int i) {
  11.     return i * 3;
  12.     }
  13.  
  14.     perl void foo() {{
  15.     use POSIX;
  16.     print "TZ = ", POSIX::tzname(), "\n";
  17.     print "Got to ${self}->foo() method\n";
  18.     print "foo__I(2) = ", $self->foo__I__I(2),"\n";
  19.     print "thrice(123) = ", JPL::Sample->thrice__I__I(123), "\n";
  20.     print "thrice(12) = ", JPL::Sample->thrice__I__I(12), "\n";
  21.     print $self->foo__sss__s("MANNY", "MOE", "JACK"), "\n";
  22.     print 41 + $self->foo__sss__s("1", "2", "3"), "\n";
  23.     print "Perl version is $]\n";
  24.     }}
  25.  
  26.     perl int foo(int a) {{
  27.     $a + $a;
  28.     }}
  29.  
  30.     perl double foo(double a) {{
  31.     use JPL::Class 'java::util::Random';
  32.     $rng = java::util::Random->new();
  33.     print "RNG = $rng\n";
  34.     print $rng->nextDouble____D(), "\n";
  35.     print $rng->nextDouble____D(), "\n";
  36.     print $rng->nextDouble____D(), "\n";
  37.     print $rng->nextDouble____D(), "\n";
  38.     return $a * $a;
  39.     }}
  40.  
  41.     perl String foo( String a,
  42.              String b,
  43.              String c ) {{
  44.     print "a = $a, b = $b, c = $c\n";
  45.     join "+", $a, $b, $c;
  46.     }}
  47.  
  48. }
  49.