DIRECTORYAtom USING [PropList],Rope USING [ROPE],TextEdit USING [RefTextNode],TextLooks USING [Looks, noLooks],TextNode USING [Location, Ref],ViewerClasses USING [Viewer];TEditDocument: CEDAR DEFINITIONS= BEGINROPE: TYPE ~ Rope.ROPE;TEditDocumentData: TYPE = REF TEditDocumentDataRec;TEditDocumentDataRec: TYPE = RECORD [text: TextEdit.RefTextNode, -- the underlying text datalineTable: LineTable, -- displayed line informationclipLevel: ClipCount _ maxClip, -- controls level clipping for this viewerunused: [0..4) _ 0,scrollGlitch: BOOL _ FALSE, -- if true then try to glitch when scrollscrollSelectionId: SelectionId _ primary, -- scroll to make this visiblefixStart: BOOL _ FALSE, -- fix it so it starts after CR or at start of nodereadOnly: BOOL _ FALSE, -- user edits inhibitedmovedOut: BOOL _ FALSE, -- have moved nodes out of document since last screen refreshmovedIn: BOOL _ FALSE, -- have moved nodes into document since last screen refreshdirty: BOOL _ FALSE, -- haven't refreshed since last editinvisible: BOOL _ FALSE, -- refresh won't happen because iconic or obscured or ...tsInfo: TSInfo _ NIL, -- special procs when in typescript modelockProcess: PROCESS _ NIL, -- process holding lock on this data structurewho: ROPE,  -- who locked the tddlock: [0..64) _ 0, -- locking for put/get/paints etc.interrupt: [0..64) _ 0, -- number of processes waiting for lock and asking for interruptscroll: Scroll _ no,  -- controls scrolling after refreshcommentFilter: CommentFilter _ includeComments, -- controls showing of comment nodespropList: Atom.PropList _ NIL];SelectionId: TYPE = {primary, secondary, feedback};ClipCount: TYPE = [0..32);maxClip: ClipCount = 31; -- use 5 bits for thisCommentFilter: TYPE = { includeComments, excludeComments, onlyComments };Scroll: TYPE = { no, endofdoc, endofsel };LineTable: TYPE = REF LineTableRec;LineTableRec: TYPE = RECORD [lastLine: INTEGER _ 0,lastY: INTEGER _ 0,lines: SEQUENCE maxLines: INTEGER OF LineRec];LineRec: TYPE = MACHINE DEPENDENT RECORD [ -- 9 wordspos: TextNode.Location, -- first character in linevalid: BOOL _ TRUE, -- metrics valid for this lineend: LineBreak _ eon, -- reason for line breaknChars: [0..8192) _ 0, -- number of characters in lineyOffset: INTEGER _ 0, -- baseline from top of viewerxOffset: INTEGER _ 0, -- line offset from left edge of viewerwidth: INTEGER _ 0, -- width of displayed bitsascent: [0..512) _ 0, -- dy above baselinedescent: [0..128) _ 0 -- dy below baseline];LineBreak: TYPE = { eon, cr, wrap } _ eon;ttyChars: CARDINAL = 128;TSInfo: TYPE = REF TSInfoRec;TSInfoRec: TYPE = RECORD [iIncr: CONDITION, -- raised whenever add to inputlooks: TextLooks.Looks _ TextLooks.noLooks, -- for PutCharinputRope: ROPE, -- for overflow from input arrayinputLoc: INT _ 0, -- index of next char to read from ropeinput: PACKED ARRAY [0..ttyChars) OF CHAR,iQp, oQp: [0..ttyChars) _ 0, -- read and write indexes for input bufferintParam: INT, -- parameter from TIPwaitingInGetChar: BOOL _ FALSE,abort: BOOL _ FALSE];Selection: TYPE = REF SelectionRec;SelectionRec: TYPE = RECORD [viewer: ViewerClasses.Viewer,data: TEditDocumentData,start: SelectionPoint,end: SelectionPoint,caretX, caretY: INTEGER,granularity: SelectionGrain,punctuation: PunctuationPosition, -- whether spaces are part of the selectioninsertion: BeforeAfter,looks: TextLooks.Looks _ TextLooks.noLooks, -- caret lookspendingDelete: BOOL _ FALSE -- Laurel-style pending deletion of selection];SelectionPoint: TYPE = RECORD [pos: TextNode.Location,line: INTEGER _ 0,x: INTEGER _ 0,y: INTEGER _ 0,w: INTEGER _ 0,h: INTEGER _ 0,clipped: BOOL _ FALSE,metricsValid: BOOL _ FALSE];SelectionGrain: TYPE = {point, char, word, node, branch} _ char;PunctuationPosition: TYPE = {none, leading, trailing} _ none;BeforeAfter: TYPE = {before, after} _ before;fatalTiogaError: ERROR;SpinAndLock: PROC [tdd: TEditDocumentData, who: ROPE, interrupt, defer: BOOL _ FALSE] RETURNS [ok: BOOL];Unlock: PROC [tdd: TEditDocumentData];RecordViewerForRoot: PROC [viewer: ViewerClasses.Viewer, root: TextNode.Ref];ForgetViewer: PROC [viewer: ViewerClasses.Viewer];GetViewerForRoot: PROC [root: TextNode.Ref] RETURNS [viewer: ViewerClasses.Viewer];END.   ^  TEditDocument.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Edited by Paxton on December 28, 1982 2:07 pmDoug Wyatt, March 3, 1985 1:02:08 pm PSTdisplay refresh will terminate if notices interrupt > 0size of input buffer for TS; overflow goes to ropeif caller is not the original locking process, waits for other process to unlock firstif interrupt is true, increments tdd.interrupt to ask repaint of viewer to terminateif defer is true and interrupt is true and tdd.interrupt > 0, returns false without locking.give up the lockremove this from the root => viewer mappingÊf  ˜ codešœ™Kšœ
Ïmœ1™<Kšœ-™-K™(—K˜ šÏk	˜	Kšœžœ˜Kšœžœžœ˜Kšœ	žœ˜Kšœ
žœ˜!Kšœ	žœ˜Kšœžœ
˜—K˜ KšÐblœžœž˜ Kšœž˜K˜ Kšžœžœžœ˜K˜ Kšœžœžœ˜3šœžœžœ˜%KšœÏc˜7Kšœ ˜3Kšœ  *˜JKšœ˜Kšœžœžœ )˜EKšœ* ˜HKšœ
žœžœ 3˜KKšœ
žœžœ ˜/Kšœ
žœžœ =˜UKšœ	žœžœ ;˜RKšœžœžœ $˜9Kšœžœžœ 9˜RKšœžœ (˜>Kšœžœžœ .˜JKšœžœ ˜!Kšœ "˜5šœ @˜XKšœ7™7—Kšœ #˜9Kšœ0 $˜TKšœž˜K˜K˜ —Kšœžœ"˜3K˜ Kšœžœ˜Kšœ ˜/K˜ Kšœžœ6˜IKšœžœ˜*K˜ Kšœžœžœ˜#šœžœžœ˜Kšœ
žœ˜Kšœžœ˜Kšœžœžœžœ˜,K˜K˜ —š
œ	žœžœž	œžœ 
˜5Kšœ ˜2Kšœžœžœ ˜2Kšœ ˜.Kšœ ˜6Kšœ	žœ ˜4Kšœ	žœ '˜=Kšœžœ ˜.Kšœ ˜*Kšœ ˜*K˜K˜ —Kšœžœ˜*K˜ šœ
žœ˜Kšœ2™2—K˜ Kšœžœžœ˜šœžœžœ˜Kšœž	œ ˜1Kšœ, ˜:Kšœžœ  ˜1Kšœ
žœ '˜:Kš	œžœžœžœžœ˜*Kšœ *˜GKšœ
žœ ˜$Kšœžœžœ˜Kšœžœž˜K˜K˜ —Kšœžœžœ˜#šœžœžœ˜K˜K˜K˜K˜Kšœžœ˜K˜Kšœ" +˜MK˜Kšœ, ˜:Kšœžœžœ -˜IK˜K˜ —šœžœžœ˜K˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœ	žœžœ˜Kšœžœž˜Kšœ˜K˜ —Kšœžœ,˜@K˜ Kšœžœ$˜=K˜ Kšœžœ˜-K˜ Kšœžœ˜K˜ šÏnœžœžœžœžœžœžœ˜jKšœV™VKšœT™TKšœ\™\—K˜ š¡œžœ˜&Kšœ™—K˜ Kš¡œžœ4˜MK˜ š¡œžœ ˜2Kšœ+™+K˜ —š¡œžœžœ ˜SK˜ —K˜ Kšžœ˜— …—    Î  ’  