scm.Cell Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of jasmin Show documentation

Java Assembler Interface for the Soot framework

There is a newer version: 3.0.3

                                // Cons cell
package scm;

class Cell implements Obj
{
  Obj car;
  Cell cdr;			// this should be a Obj, but its
				// a mite quicker to bag the cast check,
				// and be unable to do (a . b)
  public Obj eval(Env e)
    throws Exception
  {
    Procedure p;

    if (car == null)
      { throw new SchemeError("null car cell trying to eval " + this); }

    if (car instanceof Procedure)
      { p = (Procedure) car; }
    else
      { p = (Procedure) car.eval(e); }

    return (p.apply(cdr, e));   // primitive ops override the default
                                // compound procedures by subclassing
  }

  Cell (Obj a, Cell b)
  { car = a; cdr = b; }

  public String toString()
  {
    return toString("");
  }
  public String toString(String s)
  {
    if (car == null) { s += "()"; }
    else 
      { s += car.toString(); }

    if (cdr == null)
      { return ( "(" + s + ")"); }
    else
      { return (cdr.toString(s + " ")); }
  }
}