Text preview for : Strings.mesa_Oct77.pdf part of xerox Strings.mesa Oct77 xerox mesa 3.0_1977 listing Strings.mesa_Oct77.pdf
Back to : Strings.mesa_Oct77.pdf | Home
strings.mesa 24-0CT-77 18:44:36 Page 1
-- File: Strings.Mesa Edited by Sandman on July 22. 1977 11:02 AM
DIRECTORY
AltoDefs: FROM "altodefs".
InlineDefs: FROM "inlinedefs".
StringDefs: FROM "stringdefs";
DEFINITIONS FROM AltoDefs, StringDefs;
Strings: DATA EXPORTS StringDefs SHARES StringDefs = PUBLIC
BEGIN
WordsForString: PROCEDURE [nchars: INTEGER] RETURNS [INTEGER] =
BEGIN
RETURN [StringHeaderSize + (nchars+(CharsPerWord-1