Commit | Line | Data |
---|---|---|
d50cb536 | 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 |