Add missing extension methods

jecisc · Apr 2, 2020 · 510bb93 · 510bb93
1 parent 3b1bc7a
commit 510bb93
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/src/Chanel/RBAssignmentNode.extension.st b/src/Chanel/RBAssignmentNode.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : #RBAssignmentNode }
+
+{ #category : #'*Chanel' }
+RBAssignmentNode >> removeFromTree [
+	self parent removeNode: self
+]
diff --git a/src/Chanel/RBTemporaryNode.extension.st b/src/Chanel/RBTemporaryNode.extension.st
@@ -0,0 +1,14 @@
+Extension { #name : #RBTemporaryNode }
+
+{ #category : #'*Chanel' }
+RBTemporaryNode >> declaringScope [
+	| ancestor |
+	ancestor := self parent.
+	[ ancestor isNil ] whileFalse: [ (ancestor temporaries anySatisfy: [ :each | each name = self name ]) ifTrue: [ ^ ancestor ] ].
+	self error: 'Undeclared temporary'
+]
+
+{ #category : #'*Chanel' }
+RBTemporaryNode >> isReadAtLeastOnce [
+	^ self declaringScope allChildren noneSatisfy: [ :node | node isTemp and: [ node name = self name and: [ node isRead ] ] ]
+]