Add containsObject and containsCollection to entities

moosetechnology · Apr 19, 2024 · 17526ce · 17526ce
1 parent a9bb3d7
commit 17526ce
Show file tree

Hide file tree

Showing 4 changed files with 51 additions and 0 deletions.
diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfCollection.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfCollection.extension.st
@@ -1,5 +1,17 @@
 Extension { #name : #FamixValueOfCollection }
 
+{ #category : #'*Famix-Value-Entities-Extensions' }
+FamixValueOfCollection >> containsCollection [
+
+	^ true
+]
+
+{ #category : #'*Famix-Value-Entities-Extensions' }
+FamixValueOfCollection >> containsObject [
+
+	^ value anySatisfy: [ :element | element value containsObject ]
+]
+
 { #category : #'*Famix-Value-Entities-Extensions' }
 FamixValueOfCollection >> printValueOn: aStream [
 

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfDictionary.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfDictionary.extension.st
@@ -1,5 +1,19 @@
 Extension { #name : #FamixValueOfDictionary }
 
+{ #category : #'*Famix-Value-Entities-Extensions' }
+FamixValueOfDictionary >> containsCollection [
+
+	^ true
+]
+
+{ #category : #'*Famix-Value-Entities-Extensions' }
+FamixValueOfDictionary >> containsObject [
+
+	^ value anySatisfy: [ :association |
+		  association key containsObject or: [
+			  association value containsObject ] ]
+]
+
 { #category : #'*Famix-Value-Entities-Extensions' }
 FamixValueOfDictionary >> printValueOn: aStream [
 

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfObject.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfObject.extension.st
@@ -1,5 +1,18 @@
 Extension { #name : #FamixValueOfObject }
 
+{ #category : #'*Famix-Value-Entities-Extensions' }
+FamixValueOfObject >> containsCollection [
+
+	^ value anySatisfy: [ :attribute |
+		  attribute value containsCollection ]
+]
+
+{ #category : #'*Famix-Value-Entities-Extensions' }
+FamixValueOfObject >> containsObject [
+
+	^ true
+]
+
 { #category : #'*Famix-Value-Entities-Extensions' }
 FamixValueOfObject >> printValueOn: aStream [
 

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfType.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfType.extension.st
@@ -1,5 +1,17 @@
 Extension { #name : #FamixValueOfType }
 
+{ #category : #'*Famix-Value-Entities-Extensions' }
+FamixValueOfType >> containsCollection [
+
+	^ false
+]
+
+{ #category : #'*Famix-Value-Entities-Extensions' }
+FamixValueOfType >> containsObject [
+
+	^ false
+]
+
 { #category : #'*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> mooseNameOn: aStream [