KickJava   Java API By Example, From Geeks To Geeks.

Java > Open Source Codes > kawa > standard > begin


1 package kawa.standard;
2 import kawa.lang.*;
3 import gnu.mapping.*;
4 import gnu.expr.*;
5 import gnu.lists.*;
6
7 /**
8  * Implement the re-writer for the "begin" primitive.
9  * @author Per Bothner
10  */
11
12 public class begin extends Syntax
13 {
14   public static final begin begin = new begin();
15   static { begin.setName("begin"); }
16
17   public Expression rewrite (Object JavaDoc obj, Translator tr)
18   {
19     return tr.rewrite_body (obj);
20   }
21
22   public void scanForm (Pair st, ScopeExp defs, Translator tr)
23   {
24     Object JavaDoc body = tr.scanBody(st.cdr, defs, true);
25     if (body != LList.Empty)
26       // Because rewrite to be called later, with whatever is left after
27 // removing declarations.
28 tr.formStack.add(Translator.makePair(st, st.car, body));
29   }
30 }
31
Popular Tags