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

   1 import "StandardLibrary"
   2
   3 mapping relation M Integer (Integer,Integer)
   4
   5 rule Mix where
   6     @when
   7     M ?a (?b, ?c)
   8     ?a <= 10
   9
  10     @where
  11     M (?a + 1) (?c, ?b)
  12
  13 rule PrintIt where
  14     @when
  15     M ?a (?b,?c)
  16
  17     @to
  18     Execute (print "\(?a) -> \(?b), \(?c)")
  19
  20 rule Seed where
  21     @where
  22     M 0 (1,?x)
  23     M 10 (?y,2)
  24
  25 main = transformation OneShotForward where
  26 --
  27 ()