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

wip reworked +wake; compiles

Browse Source
This commit is contained in:
Philip Monk 2019-05-22 14:39:12 -07:00
parent 5a1cccdcea
commit 5ec205a34a
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
5 changed files with 411 additions and 358 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/aqua.hoon
View File

@ -378,9 +378,12 @@
::
[%swap-files ~]
=. userspace-ova.pil
=/ slim-dirs
`(list path)`~[/app /gen /lib /mar /sur /hoon/sys /arvo/sys /zuse/sys]
:_ ~
%- unix-event
(file-ovum:pill-lib /(scot %p our.hid)/home/(scot %da now.hid))
%- %*(. file-ovum:pill-lib directories slim-dirs)
/(scot %p our.hid)/home/(scot %da now.hid)
=^ ms this (poke-pill pil)
(emit-moves ms)
::
@ -527,7 +530,6 @@
~
=/ who (slav %p i.pax)
=/ pier (~(get by piers) who)
=/ ren i.t.t.t.t.pax
?~ pier
~
:^ ~ ~ %noun

4
app/ph.hoon
View File

@ -164,7 +164,9 @@
;< ~ bind:m (raw-ship ~bud `(dawn:eth-node ~bud))
;< ~ bind:m (raw-ship ~marbud `(dawn:eth-node ~marbud))
;< file=@t bind:m (touch-file ~bud %base)
~& %checking-file-touched
(check-file-touched ~marbud %home file)
~& %checked-file-touched
;< eth-node=_eth-node bind:m
(breach-and-hear:eth-node our.hid ~bud ~marbud)
;< [eth-node=_eth-node ~] bind:m
@ -173,6 +175,7 @@
;< ~ bind:m (raw-ship ~bud `(dawn:eth-node ~bud))
;< ~ bind:m (just-events (dojo ~bud "|merge %base ~marbud %kids, =gem %this"))
;< file=@t bind:m (touch-file ~bud %base)
;< ~ bind:m (just-events (dojo ~marbud "|verb"))
;< file=@t bind:m (touch-file ~bud %base)
(check-file-touched ~marbud %home file)
(pure:m ~)
@ -200,6 +203,7 @@
router:eth-node
;< ~ bind:m (raw-ship ~marbud `(dawn:eth-node ~marbud))
;< file=@t bind:m (touch-file ~bud %base)
;< ~ bind:m (just-events (dojo ~marbud "|verb"))
;< file=@t bind:m (touch-file ~bud %base)
(check-file-touched ~marbud %home file)
(pure:m ~)

4
lib/pill.hoon
View File

@ -48,6 +48,8 @@
:: bas: full path to / directory
::
++ file-ovum
=/ directories
`(list path)`~[/app /gen /lib /mar /ren /sec /sur /sys /tests /web]
|= bas=path
^- ovum
::
@ -62,7 +64,7 @@
:: /tests unit tests
:: /web %eyre web content
::
%. [/app /gen /lib /mar /ren /sec /sur /sys /tests /web ~]
%. directories
|= :: sal: all spurs to load from
::
sal/(list spur)

733
sys/vane/clay.hoon
View File

File diff suppressed because it is too large Load Diff

14
sys/zuse.hoon
View File

@ -561,10 +561,10 @@
== ::
++ mizu {p/@u q/(map @ud tako) r/rang} :: new state
++ moar {p/@ud q/@ud} :: normal change range
++ moat {p/case q/case r/path} :: change range
+$ moat [from=case to=case =path] :: change range
++ mode (list {path (unit mime)}) :: external files
++ mood {p/care q/case r/path} :: request in desk
++ mool {p/case q/(set (pair care path))} :: requests in desk
+$ mood [=care =case =path] :: request in desk
+$ mool [=case paths=(set (pair care path))] :: requests in desk
++ nori :: repository action
$% {%& p/soba} :: delta
{%| p/@tas} :: label
@ -585,10 +585,10 @@
r/cage :: data
== ::
++ rave :: general request
$% {$sing p/mood} :: single request
{$next p/mood} :: await next version
{$mult p/mool} :: next version of any
{$many p/? q/moat} :: track range
$% [%sing =mood] :: single request
[%next =mood] :: await next version
[%mult =mool] :: next version of any
[%many track=? =moat] :: track range
== ::
++ real :: resolved permissions
$: mod/?($black $white) ::