equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/cypress' }" |
1 "{ Package: 'stx:goodies/cypress' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 CypressAbstractReaderWriter subclass:#CypressAbstractReader |
5 CypressAbstractReaderWriter subclass:#CypressAbstractReader |
4 instanceVariableNames:'packageId' |
6 instanceVariableNames:'packageId' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
24 [see also:] |
26 [see also:] |
25 CypressReader |
27 CypressReader |
26 CypressFiletreeReader |
28 CypressFiletreeReader |
27 |
29 |
28 " |
30 " |
|
31 ! ! |
|
32 |
|
33 !CypressAbstractReader class methodsFor:'reading'! |
|
34 |
|
35 readPackageFrom: aDirectory |
|
36 | repository pkgName | |
|
37 |
|
38 repository := CypressRepository on: aDirectory directory. |
|
39 pkgName := aDirectory baseName. |
|
40 (pkgName endsWith: '.package') ifTrue:[ |
|
41 pkgName := pkgName copyTo: (pkgName size - "'.package' size"8) |
|
42 ]. |
|
43 ^ repository read: pkgName |
|
44 |
|
45 "Created: / 05-10-2015 / 18:17:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
29 ! ! |
46 ! ! |
30 |
47 |
31 !CypressAbstractReader methodsFor:'reading'! |
48 !CypressAbstractReader methodsFor:'reading'! |
32 |
49 |
33 readPackage: name as: packageIdOrNil from: directory |
50 readPackage: name as: packageIdOrNil from: directory |
159 "Created: / 18-09-2012 / 09:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
176 "Created: / 18-09-2012 / 09:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
160 ! ! |
177 ! ! |
161 |
178 |
162 !CypressAbstractReader class methodsFor:'documentation'! |
179 !CypressAbstractReader class methodsFor:'documentation'! |
163 |
180 |
|
181 version_HG |
|
182 |
|
183 ^ '$Changeset: <not expanded> $' |
|
184 ! |
|
185 |
164 version_SVN |
186 version_SVN |
165 ^ '$Id:: $' |
187 ^ '$Id:: $' |
166 ! ! |
188 ! ! |
|
189 |