Merge pull request #190 from moosetechnology/transformation

uNouss · web-flow · commit eea85515afad · 2025-01-30T14:04:59.000Z
Adding an helper method FamixF77StatementFunction &gt;&gt; programFile
diff --git a/src/EsopeImporter/FamixF77StatementFunction.extension.st b/src/EsopeImporter/FamixF77StatementFunction.extension.st
@@ -42,3 +42,12 @@ FamixF77StatementFunction >> implicitTypeFor: variableName [
 
 	^parentEntity implicitTypeFor: variableName
 ]
+
+{ #category : '*EsopeImporter' }
+FamixF77StatementFunction >> programFile [
+
+	"This should be an extension of Famix-Fortran-Visitor or something like that.
+	 but that package does not exist..."
+
+	^parentEntity programFile
+]
