ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-24 10:33:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

mall: forward port userspace changes

Browse Source
This commit is contained in:
Philip Monk 2019-11-04 21:35:26 -08:00
parent 274d518cbc
commit 0638d23840
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
4 changed files with 13 additions and 3469 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3437
pkg/arvo/age/hall.hoon
View File

File diff suppressed because it is too large Load Diff

35
pkg/arvo/lib/hood/drum-mall.hoon
View File

@ -2,7 +2,7 @@
:::: /hoon/drum/hood/lib :: ::
:: :: ::
/? 310 :: version
/- *sole, hall
/- *sole
/+ sole
:: :: ::
:::: :: ::
@ -143,23 +143,6 @@
=/ ost 0
=+ (~(gut by bin) ost *source)
=* dev -
=> |% :: arvo structures
++ pear :: request
$% {$sole-action vase} ::
{$hall-command vase} ::
== ::
++ lime :: update
$% {$dill-blit dill-blit:dill} ::
== ::
++ card :: general card
$% {$conf wire dock ship term} ::
{$diff lime} ::
{$peer wire dock path} ::
{$poke wire dock pear} ::
{$pull wire dock ~} ::
== ::
++ move (pair bone card) :: user-level move
--
|_ {moz/(list card:agent:mall) biz/(list dill-blit:dill)}
++ diff-sole-effect-phat :: app event
|= {way/wire fec/sole-effect}
@ -527,14 +510,6 @@
|= card:agent:mall
%_(+> moz [+< moz])
::
++ se-hall
|= tac/(list tank)
^+ +>
:: XX hall should be usable for stack traces, see urbit#584 which this change
:: closed for the problems there
((slog (flop tac)) +>)
::(se-emit 0 %poke /drum/hall [our.hid %hall] (said:hall our.hid %drum now.hid eny.hid tac))
::
++ se-text :: return text
|= txt/tape
^+ +>
@ -544,7 +519,7 @@
(se-blit %out (tuba txt))
::
++ se-poke :: send a poke
|= {gyl/gill:gall par/pear}
|= {gyl/gill:gall par/cage}
(se-emit %pass (en-gill gyl) %agent gyl %poke par)
::
++ se-peer :: send a peer
@ -572,7 +547,7 @@
^+ ..ta
..ta(fug (~(put by fug) gyl ``target`+<+))
::
++ ta-poke |=(a/pear +>(..ta (se-poke gyl a))) :: poke gyl
++ ta-poke |=(a/cage +>(..ta (se-poke gyl a))) :: poke gyl
::
++ ta-act :: send action
|= act/sole-action
@ -649,6 +624,7 @@
$f (ta-aro %r)
$g ?~ ris ta-bel
(ta-hom(pos.hit num.hit, ris ~) [%set ~])
$i ta-tab
$k =+ len=(lent buf.say.inp)
?: =(pos.inp len)
ta-bel
@ -917,6 +893,9 @@
++ ta-ret :: hear return
(ta-act %ret ~)
::
++ ta-tab :: hear tab
(ta-act %tab pos.inp)
::
++ ta-ser :: reverse search
|= ext/(list @c)
^+ +>

7
pkg/arvo/lib/hood/helm-mall.hoon
View File

@ -2,7 +2,7 @@
:::: /hoon/helm/hood/lib :: ::
:: :: ::
/? 310 :: version
/- sole, hall
/- sole
/+ pill
:: :: ::
:::: :: ::
@ -187,6 +187,10 @@
|= ~ =< abet
(flog %verb ~)
::
++ poke-knob
|= [error-tag=@tas level=?(%hush %soft %loud)] =< abet
(emit %pass /helm %arvo %d %knob error-tag level)
::
++ poke-serve
|= [=binding:eyre =generator:eyre] =< abet
(emit %pass /helm/serv %arvo %e %serve binding generator)
@ -201,6 +205,7 @@
%helm-reset =;(f (f !<(_+<.f vase)) poke-reset)
%helm-send-hi =;(f (f !<(_+<.f vase)) poke-send-hi)
%helm-verb =;(f (f !<(_+<.f vase)) poke-verb)
%helm-knob =;(f (f !<(_+<.f vase)) poke-knob)
%helm-rekey =;(f (f !<(_+<.f vase)) poke-rekey)
%helm-nuke =;(f (f !<(_+<.f vase)) poke-nuke)
%helm-automass =;(f (f !<(_+<.f vase)) poke-automass)

3
pkg/arvo/lib/hood/kiln-mall.hoon
View File

@ -2,7 +2,6 @@
:::: /hoon/kiln/hood/lib :: ::
:: :: ::
/? 310 :: version
/- hall
:: :: ::
:::: :: ::
:: :: ::
@ -435,8 +434,6 @@
++ spam
|= mes/(list tank)
((slog mes) ..spam)
:: %- emit :: XX not displayed/immediately
:: [%poke /kiln/spam [our %hall] (said our %kiln now eny mes)]
::
++ auto
|= kiln-sync