Added instvar line: to XPathExpression to be polymorph with Perseus::ASTNode
authorJan Vrany <jan.vrany@fit.cvut.cz>
Mon, 01 Dec 2008 15:14:07 +0000
changeset 35 b70630fb532b
parent 34 8642be14029d
child 36 f4bc933a933d
Added instvar line: to XPathExpression to be polymorph with Perseus::ASTNode
xpath/trunk/XMLv2__XPathExpression.st
xpath/trunk/stx_goodies_xmlsuite_xpath.st
--- a/xpath/trunk/XMLv2__XPathExpression.st	Mon Dec 01 07:59:15 2008 +0000
+++ b/xpath/trunk/XMLv2__XPathExpression.st	Mon Dec 01 15:14:07 2008 +0000
@@ -3,7 +3,7 @@
 "{ NameSpace: XMLv2 }"
 
 OrderedCollection subclass:#XPathExpression
-	instanceVariableNames:'absolute parent startPosition stopPosition'
+	instanceVariableNames:'absolute parent startPosition stopPosition line'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'XML Suite-XPath'
@@ -24,6 +24,18 @@
     "Created: / 16-11-2007 / 08:35:44 / janfrog"
 !
 
+line
+    ^ line
+
+    "Created: / 01-12-2008 / 16:00:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+line:anInteger
+    line := anInteger.
+
+    "Created: / 01-12-2008 / 16:00:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
 nodeTypeIcon
 
     ^nil
--- a/xpath/trunk/stx_goodies_xmlsuite_xpath.st	Mon Dec 01 07:59:15 2008 +0000
+++ b/xpath/trunk/stx_goodies_xmlsuite_xpath.st	Mon Dec 01 15:14:07 2008 +0000
@@ -17,11 +17,12 @@
         #'stx:goodies/sunit'    "TestCase - superclass of XMLv2::XPathExpressionOptimizerTests "
         #'stx:goodies/xml/vw'    "XML::Document - referenced by XMLv2::XPathVWDocumentAdaptor class>>documentClass "
         #'stx:goodies/xmlsuite/core'    "XMLv2::XMLReader - superclass of XMLv2::XPathDOMAdaptorXMLReader "
+        #'stx:goodies/xmlsuite/xquery'    "XQuery::XQueryResultXMLReader - referenced by XMLv2::XPathDocumentAdaptor>>importForeignNode:adaptor: "
         #'stx:libbasic'    "Object - superclass of XMLv2::XPathDOM3DocumentAdaptor "
         #'stx:libbasic2'    "List - referenced by XMLv2::XPathExprTreeNode>>subnodes "
     )
 
-    "Modified: / 22-11-2008 / 08:17:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 01-12-2008 / 16:13:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !stx_goodies_xmlsuite_xpath class methodsFor:'description - contents'!