DIRECTORY Rope, TextFind, TextReplace;

TextReplaceImpl: CEDAR PROGRAM
IMPORTS Rope, TextFind
EXPORTS TextReplace = { OPEN TextReplace;


Apply: PUBLIC PROC [s: RopeMap, r: ROPE] RETURNS [mapped: ROPE] =
{mapped м s.Map[s.data, r]};

id: PUBLIC RopeMap м NEW [RopeMapRep м [Id, NIL]];

Id: PROC [data: REF ANY, name: ROPE] RETURNS [value: ROPE] =
{value м name};

addBrackets: PUBLIC RopeMap м NEW [RopeMapRep м [AddBrackets, NIL]];

AddBrackets: PROC [data: REF ANY, name: ROPE] RETURNS [value: ROPE] =
{value м Rope.Cat["<", name, ">"]};

Constant: PUBLIC PROC [result: ROPE] RETURNS [rm: RopeMap] = {
rm м NEW [RopeMapRep м [MapToConstant, result]];
};

MapToConstant: PROC [data: REF ANY, arg: ROPE] RETURNS [result: ROPE] = {
constant: ROPE = NARROW[data];
result м constant;
};

Catted: TYPE = REF CattedRep;
CattedRep: TYPE = RECORD [first, second: RopeMap];

Cat: PUBLIC PROC [first, second: RopeMap] RETURNS [catted: RopeMap] = {
catted м NEW [RopeMapRep м [
MapCatted,
NEW [CattedRep м [first, second]] ]];
};

MapCatted: PROC [data: REF ANY, name: ROPE] RETURNS [value: ROPE] = {
c: Catted м NARROW[data];
mid: ROPE м c.first.Map[c.first.data, name];
value м c.second.Map[c.second.data, mid];
};

Layered: TYPE = REF LayeredRep;
LayeredRep: TYPE = RECORD [first, later: RopeMap];

Layer: PUBLIC PROC [first, later: RopeMap] RETURNS [layered: RopeMap] = {
layered м NEW [RopeMapRep м [
MapLayered,
NEW [LayeredRep м [first, later]] ]];
};

MapLayered: PROC [data: REF ANY, name: ROPE] RETURNS [value: ROPE] = {
l: Layered м NARROW[data];
value м l.first.Map[l.first.data, name];
IF value = NIL THEN value м l.later.Map[l.later.data, name];
};

ProcessedPairList: TYPE = LIST OF ProcessedPair;
ProcessedPair: TYPE = RECORD [
target: TextFind.Target,
case: BOOL,
word: BOOL,
replace: ROPE,
pattern: BOOL
];

RopeMapFromPairs: PUBLIC PROC [pl: PairList] RETURNS [s: RopeMap] = {
ppl: ProcessedPairList м Process[pl];
s м NEW [RopeMapRep м [MapPairs, ppl]];
};

Process: PROC [pl: PairList] RETURNS [ppl: ProcessedPairList] = {
IF pl = NIL THEN RETURN [NIL];
ppl м CONS[
[
target: TextFind.TargetFromRope[rope: pl.first.match, pattern: NOT pl.first.literal],
case: NOT pl.first.ignoreCase,
word: pl.first.word,
replace: pl.first.replace,
pattern: NOT pl.first.literal
],
Process[pl.rest]];
};

MapPairs: PROC [data: REF ANY, name: ROPE] RETURNS [value: ROPE] = {
value м name;
FOR ppl: ProcessedPairList м NARROW[data], ppl.rest WHILE ppl # NIL DO
pp: ProcessedPair ~ ppl.first;
start: INT м 0;
DO
found: BOOL; selStart, selEnd: INT; subs: TextFind.Subs;
[found: found, selStart: selStart, selEnd: selEnd, subs: subs] м TextFind.RopeSearch[
direction: forward, target: pp.target, rope: value, start: start, 
case: pp.case, word: pp.word];
IF found THEN {
rem: INT ~ Rope.Length[value]-selEnd;
value м TextFind.RopeReplace[rope: value, start: selStart, len: selEnd-selStart, 
with: pp.replace, pattern: pp.pattern, subs: subs];
start м Rope.Length[value]-rem;
}
ELSE EXIT;
ENDLOOP;
ENDLOOP;
};


}.
  z  
