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

1. single-home %dill

Browse Source
This commit is contained in:
Joe Bryan 2018-12-12 01:50:53 -05:00
parent 56fb7bd5c0
commit 72e3c85998
1 changed files with 8 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
sys/vane/dill.hoon
View File

@ -10,7 +10,6 @@
++ all-axle ?(axle) :: ++ all-axle ?(axle) ::
++ axle :: ++ axle ::
$: $0 :: $: $0 ::
ore/(unit ship) :: identity once set
hey/(unit duct) :: default duct hey/(unit duct) :: default duct
dug/(map duct axon) :: conversations dug/(map duct axon) :: conversations
$= hef :: other weights $= hef :: other weights
@ -139,9 +138,7 @@
=> |% => |%
++ as :: per cause ++ as :: per cause
=| moz/(list move) =| moz/(list move)
|_ $: {hen/duct our/ship} |_ [hen=duct axon]
axon
==
++ abet :: resolve ++ abet :: resolve
^- {(list move) axle} ^- {(list move) axle}
[(flop moz) all(dug (~(put by dug.all) hen +<+))] [(flop moz) all(dug (~(put by dug.all) hen +<+))]
@ -440,7 +437,7 @@
^- mass ^- mass
:- %dill :- %dill
:- %| :- %|
:~ all+[%& [ore hey dug]:all] :~ all+[%& [hey dug]:all]
== ==
:: ::
++ wegt ++ wegt
@ -472,10 +469,9 @@
++ ax :: make ++as ++ ax :: make ++as
|= hen/duct |= hen/duct
^- (unit _as) ^- (unit _as)
?~ ore.all ~
=/ nux (~(get by dug.all) hen) =/ nux (~(get by dug.all) hen)
?~ nux ~ ?~ nux ~
(some ~(. as [hen u.ore.all] u.nux)) (some ~(. as hen u.nux))
-- --
|% :: poke+peek pattern |% :: poke+peek pattern
++ call :: handle request ++ call :: handle request
@ -502,17 +498,14 @@
:: ::
?: ?=(%init -.task) ?: ?=(%init -.task)
?> =(~ dug.all) ?> =(~ dug.all)
?> =(~ ore.all)
=. ore.all `p.task
:: configure new terminal, setup :hood and %clay :: configure new terminal, setup :hood and %clay
:: ::
=* our p.task
=* duc (need hey.all) =* duc (need hey.all)
=/ app %hood =/ app %hood
=/ see (tuba "<awaiting {(trip app)}, this may take a minute>") =/ see (tuba "<awaiting {(trip app)}, this may take a minute>")
=/ zon=axon [app input=[~ ~] width=80 cursor=0 see] =/ zon=axon [app input=[~ ~] width=80 cursor=0 see]
:: ::
=^ moz all abet:(~(into as [duc our] zon) ~) =^ moz all abet:(~(into as duc zon) ~)
[moz ..^$] [moz ..^$]
:: %flog tasks are unwrapped and sent back to us on our default duct :: %flog tasks are unwrapped and sent back to us on our default duct
:: ::
@ -531,8 +524,8 @@
:: ::
=/ nus (ax hen) =/ nus (ax hen)
?~ nus ?~ nus
:: we got this on an unknown duct or :: :hen is an unrecognized duct
:: before %boot or %init (or one of those crashed) :: could be before %boot (or %boot failed)
:: ::
~& [%dill-call-no-flow hen -.task] ~& [%dill-call-no-flow hen -.task]
=/ tan ?:(?=(%crud -.task) q.task ~) =/ tan ?:(?=(%crud -.task) q.task ~)
@ -544,8 +537,6 @@
++ load :: trivial ++ load :: trivial
|= old/all-axle |= old/all-axle
..^$(all old) ..^$(all old)
:: |= old=* :: diable
:: ..^$(ore.all `~zod)
:: ::
++ scry ++ scry
|= {fur/(unit (set monk)) ren/@tas why/shop syd/desk lot/coin tyl/path} |= {fur/(unit (set monk)) ren/@tas why/shop syd/desk lot/coin tyl/path}
@ -561,8 +552,8 @@
^+ [*(list move) ..^$] ^+ [*(list move) ..^$]
=/ nus (ax hen) =/ nus (ax hen)
?~ nus ?~ nus
:: we got this on an unknown duct or :: :hen is an unrecognized duct
:: before %boot or %init (or one of those crashed) :: could be before %boot (or %boot failed)
:: ::
~& [%dill-take-no-flow hen -.q.hin +<.q.hin] ~& [%dill-take-no-flow hen -.q.hin +<.q.hin]
[~ ..^$] [~ ..^$]