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

   1 \r
   2 @JavaType "org.simantics.scl.runtime.tuple.Tuple3"\r
   3 data Tuple3 a b c =\r
   4     @FieldNames [c0, c1, c2] \r
   5     Tuple3 a b c\r
   6     \r
   7 toTuple (Tuple3 x y z) = (x, y, z)\r
   8 \r
   9 main = toTuple (Tuple3 "x" "y" "z")\r
  10 --\r
  11 (x,y,z)