1 package scm; 2 3 import jas.*; 4 class scmAsciiCP extends Procedure implements Obj 6 { 7 Obj apply(Cell args, Env f) 8 throws Exception 9 { 10 Cell t = args; 11 Obj tmp; 12 if (t == null) { throw new SchemeError("make-ascii-cpe expects 1 arguments"); } 13 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 14 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-ascii-cpe expects a String for arg #1"); } 15 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 16 return new primnode(new AsciiCP(arg0)); 17 } 18 public String toString() 19 { return ("<#make-ascii-cpe#>"); } 20 } 21 class scmClassCP extends Procedure implements Obj 23 { 24 Obj apply(Cell args, Env f) 25 throws Exception 26 { 27 Cell t = args; 28 Obj tmp; 29 if (t == null) { throw new SchemeError("make-class-cpe expects 1 arguments"); } 30 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 31 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-class-cpe expects a String for arg #1"); } 32 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 33 return new primnode(new ClassCP(arg0)); 34 } 35 public String toString() 36 { return ("<#make-class-cpe#>"); } 37 } 38 class scmNameTypeCP extends Procedure implements Obj 40 { 41 Obj apply(Cell args, Env f) 42 throws Exception 43 { 44 Cell t = args; 45 Obj tmp; 46 if (t == null) { throw new SchemeError("make-name-type-cpe expects 2 arguments"); } 47 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 48 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-name-type-cpe expects a String for arg #1"); } 49 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 50 if (t == null) { throw new SchemeError("make-name-type-cpe expects 2 arguments"); } 51 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 52 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-name-type-cpe expects a String for arg #2"); } 53 String arg1 = (tmp!=null)?((Selfrep)tmp).val:null; 54 return new primnode(new NameTypeCP(arg0, arg1)); 55 } 56 public String toString() 57 { return ("<#make-name-type-cpe#>"); } 58 } 59 class scmFieldCP extends Procedure implements Obj 61 { 62 Obj apply(Cell args, Env f) 63 throws Exception 64 { 65 Cell t = args; 66 Obj tmp; 67 if (t == null) { throw new SchemeError("make-field-cpe expects 3 arguments"); } 68 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 69 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-field-cpe expects a String for arg #1"); } 70 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 71 if (t == null) { throw new SchemeError("make-field-cpe expects 3 arguments"); } 72 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 73 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-field-cpe expects a String for arg #2"); } 74 String arg1 = (tmp!=null)?((Selfrep)tmp).val:null; 75 if (t == null) { throw new SchemeError("make-field-cpe expects 3 arguments"); } 76 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 77 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-field-cpe expects a String for arg #3"); } 78 String arg2 = (tmp!=null)?((Selfrep)tmp).val:null; 79 return new primnode(new FieldCP(arg0, arg1, arg2)); 80 } 81 public String toString() 82 { return ("<#make-field-cpe#>"); } 83 } 84 class scmInterfaceCP extends Procedure implements Obj 86 { 87 Obj apply(Cell args, Env f) 88 throws Exception 89 { 90 Cell t = args; 91 Obj tmp; 92 if (t == null) { throw new SchemeError("make-interface-cpe expects 3 arguments"); } 93 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 94 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-interface-cpe expects a String for arg #1"); } 95 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 96 if (t == null) { throw new SchemeError("make-interface-cpe expects 3 arguments"); } 97 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 98 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-interface-cpe expects a String for arg #2"); } 99 String arg1 = (tmp!=null)?((Selfrep)tmp).val:null; 100 if (t == null) { throw new SchemeError("make-interface-cpe expects 3 arguments"); } 101 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 102 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-interface-cpe expects a String for arg #3"); } 103 String arg2 = (tmp!=null)?((Selfrep)tmp).val:null; 104 return new primnode(new InterfaceCP(arg0, arg1, arg2)); 105 } 106 public String toString() 107 { return ("<#make-interface-cpe#>"); } 108 } 109 class scmMethodCP extends Procedure implements Obj 111 { 112 Obj apply(Cell args, Env f) 113 throws Exception 114 { 115 Cell t = args; 116 Obj tmp; 117 if (t == null) { throw new SchemeError("make-method-cpe expects 3 arguments"); } 118 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 119 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-method-cpe expects a String for arg #1"); } 120 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 121 if (t == null) { throw new SchemeError("make-method-cpe expects 3 arguments"); } 122 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 123 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-method-cpe expects a String for arg #2"); } 124 String arg1 = (tmp!=null)?((Selfrep)tmp).val:null; 125 if (t == null) { throw new SchemeError("make-method-cpe expects 3 arguments"); } 126 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 127 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-method-cpe expects a String for arg #3"); } 128 String arg2 = (tmp!=null)?((Selfrep)tmp).val:null; 129 return new primnode(new MethodCP(arg0, arg1, arg2)); 130 } 131 public String toString() 132 { return ("<#make-method-cpe#>"); } 133 } 134 class scmIntegerCP extends Procedure implements Obj 136 { 137 Obj apply(Cell args, Env f) 138 throws Exception 139 { 140 Cell t = args; 141 Obj tmp; 142 if (t == null) { throw new SchemeError("make-integer-cpe expects 1 arguments"); } 143 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 144 if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-integer-cpe expects a number for arg #1"); } 145 int arg0 = (int)(Math.round(((Selfrep)tmp).num)); 146 return new primnode(new IntegerCP(arg0)); 147 } 148 public String toString() 149 { return ("<#make-integer-cpe#>"); } 150 } 151 class scmFloatCP extends Procedure implements Obj 153 { 154 Obj apply(Cell args, Env f) 155 throws Exception 156 { 157 Cell t = args; 158 Obj tmp; 159 if (t == null) { throw new SchemeError("make-float-cpe expects 1 arguments"); } 160 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 161 if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-float-cpe expects a number for arg #1"); } 162 float arg0 = (float)(((Selfrep)tmp).num); 163 return new primnode(new FloatCP(arg0)); 164 } 165 public String toString() 166 { return ("<#make-float-cpe#>"); } 167 } 168 class scmLongCP extends Procedure implements Obj 170 { 171 Obj apply(Cell args, Env f) 172 throws Exception 173 { 174 Cell t = args; 175 Obj tmp; 176 if (t == null) { throw new SchemeError("make-long-cpe expects 1 arguments"); } 177 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 178 if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-long-cpe expects a number for arg #1"); } 179 long arg0 = (long)(Math.round(((Selfrep)tmp).num)); 180 return new primnode(new LongCP(arg0)); 181 } 182 public String toString() 183 { return ("<#make-long-cpe#>"); } 184 } 185 class scmDoubleCP extends Procedure implements Obj 187 { 188 Obj apply(Cell args, Env f) 189 throws Exception 190 { 191 Cell t = args; 192 Obj tmp; 193 if (t == null) { throw new SchemeError("make-double-cpe expects 1 arguments"); } 194 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 195 if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-double-cpe expects a number for arg #1"); } 196 double arg0 = (double)(((Selfrep)tmp).num); 197 return new primnode(new DoubleCP(arg0)); 198 } 199 public String toString() 200 { return ("<#make-double-cpe#>"); } 201 } 202 class scmStringCP extends Procedure implements Obj 204 { 205 Obj apply(Cell args, Env f) 206 throws Exception 207 { 208 Cell t = args; 209 Obj tmp; 210 if (t == null) { throw new SchemeError("make-string-cpe expects 1 arguments"); } 211 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 212 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-string-cpe expects a String for arg #1"); } 213 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 214 return new primnode(new StringCP(arg0)); 215 } 216 public String toString() 217 { return ("<#make-string-cpe#>"); } 218 } 219 class scmVar extends Procedure implements Obj 221 { 222 Obj apply(Cell args, Env f) 223 throws Exception 224 { 225 Cell t = args; 226 Obj tmp; 227 if (t == null) { throw new SchemeError("make-field expects 4 arguments"); } 228 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 229 if (!(tmp instanceof Selfrep)) { throw new SchemeError("make-field expects a number for arg #1"); } 230 short arg0 = (short)(Math.round(((Selfrep)tmp).num)); 231 if (t == null) { throw new SchemeError("make-field expects 4 arguments"); } 232 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 233 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-field expects a CP for arg #2"); } 234 if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("make-field expects a CP for arg #2"); } 235 CP arg1 = (tmp != null)?(CP)(((primnode)tmp).val):null; 236 if (t == null) { throw new SchemeError("make-field expects 4 arguments"); } 237 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 238 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-field expects a CP for arg #3"); } 239 if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("make-field expects a CP for arg #3"); } 240 CP arg2 = (tmp != null)?(CP)(((primnode)tmp).val):null; 241 if (t == null) { throw new SchemeError("make-field expects 4 arguments"); } 242 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 243 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-field expects a ConstAttr for arg #4"); } 244 if ((tmp != null) && !((((primnode)tmp).val) instanceof ConstAttr)) { throw new SchemeError("make-field expects a ConstAttr for arg #4"); } 245 ConstAttr arg3 = (tmp != null)?(ConstAttr)(((primnode)tmp).val):null; 246 return new primnode(new Var(arg0, arg1, arg2, arg3)); 247 } 248 public String toString() 249 { return ("<#make-field#>"); } 250 } 251 class scmConstAttr extends Procedure implements Obj 253 { 254 Obj apply(Cell args, Env f) 255 throws Exception 256 { 257 Cell t = args; 258 Obj tmp; 259 if (t == null) { throw new SchemeError("make-const expects 1 arguments"); } 260 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 261 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-const expects a CP for arg #1"); } 262 if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("make-const expects a CP for arg #1"); } 263 CP arg0 = (tmp != null)?(CP)(((primnode)tmp).val):null; 264 return new primnode(new ConstAttr(arg0)); 265 } 266 public String toString() 267 { return ("<#make-const#>"); } 268 } 269 class scmscmOutputStream extends Procedure implements Obj 271 { 272 Obj apply(Cell args, Env f) 273 throws Exception 274 { 275 Cell t = args; 276 Obj tmp; 277 if (t == null) { throw new SchemeError("make-outputstream expects 1 arguments"); } 278 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 279 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-outputstream expects a String for arg #1"); } 280 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 281 return new primnode(new scmOutputStream(arg0)); 282 } 283 public String toString() 284 { return ("<#make-outputstream#>"); } 285 } 286 class scmLabel extends Procedure implements Obj 288 { 289 Obj apply(Cell args, Env f) 290 throws Exception 291 { 292 Cell t = args; 293 Obj tmp; 294 if (t == null) { throw new SchemeError("make-label expects 1 arguments"); } 295 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 296 if ((tmp != null) && !(tmp instanceof Selfrep)) { throw new SchemeError("make-label expects a String for arg #1"); } 297 String arg0 = (tmp!=null)?((Selfrep)tmp).val:null; 298 return new primnode(new Label(arg0)); 299 } 300 public String toString() 301 { return ("<#make-label#>"); } 302 } 303 class scmClassEnv extends Procedure implements Obj 305 { 306 Obj apply(Cell args, Env f) 307 throws Exception 308 { 309 Cell t = args; 310 Obj tmp; 311 return new primnode(new ClassEnv()); 312 } 313 public String toString() 314 { return ("<#make-class-env#>"); } 315 } 316 class scmCodeAttr extends Procedure implements Obj 318 { 319 Obj apply(Cell args, Env f) 320 throws Exception 321 { 322 Cell t = args; 323 Obj tmp; 324 return new primnode(new CodeAttr()); 325 } 326 public String toString() 327 { return ("<#make-code#>"); } 328 } 329 class scmExceptAttr extends Procedure implements Obj 331 { 332 Obj apply(Cell args, Env f) 333 throws Exception 334 { 335 Cell t = args; 336 Obj tmp; 337 return new primnode(new ExceptAttr()); 338 } 339 public String toString() 340 { return ("<#make-exception#>"); } 341 } 342 class scmCatchtable extends Procedure implements Obj 344 { 345 Obj apply(Cell args, Env f) 346 throws Exception 347 { 348 Cell t = args; 349 Obj tmp; 350 return new primnode(new Catchtable()); 351 } 352 public String toString() 353 { return ("<#make-catchtable#>"); } 354 } 355 class scmCatchEntry extends Procedure implements Obj 357 { 358 Obj apply(Cell args, Env f) 359 throws Exception 360 { 361 Cell t = args; 362 Obj tmp; 363 if (t == null) { throw new SchemeError("make-catch-entry expects 4 arguments"); } 364 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 365 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-catch-entry expects a Label for arg #1"); } 366 if ((tmp != null) && !((((primnode)tmp).val) instanceof Label)) { throw new SchemeError("make-catch-entry expects a Label for arg #1"); } 367 Label arg0 = (tmp != null)?(Label)(((primnode)tmp).val):null; 368 if (t == null) { throw new SchemeError("make-catch-entry expects 4 arguments"); } 369 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 370 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-catch-entry expects a Label for arg #2"); } 371 if ((tmp != null) && !((((primnode)tmp).val) instanceof Label)) { throw new SchemeError("make-catch-entry expects a Label for arg #2"); } 372 Label arg1 = (tmp != null)?(Label)(((primnode)tmp).val):null; 373 if (t == null) { throw new SchemeError("make-catch-entry expects 4 arguments"); } 374 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 375 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-catch-entry expects a Label for arg #3"); } 376 if ((tmp != null) && !((((primnode)tmp).val) instanceof Label)) { throw new SchemeError("make-catch-entry expects a Label for arg #3"); } 377 Label arg2 = (tmp != null)?(Label)(((primnode)tmp).val):null; 378 if (t == null) { throw new SchemeError("make-catch-entry expects 4 arguments"); } 379 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 380 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("make-catch-entry expects a CP for arg #4"); } 381 if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("make-catch-entry expects a CP for arg #4"); } 382 CP arg3 = (tmp != null)?(CP)(((primnode)tmp).val):null; 383 return new primnode(new CatchEntry(arg0, arg1, arg2, arg3)); 384 } 385 public String toString() 386 { return ("<#make-catch-entry#>"); } 387 } 388 class scmIincInsn extends Procedure implements Obj 390 { 391 Obj apply(Cell args, Env f) 392 throws Exception 393 { 394 Cell t = args; 395 Obj tmp; 396 if (t == null) { throw new SchemeError("iinc expects 2 arguments"); } 397 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 398 if (!(tmp instanceof Selfrep)) { throw new SchemeError("iinc expects a number for arg #1"); } 399 int arg0 = (int)(Math.round(((Selfrep)tmp).num)); 400 if (t == null) { throw new SchemeError("iinc expects 2 arguments"); } 401 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 402 if (!(tmp instanceof Selfrep)) { throw new SchemeError("iinc expects a number for arg #2"); } 403 int arg1 = (int)(Math.round(((Selfrep)tmp).num)); 404 return new primnode(new IincInsn(arg0, arg1)); 405 } 406 public String toString() 407 { return ("<#iinc#>"); } 408 } 409 class scmMultiarrayInsn extends Procedure implements Obj 411 { 412 Obj apply(Cell args, Env f) 413 throws Exception 414 { 415 Cell t = args; 416 Obj tmp; 417 if (t == null) { throw new SchemeError("multianewarray expects 2 arguments"); } 418 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 419 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("multianewarray expects a CP for arg #1"); } 420 if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("multianewarray expects a CP for arg #1"); } 421 CP arg0 = (tmp != null)?(CP)(((primnode)tmp).val):null; 422 if (t == null) { throw new SchemeError("multianewarray expects 2 arguments"); } 423 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 424 if (!(tmp instanceof Selfrep)) { throw new SchemeError("multianewarray expects a number for arg #2"); } 425 int arg1 = (int)(Math.round(((Selfrep)tmp).num)); 426 return new primnode(new MultiarrayInsn(arg0, arg1)); 427 } 428 public String toString() 429 { return ("<#multianewarray#>"); } 430 } 431 class scmInvokeinterfaceInsn extends Procedure implements Obj 433 { 434 Obj apply(Cell args, Env f) 435 throws Exception 436 { 437 Cell t = args; 438 Obj tmp; 439 if (t == null) { throw new SchemeError("invokeinterface expects 2 arguments"); } 440 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 441 if ((tmp != null) && !(tmp instanceof primnode)) { throw new SchemeError("invokeinterface expects a CP for arg #1"); } 442 if ((tmp != null) && !((((primnode)tmp).val) instanceof CP)) { throw new SchemeError("invokeinterface expects a CP for arg #1"); } 443 CP arg0 = (tmp != null)?(CP)(((primnode)tmp).val):null; 444 if (t == null) { throw new SchemeError("invokeinterface expects 2 arguments"); } 445 tmp = (t.car!=null)?t.car.eval(f):null; t = t.cdr; 446 if (!(tmp instanceof Selfrep)) { throw new SchemeError("invokeinterface expects a number for arg #2"); } 447 int arg1 = (int)(Math.round(((Selfrep)tmp).num)); 448 return new primnode(new InvokeinterfaceInsn(arg0, arg1)); 449 } 450 public String toString() 451 { return ("<#invokeinterface#>"); } 452 } 453 | Popular Tags |