DIRECTORYRope USING [ROPE],ViewerClasses USING [Viewer, ViewerRec],ViewerOps USING [DestroyViewer];TypeScript: CEDAR DEFINITIONS IMPORTS ViewerOps = BEGINTS: TYPE = ViewerClasses.Viewer;Create: PROC [info: ViewerClasses.ViewerRec, paint: BOOL _ TRUE] RETURNS [ts: TS] ;IsATypescript: PROC [ts: TS] RETURNS [yes: BOOL] = INLINE {RETURN [ts # NIL AND ts.class.flavor = $Typescript] };Destroy: PROC [ts: TS] = INLINE {ViewerOps.DestroyViewer[ts]};Reset: PROC [ts: TS] = INLINE {ts.class.init[ts]};PutChar: PROC [ts: TS, char: CHAR] ;PutRope: PROC [ts: TS, rope: Rope.ROPE] ;PutText: PROC [ts: TS, text: REF READONLY TEXT, start: INTEGER _ 0,stopPlusOne: INTEGER _ LAST[INTEGER]];BackSpace: PROC [ts: TS, count: INT _ 1];ChangeLooks: PROC [ts: TS, look: CHAR];AddLooks: PROC [ts: TS, look: CHAR];RemoveLooks: PROC [ts: TS, look: CHAR];ClearLooks: PROC [ts: TS];GetLooks: PROC [ts: TS] RETURNS [looks: Rope.ROPE];GetChar: PROC [ts: TS] RETURNS [char: CHARACTER] ;CharsAvailable: PROC [ts: TS] RETURNS [BOOLEAN] ;TypeIn: PROC [ts: TS, input: REF ANY] = INLINE{ts.class.notify[ts, LIST[input]]} ;InsertRopeAtFrontOfBuffer: PROC [ts: TS, rope: Rope.ROPE];InsertCharAtFrontOfBuffer: PROC [ts: TS, char: CHARACTER];Flush: PROC [ts: TS];WaitUntilIdle: PROC [ts: TS];WaitUntilCharsAvail: PROC [ts: TS];UserAbort: PROC [ts: TS] RETURNS [abort: BOOLEAN] ;ResetUserAbort: PROC [ts: TS] ;SetUserAbort: PROC [ts: TS] ;END.   J  TypeScript.mesa; 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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Following echoed chars will have the given look.  Look char must be in ['a..'z] or nothing happens'To remove looks previously added by AddLooks.  Look char must be in ['a..'z] or nothing happens'Following echoed chars will not have any looks.'Following echoed chars will not have any looks.'Input from typescriptRETURNS TRUE if no chars waiting.Simulate user typein to a typescriptcan be REF CHARACTER, 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.AbortingЭ╩с  Ц"Cedar" styleШ JЪ╧c<Щ<JЪЬ0Щ0JЪЬ3Щ3Ъ╧k	Ш	JЪЬЮЬЮЬШJЪЬЮЬШ(JЪЬ
ЮЬШ JШ ЧJШ JЪ╨bl
ЬЮЬЮЬЮШ7JШ JЪ╨knЬЮЬШ headЩ#JЪ╧nЬЮЬ(ЮЬЮЬЮЬЮЬШSJШ ЪбЬЮЬЮЬЮЬЮЬЮЬШ;JЪЮЬЮЬЮЬ"Ш6ЧJШ ЪбЬЮЬЮЬЮЬШ>JЪЭ6Щ6ЧJШ ЪбЬЮЬЮЬЮЬШ2JЪЭ:Щ:ЧЧЪЬЩJЪбЬЮЬЮЬЮЬШ$JШ JЪбЬЮЬЮЬЮЬШ)JШ ЪбЬЮЬЮЬЮЬЮЬЮЬ	ЮЬШCJЪЬЮЬЮЬЮЬШ&JШ ЧJШ Ъб	ЬЮЬЮЬ	ЮЬШ)JЪЭ#Щ#ЧJШ ЪбЬЮЬЮЬЮЬШ'JЪЬ'Щ'JЪЬЩJЪЬЩJЩ ЧЪбЬЮЬЮЬЮЬШ$JЪЭbбЩcЧJШ ЪбЬЮЬЮЬЮЬШ'JЪЭ_бЩ`ЧJШ Ъб
ЬЮЬЮЬШJЪЭ/бЩ0ЧJШ Ъ
бЬЮЬЮЬЮЬЮЬШ3JЪЭ/бЩ0ЧЧЪЬЩJЪ
бЬЮЬЮЬЮЬЮ	ЬШ2JШ Ъ
бЬЮЬЮЬЮЬЮЬШ1JЪЭ!Щ!JШ JЪЭ$Щ$ЧJШ ЪбЬЮЬЮЬ	ЮЬЮЬЮШ.JЪЬЮЬШ$JЪЭ;Щ;ЧJШ Ъ	бЬЮЬЮЬЮЬЮШ:JЩ[ЧJШ JЪ	бЬЮЬЮЬЮ	ЬЮШ:ЧЩЪбЬЮЬЮЬШJЪЭОбЩПЧJШ ЪбЬЮЬЮЬШJЪЭrЩrЧJЩ ЪбЬЮЬЮЬШ#JЪЭ<Щ<ЧЧЩJЪ
б	ЬЮЬЮЬЮЬ	ЮЬШ3JШ JЪбЬЮЬЮЬШJШ JЪбЬЮЬЮЬШЧJШ JЪЮЬШJШ JШ Ч ЕЧ    ║  х  