DIRECTORY CD,CDGenerate,CDGenerateBackdoor,CDGenerateImports,CDImports,RefTab,Rope,SymTab,TerminalIO;CDGenerateImportsImpl: CEDAR PROGRAMIMPORTS CDGenerate, CDGenerateBackdoor, CDImports, RefTab, Rope, SymTab, TerminalIOEXPORTS CDGenerateImports =BEGINdummy: CDGenerate.Table _ CDGenerate.Create[];tableToName: RefTab.Ref _ RefTab.Create[];nameToTable: SymTab.Ref _ SymTab.Create[];UnspecSelector: CDGenerateBackdoor.SelectorProc =BEGINkey _ TerminalIO.RequestRope[" import [design.oject] >"];END;Selector: CDGenerateBackdoor.SelectorProc = {dName: Rope.ROPE = ImporteeName[table];key _ TerminalIO.RequestRope[Rope.Cat[label, " import oject from ", dName, " >"]];};ImportIGenerator: CDGenerateBackdoor.IGeneratorProc =BEGINimporteeName: Rope.ROPE _ ImporteeName[realTable];IF Rope.IsEmpty[importeeName] THEN {TerminalIO.WriteRope["**generate with bad importee name\n"];RETURN};ob _ CDImports.CreateImport[design, key, importeeName];END;UnspecImportIGenerator: CDGenerateBackdoor.IGeneratorProc =BEGINdot: INT = TrailingDot[key];importeeName: Rope.ROPE_NIL;objectName: Rope.ROPE_NIL;table: CDGenerate.Table;IF dot < Rope.Length[key] THEN {objectName _ Rope.Substr[key, dot+1];importeeName _ Rope.Substr[key, 0, dot]};IF ~Rope.IsEmpty[importeeName] AND ~Rope.IsEmpty[objectName] THEN {table _ GetImportTable[importeeName];ob _ CDGenerate.FetchNCall[table, design, objectName];}ELSE TerminalIO.WriteRope["**tried to import with bad syntax\n"];END;TrailingDot: PROC [base: Rope.ROPE] RETURNS [INT] = {len: INT _ Rope.Length[base];pos: INT _ len;WHILE pos > 0 DOSELECT Rope.Fetch[base, pos _ pos - 1] FROM'. => RETURN [pos];'!, '], '>, '/ => EXIT;ENDCASE;ENDLOOP;RETURN [len];};ImporteeName: PUBLIC PROC [table: CDGenerate.Table] RETURNS [r: Rope.ROPE_NIL] =TRUSTED BEGINWITH tableToName.Fetch[LOOPHOLE[table]].val SELECT FROMn: Rope.ROPE => r _ nENDCASE => {table _ CDGenerateBackdoor.Indiretee[table];IF table#NIL THEN RETURN[ImporteeName[table]]};END;GetImportTable: PUBLIC PROC [designName: Rope.ROPE] RETURNS [table: CDGenerate.Table_NIL] =TRUSTED BEGINWITH nameToTable.Fetch[designName].val SELECT FROMt: CDGenerate.Table => RETURN [t]ENDCASE => NULL;table _ CDGenerateBackdoor.CreateIndirect[onTopOf: dummy, iGenerator: ImportIGenerator, selector: Selector, cache: TRUE, flushThrough: FALSE, clearThrough: FALSE, registerThrough: FALSE];[] _ tableToName.Insert[LOOPHOLE[table], designName];IF nameToTable.Insert[designName, LOOPHOLE[table]] THEN RETURN;RETURN [GetImportTable[designName]] --indirection for concurrency problemsEND;DoImport: PROC [importer: CD.Design, importeeName: Rope.ROPE] =BEGINdone: BOOL _ FALSE;done _ CDImports.Load[into: importer, importeeName: importeeName, overload: interactive, allowConflicts: interactive];TerminalIO.WriteRope[IF done THEN "import done\n" ELSE "import not done\n"];END;unspecImportTable: CDGenerate.Table _ CDGenerateBackdoor.CreateIndirect[onTopOf: dummy, iGenerator: UnspecImportIGenerator, selector: UnspecSelector];TRUSTED {[] _ SymTab.Insert[CDGenerateBackdoor.publicTables, "IMPORT", LOOPHOLE[unspecImportTable]];};END.   ü  CDGenerateImportsImpl.mesa (part of ChipNDale)Copyright c 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi, June 5, 1985 8:02:35 pm PDTLast Edited by Christian Jacobi, February 21, 1986 7:13:24 pm PST--position of last dotÊW  ˜ codešœ.™.Kšœ
Ïmœ1™<Kšœ0™0KšœA™A—K˜ šÏk	œ˜
Kšžœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ
˜
Kšœ˜Kšœ˜Kšœ˜Kšœ˜K˜ —šÐblœžœž˜$KšžœL˜SKšžœ˜—Kšž˜K˜ Kšœ.˜.Kšœ*˜*Kšœ*˜*K˜ šÏbœ#˜1Kšž˜Kšœ9˜9Kšžœ˜K˜ —š œ%˜-Kšœžœ˜'KšœR˜RKšœ˜K˜ —š œ%˜5Kšž˜Kšœžœ˜2šžœžœ˜$Kšœ<˜<Kšž˜Kšœ˜—Kšœ7˜7Kšžœ˜—K˜ š œ%˜;Kšž˜Kšœžœ˜Kšœžœžœ˜Kšœžœžœ˜Kšœ˜šžœžœ˜ Kšœ%˜%Kšœ'˜'K˜—šžœžœžœ˜CKšœ%˜%Kšœ6˜6K˜—Kšžœ=˜AKšžœ˜—K˜ š
Ïnœžœžœžœžœ˜5Kšœ™Kšœžœ˜Kšœžœ˜šžœ	ž˜šžœ!ž˜+Kšœžœ˜Kšœžœ˜Kšžœ˜—Kšžœ˜—Kšžœ˜K˜K˜ —š¡œžœžœžœ
žœžœ˜PKšžœž˜šžœžœžœž˜7Kšœžœ	˜šžœ˜Kšœ,˜,Kšžœžœžœžœ˜-Kšœ˜——Kšžœ˜—K˜ š
¡œžœžœžœžœ˜[Kšžœž˜šžœ#žœž˜2Kšœžœ˜!Kšžœžœ˜—šœX˜XKš	œžœžœžœžœ˜c—Kšœžœ˜5Kšžœ žœ	žœžœ˜?KšžœÏc&˜JKšžœ˜—K˜ š¡œžœžœžœ˜?Kšž˜Kšœžœžœ˜Kšœv˜vKšœžœžœžœ˜LKšžœ˜—K˜ šœH˜HKšœ˜Kšœ$˜$Kšœ˜Kšœ˜—šžœ˜	Kšœ>žœ˜[Kšœ˜—Kšžœ˜K˜ — …—    p  Ã  