reuse SmaCCMethodNodeSourceIntervalFinder

feenkcom · May 14, 2024 · a277f37 · a277f37
1 parent 697f2f6
commit a277f37
Showing 1 changed file with 4 additions and 20 deletions.
diff --git a/src/GT4SmaCC-Rewrite-Engine-UI/GtSmaCCTransformationToolkitDebuggerElement.class.st b/src/GT4SmaCC-Rewrite-Engine-UI/GtSmaCCTransformationToolkitDebuggerElement.class.st
@@ -125,21 +125,6 @@ GtSmaCCTransformationToolkitDebuggerElement >> detailsElement [
 	^ element
 ]
 
-{ #category : #ui }
-GtSmaCCTransformationToolkitDebuggerElement >> equivalentNodeTo: aNode in: otherTree [
-	| equivParent nodeIndex equivNode |
-	aNode isMethod ifTrue: [ ^ otherTree ].
-	(aNode parent isReturn and: [ aNode parent parent parent isMethod ])
-		ifTrue:
-			[ equivNode := otherTree isSequence ifTrue: [ otherTree statements last ] ifFalse: [ otherTree ].
-			^ equivNode isReturn ifTrue: [ equivNode value ] ifFalse: [ equivNode ] ].
-	aNode parent isMethod ifTrue: [ otherTree isSequence ifTrue: [ ^ otherTree ] ifFalse: [ ^ otherTree parent ] ].
-	equivParent := self equivalentNodeTo: aNode parent in: otherTree.
-	equivParent ifNil: [ ^ nil ].
-	nodeIndex := aNode parent children identityIndexOf: aNode.
-	^ equivParent children at: nodeIndex ifAbsent: [ nil ]
-]
-
 { #category : #ui }
 GtSmaCCTransformationToolkitDebuggerElement >> executeAction: aDebuggingAction [
 	aDebuggingAction execute.
@@ -259,11 +244,10 @@ GtSmaCCTransformationToolkitDebuggerElement >> inspectorListElement [
 
 { #category : #ui }
 GtSmaCCTransformationToolkitDebuggerElement >> intervalFromMethodNode: aNode inSource: aString [
-	| otherTree otherNode |
-	otherTree := RBParser parseExpression: aString onError: [ :msg :pos | ^ 1 to: 0 ].
-	otherNode := self equivalentNodeTo: aNode in: otherTree.
-	otherNode ifNil: [ ^ 1 to: 0 ].
-	^ otherNode start to: otherNode stop
+	^ SmaCCMethodNodeSourceIntervalFinder new
+		methodNode: aNode;
+		sourceString: aString;
+		find
 ]
 
 { #category : #ui }