hg/stx-goodies-monticello: MCVersionInfoWriter.st@582b3a028cbc (annotated)

36 66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/monticello' }"
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	MCWriter subclass:#MCVersionInfoWriter
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'written'
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
701 b9cadb6066e1 category change Claus Gittinger <cg@exept.de> parents: 328 diff changeset	7	category:'SCM-Monticello-Storing'
36 66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	!MCVersionInfoWriter methodsFor:'as yet unclassified'!
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	isWritten: aVersionInfo
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ self written includes: aVersionInfo
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	!
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	writeVersionInfo: aVersionInfo
140 a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	18	(self isWritten: aVersionInfo)
885 b3de4763ece2 class: MCVersionInfoWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 701 diff changeset	19	ifTrue: [^ stream nextPutAll: '(id ', aVersionInfo id printString storeString, ')'].
140 a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	20	stream nextPut: $(.
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	21	#(name message id date time author)
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	22	do: [:sel \|
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	23	stream nextPutAll: sel.
218 aa8bbc475236 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 140 diff changeset	24	stream nextPut: Character space.
aa8bbc475236 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 140 diff changeset	25	((aVersionInfo perform: sel) ifNil: ['']) printString storeOn: stream.
140 a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	26	stream nextPut: $ ].
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	27	stream nextPutAll: 'ancestors ('.
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	28	aVersionInfo ancestors do: [:ea \| self writeVersionInfo: ea].
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	29	stream nextPutAll: ') stepChildren ('.
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	30	aVersionInfo stepChildren do: [:ea \| self writeVersionInfo: ea].
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	31	stream nextPutAll: '))'.
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	32	self wrote: aVersionInfo
218 aa8bbc475236 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 140 diff changeset	33
885 b3de4763ece2 class: MCVersionInfoWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 701 diff changeset	34	"Modified: / 11-06-2013 / 02:55:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
36 66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	!
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	written
218 aa8bbc475236 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 140 diff changeset	38	^ written ifNil: [written := Set new]
36 66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	!
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	wrote: aVersionInfo
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	self written add: aVersionInfo
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	! !
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	!MCVersionInfoWriter class methodsFor:'documentation'!
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	version
885 b3de4763ece2 class: MCVersionInfoWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 701 diff changeset	48	^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.6 2013-06-11 01:58:56 vrany Exp $'
140 a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	49	!
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	50
a09c40ff0e93 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 36 diff changeset	51	version_CVS
885 b3de4763ece2 class: MCVersionInfoWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 701 diff changeset	52	^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfoWriter.st,v 1.6 2013-06-11 01:58:56 vrany Exp $'
218 aa8bbc475236 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 140 diff changeset	53	!
aa8bbc475236 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 140 diff changeset	54
aa8bbc475236 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 140 diff changeset	55	version_SVN
885 b3de4763ece2 class: MCVersionInfoWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 701 diff changeset	56	^ '$Id: MCVersionInfoWriter.st,v 1.6 2013-06-11 01:58:56 vrany Exp $'
36 66bb19317c8c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	! !
885 b3de4763ece2 class: MCVersionInfoWriter Jan Vrany <jan.vrany@fit.cvut.cz> parents: 701 diff changeset	58

author	Claus Gittinger <cg@exept.de>
	Mon, 14 May 2018 02:21:18 +0200
changeset 1048	582b3a028cbc
parent 885	b3de4763ece2
child 985	3bf6c8cfad35
permissions	-rw-r--r--