le.jasmin.3.0.1.source-code.AutoTypes Maven / Gradle / Ivy
Go to download
Show more of this group Show more artifacts with this name
Show all versions of jasmin Show documentation
Show all versions of jasmin Show documentation
Java Assembler Interface for the Soot framework
package scm;
import jas.*;
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmAsciiCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-ascii-cpe expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-ascii-cpe expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new AsciiCP(arg0));
}
public String toString()
{ return ("<#make-ascii-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmClassCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-class-cpe expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-class-cpe expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new ClassCP(arg0));
}
public String toString()
{ return ("<#make-class-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmNameTypeCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-name-type-cpe expects 2 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-name-type-cpe expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
if (t == null) { throw new SchemeError("make-name-type-cpe expects 2 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-name-type-cpe expects a String for arg #2"); }
String arg1 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new NameTypeCP(arg0, arg1));
}
public String toString()
{ return ("<#make-name-type-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmFieldCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-field-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-field-cpe expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
if (t == null) { throw new SchemeError("make-field-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-field-cpe expects a String for arg #2"); }
String arg1 = (tmp!=null)?((Selfrep)tmp).val:null;
if (t == null) { throw new SchemeError("make-field-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-field-cpe expects a String for arg #3"); }
String arg2 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new FieldCP(arg0, arg1, arg2));
}
public String toString()
{ return ("<#make-field-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmInterfaceCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-interface-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-interface-cpe expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
if (t == null) { throw new SchemeError("make-interface-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-interface-cpe expects a String for arg #2"); }
String arg1 = (tmp!=null)?((Selfrep)tmp).val:null;
if (t == null) { throw new SchemeError("make-interface-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-interface-cpe expects a String for arg #3"); }
String arg2 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new InterfaceCP(arg0, arg1, arg2));
}
public String toString()
{ return ("<#make-interface-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmMethodCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-method-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-method-cpe expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
if (t == null) { throw new SchemeError("make-method-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-method-cpe expects a String for arg #2"); }
String arg1 = (tmp!=null)?((Selfrep)tmp).val:null;
if (t == null) { throw new SchemeError("make-method-cpe expects 3 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-method-cpe expects a String for arg #3"); }
String arg2 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new MethodCP(arg0, arg1, arg2));
}
public String toString()
{ return ("<#make-method-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmIntegerCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-integer-cpe expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-integer-cpe expects a number for arg #1"); }
int arg0 = (int)(Math.round(((Selfrep)tmp).num));
return new primnode(new IntegerCP(arg0));
}
public String toString()
{ return ("<#make-integer-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmFloatCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-float-cpe expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-float-cpe expects a number for arg #1"); }
float arg0 = (float)(((Selfrep)tmp).num);
return new primnode(new FloatCP(arg0));
}
public String toString()
{ return ("<#make-float-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmLongCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-long-cpe expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-long-cpe expects a number for arg #1"); }
long arg0 = (long)(Math.round(((Selfrep)tmp).num));
return new primnode(new LongCP(arg0));
}
public String toString()
{ return ("<#make-long-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmDoubleCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-double-cpe expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-double-cpe expects a number for arg #1"); }
double arg0 = (double)(((Selfrep)tmp).num);
return new primnode(new DoubleCP(arg0));
}
public String toString()
{ return ("<#make-double-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmStringCP extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-string-cpe expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-string-cpe expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new StringCP(arg0));
}
public String toString()
{ return ("<#make-string-cpe#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmVar extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-field expects 4 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-field expects a number for arg #1"); }
short arg0 = (short)(Math.round(((Selfrep)tmp).num));
if (t == null) { throw new SchemeError("make-field expects 4 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-field expects a CP for arg #2"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("make-field expects a CP for arg #2"); }
CP arg1 = (tmp != null)?(CP)(((primnode)tmp).val):null;
if (t == null) { throw new SchemeError("make-field expects 4 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-field expects a CP for arg #3"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("make-field expects a CP for arg #3"); }
CP arg2 = (tmp != null)?(CP)(((primnode)tmp).val):null;
if (t == null) { throw new SchemeError("make-field expects 4 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-field expects a ConstAttr for arg #4"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof ConstAttr)) { throw new SchemeError("make-field expects a ConstAttr for arg #4"); }
ConstAttr arg3 = (tmp != null)?(ConstAttr)(((primnode)tmp).val):null;
return new primnode(new Var(arg0, arg1, arg2, arg3));
}
public String toString()
{ return ("<#make-field#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmConstAttr extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-const expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-const expects a CP for arg #1"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("make-const expects a CP for arg #1"); }
CP arg0 = (tmp != null)?(CP)(((primnode)tmp).val):null;
return new primnode(new ConstAttr(arg0));
}
public String toString()
{ return ("<#make-const#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmscmOutputStream extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-outputstream expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-outputstream expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new scmOutputStream(arg0));
}
public String toString()
{ return ("<#make-outputstream#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmLabel extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-label expects 1 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-label expects a String for arg #1"); }
String arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
return new primnode(new Label(arg0));
}
public String toString()
{ return ("<#make-label#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmClassEnv extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
return new primnode(new ClassEnv());
}
public String toString()
{ return ("<#make-class-env#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmCodeAttr extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
return new primnode(new CodeAttr());
}
public String toString()
{ return ("<#make-code#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmExceptAttr extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
return new primnode(new ExceptAttr());
}
public String toString()
{ return ("<#make-exception#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmCatchtable extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
return new primnode(new Catchtable());
}
public String toString()
{ return ("<#make-catchtable#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmCatchEntry extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("make-catch-entry expects 4 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-catch-entry expects a Label for arg #1"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof Label)) { throw new SchemeError("make-catch-entry expects a Label for arg #1"); }
Label arg0 = (tmp != null)?(Label)(((primnode)tmp).val):null;
if (t == null) { throw new SchemeError("make-catch-entry expects 4 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-catch-entry expects a Label for arg #2"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof Label)) { throw new SchemeError("make-catch-entry expects a Label for arg #2"); }
Label arg1 = (tmp != null)?(Label)(((primnode)tmp).val):null;
if (t == null) { throw new SchemeError("make-catch-entry expects 4 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-catch-entry expects a Label for arg #3"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof Label)) { throw new SchemeError("make-catch-entry expects a Label for arg #3"); }
Label arg2 = (tmp != null)?(Label)(((primnode)tmp).val):null;
if (t == null) { throw new SchemeError("make-catch-entry expects 4 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-catch-entry expects a CP for arg #4"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("make-catch-entry expects a CP for arg #4"); }
CP arg3 = (tmp != null)?(CP)(((primnode)tmp).val):null;
return new primnode(new CatchEntry(arg0, arg1, arg2, arg3));
}
public String toString()
{ return ("<#make-catch-entry#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmIincInsn extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("iinc expects 2 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("iinc expects a number for arg #1"); }
int arg0 = (int)(Math.round(((Selfrep)tmp).num));
if (t == null) { throw new SchemeError("iinc expects 2 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("iinc expects a number for arg #2"); }
int arg1 = (int)(Math.round(((Selfrep)tmp).num));
return new primnode(new IincInsn(arg0, arg1));
}
public String toString()
{ return ("<#iinc#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmMultiarrayInsn extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("multianewarray expects 2 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("multianewarray expects a CP for arg #1"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("multianewarray expects a CP for arg #1"); }
CP arg0 = (tmp != null)?(CP)(((primnode)tmp).val):null;
if (t == null) { throw new SchemeError("multianewarray expects 2 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("multianewarray expects a number for arg #2"); }
int arg1 = (int)(Math.round(((Selfrep)tmp).num));
return new primnode(new MultiarrayInsn(arg0, arg1));
}
public String toString()
{ return ("<#multianewarray#>"); }
}
//Autogenerated by typeinfo on Tue Feb 02 13:50:39 CET 2016
class scmInvokeinterfaceInsn extends Procedure implements Obj
{
Obj apply(Cell args, Env f)
throws Exception
{
Cell t = args;
Obj tmp;
if (t == null) { throw new SchemeError("invokeinterface expects 2 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("invokeinterface expects a CP for arg #1"); }
if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("invokeinterface expects a CP for arg #1"); }
CP arg0 = (tmp != null)?(CP)(((primnode)tmp).val):null;
if (t == null) { throw new SchemeError("invokeinterface expects 2 arguments"); }
tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr;
if (!(tmp instanceof Selfrep)) { throw new SchemeError("invokeinterface expects a number for arg #2"); }
int arg1 = (int)(Math.round(((Selfrep)tmp).num));
return new primnode(new InvokeinterfaceInsn(arg0, arg1));
}
public String toString()
{ return ("<#invokeinterface#>"); }
}
© 2015 - 2025 Weber Informatics LLC | Privacy Policy