tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic2.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 instance (Additive a, Additive b) => Additive (a,b) where
  15     (x1,y1) + (x2,y2) = (x1+x2,y1+y2)
  16
  17 main = (1.0::Double,3::Integer) + (2.0::Double,4::Integer)
  18 --
  19 (3.0,7)
  20