ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-23 18:18:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

ames: better naming in queued event migrations

Browse Source
This commit is contained in:
yosoyubik 2023-06-30 15:26:20 +02:00
parent 7caf712c86
commit f56db0f460
2 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
bin/solid.pill
View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:eb84ccc9b6d8aa65f29116d5ba505f2c56ff39efc1b6098c1c1cb6c798390aaa
size 6709833
oid sha256:3fbab4ec845202c742a2ab029b485e0449febc96a4c8877ec88d10684aba09b0
size 6709899

60
pkg/arvo/sys/vane/ames.hoon
View File

@ -1160,27 +1160,27 @@
counter=@ud
==
::
+$ queued-event-14-and-11
$+ queued-event-14-and-11
$% [%call =duct wrapped-task=(hobo task-14-and-11)]
+$ queued-event-11-and-15
$+ queued-event-11-and-15
$% [%call =duct wrapped-task=(hobo task-11-and-15)]
[%take =wire =duct =sign]
==
::
+$ task-14-and-11
$+ task-14-and-11
+$ task-11-and-15
$+ task-11-and-15
$% [%kroc dry=?]
[%snub ships=(list ship)]
$<(?(%snub %kroc) task)
==
::
+$ queued-event-14
$+ queued-event-14
$% [%call =duct wrapped-task=(hobo task-14)]
+$ queued-event-15
$+ queued-event-15
$% [%call =duct wrapped-task=(hobo task-15)]
[%take =wire =duct =sign]
==
::
+$ task-14
$+ task-14
+$ task-15
$+ task-15
$% [%kroc dry=?]
$<(%kroc task)
==
@ -1499,42 +1499,42 @@
== ==
$: %10
$% $: %larva
events=(qeu queued-event-14-and-11)
events=(qeu queued-event-11-and-15)
state=ames-state-10
==
[%adult state=ames-state-10]
== ==
$: %11
$% $: %larva
events=(qeu queued-event-14-and-11)
events=(qeu queued-event-11-and-15)
state=ames-state-11
==
[%adult state=ames-state-11]
== ==
$: %12
$% $: %larva
events=(qeu queued-event-14)
events=(qeu queued-event-15)
state=ames-state-12
==
[%adult state=ames-state-12]
== ==
$: %13
$% $: %larva
events=(qeu queued-event-14)
events=(qeu queued-event-15)
state=ames-state-13
==
[%adult state=ames-state-13]
== ==
$: %14
$% $: %larva
events=(qeu queued-event-14)
events=(qeu queued-event-15)
state=ames-state-14
==
[%adult state=ames-state-14]
== ==
$: %15
$% $: %larva
events=(qeu queued-event)
events=(qeu queued-event-15)
state=ames-state-15
==
[%adult state=ames-state-15]
@ -1617,7 +1617,7 @@
[%10 %larva *]
~> %slog.1^leaf/"ames: larva: load"
=. cached-state `[%10 state.old]
=. queued-events (event-11-to-14 events.old)
=. queued-events (event-11-to-16 events.old)
larval-gate
::
[%11 %adult *]
@ -1628,7 +1628,7 @@
[%11 %larva *]
~> %slog.1^leaf/"ames: larva: load"
=. cached-state `[%11 state.old]
=. queued-events (event-11-to-14 events.old)
=. queued-events (event-11-to-16 events.old)
larval-gate
::
[%12 %adult *]
@ -1639,7 +1639,7 @@
[%12 %larva *]
~> %slog.1^leaf/"ames: larva: load"
=. cached-state `[%12 state.old]
=. queued-events (event-14-to-15 events.old)
=. queued-events (event-15-to-16 events.old)
larval-gate
::
[%13 %adult *]
@ -1650,7 +1650,7 @@
[%13 %larva *]
~> %slog.1^leaf/"ames: larva: load"
=. cached-state `[%13 state.old]
=. queued-events (event-14-to-15 events.old)
=. queued-events (event-15-to-16 events.old)
larval-gate
::
[%14 %adult *]
@ -1661,7 +1661,7 @@
[%14 %larva *]
~> %slog.1^leaf/"ames: larva: load"
=. cached-state `[%14 state.old]
=. queued-events (event-14-to-15 events.old)
=. queued-events (event-15-to-16 events.old)
larval-gate
::
[%15 %adult *]
@ -1672,7 +1672,7 @@
[%15 %larva *]
~> %slog.1^leaf/"ames: larva: load"
=. cached-state `[%15 state.old]
=. queued-events events.old
=. queued-events (event-15-to-16 events.old)
larval-gate
::
[%16 %adult *] (load:adult-core %16 state.old)
@ -1698,14 +1698,14 @@
wrapped-task ?.(?=(%snub -.task) task [%snub %deny ships.task])
==
::
++ event-11-to-14
|= events=(qeu queued-event-14-and-11)
++ event-11-to-16
|= events=(qeu queued-event-11-and-15)
^- (qeu queued-event)
%- ~(rep in events)
|= [e=queued-event-14-and-11 q=(qeu queued-event)]
|= [e=queued-event-11-and-15 q=(qeu queued-event)]
%- ~(put to q) ^- queued-event
?. ?=(%call -.e) e
=/ task=task-14-and-11 ((harden task-14-and-11) wrapped-task.e)
=/ task=task-11-and-15 ((harden task-11-and-15) wrapped-task.e)
%= e
wrapped-task
?+ -.task task
@ -1714,14 +1714,14 @@
==
==
::
++ event-14-to-15
|= events=(qeu queued-event-14)
++ event-15-to-16
|= events=(qeu queued-event-15)
^- (qeu queued-event)
%- ~(rep in events)
|= [e=queued-event-14 q=(qeu queued-event)]
|= [e=queued-event-15 q=(qeu queued-event)]
%- ~(put to q) ^- queued-event
?. ?=(%call -.e) e
=/ task=task-14 ((harden task-14) wrapped-task.e)
=/ task=task-15 ((harden task-15) wrapped-task.e)
%= e
wrapped-task ?.(?=(%kroc -.task) task [%kroc ~])
==