Merge pull request #220 from moosetechnology/read2-statement

Added a #visitRead2Statement: to JsonToIASTVisitor

Author: NicolasAnquetil

src/EsopeImporter/FortranAbstractJsonVisitor.class.st

@@ -259,7 +259,7 @@ FortranAbstractJsonVisitor >> visitCloseStatement: aCloseStatementNode [
 
 { #category : 'visiting statement' }
 FortranAbstractJsonVisitor >> visitComment: aCommentNode [
-	1halt.
+
 	^{ self visitSpan: (aCommentNode at: 'span') .
 	  aCommentNode at: 'comment' }
 
@@ -1180,6 +1180,16 @@ FortranAbstractJsonVisitor >> visitRange: aRangeNode [
  	 self visitJsonElement: (aRangeNode at: 'stride')  }
 ]
 
+{ #category : 'visiting statement' }
+FortranAbstractJsonVisitor >> visitRead2Statement: aStatementNode [ 
+
+	^{
+	  (self visitSpan: (aStatementNode at: 'span')).
+	  (self visitJsonElement: (aStatementNode at: 'format')).
+	  (self visitArguments: (aStatementNode at: 'arguments')) 
+	}
+]
+
 { #category : 'visiting statement' }
 FortranAbstractJsonVisitor >> visitReadStatement: aReadStatementNode [
 

src/EsopeImporter/JsonToIASTVisitor.class.st

@@ -712,6 +712,14 @@ JsonToIASTVisitor >> visitProgram_units: aCollection [
 	^data
 ]
 
+{ #category : 'visiting statement' }
+JsonToIASTVisitor >> visitRead2Statement: aReadStatementNode [
+
+	^ (super visitRead2Statement: aReadStatementNode)
+		  entityName: 'read';
+		  yourself
+]
+
 { #category : 'visiting statement' }
 JsonToIASTVisitor >> visitReadStatement: aReadStatementNode [