home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / jpl / PerlInterpreter / PerlInterpreter.java < prev   
Text File  |  1999-09-14  |  383b  |  22 lines
  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.  
  22.