ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 17:41:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

gall: replace 'dude' with 'term' throughout

Browse Source 
'dude' may be useful as a value-level mnemonic, but adds no useful
information at the type level.
This commit is contained in:
Jared Tobin 2019-05-28 14:49:17 +08:00 committed by Jared Tobin
parent efb93fea34
commit aec215b3a8
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
1 changed files with 53 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

106
pkg/arvo/sys/vane/gall.hoon
View File

@ -153,10 +153,10 @@
contacts=(map ship foreign) contacts=(map ship foreign)
:: running agents :: running agents
:: ::
running=(map dude agent) running=(map term agent)
:: waiting queue :: waiting queue
:: ::
waiting=(map dude blocked) waiting=(map term blocked)
== ==
:: ::
:: +routes: new cuff. :: +routes: new cuff.
@ -352,7 +352,7 @@
:: and date information. :: and date information.
:: ::
++ mo-boot ++ mo-boot
|= [=dude =ship =desk] |= [=term =ship =desk]
^+ mo-state ^+ mo-state
:: ::
=/ =case [%da now] =/ =case [%da now]
@ -360,11 +360,11 @@
=/ =path =/ =path
=/ ship (scot %p ship) =/ ship (scot %p ship)
=/ case (scot case) =/ case (scot case)
/sys/core/[dude]/[ship]/[desk]/[case] /sys/core/[term]/[ship]/[desk]/[case]
:: ::
=/ =note-arvo =/ =note-arvo
=/ disc [ship desk] =/ disc [ship desk]
=/ spur /hoon/[dude]/app =/ spur /hoon/[term]/app
=/ =schematic:ford [%core disc spur] =/ =schematic:ford [%core disc spur]
[%f %build live=%.y schematic] [%f %build live=%.y schematic]
:: ::
@ -408,7 +408,7 @@
:: ::
++ mo-receive-core ++ mo-receive-core
~/ %mo-receive-core ~/ %mo-receive-core
|= [=dude =beak =made-result:ford] |= [=term =beak =made-result:ford]
^+ mo-state ^+ mo-state
:: ::
?: ?=([%incomplete *] made-result) ?: ?=([%incomplete *] made-result)
@ -423,7 +423,7 @@
=/ result-vase q.cage =/ result-vase q.cage
:: ::
=/ app-data=(unit agent) =/ app-data=(unit agent)
(~(get by running.ship-state.gall) dude) (~(get by running.ship-state.gall) term)
:: ::
?^ app-data ?^ app-data
:: update the path :: update the path
@ -431,7 +431,7 @@
=/ updated u.app-data(beak beak) =/ updated u.app-data(beak beak)
:: ::
=. running.ship-state.gall =. running.ship-state.gall
(~(put by running.ship-state.gall) dude updated) (~(put by running.ship-state.gall) term updated)
:: ::
:: magic update string from the old +mo-boon, "complete old boot" :: magic update string from the old +mo-boon, "complete old boot"
:: ::
@ -439,23 +439,23 @@
=/ =routes [disclosing=~ attributing=our] =/ =routes [disclosing=~ attributing=our]
[%high routes] [%high routes]
:: ::
=/ initialised (ap-abed:ap dude privilege) =/ initialised (ap-abed:ap term privilege)
=/ peeped (ap-reinstall:initialised result-vase) =/ peeped (ap-reinstall:initialised result-vase)
ap-abet:peeped ap-abet:peeped
:: first install of the app :: first install of the app
:: ::
?. (mo-contains-valid-bowl result-vase) ?. (mo-contains-valid-bowl result-vase)
=/ err [[%leaf "{<dude>}: bogus core"] ~] =/ err [[%leaf "{<term>}: bogus core"] ~]
(mo-give %onto %.n err) (mo-give %onto %.n err)
:: ::
=. mo-state (mo-new-agent dude beak result-vase) =. mo-state (mo-new-agent term beak result-vase)
:: ::
=/ old mo-state =/ old mo-state
:: ::
=/ wag =/ wag
=/ =routes [disclosing=~ attributing=our] =/ =routes [disclosing=~ attributing=our]
=/ =privilege [%high routes] =/ =privilege [%high routes]
=/ initialised (ap-abed:ap dude privilege) =/ initialised (ap-abed:ap term privilege)
(ap-prep:initialised ~) (ap-prep:initialised ~)
:: ::
=/ maybe-tang -.wag =/ maybe-tang -.wag
@ -467,13 +467,13 @@
:: ::
=. mo-state ap-abet:new =. mo-state ap-abet:new
:: ::
=/ cleared (mo-clear-queue dude) =/ cleared (mo-clear-queue term)
(mo-give:cleared %onto %.y dude %boot now) (mo-give:cleared %onto %.y term %boot now)
:: ::
:: +mo-new-agent: create a new agent and add it to state. :: +mo-new-agent: create a new agent and add it to state.
:: ::
++ mo-new-agent ++ mo-new-agent
|= [=dude =beak =vase] |= [=term =beak =vase]
^+ mo-state ^+ mo-state
:: ::
=/ =opaque-ducts =/ =opaque-ducts
@ -490,7 +490,7 @@
ducts opaque-ducts ducts opaque-ducts
== ==
:: ::
=/ running (~(put by running.ship-state.gall) dude agent) =/ running (~(put by running.ship-state.gall) term agent)
:: ::
%_ mo-state %_ mo-state
running.ship-state.gall running running.ship-state.gall running
@ -503,7 +503,7 @@
|= [=ship =internal-task] |= [=ship =internal-task]
^+ mo-state ^+ mo-state
:: ::
=/ =dude p.internal-task =/ =term p.internal-task
=/ =agent-action q.internal-task =/ =agent-action q.internal-task
:: ::
?: ?=(%pump -.agent-action) ?: ?=(%pump -.agent-action)
@ -537,7 +537,7 @@
/sys/way/[action] /sys/way/[action]
:: ::
=/ =note-arvo =/ =note-arvo
=/ =path /g/ge/[dude] =/ =path /g/ge/[term]
=/ =noun [bone forward-ames] =/ =noun [bone forward-ames]
[%a %want ship path noun] [%a %want ship path noun]
:: ::
@ -817,7 +817,7 @@
?> ?=([@ @ @ ~] path) ?> ?=([@ @ @ ~] path)
:: ::
=/ =ship (slav %p i.t.path) =/ =ship (slav %p i.t.path)
=/ =dude i.t.t.path =/ =term i.t.t.path
:: ::
?: ?=([%incomplete *] result.sign-arvo) ?: ?=([%incomplete *] result.sign-arvo)
=/ err (some tang.result.sign-arvo) =/ err (some tang.result.sign-arvo)
@ -835,7 +835,7 @@
:: ::
=/ =cage (result-to-cage:ford build-result) =/ =cage (result-to-cage:ford build-result)
=/ =agent-action [%poke cage] =/ =agent-action [%poke cage]
(mo-apply dude privilege agent-action) (mo-apply term privilege agent-action)
:: ::
:: +mo-handle-sys-way: outbound request. :: +mo-handle-sys-way: outbound request.
:: ::
@ -928,13 +928,13 @@
:: +mo-clear-queue: clear blocked kisses. :: +mo-clear-queue: clear blocked kisses.
:: ::
++ mo-clear-queue ++ mo-clear-queue
|= =dude |= =term
^+ mo-state ^+ mo-state
:: ::
?. (~(has by running.ship-state.gall) dude) ?. (~(has by running.ship-state.gall) term)
mo-state mo-state
:: ::
=/ maybe-blocked (~(get by waiting.ship-state.gall) dude) =/ maybe-blocked (~(get by waiting.ship-state.gall) term)
:: ::
?~ maybe-blocked ?~ maybe-blocked
mo-state mo-state
@ -944,7 +944,7 @@
|- ^+ mo-state |- ^+ mo-state
:: ::
?: =(~ blocked) ?: =(~ blocked)
=/ waiting (~(del by waiting.ship-state.gall) dude) =/ waiting (~(del by waiting.ship-state.gall) term)
%_ mo-state %_ mo-state
waiting.ship-state.gall waiting waiting.ship-state.gall waiting
== ==
@ -957,7 +957,7 @@
:: ::
=/ move =/ move
=/ =sock [attributing.routes.privilege our] =/ =sock [attributing.routes.privilege our]
=/ =internal-task [dude agent-action] =/ =internal-task [term agent-action]
=/ card [%slip %g %deal sock internal-task] =/ card [%slip %g %deal sock internal-task]
[duct card] [duct card]
:: ::
@ -966,11 +966,11 @@
:: +mo-beak: assemble a beak for the provided app. :: +mo-beak: assemble a beak for the provided app.
:: ::
++ mo-beak ++ mo-beak
|= =dude |= =term
^- beak ^- beak
?~ app-data=(~(get by running.ship-state.gall) dude) ?~ app-data=(~(get by running.ship-state.gall) term)
:: ::
:: XX this fallback is necessary, as .dude could be either the source :: XX this fallback is necessary, as .term could be either the source
:: or the destination app. ie, it might not exist locally ... :: or the destination app. ie, it might not exist locally ...
:: ::
[our %home %da now] [our %home %da now]
@ -980,7 +980,7 @@
:: ::
++ mo-peek ++ mo-peek
~/ %mo-peek ~/ %mo-peek
|= [=dude =privilege =term =path] |= [dude=term =privilege =term =path]
^- (unit (unit cage)) ^- (unit (unit cage))
:: ::
=/ initialised (ap-abed:ap dude privilege) =/ initialised (ap-abed:ap dude privilege)
@ -989,15 +989,15 @@
:: +mo-apply: apply action. :: +mo-apply: apply action.
:: ::
++ mo-apply ++ mo-apply
|= [=dude =privilege =agent-action] |= [=term =privilege =agent-action]
^+ mo-state ^+ mo-state
:: ::
=/ =path =/ =path
=/ ship (scot %p attributing.routes.privilege) =/ ship (scot %p attributing.routes.privilege)
/sys/val/[ship]/[dude] /sys/val/[ship]/[term]
:: ::
=/ ship-desk =/ ship-desk
=/ =beak (mo-beak dude) =/ =beak (mo-beak term)
[p q]:beak [p q]:beak
:: ::
?: ?=(%puff -.agent-action) ?: ?=(%puff -.agent-action)
@ -1014,7 +1014,7 @@
=/ err (some p.agent-action) =/ err (some p.agent-action)
(mo-give %unto %reap err) (mo-give %unto %reap err)
:: ::
=/ initialised (ap-abed:ap dude privilege) =/ initialised (ap-abed:ap term privilege)
=/ applied (ap-apply:initialised agent-action) =/ applied (ap-apply:initialised agent-action)
ap-abet:applied ap-abet:applied
:: ::
@ -1028,32 +1028,32 @@
=/ =routes [disclosing=~ attributing=ship] =/ =routes [disclosing=~ attributing=ship]
[%high routes] [%high routes]
:: ::
=/ =dude p.internal-task =/ =term p.internal-task
=/ =agent-action q.internal-task =/ =agent-action q.internal-task
:: ::
=/ is-running (~(has by running.ship-state.gall) dude) =/ is-running (~(has by running.ship-state.gall) term)
=/ is-waiting (~(has by waiting.ship-state.gall) dude) =/ is-waiting (~(has by waiting.ship-state.gall) term)
:: ::
?: |(!is-running is-waiting) ?: |(!is-running is-waiting)
:: ::
=/ =blocked =/ =blocked
=/ waiting (~(get by waiting.ship-state.gall) dude) =/ waiting (~(get by waiting.ship-state.gall) term)
=/ kisses (fall waiting *blocked) =/ kisses (fall waiting *blocked)
=/ kiss [hen privilege agent-action] =/ kiss [hen privilege agent-action]
(~(put to kisses) kiss) (~(put to kisses) kiss)
:: ::
=/ waiting (~(put by waiting.ship-state.gall) dude blocked) =/ waiting (~(put by waiting.ship-state.gall) term blocked)
:: ::
%_ mo-state %_ mo-state
waiting.ship-state.gall waiting waiting.ship-state.gall waiting
== ==
:: ::
(mo-apply dude privilege agent-action) (mo-apply term privilege agent-action)
:: ::
:: +mo-handle-forward: ames forward. :: +mo-handle-forward: ames forward.
:: ::
++ mo-handle-forward ++ mo-handle-forward
|= [=ship =dude =bone =forward-ames] |= [=ship =term =bone =forward-ames]
^+ mo-state ^+ mo-state
:: ::
=. mo-state =. mo-state
@ -1064,7 +1064,7 @@
=/ =path =/ =path
=/ him (scot %p ship) =/ him (scot %p ship)
=/ num (scot %ud bone) =/ num (scot %ud bone)
/sys/req/[him]/[dude]/[num] /sys/req/[him]/[term]/[num]
:: ::
=/ =sock [ship our] =/ =sock [ship our]
:: ::
@ -1074,28 +1074,28 @@
%m %m
:: ::
=/ =task:able =/ =task:able
=/ =internal-task [dude %puff [mark noun]:forward-ames] =/ =internal-task [term %puff [mark noun]:forward-ames]
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
:: ::
%l %l
:: ::
=/ =task:able =/ =task:able
=/ =internal-task [dude %peel [mark path]:forward-ames] =/ =internal-task [term %peel [mark path]:forward-ames]
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
:: ::
%s %s
:: ::
=/ =task:able =/ =task:able
=/ =internal-task [dude %peer path.forward-ames] =/ =internal-task [term %peer path.forward-ames]
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
:: ::
%u %u
:: ::
=/ =task:able =/ =task:able
=/ =internal-task [dude %pull ~] =/ =internal-task [term %pull ~]
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
== ==
@ -1105,7 +1105,7 @@
:: +mo-handle-backward: ames backward. :: +mo-handle-backward: ames backward.
:: ::
++ mo-handle-backward ++ mo-handle-backward
|= [=ship =dude =bone =reverse-ames] |= [=ship =term =bone =reverse-ames]
^+ mo-state ^+ mo-state
:: ::
?- action.reverse-ames ?- action.reverse-ames
@ -1115,10 +1115,10 @@
=/ =path =/ =path
=/ him (scot %p ship) =/ him (scot %p ship)
=/ num (scot %ud bone) =/ num (scot %ud bone)
/sys/rep/[him]/[dude]/[num] /sys/rep/[him]/[term]/[num]
:: ::
=/ =note-arvo =/ =note-arvo
=/ beak (mo-beak dude) =/ beak (mo-beak term)
=/ info [p q]:beak =/ info [p q]:beak
=/ =schematic:ford [%vale info p.reverse-ames q.reverse-ames] =/ =schematic:ford [%vale info p.reverse-ames q.reverse-ames]
[%f %build live=%.n schematic] [%f %build live=%.n schematic]
@ -1142,7 +1142,7 @@
++ ap ++ ap
~% %gall-ap +> ~ ~% %gall-ap +> ~
:: ::
|_ $: dap=dude |_ $: dap=term
pry=privilege pry=privilege
ost=bone ost=bone
zip=(list internal-move) zip=(list internal-move)
@ -1156,14 +1156,14 @@
:: ::
++ ap-abed ++ ap-abed
~/ %ap-abed ~/ %ap-abed
|= [=dude =privilege] |= [=term =privilege]
^+ ap-state ^+ ap-state
:: ::
=/ =agent =/ =agent
=/ running (~(got by running.ship-state.gall) dude) =/ running (~(got by running.ship-state.gall) term)
=/ =stats =/ =stats
=/ change +(change.stats.running) =/ change +(change.stats.running)
=/ trop (shaz (mix (add dude change) eny)) =/ trop (shaz (mix (add term change) eny))
[change=change eny=trop time=now] [change=change eny=trop time=now]
running(stats stats) running(stats stats)
:: ::
@ -1172,7 +1172,7 @@
?^ maybe-bone ?^ maybe-bone
=/ bone u.maybe-bone =/ bone u.maybe-bone
%_ ap-state %_ ap-state
dap dude dap term
pry privilege pry privilege
sat agent sat agent
ost bone ost bone