Mercurial > repos > rhope
changeset 68:38d9cd036d49
Add missing file
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 07 Jun 2010 15:36:04 -0400 |
parents | d1569087348f |
children | d0ce696786cc |
files | boolean.rhope |
diffstat | 1 files changed, 23 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/boolean.rhope Mon Jun 07 15:36:04 2010 -0400 @@ -0,0 +1,23 @@ + +Generate Boolean Methods[backend:out] +{ + func,inval <- [[[[[backend]Create Function["If@Boolean",("in"),("yes","no"),"rhope"] + ]Set Input Type[Type Instance["Boolean"], 0] + ]Set Output Type[Type Instance["Boolean"], 0] + ]Set Output Type[Type Instance["Boolean"], 1] + ]Read Field["in", "Val"] + + ifyes <- [[[func]Instruction Stream + ]Move["in","yes"] + ]Set Null["no"] + + ifno <- [[[func]Instruction Stream + ]Move["in","no"] + ]Set Null["yes"] + + ffunc <- [[func]Do If[inval, ifyes] + ]Do If[NotCond[inval], ifno] + + out <- [backend]Store Function[ffunc] +} +