git.iko.soy/urbit.org
on 492ae2f help sign in
urbit.org/docs/programming/reference/library/src/4k/gate/ven.md
37 lines 799 B history raw
1### `++ven`
3`+>-` axis syntax
5Axis syntax parser
7Source
8------
10 ++ ven ;~ (comp |=({a/@ b/@} (peg a b))) :: +>- axis syntax
11 bet
12 =+ hom=`?`|
13 |= tub/nail
14 ^- (like axis)
15 =+ vex=?:(hom (bet tub) (gul tub))
16 ?~ q.vex
17 [p.tub [~ 1 tub]]
18 =+ wag=$(p.tub p.vex, hom !hom, tub q.u.q.vex)
19 ?> ?=(^ q.wag)
20 [p.wag [~ (peg p.u.q.vex p.u.q.wag) q.u.q.wag]]
21 ==
23Examples
24--------
26 ~zod/arvo=/hoon/hoon> (scan "->+" ven)
27 11
28 ~zod/arvo=/hoon/hoon> `@ub`(scan "->+" ven)
29 0b1011
30 ~zod/arvo=/hoon/hoon> (peg (scan "->" ven) (scan "+" ven))
31 11
32 ~zod/arvo=/hoon/hoon> ->+:[[1 2 [3 4]] 5]
33 [3 4]
37***