mirror of
https://github.com/urbit/shrub.git
synced 2024-08-17 08:00:39 +03:00
commit
be89faa86d
@ -141,6 +141,9 @@
|
||||
?. =(our src):bowl :: don't crash, this is where pings are handled
|
||||
`this
|
||||
::
|
||||
?: ?=(%czar (clan:title our.bowl))
|
||||
`this
|
||||
::
|
||||
=^ cards state
|
||||
?: ?=([%kick ?] q.vase)
|
||||
=? mode.state =(+.q.vase %.y)
|
||||
@ -182,6 +185,8 @@
|
||||
=^ cards state
|
||||
?+ wire `state
|
||||
[%wait *]
|
||||
?: ?=(%czar (clan:title our.bowl))
|
||||
`state
|
||||
?. ?=(%formal mode.state) `state
|
||||
?> ?=(%wake +<.sign-arvo)
|
||||
?^ error.sign-arvo
|
||||
|
16
pkg/arvo/gen/commit-event.hoon
Normal file
16
pkg/arvo/gen/commit-event.hoon
Normal file
@ -0,0 +1,16 @@
|
||||
:: make a unix commit event
|
||||
::
|
||||
:: call as > .event/jam +commit-event /path/to/file
|
||||
:: to be used with ./urbit-binary -I event.jam pier
|
||||
::
|
||||
:: XX expand with arbitrary user-defined events?
|
||||
:: XX only supports files in which +noun:grab in the mark file returns a @t
|
||||
:: (e.g. hoon files)
|
||||
::
|
||||
:- %say
|
||||
|= [[now=@da eny=@uvJ bec=beak] [=path ~] ~]
|
||||
:- %noun
|
||||
?~ beam=(de-beam path)
|
||||
~|(%path-not-beam !!)
|
||||
=+ .^(file=@t %cx path)
|
||||
[/c/sync %info desk=q.u.beam & [s.u.beam %ins %mime !>([/ (as-octs:mimes:html file)])]~]
|
1
pkg/arvo/lib/verb
Symbolic link
1
pkg/arvo/lib/verb
Symbolic link
@ -0,0 +1 @@
|
||||
../../base-dev/lib/verb
|
1
pkg/arvo/mar/verb
Symbolic link
1
pkg/arvo/mar/verb
Symbolic link
@ -0,0 +1 @@
|
||||
../../base-dev/mar/verb
|
@ -2768,7 +2768,10 @@
|
||||
?~ bone=(bone-ok u.parsed wire rift.peer-state.peer-core)
|
||||
event-core
|
||||
::
|
||||
abet:(check-clog:(on-memo:peer-core u.bone [%boon payload]) u.bone id)
|
||||
=. peer-core (on-memo:peer-core u.bone [%boon payload])
|
||||
=? peer-core (gte now (add ~s30 last-contact.qos.peer-state.peer-core))
|
||||
(check-clog:peer-core u.bone id)
|
||||
abet:peer-core
|
||||
:: +on-take-boon: receive request to give message to peer
|
||||
::
|
||||
++ on-take-boon
|
||||
|
Loading…
Reference in New Issue
Block a user