Added few printOn methods

OpenPonk · Nov 2, 2024 · de4ffaa · de4ffaa
1 parent 62a2277
commit de4ffaa
Show file tree

Hide file tree

Showing 4 changed files with 61 additions and 0 deletions.
diff --git a/repository/OP-UML-Metamodel/OPUMLAssociation.class.st b/repository/OP-UML-Metamodel/OPUMLAssociation.class.st
@@ -373,6 +373,29 @@ OPUMLAssociation >> powertypeExtents: aGeneralizationSet [
 	(sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet
 ]
 
+{ #category : 'printing' }
+OPUMLAssociation >> printOn: aStream [
+
+	| ends |
+	aStream << 'an ' << self class name << '('.
+	self name ifNotNil: [ :existingName |
+		existingName ifNotEmpty: [
+			existingName printOn: aStream.
+			aStream << ': ' ] ].
+	ends := self memberEnds asOrderedCollection.
+	ends addAll: self ownedEnds.
+	ends
+		ifEmpty: [ aStream << 'nil -> nil' ]
+		ifNotEmpty: [ :properties |
+			properties
+				do: [ :each |
+					each type
+						ifNil: [ aStream << 'nil' ]
+						ifNotNil: [ :type | type printAsClassifierNameOn: aStream ] ]
+				separatedBy: [ aStream << ' -> ' ] ].
+	aStream << ')'
+]
+
 { #category : 'accessing - NamedElement' }
 OPUMLAssociation >> qualifiedName [
 	^ (sharedGeneralizations at: #NamedElement) qualifiedName

diff --git a/repository/OP-UML-Metamodel/OPUMLGeneralization.class.st b/repository/OP-UML-Metamodel/OPUMLGeneralization.class.st
@@ -67,6 +67,21 @@ OPUMLGeneralization >> isSubstitutable: aBoolean [
 	isSubstitutable := aBoolean
 ]
 
+{ #category : 'printing' }
+OPUMLGeneralization >> printOn: aStream [
+
+	super printOn: aStream.
+	aStream << '('.
+	self specific
+		ifNil: [ aStream << 'nil' ]
+		ifNotNil: [ :element | element printAsClassifierNameOn: aStream ].
+	aStream << ' -> '.
+	self general
+		ifNil: [ aStream << 'nil' ]
+		ifNotNil: [ :element | element printAsClassifierNameOn: aStream ].
+	aStream << ')'
+]
+
 { #category : 'accessing - Relationship' }
 OPUMLGeneralization >> relatedElements [
 	^ (sharedGeneralizations at: #Relationship) relatedElements

diff --git a/repository/OP-UML-Metamodel/OPUMLMetaElement.class.st b/repository/OP-UML-Metamodel/OPUMLMetaElement.class.st
@@ -264,6 +264,17 @@ OPUMLMetaElement >> oclIsTypeOf: aClassifier [
 	^ sharedGeneralizations keys last = (self oclClassifierNameFrom: aClassifier)
 ]
 
+{ #category : 'printing' }
+OPUMLMetaElement >> printAsClassifierNameOn: aStream [
+
+	aStream << (self oclClassifierNameFrom: self class).
+	(self class selectors includes: #name) ifTrue: [
+		aStream
+			<< '(';
+			<< self name printString;
+			<< ')' ]
+]
+
 { #category : 'printing' }
 OPUMLMetaElement >> printOn: aStream [
 	super printOn: aStream.

diff --git a/repository/OP-UML-Metamodel/OPUMLProperty.class.st b/repository/OP-UML-Metamodel/OPUMLProperty.class.st
@@ -496,6 +496,18 @@ OPUMLProperty >> owningTemplateParameter: aTemplateParameter [
 	(sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter
 ]
 
+{ #category : 'printing' }
+OPUMLProperty >> printOn: aStream [
+
+	aStream << 'an ' << self class name << '('.
+	self name ifNotNil: [ :existingName |
+		existingName ifNotEmpty: [
+			aStream << existingName.
+			self type ifNotNil: [ aStream << ': ' ] ] ].
+	self type ifNotNil: [ :type | type printAsClassifierNameOn: aStream ].
+	aStream << ')'
+]
+
 { #category : 'accessing - NamedElement' }
 OPUMLProperty >> qualifiedName [
 	^ (sharedGeneralizations at: #NamedElement) qualifiedName