add exporter of MermaidUML in roasaal

src/BaselineOfMermaidPharo/BaselineOfMermaidPharo.class.st

@@ -47,7 +47,7 @@ BaselineOfMermaidPharo >> definePackages: spec [
 		with: [ spec requires: #( 'CApi' ) ];
 		package: 'MermaidPharo-Extension-Tests'
 		with: [ spec requires: #( 'MermaidPharo-Extension' ) ];
-		package: 'MermaidPharo-ClassDiagram';
+		"Class Diagram"package: 'MermaidPharo-ClassDiagram';
 		package: 'MermaidPharo-Writter';
 		package: 'MermaidPharo-Writter-Tests'
 		with: [ spec requires: #( 'MermaidPharo-Writter' ) ];
@@ -56,6 +56,10 @@ BaselineOfMermaidPharo >> definePackages: spec [
 		with: [ spec requires: #( 'Pharo2Mermaid' ) ];
 		package: 'Moose2Mermaid'.
 
+	"Class diagram roassal"
+	spec
+		package: 'MermaidPharo-Roassal-ClassDiagram'
+		with: [ spec requires: #( 'MermaidPharo-Writter' ) ].
 	"Flowchart"
 	spec
 		package: 'MermaidPharo-Flowchart'

src/MermaidPharo-ClassDiagram/MeClassDiagram.class.st

@@ -13,7 +13,7 @@ Class {
 
 { #category : #visiting }
 MeClassDiagram >> accept: mermaidWritter [
-	mermaidWritter visitClassDiagram: self 
+	^ mermaidWritter visitClassDiagram: self 
 ]
 
 { #category : #accessing }

src/MermaidPharo-Roassal-ClassDiagram/ManifestMermaidPharoRoassalClassDiagram.class.st

@@ -0,0 +1,8 @@
+"
+This package includes a backend writter to export MermaidJS ClassDiagram into a Roassal visualisation
+"
+Class {
+	#name : #ManifestMermaidPharoRoassalClassDiagram,
+	#superclass : #PackageManifest,
+	#category : #'MermaidPharo-Roassal-ClassDiagram-Manifest'
+}

src/MermaidPharo-Roassal-ClassDiagram/MeRSClassDiagramExporter.class.st

@@ -0,0 +1,55 @@
+"
+My entrypoint is `visitClassDiagram: aClassDiagram`.
+I provide a canvas with the rossal class diagram
+"
+Class {
+	#name : #MeRSClassDiagramExporter,
+	#superclass : #MeWritterVisitor,
+	#instVars : [
+		'canvas',
+		'builder',
+		'diagram'
+	],
+	#category : #'MermaidPharo-Roassal-ClassDiagram-Manifest'
+}
+
+{ #category : #visiting }
+MeRSClassDiagramExporter >> rsClassDescriptor [
+
+	^ RSUMLClassDescriptor new
+		  classname: #name;
+		  instVars: [ :cls | cls attributes ];
+		  methods: [ :meClass | meClass methods ];
+		  isAbstract: false;
+		  superclass: [ :meClass |
+			  (diagram relations select: [ :rel |
+					   rel toClass = meClass and: [
+							   rel fromRelationType isKindOf: MeCDInheritanceRelationType ] ])
+				  ifNotEmpty: [ :inheritanceRelations |
+					  inheritanceRelations anyOne fromClass ]
+				  ifEmpty: [ nil ] ];
+		  methodsLimit: SmallInteger maxVal
+]
+
+{ #category : #visiting }
+MeRSClassDiagramExporter >> visitClass: aMeClass [
+	builder classes add: aMeClass
+
+]
+
+{ #category : #visiting }
+MeRSClassDiagramExporter >> visitClassDiagram: aClassDiagram [
+
+	diagram := aClassDiagram.
+	canvas := RSCanvas new.
+	builder := RSUMLClassBuilder new.
+	builder modelDescriptor: self rsClassDescriptor.
+	aClassDiagram classes ifNotEmpty: [ :classes |.
+		builder classes: OrderedCollection new.
+		classes do: [ :class | class accept: self ] ].
+	builder build.
+	builder renderIn: canvas.
+	canvas zoomToFit.
+	canvas @ RSCanvasController.
+	^ canvas
+]

src/MermaidPharo-Roassal-ClassDiagram/package.st

@@ -0,0 +1 @@
+Package { #name : #'MermaidPharo-Roassal-ClassDiagram' }