ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity
5e86058ffa
urbit/pkg/arvo/app/herm.hoon

102 lines
2.3 KiB
Plaintext
Raw Normal View History

herm: userspace dill proxy Listens to the default dill session and passes its %blits on to subscribers. Passes any %belt pokes it gets into dill. Updates webdojo to make use of it, which is the primary motivation for herm's existence.
2020-10-24 02:25:44 +03:00
:: herm: stand-in for term.c with http interface
::
/+ default-agent, dbug, verb
zuse: lift moves out of +able
2020-12-08 03:47:06 +03:00
=, jael
herm: userspace dill proxy Listens to the default dill session and passes its %blits on to subscribers. Passes any %belt pokes it gets into dill. Updates webdojo to make use of it, which is the primary motivation for herm's existence.
2020-10-24 02:25:44 +03:00
|%
+$ state-0 [%0 ~]
--
::
=| state-0
=* state -
%+ verb |
%- agent:dbug
^- agent:gall
herm: keep blit & belt marks in cache Perhaps there should be a general-purpose mechanism for this, but for now this will suffice.
2020-11-06 17:42:15 +03:00
=> |%
++ request-tube
|= [bowl:gall from=mark to=mark next=?]
^- card:agent:gall
:* %pass /tube/[from]/[to]
%arvo %c %warp
our q.byk ~
::
?: next
[%next %c da+now /[from]/[to]]
[%sing %c da+now /[from]/[to]]
==
--
herm: userspace dill proxy Listens to the default dill session and passes its %blits on to subscribers. Passes any %belt pokes it gets into dill. Updates webdojo to make use of it, which is the primary motivation for herm's existence.
2020-10-24 02:25:44 +03:00
|_ =bowl:gall
+* this .
def ~(. (default-agent this %|) bowl)
::
++ on-init
^- (quip card:agent:gall _this)
:_ this
herm: keep blit & belt marks in cache Perhaps there should be a general-purpose mechanism for this, but for now this will suffice.
2020-11-06 17:42:15 +03:00
:: set up dill session subscription,
:: and ensure the tubes we use are in cache
::
dill: remove ducts from %view and %flee interface This was a little bit too crummy. Instead, we put in a placeholder of ~, which should be forwards-compatible with atomic session identifiers, where ~ identifies the default session. Additionally touches up the herm wires/paths to stick to the above more closely.
2020-11-10 21:32:26 +03:00
:~ [%pass [%view %$ ~] %arvo %d %view ~]
herm: keep blit & belt marks in cache Perhaps there should be a general-purpose mechanism for this, but for now this will suffice.
2020-11-06 17:42:15 +03:00
(request-tube bowl %blit %json |)
(request-tube bowl %json %belt |)
==
herm: userspace dill proxy Listens to the default dill session and passes its %blits on to subscribers. Passes any %belt pokes it gets into dill. Updates webdojo to make use of it, which is the primary motivation for herm's existence.
2020-10-24 02:25:44 +03:00
::
++ on-save !>([%0 ~])
++ on-load
|= old=vase
^- (quip card:agent:gall _this)
[~ this(state [%0 ~])]
::
++ on-watch
|= =path
^- (quip card:agent:gall _this)
dill: remove ducts from %view and %flee interface This was a little bit too crummy. Instead, we put in a placeholder of ~, which should be forwards-compatible with atomic session identifiers, where ~ identifies the default session. Additionally touches up the herm wires/paths to stick to the above more closely.
2020-11-10 21:32:26 +03:00
?> ?=([%session @ ~] path)
herm: send prompt & cursor on-connect
2020-11-05 22:13:36 +03:00
:_ this
:: scry prompt and cursor position out of dill for initial response
::
=/ base=^path
/dx/(scot %p our.bowl)//(scot %da now.bowl)/sessions
:~ [%give %fact ~ %blit !>(.^(blit:dill (weld base //line)))]
[%give %fact ~ %blit !>(`blit:dill`hop+.^(@ud (weld base //cursor)))]
==
herm: userspace dill proxy Listens to the default dill session and passes its %blits on to subscribers. Passes any %belt pokes it gets into dill. Updates webdojo to make use of it, which is the primary motivation for herm's existence.
2020-10-24 02:25:44 +03:00
::
++ on-arvo
|= [=wire =sign-arvo]
^- (quip card:agent:gall _this)
herm: keep blit & belt marks in cache Perhaps there should be a general-purpose mechanism for this, but for now this will suffice.
2020-11-06 17:42:15 +03:00
?+ wire !!
:: pass on dill blits for the session
::
dill: remove ducts from %view and %flee interface This was a little bit too crummy. Instead, we put in a placeholder of ~, which should be forwards-compatible with atomic session identifiers, where ~ identifies the default session. Additionally touches up the herm wires/paths to stick to the above more closely.
2020-11-10 21:32:26 +03:00
[%view %$ ~]
arvo: full vane names in $sign
2020-12-08 03:22:26 +03:00
?. ?=([%dill %blit *] sign-arvo)
herm: keep blit & belt marks in cache Perhaps there should be a general-purpose mechanism for this, but for now this will suffice.
2020-11-06 17:42:15 +03:00
~| [%unexpected-sign [- +<]:sign-arvo]
!!
:_ this
%+ turn p.sign-arvo
|= =blit:dill
dill: remove ducts from %view and %flee interface This was a little bit too crummy. Instead, we put in a placeholder of ~, which should be forwards-compatible with atomic session identifiers, where ~ identifies the default session. Additionally touches up the herm wires/paths to stick to the above more closely.
2020-11-10 21:32:26 +03:00
[%give %fact [%session %$ ~]~ %blit !>(blit)]
herm: keep blit & belt marks in cache Perhaps there should be a general-purpose mechanism for this, but for now this will suffice.
2020-11-06 17:42:15 +03:00
::
:: ensure the tubes we need remain in cache
::
[%tube @ @ ~]
=* from i.t.wire
=* to i.t.t.wire
arvo: full vane names in $sign
2020-12-08 03:22:26 +03:00
?. ?=([%clay %writ *] sign-arvo)
herm: keep blit & belt marks in cache Perhaps there should be a general-purpose mechanism for this, but for now this will suffice.
2020-11-06 17:42:15 +03:00
~| [%unexpected-sign [- +<]:sign-arvo]
!!
:_ this
[(request-tube bowl from to &)]~
==
herm: userspace dill proxy Listens to the default dill session and passes its %blits on to subscribers. Passes any %belt pokes it gets into dill. Updates webdojo to make use of it, which is the primary motivation for herm's existence.
2020-10-24 02:25:44 +03:00
::
++ on-poke
|= [=mark =vase]
^- (quip card:agent:gall _this)
?. ?=(%belt mark)
~| [%unexpected-mark mark]
!!
:_ this
dill: remove ducts from %view and %flee interface This was a little bit too crummy. Instead, we put in a placeholder of ~, which should be forwards-compatible with atomic session identifiers, where ~ identifies the default session. Additionally touches up the herm wires/paths to stick to the above more closely.
2020-11-10 21:32:26 +03:00
[%pass [%belt %$ ~] %arvo %d %belt !<(belt:dill vase)]~
herm: userspace dill proxy Listens to the default dill session and passes its %blits on to subscribers. Passes any %belt pokes it gets into dill. Updates webdojo to make use of it, which is the primary motivation for herm's existence.
2020-10-24 02:25:44 +03:00
::
++ on-leave on-leave:def
++ on-peek on-peek:def
++ on-agent on-agent:def
++ on-fail on-fail:def
--
Reference in New Issue Copy Permalink