Kawa/kawa/lang/PatternScope.java

package kawa.lang;
import gnu.expr.*;
import java.util.Vector;

/** Bindings from a <code>syntax-case</code>/<code>syntax-rules</code> pattern. */

public class PatternScope extends LetExp {
    PatternScope previousSyntax;

    /** Currently visible macro pattern names.
     * For the i'th pattern variable, pattern_names.elementAt(i)
     * is the name of the variable,  */
    public Vector pattern_names;

    /** Nesting of currently visible macro pattern names.
     * For the <code>i</code>'th pattern variable,
     * <code>(int) patternNesting.charAt(i)/2</code> is the nesting (in terms of
     * number of ellipsis that indicate the variable is repeated).
     * The low-order bit indicates that if matched value is the <code>car</code>
     * of the value saved in the <code>vars</code> array. */
    public StringBuffer patternNesting;

    // FIXME - move to Translator?
    public Declaration matchArray;

    public PatternScope() { }

    public static PatternScope push(Translator tr) {
        PatternScope newScope = new PatternScope();
        // The actual declarations of newScope will be added later,
        // in SyntaxPattern#translate.
        PatternScope oldScope = tr.patternScope;
        newScope.previousSyntax = oldScope;
        tr.patternScope = newScope;
        if (oldScope == null) {
            newScope.pattern_names = new Vector();
            newScope.patternNesting = new StringBuffer();
        } else {
            newScope.pattern_names = (Vector) oldScope.pattern_names.clone();
            newScope.patternNesting
                = new StringBuffer(oldScope.patternNesting.toString());
        }
        newScope.setOuter(tr.currentScope());
        return newScope;
    }

    public static void pop(Translator tr) {
        tr.patternScope = tr.patternScope.previousSyntax;
    }

    /*
    public void compile(Compilation comp, Target target) {
        throw new RuntimeException ("internal error - PatternScope.compile called");
    }
    */

}