]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Void1.scl
Supply SVG text editor with element measurement context
[simantics/platform.git] / 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]