CDDefaults.mesa (part of Chipndale)
Copyright © 1983, 1984 by Xerox Corporation. All rights reserved.
by Christian Jacobi August 11, 1983 11:32 am
last edited by Christian Jacobi October 20, 1984 12:26:06 pm PDT
CDDefaults: CEDAR DEFINITIONS =
BEGIN
--this module serves to decouple low level querries for current layer and width from
--the control panel module, which resides on higher level. All we do here
--is to assume that the control panel module will actually initialize the witdhs.
CurrentLevel: PROC [design: CD.Design] RETURNS [CD.Level];
SetCurrentLevel:
PRIVATE
PROC [design:
REF, level:
CD.Level];
--design can exceptionally be a technology to set default values
--reserve call for Control panel implementor; otherwise it gets fooled
LevelWidth: PROC [design: CD.Design, level: CD.Level] RETURNS [CD.DesignNumber];
SetLevelWidth:
PRIVATE
PROC [design:
REF, level:
CD.Level, width:
CD.DesignNumber];
-- design can exceptionally be a technology to set default values
-- reserve call for Control panel implementor; otherwise it gets fooled
END.