Kawa/kawa/standard/Scan.java

package kawa.standard;

import gnu.expr.*;
import gnu.lists.Pair;
import kawa.lang.*;

/** Create a scan expression from a sequence expression. */

public class Scan extends Syntax {
    public static final Scan scan = new Scan();
    static { scan.setName("scan"); }

    @Override
    public Expression rewrite (Object obj, final Translator tr) {
        if (Translator.listLength(obj) != 1)
            return tr.syntaxError("'scan' requires a single argument");
        if (tr.getScanContextStack().empty())
            return tr.syntaxError("'scan' not in a '...'- context");
        Translator.ScanContext savedScanCtx = tr.getScanContextStack().pop();
        try {
            Expression scanExp = tr.rewrite_car((Pair) obj, false);
            Declaration paramDecl =
                savedScanCtx.getLambda().addParameter(null);
            savedScanCtx.addSeqExpression(scanExp);
            return new ReferenceExp(paramDecl);
        } finally {
            tr.getScanContextStack().push(savedScanCtx);
        }
    }
}