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

Soq block rocked but undocced, doq block in the poq if the zoq deemeth so.

Browse Source
This commit is contained in:
Anton Dyudin 2014-06-17 04:17:01 -07:00 committed by Anton Dyudin
parent 18204b1d8d
commit cc97179b83
1 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
arvo/hoon.hoon
View File

@ -2372,6 +2372,13 @@
|* [vex=edge sab=_rule] |* [vex=edge sab=_rule]
(plug vex ;~(pfix bus sab)) (plug vex ;~(pfix bus sab))
:: ::
++ less :: no first and second
|* [vex=edge sab=_rule]
?~ q.vex
=+ roq=(sab)
[p=(last p.vex p.roq) q=q.roq]
vex(q ~)
::
++ pfix :: discard first rule ++ pfix :: discard first rule
~/ %pfix ~/ %pfix
(comp |*([a=* b=*] b)) (comp |*([a=* b=*] b))
@ -2394,6 +2401,12 @@
=+ roq=(sab) =+ roq=(sab)
[p=(last p.vex p.roq) q=q.roq] [p=(last p.vex p.roq) q=q.roq]
vex vex
++ simu :: first and second
|* [vex=edge sab=_rule]
?~ q.vex
vex
=+ roq=(sab)
roq
:: ::
++ sfix :: discard second rule ++ sfix :: discard second rule
~/ %sfix ~/ %sfix
@ -2493,7 +2506,7 @@
++ 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 prn)
(just `@`10) (just `@`10)
== ==
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ -2524,6 +2537,11 @@
++ 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
++ prn ;~(less (just `@`127) (shim 32 256))
++ qat ;~ pose :: chars in blockcord
prn
;~(less ;~(plug (just `@`10) soqs) (just `@`10))
==
++ qit ;~ pose :: chars in a cord ++ qit ;~ pose :: chars in a cord
(shim 32 38) (shim 32 38)
(shim 40 91) (shim 40 91)
@ -2531,7 +2549,12 @@
(shim 128 255) (shim 128 255)
poy poy
== ==
++ qut (ifix [soq soq] (boss 256 (more gon qit))) :: cord ++ qut ;~ pose :: cord
%+ ifix [soqs ;~(plug (just `@`10) soqs)]
(boss 256 (star qat)) :: ''' tall form
(ifix [soq soq] (boss 256 (more gon qit)))
==
++ soqs ;~(plug soq soq soq)
++ sym ++ sym
%+ cook %+ cook
|=(a=tape (rap 3 ^-((list ,@) a))) |=(a=tape (rap 3 ^-((list ,@) a)))
@ -8302,10 +8325,7 @@
++ hoy :: tall attributes ++ hoy :: tall attributes
%- star %- star
;~ pfix ;~(plug gap tis) ;~ pfix ;~(plug gap tis)
;~ plug ;~(plug fry ;~(pfix gap tall))
(stag %dtzz (stag %tas sym))
;~(pfix gap tall)
==
== ==
:: ::
++ hul :: tall preface ++ hul :: tall preface
@ -8382,18 +8402,13 @@
%+ cook |=(a=(list beet) a) %+ cook |=(a=(list beet) a)
%- star %- star
;~ pose ;~ pose
;~(pfix bas ;~(pose bas hep doq lus tar cen sem kel bix:ab)) ;~(pfix bas ;~(pose (mask "-+*%;[\\\"") bix:ab))
;~(pfix hep (stag %a sump)) ;~(pfix hep (stag %a sump))
;~(pfix lus (stag %b sump)) ;~(pfix lus (stag %b sump))
;~(pfix tar (stag %c sump)) ;~(pfix tar (stag %c sump))
;~(pfix cen (stag %d sump)) ;~(pfix cen (stag %d sump))
;~(pfix sem (stag %e pab(tol |))) ;~(pfix sem (stag %e pab(tol |)))
;~ pose ;~(less doq kel ?:(tol fail doq) prn)
?:(tol (shim 32 91) ;~(pose (shim 32 33) (shim 35 91)))
(shim 93 122)
(shim 124 126)
(shim 128 255)
==
(stag %a sump) (stag %a sump)
== ==
:: ::
@ -8610,13 +8625,7 @@
%- star %- star
;~ pose ;~ pose
;~(pfix bas ;~(pose bas doq kel bix:ab)) ;~(pfix bas ;~(pose bas doq kel bix:ab))
;~ pose ;~(less doq bas kel prn)
(shim 32 33)
(shim 35 91)
(shim 93 122)
(shim 124 126)
(shim 128 255)
==
(stag ~ sump) (stag ~ sump)
== ==
++ sump (ifix [kel ker] (stag %cltr (most ace wide))) ++ sump (ifix [kel ker] (stag %cltr (most ace wide)))