bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/Effects2.scl

   1 import "JavaBuiltin" as Java\r
   2 \r
   3 importJava "java.util.List" where\r
   4     data List a\r
   5 \r
   6     add :: List a -> a -> <Proc> Boolean\r
   7 \r
   8 importJava "java.util.ArrayList" where\r
   9     @JavaName "<init>"\r
  10     arrayList :: Integer -> <Proc> List a\r
  11 \r
  12 singleton :: a -> <Proc> List a\r
  13 singleton el = result\r
  14   where\r
  15     result = arrayList 1\r
  16     r = add result el\r
  17 \r
  18 main :: List Integer\r
  19 main = runProc (singleton (13 :: Integer))\r
  20 --\r
  21 [13]