More support Squeak/Pharo interoperability - part 1:
- added ProjectDefinition>>monticelloName
- added MCStXSnapshotTransformation to allow for transforming
snapshot before/after snapshot is written/read. This is required
to transparently hide nasty differences between Smalltalk/X and
Squeak/Pharo package models.
The support is not yet finished, more to come
--- a/MCMczWriter.st Wed May 29 13:46:06 2013 +0200
+++ b/MCMczWriter.st Wed May 29 13:46:15 2013 +0200
@@ -88,7 +88,9 @@
!
serializePackage: aPackage
- ^ '(name ''', aPackage name, ''')'
+ ^ '(name ''', aPackage monticelloName, ''')'
+
+ "Modified: / 29-05-2013 / 02:10:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
serializeVersionInfo: aVersionInfo
@@ -114,8 +116,16 @@
!
writeSnapshot: aSnapshot
- self addString: (self serializeDefinitions: aSnapshot definitions) at: 'snapshot/source.', self snapshotWriterClass extension.
- self addString: (self serializeInBinary: aSnapshot) at: 'snapshot.bin'
+ self addString: (self serializeDefinitions: aSnapshot definitions) at: 'snapshot/source.', self snapshotWriterClass extension.
+ self addString: (self serializeInBinary: aSnapshot) at: 'snapshot.bin'
+
+ "Created: / 29-05-2013 / 12:01:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+writeSnapshot: aSnapshot forVersion: aVersion
+ self writeSnapshot: aSnapshot
+
+ "Created: / 29-05-2013 / 12:04:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
writeVersion: aVersion
@@ -160,14 +170,14 @@
!MCMczWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczWriter.st,v 1.7 2013-03-21 22:47:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczWriter.st,v 1.8 2013-05-29 11:46:15 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczWriter.st,v 1.7 2013-03-21 22:47:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczWriter.st,v 1.8 2013-05-29 11:46:15 vrany Exp $'
!
version_SVN
- ^ '§Id: MCMczWriter.st 7 2010-09-12 07:18:55Z vranyj1 §'
+ ^ '$Id: MCMczWriter.st,v 1.8 2013-05-29 11:46:15 vrany Exp $'
! !