DEFINITION MODULE StringTable; (* gf 01.12.88 (pl0) *) FROM Scanner IMPORT SYMBOL, IDENT, STRING; FROM ObjectTable IMPORT Object; (* EXPORT QUALIFIED InsertIdent, IdKind, SameId, EnterKeyWord, InitStringTable; *) PROCEDURE InsertIdent(s: ARRAY OF CHAR) : IDENT; PROCEDURE IdKind(id: IDENT): SYMBOL; PROCEDURE IdString(id: IDENT; VAR s: ARRAY OF CHAR); PROCEDURE SameId(id1, id2: IDENT): BOOLEAN; PROCEDURE EnterKeyWord(s: SYMBOL; name: ARRAY OF CHAR); PROCEDURE InitStringTable; END StringTable.