org.jatha.eval
Class LispEvaluator

java.lang.Object
  org.jatha.eval.LispEvaluator

public class LispEvaluator
extends Object

A LISP eval mechanism based on the SECD abstract machine described in "The Architecture of Symbolic Computers" by Peter Kogge. ISBN 0-07-035596-7 25 Jan 1997 (mh)

Field Summary

private Jatha

f_lisp

Constructor Summary

LispEvaluator(Jatha lisp)

Method Summary

LispValue	cons(LispValue theCar, LispValue theCdr)
void	init()
LispValue	intern(LispString symbolString)
LispValue	intern(LispString symbolString, LispPackage pkg)
LispValue	intern(LispString symbolString, LispValue symbol)
LispValue	intern(LispString symbolString, LispValue symbol, LispPackage pkg)
LispValue	intern(String str)
LispValue	intern(String str, LispPackage pkg)
LispValue	nreverse(LispValue thing)
LispValue	reverse(LispValue thing)
LispValue	setf_symbol_function(LispValue symbol, LispValue value)
LispValue	setf_symbol_plist(LispValue symbol, LispValue value)
LispValue	setf_symbol_value(LispValue symbol, LispValue value)

Methods inherited from class java.lang.Object

clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Field Detail

f_lisp

private Jatha f_lisp

Constructor Detail

LispEvaluator

public LispEvaluator(Jatha lisp)

Method Detail

init

public void init()

cons

public LispValue cons(LispValue theCar,
                      LispValue theCdr)

intern

public LispValue intern(LispString symbolString)

intern

public LispValue intern(LispString symbolString,
                        LispPackage pkg)

intern

public LispValue intern(LispString symbolString,
                        LispValue symbol)

intern

public LispValue intern(LispString symbolString,
                        LispValue symbol,
                        LispPackage pkg)

intern

public LispValue intern(String str)

intern

public LispValue intern(String str,
                        LispPackage pkg)

nreverse

public LispValue nreverse(LispValue thing)

reverse

public LispValue reverse(LispValue thing)

setf_symbol_function

public LispValue setf_symbol_function(LispValue symbol,
                                      LispValue value)

setf_symbol_plist

public LispValue setf_symbol_plist(LispValue symbol,
                                   LispValue value)

setf_symbol_value

public LispValue setf_symbol_value(LispValue symbol,
                                   LispValue value)