DIRECTORY NSString USING [Character, String], TTY USING [CharStatus, Handle]; NSTTY: CEDAR DEFINITIONS = BEGIN SetLinePosition: PROCEDURE [h: TTY.Handle, position: CARDINAL]; SetPagination: PROCEDURE [h: TTY.Handle, pageLength: CARDINAL] RETURNS [oldPageLength: CARDINAL]; NewSetPagination: PROCEDURE [h: TTY.Handle, pageLength: CARDINAL] RETURNS [oldPageLength: CARDINAL]; GetChar: PROCEDURE [h: TTY.Handle] RETURNS [c: NSString.Character]; GetString: PROCEDURE [h: TTY.Handle, s: NSString.String, t: PROCEDURE [c: NSString.Character] RETURNS [status: TTY.CharStatus]]; GetEditedString: PROCEDURE [h: TTY.Handle, s: NSString.String, t: PROCEDURE [c: NSString.Character] RETURNS [status: TTY.CharStatus]] RETURNS [c: NSString.Character]; PutString: PROCEDURE [h: TTY.Handle, s: NSString.String]; PutLine: PROCEDURE [h: TTY.Handle, s: NSString.String]; PutChar: PROCEDURE [h: TTY.Handle, c: NSString.Character]; END. LOG [Time - Person - Action] 14-Nov-83 15:04:46 - Alfvin - Added PutString, PutLine, PutChar. Took "NS" out of Get commands. Changed SetLinePosition parameter to pageLength: CARDINAL from on: BOOLEAN. 29-Apr-85 15:59:31 - McManis - Changed SetPagination to return oldPageLength (replaces NSTTYExtras.NewSetPagination). DNSTTY.mesa Copyright (C) 1984, 1985, 1986 by Xerox Corporation. All rights reserved. Last edited by McManis: 29-Apr-85 15:59:24 Tim Diebert: December 9, 1986 2:05:31 pm PST Terminal control First column is at position=0 pageLength=0 implies no pagination pageLength=0 implies no pagination NSString input procedures ΚΥ˜codešœ ™ KšœI™IKšœ+™+K™,—K˜šΟk ˜ Kšœ œ˜#Kšœœ˜—K˜KšΠlnœœ œ˜ ˜Kšœ™—˜šΟnœ œœœ˜?Kšœ™—K˜š Ÿ œ œœœœœ˜bKšœ"™"—K˜š Ÿœ œœœœœ˜eKšœ"™"—K˜Kšœ™—˜KšŸœ œœ œ˜CK˜š Ÿ œ œœ! œœ œ˜K˜—šŸœ œœ˜?Kšœ œœ œ ˜FKšœ˜ ——˜KšŸ œ œœ˜9K˜KšŸœ œœ˜7K˜KšŸœ œœ ˜:K˜Kšœ˜K˜—Kšœ˜K˜Kšœ“œ œ˜­K˜uK˜—…—μ