PrintAC.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last Changed: Maureen Stone March 18, 1985 3:58:23 pm PST
Written by: Maureen Stone March 18, 1985 4:35:29 pm PST
PrintAC:
CEDAR DEFINITIONS = BEGIN
ROPE: TYPE = Rope.ROPE ;
DeviceType: TYPE = {hornet, platemaker, versatec};
Subrange: TYPE = RECORD[first, last: NAT];
AsciiFromChar: PROC[c: CHAR] RETURNS[NAT];
CharFromAscii: PROC[n: NAT] RETURNS[CHAR];
PrintACFile:
PROC[name:
ROPE, device: DeviceType, scale:
REAL]
RETURNS [pd:
ROPE];
Prints all the characters in the file
PrintACChars:
PROC[name:
ROPE, device: DeviceType, scale:
REAL, chars:
ROPE]
RETURNS [pd:
ROPE];
Prints only the chars in the rope
PrintACCodes:
PROC[name:
ROPE, device: DeviceType, scale:
REAL, codes0, codes1, codes2, codes3, codes4: Subrange ← [0,0]]
RETURNS [pd:
ROPE];
Prints only the chars in the subranges
END.