DIRECTORY Basics, CharDisplays, Commander, CommandTool, DisplayControllers, FS, IO, OrderedSymbolTableRef, Rope, TermProgs;TermProgsImpl: CEDAR PROGRAMIMPORTS CommandTool, FS, IO, OrderedSymbolTableRef, RopeEXPORTS TermProgs = {OPEN TermProgs;TermData: TYPE = REF TermDataRep;TermDataRep: TYPE = RECORD [termName, bcdBase, bcdDir: ROPE _ NIL,term: Term _ NIL];terms: OrderedSymbolTableRef.Table;GetTerm: PUBLIC PROC [name: ROPE, cmd: Commander.Handle] RETURNS [term: Term] = {td: TermData _ NARROW[terms.Lookup[name]];IF td = NIL THEN RETURN [NIL];IF td.term # NIL THEN RETURN [td.term];[] _ CommandTool.DoCommand[commandLine: IO.PutFR["Push %g\nRun %g\nPop",IO.rope[td.bcdDir],IO.rope[td.bcdBase]],parent: cmd];td _ NARROW[terms.Lookup[name]];term _ IF td # NIL THEN td.term ELSE NIL;};RegTerm: PUBLIC PROC [name: ROPE, term: Term] = {td: TermData _ NARROW[terms.Lookup[name]];IF td = NIL THEN {td _ NEW [TermDataRep _ [termName: name]];terms.Insert[td]};td.term _ term;};EnumerateTerms: PUBLIC PROC [consume: PROC [name: ROPE, term: Term]] = {PerTermData: PROC [item: REF ANY] RETURNS [stop: BOOL] = {td: TermData _ NARROW[item];consume[td.termName, td.term];stop _ FALSE};terms.EnumerateIncreasing[PerTermData];};CompareTermDatas: PROC [r1, r2: REF ANY] RETURNS [c: Basics.Comparison] = {Key: PROC [ra: REF ANY] RETURNS [kr: ROPE] = {WITH ra SELECT FROMr: ROPE => kr _ r;td: TermData => kr _ td.termName;ENDCASE => ERROR};c _ Key[r1].Compare[Key[r2], FALSE]};Start: PROC = {ConsumeTerms: PROC [fullFName: ROPE] RETURNS [continue: BOOL] = {termsFName, bcdDir: ROPE;cp: FS.ComponentPositions;fromTerms: IO.STREAM _ NIL;continue _ TRUE;[termsFName, cp] _ FS.ExpandName[fullFName];IF termsFName.Substr[cp.server.start, cp.server.length].Length[] > 0 THEN ERROR;IF termsFName.Substr[cp.dir.start, cp.dir.length].Length[] > 0 THEN ERROR;bcdDir _ Rope.Cat["[]<>",termsFName.Substr[cp.subDirs.start, cp.subDirs.length]];fromTerms _ FS.StreamOpen[termsFName];FOR i: INT _ fromTerms.SkipWhitespace[], fromTerms.SkipWhitespace[] WHILE NOT fromTerms.EndOf[] DOtermName: ROPE _ fromTerms.GetRopeLiteral[];td: TermData _ NEW [TermDataRep _ [termName: termName,bcdBase: termsFName.Substr[cp.base.start, cp.base.length],bcdDir: bcdDir]];terms.Insert[td];ENDLOOP;fromTerms.Close[];};terms _ OrderedSymbolTableRef.CreateTable[CompareTermDatas];FS.EnumerateForNames["Em*.terms!H", ConsumeTerms];};Start[];}.   R  TermProgsImpl.MesaLast Edited by: Spreitzer, April 6, 1985 12:45:23 pm PSTЭ╩╜  Ц"cedar" styleШ IcodeЩJЩ8KШ KЪ╧k	ЬCЭЬЭЬ)Ш{KШ Ъ╨bxЬЭЬЭШKЪЭЬЭЬЭЬШ8KЪЭЬ
ШKШ KЪЬЭЬШKШ KЪЬ
ЭЬЭЬШ!ЪЬЭЬЭЬШKЪЬЭЬЭЬШ&KЪЬЭЬШЧKШ KЪЬ#Ш#KШ Ъ
╧nЬЭЬЭЬЭЬЭЬШQKЪЬЭЬШ*KЪ
ЭЬЭЬЭЬЭЬЭЬШKЪЭЬЭЬЭЬЭЬШ'ШЪЬЭЬШKЪЬШKЪЭЬШKЪЭЬШЧKШЧKЪЬЭЬШ KЪЬЭЬЭЬЭЬ	ЭЬЭЬШ)KШЧKШ ЪЯЬЭЬЭЬЭЬШ1KЪЬЭЬШ*ЪЭЬЭЬЭЬШKЪЬЭЬ"Ш*KШЧKШKШЧKШ Ъ
ЯЬЭЬЭЬЭЬЭЬШHЪЯЬЭЬЭЬЭЬЭЬЭЬШ:KЪЬЭЬШKШKЪЬЭЬШЧKШ'KШЧKШ Ъ
ЯЬЭЬ
ЭЬЭЬЭЬШKЪЯЬЭЬЭЬЭЬЭЬЭЬШ.ЪЭЬЭЬЭШKЪЬЭЬШKШ!KЪЭЬЭЬШЧЧKЪЬЭЬШ%ЧKШ ЪЯЬЭЬШЪ
ЯЬЭЬЭЬЭЬЭЬШAKЪЬЭЬШKЪЬЭЬШKЪЬЭЬЭЬЭЬШKЪЬЭЬШKЪЬЭЬШ,KЪЭЬCЭЬЭЬШPKЪЭЬ=ЭЬЭЬШJЪЬШKЪЬШKЪЬ6Ш6KЪЬШЧKЪЬЭЬШ&Ъ	ЭЬЭЬ:ЭЬЭЬЭШbKЪЬ
ЭЬШ,ЪЬЭЬШ#KЪЬШKЪЬ:Ш:KЪЬШKЪЬШЧKШKЪЭЬШЧKШKШЧKЪЬ<Ш<KЪЭЬ0Ш2KШЧKШ KШKШ KШЧЧ ЕЧ    	о  ╜  