Change ClassReference to TypeReference

moosetechnology · Sep 4, 2024 · fabfd42 · fabfd42
1 parent 35720b1
commit fabfd42
Show file tree

Hide file tree

Showing 112 changed files with 826 additions and 781 deletions.
diff --git a/src/Famix-Value-Entities-Extensions/FamixTType.extension.st b/src/Famix-Value-Entities-Extensions/FamixTType.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixTType }
+Extension { #name : 'FamixTType' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixTType >> isUnknownType [
 
 	^ false

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfClosure.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfClosure.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixValueOfClosure }
+Extension { #name : 'FamixValueOfClosure' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfClosure >> mooseNameOn: aStream [
 
 	sourceCode

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

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfCollectionElement.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfCollectionElement.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixValueOfCollectionElement }
+Extension { #name : 'FamixValueOfCollectionElement' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfCollectionElement >> mooseNameOn: aStream [
 
 	aStream nextPut: $[.

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

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfDictionaryAssociation.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfDictionaryAssociation.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixValueOfDictionaryAssociation }
+Extension { #name : 'FamixValueOfDictionaryAssociation' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfDictionaryAssociation >> mooseNameOn: aStream [
 
 	aStream << (key ifNotNil: [ key type name ] ifNil: [ '<keyType>' ])

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfObject.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfObject.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixValueOfObject }
+Extension { #name : 'FamixValueOfObject' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfObject >> constructorSignature [
 
 	^ String streamContents: [ :s |
@@ -11,28 +11,28 @@ FamixValueOfObject >> constructorSignature [
 		  s nextPut: $) ]
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfObject >> containsCollection [
 
 	^ value anySatisfy: [ :attribute |
 		  attribute value containsCollection ]
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfObject >> containsObject [
 
 	^ true
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfObject >> printValueOn: aStream [
 
 	aStream << ${ << self value size asString << ' attribute'.
 	self value size = 1 ifFalse: [ aStream nextPut: $s ].
 	aStream nextPut: $}
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfObject >> relevantAttributes [
 
 	^ value reject: [ :attribute |

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfObjectAttribute.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfObjectAttribute.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixValueOfObjectAttribute }
+Extension { #name : 'FamixValueOfObjectAttribute' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfObjectAttribute >> mooseNameOn: aStream [
 
 	value printTypeOn: aStream.
@@ -10,7 +10,7 @@ FamixValueOfObjectAttribute >> mooseNameOn: aStream [
 	value printValueOn: aStream
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfObjectAttribute >> varName [
 
 	^ self attribute

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfPrimitiveType.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfPrimitiveType.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixValueOfPrimitiveType }
+Extension { #name : 'FamixValueOfPrimitiveType' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfPrimitiveType >> printValueOn: aStream [
 
 	aStream nextPutAll: (value printStringLimitedTo: 50)

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueOfType.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueOfType.extension.st
@@ -1,33 +1,33 @@
-Extension { #name : #FamixValueOfType }
+Extension { #name : 'FamixValueOfType' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> containsCollection [
 
 	^ false
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> containsObject [
 
 	^ false
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> isReferencedInLoop [
 
 	| count |
 	count := self referenceCount.
 	^ count > 1 or: [ count = 1 and: [ self isRoot ] ]
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> isRoot [
 
 	^ self argumentInSpans isEmpty or: [
 		  self resultInSpan isNotNil or: [ self receiverInSpan isNotNil ] ]
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> mooseNameOn: aStream [
 
 	self printTypeOn: aStream.
@@ -37,7 +37,7 @@ FamixValueOfType >> mooseNameOn: aStream [
 	self printValueOn: aStream
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> printTypeOn: aStream [
 
 	self type
@@ -48,21 +48,21 @@ FamixValueOfType >> printTypeOn: aStream [
 		ifNil: [ aStream nextPutAll: '<type>' ]
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> printValueOn: aStream [
 
 	self value printOn: aStream
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> referenceCount [
 
 	^ attributeInObjects size + elementInCollections size
 	  + keyInDictionaries size + valueInDictionaries size
 	  + variableInClosures size
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueOfType >> varName [
 	"Basic variable name of a value."
 

diff --git a/src/Famix-Value-Entities-Extensions/FamixValueUnknownType.extension.st b/src/Famix-Value-Entities-Extensions/FamixValueUnknownType.extension.st
@@ -1,49 +1,37 @@
-Extension { #name : #FamixValueUnknownType }
+Extension { #name : 'FamixValueUnknownType' }
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueUnknownType >> acceptValueVisitor: visitor forObject: object [
 
 	self error: 'Exporting an unknown type is not (yet?) supported.'
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
-FamixValueUnknownType >> baseName [
-
-	^ name
-]
-
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueUnknownType >> concreteTypeName [
 
 	^ name
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueUnknownType >> isParametricEntity [
 
 	^ false
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueUnknownType >> isPrimitiveType [
 
 	^ false
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueUnknownType >> methods [
 
 	^ {  }
 ]
 
-{ #category : #'*Famix-Value-Entities-Extensions' }
+{ #category : '*Famix-Value-Entities-Extensions' }
 FamixValueUnknownType >> typeName [
 
 	^ name
 ]
-
-{ #category : #'*Famix-Value-Entities-Extensions' }
-FamixValueUnknownType >> typeNameOn: stream [
-
-	stream nextPutAll: name
-]
diff --git a/src/Famix-Value-Entities-Extensions/package.st b/src/Famix-Value-Entities-Extensions/package.st
@@ -1 +1 @@
-Package { #name : #'Famix-Value-Entities-Extensions' }
+Package { #name : 'Famix-Value-Entities-Extensions' }
diff --git a/src/Famix-Value-Entities/FamixTAttribute.extension.st b/src/Famix-Value-Entities/FamixTAttribute.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixTAttribute }
+Extension { #name : 'FamixTAttribute' }
 
-{ #category : #'*Famix-Value-Entities-accessing' }
+{ #category : '*Famix-Value-Entities-accessing' }
 FamixTAttribute >> valueInObjects [
 	"Relation named: #valueInObjects type: #FamixValueOfObjectAttribute opposite: #attribute"
 
@@ -11,7 +11,7 @@ FamixTAttribute >> valueInObjects [
 	^ self attributeAt: #valueInObjects ifAbsentPut: [ FMMultivalueLink on: self opposite: #attribute: ]
 ]
 
-{ #category : #'*Famix-Value-Entities-accessing' }
+{ #category : '*Famix-Value-Entities-accessing' }
 FamixTAttribute >> valueInObjects: anObject [
 
 	<generated>

diff --git a/src/Famix-Value-Entities/FamixTClass.extension.st b/src/Famix-Value-Entities/FamixTClass.extension.st
diff --git a/src/Famix-Value-Entities/FamixTEnumValue.extension.st b/src/Famix-Value-Entities/FamixTEnumValue.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixTEnumValue }
+Extension { #name : 'FamixTEnumValue' }
 
-{ #category : #'*Famix-Value-Entities-accessing' }
+{ #category : '*Famix-Value-Entities-accessing' }
 FamixTEnumValue >> valueReferences [
 	"Relation named: #valueReferences type: #FamixValueOfEnum opposite: #value"
 
@@ -11,7 +11,7 @@ FamixTEnumValue >> valueReferences [
 	^ self attributeAt: #valueReferences ifAbsentPut: [ FMMultivalueLink on: self opposite: #value: ]
 ]
 
-{ #category : #'*Famix-Value-Entities-accessing' }
+{ #category : '*Famix-Value-Entities-accessing' }
 FamixTEnumValue >> valueReferences: anObject [
 
 	<generated>

diff --git a/src/Famix-Value-Entities/FamixTType.extension.st b/src/Famix-Value-Entities/FamixTType.extension.st
@@ -1,6 +1,24 @@
-Extension { #name : #FamixTType }
+Extension { #name : 'FamixTType' }
 
-{ #category : #'*Famix-Value-Entities-accessing' }
+{ #category : '*Famix-Value-Entities-accessing' }
+FamixTType >> valueReferences [
+	"Relation named: #valueReferences type: #FamixValueOfTypeReference opposite: #value"
+
+	<generated>
+	<derived>
+	<FMProperty: #valueReferences type: #FamixValueOfTypeReference opposite: #value>
+	<package: #'Famix-Value-Entities'>
+	^ self attributeAt: #valueReferences ifAbsentPut: [ FMMultivalueLink on: self opposite: #value: ]
+]
+
+{ #category : '*Famix-Value-Entities-accessing' }
+FamixTType >> valueReferences: anObject [
+
+	<generated>
+	self valueReferences value: anObject
+]
+
+{ #category : '*Famix-Value-Entities-accessing' }
 FamixTType >> values [
 	"Relation named: #values type: #FamixValueOfType opposite: #type"
 
@@ -11,7 +29,7 @@ FamixTType >> values [
 	^ self attributeAt: #values ifAbsentPut: [ FMMultivalueLink on: self opposite: #type: ]
 ]
 
-{ #category : #'*Famix-Value-Entities-accessing' }
+{ #category : '*Famix-Value-Entities-accessing' }
 FamixTType >> values: anObject [
 
 	<generated>

diff --git a/src/Famix-Value-Entities/FamixTTypedEntity.extension.st b/src/Famix-Value-Entities/FamixTTypedEntity.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #FamixTTypedEntity }
+Extension { #name : 'FamixTTypedEntity' }
 
-{ #category : #'*Famix-Value-Entities-accessing' }
+{ #category : '*Famix-Value-Entities-accessing' }
 FamixTTypedEntity >> values [
 	"Relation named: #values type: #FamixValueOfType opposite: #typedEntity"
 
@@ -11,7 +11,7 @@ FamixTTypedEntity >> values [
 	^ self attributeAt: #values ifAbsentPut: [ FMMultivalueLink on: self opposite: #typedEntity: ]
 ]
 
-{ #category : #'*Famix-Value-Entities-accessing' }
+{ #category : '*Famix-Value-Entities-accessing' }
 FamixTTypedEntity >> values: anObject [
 
 	<generated>