Rewrite 'BlockClosure' to 'Block' when reading snapshot
This code is actually rubbish - we need two separate porters:
1. an exporter when writing from St/X to monticello/tonel
2. and an importer when reading monticello/tonel into St/X.
"
COPYRIGHT (c) 2021 LabWare
"
"{ Package: 'stx:goodies/monticello' }"
"{ NameSpace: Smalltalk }"
MCStXSnapshotTransformation subclass:#MCStXSnapshotPostReadTransformation
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'SCM-Monticello-St/X Storing'
!
!MCStXSnapshotPostReadTransformation class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 2021 LabWare
"
!
documentation
"
documentation to be added.
[author:]
Jan Vrany <jan.vrany@fit.cvut.cz>
[instance variables:]
[class variables:]
[see also:]
"
! !
!MCStXSnapshotPostReadTransformation methodsFor:'visiting'!
visitMethodDefinition: definition
| source klassMap |
source := definition source asStringWithNativeLineEndings. "/ Make sure source has native line endings
source := source tabsToSpaces. "/ Make sure there are tabs and spaces used for indentation
"/ (as it is norm on Smalltalk/X)
source := source asSingleByteStringIfPossible. "/ Convert to single byte string
definition source: source.
"/ This is actually rubbish - we need distinct exporter / importer!!!!!!
klassMap := original options porter klassMap.
definition className: (klassMap keyAtValue: definition className ifAbsent: [ definition className ]).
"Created: / 24-04-2015 / 16:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 13-09-2021 / 15:49:11 / Jan Vrany <jan.vrany@labware.com>"
! !
!MCStXSnapshotPostReadTransformation class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPostReadTransformation.st,v 1.1 2013-05-29 11:47:15 vrany Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPostReadTransformation.st,v 1.1 2013-05-29 11:47:15 vrany Exp $'
!
version_HG
^ '$Changeset: <not expanded> $'
! !