The Trunk: Monticello-mt.632.mcz

Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.632.mcz

==================== Summary ====================

Name: Monticello-mt.632
Author: mt
Time: 12 May 2016, 4:42:54.059309 pm
UUID: 9611f9ba-d971-1e45-be48-9036bfa2738a
Ancestors: Monticello-ul.631

Add custom warnings to support ignoring the loading of empty (diffy) versions via #on:do:.

=============== Diff against Monticello-ul.631 ===============

Item was added:
+ MCEmptyVersion subclass: #MCEmptyDiffyVersion
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Monticello-Storing'!

Item was added:
+ ----- Method: MCEmptyDiffyVersion class>>signal (in category 'exceptionInstantiator') -----
+ signal
+
+ self signal: 'About to serialize an empty diffy version.' !

Item was added:
+ Warning subclass: #MCEmptyVersion
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Monticello-Storing'!

Item was added:
+ ----- Method: MCEmptyVersion class>>signal (in category 'exceptionInstantiator') -----
+ signal
+
+ self signal: 'About to serialize an empty mcz version.'!

Item was changed:
  ----- Method: MCMcdWriter>>writePatch: (in category 'visiting') -----
  writePatch: aPatch
  | old new |
  old := OrderedCollection new.
  new := OrderedCollection new.
  aPatch operations do:
  [ : ea | ea isRemoval ifTrue: [ old add: ea definition ].
  ea isAddition ifTrue: [ new add: ea definition ].
  ea isModification ifTrue:
  [ old add: ea baseDefinition.
  new add: ea definition ] ].
+ (old isEmpty and: [ new isEmpty ]) ifTrue: [ MCEmptyDiffyVersion signal ].
- (old isEmpty and: [ new isEmpty ]) ifTrue: [ Warning signal: 'About to serialize an empty diffy version.' ].
  self
  writeOldDefinitions: old ;
  writeNewDefinitions: new ;
 
  addString: (self serializeInBinary: aPatch)
  at: 'patch.bin'!

Item was changed:
  ----- Method: MCMczWriter>>writeSnapshot: (in category 'visiting') -----
  writeSnapshot: aSnapshot
+ aSnapshot definitions ifEmpty: [ MCEmptyVersion signal ].
- aSnapshot definitions ifEmpty: [ Warning signal: 'About to serialize an empty mcz version.' ].
  self
 
  addString: (self serializeDefinitions: aSnapshot definitions)
  at: 'snapshot/source.' , self snapshotWriterClass extension
  encodedTo: 'utf8' ;
 
  addString: (self serializeInBinary: aSnapshot)
  at: 'snapshot.bin'!