[p5sagit/p5-mst-13.2.git] / jpl / PerlInterpreter / PerlInterpreter.java

class PerlInterpreter {
    static boolean initted = false;

    public native void init(String s);
    public native void eval(String s);

//    public native long op(long i);

    public PerlInterpreter fetch () {
	if (!initted) {
	    init("$JPL::DEBUG = $ENV{JPLDEBUG}");
	    initted = true;
	}
	return this;
    }

    static {
	System.loadLibrary("PerlInterpreter");
    }
}
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