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 Object subclass:#MCPackageLoader |
8 Object subclass:#MCPackageLoader |
4 instanceVariableNames:'requirements unloadableDefinitions overrideDefinitions |
9 instanceVariableNames:'requirements unloadableDefinitions overrideDefinitions |
5 obsoletions additions removals errorDefinitions provisions' |
10 obsoletions additions removals errorDefinitions provisions' |
6 classVariableNames:'Debugging' |
11 classVariableNames:'Debugging' |
7 poolDictionaries:'' |
12 poolDictionaries:'' |
8 category:'SCM-Monticello-Loading' |
13 category:'SCM-Monticello-Loading' |
9 ! |
14 ! |
10 |
15 |
|
16 !MCPackageLoader class methodsFor:'documentation'! |
|
17 |
|
18 copyright |
|
19 " |
|
20 COPYRIGHT (c) 2020 LabWare |
|
21 |
|
22 |
|
23 " |
|
24 ! ! |
11 |
25 |
12 !MCPackageLoader class methodsFor:'initialization'! |
26 !MCPackageLoader class methodsFor:'initialization'! |
13 |
27 |
14 new |
28 new |
15 ^self basicNew initialize |
29 ^self basicNew initialize |
90 self warnAboutUnloadables. |
104 self warnAboutUnloadables. |
91 |
105 |
92 |
106 |
93 [[ |
107 [[ |
94 | oldErrorDefinitions | |
108 | oldErrorDefinitions | |
|
109 additions := MCDefinition sortForLoading: additions. |
|
110 removals := (MCDefinition sortForLoading: removals) reversed. |
|
111 |
95 additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Loading...'. |
112 additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Loading...'. |
96 removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. |
113 removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. |
97 self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. |
114 self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. |
98 oldErrorDefinitions := errorDefinitions. |
115 oldErrorDefinitions := errorDefinitions. |
99 errorDefinitions := OrderedCollection new. |
116 errorDefinitions := OrderedCollection new. |
113 ParserFlags allowSqueakExtensions: allowSqueakExtensions. |
130 ParserFlags allowSqueakExtensions: allowSqueakExtensions. |
114 ] |
131 ] |
115 |
132 |
116 "Modified: / 08-11-2010 / 23:49:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
133 "Modified: / 08-11-2010 / 23:49:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
117 "Modified: / 20-08-2011 / 18:20:54 / cg" |
134 "Modified: / 20-08-2011 / 18:20:54 / cg" |
|
135 "Modified: / 01-09-2020 / 19:56:55 / Jan Vrany <jan.vrany@labware.com>" |
118 ! |
136 ! |
119 |
137 |
120 dependencyWarning |
138 dependencyWarning |
121 ^ String streamContents: |
139 ^ String streamContents: |
122 [:s | |
140 [:s | |
376 |
394 |
377 version_CVS |
395 version_CVS |
378 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageLoader.st,v 1.10 2014-12-11 15:51:20 cg Exp $' |
396 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageLoader.st,v 1.10 2014-12-11 15:51:20 cg Exp $' |
379 ! |
397 ! |
380 |
398 |
|
399 version_HG |
|
400 |
|
401 ^ '$Changeset: <not expanded> $' |
|
402 ! |
|
403 |
381 version_SVN |
404 version_SVN |
382 ^ '$Id: MCPackageLoader.st,v 1.10 2014-12-11 15:51:20 cg Exp $' |
405 ^ '$Id: MCPackageLoader.st,v 1.10 2014-12-11 15:51:20 cg Exp $' |
383 ! ! |
406 ! ! |
384 |
407 |