equal
deleted
inserted
replaced
|
1 " |
|
2 COPYRIGHT (c) 2020 LabWare |
|
3 " |
1 "{ Package: 'stx:goodies/monticello' }" |
4 "{ Package: 'stx:goodies/monticello' }" |
|
5 |
|
6 "{ NameSpace: Smalltalk }" |
2 |
7 |
3 MCDirectoryRepository subclass:#MCCacheRepository |
8 MCDirectoryRepository subclass:#MCCacheRepository |
4 instanceVariableNames:'packageCaches seenFiles' |
9 instanceVariableNames:'packageCaches seenFiles' |
5 classVariableNames:'' |
10 classVariableNames:'' |
6 poolDictionaries:'' |
11 poolDictionaries:'' |
12 " |
17 " |
13 No other class instance variables are inherited by this class. |
18 No other class instance variables are inherited by this class. |
14 " |
19 " |
15 ! |
20 ! |
16 |
21 |
|
22 !MCCacheRepository class methodsFor:'documentation'! |
|
23 |
|
24 copyright |
|
25 " |
|
26 COPYRIGHT (c) 2020 LabWare |
|
27 |
|
28 |
|
29 " |
|
30 ! ! |
17 |
31 |
18 !MCCacheRepository class methodsFor:'initialization'! |
32 !MCCacheRepository class methodsFor:'initialization'! |
19 |
33 |
20 initialize |
34 initialize |
21 self checkCacheDirectory |
35 self checkCacheDirectory |
29 ! ! |
43 ! ! |
30 |
44 |
31 !MCCacheRepository class methodsFor:'misc'! |
45 !MCCacheRepository class methodsFor:'misc'! |
32 |
46 |
33 cacheDirectory |
47 cacheDirectory |
34 ^ (FileDirectory default directoryNamed: 'package-cache') |
48 ^ (Filename currentDirectory / 'package-cache') |
35 assureExistence; |
49 makeDirectory; |
36 yourself |
50 yourself. |
|
51 |
|
52 "Modified: / 25-08-2020 / 10:09:53 / Jan Vrany <jan.vrany@labware.com>" |
37 ! |
53 ! |
38 |
54 |
39 checkCacheDirectory |
55 checkCacheDirectory |
40 default notNil and: [default directory exists ifFalse: [default _ nil]] |
56 default notNil and: [default directory exists ifFalse: [default _ nil]] |
41 ! ! |
57 ! ! |
94 |
110 |
95 !MCCacheRepository class methodsFor:'documentation'! |
111 !MCCacheRepository class methodsFor:'documentation'! |
96 |
112 |
97 version |
113 version |
98 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCacheRepository.st,v 1.3 2014-02-12 14:53:37 cg Exp $' |
114 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCCacheRepository.st,v 1.3 2014-02-12 14:53:37 cg Exp $' |
|
115 ! |
|
116 |
|
117 version_HG |
|
118 |
|
119 ^ '$Changeset: <not expanded> $' |
99 ! ! |
120 ! ! |
100 |
121 |
101 |
122 |
102 MCCacheRepository initialize! |
123 MCCacheRepository initialize! |