ames: strip out notifications system

This commit is contained in:
Liam Fitzgerald 2022-04-15 16:35:58 -05:00
parent 8d939a9ab9
commit 4ae93c8bd0
3 changed files with 2 additions and 49 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:13941f43472c8e7985f68d41cecd4facc534bcb171f553bb7fd6b20e6bef49c0
size 9660444
oid sha256:d324c1f4f09abe156de814718fc603c2faef65d8866182bf5135929bc69182c7
size 9868510

View File

@ -1066,7 +1066,6 @@
::
:: %keen: data request from arvo
:: %yawn: cancel request from arvo
:: %bide: unix awaiting datum creation (%howl)
::
:: System and Lifecycle Tasks
::
@ -1086,7 +1085,6 @@
[%keen =ship =path]
[%pine =ship =path]
[%yawn =ship =path]
[%bide =path]
::
$>(%born vane-task)
$>(%init vane-task)
@ -1108,7 +1106,6 @@
::
:: Remote Scry Gifts
:: %tune: found data for arvo
:: %howl: full response packets
:: %miss: no case for %pine
::
:: System and Lifecycle Gifts
@ -1124,7 +1121,6 @@
[%send =lane =blob]
::
[%tune =path sign=@ux data=(unit (cask))]
[%howl =path =song]
[%miss =path]
::
[%turf turfs=(list turf)]
@ -2994,8 +2990,5 @@
:: %behn: wakeup
::
$>(%wake task:behn)
:: %ames: await namespace datum
::
$>(%bide task:ames)
==
-- ::

View File

@ -832,9 +832,6 @@
$% $: %behn
$% $>(%wake gift:behn)
== ==
$: ?(%behn %clay)
$% [%writ p=riot:clay]
== ==
$: %jael
$% [%private-keys =life vein=(map life ring)]
[%public-keys =public-keys-result]
@ -1133,7 +1130,6 @@
%pine (on-pine:fine:event-core +.task)
%keen (on-keen:fine:event-core +.task)
%yawn (on-yawn:fine:event-core +.task)
%bide (on-bide:fine:event-core +.task)
==
::
[moves ames-gate]
@ -1153,8 +1149,6 @@
?- sign
[@ %done *] (on-take-done:event-core wire error.sign)
[@ %boon *] (on-take-boon:event-core wire payload.sign)
::
[?(%clay %behn) %writ *] (on-take-clay-bide:fine:event-core wire p.sign)
::
[%behn %wake *] (on-take-wake:event-core wire error.sign)
::
@ -3174,40 +3168,6 @@
~|(%no-ship-for-yawn !!)
pe-abet:(pe-yawn:u.peer-core path)
::
++ on-bide
|= =path
^+ event-core
:: TODO: other vanes?
(bide-clay path)
::
++ bide-clay
|= =path
^+ event-core
?> ?=([@ @ *] path)
=/ =wire
(welp /fine/bide path)
=+ blk=(de-path:balk path)
?> ?=(%c van.blk)
=/ [des=desk spr=spur]
?^ spr.blk spr.blk
[%$ ~]
=+ ;;(=care:clay car.blk)
=/ =rave:clay
[%sing care cas.blk spr]
(emit duct %pass wire %c %warp her.blk des `rave)
::
++ on-take-clay-bide
|= [=wire =riot:clay]
?> ?=([%fine %bide @ *] wire)
=/ pax=path t.t.wire
=/ cas=(unit (cask))
?~ riot ~
`[p q.q]:r.u.riot
=/ =song
(encode-response pax (fall cas ~))
%- emit
[unix-duct.ames-state %give %howl pax song]
::
++ on-take-wake
|= [=wire error=(unit tang)]
^+ event-core