author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Tue, 08 Jan 2019 09:35:11 +0000 | |
changeset 866 | 8a885a75daa9 |
parent 864 | c854577212b8 |
permissions | -rw-r--r-- |
864
c854577212b8
Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents:
509
diff
changeset
|
1 |
"{ Encoding: utf8 }" |
c854577212b8
Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents:
509
diff
changeset
|
2 |
|
211 | 3 |
" |
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
4 |
stx:libscm - a new source code management library for Smalltalk/X |
509
f92210d4585b
Updated copyright notice.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
454
diff
changeset
|
5 |
Copyright (C) 2012-2015 Jan Vrany |
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
6 |
|
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
7 |
This library is free software; you can redistribute it and/or |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
8 |
modify it under the terms of the GNU Lesser General Public |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
9 |
License as published by the Free Software Foundation; either |
380
c8b3776ece29
STC bug workaround in SCMAbstractPackageModel>>siblings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
379
diff
changeset
|
10 |
version 2.1 of the License. |
211 | 11 |
|
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
12 |
This library is distributed in the hope that it will be useful, |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
13 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
14 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
15 |
Lesser General Public License for more details. |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
16 |
|
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
17 |
You should have received a copy of the GNU Lesser General Public |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
18 |
License along with this library; if not, write to the Free Software |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
19 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
211 | 20 |
" |
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
21 |
"{ Package: 'stx:libscm/common' }" |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
22 |
|
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
23 |
Object subclass:#SCMAbstractPackageModel |
397
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
24 |
instanceVariableNames:'name parent children repository repositoryRoot virtual' |
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
25 |
classVariableNames:'' |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
26 |
poolDictionaries:'' |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
27 |
category:'SCM-Common-StX' |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
28 |
! |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
29 |
|
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
30 |
!SCMAbstractPackageModel class methodsFor:'documentation'! |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
31 |
|
211 | 32 |
copyright |
33 |
" |
|
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
34 |
stx:libscm - a new source code management library for Smalltalk/X |
509
f92210d4585b
Updated copyright notice.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
454
diff
changeset
|
35 |
Copyright (C) 2012-2015 Jan Vrany |
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
36 |
|
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
37 |
This library is free software; you can redistribute it and/or |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
38 |
modify it under the terms of the GNU Lesser General Public |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
39 |
License as published by the Free Software Foundation; either |
380
c8b3776ece29
STC bug workaround in SCMAbstractPackageModel>>siblings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
379
diff
changeset
|
40 |
version 2.1 of the License. |
211 | 41 |
|
335
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
42 |
This library is distributed in the hope that it will be useful, |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
43 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
44 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
45 |
Lesser General Public License for more details. |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
46 |
|
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
47 |
You should have received a copy of the GNU Lesser General Public |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
48 |
License along with this library; if not, write to the Free Software |
7e19ab19148b
Changed license to LGPL2.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
305
diff
changeset
|
49 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
211 | 50 |
" |
51 |
! |
|
52 |
||
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
53 |
documentation |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
54 |
" |
396
3c9d047e3841
Introduced a SCMAbstractPackageWorkingCopy and SCMAbstractPackageRevision...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
389
diff
changeset
|
55 |
A model of a Smalltalk/X package in repository. It can |
3c9d047e3841
Introduced a SCMAbstractPackageWorkingCopy and SCMAbstractPackageRevision...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
389
diff
changeset
|
56 |
answer a changeset containing package code and diffs against |
3c9d047e3841
Introduced a SCMAbstractPackageWorkingCopy and SCMAbstractPackageRevision...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
389
diff
changeset
|
57 |
another package model. |
122
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
58 |
|
389
1e2e6ce45878
Added new warning to commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
388
diff
changeset
|
59 |
== Hierarchy == |
1e2e6ce45878
Added new warning to commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
388
diff
changeset
|
60 |
|
122
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
61 |
Package models forms a hiearchy that copies package hiearchy. The root |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
62 |
has no parent and represent a package which is located in the root |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
63 |
of the repository. Examples: |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
64 |
|
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
65 |
stx:libscm ---> parent = nil, repository = /home/.../build/stx/libscm, repositoryPath = '.' |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
66 |
stx:libscm/common ---> parent = stx:libscm, repository = /home/.../build/stx/libscm, repositoryPath = 'common' |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
67 |
stx:libscm/mercurial ---> parent = stx:libscm, repository = /home/.../build/stx/libscm, repositoryPath = 'mercurial' |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
68 |
|
389
1e2e6ce45878
Added new warning to commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
388
diff
changeset
|
69 |
In this case, the (HG)Repository object is shared by all three package models. See |
1e2e6ce45878
Added new warning to commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
388
diff
changeset
|
70 |
#chilren, #parent and #root. |
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
71 |
|
387
ebec1ef28839
Added notion if 'virtual' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
384
diff
changeset
|
72 |
== Virtual packages == |
ebec1ef28839
Added notion if 'virtual' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
384
diff
changeset
|
73 |
|
ebec1ef28839
Added notion if 'virtual' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
384
diff
changeset
|
74 |
Package is 'virtual' if there's actually no code in the package. Virtual packages |
ebec1ef28839
Added notion if 'virtual' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
384
diff
changeset
|
75 |
are therefore just containers for nested packages. For example, package 'stx' would |
ebec1ef28839
Added notion if 'virtual' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
384
diff
changeset
|
76 |
be a 'virtual' package, since there's no code packages in 'stx' - all is in one of |
ebec1ef28839
Added notion if 'virtual' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
384
diff
changeset
|
77 |
its nested sub-packages - stx:libbasic, stx:libscm. |
ebec1ef28839
Added notion if 'virtual' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
384
diff
changeset
|
78 |
|
389
1e2e6ce45878
Added new warning to commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
388
diff
changeset
|
79 |
See #isVirtual. |
1e2e6ce45878
Added new warning to commit dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
388
diff
changeset
|
80 |
|
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
81 |
[author:] |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
82 |
Jan Vrany <jan.vrany@fit.cvut.cz> |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
83 |
|
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
84 |
[instance variables:] |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
85 |
|
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
86 |
[class variables:] |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
87 |
|
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
88 |
[see also:] |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
89 |
|
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
90 |
" |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
91 |
! ! |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
92 |
|
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
93 |
!SCMAbstractPackageModel class methodsFor:'instance creation'! |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
94 |
|
380
c8b3776ece29
STC bug workaround in SCMAbstractPackageModel>>siblings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
379
diff
changeset
|
95 |
named: package |
68
0abe8aeae95a
Utility methods
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
66
diff
changeset
|
96 |
self subclassResponsibility |
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
97 |
|
68
0abe8aeae95a
Utility methods
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
66
diff
changeset
|
98 |
"Created: / 16-11-2012 / 19:52:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
122
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
99 |
! |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
100 |
|
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
101 |
new |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
102 |
"return an initialized instance" |
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
103 |
|
f72225c1f433
Adde parent/child relationship to SCMAbstractPackageModel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
120
diff
changeset
|
104 |
^ self basicNew initialize. |
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
105 |
! ! |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
106 |
|
382
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
107 |
!SCMAbstractPackageModel class methodsFor:'testing'! |
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
108 |
|
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
109 |
isAbstract |
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
110 |
^ self == SCMAbstractPackageModel |
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
111 |
|
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
112 |
"Created: / 13-11-2012 / 23:07:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
113 |
"Modified: / 25-02-2014 / 22:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
114 |
! ! |
b661dd389038
Introduced SCMCommonPackageModelGroup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
380
diff
changeset
|
115 |
|
397
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
116 |
!SCMAbstractPackageModel methodsFor:'accessing'! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
117 |
|
411
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
118 |
abbrevs |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
119 |
"Returns a Dictionary mapping class name to an abbrev entry object. |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
120 |
This object should at least respond to #fileName" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
121 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
122 |
^ self subclassResponsibility |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
123 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
124 |
"Created: / 14-03-2014 / 22:02:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
125 |
! |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
126 |
|
397
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
127 |
construct: aString |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
128 |
"Create a package model for subpackage named aString" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
129 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
130 |
| normalizedName components package | |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
131 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
132 |
normalizedName := (aString includes: $:) ifTrue:[aString copyReplaceAll:$: with:$/] ifFalse:[aString]. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
133 |
( normalizedName includes: $/) ifFalse:[ |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
134 |
^self childNamed: normalizedName. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
135 |
]. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
136 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
137 |
components := normalizedName tokensBasedOn: $/. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
138 |
package := self. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
139 |
components do:[:each|package := package childNamed: each]. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
140 |
^package |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
141 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
142 |
"Created: / 16-11-2012 / 23:47:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
143 |
"Modified: / 03-12-2012 / 14:04:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
144 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
145 |
|
411
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
146 |
definition |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
147 |
"Returns a sort of project definition object. |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
148 |
It has to at least understand #classNamesAndAttributes and |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
149 |
#xtensionMethodNames." |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
150 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
151 |
^ self subclassResponsibility |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
152 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
153 |
"Created: / 14-03-2014 / 21:57:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
154 |
! |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
155 |
|
397
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
156 |
name |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
157 |
^ name |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
158 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
159 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
160 |
repositoryRoot |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
161 |
"Returns relative path within the repository root where the package |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
162 |
content is located. Example: let's assume: |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
163 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
164 |
<repo>/.hg |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
165 |
<repo>/mercurial/... |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
166 |
<repo>/mercurial/tests/... |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
167 |
<repo>/common/.. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
168 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
169 |
then |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
170 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
171 |
(HGPackageModelRegistry packageNamed: 'stx:libscm/mercurial/tests') path |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
172 |
== 'mercurial/tests' |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
173 |
" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
174 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
175 |
self assert: repositoryRoot notNil. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
176 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
177 |
^repositoryRoot |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
178 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
179 |
"Created: / 01-12-2012 / 02:03:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
180 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
181 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
182 |
revision |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
183 |
"Return a logical revision package model" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
184 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
185 |
^ self subclassResponsibility |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
186 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
187 |
"Created: / 05-03-2014 / 23:16:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
188 |
! ! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
189 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
190 |
!SCMAbstractPackageModel methodsFor:'accessing-containers'! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
191 |
|
411
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
192 |
containerFor: aString |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
193 |
"Return a container as Filename with given name" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
194 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
195 |
^ self containerFor: aString ifAbsent: [ self error: 'No container named ', aString ] |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
196 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
197 |
"Modified: / 14-03-2014 / 22:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
198 |
! |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
199 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
200 |
containerFor: aString ifAbsent: aBlock |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
201 |
"Return a container as Filename with given name. If there's no such |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
202 |
container, evaluates a block" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
203 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
204 |
^ self subclassResponsibility |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
205 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
206 |
"Created: / 14-03-2014 / 22:15:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
207 |
! |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
208 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
209 |
containerForProjectDefinition |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
210 |
^ self containerFor: (ProjectDefinition initialClassNameForDefinitionOf: name) , '.st' |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
211 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
212 |
"Created: / 13-03-2014 / 23:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
213 |
"Modified: / 14-03-2014 / 22:00:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
214 |
! |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
215 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
216 |
containerNameForClass:cls |
454
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
217 |
| clsName | |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
218 |
|
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
219 |
clsName := cls isJavaClass ifTrue:[ cls theNonMetaClass binaryName ] ifFalse:[ cls theNonMetaclass fullName ]. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
220 |
^ self |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
221 |
containerNameForClassNamed: clsName |
411
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
222 |
language: cls programmingLanguage |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
223 |
|
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
224 |
"Created: / 07-10-2012 / 10:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
454
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
225 |
"Modified: / 31-07-2014 / 08:39:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
411
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
226 |
! |
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
227 |
|
397
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
228 |
containerNameForClassNamed: nm language: lang |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
229 |
^String streamContents:[:s| |
454
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
230 |
"/ Sigh, special case for Java classes. Their code |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
231 |
"/ is in java/src subdirectory. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
232 |
lang isJavaLike ifTrue:[ |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
233 |
s nextPutAll: 'java'. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
234 |
s nextPut: Filename separator. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
235 |
s nextPutAll: 'src'. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
236 |
s nextPut: Filename separator. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
237 |
s nextPutAll: (nm copyReplaceAll: $/ with: Filename separator). |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
238 |
] ifFalse:[ |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
239 |
| xlated | |
411
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
240 |
|
454
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
241 |
"/ Here, consult abbreviation file... |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
242 |
lang isSmalltalk ifTrue:[ |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
243 |
| abbrev | |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
244 |
|
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
245 |
abbrev := self abbrevs at: nm ifAbsent:[ nil ]. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
246 |
abbrev notNil ifTrue:[ |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
247 |
xlated := abbrev fileName. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
248 |
]. |
411
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
249 |
]. |
454
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
250 |
xlated isNil ifTrue:[ |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
251 |
xlated := (nm copyReplaceAll:$: with: $_). |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
252 |
]. |
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
253 |
s nextPutAll: (nm copyReplaceAll:$: with: $_). "/ Q: should't this be nextPutAll: xlated here? See issue #48. |
411
858944cebec4
Added SCMAbstractPackageRevision>>changeSet.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
397
diff
changeset
|
254 |
]. |
397
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
255 |
s nextPut: $.. |
454
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
256 |
s nextPutAll: lang sourceFileSuffix. |
397
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
257 |
] |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
258 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
259 |
"Created: / 15-11-2012 / 00:45:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
454
d17370e0936e
Support for Java classes (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
411
diff
changeset
|
260 |
"Modified (comment): / 31-07-2014 / 08:54:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
397
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
261 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
262 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
263 |
containerNameForExtensions |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
264 |
^self containerNameForExtensions: SmalltalkLanguage instance |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
265 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
266 |
"Created: / 07-10-2012 / 10:37:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
267 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
268 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
269 |
containerNameForExtensions: aProgrammingLanguage |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
270 |
^'extensions.' , aProgrammingLanguage sourceFileSuffix |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
271 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
272 |
"Created: / 07-10-2012 / 10:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
273 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
274 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
275 |
containerNameForExtensions: aProgrammingLanguage javaClass: aJavaClass |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
276 |
| class classBinaryName comps | |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
277 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
278 |
class := aJavaClass theNonMetaClass. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
279 |
"Sigh, make it compatible with old and new naming of Java classes |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
280 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
281 |
old -> aJavaClass name == #'java/lang/Object' |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
282 |
new -> aJavaClass name == JAVA::java::lang::Object |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
283 |
aJavaClass binaryName == #'java/lang/Object' |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
284 |
" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
285 |
classBinaryName := (class respondsTo: #binaryName) |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
286 |
ifTrue:[ class binaryName ] |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
287 |
ifFalse:[ class name ]. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
288 |
self assert: (classBinaryName includes: $:) not. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
289 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
290 |
^ String streamContents:[:s| |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
291 |
s nextPutAll: 'java/extensions'. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
292 |
comps := classBinaryName tokensBasedOn: $/. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
293 |
comps do:[:each| s nextPut: $/; nextPutAll: each ]. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
294 |
s nextPut: $.; nextPutAll: aProgrammingLanguage sourceFileSuffix. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
295 |
]. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
296 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
297 |
"Created: / 24-09-2013 / 11:31:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
298 |
"Modified: / 09-10-2013 / 08:56:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
299 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
300 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
301 |
containerSuffixes |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
302 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
303 |
^ProgrammingLanguage all collect:[:each|each sourceFileSuffix] |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
304 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
305 |
"Created: / 23-03-2009 / 18:53:56 / Jan Vrany <vranyj1@fel.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
306 |
"Modified: / 30-12-2009 / 18:15:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
307 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
308 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
309 |
containers |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
310 |
^ self subclassResponsibility |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
311 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
312 |
"Created: / 05-03-2014 / 23:36:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
313 |
! ! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
314 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
315 |
!SCMAbstractPackageModel methodsFor:'accessing-hierarchy'! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
316 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
317 |
children |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
318 |
"Returns all my immediate children." |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
319 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
320 |
^ self subclassResponsibility |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
321 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
322 |
"Created: / 05-03-2014 / 23:18:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
323 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
324 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
325 |
childrenDo: aBlock |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
326 |
"Evaluate a block for all immediate children of the receiver. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
327 |
Does NOT recurse." |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
328 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
329 |
self children do: aBlock |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
330 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
331 |
"Created: / 19-02-2014 / 23:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
332 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
333 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
334 |
parent |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
335 |
"Returns the parent model. See class documentation for details on parents" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
336 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
337 |
^parent |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
338 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
339 |
"Created: / 01-12-2012 / 17:56:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
340 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
341 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
342 |
root |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
343 |
"Returns the root of this package model hierarchy, i.e., grand-parent which itself has no parent. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
344 |
See class documentation for details on parents" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
345 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
346 |
| p | |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
347 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
348 |
p := self. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
349 |
[ p parent notNil ] whileTrue:[ |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
350 |
p := p parent. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
351 |
]. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
352 |
^ p |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
353 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
354 |
"Created: / 19-02-2014 / 23:30:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
355 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
356 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
357 |
siblings |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
358 |
"Returns all my siblings" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
359 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
360 |
parent notNil |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
361 |
ifTrue:[ ^ self parent children copy remove: self; yourself] |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
362 |
ifFalse:[ ^ #() ] |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
363 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
364 |
" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
365 |
(HGPackageWorkingCopyRegistry packageNamed: 'stx:libscm') siblings |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
366 |
(HGPackageWorkingCopyRegistry packageNamed: 'stx:libscm/common') siblings |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
367 |
" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
368 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
369 |
"Created: / 20-02-2014 / 00:22:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
370 |
"Modified: / 07-03-2014 / 14:21:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
371 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
372 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
373 |
yourselfAndAllChildrenDo: aBlock |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
374 |
"Evaluate a block for receiver and all its children, recursively." |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
375 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
376 |
aBlock value: self. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
377 |
self children do:[:each | each yourselfAndAllChildrenDo: aBlock ] |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
378 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
379 |
"Created: / 19-02-2014 / 23:49:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
380 |
! ! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
381 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
382 |
!SCMAbstractPackageModel methodsFor:'accessing-private'! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
383 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
384 |
childNamed: aString |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
385 |
"Returns a child name aString. If no such child |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
386 |
exist, create one" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
387 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
388 |
^ self subclassResponsibility |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
389 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
390 |
"Created: / 05-03-2014 / 23:19:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
391 |
! ! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
392 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
393 |
!SCMAbstractPackageModel methodsFor:'initialization'! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
394 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
395 |
setParent: aSCMAbstractPackageModel |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
396 |
parent := aSCMAbstractPackageModel |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
397 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
398 |
"Modified: / 08-03-2014 / 10:05:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
399 |
! ! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
400 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
401 |
!SCMAbstractPackageModel methodsFor:'printing & storing'! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
402 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
403 |
printOn:aStream |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
404 |
"append a printed representation if the receiver to the argument, aStream" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
405 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
406 |
super printOn:aStream. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
407 |
aStream nextPut:$(. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
408 |
name printOn: aStream. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
409 |
aStream nextPutAll: ' @ '. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
410 |
self revision printOn: aStream. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
411 |
aStream nextPut:$). |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
412 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
413 |
"Modified: / 08-03-2014 / 10:01:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
414 |
! ! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
415 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
416 |
!SCMAbstractPackageModel methodsFor:'testing'! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
417 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
418 |
isChildOf: anotherPackageModel |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
419 |
^ anotherPackageModel isParentOf: self. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
420 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
421 |
"Created: / 25-02-2014 / 22:51:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
422 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
423 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
424 |
isParentOf: anotherPackageModel |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
425 |
| anotherName | |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
426 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
427 |
anotherName := anotherPackageModel name. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
428 |
^ (anotherName size) > (name size + 1) |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
429 |
and:[ (anotherName startsWith: name) |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
430 |
and:[ ':/' includes: (anotherName at: name size + 1) ]]. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
431 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
432 |
"Created: / 25-02-2014 / 22:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
433 |
! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
434 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
435 |
isVirtual |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
436 |
"Return true, if the package is virtual, i.e., there's no code in |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
437 |
the package. False otherwise. |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
438 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
439 |
Virtual packages serves merely as containers for nested packages" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
440 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
441 |
^ self subclassResponsibility |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
442 |
|
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
443 |
"Modified (comment): / 07-03-2014 / 22:58:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
444 |
! ! |
579b4fd3e9a9
Implemented support for hiearchy SCMAbstractPackageRevision/HGPackageRevision.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
396
diff
changeset
|
445 |
|
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
446 |
!SCMAbstractPackageModel class methodsFor:'documentation'! |
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
447 |
|
53
8043f7b6f41a
- More common code refactored
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
44
diff
changeset
|
448 |
version_HG |
114
8b27cb46af9a
version_HG changed to return String.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
449 |
|
8b27cb46af9a
version_HG changed to return String.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
101
diff
changeset
|
450 |
^ '$Changeset: <not expanded> $' |
53
8043f7b6f41a
- More common code refactored
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
44
diff
changeset
|
451 |
! |
8043f7b6f41a
- More common code refactored
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
44
diff
changeset
|
452 |
|
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
453 |
version_SVN |
864
c854577212b8
Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents:
509
diff
changeset
|
454 |
^ '§Id:: §' |
43
a331d402de2f
Initial commit of common, reusable classes
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
455 |
! ! |
211 | 456 |