]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ImportJavaConstructor.scl
(refs #7307) Added features field to SCL module header
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / ImportJavaConstructor.scl
index 8c45e438b101955fe24a496f324f545707219e66..f1db2850c48042bb930ede9f451fa1690a5b483c 100644 (file)
@@ -1,18 +1,18 @@
-\r
-@JavaType "org.simantics.scl.compiler.elaboration.expressions.Expression"\r
-data Expression = \r
-    @JavaType "org/simantics/scl/compiler/elaboration/expressions/EIntegerLiteral"\r
-    @FieldNames [value]\r
-    EIntegerLiteral String\r
-  | @JavaType "org.simantics.scl.compiler.elaboration.expressions.ERealLiteral"\r
-    @FieldNames [value]\r
-    ERealLiteral String\r
-\r
-changeType :: Expression -> Expression\r
-changeType (EIntegerLiteral value) = ERealLiteral value\r
-changeType (ERealLiteral value) = EIntegerLiteral value\r
-\r
-main :: Expression\r
-main = changeType (EIntegerLiteral "123") \r
---\r
+
+@JavaType "org.simantics.scl.compiler.elaboration.expressions.Expression"
+data Expression = 
+    @JavaType "org/simantics/scl/compiler/elaboration/expressions/EIntegerLiteral"
+    @FieldNames [value]
+    EIntegerLiteral String
+  | @JavaType "org.simantics.scl.compiler.elaboration.expressions.ERealLiteral"
+    @FieldNames [value]
+    ERealLiteral String
+
+changeType :: Expression -> Expression
+changeType (EIntegerLiteral value) = ERealLiteral value
+changeType (ERealLiteral value) = EIntegerLiteral value
+
+main :: Expression
+main = changeType (EIntegerLiteral "123") 
+--
 123
\ No newline at end of file