MCSnapshotReader.st
author Claus Gittinger <cg@exept.de>
Tue, 11 Sep 2012 23:28:52 +0200
changeset 682 9257009d853f
parent 313 532c3d563b77
child 795 defcba4fc7a7
permissions -rw-r--r--
category change
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
35
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello' }"
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
MCReader subclass:#MCSnapshotReader
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'definitions'
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
682
9257009d853f category change
Claus Gittinger <cg@exept.de>
parents: 313
diff changeset
     7
	category:'SCM-Monticello-Storing'
35
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCSnapshotReader class methodsFor:'as yet unclassified'!
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
snapshotFromStream: aStream
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
	^ (self on: aStream) snapshot
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
! !
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
!MCSnapshotReader methodsFor:'as yet unclassified'!
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
definitions
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	definitions ifNil: [self loadDefinitions].
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	^ definitions
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
snapshot
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
	^ MCSnapshot fromDefinitions: self definitions
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
! !
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!MCSnapshotReader class methodsFor:'documentation'!
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
version
682
9257009d853f category change
Claus Gittinger <cg@exept.de>
parents: 313
diff changeset
    31
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshotReader.st,v 1.4 2012-09-11 21:28:52 cg Exp $'
207
83708c5fac2a added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 35
diff changeset
    32
!
83708c5fac2a added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 35
diff changeset
    33
83708c5fac2a added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 35
diff changeset
    34
version_CVS
682
9257009d853f category change
Claus Gittinger <cg@exept.de>
parents: 313
diff changeset
    35
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshotReader.st,v 1.4 2012-09-11 21:28:52 cg Exp $'
207
83708c5fac2a added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 35
diff changeset
    36
!
83708c5fac2a added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 35
diff changeset
    37
83708c5fac2a added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 35
diff changeset
    38
version_SVN
83708c5fac2a added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 35
diff changeset
    39
    ^ '§Id: MCSnapshotReader.st 5 2010-08-29 07:30:29Z vranyj1 §'
35
2d464b2efb1d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
! !