LiteralOps.Mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Satterthwaite, February 18, 1983 9:16 am
Maxwell, July 27, 1983 11:43 am
Paul Rovner, September 7, 1983 5:58 pm
Russ Atkinson (RRA) March 6, 1985 10:06:31 pm PST
DIRECTORY
Alloc USING [Handle],
ConvertUnsafe USING [SubString],
Literals,
Symbols USING [Type];
LiteralOps:
DEFINITIONS = {
OPEN Literals;
Initialize: PROC [Alloc.Handle];
Finalize: PROC;
discrimination
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]};
procedural interface for standard literals
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];
procedural interface for string literals
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];