# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1425083455 -3600
# Node ID a9f1c22fc39c10873a12017412a51f8b35482faf
# Parent  dfa524854f2548e142d63e684dc86b23f0d05e53
class: ParseTreeIndex
slightly refactored for code cleanup
(a lot of duplicate cde between ParseTreeIndex::Element
and SmallSense::ParseTreeIndexEntry

diff -r dfa524854f25 -r a9f1c22fc39c ParseTreeIndex.st
--- a/ParseTreeIndex.st	Sat Feb 28 01:30:41 2015 +0100
+++ b/ParseTreeIndex.st	Sat Feb 28 01:30:55 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2006 by eXept Software AG
               All Rights Reserved
@@ -23,7 +21,7 @@
 !
 
 SyntaxElement subclass:#Element
-	instanceVariableNames:'node'
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:ParseTreeIndex
@@ -142,14 +140,6 @@
     "Created: / 01-07-2013 / 21:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-node
-    ^ node
-!
-
-node:something
-    node := something.
-!
-
 start
     ^ node startPosition
 
@@ -210,32 +200,8 @@
     "Modified: / 16-02-2012 / 19:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!ParseTreeIndex::Element methodsFor:'queries'!
-
-isInBlockScope:aBlockScopeOrNil
-    ^ node block == aBlockScopeOrNil
-!
-
-isInSameBlockScopeAs:anotherElement
-    ^ anotherElement isInBlockScope:node block
-! !
-
 !ParseTreeIndex::Element methodsFor:'testing'!
 
-isClassVariable
-    ^node isVariable and:[node isClassVariable]
-!
-
-isGlobal
-    ^ node isGlobal
-!
-
-isInstanceVariable
-    ^node isVariable and:[node isInstanceVariable]
-
-    "Created: / 01-07-2013 / 21:54:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 isSelector
     ^ node class == SelectorNode
 
@@ -248,22 +214,15 @@
 
     "Created: / 21-08-2011 / 09:31:20 / cg"
     "Modified: / 16-02-2012 / 19:25:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-isVariable
-    ^ node isVariable
-
-    "Created: / 21-08-2011 / 09:09:00 / cg"
-    "Modified: / 16-02-2012 / 19:24:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ParseTreeIndex class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.8 2015-02-27 20:23:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.9 2015-02-28 00:30:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.8 2015-02-27 20:23:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.9 2015-02-28 00:30:55 cg Exp $'
 ! !