|##########| |#MAGIC #|CKOLFLFI |#PROJECT #|"" |#PATHS #|"StdProject" |#FLAGS #|xx---x--x---xxx----------------- |#USERSW #|-------------------------------- |#USERMASK#|-------------------------------- |#SWITCHES#|x----xxxxx-xx--- |##########| DEFINITION MODULE Symbols; FROM Exceptions IMPORT RangeViolation; EXCEPTION SymbolsFull : "Too many symbols"; SymDoesNotExist : "Symbol does not exist"; TYPE Symbol = HIDDEN; PROCEDURE AddSym(VAR sym : Symbol;REF name : STRING); PROCEDURE StrToSym(REF name : STRING;clone : BOOLEAN):Symbol; $$OwnHeap:=TRUE PROCEDURE SymToStr(sym : Symbol):STRING; END Symbols.