<> <> <> <> <> <> DIRECTORY Alloc USING [Handle], ConvertUnsafe USING [SubString], Literals, Symbols USING [Type]; LiteralOps: DEFINITIONS = { OPEN Literals; Initialize: PROC [Alloc.Handle]; Finalize: PROC; <> WordIndex: PROC [index: LitIndex] RETURNS [LTIndex] = INLINE { RETURN [NARROW[index, LitIndex.word].lti]}; StringIndex: PROC [index: LitIndex] RETURNS [STIndex] = INLINE { RETURN [NARROW[index, LitIndex.string].sti]}; <> CopyLiteral: PROC [LTId] RETURNS [LitIndex.word]; DescriptorValue: PROC [LTIndex] RETURNS [LitDescriptor]; FindDescriptor: PROC [LONG DESCRIPTOR FOR ARRAY OF WORD] RETURNS [LitIndex.word]; Find: PROC [WORD] RETURNS [LitIndex.word]; ForgetEntries: PROC RETURNS [currentSize: CARDINAL]; Value: PROC [LTIndex] RETURNS [WORD]; <> EnumerateHeapStrings: PROC [PROC [STIndex]]; EnumerateLocalStrings: PROC [STIndex, PROC [MSTIndex]]; EnumerateMasterStrings: PROC [PROC [MSTIndex]]; FindHeapString: PROC [STIndex, Symbols.Type] RETURNS [STIndex]; FindLocalString: PROC [STIndex] RETURNS [STIndex]; FindString: PROC [ConvertUnsafe.SubString] RETURNS [LitIndex.string]; MasterString: PROC [sti: STIndex] RETURNS [MSTIndex]; ResetLocalStrings: PROC RETURNS [STIndex]; StringReference: PROC [STIndex]; StringValue: PROC [STIndex] RETURNS [LONG STRING]; TextType: PROC [STIndex] RETURNS [Symbols.Type]; }.