Kawa/kawa/standard/try_catch.java

package kawa.standard;
import kawa.lang.*;
import gnu.lists.*;
import gnu.expr.*;

/**
 * Utility method for try-catch.
 */

public class try_catch
{
  public static Expression rewrite (Pair try_part_pair, Object clauses)
  {
    Translator tr = (Translator) Compilation.getCurrent();
    Expression try_part_exp = tr.rewrite_car(try_part_pair, false);
    CatchClause prev = null;
    CatchClause chain = null;
    FVector vec = (FVector) clauses;
    int n = vec.size();
    for (int i = 0;  i < n;  i++)
      {
        Expression cl = SchemeCompilation.lambda.rewrite(vec.get(i), tr);
        if (cl instanceof ErrorExp)
          return cl;
        if (! (cl instanceof LambdaExp))
          return tr.syntaxError("internal error with try-catch");
        CatchClause ccl = new CatchClause((LambdaExp) cl);
        if (prev == null)
          chain = ccl;
        else
          prev.setNext(ccl);
        prev = ccl;
      }
    if (try_part_exp instanceof ErrorExp)
      return try_part_exp; 
    TryExp texp = new TryExp(try_part_exp, null);
    texp.setCatchClauses(chain);
    return texp;
  }
}