hg/stx-libscm: mercurial/HGPackageModel.st@ee1cc926f489 (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
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	70	setName:aSymbolOrPackageId repository:aRepository
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	71	\| wcopy wcopyroot components \|
121 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	wcopy := repository workingCopy.
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	76	components := (name copyReplaceAll:$: with:$/) tokensBasedOn:$/.
121 f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	77	wcopyroot := wcopy root.
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	78	"This is rubbish but I have to move on..."
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	79	1 to:components size do:[:i \|
121 f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	80	\| f \|
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	81
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	82	f := wcopy root asFilename.
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	83	i to:components size do:[:j \|
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	84	f := f / (components at:j).
121 f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	85	].
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	86	f exists ifTrue:[
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	87	wcopyroot := wcopy root.
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	88	i to:components size do:[:j \|
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	89	wcopyroot := wcopyroot / (components at:j).
121 f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	90	].
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	91	repositoryRoot := wcopyroot pathNameRelative.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	92	^ self.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	93	]
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	repositoryRoot := '.'.
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	96
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	97	"Created: / 01-12-2012 / 17:52:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	98	"Modified (format): / 03-12-2012 / 14:45:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
121 f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	99	! !
f7cac3dae028 Basic revision log support in HGSourceCodeManager. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 118 diff changeset	100
102 16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	101	!HGPackageModel methodsFor:'private'!
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	102
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	103	commited
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	104	"Sent by commit task once commited"
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	105
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	106	\| versionMethod \|
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	107
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	108	super commited.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	109
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	110	versionMethod := self definition class compiledMethodAt: HGSourceCodeManager nameOfVersionMethodInClasses.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	111	versionMethod isNil ifTrue:[
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	112	self error:'Should not happen!!'.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	113	].
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	114	versionMethod annotateWith:
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	115	(HGRevisionAnnotation revision: wc changeset id)
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	116
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	117	"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	118	! !
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	119
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	120	!HGPackageModel methodsFor:'utils'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	121
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	122	ensureTemporaryWorkingCopy
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	123	"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	124
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	125	\| 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	126
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	127	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	128	(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	129	^ self
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	130	].
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	131	tmpPath := self manager temporaryWorkingCopyDirectory
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	132	/ repository uuid printString.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	133	tmpPath exists ifTrue:[
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	134	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	135	tmpRepo pull.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	136	] ifFalse:[
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	137	tmpRepo := repository cloneTo:tmpPath update:false.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	138	].
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	139	tmpWc := tmpRepo workingCopy.
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	140	"If it is fresh repository, it has no changeset yet..."
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	141	(rev ~~ HGChangesetId null) ifTrue:[
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	142	tmpWc update:rev.
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	143	].
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	144	self setWorkingCopy:tmpWc
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	145
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	146	"Created: / 14-11-2012 / 00:16:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	147	"Modified: / 01-12-2012 / 17:53:46 / 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	148	!
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	149
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	150	ensureTemporaryWorkingCopyAtRevision:rev
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	151	"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	152	given revision"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	153
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	154	\| cs r \|
116 b690f5845323 Class revision ID refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	155
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	156	r := rev.
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	157	r revno isNil ifTrue:[
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	158	cs := self repository changesetWithId: rev.
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	159	r := cs id.
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	160	].
118 5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	161
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	162
5a8b78ad48ae Refactoring (part 2): Rename SCMAbstractPackageModel>>workingCopy to temporaryWorkingCopy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	163	self ensureTemporaryWorkingCopy.
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	164	(r revno ~~ -1) ifTrue:[
ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	165	wc update:r revno printString.
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	166	].
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	167
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	168	"Created: / 28-11-2012 / 09:38:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
123 ee1cc926f489 Added parent/child relationship to SCMAbstractPackageModel (part 2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 121 diff changeset	169	"Modified: / 01-12-2012 / 15:18:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	170	! !
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	!HGPackageModel class methodsFor:'documentation'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	173
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	174	version_GIT
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	175	"Never, ever change this method. Ask JV or CG why"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	176	^thisContext method mclass theNonMetaclass instVarNamed: #revision
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	177	!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	178
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	179	version_HG
115 b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	180
b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	181	^ '$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	182	!
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	183
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	184	version_SVN
115 b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	185	^ '�Id:: �'
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	186	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 03 Dec 2012 16:20:11 +0000
changeset 123	ee1cc926f489
parent 121	f7cac3dae028
child 176	78124cee58da
permissions	-rw-r--r--