DIRECTORYDB USING [Domain, Entity, Relation, Relship],IO USING [STREAM],Rope USING [ROPE];NutDump: CEDAR DEFINITIONS =BEGIN OPEN DB, IO, Rope;DumpToFile: PROC[ segment: ROPE, fileName: ROPE _ NIL, dl: LIST OF Domain _ NIL,  rl: LIST OF Relation _ NIL,  complement: BOOLEAN _ FALSE, entityCentric: BOOLEAN _ FALSE];DumpAll: PROC[segment: ROPE, fileName: ROPE _ NIL] =INLINE {DumpToFile[segment, fileName, NIL, NIL, TRUE]};LoadFromFile: PROC[dumpFile: ROPE _ NIL, DBFile: ROPE _ NIL];OpenFile: PROC[fileName: ROPE] RETURNS[STREAM];CloseFile: PROC[fileStream: STREAM];WriteSchema: PROC[s: STREAM, dl: LIST OF Domain, rl: LIST OF Relation]; WriteDomain: PROC[s: STREAM, d: Domain, refs: BOOL_ FALSE]; -- writes entities in domainWriteEntity: PROC[s: STREAM, e: Entity]; -- writes a particular entityWriteRelation: PROC[s: STREAM, r: Relation]; -- writes all the relships of the relationWriteRelship: PROC[s: STREAM, r: Relship]; -- writes a particular relshipEND . . .  ┬  File: NutDump.mesaImplemented by: NutDumpImpl, NutLoadImplLast edited by: John Maxwell on: June 3, 1982 9:36 amWillie-Sue on: February 22, 1983 3:46 pmDonahue on: January 20, 1983 9:58 amLast Edited by: Cattell, April 28, 1983 2:28 pm**************************************************for gross dumping of the data base**************************************************dumps only the domains and relations given.  If complement = TRUE, dumps everything but the domains and relations given.  If entityCentric = TRUE, dumps entities with relships reffing them in first attributeLoads whatever is in the dumpFile into the DBFile; uses same dump format as DumpToFile.  The segment name is given in the dumpFile; if the DBFile does not exist, it is created**************************************************for selective dumping of the data base**************************************************you may use a different type of stream if you choose Э╩K  Ш JШ JЪЬЩJЪЬ(Щ(JЪЬ5Щ5JЪЬ(Щ(JЪЬ$Щ$JЪЬ/Щ/JШ Ъ╧k	Ш	JЪЭЬЭЬ%Ш-JЪЭЬЭЬЭЬШJЪЬЭЬЭЬШJШ ЧЪЬ	ЭЬЭЬШJЪЭЬЭЬЭЬЭЬШJШ ЧJЪЬ2Щ2JЪЬ"Щ"ЪЬ2Щ2JШ Ъ╧n
ЬЭЬЭЬЭЬЭЬЭЬЭЬ
ЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШмJЪЬ╧Щ╧ЧJШ Ъ
ЮЬЭЬ
ЭЬЭЬЭЬШ4JЪЭЬ ЭЬЭЬЭЬШ7JШ ЧЪЮЬЭЬЭЬЭЬ
ЭЬЭЬШ=JЪЬпЩпЧЧJШ JЪЬ2Щ2JЪЬ&Щ&JЪЬ2Щ2Ш JЪ
ЮЬЭЬЭЬЭЬЭЬШ/ЪЮ	ЬЭЬЭЬШ$JЪЬ4Щ4JШ ЧJЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШHJЪЮЬЭЬЭЬЭЬЭЬ╧cШXJЪЮЬЭЬЭЬЯШFJЪЮЬЭЬЭЬЯ*ШWJЪЮЬЭЬЭЬЯШIJШ ЧJЪЭЬШ	JШ JШ JШ JШ Ч ЕЧ    ц  	є  