--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/xpath/trunk/loadAll	Tue Apr 08 19:47:42 2008 +0000
@@ -0,0 +1,133 @@
+"/
+"/ $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'.
+!