DIRECTORY CD,CDDirectory,CDGenerate,CDGenerateBackdoor,CDGenerateImports,CDImports,FileNames,RefTab,Rope,SymTab,TerminalIO;CDGenerateImportsImpl: CEDAR PROGRAMIMPORTS CDDirectory, CDGenerate, CDGenerateBackdoor, CDImports, FileNames, RefTab, Rope, SymTab, TerminalIOEXPORTS CDGenerateImportsSHARES CDImports =BEGINDirectorySelector: CDGenerateBackdoor.SelectorProc = {key _ TerminalIO.RequestRope[" from directory>"];};DirectoryIndirector: CDGenerateBackdoor.IGeneratorProc = {IF Rope.IsEmpty[key] THEN key _ TerminalIO.RequestRope["type name >"];RETURN  [CDDirectory.Fetch[design, key].object]};dummy: CDGenerate.Context _ CDGenerate.Create[];contextToName: RefTab.Ref _ RefTab.Create[];nameToContext: SymTab.Ref _ SymTab.Create[];UnspecSelector: CDGenerateBackdoor.SelectorProc = {key _ TerminalIO.RequestRope[" import [design.object] >"];};Selector: CDGenerateBackdoor.SelectorProc = {dName: Rope.ROPE = ImporteeName[context];key _ TerminalIO.RequestRope[Rope.Cat[label, " import object from ", dName, " >"]];};ImportIGenerator: CDGenerateBackdoor.IGeneratorProc = {importeeName: Rope.ROPE _ ImporteeName[realContext];IF Rope.IsEmpty[importeeName] THEN {TerminalIO.PutRope["**generate with bad importee name\n"];RETURN};IF Rope.Equal[importeeName, design.name] THEN {ob _ CDDirectory.Fetch[design, key].object;RETURN};[] _ CDImports.GetCache[design, importeeName, true];ob _ CDImports.CreateImportFromCache[design, key, importeeName];};UnspecImportIGenerator: CDGenerateBackdoor.IGeneratorProc = {dotIndex: INT; importeeName, objectName: Rope.ROPE _ NIL;name: Rope.ROPE _ FileNames.GetShortName[key];dotIndex _ Rope.Index[name, 0, "."];  --the first dot! multiple dots belong to the object nameIF dotIndex<Rope.Length[name] THEN {objectName _ Rope.Substr[name, dotIndex+1];importeeName _ Rope.Substr[name, 0, dotIndex]};IF ~Rope.IsEmpty[importeeName] AND ~Rope.IsEmpty[objectName] THEN {context: CDGenerate.Context _ GetImportContext[importeeName];ob _ CDGenerate.FetchNCall[context, design, objectName];}ELSE TerminalIO.PutRopes["**tried to import with bad syntax;  [", key, "]\n"];};ImporteeName: PUBLIC PROC [context: CDGenerate.Context] RETURNS [r: Rope.ROPE_NIL] = {WITH contextToName.Fetch[context].val SELECT FROMn: Rope.ROPE => r _ nENDCASE => {context _ CDGenerateBackdoor.Indiretee[context];IF context#NIL THEN RETURN[ImporteeName[context]]};};GetImportContext: PUBLIC PROC [designName: Rope.ROPE] RETURNS [context: CDGenerate.Context_NIL] = {WITH nameToContext.Fetch[designName].val SELECT FROMt: CDGenerate.Context => RETURN [t]ENDCASE => NULL;context _ CDGenerateBackdoor.CreateIndirect[onTopOf: dummy, iGenerator: ImportIGenerator, selector: Selector, cache: TRUE, flushThrough: FALSE, clearThrough: FALSE, registerThrough: FALSE];[] _ contextToName.Insert[context, designName];IF nameToContext.Insert[designName, context] THEN RETURN;RETURN [GetImportContext[designName]] --indirection for concurrency problems};fromDirectory: CDGenerate.Context _ CDGenerateBackdoor.CreateIndirect[onTopOf: CDGenerate.Create[], iGenerator: DirectoryIndirector, selector: DirectorySelector];unspecImportContext: CDGenerate.Context _ CDGenerateBackdoor.CreateIndirect[onTopOf: dummy, iGenerator: UnspecImportIGenerator, selector: UnspecSelector];[] _ SymTab.Insert[CDGenerateBackdoor.publicContexts, "IMPORT", unspecImportContext];[] _ SymTab.Insert[CDGenerateBackdoor.publicContexts, "DIRECTORY", fromDirectory];END.     CDGenerateImportsImpl.mesa (part of ChipNDale)Copyright c 1985, 1987 by Xerox Corporation.  All rights reserved.Created by Christian Jacobi, June 5, 1985 8:02:35 pm PDTLast edited by: Christian Jacobi, February 10, 1987 3:22:51 pm PST--directory--importsÊÂ  ˜ codešœ.™.Kšœ
Ïmœ7™BKšœ8™8K™B—K˜ šÏk	œ˜
Kšžœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ
˜
Kšœ
˜
Kšœ˜Kšœ˜Kšœ˜Kšœ˜K˜ —šÏnœžœž˜$Kšžœd˜kKšžœ˜Kšžœ˜—Kšž˜K˜ KšÏb™K™ šÐbnœ%˜6Kšœ1˜1Kšœ˜K˜ —š¡œ'˜:Kšžœžœ-˜FKšžœ)˜/Kšœ˜—K™ Kš 	™	K˜ Kšœ0˜0Kšœ,˜,Kšœ,˜,K˜ š œ%˜3Kšœ:˜:Kšœ˜K˜ —š œ%˜-Kšœžœ˜)KšœS˜SKšœ˜K˜ —š¡œ'˜7Kšœžœ˜4šžœžœ˜$Kšœ:˜:Kšž˜Kšœ˜—šžœ'žœ˜/Kšœ+˜+Kšž˜K˜—Kšœ4˜4Kšœ@˜@Kšœ˜—K˜ š œ'˜=Kšœ
žœ!žœžœ˜9Kšœžœ˜.Kšœ&Ïc8˜^šžœžœ˜$Kšœ+˜+Kšœ-˜-K˜—šžœžœžœ˜CKšœ=˜=Kšœ8˜8K˜—KšžœJ˜NKšœ˜—K˜ šŸœžœžœžœ
žœžœ˜Všžœ"žœž˜1Kšœžœ	˜šžœ˜Kšœ0˜0Kšžœ	žœžœžœ˜1Kšœ˜——Kšœ˜—K˜ š
Ÿœžœžœžœžœ˜cšžœ%žœž˜4Kšœžœ˜#Kšžœžœ˜—šœZ˜ZKš	œžœžœžœžœ˜c—Kšœ/˜/Kšžœ+žœžœ˜9Kšžœ ¢&˜LKšœ˜—K˜ Kšœ¦˜¦šœL˜LKšœ˜Kšœ$˜$Kšœ˜Kšœ˜—KšœU˜UKšœR˜RKšžœ˜K˜ — …—    Ä  ’  