urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

?@ refactoring

Browse Source
This commit is contained in:
Anton Dyudin 2014-06-06 18:09:44 -07:00 committed by Anton Dyudin
parent 3bb02fe9d7
commit eb79a666a9
1 changed files with 117 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

234
arvo/hoon.hoon
View File

@ -409,7 +409,7 @@
[%tree p=term q=wine] :: [%tree p=term q=wine] ::
[%unit p=term q=wine] :: [%unit p=term q=wine] ::
== :: == ::
++ wonk |*(veq=edge ?@(q.veq !! p.u.q.veq)) :: ++ wonk |*(veq=edge ?~(q.veq !! p.u.q.veq)) ::
:: :: :: ::
:: :: :: ::
++ map |* [a=_,* b=_,*] :: associative array ++ map |* [a=_,* b=_,*] :: associative array
@ -625,7 +625,7 @@
:: ::
++ need :: demand ++ need :: demand
|* a=(unit) |* a=(unit)
?@ a ?~ a
!! !!
u.a u.a
:: ::
@ -642,7 +642,7 @@
^+ a ^+ a
=+ b=`_a`~ =+ b=`_a`~
|- |-
?@ a ?~ a
b b
$(a t.a, b [i.a b]) $(a t.a, b [i.a b])
:: ::
@ -656,7 +656,7 @@
++ limo :: listify ++ limo :: listify
|* a=* |* a=*
^+ =< $ ^+ =< $
|% +- $ ?@(a ~ ?:(_? [i=-.a t=$] $(a +.a))) |% +- $ ?~(a ~ ?:(_? [i=-.a t=$] $(a +.a)))
-- --
a a
:: ::
@ -666,13 +666,13 @@
^- @ ^- @
=+ b=0 =+ b=0
|- |-
?@(a b $(a t.a, b +(b))) ?~(a b $(a t.a, b +(b)))
:: ::
++ levy ++ levy
~/ %levy :: all of ~/ %levy :: all of
|* [a=(list) b=_|=(p=* .?(p))] |* [a=(list) b=_|=(p=* .?(p))]
|- ^- ? |- ^- ?
?@ a ?~ a
& &
?: (b i.a) ?: (b i.a)
$(a t.a) $(a t.a)
@ -690,7 +690,7 @@
~/ %reel ~/ %reel
|* [a=(list) b=_=|([p=* q=*] |.(q))] |* [a=(list) b=_=|([p=* q=*] |.(q))]
|- ^+ q.b |- ^+ q.b
?@ a ?~ a
q.b q.b
(b i.a $(a t.a)) (b i.a $(a t.a))
:: ::
@ -699,7 +699,7 @@
|* [a=(list) b=_=|([p=* q=*] |.(q))] |* [a=(list) b=_=|([p=* q=*] |.(q))]
|- |-
^+ q.b ^+ q.b
?@ a ?~ a
q.b q.b
$(a t.a, b b(q (b i.a q.b))) $(a t.a, b b(q (b i.a q.b)))
:: ::
@ -715,7 +715,7 @@
|* [a=(list) b=_|=(p=* .?(p))] |* [a=(list) b=_|=(p=* .?(p))]
|- |-
^+ a ^+ a
?@ a ?~ a
~ ~
?:((b i.a) [i.a $(a t.a)] $(a t.a)) ?:((b i.a) [i.a $(a t.a)] $(a t.a))
:: ::
@ -724,7 +724,7 @@
|* [a=(list) b=_|=(p=* .?(p))] |* [a=(list) b=_|=(p=* .?(p))]
|- |-
^+ a ^+ a
?@ a ?~ a
~ ~
?:((b i.a) $(a t.a) [i.a $(a t.a)]) ?:((b i.a) $(a t.a) [i.a $(a t.a)])
:: ::
@ -742,7 +742,7 @@
|- ^+ b |- ^+ b
?: =(0 a) ?: =(0 a)
b b
?@ b ?~ b
~ ~
$(b t.b, a (dec a)) $(b t.b, a (dec a))
:: ::
@ -775,7 +775,7 @@
~/ %turn ~/ %turn
|* [a=(list) b=_,*] |* [a=(list) b=_,*]
|- |-
?@ a ?~ a
~ ~
[i=(b i.a) t=$(a t.a)] [i=(b i.a) t=$(a t.a)]
:: ::
@ -879,7 +879,7 @@
~/ %rap ~/ %rap
|= [a=bloq b=(list ,@)] |= [a=bloq b=(list ,@)]
^- @ ^- @
?@ b ?~ b
0 0
(cat a i.b $(b t.b)) (cat a i.b $(b t.b))
:: ::
@ -889,7 +889,7 @@
^- @ ^- @
=+ c=0 =+ c=0
|- |-
?@ b ?~ b
0 0
(con (lsh a c (end a 1 i.b)) $(c +(c), b t.b)) (con (lsh a c (end a 1 i.b)) $(c +(c), b t.b))
:: ::
@ -1190,7 +1190,7 @@
:: ari, or arithmetic form = 1 + mantissa :: ari, or arithmetic form = 1 + mantissa
:: passing around this is convenient because it preserves :: passing around this is convenient because it preserves
:: the number of zeros :: the number of zeros
:: ::
:: more sophisticated people call this the significand, but that starts :: more sophisticated people call this the significand, but that starts
:: with s, and sign already starts with s, so the variables wouldn't be :: with s, and sign already starts with s, so the variables wouldn't be
:: named very nicely :: named very nicely
@ -1259,7 +1259,7 @@
:: reverse ari, ari -> mantissa :: reverse ari, ari -> mantissa
++ ira |= a=@u ^- @u ++ ira |= a=@u ^- @u
(mix (lsh 0 (dec (met 0 a)) 1) a) (mix (lsh 0 (dec (met 0 a)) 1) a)
:: limit ari to precision p. Rounds if over, lsh if under. :: limit ari to precision p. Rounds if over, lsh if under.
++ lia |= [p=@u a=@u] ^- @u ++ lia |= [p=@u a=@u] ^- @u
?: (^lte (met 0 a) (^add p 1)) ?: (^lte (met 0 a) (^add p 1))
@ -1378,7 +1378,7 @@
:: Convert to sign/exp/ari form :: Convert to sign/exp/ari form
++ sea |= a=@rd ^- [s=? e=@s a=@u] ++ sea |= a=@rd ^- [s=? e=@s a=@u]
[s=(sig a) e=(exp a) a=(ari:fl 52 (end 0 52 a))] [s=(sig a) e=(exp a) a=(ari:fl 52 (end 0 52 a))]
:::::::::::: ::::::::::::
++ sun ~/ %sun ++ sun ~/ %sun
|= a=@u ^- @rd |= a=@u ^- @rd
@ -1575,10 +1575,10 @@
:: ::
++ apt :: set invariant ++ apt :: set invariant
|= a=(tree) |= a=(tree)
?@ a ?~ a
& &
?& ?@(l.a & ?&((vor n.a n.l.a) (hor n.l.a n.a))) ?& ?~(l.a & ?&((vor n.a n.l.a) (hor n.l.a n.a)))
?@(r.a & ?&((vor n.a n.r.a) (hor n.a n.r.a))) ?~(r.a & ?&((vor n.a n.r.a) (hor n.a n.r.a)))
== ==
:: ::
++ in :: set engine ++ in :: set engine
@ -1588,7 +1588,7 @@
~/ %all ~/ %all
|* b=$+(* ?) |* b=$+(* ?)
|- ^- ? |- ^- ?
?@ a ?~ a
& &
?&((b n.a) $(a l.a) $(a r.a)) ?&((b n.a) $(a l.a) $(a r.a))
:: ::
@ -1596,7 +1596,7 @@
~/ %any ~/ %any
|* b=$+(* ?) |* b=$+(* ?)
|- ^- ? |- ^- ?
?@ a ?~ a
| |
?|((b n.a) $(a l.a) $(a r.a)) ?|((b n.a) $(a l.a) $(a r.a))
:: ::
@ -1631,7 +1631,7 @@
~/ %gas ~/ %gas
|= b=(list ,_?>(?=(^ a) n.a)) |= b=(list ,_?>(?=(^ a) n.a))
|- ^+ a |- ^+ a
?@ b ?~ b
a a
$(b t.b, a (put(+< a) i.b)) $(b t.b, a (put(+< a) i.b))
:: ::
@ -1639,7 +1639,7 @@
~/ %has ~/ %has
|* b=* |* b=*
|- ^- ? |- ^- ?
?@ a ?~ a
| |
?: =(b n.a) ?: =(b n.a)
& &
@ -1651,7 +1651,7 @@
~/ %put ~/ %put
|* b=* |* b=*
|- ^+ a |- ^+ a
?@ a ?~ a
[b ~ ~] [b ~ ~]
?: =(b n.a) ?: =(b n.a)
a a
@ -1677,7 +1677,7 @@
~/ %tap ~/ %tap
|= b=(list ,_?>(?=(^ a) n.a)) |= b=(list ,_?>(?=(^ a) n.a))
^+ b ^+ b
?@ a ?~ a
b b
$(a r.a, b [n.a $(a l.a)]) $(a r.a, b [n.a $(a l.a)])
:: ::
@ -1691,10 +1691,10 @@
:: ::
++ ept :: map invariant ++ ept :: map invariant
|= a=(tree ,[p=* q=*]) |= a=(tree ,[p=* q=*])
?@ a ?~ a
& &
?& ?@(l.a & ?&((vor p.n.a p.n.l.a) (hor p.n.l.a p.n.a))) ?& ?~(l.a & ?&((vor p.n.a p.n.l.a) (hor p.n.l.a p.n.a)))
?@(r.a & ?&((vor p.n.a p.n.r.a) (hor p.n.a p.n.r.a))) ?~(r.a & ?&((vor p.n.a p.n.r.a) (hor p.n.a p.n.r.a)))
== ==
:: ::
++ ja :: jar engine ++ ja :: jar engine
@ -1736,7 +1736,7 @@
~/ %all ~/ %all
|* b=$+(* ?) |* b=$+(* ?)
|- ^- ? |- ^- ?
?@ a ?~ a
& &
?&((b q.n.a) $(a l.a) $(a r.a)) ?&((b q.n.a) $(a l.a) $(a r.a))
:: ::
@ -1744,7 +1744,7 @@
~/ %any ~/ %any
|* b=$+(* ?) |* b=$+(* ?)
|- ^- ? |- ^- ?
?@ a ?~ a
| |
?|((b q.n.a) $(a l.a) $(a r.a)) ?|((b q.n.a) $(a l.a) $(a r.a))
:: ::
@ -1780,7 +1780,7 @@
|* b=(list ,[p=* q=*]) |* b=(list ,[p=* q=*])
=> .(b `(list ,_?>(?=(^ a) n.a))`b) => .(b `(list ,_?>(?=(^ a) n.a))`b)
|- ^+ a |- ^+ a
?@ b ?~ b
a a
$(b t.b, a (put(+< a) p.i.b q.i.b)) $(b t.b, a (put(+< a) p.i.b q.i.b))
:: ::
@ -1788,7 +1788,7 @@
~/ %get ~/ %get
|* b=* |* b=*
|- ^- ?(~ [~ u=_?>(?=(^ a) q.n.a)]) |- ^- ?(~ [~ u=_?>(?=(^ a) q.n.a)])
?@ a ?~ a
~ ~
?: =(b p.n.a) ?: =(b p.n.a)
[~ u=q.n.a] [~ u=q.n.a]
@ -1811,7 +1811,7 @@
~/ %put ~/ %put
|* [b=* c=*] |* [b=* c=*]
|- ^+ a |- ^+ a
?@ a ?~ a
[[b c] ~ ~] [[b c] ~ ~]
?: =(b p.n.a) ?: =(b p.n.a)
?: =(c q.n.a) ?: =(c q.n.a)
@ -1855,14 +1855,14 @@
~/ %tap ~/ %tap
|= b=(list ,_?>(?=(^ a) n.a)) |= b=(list ,_?>(?=(^ a) n.a))
^+ b ^+ b
?@ a ?~ a
b b
$(a r.a, b [n.a $(a l.a)]) $(a r.a, b [n.a $(a l.a)])
:: ::
+- uni :: union, merge +- uni :: union, merge
~/ %uni ~/ %uni
|= b=_a |= b=_a
?@ b a ?~ b a
%= $ %= $
a (~(put by a) p.n.b q.n.b) a (~(put by a) p.n.b q.n.b)
b (~(uni by l.b) r.b) b (~(uni by l.b) r.b)
@ -1989,7 +1989,7 @@
=< q =< q
|- ^- [p=@ q=@ r=_m] |- ^- [p=@ q=@ r=_m]
=+ c=(~(get by m) a) =+ c=(~(get by m) a)
?@ c ?~ c
=> .(m (~(put by m) a b)) => .(m (~(put by m) a b))
?: ?=(@ a) ?: ?=(@ a)
=+ d=(mat a) =+ d=(mat a)
@ -2051,7 +2051,7 @@
~/ %fun ~/ %fun
|= tub=nail |= tub=nail
=+ vex=(sef tub) =+ vex=(sef tub)
?@ q.vex ?~ q.vex
vex vex
[p=p.vex q=[~ u=[p=cus q=q.u.q.vex]]] [p=p.vex q=[~ u=[p=cus q=q.u.q.vex]]]
:: ::
@ -2061,7 +2061,7 @@
~/ %fun ~/ %fun
|= tub=nail |= tub=nail
=+ vex=(sef tub) =+ vex=(sef tub)
?@ q.vex ?~ q.vex
vex vex
[p=p.vex q=[~ u=[p=(poq p.u.q.vex) q=q.u.q.vex]]] [p=p.vex q=[~ u=[p=(poq p.u.q.vex) q=q.u.q.vex]]]
:: ::
@ -2078,7 +2078,7 @@
|* sef=_rule |* sef=_rule
|= tub=nail |= tub=nail
=+ vex=(sef tub) =+ vex=(sef tub)
?@(q.vex vex ?:(=(~ q.q.u.q.vex) vex [p=p.vex q=~])) ?~(q.vex vex ?:(=(~ q.q.u.q.vex) vex [p=p.vex q=~]))
:: ::
++ funk :: add to tape first ++ funk :: add to tape first
|* [pre=tape sef=_rule] |* [pre=tape sef=_rule]
@ -2091,7 +2091,7 @@
~/ %fun ~/ %fun
|= tub=nail |= tub=nail
=+ vex=(sef tub) =+ vex=(sef tub)
?@ q.vex ?~ q.vex
vex vex
[p=p.vex q=[~ u=[p=(hez [p.tub p.q.u.q.vex] p.u.q.vex) q=q.u.q.vex]]] [p=p.vex q=[~ u=[p=(hez [p.tub p.q.u.q.vex] p.u.q.vex) q=q.u.q.vex]]]
:: ::
@ -2112,7 +2112,7 @@
~/ %fun ~/ %fun
|= tub=nail |= tub=nail
^- (like char) ^- (like char)
?@ q.tub ?~ q.tub
(fail tub) (fail tub)
?. =(daf i.q.tub) ?. =(daf i.q.tub)
(fail tub) (fail tub)
@ -2130,7 +2130,7 @@
~/ %fun ~/ %fun
|= tub=nail |= tub=nail
^- (like char) ^- (like char)
?@ q.tub ?~ q.tub
(fail tub) (fail tub)
?. (lien bud |=(a=char =(i.q.tub a))) ?. (lien bud |=(a=char =(i.q.tub a)))
(fail tub) (fail tub)
@ -2139,21 +2139,21 @@
++ next :: consume a char ++ next :: consume a char
|= tub=nail |= tub=nail
^- (like char) ^- (like char)
?@ q.tub ?~ q.tub
(fail tub) (fail tub)
=+ zac=(lust i.q.tub p.tub) =+ zac=(lust i.q.tub p.tub)
[zac [~ i.q.tub [zac t.q.tub]]] [zac [~ i.q.tub [zac t.q.tub]]]
:: ::
++ sear :: conditional cook ++ sear :: conditional cook
~/ %sear ~/ %sear
|* [pyq=_|=(* *(unit)) sef=_rule] |* [pyq=_|=(* *(unit)) sef=_rule]
~/ %fun ~/ %fun
|= tub=nail |= tub=nail
=+ vex=(sef tub) =+ vex=(sef tub)
?@ q.vex ?~ q.vex
vex vex
=+ gey=(pyq p.u.q.vex) =+ gey=(pyq p.u.q.vex)
?@ gey ?~ gey
[p=p.vex q=~] [p=p.vex q=~]
[p=p.vex q=[~ u=[p=u.gey q=q.u.q.vex]]] [p=p.vex q=[~ u=[p=u.gey q=q.u.q.vex]]]
:: ::
@ -2163,7 +2163,7 @@
~/ %fun ~/ %fun
|= tub=nail |= tub=nail
^- (like char) ^- (like char)
?@ q.tub ?~ q.tub
(fail tub) (fail tub)
?. ?&((gte i.q.tub les) (lte i.q.tub mos)) ?. ?&((gte i.q.tub les) (lte i.q.tub mos))
(fail tub) (fail tub)
@ -2175,7 +2175,7 @@
~/ %fun ~/ %fun
|= tub=nail |= tub=nail
=+ vex=(sef tub) =+ vex=(sef tub)
?@ q.vex ?~ q.vex
vex vex
[p=p.vex q=[~ u=[p=[gob p.u.q.vex] q=q.u.q.vex]]] [p=p.vex q=[~ u=[p=[gob p.u.q.vex] q=q.u.q.vex]]]
:: ::
@ -2216,10 +2216,10 @@
[n.nuc [n.yal l.yal l.nuc] r.nuc] [n.nuc [n.yal l.yal l.nuc] r.nuc]
~% %fun ..^$ ~ ~% %fun ..^$ ~
|= tub=nail |= tub=nail
?@ q.tub ?~ q.tub
(fail tub) (fail tub)
|- |-
?@ hel ?~ hel
(fail tub) (fail tub)
?: ?@ p.n.hel ?: ?@ p.n.hel
=(p.n.hel i.q.tub) =(p.n.hel i.q.tub)
@ -2237,7 +2237,7 @@
|= tub=nail |= tub=nail
^- (like ,_rud) ^- (like ,_rud)
=+ vex=(fel tub) =+ vex=(fel tub)
?@ q.vex ?~ q.vex
[p.vex [~ rud tub]] [p.vex [~ rud tub]]
=+ wag=$(tub q.u.q.vex) =+ wag=$(tub q.u.q.vex)
?> ?=(^ q.wag) ?> ?=(^ q.wag)
@ -2252,7 +2252,7 @@
?: =(0 mos) ?: =(0 mos)
[p.tub [~ ~ tub]] [p.tub [~ ~ tub]]
=+ vex=(fel tub) =+ vex=(fel tub)
?@ q.vex ?~ q.vex
?: =(0 les) ?: =(0 les)
[p.vex [~ ~ tub]] [p.vex [~ ~ tub]]
vex vex
@ -2261,22 +2261,22 @@
mos ?:(=(0 mos) 0 (dec mos)) mos ?:(=(0 mos) 0 (dec mos))
tub q.u.q.vex tub q.u.q.vex
== ==
?@ q.wag ?~ q.wag
wag wag
[p.wag [~ [p.u.q.vex p.u.q.wag] q.u.q.wag]] [p.wag [~ [p.u.q.vex p.u.q.wag] q.u.q.wag]]
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 2eD, parsing (combinators) :: :: section 2eD, parsing (combinators) ::
:: ::
++ bend :: conditional comp ++ bend :: conditional comp
~/ %bend ~/ %bend
|* raq=_|*([a=* b=*] [~ u=[a b]]) |* raq=_|*([a=* b=*] [~ u=[a b]])
~/ %fun ~/ %fun
|* [vex=edge sab=_rule] |* [vex=edge sab=_rule]
?@ q.vex ?~ q.vex
vex vex
=+ yit=(sab q.u.q.vex) =+ yit=(sab q.u.q.vex)
=+ yur=(last p.vex p.yit) =+ yur=(last p.vex p.yit)
?@ q.yit ?~ q.yit
[p=yur q=q.vex] [p=yur q=q.vex]
=+ vux=(raq p.u.q.vex p.u.q.yit) =+ vux=(raq p.u.q.vex p.u.q.yit)
?~ vux ?~ vux
@ -2288,11 +2288,11 @@
|* raq=_|*([a=* b=*] [a b]) :: arbitrary compose |* raq=_|*([a=* b=*] [a b]) :: arbitrary compose
~/ %fun ~/ %fun
|* [vex=edge sab=_rule] |* [vex=edge sab=_rule]
?@ q.vex ?~ q.vex
vex vex
=+ yit=(sab q.u.q.vex) =+ yit=(sab q.u.q.vex)
=+ yur=(last p.vex p.yit) =+ yur=(last p.vex p.yit)
?@ q.yit ?~ q.yit
[p=yur q=q.yit] [p=yur q=q.yit]
[p=yur q=[~ u=[p=(raq p.u.q.vex p.u.q.yit) q=q.u.q.yit]]] [p=yur q=[~ u=[p=(raq p.u.q.vex p.u.q.yit) q=q.u.q.yit]]]
:: ::
@ -2310,18 +2310,18 @@
++ plug :: first then second ++ plug :: first then second
~/ %plug ~/ %plug
|* [vex=edge sab=_rule] |* [vex=edge sab=_rule]
?@ q.vex ?~ q.vex
vex vex
=+ yit=(sab q.u.q.vex) =+ yit=(sab q.u.q.vex)
=+ yur=(last p.vex p.yit) =+ yur=(last p.vex p.yit)
?@ q.yit ?~ q.yit
[p=yur q=q.yit] [p=yur q=q.yit]
[p=yur q=[~ u=[p=[p.u.q.vex p.u.q.yit] q=q.u.q.yit]]] [p=yur q=[~ u=[p=[p.u.q.vex p.u.q.yit] q=q.u.q.yit]]]
:: ::
++ pose :: first or second ++ pose :: first or second
~/ %pose ~/ %pose
|* [vex=edge sab=_rule] |* [vex=edge sab=_rule]
?@ q.vex ?~ q.vex
=+ roq=(sab) =+ roq=(sab)
[p=(last p.vex p.roq) q=q.roq] [p=(last p.vex p.roq) q=q.roq]
vex vex
@ -2411,17 +2411,17 @@
:: section 2eG, parsing (whitespace) :: :: section 2eG, parsing (whitespace) ::
:: ::
++ dog ;~(plug dot gay) :: ++ dog ;~(plug dot gay) ::
++ doh ;~(plug ;~(plug hep hep) gay) :: ++ doh ;~(plug ;~(plug hep hep) gay) ::
++ dun (cold ~ ;~(plug hep hep)) :: -- (phep) to ~ ++ dun (cold ~ ;~(plug hep hep)) :: -- (phep) to ~
++ duz (cold ~ ;~(plug tis tis)) :: == (stet) to ~ ++ duz (cold ~ ;~(plug tis tis)) :: == (stet) to ~
++ gah (mask [`@`10 ' ' ~]) :: newline or ace ++ gah (mask [`@`10 ' ' ~]) :: newline or ace
++ gap (cold ~ ;~(plug gaq (star ;~(pose vul gah)))) :: ++ gap (cold ~ ;~(plug gaq (star ;~(pose vul gah)))) ::
++ gaq ;~ pose :: end of line ++ gaq ;~ pose :: end of line
(just `@`10) (just `@`10)
;~(plug gah ;~(pose gah vul)) ;~(plug gah ;~(pose gah vul))
vul vul
== ==
++ gay ;~(pose gap (easy ~)) :: ++ gay ;~(pose gap (easy ~)) ::
++ vul %- cold :- ~ :: comments ++ vul %- cold :- ~ :: comments
;~ plug col col ;~ plug col col
(star ;~(pose (shim 32 126) (shim 128 255))) (star ;~(pose (shim 32 126) (shim 128 255)))
@ -2434,10 +2434,10 @@
++ aln ;~(pose low hig nud) :: alphanumeric ++ aln ;~(pose low hig nud) :: alphanumeric
++ alp ;~(pose low hig nud hep) :: alphanumeric and - ++ alp ;~(pose low hig nud hep) :: alphanumeric and -
++ bet ;~(pose (cold 2 hep) (cold 3 lus)) :: axis syntax - + ++ bet ;~(pose (cold 2 hep) (cold 3 lus)) :: axis syntax - +
++ bin (bass 2 (most gon but)) :: binary to atom ++ bin (bass 2 (most gon but)) :: binary to atom
++ but (cook |=(a=@ (sub a '0')) (shim '0' '1')) :: binary digit ++ but (cook |=(a=@ (sub a '0')) (shim '0' '1')) :: binary digit
++ cit (cook |=(a=@ (sub a '0')) (shim '0' '7')) :: octal digit ++ cit (cook |=(a=@ (sub a '0')) (shim '0' '7')) :: octal digit
++ dem (bass 10 (most gon dit)) :: decimal to atom ++ dem (bass 10 (most gon dit)) :: decimal to atom
++ dit (cook |=(a=@ (sub a '0')) (shim '0' '9')) :: decimal digit ++ dit (cook |=(a=@ (sub a '0')) (shim '0' '9')) :: decimal digit
++ gul ;~(pose (cold 2 gal) (cold 3 gar)) :: axis syntax < > ++ gul ;~(pose (cold 2 gal) (cold 3 gar)) :: axis syntax < >
++ gon ;~(pose ;~(plug bas gay fas) (easy ~)) :: long numbers \ / ++ gon ;~(pose ;~(plug bas gay fas) (easy ~)) :: long numbers \ /
@ -2452,14 +2452,14 @@
++ mes %+ cook :: hexbyte ++ mes %+ cook :: hexbyte
|=([a=@ b=@] (add (mul 16 a) b)) |=([a=@ b=@] (add (mul 16 a) b))
;~(plug hit hit) ;~(plug hit hit)
++ nix (boss 256 (star ;~(pose aln cab))) :: ++ nix (boss 256 (star ;~(pose aln cab))) ::
++ nud (shim '0' '9') :: numeric ++ nud (shim '0' '9') :: numeric
++ poy ;~(pfix bas ;~(pose bas soq mes)) :: escape chars ++ poy ;~(pfix bas ;~(pose bas soq mes)) :: escape chars
++ qit ;~ pose :: chars in a cord ++ qit ;~ pose :: chars in a cord
(shim 32 38) (shim 32 38)
(shim 40 91) (shim 40 91)
(shim 93 126) (shim 93 126)
(shim 128 255) (shim 128 255)
poy poy
== ==
++ qut (ifix [soq soq] (boss 256 (more gon qit))) :: cord ++ qut (ifix [soq soq] (boss 256 (more gon qit))) :: cord
@ -2474,7 +2474,7 @@
|= tub=nail |= tub=nail
^- (like axis) ^- (like axis)
=+ vex=?:(hom (bet tub) (gul tub)) =+ vex=?:(hom (bet tub) (gul tub))
?@ q.vex ?~ q.vex
[p.tub [~ 1 tub]] [p.tub [~ 1 tub]]
=+ wag=$(p.tub p.vex, hom !hom, tub q.u.q.vex) =+ wag=$(p.tub p.vex, hom !hom, tub q.u.q.vex)
?> ?=(^ q.wag) ?> ?=(^ q.wag)
@ -2491,14 +2491,14 @@
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 2eI, parsing (external) :: :: section 2eI, parsing (external) ::
:: ::
++ rash |*([naf=@ sab=_rule] (scan (trip naf) sab)) :: ++ rash |*([naf=@ sab=_rule] (scan (trip naf) sab)) ::
++ rush |*([naf=@ sab=_rule] (rust (trip naf) sab)) ++ rush |*([naf=@ sab=_rule] (rust (trip naf) sab))
++ rust |* [los=tape sab=_rule] ++ rust |* [los=tape sab=_rule]
=+ vex=((full sab) [[1 1] los]) =+ vex=((full sab) [[1 1] los])
?~(q.vex ~ [~ u=p.u.q.vex]) ?~(q.vex ~ [~ u=p.u.q.vex])
++ scan |* [los=tape sab=_rule] ++ scan |* [los=tape sab=_rule]
=+ vex=((full sab) [[1 1] los]) =+ vex=((full sab) [[1 1] los])
?@ q.vex ?~ q.vex
~_ (show [%m '{%d %d}'] p.p.vex q.p.vex ~) ~_ (show [%m '{%d %d}'] p.p.vex q.p.vex ~)
~|('syntax-error' !!) ~|('syntax-error' !!)
p.u.q.vex p.u.q.vex
@ -2519,7 +2519,7 @@
++ mesc ++ mesc
|= vib=tape |= vib=tape
^- tape ^- tape
?@ vib ?~ vib
~ ~
?: =('\\' i.vib) ?: =('\\' i.vib)
['\\' '\\' $(vib t.vib)] ['\\' '\\' $(vib t.vib)]
@ -2578,7 +2578,7 @@
++ trim ++ trim
|= [a=@ b=tape] |= [a=@ b=tape]
^- [p=tape q=tape] ^- [p=tape q=tape]
?@ b ?~ b
[~ ~] [~ ~]
?: =(0 a) ?: =(0 a)
[~ b] [~ b]
@ -2760,10 +2760,10 @@
%+ weld %+ weld
q.p.tac q.p.tac
|- ^- tape |- ^- tape
?@ q.tac ?~ q.tac
r.p.tac r.p.tac
=+ voz=$(q.tac t.q.tac) =+ voz=$(q.tac t.q.tac)
(weld ram(tac i.q.tac) ?@(t.q.tac voz (weld p.p.tac voz))) (weld ram(tac i.q.tac) ?~(t.q.tac voz (weld p.p.tac voz)))
== ==
:: ::
++ win ++ win
@ -2775,15 +2775,15 @@
%palm %palm
?: fit ?: fit
(rig ram) (rig ram)
?@ q.tac ?~ q.tac
(rig q.p.tac) (rig q.p.tac)
?@ t.q.tac ?~ t.q.tac
(rig(tab (add 2 tab), lug $(tac i.q.tac)) q.p.tac) (rig(tab (add 2 tab), lug $(tac i.q.tac)) q.p.tac)
=> .(q.tac `(list tank)`q.tac) => .(q.tac `(list tank)`q.tac)
=+ lyn=(mul 2 (lent q.tac)) =+ lyn=(mul 2 (lent q.tac))
=+ ^= qyr =+ ^= qyr
|- ^- wall |- ^- wall
?@ q.tac ?~ q.tac
lug lug
%= ^$ %= ^$
tac i.q.tac tac i.q.tac
@ -2797,7 +2797,7 @@
(rig ram) (rig ram)
=+ ^= gyl =+ ^= gyl
|- ^- wall |- ^- wall
?@ q.tac ?~ q.tac
?:(=(%$ r.p.tac) lug (rig r.p.tac)) ?:(=(%$ r.p.tac) lug (rig r.p.tac))
^$(tac i.q.tac, lug $(q.tac t.q.tac), tab din) ^$(tac i.q.tac, lug $(q.tac t.q.tac), tab din)
?: =(%$ q.p.tac) ?: =(%$ q.p.tac)
@ -2817,7 +2817,7 @@
:- (runt [(sub tab 2) ' '] ['\\' '/' (weld p.mut `_hom`['\\' '/' ~])]) :- (runt [(sub tab 2) ' '] ['\\' '/' (weld p.mut `_hom`['\\' '/' ~])])
=> .(hom q.mut) => .(hom q.mut)
|- |-
?@ hom ?~ hom
:- %+ runt :- %+ runt
[(sub tab 2) ' '] [(sub tab 2) ' ']
['\\' '/' (runt [(sub edg tab) ' '] ['\\' '/' ~])] ['\\' '/' (runt [(sub edg tab) ' '] ['\\' '/' ~])]
@ -2828,15 +2828,15 @@
++ wig ++ wig
|= hom=tape |= hom=tape
^- wall ^- wall
?@ lug ?~ lug
(rig hom) (rig hom)
=+ lin=(lent hom) =+ lin=(lent hom)
=+ wug=:(add 1 tab lin) =+ wug=:(add 1 tab lin)
?. =+ mir=i.lug ?. =+ mir=i.lug
|- ?@ mir |- ?~ mir
| |
?|(=(0 wug) ?&(=(' ' i.mir) $(mir t.mir, wug (dec wug)))) ?|(=(0 wug) ?&(=(' ' i.mir) $(mir t.mir, wug (dec wug))))
(rig hom) (rig hom) :: ^ XX regular form?
[(runt [tab ' '] (weld hom `tape`[' ' (slag wug i.lug)])) t.lug] [(runt [tab ' '] (weld hom `tape`[' ' (slag wug i.lug)])) t.lug]
-- --
-- --
@ -3275,7 +3275,7 @@
++ slay ++ slay
|= txt=@ta ^- (unit coin) |= txt=@ta ^- (unit coin)
=+ vex=((full nuck:so) [[1 1] (trip txt)]) =+ vex=((full nuck:so) [[1 1] (trip txt)])
?@ q.vex ?~ q.vex
~ ~
[~ p.u.q.vex] [~ p.u.q.vex]
:: ::
@ -3291,7 +3291,7 @@
|= [a=tape] :: parse tape to rege |= [a=tape] :: parse tape to rege
^- (unit rege) ^- (unit rege)
=+ foo=((full anns) [[1 1] a]) =+ foo=((full anns) [[1 1] a])
?@ q.foo ?~ q.foo
~ ~
[~ p.u.q.foo] [~ p.u.q.foo]
:: ::
@ -5746,9 +5746,9 @@
^- vase ^- vase
:_ q.vax :_ q.vax
?@ q.vax (~(fuse ut p.vax) [%atom %$]) ?@ q.vax (~(fuse ut p.vax) [%atom %$])
?@ -.q.vax ?@ -.q.vax
^= typ ^= typ
%- ~(play ut p.vax) %- ~(play ut p.vax)
[%wtgr [%wtts [%leaf %tas -.q.vax] [%$ 2]~] [%$ 1]] [%wtgr [%wtts [%leaf %tas -.q.vax] [%$ 2]~] [%$ 1]]
(~(fuse ut p.vax) [%cell %noun %noun]) (~(fuse ut p.vax) [%cell %noun %noun])
:: ::
@ -5846,7 +5846,7 @@
:: ::
[%fern *] [%fern *]
|- ^- twig |- ^- twig
?@ t.p.sec ?~ t.p.sec
^$(sec i.p.sec) ^$(sec i.p.sec)
[%wtcl [%bczp %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)] [%wtcl [%bczp %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)]
:: ::
@ -5855,7 +5855,7 @@
:: ::
[%kelp *] [%kelp *]
|- ^- twig |- ^- twig
?@ t.p.sec ?~ t.p.sec
^$(sec i.p.sec) ^$(sec i.p.sec)
[%wtcl [%bczp %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)] [%wtcl [%bczp %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)]
:: ::
@ -5939,7 +5939,7 @@
:: ::
[%fern *] [%fern *]
|- ^- twig |- ^- twig
?@ t.p.sec ?~ t.p.sec
^$(sec i.p.sec) ^$(sec i.p.sec)
:+ %tsls :+ %tsls
^$(sec i.p.sec) ^$(sec i.p.sec)
@ -5955,7 +5955,7 @@
[%kelp *] [%kelp *]
%- tun |= gon=* => .(nag gon) %- tun |= gon=* => .(nag gon)
|- ^- twig |- ^- twig
?@ t.p.sec ?~ t.p.sec
:- [%dtzz +.p.i.p.sec] :- [%dtzz +.p.i.p.sec]
^^$(axe (peg axe 3), sec q.i.p.sec, nag &) ^^$(axe (peg axe 3), sec q.i.p.sec, nag &)
:^ %wtcl :^ %wtcl
@ -6105,7 +6105,7 @@
:- %clsg :- %clsg
=+ nob=`(list twig)`~ =+ nob=`(list twig)`~
|- ^- (list twig) |- ^- (list twig)
?@ r.gen ?~ r.gen
nob nob
[[[%dtzz %$ p.i.r.gen] [%zpts q.i.r.gen]] $(r.gen t.r.gen)] [[[%dtzz %$ p.i.r.gen] [%zpts q.i.r.gen]] $(r.gen t.r.gen)]
s.gen s.gen
@ -6248,7 +6248,7 @@
:: ::
[%wtbr *] [%wtbr *]
|- |-
?@(p.gen [%dtzz %f 1] [%wtcl i.p.gen [%dtzz %f 0] $(p.gen t.p.gen)]) ?~(p.gen [%dtzz %f 1] [%wtcl i.p.gen [%dtzz %f 0] $(p.gen t.p.gen)])
:: ::
[%wtdt *] [%wtcl p.gen r.gen q.gen] [%wtdt *] [%wtcl p.gen r.gen q.gen]
[%wtgl *] [%wtcl p.gen [%zpzp ~] q.gen] [%wtgl *] [%wtcl p.gen [%zpzp ~] q.gen]
@ -6256,7 +6256,7 @@
[%wtkt *] [%wtcl [%wtts [%axil %atom %$] p.gen] r.gen q.gen] [%wtkt *] [%wtcl [%wtts [%axil %atom %$] p.gen] r.gen q.gen]
[%wthp *] [%wthp *]
|- |-
?@ q.gen ?~ q.gen
[%zpfs [%cnzz p.gen]] [%zpfs [%cnzz p.gen]]
:^ %wtcl :^ %wtcl
[%wtts p.i.q.gen p.gen] [%wtts p.i.q.gen p.gen]
@ -6266,7 +6266,7 @@
[%wtls *] [%wthp p.gen (weld r.gen `_r.gen`[[[%axil %noun] q.gen] ~])] [%wtls *] [%wthp p.gen (weld r.gen `_r.gen`[[[%axil %noun] q.gen] ~])]
[%wtpm *] [%wtpm *]
|- |-
?@(p.gen [%dtzz %f 0] [%wtcl i.p.gen $(p.gen t.p.gen) [%dtzz %f 1]]) ?~(p.gen [%dtzz %f 0] [%wtcl i.p.gen $(p.gen t.p.gen) [%dtzz %f 1]])
:: ::
[%wtpt *] [%wtcl [%wtts [%axil %atom %$] p.gen] q.gen r.gen] [%wtpt *] [%wtcl [%wtts [%axil %atom %$] p.gen] q.gen r.gen]
[%wtsg *] [%wtcl [%wtts [%axil %null] p.gen] q.gen r.gen] [%wtsg *] [%wtcl [%wtts [%axil %null] p.gen] q.gen r.gen]
@ -6619,8 +6619,8 @@
:+ %rose :+ %rose
[['/' ~] ['/' ~] ~] [['/' ~] ['/' ~] ~]
|- ^- (list tank) |- ^- (list tank)
?@ lum ?~ lum ~
?>(?=(~ lum) ~) ?@ lum !!
?> ?=(@ -.lum) ?> ?=(@ -.lum)
[[%leaf (rip 3 -.lum)] $(lum +.lum)] [[%leaf (rip 3 -.lum)] $(lum +.lum)]
:: ::
@ -6633,8 +6633,8 @@
:+ %rose :+ %rose
[[' ' ~] ['<' '|' ~] ['|' '>' ~]] [[' ' ~] ['<' '|' ~] ['|' '>' ~]]
|- ^- (list tank) |- ^- (list tank)
?@ lum ?~ lum ~
?>(?=(~ lum) ~) ?@ lum !!
[[%leaf (trip ((hard ,@) -.lum))] $(lum +.lum)] [[%leaf (trip ((hard ,@) -.lum))] $(lum +.lum)]
:: ::
%wool %wool
@ -6642,8 +6642,8 @@
:+ %rose :+ %rose
[[' ' ~] ['<' '<' ~] ['>' '>' ~]] [[' ' ~] ['<' '<' ~] ['>' '>' ~]]
|- ^- (list tank) |- ^- (list tank)
?@ lum ?~ lum ~
?>(?=(~ lum) ~) ?@ lum !!
[(need ^$(q.ham %yarn, lum -.lum)) $(lum +.lum)] [(need ^$(q.ham %yarn, lum -.lum)) $(lum +.lum)]
:: ::
%yarn %yarn
@ -7161,7 +7161,7 @@
=+ goy=(~(tap by rud) ~) =+ goy=(~(tap by rud) ~)
=+ waf=dab =+ waf=dab
|- ^+ dab |- ^+ dab
?@ goy ?~ goy
waf waf
~| [%hang-on p.i.goy] ~| [%hang-on p.i.goy]
=+ yeq=(~(get by dab) p.i.goy) =+ yeq=(~(get by dab) p.i.goy)
@ -7450,7 +7450,7 @@
=- [(nice (fire p.yom)) (fire(vet |) q.yom)] =- [(nice (fire p.yom)) (fire(vet |) q.yom)]
^= yom ^= yom
|- ^- [p=(list ,[p=type q=foot]) q=(list ,[p=type q=foot])] |- ^- [p=(list ,[p=type q=foot]) q=(list ,[p=type q=foot])]
?@ mew ?~ mew
[q.q.lar q.q.vug] [q.q.lar q.q.vug]
=+ zil=^$(gen q.i.mew, gol %noun) =+ zil=^$(gen q.i.mew, gol %noun)
=+ cuf=(tock p.i.mew p.zil q.q.lar) =+ cuf=(tock p.i.mew p.zil q.q.lar)
@ -7814,7 +7814,7 @@
=+ rag=q.q.lar =+ rag=q.q.lar
%- fire %- fire
|- ^- (list ,[p=type q=foot]) |- ^- (list ,[p=type q=foot])
?@ mew ?~ mew
rag rag
$(mew t.mew, rag q:(tock p.i.mew ^$(gen q.i.mew) rag)) $(mew t.mew, rag q:(tock p.i.mew ^$(gen q.i.mew) rag))
[%dtkt *] %noun [%dtkt *] %noun
@ -7966,7 +7966,7 @@
=- [(need p.wib) q.wib] =- [(need p.wib) q.wib]
^= wib ^= wib
|- ^- [p=(unit axis) q=(list ,[p=type q=foot])] |- ^- [p=(unit axis) q=(list ,[p=type q=foot])]
?@ men ?~ men
[*(unit axis) ~] [*(unit axis) ~]
=+ geq=(tack(sut p.i.men) peh mur) =+ geq=(tack(sut p.i.men) peh mur)
=+ mox=$(men t.men) =+ mox=$(men t.men)
@ -9090,7 +9090,7 @@
++ arch ,[p=@uvI q=(unit ,@uvI) r=(map ,@ta ,~)] :: fundamental node ++ arch ,[p=@uvI q=(unit ,@uvI) r=(map ,@ta ,~)] :: fundamental node
++ arvo (mold mill mill) :: arvo card ++ arvo (mold mill mill) :: arvo card
++ bead ,[[p=ship q=desk r=case] s=path] :: global name ++ bead ,[[p=ship q=desk r=case] s=path] :: global name
++ bone ,@ud :: opaque ++ bone ,@ud :: opaque
++ care ?(%$ %u %v %w %x %y %z) :: namespace mode ++ care ?(%$ %u %v %w %x %y %z) :: namespace mode
++ case :: version ++ case :: version
$% [%da p=@da] :: date $% [%da p=@da] :: date
@ -9117,7 +9117,7 @@
[%se p=gene] :: set [%se p=gene] :: set
[%sy p=@tas q=gene r=gene] :: symbolic declare [%sy p=@tas q=gene r=gene] :: symbolic declare
[%un p=gene] :: unit [%un p=gene] :: unit
[%va p=@tas] :: symbolic reference [%va p=@tas] :: symbolic reference
== :: == ::
++ glob ,[p=logo q=ship r=mark] :: global brand ++ glob ,[p=logo q=ship r=mark] :: global brand
++ herd (hypo curd) :: typed card ++ herd (hypo curd) :: typed card
@ -9139,7 +9139,7 @@
++ kirk (unit (set monk)) :: audience ++ kirk (unit (set monk)) :: audience
++ khan ,[p=@tas q=path] :: foreign identity ++ khan ,[p=@tas q=path] :: foreign identity
++ lens :: observation core ++ lens :: observation core
$_ ^? :: $_ ^? ::
|% ++ u *(unit (unit ,~)) :: existence |% ++ u *(unit (unit ,~)) :: existence
++ v *(unit (unit cage)) :: full history ++ v *(unit (unit cage)) :: full history
++ w *(unit (unit (unit cage))) :: latest diff ++ w *(unit (unit (unit cage))) :: latest diff
@ -9162,7 +9162,7 @@
== :: == ::
++ muse ,[p=@tas q=duct r=arvo] :: sourced move ++ muse ,[p=@tas q=duct r=arvo] :: sourced move
++ mosh ,[p=duct q=(mold curd curd)] :: vane move ++ mosh ,[p=duct q=(mold curd curd)] :: vane move
++ move ,[p=duct q=arvo] :: arvo move ++ move ,[p=duct q=arvo] :: arvo move
++ ovum ,[p=wire q=curd] :: typeless ovum ++ ovum ,[p=wire q=curd] :: typeless ovum
++ pane (list ,[p=@tas q=vase]) :: kernel modules ++ pane (list ,[p=@tas q=vase]) :: kernel modules
++ pone (list ,[p=@tas q=vise]) :: kernel modules, old ++ pone (list ,[p=@tas q=vise]) :: kernel modules, old
@ -9313,7 +9313,7 @@
|= pax=path |= pax=path
%+ bind (song (spec (slot 15 caq))) %+ bind (song (spec (slot 15 caq)))
|= hil=mill |= hil=mill
[%& %toss lal pax hil] [%& %toss lal pax hil]
:: ::
[%give p=[p=@tas q=*]] [%give p=[p=@tas q=*]]
%- (bond |.([%| p.p.q.caq])) %- (bond |.([%| p.p.q.caq]))