DIRECTORY Basics, CharDisplays, Commander, CommandTool, DisplayControllers, FamousPath, FS, IO, MessageWindow, RedBlackTree, Rope, TermProgs;TermProgsImpl: CEDAR PROGRAMIMPORTS CommandTool, FamousPath, FS, IO, MessageWindow, RedBlackTree, RopeEXPORTS TermProgs = {OPEN TermProgs;TermData: TYPE = REF TermDataRep;TermDataRep: TYPE = RECORD [termName, bcdBase, bcdDir: ROPE _ NIL,term: Term _ NIL];terms: RedBlackTree.Table ~ RedBlackTree.Create[GetTermKey, CompareTermDatas];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["TerminalRun%g", [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, name]};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 [k, data: REF ANY] RETURNS [c: Basics.Comparison] = {r1: ROPE _ NARROW[k];r2: ROPE _ GetTermKey[data];c _ r1.Compare[r2, FALSE]};GetTermKey: PROC [data: REF ANY] RETURNS [key: ROPE] ={td: TermData _ NARROW[data]; key _ td.termName};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];bcdDir _ termsFName.Substr[start: 0, len: 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, termName !RedBlackTree.DuplicateKey => CONTINUE];ENDLOOP;fromTerms.Close[];};enumErr _ [ok, NIL, NIL];FOR dl: FamousPath.DirectoryList _ FamousPath.Get["TerminalEmulator"], dl.rest WHILE dl#NIL DOFS.EnumerateForNames[FS.ExpandName[Rope.Cat[dl.first, "Em*.terms", SELECT Basics.bitsPerWord FROM 16 => "!H", 32 => NIL, ENDCASE => ERROR]].fullFName, ConsumeTerms !FS.Error => {enumErr _ error; CONTINUE}];IF enumErr.group # ok THEN SayErr[];ENDLOOP;RETURN};SayErr: PROC ~ {MessageWindow.Append[enumErr.explanation]};enumErr: FS.ErrorDesc;Start[];}.   ت  TermProgsImpl.MesaCopyright س 1990 by Xerox Corporation.  All rights reserved.Last Edited by: Spreitzer, May 5, 1985 2:13:01 pm PDTLast tweaked by Mike Spreitzer on July 18, 1990 10:13 am PDT ‌تû  –"cedar" styleک code™K™<J™5K™<—Kک Kڑدk	œO‌œ‌œ/کچKک ڑذbxœ‌œ‌کKڑ‌œ‌œ‌œ#کJKڑ‌œ
کKک Kڑœ‌œکKک Kڑœ
‌œ‌œک!ڑœ‌œ‌œکKڑœ‌œ‌œک&Kڑœ‌œک—Kک KڑœNکNKک ڑ
دnœ‌œ‌œ‌œ‌œکQKڑœ‌œک*Kڑ
‌œ‌œ‌œ‌œ‌œکKڑ‌œ‌œ‌œ‌œک'کKڑœ‌œ,ک;Kک—Kڑœ‌œک Kڑœ‌œ‌œ‌œ	‌œ‌œک)Kک—Kک ڑںœ‌œ‌œ‌œک1Kڑœ‌œک*ڑ‌œ‌œ‌œکKڑœ‌œ"ک*Kڑœک—KکKک—Kک ڑ
ںœ‌œ‌œ‌œ‌œکHڑںœ‌œ‌œ‌œ‌œ‌œک:Kڑœ‌œکKکKڑœ‌œک—Kک'Kک—Kک ڑ
ںœ‌œ‌œ‌œ‌œکLKڑœ‌œ‌œکKڑœ‌œکKڑœ‌œک—Kک ڑں
œ‌œ‌œ‌œ‌œ‌œک6Kڑœ‌œک1—Kک ڑںœ‌œکڑ
ںœ‌œ‌œ‌œ‌œکAKڑœ‌œکKڑœ‌œکKڑœ‌œ‌œ‌œکKڑœ‌œکKڑœ‌œک,KڑœNکNKڑœ‌œک&ڑ	‌œ‌œ:‌œ‌œ‌کbKڑœ
‌œک,ڑœ‌œک#KڑœکKڑœ:ک:KڑœکKڑœک—Kڑœ8‌œکBKڑ‌œک—KکKک—Kڑœ‌œ‌œکڑ‌œL‌œ‌œ‌ک^Kڑ‌œ‌œ,‌œ‌œ‌œ‌œ‌œ‌œ‌œکخKڑ‌œ‌œ
ک$Kڑ‌œک—Kڑ‌œک—Kک ڑںœ‌œکKڑœ+ک+—Kک Kڑœ	‌œکKک KکKک Kک—— …—    
à  ¥  