// no package name; /** * this file is automatically generated by the jscheme->javac compiler Compiler.scm. * Modify at your own risk! */ import jsint.*; import java.lang.reflect.*; import java.util.*; public class startit extends jsint.Procedure implements jsint.Function, Runnable { public int whichcode=0; // corresponds to a numbering of the toplevel procedures of the program public int whichtype=0; // 0 = user defined procedure, 1 = java literal public static final int USER_DEF=0, JAVA_LIT=1; public Pair frame; public startit() { super();} public startit(int t, int n, Pair f) { whichtype = t; whichcode = n; frame = f; } private Boolean addImport(String s) { jsint.Import.addImport(s); return Boolean.TRUE; } public void run() { this.invoke(null); } public Object[] makeArgArray(jsint.Pair args) { return new Object[]{args}; } public Object apply(Object[] args) { return invoke((Pair)args[0]); } public Object apply(Pair args) { return invoke(args); } public Object invoke(Pair args) { return LCO.eval(invoke1(args)); } static Object tmp; public static void load() { new startit().init(); } public static void load(String shellArgs[]) { jsint.Symbol.intern("shellArgs").setGlobalValue(shellArgs); load(); } public static void main(String shellArgs[]) { Symbol main = jsint.Symbol.intern("main"); load(shellArgs); if (main.isDefined()) ((jsint.Procedure) main.getGlobalValue()).apply(new Pair(shellArgs,Pair.EMPTY)); } public Object invoke1(Pair args) { if (whichtype == USER_DEF) { switch (whichcode) { case 0: return(_L0(args)); case 1: return(_L1(args)); case 2: return(_L2(args)); case 3: return(_L3(args)); case 4: return(_L4(args)); case 5: return(_L5(args)); case 6: return(_L6(args)); case 7: return(_L7(args)); case 8: return(_L8(args)); default: System.exit(0); break; }} else { switch (whichcode) { case 0: return(_J0(args)); case 1: return(_J1(args)); case 2: return(_J2(args)); case 3: return(_J3(args)); case 4: return(_J4(args)); case 5: return(_J5(args)); case 6: return(_J6(args)); case 7: return(_J7(args)); case 8: return(_J8(args)); case 9: return(_J9(args)); case 10: return(_J10(args)); case 11: return(_J11(args)); case 12: return(_J12(args)); default: System.exit(0); break; }} return null; } public void init() { Pair Args = null; Symbol.intern("this").setGlobalValue(this); Class _p = Primitive.class; // this loads the primitives Symbol.intern("main").setGlobalValue(new startit(USER_DEF, 8, new Pair( Args, this.frame))); } // definitions of global variables public static Object main = Symbol.intern("main"); // definitions of Scheme variables defined externally static Object equal_63_= Symbol.intern("equal?"); static Object window= Symbol.intern("window"); static Object col= Symbol.intern("col"); static Object label= Symbol.intern("label"); static Object _33__123__125_= Symbol.intern("!{}"); static Object button= Symbol.intern("button"); static Object action= Symbol.intern("action"); static Object list_45__62_array= Symbol.intern("list->array"); // definitions of quoted terms static Object _C0=Boolean.TRUE; static Object _C1=Boolean.FALSE; static Object _C2=new Integer(0); static Object _C3="Jscheme/Jetty server"; static Object _C4="Server started at "; static Object _C5=", local time"; static Object _C6="closing this window will shutdown the server"; static Object _C7="Shutdown server"; static Object _C8=new Pair("etc/jetty.xml",Pair.EMPTY); static Object _C9="error"; static Object _C10="Error in Server "; static Object _C11=""; // definitions of embedded lambdas Object _L0(Pair Args){ Object tmp=null; tmp = (Boolean.FALSE.equals( (Boolean.FALSE.equals(((jsint.Procedure) ((Symbol)equal_63_).getGlobalValue()).apply(new Pair(((jsint.Procedure) _J3/* .getID */).apply(new Pair((( Pair) Args).getEltNover2(1), Pair.EMPTY)), new Pair((((jsint.Procedure)_J4/* java.awt.event.WindowEvent.WINDOW_CLOSING$ */).apply(jsint.Pair.EMPTY)), Pair.EMPTY)))) ? (Boolean.FALSE.equals(((jsint.Procedure) ((Symbol)equal_63_).getGlobalValue()).apply(new Pair(((jsint.Procedure) _J3/* .getID */).apply(new Pair((( Pair) Args).getEltNover2(1), Pair.EMPTY)), new Pair((((jsint.Procedure)_J5/* java.awt.event.WindowEvent.WINDOW_CLOSED$ */).apply(jsint.Pair.EMPTY)), Pair.EMPTY)))) ? _C1 : _C0 ) : _C0 )) ? _C0 : new LCO(_J6/* java.lang.System.exit */,new Pair(_C2, Pair.EMPTY)) ); return tmp; } Object _L1(Pair Args){ Object tmp=null; tmp = new LCO(_J1/* .addWindowListener */,new Pair((( Pair) Args).getEltNover2(1), new Pair(((jsint.Procedure) _J2/* jsint.Listener. */).apply(new Pair(new startit(USER_DEF, 0, new Pair( Args, this.frame)), Pair.EMPTY)), Pair.EMPTY))); return tmp; } Object _L2(Pair Args){ Object tmp=null; tmp = new LCO(_J6/* java.lang.System.exit */,new Pair(_C2, Pair.EMPTY)); return tmp; } Object _L3(Pair Args){ Object tmp=null; tmp = (( Pair) Args).setEltNover2(1,new startit(USER_DEF, 1, new Pair( Args, this.frame))); tmp = (( Pair) Args).setEltNover2(3,((jsint.Procedure) ((Symbol)window).getGlobalValue()).apply(new Pair(_C3, new Pair(((jsint.Procedure) ((Symbol)col).getGlobalValue()).apply(new Pair(((jsint.Procedure) ((Symbol)label).getGlobalValue()).apply(new Pair(((jsint.Procedure) ((Symbol)_33__123__125_).getGlobalValue()).apply(new Pair(_C4, new Pair(((jsint.Procedure) _J7/* java.util.Date. */).apply(Pair.EMPTY), new Pair(_C5, Pair.EMPTY)))), Pair.EMPTY)), new Pair(((jsint.Procedure) ((Symbol)label).getGlobalValue()).apply(new Pair(_C6, Pair.EMPTY)), new Pair(((jsint.Procedure) ((Symbol)button).getGlobalValue()).apply(new Pair(_C7, new Pair(((jsint.Procedure) ((Symbol)action).getGlobalValue()).apply(new Pair(new startit(USER_DEF, 2, new Pair( Args, this.frame)), Pair.EMPTY)), Pair.EMPTY))), Pair.EMPTY)))), Pair.EMPTY)))); tmp = ((jsint.Procedure) (( Pair) Args).getEltNover2(1)).apply(new Pair((( Pair) Args).getEltNover2(3), Pair.EMPTY)); tmp = ((jsint.Procedure) _J8/* .pack */).apply(new Pair((( Pair) Args).getEltNover2(3), Pair.EMPTY)); tmp = new LCO(_J9/* .show */,new Pair((( Pair) Args).getEltNover2(3), Pair.EMPTY)); return tmp; } Object _L4(Pair Args){ Object tmp=null; tmp = new LCO(new startit(USER_DEF, 3, new Pair( Args, this.frame)),new Pair(_C1, new Pair(_C1, Pair.EMPTY))); return tmp; } Object _L5(Pair Args){ Object tmp=null; tmp = new LCO(_J11/* org.mortbay.jetty.Server.main */,new Pair(((jsint.Procedure) ((Symbol)list_45__62_array).getGlobalValue()).apply(new Pair(_J12/* java.lang.String.class */, new Pair(_C8, Pair.EMPTY))), Pair.EMPTY)); return tmp; } Object _L6(Pair Args){ Object tmp=null; tmp = ((jsint.Procedure) _J9/* .show */).apply(new Pair((( Pair) Args).getEltNover2(1), Pair.EMPTY)); tmp = new LCO(_J8/* .pack */,new Pair((( Pair) Args).getEltNover2(1), Pair.EMPTY)); return tmp; } Object _L7(Pair Args){ Object tmp=null; tmp = new LCO(new startit(USER_DEF, 6, new Pair( Args, this.frame)),new Pair(((jsint.Procedure) ((Symbol)window).getGlobalValue()).apply(new Pair(_C9, new Pair(((jsint.Procedure) ((Symbol)label).getGlobalValue()).apply(new Pair(((jsint.Procedure) ((Symbol)_33__123__125_).getGlobalValue()).apply(new Pair(_C10, new Pair((( Pair) Args).getEltNover2(1), new Pair(_C11, Pair.EMPTY)))), Pair.EMPTY)), Pair.EMPTY))), Pair.EMPTY)); return tmp; } Object _L8(Pair Args){ Object tmp=null; tmp = ((jsint.Procedure) _J0/* jlib.Swing.load */).apply(Pair.EMPTY); tmp = ((jsint.Procedure) new startit(USER_DEF, 4, new Pair( Args, this.frame))).apply(Pair.EMPTY); tmp = new LCO(_J10/* jsint.Procedure.tryCatch */,new Pair(new startit(USER_DEF, 5, new Pair( Args, this.frame)), new Pair(new startit(USER_DEF, 7, new Pair( Args, this.frame)), Pair.EMPTY))); return tmp; } // definitions of java literals static boolean [][] _moreApplicable__J0/* jlib.Swing.load */ = new boolean[][]{ {true,false}, {false,true} }; public static Object _J0/* jlib.Swing.load */(Pair args){ int numargs = args.length(); Object tmp=null; // return type, for methods int b= -1; // index of best matching method/constructor if ((numargs== 0) && ((b== -1) || (_moreApplicable__J0/* jlib.Swing.load */[ 0][b])) && (true)) { b = 0;} if ((numargs== 1) && ((b== -1) || (_moreApplicable__J0/* jlib.Swing.load */[ 1][b])) && ((args.nth(0) instanceof java.lang.String[]))) { b = 1;} try { switch (b) { // jump to the best matching method/constructor case 0: jlib.Swing.load(); break; case 1: jlib.Swing.load( (java.lang.String[]) args.nth(0) ); break; default: // error } } catch(Exception e) {throw new JschemeThrowable(e);}; return tmp; } static Object _J0/* jlib.Swing.load */ = new startit( JAVA_LIT, 0/* jlib.Swing.load*/, Pair.EMPTY); public static Object _J1/* .addWindowListener */(Pair Args){ return (((jsint.Procedure)_J1/* .addWindowListener */).apply(Args));} static Object _J1/* .addWindowListener */ = new JavaMethod("addWindowListener", null, false); static boolean [][] _moreApplicable__J2/* jsint.Listener. */ = new boolean[][]{ {true} }; public static jsint.Listener _J2/* jsint.Listener. */(Pair args){ int numargs = args.length(); jsint.Listener tmp=null; // return type, for methods int b= -1; // index of best matching method/constructor if ((numargs== 1) && ((b== -1) || (_moreApplicable__J2/* jsint.Listener. */[ 0][b])) && ((args.nth(0) instanceof jsint.Procedure))) { b = 0;} try { switch (b) { // jump to the best matching method/constructor case 0: return new jsint.Listener( (jsint.Procedure) args.nth(0) ); default: // error } } catch(Exception e) {throw new JschemeThrowable(e);}; return tmp; } static Object _J2/* jsint.Listener. */ = new startit( JAVA_LIT, 2/* jsint.Listener.*/, Pair.EMPTY); public static Object _J3/* .getID */(Pair Args){ return (((jsint.Procedure)_J3/* .getID */).apply(Args));} static Object _J3/* .getID */ = new JavaMethod("getID", null, false); public static java.lang.Integer _J4/* java.awt.event.WindowEvent.WINDOW_CLOSING$ */( Pair Args ){ if (Args.length() == 0) return new java.lang.Integer( java.awt.event.WindowEvent.WINDOW_CLOSING); else {System.out.println("too many args in call to static field" + "java.awt.event.WindowEvent.WINDOW_CLOSING"); return null;} } static Object _J4/* java.awt.event.WindowEvent.WINDOW_CLOSING$ */ = new startit( JAVA_LIT, 4/* java.awt.event.WindowEvent.WINDOW_CLOSING$*/, Pair.EMPTY); public static java.lang.Integer _J5/* java.awt.event.WindowEvent.WINDOW_CLOSED$ */( Pair Args ){ if (Args.length() == 0) return new java.lang.Integer( java.awt.event.WindowEvent.WINDOW_CLOSED); else {System.out.println("too many args in call to static field" + "java.awt.event.WindowEvent.WINDOW_CLOSED"); return null;} } static Object _J5/* java.awt.event.WindowEvent.WINDOW_CLOSED$ */ = new startit( JAVA_LIT, 5/* java.awt.event.WindowEvent.WINDOW_CLOSED$*/, Pair.EMPTY); static boolean [][] _moreApplicable__J6/* java.lang.System.exit */ = new boolean[][]{ {true} }; public static Object _J6/* java.lang.System.exit */(Pair args){ int numargs = args.length(); Object tmp=null; // return type, for methods int b= -1; // index of best matching method/constructor if ((numargs== 1) && ((b== -1) || (_moreApplicable__J6/* java.lang.System.exit */[ 0][b])) && ((args.nth(0) instanceof java.lang.Integer))) { b = 0;} try { switch (b) { // jump to the best matching method/constructor case 0: java.lang.System.exit( (((Integer) (args.nth(0))).intValue()) ); break; default: // error } } catch(Exception e) {throw new JschemeThrowable(e);}; return tmp; } static Object _J6/* java.lang.System.exit */ = new startit( JAVA_LIT, 6/* java.lang.System.exit*/, Pair.EMPTY); static boolean [][] _moreApplicable__J7/* java.util.Date. */ = new boolean[][]{ {true,false,false,false,false,false}, {false,true,false,false,false,false}, {false,false,true,false,false,false}, {false,false,false,true,false,false}, {false,false,false,false,true,false}, {false,false,false,false,false,true} }; public static java.util.Date _J7/* java.util.Date. */(Pair args){ int numargs = args.length(); java.util.Date tmp=null; // return type, for methods int b= -1; // index of best matching method/constructor if ((numargs== 3) && ((b== -1) || (_moreApplicable__J7/* java.util.Date. */[ 0][b])) && ((args.nth(0) instanceof java.lang.Integer) && (args.nth(1) instanceof java.lang.Integer) && (args.nth(2) instanceof java.lang.Integer))) { b = 0;} if ((numargs== 0) && ((b== -1) || (_moreApplicable__J7/* java.util.Date. */[ 1][b])) && (true)) { b = 1;} if ((numargs== 6) && ((b== -1) || (_moreApplicable__J7/* java.util.Date. */[ 2][b])) && ((args.nth(0) instanceof java.lang.Integer) && (args.nth(1) instanceof java.lang.Integer) && (args.nth(2) instanceof java.lang.Integer) && (args.nth(3) instanceof java.lang.Integer) && (args.nth(4) instanceof java.lang.Integer) && (args.nth(5) instanceof java.lang.Integer))) { b = 2;} if ((numargs== 5) && ((b== -1) || (_moreApplicable__J7/* java.util.Date. */[ 3][b])) && ((args.nth(0) instanceof java.lang.Integer) && (args.nth(1) instanceof java.lang.Integer) && (args.nth(2) instanceof java.lang.Integer) && (args.nth(3) instanceof java.lang.Integer) && (args.nth(4) instanceof java.lang.Integer))) { b = 3;} if ((numargs== 1) && ((b== -1) || (_moreApplicable__J7/* java.util.Date. */[ 4][b])) && ((args.nth(0) instanceof java.lang.Long))) { b = 4;} if ((numargs== 1) && ((b== -1) || (_moreApplicable__J7/* java.util.Date. */[ 5][b])) && ((args.nth(0) instanceof java.lang.String))) { b = 5;} try { switch (b) { // jump to the best matching method/constructor case 0: return new java.util.Date( (((Integer) (args.nth(0))).intValue()), (((Integer) (args.nth(1))).intValue()), (((Integer) (args.nth(2))).intValue()) ); case 1: return new java.util.Date(); case 2: return new java.util.Date( (((Integer) (args.nth(0))).intValue()), (((Integer) (args.nth(1))).intValue()), (((Integer) (args.nth(2))).intValue()), (((Integer) (args.nth(3))).intValue()), (((Integer) (args.nth(4))).intValue()), (((Integer) (args.nth(5))).intValue()) ); case 3: return new java.util.Date( (((Integer) (args.nth(0))).intValue()), (((Integer) (args.nth(1))).intValue()), (((Integer) (args.nth(2))).intValue()), (((Integer) (args.nth(3))).intValue()), (((Integer) (args.nth(4))).intValue()) ); case 4: return new java.util.Date( (((Long) (args.nth(0))).longValue()) ); case 5: return new java.util.Date( (java.lang.String) args.nth(0) ); default: // error } } catch(Exception e) {throw new JschemeThrowable(e);}; return tmp; } static Object _J7/* java.util.Date. */ = new startit( JAVA_LIT, 7/* java.util.Date.*/, Pair.EMPTY); public static Object _J8/* .pack */(Pair Args){ return (((jsint.Procedure)_J8/* .pack */).apply(Args));} static Object _J8/* .pack */ = new JavaMethod("pack", null, false); public static Object _J9/* .show */(Pair Args){ return (((jsint.Procedure)_J9/* .show */).apply(Args));} static Object _J9/* .show */ = new JavaMethod("show", null, false); static boolean [][] _moreApplicable__J10/* jsint.Procedure.tryCatch */ = new boolean[][]{ {true} }; public static Object _J10/* jsint.Procedure.tryCatch */(Pair args){ int numargs = args.length(); Object tmp=null; // return type, for methods int b= -1; // index of best matching method/constructor if ((numargs== 2) && ((b== -1) || (_moreApplicable__J10/* jsint.Procedure.tryCatch */[ 0][b])) && ((args.nth(0) instanceof java.lang.Object) && (args.nth(1) instanceof java.lang.Object))) { b = 0;} try { switch (b) { // jump to the best matching method/constructor case 0: return jsint.Procedure.tryCatch( (java.lang.Object) args.nth(0), (java.lang.Object) args.nth(1) ); default: // error } } catch(Exception e) {throw new JschemeThrowable(e);}; return tmp; } static Object _J10/* jsint.Procedure.tryCatch */ = new startit( JAVA_LIT, 10/* jsint.Procedure.tryCatch*/, Pair.EMPTY); static boolean [][] _moreApplicable__J11/* org.mortbay.jetty.Server.main */ = new boolean[][]{ {true,true}, {true,true} }; public static Object _J11/* org.mortbay.jetty.Server.main */(Pair args){ int numargs = args.length(); Object tmp=null; // return type, for methods int b= -1; // index of best matching method/constructor if ((numargs== 1) && ((b== -1) || (_moreApplicable__J11/* org.mortbay.jetty.Server.main */[ 0][b])) && ((args.nth(0) instanceof java.lang.String[]))) { b = 0;} if ((numargs== 1) && ((b== -1) || (_moreApplicable__J11/* org.mortbay.jetty.Server.main */[ 1][b])) && ((args.nth(0) instanceof java.lang.String[]))) { b = 1;} try { switch (b) { // jump to the best matching method/constructor case 0: org.mortbay.jetty.Server.main( (java.lang.String[]) args.nth(0) ); break; case 1: org.mortbay.jetty.Server.main( (java.lang.String[]) args.nth(0) ); break; default: // error } } catch(Exception e) {throw new JschemeThrowable(e);}; return tmp; } static Object _J11/* org.mortbay.jetty.Server.main */ = new startit( JAVA_LIT, 11/* org.mortbay.jetty.Server.main*/, Pair.EMPTY); public static Object _J12/* java.lang.String.class */(Pair Args){ return (((jsint.Procedure)_J12/* java.lang.String.class */).apply(Args));} static Object _J12/* java.lang.String.class */ = java.lang.String.class; //static { new startit().init();} }