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

   1 importJava "java.util.List" where
   2     data List a
   3
   4     @JavaName add
   5     addList :: List a -> a -> <Proc> Boolean
   6
   7 importJava "java.util.ArrayList" where
   8     @JavaName "<init>"
   9     newList :: () -> <Proc> (List a)
  10
  11 main = do
  12     l = newList ()
  13     addList l (3 :: Integer)
  14     l
  15 --
  16 [3]