Merge pull request #98 from jecisc/extensions

Update classes of extensions
pharo-spec · Sep 24, 2024 · c31f95c · c31f95c
2 parents b791f66 + 3b62add
commit c31f95c
Show file tree

Hide file tree

Showing 10 changed files with 37 additions and 37 deletions.
diff --git a/src/Sindarin/ASTAssignmentNode.extension.st b/src/Sindarin/ASTAssignmentNode.extension.st
@@ -0,0 +1,7 @@
+Extension { #name : 'ASTAssignmentNode' }
+
+{ #category : '*Sindarin' }
+ASTAssignmentNode >> skipWithDebugger: aSindarinDebugger [
+
+	aSindarinDebugger skipAssignmentNodeCompletely 
+]
diff --git a/src/Sindarin/RBBlockNode.extension.st → src/Sindarin/ASTBlockNode.extension.st b/src/Sindarin/RBBlockNode.extension.st → src/Sindarin/ASTBlockNode.extension.st
@@ -1,7 +1,7 @@
-Extension { #name : 'RBBlockNode' }
+Extension { #name : 'ASTBlockNode' }
 
 { #category : '*Sindarin' }
-RBBlockNode >> executedNodesAfter: aNode [
+ASTBlockNode >> executedNodesAfter: aNode [
 
 	"Gives all nodes that are executed after aNode. Assuming that aNode is a recursive child, then all nodes executed after it are all nodes after it in allChildrenPostOrder"
 
@@ -14,13 +14,13 @@ RBBlockNode >> executedNodesAfter: aNode [
 ]
 
 { #category : '*Sindarin' }
-RBBlockNode >> firstPCOfStatement: aStatementNode [
+ASTBlockNode >> firstPCOfStatement: aStatementNode [
 
 	^ self bcToASTCache firstRecursiveBcOffsetForStatementNode: aStatementNode
 ]
 
 { #category : '*Sindarin' }
-RBBlockNode >> nextExecutedNodeAfter: aNode [
+ASTBlockNode >> nextExecutedNodeAfter: aNode [
 
 	"Find first node that is after aNode that has an associated pc in method node all children (post-order)"
 
@@ -32,7 +32,7 @@ RBBlockNode >> nextExecutedNodeAfter: aNode [
 ]
 
 { #category : '*Sindarin' }
-RBBlockNode >> parentOfIdenticalSubtree: subtree [
+ASTBlockNode >> parentOfIdenticalSubtree: subtree [
 
 	^ self allChildren reversed
 		  detect: [ :e | e == subtree ]
@@ -41,7 +41,7 @@ RBBlockNode >> parentOfIdenticalSubtree: subtree [
 ]
 
 { #category : '*Sindarin' }
-RBBlockNode >> skipWithDebugger: aSindarinDebugger [
+ASTBlockNode >> skipWithDebugger: aSindarinDebugger [
 
 	aSindarinDebugger skipBlockNode 
 ]
diff --git a/src/Sindarin/ASTMessageNode.extension.st b/src/Sindarin/ASTMessageNode.extension.st
@@ -0,0 +1,7 @@
+Extension { #name : 'ASTMessageNode' }
+
+{ #category : '*Sindarin' }
+ASTMessageNode >> skipWithDebugger: aSindarinDebugger [
+
+	aSindarinDebugger skipMessageNode 
+]
diff --git a/src/Sindarin/RBMethodNode.extension.st → src/Sindarin/ASTMethodNode.extension.st b/src/Sindarin/RBMethodNode.extension.st → src/Sindarin/ASTMethodNode.extension.st
@@ -1,7 +1,7 @@
-Extension { #name : 'RBMethodNode' }
+Extension { #name : 'ASTMethodNode' }
 
 { #category : '*Sindarin' }
-RBMethodNode >> executedNodesAfter: aNode [
+ASTMethodNode >> executedNodesAfter: aNode [
 
 	"Gives all nodes that are executed after aNode. Assuming that aNode is a recursive child, then all nodes executed after it are all nodes after it in allChildrenPostOrder"
 
@@ -14,13 +14,13 @@ RBMethodNode >> executedNodesAfter: aNode [
 ]
 
 { #category : '*Sindarin' }
-RBMethodNode >> firstPCOfStatement: aStatementNode [
+ASTMethodNode >> firstPCOfStatement: aStatementNode [
 
 	^ self bcToASTCache firstRecursiveBcOffsetForStatementNode: aStatementNode
 ]
 
 { #category : '*Sindarin' }
-RBMethodNode >> nextExecutedNodeAfter: aNode [
+ASTMethodNode >> nextExecutedNodeAfter: aNode [
 
 	"Find first node that is after aNode that has an associated pc in method node all children (post-order)"
 
@@ -32,7 +32,7 @@ RBMethodNode >> nextExecutedNodeAfter: aNode [
 ]
 
 { #category : '*Sindarin' }
-RBMethodNode >> parentOfIdenticalSubtree: subtree [
+ASTMethodNode >> parentOfIdenticalSubtree: subtree [
 
 	^ self allChildren reversed
 		  detect: [ :e | e == subtree ]
@@ -41,7 +41,7 @@ RBMethodNode >> parentOfIdenticalSubtree: subtree [
 ]
 
 { #category : '*Sindarin' }
-RBMethodNode >> statementNodeContaining: aNode [
+ASTMethodNode >> statementNodeContaining: aNode [
 
 	| statementNode parentOfStatementNode |
 	statementNode := aNode.

diff --git a/src/Sindarin/RBProgramNode.extension.st → src/Sindarin/ASTProgramNode.extension.st b/src/Sindarin/RBProgramNode.extension.st → src/Sindarin/ASTProgramNode.extension.st
@@ -1,7 +1,7 @@
-Extension { #name : 'RBProgramNode' }
+Extension { #name : 'ASTProgramNode' }
 
 { #category : '*Sindarin' }
-RBProgramNode >> allChildrenPostOrder [
+ASTProgramNode >> allChildrenPostOrder [
 
 	| children |
 	children := OrderedCollection new.
@@ -12,7 +12,7 @@ RBProgramNode >> allChildrenPostOrder [
 ]
 
 { #category : '*Sindarin' }
-RBProgramNode >> skipWithDebugger: aSindarinDebugger [
+ASTProgramNode >> skipWithDebugger: aSindarinDebugger [
 
 	aSindarinDebugger step
 ]
diff --git a/src/Sindarin/ASTReturnNode.extension.st b/src/Sindarin/ASTReturnNode.extension.st
@@ -0,0 +1,7 @@
+Extension { #name : 'ASTReturnNode' }
+
+{ #category : '*Sindarin' }
+ASTReturnNode >> skipWithDebugger: aSindarinDebugger [
+
+	aSindarinDebugger skipReturnNode
+]
diff --git a/src/Sindarin/RBAssignmentNode.extension.st b/src/Sindarin/RBAssignmentNode.extension.st
diff --git a/src/Sindarin/RBBlockDefinitionSearchingVisitor.class.st b/src/Sindarin/RBBlockDefinitionSearchingVisitor.class.st
@@ -1,6 +1,6 @@
 Class {
 	#name : 'RBBlockDefinitionSearchingVisitor',
-	#superclass : 'RBProgramNodeVisitor',
+	#superclass : 'ASTProgramNodeVisitor',
 	#instVars : [
 		'blockToSearch',
 		'isBlockFound'

diff --git a/src/Sindarin/RBMessageNode.extension.st b/src/Sindarin/RBMessageNode.extension.st
diff --git a/src/Sindarin/RBReturnNode.extension.st b/src/Sindarin/RBReturnNode.extension.st