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 ~] [%swap-files ~]
=. userspace-ova.pil =. userspace-ova.pil
=/ slim-dirs
`(list path)`~[/app /gen /lib /mar /sur /hoon/sys /arvo/sys /zuse/sys]
:_ ~ :_ ~
%- unix-event %- 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) =^ ms this (poke-pill pil)
(emit-moves ms) (emit-moves ms)
:: ::
@ -527,7 +530,6 @@
~ ~
=/ who (slav %p i.pax) =/ who (slav %p i.pax)
=/ pier (~(get by piers) who) =/ pier (~(get by piers) who)
=/ ren i.t.t.t.t.pax
?~ pier ?~ pier
~ ~
:^ ~ ~ %noun :^ ~ ~ %noun

4
app/ph.hoon
View File

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

4
lib/pill.hoon
View File

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

737
sys/vane/clay.hoon
View File

File diff suppressed because it is too large Load Diff

18
sys/zuse.hoon
View File

@ -549,22 +549,22 @@
++ lobe @uvI :: blob ref ++ lobe @uvI :: blob ref
++ maki {p/@ta q/@ta r/@ta s/path} :: ++ maki {p/@ta q/@ta r/@ta s/path} ::
++ miso :: ankh delta ++ miso :: ankh delta
$% {$del ~} :: delete $% {$del ~} :: delete
{$ins p/cage} :: insert {$ins p/cage} :: insert
{$dif p/cage} :: mutate from diff {$dif p/cage} :: mutate from diff
{$mut p/cage} :: mutate from raw {$mut p/cage} :: mutate from raw
== :: == ::
++ misu :: computed delta ++ misu :: computed delta
$% {$del ~} :: delete $% {$del ~} :: delete
{$ins p/cage} :: insert {$ins p/cage} :: insert
{$dif p/lobe q/cage} :: mutate from diff {$dif p/lobe q/cage} :: mutate from diff
== :: == ::
++ mizu {p/@u q/(map @ud tako) r/rang} :: new state ++ mizu {p/@u q/(map @ud tako) r/rang} :: new state
++ moar {p/@ud q/@ud} :: normal change range ++ 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 ++ mode (list {path (unit mime)}) :: external files
++ mood {p/care q/case r/path} :: request in desk +$ mood [=care =case =path] :: request in desk
++ mool {p/case q/(set (pair care path))} :: requests in desk +$ mool [=case paths=(set (pair care path))] :: requests in desk
++ nori :: repository action ++ nori :: repository action
$% {%& p/soba} :: delta $% {%& p/soba} :: delta
{%| p/@tas} :: label {%| p/@tas} :: label
@ -585,10 +585,10 @@
r/cage :: data r/cage :: data
== :: == ::
++ rave :: general request ++ rave :: general request
$% {$sing p/mood} :: single request $% [%sing =mood] :: single request
{$next p/mood} :: await next version [%next =mood] :: await next version
{$mult p/mool} :: next version of any [%mult =mool] :: next version of any
{$many p/? q/moat} :: track range [%many track=? =moat] :: track range
== :: == ::
++ real :: resolved permissions ++ real :: resolved permissions
$: mod/?($black $white) :: $: mod/?($black $white) ::