
DIRECTORY
Rope USING [ROPE],
Tioga USING [Looks, CharSet, PropList],
ViewerClasses USING [Viewer, ViewerRec];

TypeScript: CEDAR DEFINITIONS
= BEGIN
TS: TYPE = ViewerClasses.Viewer;

Create: PROC [info: ViewerClasses.ViewerRec, paint: BOOL м TRUE] RETURNS [ts: TS];

IsATypeScript: PROC [ts: TS] RETURNS [yes: BOOL];

Destroy: PROC [ts: TS];

Reset: PROC [ts: TS];
PutChar: PROC [ts: TS, char: CHAR];

PutRope: PROC [ts: TS, rope: Rope.ROPE];

PutText: PROC [ts: TS, text: REF READONLY TEXT, 
start: NAT м 0, stopPlusOne: NAT м LAST[NAT]];

BackSpace: PROC [ts: TS, count: INT м 1];

ChangeLooks: PROC [ts: TS, look: CHAR];
Looks: TYPE ~ Tioga.Looks;
CharSet: TYPE ~ Tioga.CharSet;
PropList: TYPE ~ Tioga.PropList;

ModifyLooks: PROC [ts: TS, remove, add: Looks];
SetLooks: PROC [ts: TS, looks: Looks];
GetLooks: PROC [ts: TS] RETURNS [Looks];

SetCharSet: PROC [ts: TS, charSet: CharSet];

GetCharSet: PROC [ts: TS] RETURNS [CharSet];

SetCharProps: PROC [ts: TS, charProps: PropList];

GetCharProps: PROC [ts: TS] RETURNS [PropList];

GetChar: PROC [ts: TS] RETURNS [char: CHAR];

CharsAvailable: PROC [ts: TS] RETURNS [BOOL];

TypeIn: PROC [ts: TS, input: REF ANY];

InsertRopeAtFrontOfBuffer: PROC [ts: TS, rope: Rope.ROPE];

InsertCharAtFrontOfBuffer: PROC [ts: TS, char: CHAR];

Flush: PROC [ts: TS];

WaitUntilIdle: PROC [ts: TS];
WaitUntilCharsAvail: PROC [ts: TS];
Destroyed: ERROR [ts: TS];

END.
  └  
TypeScript.mesa
Copyright ╙ 1985, 1986, 1991 by Xerox Corporation.  All rights reserved.
Edited by Paxton on January 4, 1983 2:31 pm
Last Edited by: Maxwell, January 5, 1983 9:57 am
Last Edited by: Teitelman, January 10, 1983 1:09 pm
Michael Plass, March 21, 1985 3:03:37 pm PST
Doug Wyatt, October 22, 1991 5:13 pm PDT
Creating and destroying typescripts
Destroys typescript viewer and related data structures
Erases all the typescript text data and clears the screen.

Output to typescript
Delete character(s) from end of ts.
look char in 'a..'z means add that look
in 'A..'Z means remove
blank means remove all looks


Input from typescript
RETURNS TRUE if no chars waiting.
Simulate user typein to a typescript
can be REF CHAR, ROPE, REF TEXT, or ATOM (be careful).
This will be the next thing read, even if there are characters waiting in the input buffer.
Synchronization
This won't return until echo buffer has been emptied and all chars inserted in ts. (done automatically by BackSpace, AddLooks, and ClearLooks)'
This won't return until input buffer has been emptied and input process is waiting in GetChar for more characters.

This won't return until a character is available to GetChar.

Errors
 Э╩ё  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ=ЩHKЪЬ+Щ+KЪЬ0Щ0KЪЬ3Щ3KЩ,KЩ(ЧKШ Ъ╧k	Ш	KЪЬЮЬЮЬШKЪЬЮЬШ'KЪЬЮЬШ(ЧKШ KЪ╧n
ЬЮЬЮШKЪЬЮШheadЩ#KЪЮЬЮЬШ KШ ЪЯЬЮЬ(ЮЬЮЬЮЬЮЬШRKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШ1KШ ЧЪЯЬЮЬЮЬШKЪЬ6Щ6KШ ЧЪЯЬЮЬЮЬШKЪЬ:Щ:KЩ ЧЧЪЬЩЪЯЬЮЬЮЬЮЬШ#KШ ЧЪЯЬЮЬЮЬЮЬШ(KШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬШ_KШ ЧЪЯ	ЬЮЬЮЬ	ЮЬШ)KЪЬ#Щ#KШ ЧЪЯЬЮЬЮЬЮЬШ'KЪЬ'Щ'KЪЬЩKЪЬЩKЩ ЧKЪЬЮЬШKЪЬ	ЮЬШKЪЬ
ЮЬШ KШ ЪЯЬЮЬЮЬШ/KЩ ЧЪЯЬЮЬЮЬШ&KЩ ЧЪЯЬЮЬЮЬЮЬ	Ш(KШ ЧЪЯ
ЬЮЬЮЬШ,KШ ЧЪЯ
ЬЮЬЮЬЮЬШ,KШ ЧЪЯЬЮЬЮЬШ1KШ ЧЪЯЬЮЬЮЬЮЬШ/KШ ЧЧЪЬЩЪ
ЯЬЮЬЮЬЮЬЮЬШ,KШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШ-KЪЬ!Щ!KШ ЧЪ
ЯЬЮЬЮЬ	ЮЬЮЬШ&KЪЬ$Щ$KЪЬ6Щ6KШ ЧЪЯЬЮЬЮЬЮЬШ:KЩ[KШ ЧЪЯЬЮЬЮЬЮЬШ5KШ ЧЧЩЪЯЬЮЬЮЬШKЪЬПЩПKШ ЧЪЯЬЮЬЮЬШKЪЬrЩrKЩ ЧЪЯЬЮЬЮЬШ#KЪЬ<Щ<KЩ ЧЧЩKЪЯ	ЬЮЬЮЬШЧKШ KЪЮЬШЧ ЕЧ    А  1  