KickJava   Java API By Example, From Geeks To Geeks.

Java > Open Source Codes > gnu > jemacs > lang > While


1 package gnu.jemacs.lang;
2 import gnu.expr.*;
3 import kawa.lang.*;
4 import gnu.lists.*;
5 import gnu.mapping.*;
6
7 /** Implement the ELisp `while' syntax form. */
8
9 public class While extends Syntax
10 {
11   static kawa.standard.begin begin = new kawa.standard.begin();
12
13   public Expression rewriteForm (Pair form, Translator tr)
14   {
15     Object JavaDoc obj = form.cdr;
16     if (! (obj instanceof Pair))
17       return tr.syntaxError("missing arguments for while");
18     tr.mustCompileHere();
19     form = (Pair) obj;
20     return Expression.makeWhile(form.car, new Pair (begin, form.cdr), tr);
21   }
22 }
23
Popular Tags