Mercurial > repos > rhope
comparison boolean.rhope @ 68:38d9cd036d49
Add missing file
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 07 Jun 2010 15:36:04 -0400 |
parents | |
children | ac5c2d78663f |
comparison
equal
deleted
inserted
replaced
67:d1569087348f | 68:38d9cd036d49 |
---|---|
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 |