<> <> <> <> <> DIRECTORY Ascii USING [ControlC], Basics USING [BITAND], NSString USING [Character, String], <> <> <> NSTTY USING [], <> <> TTY USING [CharStatus, -- EchoClass, -- GetChar, GetEditedString, Handle, -- LineOverflow, -- PutChar, PutLine, PutString, RemoveCharacter, Rubout], TTYExtras USING [ --accents, bs, controlW, controlX, -- cr, -- DEL, ff, -- GetByte, -- Handle, lf, lowerAlpha, -- Object, -- numbers, -- PutByte, space--, star, upperAlpha --]; <> NSTTYBImpl: MONITOR LOCKS h USING h: Handle IMPORTS Basics, TTY, TTYExtras EXPORTS TTY, NSTTY, TTYExtras = BEGIN <> Handle: PUBLIC TYPE = REF Object; Object: PUBLIC TYPE = TTYExtras.Object; ESCAPE: BYTE = 377B; NSGetChar: PUBLIC SAFE PROCEDURE [h: Handle] RETURNS [c: NSString.Character] = TRUSTED BEGIN c _ [0, LOOPHOLE[TTY.GetChar[h]]]; <> <> <> <> < {>> <> < {>> <> <> <> <> < {>> <> <> <> <> <> <> <> <> <> <<};>> <> <> <> < {entry _ @h.dataFile.inputTable[Get7BitByte[h]]; Convert[]};>> < {>> <> <> <> < {>> <> <> <> <> <> < {>> <> < {h.inputState _ idle; c _ h.inputChar; found _ TRUE};>> <> <> END; NSGetString: PUBLIC SAFE PROCEDURE [h: Handle, s: NSString.String, t: PROCEDURE [c: NSString.Character] RETURNS [status: TTY.CharStatus]] = TRUSTED { <> myT: SAFE PROC [char: CHAR] RETURNS [status: TTY.CharStatus] = TRUSTED { RETURN[t[[0, LOOPHOLE[char]]]]}; TTY.PutChar[h, TTY.GetEditedString[h, s, myT]]}; NSGetEditedString: PUBLIC SAFE PROCEDURE [h: Handle, s: NSString.String, t: PROCEDURE [c: NSString.Character] RETURNS [status: TTY.CharStatus]] RETURNS [c: NSString.Character] = TRUSTED BEGIN myT: SAFE PROC [char: CHAR] RETURNS [status: TTY.CharStatus] = TRUSTED { RETURN[t[[0, LOOPHOLE[c]]]]}; RETURN[[0, LOOPHOLE[TTY.GetEditedString[h, s, myT]]]]; <> <> <> <> <> < PutISOChar[h, iso];>> < PutISOChar[h, TTYExtras.star];>> <> <> <> <> <> <> <> <> <<[byte, accentType] _ Translate[h.outputChar, c, h.dataFile];>> <> <> < {>> <> <> <> < {>> <> <> < {>> <> <> <> < EchoPutChar[byte];>> < NULL};>> <> <> <> <> <> <> <<0 => NULL;>> <<1 => {DeletePutChar[]; s.length _ 0};>> <>> <> <> <> <> <<[byte, accentType] _ Translate[>> <> <<0, s.bytes[s.length - 1]], h.dataFile];>> <> < {DeletePutChar[]; s.length _ s.length - 1};>> < {DeletePutChar[]; s.length _ s.length - 2};>> < {DeletePutChar[]; s.length _ s.length - 2};>> < {DeletePutChar[]; s.length _ s.length - 2};>> < NULL>> <> <> <> <> <> <> <> <<(SELECT s.bytes[s.length - 1] FROM>> <> < TRUE,>> < FALSE) DO DeleteChar[] ENDLOOP;>> <> <> <> < 0 THEN>> <> < NSPutString[h, s­];>> < {>> <> <> < NULL;>> <> <> <> <> < SIGNAL TTY.Rubout;>> < DeleteChar[];>> < DeleteWord[];>> < DeleteInput[];>> <>> <> < EXIT;>> < {>> <> <= s.maxlength THEN [] _ SIGNAL TTY.LineOverflow[NIL];>> <> <> <> < NULL;>> <> <> END; NSPutString: PUBLIC SAFE PROCEDURE [h: Handle, s: NSString.String] = TRUSTED BEGIN TTY.PutString[h, s]; <> <> <> <> <> <> <> <> END; NSPutLine: PUBLIC SAFE PROCEDURE [h: Handle, s: NSString.String] = TRUSTED { TTY.PutLine[h, s]; <> <> }; NSPutChar: PUBLIC SAFE PROCEDURE [h: Handle, c: NSString.Character] = TRUSTED BEGIN TTY.PutChar[h, LOOPHOLE[c.code]]; <> <> <> <> <> <> <> <> <> <> <> <> <<[byte, accentType] _ Translate[h.outputChar, c, h.dataFile];>> <> <> < {>> <> <> <> < {>> <> < {>> <> <> <> < PutISOChar[h, byte];>> < NULL;>> <> END; <> < {h.outputState _ idle; h.inputState _ idle};>> <> <> <> <> < FeedLine[h];>> < NextPage[h];>> < NULL;>> < BackwardClear[h, 1];>> < {>> <> <> <> <> <> <> <> <> <> <> <<(accentP.accentedChar[index].code = NSTranslate.emptySlot) DO>> <> <> <> <> <> <> <> <> <> <<(accentP.accentedChar[index].code = NSTranslate.emptySlot) DO>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> NewPage: PUBLIC SAFE PROCEDURE [h: Handle] = TRUSTED {h.line _ 0}; NextPage: PROCEDURE [h: Handle] = TRUSTED BEGIN h.line _ 0; CarriageReturn[h]; END; ForwardClear: PROCEDURE [h: Handle, n: CARDINAL] = BEGIN THROUGH [1..n] WHILE (h.col < h.width) DO TTYExtras.PutByte[h, TTYExtras.space]; h.col _ h.col + 1 ENDLOOP END; BackwardClear: PROCEDURE [h: Handle, n: CARDINAL] = BEGIN n _ IF n > h.col THEN h.col ELSE n; h.col _ h.col - n; TTY.RemoveCharacter[h, n]; END; NextLine: PROCEDURE [h: Handle] = BEGIN SELECT TRUE FROM h.line + 1 = h.pageLength => BEGIN <> IF TTYExtras.GetByte[h] = Ascii.ControlC.ORD THEN {NextPage[h]; SIGNAL TTY.Rubout} ELSE NextPage[h]; END; h.pageLength = 0 => RETURN; ENDCASE => h.line _ h.line + 1; END; Get7BitByte: PROC [h: Handle] RETURNS [c: BYTE] = { RETURN[Basics.BITAND[TTYExtras.GetByte[h], 177B]]}; <> <> <> <<>> CarriageReturn: PROCEDURE [h: Handle] = BEGIN TTYExtras.PutByte[h, TTYExtras.cr]; h.col _ 0 END; FeedLine: PROCEDURE [h: Handle] = BEGIN CarriageReturn[h]; NextLine[h]; END; SetLinePosition: PUBLIC SAFE PROCEDURE [h: Handle, position: CARDINAL] = TRUSTED { IF position >= h.col THEN ForwardClear[h, position - h.col] ELSE {FeedLine[h]; ForwardClear[h, position]}}; <> <> <> SetLineWidth: PUBLIC SAFE PROCEDURE [h: Handle, n: CARDINAL] = TRUSTED {h.width _ n}; SetPagination: PUBLIC ENTRY SAFE PROCEDURE [h: Handle, pageLength: CARDINAL] RETURNS [oldPageLength: CARDINAL] = TRUSTED { oldPageLength _ h.pageLength; h.pageLength _ pageLength}; <<[] _ NSTranslate.LoadTables[sneak];>> END. LOG 9-Nov-83 16:19:04 - Alfvin - Created. 15-Nov-83 11:52:41 - Saund - Execute now passes the default string as argument to plug in proc. 30-Nov-83 20:36:37 - Saund - Added Put* 20-Jan-84 13:59:37 - Saund - PutString = TTYExtras.PutNSString. 23-Jan-84 13:59:32 - Saund - Implemented SetLinePosition and SetPagination. 5-Apr-84 18:03:00 - Wu - A clean Start 24-Apr-84 15:03:05 - Alfvin - Removed LOOPHOLES, eliminated superfluous MONITOR 25-Apr-84 15:28:50 - Alfvin - Fix screwup in last edit 11-May-84 13:18:19 - Knguyen - Fix AR#7364: TextInput: GetText no default as stars when echoStars=TRUE. Fix is in proc. NSGetEditedString 16-May-84 0:04:14 - Alfvin - Don't maintain newline at all because it was not being maintained properly. 21-May-84 15:31:06 - KNguyen - Fix proc. NextLine for Saund. This causes the Async. msgs to no longer display the "(More)" prompt. 31-May-84 1:20:07 - Saund - Fix Ars 8200 and 8100: No more CTL C at (More) and (More) multinationalized. 7-Jun-84 20:04:21 - Alfvin - Truncate to 7 bit chars in NSGetChar. 8-Jun-84 11:02:24 - Saund - Put the check for CTRL C back in NextLine: 18-Jun-84 16:21:11 - Saund - Remove insertion of CRLF in 80 col lines. 25-Jun-84 15:15:41 - Saund - NSPutLine does a SetLinePosition[] instead of FeedLine 1-Aug-84 14:24:25 - Saund - Fix AR: 10321 NSTTY: Non-CharSet0 chars are displayed as character set 0. 9-May-85 13:42:16 - McManis - Changed SetPagination to return oldPageLength (like old NSTTYExtras.NewSetPagination). 4-Jun-85 17:32:20 - McManis - Converted to XMessage. This dependency should be removed ASAP. 21-Aug-85 8:42:34 - McManis - Replaced SCSMsgDomains with SCSMsgs.