hg/stx-libscm: mercurial/HGPackageModel.st@f7cac3dae028 (annotated)

46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	1	"{ Package: 'stx:libscm/mercurial' }"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	2
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	3	SCMAbstractPackageModel subclass:#HGPackageModel
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	4	instanceVariableNames:''
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	5	classVariableNames:''
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	6	poolDictionaries:''
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	7	category:'SCM-Mercurial-StX'
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	8	!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	9
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	10
69 17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	11	!HGPackageModel class methodsFor:'instance creation'!
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	12
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	13	named:package
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	14	^HGPackageModelRegistry packageNamed: package
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	15
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	16	"Modified: / 16-11-2012 / 19:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	17	! !
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	18
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	19	!HGPackageModel methodsFor:'accessing'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	20
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	21	manager
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	22	^ HGSourceCodeManager
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	23
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	24	"Created: / 14-11-2012 / 01:02:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57 47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	25	!
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	26
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	27	repository
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	28	"Returns original package repository (not the temporary repository)"
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	29
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	30	^repository
57 47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	31
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	32	"Created: / 15-11-2012 / 09:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	33	"Modified: / 01-12-2012 / 00:33:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	34	!
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	35
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	36	revision
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	37	"Return a logical revision of the package, i.e., a revision
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	38	on which the next commit will be based on"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	39
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	40	^self definition hgLogicalRevision
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	41
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	42	"Created: / 28-11-2012 / 09:41:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	43	!
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	44
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	45	temporaryRepository
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	46	self ensureTemporaryWorkingCopy.
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	47	^wc repository
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	48
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	49	"Created: / 01-12-2012 / 00:31:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	50	! !
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	51
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	52	!HGPackageModel methodsFor:'accessing-classes'!
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	53
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	54	commitDialogClass
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	55	"raise an error: must be redefined in concrete subclass(es)"
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	56
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	57	^ HGCommitDialog
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	58
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	59	"Created: / 14-11-2012 / 22:30:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	60	!
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	61
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	62	commitTaskClass
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	63	^ HGCommitTask
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	64
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	65	"Created: / 14-11-2012 / 00:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	66	! !
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	67
121 f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	68	!HGPackageModel methodsFor:'initialization'!
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	69
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	70	name: aSymbolOrPackageId repository: aRepository
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	71	\| wcopy wcopyroot components \|
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	72
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	73	name := aSymbolOrPackageId asSymbol.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	74	repository := aRepository.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	75
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	76	wcopy := repository workingCopy.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	77	components := (name copyReplaceAll:$: with: $/) tokensBasedOn:$/.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	78	wcopyroot := wcopy root.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	79	"This is rubbish but I have to move on..."
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	80	1 to: components size do:[ :i \|
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	81	\| f \|
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	82
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	83	f := wcopy root asFilename.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	84	i to: components size do:[ :j \|
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	85	f := f / (components at: j).
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	86	].
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	87	f exists ifTrue:[
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	88	wcopyroot := wcopy root.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	89	i to: components size do:[ :j \|
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	90	wcopyroot := wcopyroot / (components at: j).
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	91	].
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	92	repositoryRoot := wcopyroot pathNameRelative.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	93	^ self.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	94	]
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	95	].
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	96
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	97	repositoryRoot := '.'.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	98
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	99	"Created: / 01-12-2012 / 01:59:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	100	! !
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	101
102 16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	102	!HGPackageModel methodsFor:'private'!
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	103
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	104	commited
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	105	"Sent by commit task once commited"
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	106
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	107	\| versionMethod \|
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	108
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	109	super commited.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	110
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	111	versionMethod := self definition class compiledMethodAt: HGSourceCodeManager nameOfVersionMethodInClasses.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	112	versionMethod isNil ifTrue:[
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	113	self error:'Should not happen!!'.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	114	].
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	115	versionMethod annotateWith:
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	116	(HGRevisionAnnotation revision: wc changeset id)
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	117
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	118	"Created: / 23-11-2012 / 22:52:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	119	! !
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	120
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	121	!HGPackageModel methodsFor:'utils'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	122
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	123	ensureTemporaryWorkingCopy
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	124	"raise an error: must be redefined in concrete subclass(es)"
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	125
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	126	\| rev tmpPath tmpRepo tmpWc \|
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	127
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	128	rev := self definition hgLogicalRevision.
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	129	(wc notNil and:[ wc path exists ]) ifTrue:[
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	130	^ self
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	131	].
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	132	tmpPath := self manager temporaryWorkingCopyDirectory
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	133	/ repository uuid printString.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	134	tmpPath exists ifTrue:[
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	135	tmpRepo := HGRepository on:tmpPath.
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	136	tmpRepo pull.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	137	] ifFalse:[
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	138	tmpRepo := repository cloneTo:tmpPath update:false.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	139	].
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	140	tmpWc := tmpRepo workingCopy.
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	141	tmpWc update:rev.
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	142	self wc:tmpWc
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	143
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	144	"Created: / 14-11-2012 / 00:16:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	145	"Modified: / 28-11-2012 / 09:38:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	146	!
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	147
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	148	ensureTemporaryWorkingCopyAtRevision:rev
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	149	"Make sure temporary working exists and is at
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	150	given revision"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	151
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	152	\| cs \|
116 b690f5845323 Class revision ID refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	153
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	154	cs := self repository changesetWithId: rev.
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	155
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	156
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	157	self ensureTemporaryWorkingCopy.
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	158	rev notNil ifTrue:[
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	159	wc update:cs id revno printString.
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	160	].
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	161
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	162	"Created: / 28-11-2012 / 09:38:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	163	"Modified: / 01-12-2012 / 00:47:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	164	! !
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	165
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	166	!HGPackageModel class methodsFor:'documentation'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	167
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	168	version_GIT
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	169	"Never, ever change this method. Ask JV or CG why"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	170	^thisContext method mclass theNonMetaclass instVarNamed: #revision
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	171	!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	172
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	173	version_HG
115 b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	174
b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	175	^ '$Changeset: <not expanded> $'
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	176	!
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	177
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	178	version_SVN
115 b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	179	^ '�Id:: �'
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	180	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 01 Dec 2012 02:27:24 +0000
changeset 121	f7cac3dae028
parent 118	5a8b78ad48ae
child 123	ee1cc926f489
permissions	-rw-r--r--