"{ Package: 'stx:goodies/monticello' }"

Object subclass:#MCStXSnapshotTransformation
	instanceVariableNames:'original transformed'
	classVariableNames:''
	poolDictionaries:''
	category:'SCM-Monticello-St/X Storing'
!

!MCStXSnapshotTransformation class methodsFor:'documentation'!

documentation
"
    An abstract superclass to snapshot tranformations. Used to alter MCSnaphot data
    to hide-out nasty differences between St/X and Squeak/Pharo package model so
    .mcz can be safely passed to from one environment to another without information
    loss. 

    CAUTION: Tricky.

    [author:]
        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]
        MCStXSnapshotPreWriteTransformation
        MCStXSnapshotPostReadTransformation
"
! !

!MCStXSnapshotTransformation class methodsFor:'testing'!

isAbstract
    ^self == MCStXSnapshotTransformation

    "Created: / 29-05-2013 / 11:32:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!MCStXSnapshotTransformation class methodsFor:'transforming'!

transform: anMCSnapshot
    "Returns a transformed **copy** of the original snapshot"

    ^self new transform: anMCSnapshot.

    "Created: / 29-05-2013 / 11:36:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!MCStXSnapshotTransformation methodsFor:'accessing'!

original
    ^ original
!

transformed
    ^ transformed
! !

!MCStXSnapshotTransformation methodsFor:'transforming'!

transform: anMCSnapshot
    "Returns a transformed **copy** of the original snapshot"

    original := anMCSnapshot.
    transformed := original copy.

    "use #copy to allow modifications to definitions collection while
     transforming."
    transformed definitions copy reverseDo:[:definition|
        definition accept: self.        
    ].
    ^transformed.

    "Created: / 29-05-2013 / 11:40:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 31-05-2013 / 00:10:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!MCStXSnapshotTransformation methodsFor:'visiting'!

visitClassDefinition: definition

    "Modified: / 29-05-2013 / 12:07:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

visitClassTraitDefinition: definition

    "Modified: / 29-05-2013 / 12:08:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

visitMetaclassDefinition: definition

    "Modified: / 29-05-2013 / 12:08:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

visitMethodDefinition: definition

    "Modified: / 29-05-2013 / 12:08:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

visitOrganizationDefinition: defintion

    "Modified: / 29-05-2013 / 12:08:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

visitTraitDefinition: definition

    "Modified: / 29-05-2013 / 12:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!MCStXSnapshotTransformation class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotTransformation.st,v 1.2 2013-05-30 23:35:33 vrany Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotTransformation.st,v 1.2 2013-05-30 23:35:33 vrany Exp $'
! !