hg/stx-libscm: git/GitSignature.st@3d98ee6c5c64 (annotated)

8 4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	1	"{ Package: 'stx:libscm/git' }"
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	2
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	3	GitModel subclass:#GitSignature
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	4	instanceVariableNames:'name email timestamp'
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	5	classVariableNames:''
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	6	poolDictionaries:''
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	7	category:'SCM-Git-Model'
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	8	!
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	9
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	10
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	11	!GitSignature methodsFor:'accessing'!
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	12
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	13	email
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	14
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	15	(email isNil and:[handle notNil]) ifTrue:[
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	16	email := handle email copyCStringFromHeap utf8Decoded
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	17	].
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	18	^email
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	19
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	20	"Modified: / 19-09-2012 / 01:56:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	21	!
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	22
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	23	name
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	24
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	25	(name isNil and:[handle notNil]) ifTrue:[
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	26	name := handle name copyCStringFromHeap utf8Decoded
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	27	].
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	28	^name
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	29
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	30	"Modified: / 19-09-2012 / 01:56:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	31	!
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	32
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	33	timestamp
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	34
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	35	(timestamp isNil and:[handle notNil]) ifTrue:[
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	36	timestamp := Timestamp new osTime: handle when time
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	37	].
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	38	^timestamp
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	39
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	40	"Modified: / 19-09-2012 / 01:20:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	41	! !
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	42
10 3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	43	!GitSignature methodsFor:'printing & storing'!
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	44
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	45	printOn:aStream
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	46	"append a printed representation if the receiver to the argument, aStream"
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	47
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	48	aStream
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	49	nextPutAll: self name;
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	50	space;
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	51	nextPut:$<;
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	52	nextPutAll: self email;
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	53	nextPut:$>;
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	54	space.
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	55	"/ self timestamp printOn: aStream
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	56
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	57	"Modified: / 19-09-2012 / 14:05:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	58	! !
3d98ee6c5c64 - GitStructure vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 8 diff changeset	59
8 4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	60	!GitSignature methodsFor:'private-accessing'!
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	61
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	62	getHandleClass
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	63	^GitSignatureStructure
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	64
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	65	"Created: / 19-09-2012 / 01:27:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	66	!
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	67
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	68	setHandle: hndl
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	69	self assert: (hndl isNil or:[hndl class == self getHandleClass]).
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	70	handle := hndl.
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	71
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	72	"Created: / 19-09-2012 / 01:28:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	73	! !
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	74
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	75	!GitSignature class methodsFor:'documentation'!
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	76
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	77	version_SVN
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	78	^ '$Id:: $'
4275f357d3e8 - API fixes, more to come vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	79	! !

author	vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
	Wed, 19 Sep 2012 13:18:31 +0000
changeset 10	3d98ee6c5c64
parent 8	4275f357d3e8
child 16	83e178bfe891
permissions	-rw-r--r--