]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Dynamic1.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 / Dynamic1.scl
1 import "Prelude"
2
3 myShow :: Dynamic -> String
4 myShow (Dynamic v) = show (v :: Integer)
5 myShow (Dynamic v) = show (v :: Double)
6 myShow (Dynamic v) = show (v :: String)
7 myShow (Dynamic v) = show (v :: Boolean)
8 myShow (Dynamic v) = "[\(intercalate ", " $ map myShow v)]"
9 myShow _ = "Unknown"
10
11 main = myShow $ Dynamic [Dynamic False, Dynamic (3 :: Integer), Dynamic (3.1 :: Double), Dynamic "Foo"]
12 --
13 [False, 3, 3.1, "Foo"]