TextReplaceImpl.mesa
Copyright ╙ 1986, 1992 by Xerox Corporation.  All rights reserved.
Last Edited by: Spreitzer, January 10, 1986 10:16:52 pm PST
Last tweaked by Mike Spreitzer on August 18, 1988 12:39:00 pm PDT
Doug Wyatt, September 25, 1992 2:00 pm PDT

SyntaxError: PUBLIC ERROR = CODE;

NoMapping: PUBLIC SIGNAL [rm: RopeMap, from: ROPE] RETURNS [to: ROPE] = CODE;
Э╩й  Ц"cedarcode" styleХNewlineDelimiter
Щ codeЩKЩBJЩ;KЩAKЩ*KЩ ЧKЪ╧k	ЬШ&KШ KЪ╧nЬЭЬЭШKЪЭЬШЪЭЬЭЬШ)KШ KЪЮЬЭЬЭЬЭЬЩ!KЩ KЪЮ	ЬЭЬЭЬЭЬЭЬЭЬЭЬЩMKШ ЪЮЬЭЬЭЬЭЬЭЬ
ЭЬШAKШЧKШ KЪЬЭЬЭЬЭЬШ2KШ ЪЮЬЭЬЭЬЭЬЭЬЭЬ	ЭЬШ<KШЧKШ KЪЬЭЬЭЬЭЬШDKШ ЪЮЬЭЬЭЬЭЬЭЬЭЬ	ЭЬШEKШ#ЧKШ Ъ
ЮЬЭЬЭЬ
ЭЬЭЬШ>KЪЬЭЬ(Ш0KШЧKШ ЪЮЬЭЬЭЬЭЬЭЬЭЬ
ЭЬШIKЪЬ
ЭЬЭЬШKШKШЧKШ KЪЬЭЬЭЬШKЪЬЭЬЭЬШ2KШ ЪЮЬЭЬЭЬЭЬШGЪЬ	ЭЬШKШ
KЪЭЬ"Ш%ЧKШЧKШ ЪЮ	ЬЭЬЭЬЭЬЭЬЭЬ	ЭЬШEKЪЬЭЬШKЪЬЭЬ#Ш,KШ)KШЧKШ KЪЬ	ЭЬЭЬШKЪЬЭЬЭЬШ2KШ ЪЮЬЭЬЭЬЭЬШIЪЬ
ЭЬШKШKЪЭЬ"Ш%ЧKШЧKШ ЪЮ
ЬЭЬЭЬЭЬЭЬЭЬ	ЭЬШFKЪЬЭЬШKШ(KЪЭЬ	ЭЬЭЬ)Ш<KШЧKШ KЪЬЭЬЭЬЭЬШ0ЪЬЭЬЭЬШKШKЪЬЭЬШKЪЬЭЬШKЪЬ	ЭЬШKЪЬ	ЭШKШЧKШ ЪЮЬЭЬЭЬЭЬШEKШ%KЪЬЭЬ Ш'KШЧKШ ЪЮЬЭЬЭЬШAKЪ
ЭЬЭЬЭЬЭЬЭЬШЪЬЭЬШШKЪЬ?ЭЬШUKЪЬЭЬЬШKШKШKЪЬ	ЭЬШKШЧKШЧKШЧKШ ЪЮЬЭЬЭЬЭЬЭЬЭЬ	ЭЬШDKШЪ	ЭЬЭЬЭЬЭЬЭШFKШKЪЬЭЬШЪЭШKЪЬЭЬЭЬШ8KШ╖ЪЭЬЭЬШKЪЬЬЭЬШ%KШЕKШKШЧKЪЭЬЭЬШ
KЪЭЬШЧKЪЭЬШЧKШЧKШ KШ KШЧЧ ЕЧ    ╝  ▀  