68
|
1
|
|
2 Generate Boolean Methods[backend:out]
|
|
3 {
|
|
4 func,inval <- [[[[[backend]Create Function["If@Boolean",("in"),("yes","no"),"rhope"]
|
|
5 ]Set Input Type[Type Instance["Boolean"], 0]
|
|
6 ]Set Output Type[Type Instance["Boolean"], 0]
|
|
7 ]Set Output Type[Type Instance["Boolean"], 1]
|
|
8 ]Read Field["in", "Val"]
|
|
9
|
|
10 ifyes <- [[[func]Instruction Stream
|
|
11 ]Move["in","yes"]
|
|
12 ]Set Null["no"]
|
|
13
|
|
14 ifno <- [[[func]Instruction Stream
|
|
15 ]Move["in","no"]
|
|
16 ]Set Null["yes"]
|
|
17
|
|
18 ffunc <- [[func]Do If[inval, ifyes]
|
|
19 ]Do If[NotCond[inval], ifno]
|
|
20
|
|
21 out <- [backend]Store Function[ffunc]
|
|
22 }
|
|
23
|