mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
hoon: %brcn and %brpt names for doccords
changes the syntax for naming |% and |@ cores from :> # %core-name to |% %core-name
This commit is contained in:
parent
39ac7cb820
commit
3d3ea61d53
@ -8227,22 +8227,11 @@
|
|||||||
wrap-boy
|
wrap-boy
|
||||||
::
|
::
|
||||||
:: bar runes
|
:: bar runes
|
||||||
$? [%brbc *] [%brcb *] [%brcl *] [%brdt *] [%brkt *]
|
$? [%brcn *] [%brpt *] [%brbc *] [%brcb *] [%brcl *] [%brdt *]
|
||||||
[%brhp *] [%brsg *] [%brtr *] [%brts *] [%brwt *] ==
|
[%brkt *] [%brhp *] [%brsg *] [%brtr *] [%brts *] [%brwt *]
|
||||||
|
==
|
||||||
:: TODO: handle recursion
|
:: TODO: handle recursion
|
||||||
?~ boy.wit
|
wrap-boy
|
||||||
gen
|
|
||||||
[%note help+`u.boy.wit gen]
|
|
||||||
::
|
|
||||||
[%brcn *]
|
|
||||||
?~ boy.wit
|
|
||||||
[%brcn lab.wit q.gen]
|
|
||||||
[%note help+`u.boy.wit [%brcn lab.wit q.gen]]
|
|
||||||
::
|
|
||||||
[%brpt *]
|
|
||||||
?~ boy.wit
|
|
||||||
[%brcn lab.wit q.gen]
|
|
||||||
[%note help+`u.boy.wit [%brpt lab.wit q.gen]]
|
|
||||||
::
|
::
|
||||||
:: tis runes
|
:: tis runes
|
||||||
[%tsfs *]
|
[%tsfs *]
|
||||||
@ -13102,8 +13091,8 @@
|
|||||||
%- stew
|
%- stew
|
||||||
^. stet ^. limo
|
^. stet ^. limo
|
||||||
:~ ['_' (rune cab %brcb exqr)]
|
:~ ['_' (rune cab %brcb exqr)]
|
||||||
['%' (runo cen %brcn ~ expe)]
|
['%' (runn cen %brcn expe)]
|
||||||
['@' (runo pat %brpt ~ expe)]
|
['@' (runn pat %brpt expe)]
|
||||||
[':' (rune col %brcl expb)]
|
[':' (rune col %brcl expb)]
|
||||||
['.' (rune dot %brdt expa)]
|
['.' (rune dot %brdt expa)]
|
||||||
['-' (rune hep %brhp expa)]
|
['-' (rune hep %brhp expa)]
|
||||||
@ -13439,11 +13428,15 @@
|
|||||||
;~(pfix dif (stag tuq (toad har)))
|
;~(pfix dif (stag tuq (toad har)))
|
||||||
--
|
--
|
||||||
::
|
::
|
||||||
++ runo :: rune plus
|
++ runn :: build named rune
|
||||||
=+ [dif=*rule hil=** tuq=** har=expa]
|
=+ [dif=*rule tuq=** har=expa]
|
||||||
|@ ++ $
|
|@ ++ $
|
||||||
;~(pfix dif (stag hil (stag tuq (toad har))))
|
;~ pfix
|
||||||
|
dif
|
||||||
|
(stag tuq ;~(plug (punt ;~(pfix gap cen sym)) (toad har)))
|
||||||
|
==
|
||||||
--
|
--
|
||||||
|
::
|
||||||
++ runq :: wide or tall if tol
|
++ runq :: wide or tall if tol
|
||||||
|* [wid=rule tal=rule] :: else wide
|
|* [wid=rule tal=rule] :: else wide
|
||||||
?. tol
|
?. tol
|
||||||
|
Loading…
Reference in New Issue
Block a user