Mercurial > repos > rhope

comparison boolean.rhope @ 68:38d9cd036d49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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