CDImportsBackdoor.mesa (part of ChipNDale)
Copyright © 1984, 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, September 4, 1984 3:34:34 pm PDT
Last edited by: Christian Jacobi, January 12, 1987 11:50:22 am PST
DIRECTORY
CD, CDImports, Rope;
CDImportsBackdoor: CEDAR DEFINITIONS =
BEGIN
OneLevelIncludedCopy:
PROC [impObject:
CD.Object, design:
CD.Design]
RETURNS [
CD.Object];
--impObject: is imported and bound (from any importee) .
--design: design where impObject is imported to, and where the result lies.
--Warning: by importing the childs of impObject you might create imports of
--internal sub-objects which the designer really had not thought of exporting...
--Mostly, (but not always), usage of this procedure is a bad idea.
LoadDesign:
PROC [into:
CD.Design, importeeName: Rope.
ROPE, overload, allowConflicts: CDImports.BoolOrInteractive←true, useCache:
BOOL←
FALSE]
RETURNS [done:
BOOL];
--Load or Reloads an imported design importeeName.
--Creates an import entry into the import list if necessary.
--(importeeName is fetched using CDRemote's FetchDesign)
--Procedure talks to TerminalIO.
--overload: allows reloading if importeeName is already loaded.
--useCache: Takes file from CDRemote-cache.
--allowConflicts; If conflicts are disabled, objects with (size) conflict will not be loaded.
END.