
DIRECTORY
Convert,
Rope,
DictionaryP1313V1,
DictionaryP1313V1Aux;

DictionaryP1313V1AuxImpl: CEDAR PROGRAM
IMPORTS Convert, Rope
EXPORTS DictionaryP1313V1Aux ~ {
OPEN DictionaryP1313V1, DictionaryP1313V1Aux;

ROPE: TYPE ~ Rope.ROPE;

ExposeDictionariesAvailable: PUBLIC PROC [arg: DictionariesAvailable, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, arg.body[i]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeRawDefinition: PUBLIC PROC [arg: RawDefinition, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, ExposeComponent[arg.body[i], (level+1)]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeLooks: PUBLIC PROC [arg: Looks, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, ExposeLooks2[arg.body[i], (level+1)]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeSynonymClass: PUBLIC PROC [arg: SynonymClass, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, arg.body[i]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeComponent: PUBLIC PROC [arg: Component, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
res м Rope.Cat[res, "type~", arg.type, ", "];
res м Rope.Cat[res, "text~", arg.text, ", "];
res м Rope.Cat[res, "defaultFont~", arg.defaultFont, ", "];
res м Rope.Cat[res, "runs~", ExposeRuns[arg.runs, (level+1)], "]"];
};

ExposeRawIntersectionResults: PUBLIC PROC [arg: RawIntersectionResults, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, ExposeRawIntersectionResult[arg.body[i], (level+1)]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeLooks2: PUBLIC PROC [arg: Looks2, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, arg.body[i]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeLanguages: PUBLIC PROC [arg: Languages, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, arg.body[i]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeConjugations: PUBLIC PROC [arg: Conjugations, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, ExposeConjugation[arg.body[i], (level+1)]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeCodes: PUBLIC PROC [arg: Codes, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, arg.body[i]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeSynonymClasses: PUBLIC PROC [arg: SynonymClasses, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, ExposeSynonymClass[arg.body[i], (level+1)]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeRuns: PUBLIC PROC [arg: Runs, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, ExposeRun[arg.body[i], (level+1)]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeIntersectionResult: PUBLIC PROC [arg: IntersectionResult, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
res м Rope.Cat[res, "keys~", ExposeWords[arg.keys, (level+1)], ", "];
res м Rope.Cat[res, "results~", ExposeWords[arg.results, (level+1)], "]"];
};

ExposeRawIntersectionResult: PUBLIC PROC [arg: RawIntersectionResult, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
res м Rope.Cat[res, "keys~", ExposeWords[arg.keys, (level+1)], ", "];
res м Rope.Cat[res, "results~", ExposeIntegers[arg.results, (level+1)], "]"];
};

ExposeIntersectionResults: PUBLIC PROC [arg: IntersectionResults, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, ExposeIntersectionResult[arg.body[i], (level+1)]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeConjugation: PUBLIC PROC [arg: Conjugation, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
res м Rope.Cat[res, "partsOfSpeech~", arg.partsOfSpeech, ", "];
res м Rope.Cat[res, "definition~", arg.definition, ", "];
res м Rope.Cat[res, "status~", arg.status, "]"];
};

ExposeWords: PUBLIC PROC [arg: Words, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, arg.body[i]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeSelection: PUBLIC PROC [arg: Selection, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
res м Rope.Cat[res, "start~", Convert.RopeFromInt[arg.start], ", "];
res м Rope.Cat[res, "length~", Convert.RopeFromInt[arg.length], "]"];
};

ExposeRun: PUBLIC PROC [arg: Run, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
res м Rope.Cat[res, "start~", Convert.RopeFromInt[arg.start], ", "];
res м Rope.Cat[res, "length~", Convert.RopeFromInt[arg.length], ", "];
res м Rope.Cat[res, "font~", arg.font, "]"];
};

ExposeIntegers: PUBLIC PROC [arg: Integers, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
FOR i: CARDINAL IN [0..arg.length) DO
res м Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, Convert.RopeFromInt[arg.body[i]]];
ENDLOOP;
res м Rope.Concat[res, "]"];
};

ExposeDefinition: PUBLIC PROC [arg: Definition, level: NAT] RETURNS [res: ROPE] ~ {
res м "[";
res м Rope.Cat[res, "definition~", arg.definition, ", "];
res м Rope.Cat[res, "runs~", ExposeRuns[arg.runs, (level+1)], "]"];
};

}...

   ┌  
DictionaryP1313V1AuxImpl.Mesa
Copyright ╙ 1989 b, 1992y Xerox Corporation.  All rights reserved.
Generated by BJackson.pa at March 7, 1990 0:56:19 am PST
using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST
 Э╩7  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЪЬЩJЪЬ	╧eЬ6ЩBJЪЬ8Щ8JЪЬ7Щ7IcodeШ ЧЪ╧k	Ш	KШKШKШKШЧKШ Ъ╧nЬЮЬЮШ'KЪЮЬШKЪЮЬШ KЪЮЬ)Ш-KШ KЪЮЬЮЬЮЬШKШ ЪЯЬЮЬЮЬ%ЮЬЮЬЮЬШiKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬШ<KЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШYKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬ+ШXKЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШIKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬ(ШUKЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШWKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬШ<KЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШQKШ
KШ-KШ-KШ;KШCKШЧKШ ЪЯЬЮЬЮЬ&ЮЬЮЬЮЬШkKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬ7ШdKЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШKKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬШ<KЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШQKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬШ<KЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШWKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬ-ШZKЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШIKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬШ<KЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШ[KШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬ.Ш[KЪЮЬШЧKШKШЧKШ ЪЯ
ЬЮЬЮЬЮЬЮЬЮЬШGKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬ%ШRKЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬ"ЮЬЮЬЮЬШcKШ
KШEKШJKШЧKШ ЪЯЬЮЬЮЬ%ЮЬЮЬЮЬШiKШ
KШEKШMKШЧKШ ЪЯЬЮЬЮЬ#ЮЬЮЬЮЬШeKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬ4ШaKЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШUKШ
KШ?KШ9KШ0KШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШIKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬШ<KЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШQKШ
KШDKШEKШЧKШ ЪЯ	ЬЮЬЮЬЮЬЮЬЮЬШEKШ
KШDKШFKШ,KШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШOKШ
ЪЮЬЮЬЮЬЮШ%KЪ	ЬЮЬЮЬЮЬЮЬ$ШQKЪЮЬШЧKШKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШSKШ
KШ9KШCKШЧKШ ЧKШKШ Ч ЕЧ      +  