DIRECTORYButtons USING[ ButtonProc, Button ],DB USING [DataType, Domain, Relation, Attribute, Segment],Rope USING [ROPE],Labels, ViewerClasses;SchemaNut: CEDAR DEFINITIONS =BEGIN OPEN DB, Rope, ViewerClasses;AttributeInfo: TYPE = REF AttributeInfoRecord;AttributeInfoRecord: TYPE = RECORD[relation: Relation,nameLabel: Buttons.Button,name: Viewer,typeLabel: Labels.Label,type: Viewer,lengthLabel: Labels.Label,length: Viewer,uniqueness: Buttons.Button ];DomainInfo: TYPE = REF DomainInfoRecord;DomainInfoRecord: TYPE = RECORD[name: Rope.ROPE,subTypes: Viewer,superTypes: Viewer,deleted: LIST OF Relation, -- deleted propertiesproperties: LIST OF AttributeInfo];RelationInfo: TYPE = REF RelationInfoRecord;RelationInfoRecord: TYPE = RECORD[name: Rope.ROPE, attributes: LIST OF AttributeInfo];CopyDomainContents: PROCEDURE[oldD, newD: DB.Domain];CopyRelships: PROCEDURE[oldR, newR: DB.Relation];GetRelationsOf: PROC[d: DB.Domain] RETURNS[relations: LIST OF DB.Relation];SubType: PROC[sub, super: DB.Domain] RETURNS[BOOLEAN];GetDataType: PROC[type: ROPE, segment: DB.Segment] RETURNS[dt: DB.DataType];Optimized: PROCEDURE [d: Domain] RETURNS [opt: BOOLEAN];SaveProperty: PROCEDURE [d: Domain, info: AttributeInfo];NewAttribute: Buttons.ButtonProc;AddAttribute: PROC[button: Viewer, segment: DB.Segment, oldList: LIST OF AttributeInfo]RETURNS[newList: LIST OF AttributeInfo];RemoveAttribute: PROCEDURE[button: Viewer, oldList: LIST OF AttributeInfo] RETURNS[newList: LIST OF AttributeInfo, relation: Relation];DisplayAttribute: PROC[r: Relation, a: Attribute, lastV: Viewer, segment: Segment _ NIL] RETURNS[info: AttributeInfo];CheckProperty: PROCEDURE[d: Domain, info: AttributeInfo, deleted: LIST OF Relation] RETURNS[ok: BOOLEAN _ TRUE];Reverse: PROCEDURE[old: LIST OF AttributeInfo] RETURNS[new: LIST OF AttributeInfo];RemoveDeleted: PROCEDURE[d: Domain, info: AttributeInfo, relations: LIST OF Relation] RETURNS[LIST OF Relation];NextName: PROCEDURE[list: ROPE] RETURNS[token, newList: ROPE, ok: BOOLEAN _ TRUE]; END . .  `  SchemaNut.mesaedited by Maxwell,  May 26, 1982 8:18 amLast Edited by: Willie-Sue, February 22, 1983 3:46 pmLast Edited by: Donahue, July 17, 1984 5:32:38 pm PDTLast Edited by: Cattell, July 22, 1983 1:57 pmLast Edited by: Butler, June 26, 1984 4:45:48 pm PDT*******************************************************-- SchemaCopyImpl--copy the elements of a schematacoerce the data on a per-attribute data**************************************************************************************************************--SchemaNutImpl--useful routines*******************************************************Check to see that the property defined by the attribute is legal for the domainRemoves the attribute corresponding to the given attribute information from the list of relations (unless the viewers referred to in the info have been unchanged) Э╩Ы  Ш JШ JЪЬЩJЪЬ(Щ(JЪЬ5Щ5JЪЬ5Щ5JЪЬ.Щ.JЪЬ4Щ4JШ Ъ╧k	Ш	JЪЬЭЬШ$JЪЭЬЭЬ2Ш:JЪЬЭЬЭЬШJШJШ ЧЪЬЭЬЭЬШJЪЭЬШJЪЭЬЭЬШJШ JЪЬЭЬЭЬШ.ЪЬЭЬЭЬШ#JЪЬШJЪЬШJЪЬШJЪЬШJЪЬШJЪЬШJЪЬШЪЬШJШ ЧЧJЪЬЭЬЭЬШ(ЪЬЭЬЭЬШ JЪЬЭЬШJШJШJЪЬ	ЭЬЭЬ╧cШ0JЪЬЭЬЭЬШ#JШ ЧJЪЬЭЬЭЬШ,ЪЬЭЬЭЬЭЬЭЬЭЬШVJШ JШ JШ ЧJЪЬ7Щ7JЩJЪЬЩJЪЬ'Щ'JЪЬ7Щ7JШ JЪ╧nЬЭ	ЬЭЬ	Ш5JШ JЪЯЬЭ	ЬЭЬШ1JШ JШ JЪЬ7Щ7JЩJЪЬЩJЪЬ7Щ7JШ JЪЯЬЭЬЭЬ	ЭЬЭЬЭЬЭЬШKJШ JЪ
ЯЬЭЬЭЬ	ЭЬЭЬШ6JШ JЪЯЬЭЬЭЬЭЬ
ЭЬЭЬШLJШ JЪЯ	ЬЭ	ЬЭЬЭЬШ8JШ JЪЯЬЭ	Ь"Ш9JШ JШ!JШ Ъ
ЯЬЭЬЭЬЭЬЭЬШWJЪЭЬ
ЭЬЭЬШ(JШ ЧЪЯЬЭ	ЬЭЬЭЬШKJЪЭЬ
ЭЬЭЬ$Ш<JШ ЧЪЯЬЭЬ>ЭЬЭЬШvJШ ЧЪЯЬЭ	Ь*ЭЬЭЬЭЬЭЬЭЬШpJЩOJШ ЧJЪЯЬЭ	ЬЭЬЭЬЭЬЭЬЭЬШSJШ ЪЯЬЭ	Ь,ЭЬЭЬЭЬЭЬЭЬШpJЩвJШ ЧJЪЯЬЭ	ЬЭЬЭЬЭЬЭЬЭЬШSJШ JШ JЪЭЬШJШ ЧЧ ЕЧ    0  +  