mirror of
https://github.com/urbit/shrub.git
synced 2024-11-30 22:15:47 +03:00
direct message prototype
This commit is contained in:
parent
68d5f97200
commit
0342339c45
64
pkg/arvo/neo/src/std/imp/dm.hoon
Normal file
64
pkg/arvo/neo/src/std/imp/dm.hoon
Normal file
@ -0,0 +1,64 @@
|
||||
/@ dm-diff
|
||||
/@ message
|
||||
=>
|
||||
|%
|
||||
++ card card:neo
|
||||
--
|
||||
^- firm:neo
|
||||
|%
|
||||
++ state %sig
|
||||
++ poke (sy %dm-diff %rely ~)
|
||||
++ kids
|
||||
%- ~(gas by *kids:neo)
|
||||
:~ :- ~[|/%da]
|
||||
[%message %sig]
|
||||
==
|
||||
++ deps
|
||||
%- ~(gas by *deps:neo)
|
||||
:~
|
||||
::
|
||||
:- %link
|
||||
::
|
||||
:+ req=| [%sig %dm-diff]
|
||||
:+ ~ %y
|
||||
%- ~(gas by *kids:neo)
|
||||
:~ :- [|/%da]~
|
||||
[%message %sig]
|
||||
==
|
||||
==
|
||||
++ form
|
||||
^- form:neo
|
||||
|_ [=bowl:neo =ever:neo state-vase=vase *]
|
||||
++ poke
|
||||
|= [=stud:neo vax=vase]
|
||||
^- (quip card:neo vase)
|
||||
?: =(%rely stud)
|
||||
=+ !<([=term =stem:neo] vax)
|
||||
?> ?=(%y -.q.stem)
|
||||
=/ =pail:neo pail:(snag 0 ~(val by kids.q.stem))
|
||||
=+ !<(=message q.pail)
|
||||
:: TODO handle
|
||||
?< =(our.bowl from.message)
|
||||
:_ !>(~)
|
||||
:_ ~
|
||||
:*
|
||||
(welp here.bowl ~[da/now.bowl])
|
||||
%make
|
||||
[%message `q.pail ~]
|
||||
==
|
||||
?> =(%dm-diff stud)
|
||||
=/ poke !<(dm-diff vax)
|
||||
?> =(our ship.src):bowl
|
||||
?> =(%msg -.poke)
|
||||
:_ !>(~)
|
||||
:~
|
||||
:*
|
||||
(welp were.bowl ~[da/now.bowl])
|
||||
%make
|
||||
[%message `!>(message.poke) ~]
|
||||
==
|
||||
==
|
||||
++ init
|
||||
|= old=(unit vase) `!>(~)
|
||||
--
|
||||
--
|
17
pkg/arvo/neo/src/std/imp/txt.hoon
Normal file
17
pkg/arvo/neo/src/std/imp/txt.hoon
Normal file
@ -0,0 +1,17 @@
|
||||
/@ txt
|
||||
|%
|
||||
++ state %txt
|
||||
++ poke ~
|
||||
++ kids *kids:neo
|
||||
++ deps *deps:neo
|
||||
++ form
|
||||
^- form:neo
|
||||
|_ [=bowl:neo =ever:neo state-vase=vase *]
|
||||
++ poke
|
||||
|= [=stud:neo vax=vase]
|
||||
!!
|
||||
++ init
|
||||
|= vas=(unit vase)
|
||||
`(need vas)
|
||||
--
|
||||
--
|
2
pkg/arvo/neo/src/std/pro/dm-diff.hoon
Normal file
2
pkg/arvo/neo/src/std/pro/dm-diff.hoon
Normal file
@ -0,0 +1,2 @@
|
||||
/@ message
|
||||
,[%msg =message]
|
1
pkg/arvo/neo/src/std/pro/txt.hoon
Normal file
1
pkg/arvo/neo/src/std/pro/txt.hoon
Normal file
@ -0,0 +1 @@
|
||||
cord
|
Loading…
Reference in New Issue
Block a user