Adding IntrinsicRoutine to the meta-model and regenerated

moosetechnology · Jun 15, 2024 · 43dd023 · 43dd023
1 parent bcdff5a
commit 43dd023
Show file tree

Hide file tree

Showing 4 changed files with 52 additions and 7 deletions.
diff --git a/src/Famix-Fortran77-Entities/FamixF77ImportingContext.class.st b/src/Famix-Fortran77-Entities/FamixF77ImportingContext.class.st
@@ -64,6 +64,13 @@ FamixF77ImportingContext >> importIndexedFileAnchor [
 	^ self importConcreteEntity: (self class fm3ClassNamed: #IndexedFileAnchor)
 ]
 
+{ #category : #importing }
+FamixF77ImportingContext >> importIntrinsicRoutine [
+
+	<generated>
+	^ self importConcreteEntity: (self class fm3ClassNamed: #IntrinsicRoutine)
+]
+
 { #category : #importing }
 FamixF77ImportingContext >> importInvocation [
 
@@ -232,6 +239,13 @@ FamixF77ImportingContext >> shouldImportIndexedFileAnchor [
 	^ self shouldImport: #IndexedFileAnchor
 ]
 
+{ #category : #testing }
+FamixF77ImportingContext >> shouldImportIntrinsicRoutine [
+
+	<generated>
+	^ self shouldImport: #IntrinsicRoutine
+]
+
 { #category : #testing }
 FamixF77ImportingContext >> shouldImportInvocation [
 

diff --git a/src/Famix-Fortran77-Entities/FamixF77IntrinsicRoutine.class.st b/src/Famix-Fortran77-Entities/FamixF77IntrinsicRoutine.class.st
@@ -0,0 +1,19 @@
+"
+A subroutine (or function) defined in the Fortran language itself
+
+
+"
+Class {
+	#name : #FamixF77IntrinsicRoutine,
+	#superclass : #FamixF77Entity,
+	#category : #'Famix-Fortran77-Entities-Entities'
+}
+
+{ #category : #meta }
+FamixF77IntrinsicRoutine class >> annotation [
+
+	<FMClass: #IntrinsicRoutine super: #FamixF77Entity>
+	<package: #'Famix-Fortran77-Entities'>
+	<generated>
+	^ self
+]
diff --git a/src/Famix-Fortran77-Entities/FamixF77TEntityCreator.trait.st b/src/Famix-Fortran77-Entities/FamixF77TEntityCreator.trait.st
@@ -67,6 +67,13 @@ FamixF77TEntityCreator >> newIndexedFileAnchor [
 	^ self add: FamixF77IndexedFileAnchor new
 ]
 
+{ #category : #'entity creation' }
+FamixF77TEntityCreator >> newIntrinsicRoutine [
+
+	<generated>
+	^ self add: FamixF77IntrinsicRoutine new
+]
+
 { #category : #'entity creation' }
 FamixF77TEntityCreator >> newInvocation [
 

diff --git a/src/Famix-Fortran77-Generator/FamixFortran77Generator.class.st b/src/Famix-Fortran77-Generator/FamixFortran77Generator.class.st
@@ -57,7 +57,8 @@ Class {
 		'implicit',
 		'statementFunction',
 		'tWithStatements',
-		'unknownVariable'
+		'unknownVariable',
+		'intrinsicRoutine'
 	],
 	#category : #'Famix-Fortran77-Generator'
 }
@@ -117,6 +118,10 @@ FamixFortran77Generator >> defineClasses [
 		                     newClassNamed: #IndexedFileAnchor
 		                     comment: self indexedFileAnchorComment.
 
+	intrinsicRoutine := builder
+		newClassNamed: #IntrinsicRoutine
+		comment: self intrinsicRoutineComment.
+
 	invocation := builder
 		              newClassNamed: #Invocation
 		              comment: self invocationEntityComment.
@@ -128,10 +133,6 @@ FamixFortran77Generator >> defineClasses [
 		                newClassNamed: #IncludedFile
 		                comment: 'includedFile'.
 
-	"integer := builder newClassNamed: #Integer comment: 'Im an integer'.
-
-	logical := builder newClassNamed: #Logical comment: 'Im a logical'."
-
 	parameter := builder
 		             newClassNamed: #Parameter
 		             comment: self parameterEntityComment.
@@ -172,8 +173,6 @@ FamixFortran77Generator >> defineClasses [
 		newClassNamed: #StatementFunction
 		comment: self statementFunctionEntityComment.
 
-	"real := builder newClassNamed: #Real comment: 'Im a real'."
-
 	type := builder newClassNamed: #Type comment: self typeComment.
 
 	typeIntrinsic := builder
@@ -401,6 +400,12 @@ FamixFortran77Generator >> indexedFileAnchorComment [
 	^ 'Its the sourceAnchor (position of the token) in the source file (startLine@startColumn)-(endLine@endColumn).'
 ]
 
+{ #category : #'class comment' }
+FamixFortran77Generator >> intrinsicRoutineComment [
+
+	^'A subroutine (or function) defined in the Fortran language itself'
+]
+
 { #category : #'class comment' }
 FamixFortran77Generator >> invocationEntityComment [
 	^ 'an invocation of procedure inside a procedure or main program'