ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

gall: light type refactoring

Browse Source 
Mostly modernises syntax.  Also adds a couple of useful types ('whey'
and 'coke') that were previously defined inline.
This commit is contained in:
Jared Tobin 2019-04-12 08:06:05 +12:00 committed by Jared Tobin
parent 1fe4ff1605
commit 1b911be80d
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
1 changed files with 58 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,33 +2,44 @@
!? 163 !? 163
!: !:
:::: ::::
|= pit/vase |= pit=vase
=, gall =, gall
=> =~ => =~
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: rest of arvo |% :::::::::::::::::::::::::::::::::::::::::::::::::::::: rest of arvo
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
++ volt ?($low $high) :: voltage ++ coke :: cook
++ torc $@(?($iron $gold) {$lead p/ship}) :: security control $? %inn ::
%out ::
%cay ::
== ::
++ volt ?(%low %high) :: voltage
++ torc $@(?(%iron %gold) [%lead p=ship]) :: security control
++ roon :: reverse ames msg ++ roon :: reverse ames msg
$% {$d p/mark q/*} :: diff (diff) $% [%d p=mark q=*] :: diff (diff)
{$x ~} :: [%x ~] ::
== :: == ::
++ rook :: forward ames msg ++ rook :: forward ames msg
$% {$m p/mark q/*} :: message $% [%m p=mark q=*] :: message
{$l p/mark q/path} :: "peel" subscribe [%l p=mark q=path] :: "peel" subscribe
{$s p/path} :: subscribe [%s p=path] :: subscribe
{$u ~} :: cancel+unsubscribe [%u ~] :: cancel+unsubscribe
== ::
++ whey :: foreign response
$? %peer ::
%peel ::
%poke ::
%pull ::
== :: == ::
-- :: -- ::
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: local arvo |% :::::::::::::::::::::::::::::::::::::::::::::::::::::: local arvo
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
++ cote :: ++ap note ++ cote :: ++ap note
$% {$meta p/@tas q/vase} :: $% [%meta p=@tas q=vase] ::
{$send p/ship q/cush} :: [%send p=ship q=cush] ::
:: {$hiss p/(unit knot) q/mark r/cage} :: [%hiss p=(unit knot) q=mark r=cage] ::
== :: == ::
++ cove (pair bone (wind cote cuft)) :: internal move ++ cove (pair bone (wind cote cuft)) :: internal move
++ move {p/duct q/(wind note-arvo gift-arvo)} :: typed move ++ move (pair duct (wind note-arvo gift-arvo)) :: typed move
-- :: -- ::
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: %gall state |% :::::::::::::::::::::::::::::::::::::::::::::::::::::: %gall state
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ -36,35 +47,35 @@
:::::::::::::::::::::::::::::::::::::::::::::::::::::: state proper :::::::::::::::::::::::::::::::::::::::::::::::::::::: state proper
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
++ axle :: all state ++ axle :: all state
$: $0 :: state version $: %0 :: state version
=mast :: apps by ship =mast :: apps by ship
== :: == ::
++ gest :: subscriber data ++ gest :: subscriber data
$: sup/bitt :: incoming subscribers $: sup=bitt :: incoming subscribers
neb/boat :: outgoing subscribers neb=boat :: outgoing subscribers
qel/(map bone @ud) :: queue meter qel=(map bone @ud) :: queue meter
== :: == ::
++ mast :: ship state ++ mast :: ship state
$: mak/* :: (deprecated) $: mak=* :: (deprecated)
sys/duct :: system duct sys=duct :: system duct
sap/(map ship scad) :: foreign contacts sap=(map ship scad) :: foreign contacts
bum/(map dude seat) :: running agents bum=(map dude seat) :: running agents
wub/(map dude sofa) :: waiting queue wub=(map dude sofa) :: waiting queue
== :: == ::
++ ffuc :: new cuff ++ ffuc :: new cuff
$: p/(unit (set ship)) :: disclosing to $: p=(unit (set ship)) :: disclosing to
q/ship :: attributed to q=ship :: attributed to
== :: == ::
++ prey (pair volt ffuc) :: privilege ++ prey (pair volt ffuc) :: privilege
++ scad :: foreign connection ++ scad :: foreign connection
$: p/@ud :: index $: p=@ud :: index
q/(map duct @ud) :: by duct q=(map duct @ud) :: by duct
r/(map @ud duct) :: by index r=(map @ud duct) :: by index
== :: == ::
++ scar :: opaque input ++ scar :: opaque input
$: p/@ud :: bone sequence $: p=@ud :: bone sequence
q/(map duct bone) :: by duct q=(map duct bone) :: by duct
r/(map bone duct) :: by bone r=(map bone duct) :: by bone
== :: == ::
:: :: :: ::
:: XX a hack, required to break a subscription loop :: :: XX a hack, required to break a subscription loop ::
@ -72,32 +83,32 @@
:: See usage in ap-misvale. :: :: See usage in ap-misvale. ::
++ misvale-data (set wire) :: subscrs w/ bad marks ++ misvale-data (set wire) :: subscrs w/ bad marks
++ seat :: agent state ++ seat :: agent state
$: misvale/misvale-data :: bad reqs $: misvale=misvale-data :: bad reqs
vel/worm :: cache vel=worm :: cache
arms=(map [term path] (unit (pair @ud term))) :: ap-find cache arms=(map [term path] (unit (pair @ud term))) :: ap-find cache
mom/duct :: control duct mom=duct :: control duct
liv/? :: unstopped liv=? :: unstopped
toc/torc :: privilege toc=torc :: privilege
tyc/stic :: statistics tyc=stic :: statistics
ged/gest :: subscribers ged=gest :: subscribers
hav/vase :: running state hav=vase :: running state
byk/beak :: update control byk=beak :: update control
pyl/(map bone mark) :: req'd translations pyl=(map bone mark) :: req'd translations
zam/scar :: opaque ducts zam=scar :: opaque ducts
== :: == ::
++ sofa :: queue for blocked ++ sofa :: queue for blocked
$: kys/(qeu (trel duct prey club)) :: queued kisses $: kys=(qeu (trel duct prey club)) :: queued kisses
== :: == ::
++ stic :: statistics ++ stic :: statistics
$: act/@ud :: change number $: act=@ud :: change number
eny/@uvJ :: entropy eny=@uvJ :: entropy
lat/@da :: time lat=@da :: time
== :: == ::
-- :: -- ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::: vane header :::::::::::::::::::::::::::::::::::::::::::::::::::::: vane header
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
. == . ==
=| all/axle :: all vane state =| all=axle :: all vane state
|= $: our=ship :: identity |= $: our=ship :: identity
now=@da :: urban time now=@da :: urban time
eny=@uvJ :: entropy eny=@uvJ :: entropy