Kawa/kawa/standard/syntax_error.java

package kawa.standard;
import kawa.lang.*;
import gnu.lists.*;
import gnu.expr.*;
import gnu.kawa.functions.DisplayFormat;
import gnu.kawa.io.CharArrayOutPort;

/** Implements the "syntax-error" form.
 * Prints out its arguments in an error message.
 * @author	Per Bothner
 */

public class syntax_error extends Syntax
{
  public static final syntax_error syntax_error = new syntax_error();
  static { syntax_error.setName("syntax-error"); }

  public Expression rewrite (Object obj, Translator tr)
  {
    CharArrayOutPort buf = new CharArrayOutPort();
    int words = 0;
    DisplayFormat format = DisplayFormat.schemeDisplayFormat;
    while (obj instanceof Pair)
      {
	Pair pair = (Pair) obj;
	if (words > 0)
	  buf.append(' ');
        format.format(Translator.stripSyntax(pair.getCar()), buf);
        format = DisplayFormat.schemeWriteFormat;
	obj = pair.getCdr();
	words++;
      }
    if (obj != LList.Empty)
      {
	if (words > 0)
	  buf.append(' ');
	format.format(obj, buf);
      }
    return tr.syntaxError(buf.toString());
  }

  public static Expression error (Object form, Object[] message)
  {
    StringBuffer buffer = new StringBuffer();
    int len = message.length;
    if (message == null || len == 0)
      buffer.append("invalid syntax");
    else
      {
	for (int i = 0;  i < len;  i++)
	  buffer.append(message[i]);
      }
    Translator tr = (Translator) Compilation.getCurrent();
    if (tr == null)
      throw new RuntimeException(buffer.toString());
    Object savePos = tr.pushPositionOf(form);
    try
      {
	return tr.syntaxError(buffer.toString());
      }
    finally
      {
	tr.popPositionOf(savePos);
      }
  }
}