add sugar method on interface for support of Moose 10

badetitou · Feb 1, 2023 · 450f90b · 450f90b
1 parent b9073f7
commit 450f90b
Showing 1 changed file with 33 additions and 0 deletions.
diff --git a/src/Carrefour-FastAndBindingGenerator/FamixJavaInterface.extension.st b/src/Carrefour-FastAndBindingGenerator/FamixJavaInterface.extension.st
@@ -4,3 +4,36 @@ Extension { #name : #FamixJavaInterface }
 FamixJavaInterface >> bindFastModel: fastModel usingBinder: binder [
 	binder bindFastModel: fastModel fromFamixClassEntity: self
 ]
+
+{ #category : #'*Carrefour-FastAndBindingGenerator' }
+FamixJavaInterface >> generateFastAndBind [
+	| fastModel |
+	self assert: self sourceAnchor isNotNil.
+	fastModel := self generateFastJava
+		metamodel: CRFModel metamodel;
+		yourself.
+	self bindFastModel: fastModel usingBinder: CRFBinderVisitor new.
+	^ fastModel
+]
+
+{ #category : #'*Carrefour-FastAndBindingGenerator' }
+FamixJavaInterface >> generateFastIfNotDoneAndBind [
+
+	self fastDeclaration ifNotEmpty: [ 
+		^ self fastDeclaration anyOne mooseModel ].
+	self fastTypeDefinition ifNotNil: [ 
+		^ self fastTypeDefinition mooseModel ].
+	^ self isAnonymousClass
+		  ifFalse: [ self generateFastAndBind ]
+		  ifTrue: [ 
+			  ((self
+				    allAtScope: FamixTClass
+				    until: [ :c | 
+				    (c isKindOf: FamixJavaClass) and: [ c isAnonymousClass not ] ])
+				   asOrderedCollection \ { self }) anyOne generateFastAndBind ]
+]
+
+{ #category : #'*Carrefour-FastAndBindingGenerator' }
+FamixJavaInterface >> generateFastJava [
+	^ JavaSmaCCProgramNodeImporterVisitor new parseCodeString: self sourceAnchor sourceText
+]