DIRECTORYPrincOps,TextLooks;TextLooksSupport: CEDAR DEFINITIONSSHARES TextLooks= BEGIN OPEN TextLooks;BaseRun: PROC[x: BaseRuns, index: Offset, lower: NAT _ 0, upper: NAT _ LAST[NAT]]RETURNS [NAT];ExtractRuns: PROC[base: BaseRuns, ref: Runs, start, len: Offset, index: NAT _ 0]RETURNS [NAT]; -- value is next indexCountRunsAfterChanges: PROC[ref: Runs, start, len: Offset, limit: Offset _ MaxOffset,remove, add: Looks, merge: BOOLEAN _ FALSE, firstLooks: Looks _ noLooks]RETURNS [count: NAT, nonempty: BOOLEAN, lastLooks: Looks];ExtractRunsAfterChanges: PROC[base: BaseRuns, ref: Runs, remove, add: Looks,start: Offset, len: Offset, index: NAT _ 0]RETURNS [NAT]; -- value is next indexCopyRuns: PROC [to, from: BaseRuns, toLoc, fromLoc, nRuns: NAT];MakeRun: PROC [len: Offset] RETURNS [new: Runs];TryFlatSubstr: PROC[base: Runs, start, len: Offset, limit: Offset _ FlatMax]RETURNS [BaseRuns];TryFlatConcat: PROC[base, rest: Runs, baseLen, restLen: Offset]RETURNS [new: BaseRuns];TryFlatConcatRest: PROC[base, rest: Runs, baseLen, restLen, numRuns: Offset,merge: BOOLEAN, looks: Looks]RETURNS [BaseRuns];ModifyLooks: PROC [old, remove, add: Looks] RETURNS [Looks];MergeChanges: PROC [oldrem, oldadd, rem, add: Looks]RETURNS [newrem, newadd: Looks]; LooksAND: PROC [looks1, looks2: Looks] RETURNS [Looks];LooksOR: PROC [looks1, looks2: Looks] RETURNS [Looks];LooksNOT: PROC [looks: Looks] RETURNS [Looks];TbaseSize: PROC [x: BaseRuns] RETURNS [Offset] = INLINE {RETURN [IF x.length=0 THEN 0 ELSE x[x.length-1].after] };InsertRun: PROC [base: BaseRuns, len: Offset, looks: Looks, index: NAT] RETURNS [NAT];NewBase: PROC [runs: NAT] RETURNS [BaseRuns];FindBaseRuns: PROC [x: BaseRuns, start, len: Offset]RETURNS [first, last: NAT];BaseRunLengths: PROC [x: BaseRuns, start, len: Offset, first, last: NAT]RETURNS [firstLen, lastLen: Offset];Pair: TYPE = MACHINE DEPENDENT RECORD [low,high: CARDINAL];Short: PROC [x: Offset] RETURNS [NAT] = TRUSTED MACHINE CODE {PrincOps.zLI1; PrincOps.zBNDCK; PrincOps.zPOP; PrincOps.zLINI; PrincOps.zBNDCK};CheckLongSub: PROC [x,y: Offset] RETURNS [Offset] = INLINE {RETURN [NonNeg[x-y]] };NonNeg: PROC [x: Offset] RETURNS [Offset] = TRUSTED MACHINE CODE {PrincOps.zLINI; PrincOps.zBNDCK};StartTextLooksSupport: PROC; -- for initialization onlyEND.   Ю  TextLooksSupport.mesa  -  Internal support interface for TextLookswritten by Bill Paxton, February 1981last edit by Bill Paxton, December 22, 1981 1:57 pmlast edit by Maxwell, January 5, 1983 12:48 pmlast edit by Russ Atkinson, July 22, 1983 10:03 am-- support procedures-- modified looks are == (old & ~remove) v add--	((lks & ~oldrem) v oldadd) & ~rem) v add ==--		lks & ~(oldrem v rem)) v ((oldadd & ~rem) v add--	thus, newrem _ oldrem v rem, newadd _ (oldadd & ~rem) v add-- compute looks1 & looks2-- compute looks1 v looks2-- compute ~looks-- inlines-- miscellaneous support routines-- quick range check and shortening-- ***** Initialization Э╩ф  Ш Ъ╧cBЩBJЪЭ%Щ%JЪЭ3Щ3JЪЭЬ"Щ.JЪЭЬ&Щ2ЧJШ Ъ╧k	Ш	JЪЬ	Ш	JШ
ЧJШ ЪЬЮЬЮШ#JЪЮЬ
ШJЪЬЮЬЮЬШЧJШ JЪЭЩJШ Ъ╧nЬЮШJЪ	Ь$ЮЬЮЬЮЬЮЬШDJЪЮЬЮЬШJШ ЧЪЯЬЮШJЪЬ7ЮЬШ?JЪЮЬЮЬЭШ%JШ ЧЪЯЬЮШШ:JЪЬЮЬЮЬШHЧJЪЮЬ	ЮЬЮЬШ:JШ ЧЪЯЬЮШШ/JЪЬ#ЮЬШ+ЧJЪЮЬЮЬЭШ%JШ ЧJЪЯЬЮЬ-ЮЬШ@JШ JЪЯЬЮЬЮЬШ0JШ ЪЯЬЮШJШ9JЪЮЬШJШ ЧЪЯЬЮШJШ,JЪЮЬШJШ ЧЪЯЬЮШШ5JЪЬЮЬШЧJЪЮЬШJШ ЧЪЯЬЮЬЮЬ	Ш<JЪЭ.Щ.JШ ЧЪЯЬЮЬ"Ш4JЪЮЬШ!ЧJЪЭ.Щ.JЪЭ3Щ3JЪЭ>Щ>JШ ЪЯЬЮЬЮЬ	Ш7JЪЭЩJШ ЧЪЯЬЮЬЮЬ	Ш6JЪЭЩJШ ЧЪЯЬЮЬЮЬ	Ш.JЪЭЩJШ ЧJЪЭ
Щ
JШ ЪЯ	ЬЮЬЮЬЮЬШ9JЪЮЬЮЬЮЬЮЬШ9JШ ЧJЪ
Я	ЬЮЬ4ЮЬЮЬЮЬШVJШ JЪЯЬЮЬЮЬЮЬШ-JШ ЪЯЬЮЬ"Ш4JЪЮЬЮЬШJШ ЧЪЯЬЮЬ0ЮЬШHJЪЮЬШ$JШ ЧJЪЭ!Щ!JШ JЪЬЮЬЮЬЮ	ЬЮЬЮЬШ;JШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШ>JЪЭ#Щ#JЪЬPШPJШ ЧЪЯЬЮЬЮЬЮЬШ<JЪЮЬШJШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШBJЪЬ!Ш!JШ ЧJЪЭЩJШ JЪЯЬЮЬЭШ7JШ JЪЮЬШJШ Ч ЕЧ    	>  └  