tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ImportJavaConstructor.scl

   1 \r
   2 @JavaType "org.simantics.scl.compiler.elaboration.expressions.Expression"\r
   3 data Expression = \r
   4     @JavaType "org/simantics/scl/compiler/elaboration/expressions/EIntegerLiteral"\r
   5     @FieldNames [value]\r
   6     EIntegerLiteral String\r
   7   | @JavaType "org.simantics.scl.compiler.elaboration.expressions.ERealLiteral"\r
   8     @FieldNames [value]\r
   9     ERealLiteral String\r
  10 \r
  11 changeType :: Expression -> Expression\r
  12 changeType (EIntegerLiteral value) = ERealLiteral value\r
  13 changeType (ERealLiteral value) = EIntegerLiteral value\r
  14 \r
  15 main :: Expression\r
  16 main = changeType (EIntegerLiteral "123") \r
  17 --\r
  18 123