gef/src/GEFLisp.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE GEFLisp;

IMPORT GEFClass, RefList, SLisp;

PROCEDURE RegisterPO(interp: SLisp.T; name: TEXT; po: GEFClass.ParseObject);
Register in interp a lisp function named name that will create an element of type po

PROCEDURE RegisterFuns(interp: SLisp.T);
Register in interp the GEF functions - get set and delete. Also do ZeusifyInterp.

PROCEDURE ZeusifyInterp(interp: SLisp.T);
Register zeus specific functions for print and backtrace + variants of True and False

PROCEDURE EvalList(interp: SLisp.T; list: RefList.T): RefList.T RAISES {SLisp.Error};
return a list consisting of the evaluated value of each element of list

PROCEDURE QuoteList(list: RefList.T): RefList.T;
return a list consisting of each element of list quoted. i.e. QuoteList((a b c)) yields ((quote a) (quote b) (quote c))

END GEFLisp.