xerox StringDefs.mesa Oct77 free download

File name StringDefs.mesa_Oct77.pdf

stringdefs.mesn 24-0CT-77 18:44:36 Page 1 -- File: StringDefs.Mesa' -- Edited by Sandman on July 13, 1977 7:35 AM DIRECTORY AltoDefs: FROM "altodefs"; DEFINITIONS FROM AltoDefs; StringDefs: DEFINITIONS ~ BEGIN StringHeaderSize: PRIVATE INTEGER a 2; CharsPerWord: INTEGER = AltoDefs.CharsPerWord; charlength: INTEGER = AltoDefs.charlength; CharsPerPage: INTEGER = AltoDefs.CharsPerPage; LogCharsPerPage: INTEGER = AltoDefs.LogCharsPerPage; SubStringDescriptor: TYPE = RECORD [ base: STRING, offset, length: CARDINAL]: SubString: TYPE = POINTER TO SubStringDescriptor; Overflow: SIGNAL: InvalidNumber: SIGNAL; StringBoundsFault: SIGNAL [s:STRING] RETURNS [ns:STRING]; WordsForString: PROCEDURE [nchars:INTEGER] RETURNS [INTEGER]: AppendChar: PROCEDURE [s:STRING, c:CHARACTER]: AppendString: PROCEDURE [to,from:STRING]: EqualString. EquivalentString: PROCEDURE [sl.s2:STRING] RETURNS [BOOLEAN]: AppendSubString: PROCEDURE[to:STRING, from:SubString]: EqualSubStrings, EquivalentSubStrings: PROCEDURE [sl,s2:SubString] RETURNS [BOOLEAN]: DeleteSubString: PROCEDURE [s:SubString]: StringToOecimal: PROCEDURE [STRING] RETURNS [INTEGER]: StringToOctal: PROCEDURE [STRING] RETURNS [UNSPECIFIED]: StringToNumber: PROCEDURE [STRING,CARDINAL] RETURNS [UNSPECIFIED]: -- routines for bcpl strings bcplStringHeaderSize: PRIVATE INTEGER = 1: bytepair: PRIVATE TYPE = MACHINE DEPENDENT RECORD [left,right:CHARACTER]: bcplSTRING: TYPE = PRIVATE MACHINE DEPENDENT RECORD[ length: BYTE. body: CHARACTER, rest: ARRAY [1 .. 127] OF bytepair]: bcplStringOverflow, mesaStringOverflow: SIGNAL: WordsForBcplString: PROCEDURE [n:INTEGER] RETURNS [INTEGER]: MesaToBcplSlring: PROCEDURE [s:STRING, t:POINTER TO bcplSTRING]: BcplToMesaSlring: PROCEDURE [t:POINTER TO bcplSTRING, s:STRING]: END.