
DIRECTORY
TextFind USING [Direction, Target, Subs],
Tioga USING [Node, Location, Event];

TiogaFind: CEDAR DEFINITIONS ~ BEGIN

Node: TYPE ~ Tioga.Node;
Location: TYPE ~ Tioga.Location;
Event: TYPE ~ Tioga.Event;
Direction: TYPE ~ TextFind.Direction; -- {forward, backward}
Target: TYPE ~ TextFind.Target;
Subs: TYPE ~ TextFind.Subs;

TargetFromNode: PROC [node: Node, start: INT м 0, len: INT м INT.LAST,
pattern: BOOL м FALSE] RETURNS [Target];

Match: TYPE ~ {any, word, def, all};

Search: PROC [direction: Direction, loc1, loc2: Location,
target: Target м NIL, case: BOOL м TRUE, match: Match м any,
checkLooks: BOOL м FALSE, looksExact: BOOL м FALSE,
checkComment: BOOL м FALSE, comment: BOOL м FALSE,
checkFormat: BOOL м FALSE, format: ATOM м NIL,
checkStyle: BOOL м FALSE, style: ATOM м NIL,
styleProc: PROC [Node] RETURNS [ATOM] м NIL,
interrupt: REF BOOL м NIL] RETURNS [node: Node м NIL, 
matchStart, matchEnd: INT м 0, subs: Subs м NIL];
LiteralSearch: PROC [direction: Direction, loc1, loc2: Location,
target: Node м NIL, targetStart: INT м 0, targetLen: INT м INT.LAST, 
case: BOOL м TRUE, match: Match м any,
interrupt: REF BOOL м NIL] RETURNS [node: Node м NIL, 
matchStart, matchEnd: INT м 0];
Replace: PROC [dest: Node, destStart: INT м 0, destLen: INT м INT.LAST, 
source: Node, sourceStart: INT м 0, sourceLen: INT м INT.LAST, 
pattern: BOOL м FALSE, subs: Subs м NIL, event: Event м NIL] 
RETURNS [resultStart, resultLen: INT];
ApplyProc: TYPE ~ PROC [node: Node, matchStart, matchEnd: INT, subs: Subs] 
RETURNS [continue, bumpCount: BOOL м FALSE, from, delta: INT м 0];

Apply: PROC [proc: ApplyProc, loc1, loc2: Location,
target: Target м NIL, case: BOOL м TRUE, match: Match м any,
checkLooks: BOOL м FALSE, looksExact: BOOL м FALSE,
checkComment: BOOL м FALSE, comment: BOOL м FALSE,
checkFormat: BOOL м FALSE, format: ATOM м NIL,
checkStyle: BOOL м FALSE, style: ATOM м NIL,
styleProc: PROC [Node] RETURNS [ATOM] м NIL,
interrupt: REF BOOL м NIL] RETURNS [count: INT];
END.
    ╪  
TiogaFind.mesa
Copyright ╙ 1991, 1992 by Xerox Corporation.  All rights reserved.
Doug Wyatt, March 16, 1992 2:15 pm PST

search in direction through [loc1..loc2)

search in direction through [loc1..loc2)


 Э╩ї  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬ7ЩBKЩ&ЧKШ Ъ╧k	Ш	KЪЬ	ЮЬШ)KЪЬЮЬШ$ЧKШ KЪ╧n	ЬЮЬЮЬЮШ$KШ KЪЬЮЬШKЪЬ
ЮЬШ ЪЬЮЬШKЩ ЧKЪЬЮЬ╧cШ<KЪЬЮЬШЪЬЮЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ
ШoKШ ЧЪЬЮЬШ$KШ ЧЪ@ЯЬЮЬ?ЮЬЮЬЮЬ"ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ╧KЩ(KЩ ЧЪЯЬЮЬ=ЮЬЮЬЮЬЮЬЮЬ	ЮЬЮЬ!ЮЬЮЬЮЬЮЬЮЬЮЬШДKЩ(KЩ ЧЪ ЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШэKЩ ЧЪЬЮЬЮЬ$ЮЬЮЬЮЬЮЬЮЬШОKШ ЧЪ<ЯЬЮЬ:ЮЬЮЬЮЬ"ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ	ЮЬШСKЩ ЧKЪЮЬШЧ ЕЧ    ╥  Я  