KickJava   Java API By Example, From Geeks To Geeks.

Java > Open Source Codes > kawa > standard > syntax_rules


1 package kawa.standard;
2 import kawa.lang.*;
3 import gnu.lists.*;
4 import gnu.expr.*;
5
6 /** Implement the standard Scheme "syntax-rules" form. */
7
8 public class syntax_rules extends Syntax
9 {
10   public static final syntax_rules syntax_rules = new syntax_rules();
11   static { syntax_rules.setName("syntax-rules"); }
12
13   public Expression rewriteForm (Pair form, Translator tr)
14   {
15     Pair pair = (Pair) form.cdr;
16
17     Object JavaDoc[] literal_identifiers
18       = SyntaxPattern.getLiteralsList(pair.car, null, tr);
19     SyntaxRules rules
20       = new SyntaxRules (literal_identifiers, pair.cdr, tr);
21     return new QuoteExp(rules);
22   }
23 }
24
Popular Tags