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

fuse: fix comments

Browse Source
This commit is contained in:
raghu 2021-05-02 14:15:03 -04:00
parent 08d3aa2485
commit 20fb39bba7
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
pkg/arvo/sys/vane/clay.hoon
View File

@ -58,8 +58,11 @@
:: when the request is filled/updated. :: when the request is filled/updated.
:: ::
+$ cult (jug wove duct) +$ cult (jug wove duct)
:: State for ongoing %fuse merges - the list maintains the ordering ::
:: and the map stores the data needed to merge :: State for ongoing %fuse merges. `con` maintains the ordering,
:: `sto` stores the data needed to merge, and `bas` is the base
:: beak for the merge.
::
+$ melt [bas=beak con=(list [beak germ]) sto=(map beak (unit dome:clay))] +$ melt [bas=beak con=(list [beak germ]) sto=(map beak (unit dome:clay))]
:: ::
:: Domestic desk state. :: Domestic desk state.
@ -308,7 +311,7 @@
$: %c :: to %clay $: %c :: to %clay
$> $? %info :: internal edit $> $? %info :: internal edit
%merg :: merge desks %merg :: merge desks
%fuse :: mega merge %fuse :: merge many
%pork :: %pork ::
%warp :: %warp ::
%werp :: %werp ::
@ -1987,7 +1990,7 @@
=/ wir=wire /fuse/[syd]/(scot %p p.bec)/[q.bec]/(scot r.bec) =/ wir=wire /fuse/[syd]/(scot %p p.bec)/[q.bec]/(scot r.bec)
[hen %pass wir %c %warp p.bec q.bec `[%sing %v r.bec /]] [hen %pass wir %c %warp p.bec q.bec `[%sing %v r.bec /]]
:: ::
:: we also want to clear the state (fiz) associated with this :: We also want to clear the state (fiz) associated with this
:: merge and print a warning if it's non trivial i.e. we're :: merge and print a warning if it's non trivial i.e. we're
:: starting a new fuse before the previous one terminated. :: starting a new fuse before the previous one terminated.
:: ::
@ -2011,7 +2014,7 @@
^+ ..take-fuse ^+ ..take-fuse
?~ riot ?~ riot
:: ::
:: by setting fiz to *melt the merge is aborted - any further :: By setting fiz to *melt the merge is aborted - any further
:: responses we get for the merge will cause take-fuse to crash :: responses we get for the merge will cause take-fuse to crash
:: ::
=. fiz *melt =. fiz *melt
@ -2060,12 +2063,12 @@
=/ merge-result=(unit merge-result) +.result =/ merge-result=(unit merge-result) +.result
?~ merge-result ?~ merge-result
:: ::
:: this merge was a no-op, just continue :: This merge was a no-op, just continue
:: ::
$(merges t.merges) $(merges t.merges)
?^ conflicts.u.merge-result ?^ conflicts.u.merge-result
:: ::
:: if there are merge conflicts send the error and abort the merge :: If there are merge conflicts send the error and abort the merge
:: ::
=. fiz *melt =. fiz *melt
=. hut.ran clean-hut-ran =. hut.ran clean-hut-ran
@ -2077,7 +2080,7 @@
:: ::
%& %&
:: ::
:: convert the yuki to yaki :: Convert the yuki to yaki
:: ::
=/ yuk=yuki +.new.u.merge-result =/ yuk=yuki +.new.u.merge-result
=/ lobes=(map path lobe) =/ lobes=(map path lobe)
@ -2130,9 +2133,6 @@
|= [=ali=ship =ali=desk =germ ali-dome=dome:clay continuation-yaki=(unit yaki)] |= [=ali=ship =ali=desk =germ ali-dome=dome:clay continuation-yaki=(unit yaki)]
^- (each (unit merge-result) [term tang]) ^- (each (unit merge-result) [term tang])
|^ |^
:: term tang is the error, merge result being ~ means the merge was
:: a no-op
:: (each a b) is [| b] or [& a]
^- (each (unit merge-result) [term tang]) ^- (each (unit merge-result) [term tang])
=/ ali-yaki=yaki (~(got by hut.ran) (~(got by hit.ali-dome) let.ali-dome)) =/ ali-yaki=yaki (~(got by hut.ran) (~(got by hit.ali-dome) let.ali-dome))
=/ bob-yaki=(unit yaki) =/ bob-yaki=(unit yaki)