jpl/PerlInterpreter/PerlInterpreter.java

   1 class PerlInterpreter {
   2     static boolean initted = false;
   3
   4     public native void init(String s);
   5     public native void eval(String s);
   6
   7 //    public native long op(long i);
   8
   9     public PerlInterpreter fetch () {
  10         if (!initted) {
  11             init("$JPL::DEBUG = $ENV{JPLDEBUG}");
  12             initted = true;
  13         }
  14         return this;
  15     }
  16
  17     static {
  18         System.loadLibrary("PerlInterpreter");
  19     }
  20 }
  21