KickJava   Java API By Example, From Geeks To Geeks.

Java > Open Source Codes > scm > AutoTypes


1 package scm;
2
3 import jas.*;
4 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
5
class scmAsciiCP extends Procedure implements Obj
6 {
7   Obj apply(Cell args, Env f)
8   throws Exception JavaDoc
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 JavaDoc arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
16     return new primnode(new AsciiCP(arg0));
17   }
18   public String JavaDoc toString()
19   { return ("<#make-ascii-cpe#>"); }
20 }
21 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
22
class scmClassCP extends Procedure implements Obj
23 {
24   Obj apply(Cell args, Env f)
25   throws Exception JavaDoc
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 JavaDoc arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
33     return new primnode(new ClassCP(arg0));
34   }
35   public String JavaDoc toString()
36   { return ("<#make-class-cpe#>"); }
37 }
38 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
39
class scmNameTypeCP extends Procedure implements Obj
40 {
41   Obj apply(Cell args, Env f)
42   throws Exception JavaDoc
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 JavaDoc 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 JavaDoc arg1 = (tmp!=null)?((Selfrep)tmp).val:null;
54     return new primnode(new NameTypeCP(arg0, arg1));
55   }
56   public String JavaDoc toString()
57   { return ("<#make-name-type-cpe#>"); }
58 }
59 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
60
class scmFieldCP extends Procedure implements Obj
61 {
62   Obj apply(Cell args, Env f)
63   throws Exception JavaDoc
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 JavaDoc 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 JavaDoc 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 JavaDoc arg2 = (tmp!=null)?((Selfrep)tmp).val:null;
79     return new primnode(new FieldCP(arg0, arg1, arg2));
80   }
81   public String JavaDoc toString()
82   { return ("<#make-field-cpe#>"); }
83 }
84 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
85
class scmInterfaceCP extends Procedure implements Obj
86 {
87   Obj apply(Cell args, Env f)
88   throws Exception JavaDoc
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 JavaDoc 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 JavaDoc 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 JavaDoc arg2 = (tmp!=null)?((Selfrep)tmp).val:null;
104     return new primnode(new InterfaceCP(arg0, arg1, arg2));
105   }
106   public String JavaDoc toString()
107   { return ("<#make-interface-cpe#>"); }
108 }
109 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
110
class scmMethodCP extends Procedure implements Obj
111 {
112   Obj apply(Cell args, Env f)
113   throws Exception JavaDoc
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 JavaDoc 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 JavaDoc 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 JavaDoc arg2 = (tmp!=null)?((Selfrep)tmp).val:null;
129     return new primnode(new MethodCP(arg0, arg1, arg2));
130   }
131   public String JavaDoc toString()
132   { return ("<#make-method-cpe#>"); }
133 }
134 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
135
class scmIntegerCP extends Procedure implements Obj
136 {
137   Obj apply(Cell args, Env f)
138   throws Exception JavaDoc
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 JavaDoc toString()
149   { return ("<#make-integer-cpe#>"); }
150 }
151 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
152
class scmFloatCP extends Procedure implements Obj
153 {
154   Obj apply(Cell args, Env f)
155   throws Exception JavaDoc
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 JavaDoc toString()
166   { return ("<#make-float-cpe#>"); }
167 }
168 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
169
class scmLongCP extends Procedure implements Obj
170 {
171   Obj apply(Cell args, Env f)
172   throws Exception JavaDoc
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 JavaDoc toString()
183   { return ("<#make-long-cpe#>"); }
184 }
185 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
186
class scmDoubleCP extends Procedure implements Obj
187 {
188   Obj apply(Cell args, Env f)
189   throws Exception JavaDoc
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 JavaDoc toString()
200   { return ("<#make-double-cpe#>"); }
201 }
202 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
203
class scmStringCP extends Procedure implements Obj
204 {
205   Obj apply(Cell args, Env f)
206   throws Exception JavaDoc
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 JavaDoc arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
214     return new primnode(new StringCP(arg0));
215   }
216   public String JavaDoc toString()
217   { return ("<#make-string-cpe#>"); }
218 }
219 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
220
class scmVar extends Procedure implements Obj
221 {
222   Obj apply(Cell args, Env f)
223   throws Exception JavaDoc
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 JavaDoc toString()
249   { return ("<#make-field#>"); }
250 }
251 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
252
class scmConstAttr extends Procedure implements Obj
253 {
254   Obj apply(Cell args, Env f)
255   throws Exception JavaDoc
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 JavaDoc toString()
267   { return ("<#make-const#>"); }
268 }
269 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
270
class scmscmOutputStream extends Procedure implements Obj
271 {
272   Obj apply(Cell args, Env f)
273   throws Exception JavaDoc
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 JavaDoc arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
281     return new primnode(new scmOutputStream(arg0));
282   }
283   public String JavaDoc toString()
284   { return ("<#make-outputstream#>"); }
285 }
286 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
287
class scmLabel extends Procedure implements Obj
288 {
289   Obj apply(Cell args, Env f)
290   throws Exception JavaDoc
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 JavaDoc arg0 = (tmp!=null)?((Selfrep)tmp).val:null;
298     return new primnode(new Label(arg0));
299   }
300   public String JavaDoc toString()
301   { return ("<#make-label#>"); }
302 }
303 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
304
class scmClassEnv extends Procedure implements Obj
305 {
306   Obj apply(Cell args, Env f)
307   throws Exception JavaDoc
308   {
309     Cell t = args;
310     Obj tmp;
311     return new primnode(new ClassEnv());
312   }
313   public String JavaDoc toString()
314   { return ("<#make-class-env#>"); }
315 }
316 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
317
class scmCodeAttr extends Procedure implements Obj
318 {
319   Obj apply(Cell args, Env f)
320   throws Exception JavaDoc
321   {
322     Cell t = args;
323     Obj tmp;
324     return new primnode(new CodeAttr());
325   }
326   public String JavaDoc toString()
327   { return ("<#make-code#>"); }
328 }
329 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
330
class scmExceptAttr extends Procedure implements Obj
331 {
332   Obj apply(Cell args, Env f)
333   throws Exception JavaDoc
334   {
335     Cell t = args;
336     Obj tmp;
337     return new primnode(new ExceptAttr());
338   }
339   public String JavaDoc toString()
340   { return ("<#make-exception#>"); }
341 }
342 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
343
class scmCatchtable extends Procedure implements Obj
344 {
345   Obj apply(Cell args, Env f)
346   throws Exception JavaDoc
347   {
348     Cell t = args;
349     Obj tmp;
350     return new primnode(new Catchtable());
351   }
352   public String JavaDoc toString()
353   { return ("<#make-catchtable#>"); }
354 }
355 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
356
class scmCatchEntry extends Procedure implements Obj
357 {
358   Obj apply(Cell args, Env f)
359   throws Exception JavaDoc
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 JavaDoc toString()
386   { return ("<#make-catch-entry#>"); }
387 }
388 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
389
class scmIincInsn extends Procedure implements Obj
390 {
391   Obj apply(Cell args, Env f)
392   throws Exception JavaDoc
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 JavaDoc toString()
407   { return ("<#iinc#>"); }
408 }
409 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
410
class scmMultiarrayInsn extends Procedure implements Obj
411 {
412   Obj apply(Cell args, Env f)
413   throws Exception JavaDoc
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 JavaDoc toString()
429   { return ("<#multianewarray#>"); }
430 }
431 //Autogenerated by typeinfo on Thu May 19 14:07:20 EDT 2005
432
class scmInvokeinterfaceInsn extends Procedure implements Obj
433 {
434   Obj apply(Cell args, Env f)
435   throws Exception JavaDoc
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 JavaDoc toString()
451   { return ("<#invokeinterface#>"); }
452 }
453
Popular Tags