<<>> <> <> <> <> DIRECTORY Symbols USING [SEIndex], SymbolTable USING [Base]; TypeStrings: DEFINITIONS = { Code: TYPE = MACHINE DEPENDENT { definition(200b), name, record, structure, union, array, sequence, enumerated, subrange, opaque, countedZone, uncountedZone, list, relativeRef, ref, refAny, pointer, longPointer, descriptor, longDescriptor, --address-- port, process, program, type, nil, any, boolean, unspecified, globalFrame, localFrame, procedure, signal, error, --transfer-- cardinal, integer, character, longInteger, longCardinal, --basic -- string, stringBody, text, atomRec, mds, ordered, packed, readOnly, -- options real, paint, leftParen, rightParen, safeProc, safe, var, longUnspecified, code, base, dcard, dint, dreal }; <> <> <> <> TypeString: TYPE = LONG STRING; Create: PROC [base: SymbolTable.Base, sei: Symbols.SEIndex, z: UNCOUNTED ZONE] RETURNS [TypeString]; <> <> <> }.