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

Import ++redo from /resurface branch.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-09-06 16:46:30 -07:00
parent 79342d7dcb
commit f54dc77183
3 changed files with 33 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sys/hoon.hoon
View File

@ -5458,6 +5458,7 @@
{$tune p/(pair what $@(term tune))} :: minimal face
{$wing p/wing} :: pulls p
{$yell p/(list twig)} :: render as tank
{$cool p/twig} :: enter test mode
:: :::::: molds
{$claw p/root q/root} :: $@ depth fork
{$shoe p/twig} :: $_ example
@ -7675,7 +7676,8 @@
[dox p.q]
?> ?=($elm -.q)
:: ~_ (dunk(sut [%cell q.q.p p.p]) %fire-wet)
=. p.p (redo(sut p.p) q.q.p)
=. p.p ?:(fab p.p (redo(sut p.p) q.q.p))
:: =. p.p (redo(sut p.p) q.q.p)
?> ?| !vet
(~(has in rib) [sut dox p.q])
!=(** (mull(sut p, rib (~(put in rib) sut dox p.q)) %noun dox p.q))
@ -7820,6 +7822,7 @@
=+ tal=$(gen q.gen, gol %noun)
[(nice (cell p.hed p.tal)) (cons q.hed q.tal)]
::
{$cool *} $(fab |, gen p.gen)
{$corp *} (grow %gold [%$ 1] p.gen q.gen)
::
{$make *} (~(mint et p.gen q.gen) gol)
@ -7992,6 +7995,7 @@
=+ tal=$(gen q.gen, gol %noun)
[(nice (cell p.hed p.tal)) (cell q.hed q.tal)]
::
{$cool *} $(fab |, gen p.gen)
{$corp *} (grow %gold [%$ 1] p.gen q.gen)
{$make *} (~(mull et p.gen q.gen) gol dox)
{$wish *} =+($(gen q.gen, gol %noun) $(gen [%bunt p.gen]))
@ -8366,6 +8370,7 @@
^- span
?- gen
{^ *} (cell $(gen p.gen) $(gen q.gen))
{$cool *} $(fab |, gen p.gen)
{$corp *} (core sut %gold sut p.gen [[%0 0] q.gen])
{$make *} ~(play et p.gen q.gen)
{$wish *} $(gen [%bunt p.gen])
@ -10273,6 +10278,7 @@
['~' (rune sig %burn expa)]
['=' (rune tis %name expg)]
['?' (rune wut %lead expa)]
['%' (rune cen %cool expa)]
==
==
:- '~'

48
sys/vane/jael.hoon
View File

@ -912,32 +912,34 @@
|= who/ship
~(able ~(ex ur urb) who)
::
++ read-womb
=, wired :: XX ":eyre"
=, womb
|= pax/path ^- (unit scry:womb)
?~ pax ~
?+ i.pax ~
$balance
%+ bind (read t.pax /[%uv])
|=(a/passcode [%balance a])
::
$stats
%+ bind (read t.pax /[%p])
|=(a/ship [%stats a])
::
$shop
%+ biff (read t.pax /[%tas]/[%ud])
|= {typ/term nth/@u}
?. ?=(?($star $planet) typ) ~
`[%shop typ nth]
==
:: ++read is currently unavailable
:: ++ read-womb
:: =, wired :: XX ":eyre"
:: =, womb
:: |= pax/path ^- (unit scry:womb)
:: ?~ pax ~
:: ?+ i.pax ~
:: $balance
:: %+ bind (read t.pax /[%uv])
:: |=(a/passcode [%balance a])
:: ::
:: $stats
:: %+ bind (read t.pax /[%p])
:: |=(a/ship [%stats a])
:: ::
:: $shop
:: %+ biff (read t.pax /[%tas]/[%ud])
:: |= {typ/term nth/@u}
:: ?. ?=(?($star $planet) typ) ~
:: `[%shop typ nth]
:: ==
:: :: ++scry:of
++ scry :: read
|= {syd/@tas pax/path} ^- (unit gilt)
?+ syd ~
$womb (biff (read-womb pax) scry-womb:(burb our))
==
~
:: ?+ syd ~
:: $womb (biff (read-womb pax) scry-womb:(burb our))
:: ==
:: :: ++call:of
++ call :: invoke
|= $: :: hen: event cause

2
sys/zuse.hoon
View File

@ -4389,7 +4389,7 @@
=< |= a/cord :: expose parsers
%+ biff (rush a (more sepa elem))
|= b/(list _(wonk *elem)) ^- (unit date)
=- ?.((za:dejs -) ~ (some (zp:dejs -)))
=- ?.((za:dejs:format -) ~ (some (zp:dejs:format -)))
^+ =+ [*date u=unit]
*{(u _[a y]) (u _m) (u _d.t) (u _+.t) $~}
:~