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

   1 import "JavaBuiltin" as Java\r
   2 \r
   3 @JavaType "java.util.Collection"\r
   4 data Collection a\r
   5 \r
   6 @macro\r
   7 collectionToList :: Collection a -> [a]\r
   8 collectionToList = Java.unsafeCoerce\r
   9 \r
  10 singleton :: a -> Collection a\r
  11 singleton = Java.staticMethod "java.util.Collections.singletonList"\r
  12 \r
  13 main :: [Integer]\r
  14 main = collectionToList (singleton 15)\r
  15 --\r
  16 [15]