]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Relations1.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 / Relations1.scl
1 import "StandardLibrary"
2
3 Concat ?x ?y ?z :-    
4     @bbf 1
5     ?z = ?x + ?y
6     
7     @bfb 0.5
8     startsWith ?z ?x
9     ?y = drop (length ?x) ?z
10     
11     @fbb 0.5
12     endsWith ?z ?y
13     ?x = take (length ?z - length ?y) ?z
14
15 main = select ?y where 
16     Concat "Hello " ?y "Hello world!"
17 --
18 [world!]