|
1 "/ |
|
2 "/ $Header: /opt/data/cvs/stx/goodies/xmlsuite/relaxng/loadAll,v 1.1.1.1 2005-11-01 22:07:17 vranyj1 Exp $ |
|
3 "/ |
|
4 "/ loadAll-file to fileIn code for: stx:goodies/xmlsuite/relaxng |
|
5 "/ |
|
6 "/ Automatically generated by the browsers generate-loadAll function. |
|
7 "/ DO NOT MODIFY THIS fILE; |
|
8 "/ |
|
9 "/ |
|
10 "/ Prerequisites: |
|
11 "/ |
|
12 "/ Smalltalk loadPackage:'module:directory'. |
|
13 "/ Smalltalk loadPackage:'....'. |
|
14 ! |
|
15 |
|
16 "{ package:'stx:goodies/xmlsuite/relaxng' }" |
|
17 ! |
|
18 |
|
19 |files| |
|
20 |
|
21 'loading package stx:goodies/xmlsuite/relaxng...' infoPrintCR. |
|
22 |
|
23 files := #( |
|
24 'RNG__Automaton.st' |
|
25 'RNG__BindingInfo.st' |
|
26 'RNG__CircularSchemaInclusion.st' |
|
27 'RNG__ContentModel.st' |
|
28 'RNG__ContentModelNode.st' |
|
29 'RNG__DataType.st' |
|
30 'RNG__DataTypeLibrary.st' |
|
31 'RNG__Error.st' |
|
32 'RNG__Pattern.st' |
|
33 'RNG__RefNode.st' |
|
34 'RNG__RelaxNGSettingsApplication.st' |
|
35 'RNG__Schema.st' |
|
36 'RNG__SchemaParser.st' |
|
37 'RNG__SchemaRegistry.st' |
|
38 'RNG__Serializator.st' |
|
39 'RNG__SingletonObject.st' |
|
40 'RNG__ValidationTests.st' |
|
41 'RNG__Validator.st' |
|
42 'RNG__ValidatorContext.st' |
|
43 'RNG__Binder.st' |
|
44 'RNG__BindingError.st' |
|
45 'RNG__BindingTests.st' |
|
46 'RNG__ChoiceNode.st' |
|
47 'RNG__ComplexTypePattern.st' |
|
48 'RNG__DataConversionError.st' |
|
49 'RNG__EmptyNode.st' |
|
50 'RNG__GroupNode.st' |
|
51 'RNG__ListPattern.st' |
|
52 'RNG__OneOrMoreNode.st' |
|
53 'RNG__OptionalNode.st' |
|
54 'RNG__PCDataPattern.st' |
|
55 'RNG__PatternNode.st' |
|
56 'RNG__SchemaIncludeParser.st' |
|
57 'RNG__SchemaParsingError.st' |
|
58 'RNG__SerializationError.st' |
|
59 'RNG__TerminatorNode.st' |
|
60 'RNG__TextDataType.st' |
|
61 'RNG__ValidationError.st' |
|
62 'RNG__XSBoolean.st' |
|
63 'RNG__XSDataTypeLibrary.st' |
|
64 'RNG__XSDateTime.st' |
|
65 'RNG__XSInteger.st' |
|
66 'RNG__XSString.st' |
|
67 'RNG__XSToken.st' |
|
68 'RNG__ZeroOrMoreNode.st' |
|
69 'RNG__XSKey.st' |
|
70 'RNG__XSKeyRef.st' |
|
71 'extensions.st' |
|
72 |
|
73 ) asOrderedCollection. |
|
74 |
|
75 "/ see if there is a classLibrary |
|
76 (Smalltalk fileInClassLibrary:'goodies/xmlsuite/relaxng') ifTrue:[ |
|
77 |handle loaded| |
|
78 |
|
79 handle := ObjectFileLoader loadedObjectHandles |
|
80 detect:[:h | h package = 'stx:goodies/xmlsuite/relaxng'] ifNone:nil. |
|
81 handle ifNotNil:[ |
|
82 loaded := Set new:(handle classes size). |
|
83 handle classes do:[:c| c isMeta ifFalse:[loaded add:c classFilename]]. |
|
84 files := files asOrderedCollection select:[:f| (loaded includes:f) not]. |
|
85 ]. |
|
86 ]. |
|
87 |
|
88 "/ load files which are not in the classLibrary (all if there is none) |
|
89 files size > 0 ifTrue:[ |
|
90 files do:[:f | |
|
91 '.' infoPrint. |
|
92 f asFilename exists ifTrue:[ |
|
93 Smalltalk fileIn:f. |
|
94 ] ifFalse:[ |
|
95 Smalltalk fileIn:('source/' , f) |
|
96 ] |
|
97 ]. |
|
98 ' ' infoPrintCR. |
|
99 ]. |
|
100 ' done (stx:goodies/xmlsuite/relaxng).' infoPrintCR. |