"/
"/ $Header: /opt/data/cvs/stx/goodies/xmlsuite/relaxng/loadAll,v 1.1.1.1 2005-11-01 22:07:17 vranyj1 Exp $
"/
"/ loadAll-file to fileIn code for: stx:goodies/xmlsuite/relaxng
"/
"/ Automatically generated by the browsers generate-loadAll function.
"/ DO NOT MODIFY THIS fILE;
"/
"/
"/ Prerequisites:
"/
"/ Smalltalk loadPackage:'module:directory'.
"/ Smalltalk loadPackage:'....'.
!

"{ package:'stx:goodies/xmlsuite/relaxng' }"
!

|files|

'loading package stx:goodies/xmlsuite/relaxng...' infoPrintCR.

files := #(
  'RNG__Automaton.st'
  'RNG__BindingInfo.st'
  'RNG__CircularSchemaInclusion.st'
  'RNG__ContentModel.st'
  'RNG__ContentModelNode.st'
  'RNG__DataType.st'
  'RNG__DataTypeLibrary.st'
  'RNG__Error.st'
  'RNG__Pattern.st'
  'RNG__RefNode.st'
  'RNG__RelaxNGSettingsApplication.st'
  'RNG__Schema.st'
  'RNG__SchemaParser.st'
  'RNG__SchemaRegistry.st'
  'RNG__Serializator.st'
  'RNG__SingletonObject.st'
  'RNG__ValidationTests.st'
  'RNG__Validator.st'
  'RNG__ValidatorContext.st'
  'RNG__Binder.st'
  'RNG__BindingError.st'
  'RNG__BindingTests.st'
  'RNG__ChoiceNode.st'
  'RNG__ComplexTypePattern.st'
  'RNG__DataConversionError.st'
  'RNG__EmptyNode.st'
  'RNG__GroupNode.st'
  'RNG__ListPattern.st'
  'RNG__OneOrMoreNode.st'
  'RNG__OptionalNode.st'
  'RNG__PCDataPattern.st'
  'RNG__PatternNode.st'
  'RNG__SchemaIncludeParser.st'
  'RNG__SchemaParsingError.st'
  'RNG__SerializationError.st'
  'RNG__TerminatorNode.st'
  'RNG__TextDataType.st'
  'RNG__ValidationError.st'
  'RNG__XSBoolean.st'
  'RNG__XSDataTypeLibrary.st'
  'RNG__XSDateTime.st'
  'RNG__XSInteger.st'
  'RNG__XSString.st'
  'RNG__XSToken.st'
  'RNG__ZeroOrMoreNode.st'
  'RNG__XSKey.st'
  'RNG__XSKeyRef.st'
  'extensions.st'

) asOrderedCollection.

"/ see if there is a classLibrary
(Smalltalk fileInClassLibrary:'goodies/xmlsuite/relaxng') ifTrue:[
    |handle loaded|

    handle := ObjectFileLoader loadedObjectHandles 
                    detect:[:h | h package = 'stx:goodies/xmlsuite/relaxng'] ifNone:nil.
    handle ifNotNil:[
        loaded := Set new:(handle classes size).
        handle classes do:[:c| c isMeta ifFalse:[loaded add:c classFilename]].
        files := files asOrderedCollection select:[:f| (loaded includes:f) not].
    ].
].

"/ load files which are not in the classLibrary (all if there is none)
files size > 0 ifTrue:[
  files do:[:f |
    '.' infoPrint.
    f asFilename exists ifTrue:[
        Smalltalk fileIn:f.
    ] ifFalse:[
        Smalltalk fileIn:('source/' , f)
    ]
  ].
  ' ' infoPrintCR.
].
' done (stx:goodies/xmlsuite/relaxng).' infoPrintCR.