CDDefaults.mesa (part of ChipNDale)
Copyright © 1983, 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, August 11, 1983 11:32 am
last edited by Christian Jacobi, April 11, 1985 3:16:05 pm PST
CDDefaults: CEDAR DEFINITIONS =
BEGIN
--this module serves to decouple low layer querries for current layer and width from
--the control panel module, which resides on higher layer. All we do here
--is to assume that the control panel module will actually initialize the witdhs.
CurrentLayer: PROC [design: CD.Design] RETURNS [CD.Layer];
SetCurrentLayer:
PRIVATE
PROC [design:
REF, layer:
CD.Layer];
--design can exceptionally be a technology to set default values
--reserve call for Control panel implementor; otherwise it gets fooled
LayerWidth: PROC [design: CD.Design, layer: CD.Layer] RETURNS [CD.DesignNumber];
SetLayerWidth:
PRIVATE
PROC [design:
REF, layer:
CD.Layer, width:
CD.DesignNumber];
-- design can exceptionally be a technology to set default values
-- reserve call for Control panel implementor; otherwise it gets fooled
END.