]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic1.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 / OverloadedArithmetic1.scl
1 import "JavaBuiltin" as Java
2
3 infixl 6 (+)
4
5 class Additive a where 
6     (+)  :: a -> a -> a    
7     
8 instance Additive Double where
9     x + y = Java.dadd x y
10
11 instance Additive Integer where
12     x + y = Java.iadd x y
13     
14 main = ((1.0 :: Double)+(2.0 :: Double),(3::Integer)+(4::Integer))
15 --
16 (3.0,7)
17