"/

"/ $Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/loadAll,v 1.18 2007-11-23 07:04:21 vranyj1 Exp $

"/

"/ loadAll-file to fileIn code for: stx:goodies/xmlsuite/xpath

"/

"/ Automatically generated by the browsers generate-loadAll function.

"/ DO NOT MODIFY THIS fILE;

"/

"/

"/ Prerequisites:

"/

"/ Smalltalk loadPackage:'module:directory'.

"/ Smalltalk loadPackage:'....'.

!

'Executing preLoad script if any...' infoPrintCR.

Smalltalk fileIn:'preLoad.st'.

!

"{ package:'stx:goodies/xmlsuite/xpath' }"

!

|files|

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

files := #(

  'XMLv2__XPathASTNode.st'

  'XMLv2__XPathContext.st'

  'XMLv2__XPathCoverageMonitor.st'

  'XMLv2__XPathDOMAdaptorXMLReader.st'

  'XMLv2__XPathDocumentAdaptor.st'

  'XMLv2__XPathDocumentAdaptorFactory.st'

  'XMLv2__XPathDocumentAdaptorReleasedError.st'

  'XMLv2__XPathDocumentAdaptorTests.st'

  'XMLv2__XPathDocumentNotFoundError.st'

  'XMLv2__XPathDocumentProvider.st'

  'XMLv2__XPathExprTreeNode.st'

  'XMLv2__XPathExpression.st'

  'XMLv2__XPathExpressionOptimizer.st'

  'XMLv2__XPathExpressionOptimizerTests.st'

  'XMLv2__XPathInvalidNodeIdError.st'

  'XMLv2__XPathLocationStep.st'

  'XMLv2__XPathNodePosition.st'

  'XMLv2__XPathNodePositionComparator.st'

  'XMLv2__XPathNodeSet.st'

  'XMLv2__XPathParser.st'

  'XMLv2__XPathProcessor.st'

  'XMLv2__XPathScanner.st'

  'XMLv2__XPathTests.st'

  'XMLv2__XPathAxis.st'

  'XMLv2__XPathDOM3DocumentAdaptor.st'

  'XMLv2__XPathDOM3DocumentAdaptorTests.st'

  'XMLv2__XPathNodeTest.st'

  'XMLv2__XPathPredicate.st'

  'XMLv2__XPathSimpleDocumentProvider.st'

  'XMLv2__XPathVWDocumentAdaptor.st'

  'XMLv2__XPathAxisAncestor.st'

  'XMLv2__XPathAxisAncestorOrSelf.st'

  'XMLv2__XPathAxisAttribute.st'

  'XMLv2__XPathAxisChild.st'

  'XMLv2__XPathAxisDescendant.st'

  'XMLv2__XPathAxisDescendantOrSelf.st'

  'XMLv2__XPathAxisFollowing.st'

  'XMLv2__XPathAxisFollowingSibling.st'

  'XMLv2__XPathAxisParent.st'

  'XMLv2__XPathAxisPreceding.st'

  'XMLv2__XPathAxisPrecedingSibling.st'

  'XMLv2__XPathAxisSelf.st'

  'XMLv2__XPathKindTest.st'

  'XMLv2__XPathNameTest.st'

  'XMLv2__XPathAnyKindTest.st'

  'XMLv2__XPathAttributeTest.st'

  'XMLv2__XPathCommentTest.st'

  'XMLv2__XPathDocumentTest.st'

  'XMLv2__XPathElementTest.st'

  'XMLv2__XPathProcessingInstructionTest.st'

  'XMLv2__XPathTextTest.st'

  'extensions.st'

) asOrderedCollection.

"/ see if there is a classLibrary

(Smalltalk fileInClassLibrary:'goodies/xmlsuite/xpath') ifTrue:[

    |handle loaded|

    handle := ObjectFileLoader loadedObjectHandles 

                    detect:[:h | h package = 'stx:goodies/xmlsuite/xpath'] 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:[

  ApplicationLoader::FileLoadingStartedEvent ifNotNil:[

    ApplicationLoader::FileLoadingStartedEvent new

        filenames:files;

        raise

    ].

  files do:[:f |

    f asFilename exists ifTrue:[

        Smalltalk fileIn:f.

        ApplicationLoader::FileLoadedEvent ifNotNil:[

            ApplicationLoader::FileLoadedEvent new

                raise

        ] ifNil:[

            '.' infoPrint.

        ]

    ] ifFalse:[

        Smalltalk fileIn:('source/' , f).

        ApplicationLoader::FileLoadedEvent ifNotNil:[

            ApplicationLoader::FileLoadedEvent new

                raise

        ] ifNil:[

            '.' infoPrint.

                ]

    ]

  ].

  ApplicationLoader::FileLoadingFinishedEvent ifNotNil:[

    ApplicationLoader::FileLoadingFinishedEvent new

        raise

    ].

  ' ' infoPrintCR.

].

' done (stx:goodies/xmlsuite/xpath).' infoPrintCR.

'Executing postLoad script if any...' infoPrintCR.

Smalltalk fileIn:'postLoad.st'.

!