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

Various improvements.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-08-11 21:52:18 -07:00
parent 063be31842
commit 4f92b63372
1 changed files with 61 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
arvo/ames.hoon
View File

@ -54,6 +54,10 @@
lad/@da :: last deadline lad/@da :: last deadline
== :: == ::
== :: == ::
++ mind ::
$: pol/(map ship pipe) :: cached cryptostate
== ::
++ mini :: pump data ++ mini :: pump data
$: saw/stat :: statistics $: saw/stat :: statistics
liv/(qeu coal) :: live packets liv/(qeu coal) :: live packets
@ -72,6 +76,9 @@
ack/frag :: number acked ack/frag :: number acked
cly/(list clue) :: left to send cly/(list clue) :: left to send
== :: == ::
++ silo :: network state
$: hen/duct ::
==
++ corn :: flow by server ++ corn :: flow by server
$: hen/duct :: admin channel $: hen/duct :: admin channel
wab/(map ship bath) :: relationship wab/(map ship bath) :: relationship
@ -136,15 +143,52 @@
fak/? :: fak/? ::
== :: == ::
++ wund (list {p/life q/ring r/acru}) :: mace in action ++ wund (list {p/life q/ring r/acru}) :: mace in action
-- -- ::
:: :: :: :: ::
:::: :::::: arvo structures :::: :::: arvo structures
:: :: :: :: ::
|% :: |% ::
++ flam |=(a/flap `@p`(mug a)) :: debug flap ++ flam |=(a/flap `@p`(mug a)) :: debug flap
++ msec |=(a/@dr `@ud`(div a (div ~s1 1.000))) :: debug @dr ++ msec |=(a/@dr `@ud`(div a (div ~s1 1.000))) :: debug @dr
++ move {p/duct q/(wind note-arvo gift-ames)} :: local move ++ move {p/duct q/(wind note-arvo gift-ames)} :: local move
-- --
::
:::: loft
::
++ loft :: packet transceiver
=> |%
++ gift ::
$% {$drop $~} :: drop w/o penalty
{$home p/lane q/@} :: route to self
{$east p/*} :: network response
{$mass p/mass} :: memory usage
{$rest p/coop} :: message result
{$send p/lane q/@} :: transmit packet
== ::
++ card ::
$% {%west p/ship q/chan r/*}
==
++ note
$% $: %g
$% {$west p/ship q/chan q/
$% {$c card-ames} :: to %clay
{$e card-ames} :: to %eyre
{$g card-ames} :: to %gall
== ::
==
==
==
++ kiss
$% {$
==
--
=| $: our/@p
see/$+(ship pipe)
==
$: fab/(map ship bath)
fex/(list ames-gift)
==
:: ::
:::: inbound cores :::: inbound cores
:: ::
@ -156,7 +200,7 @@
=> |% => |%
++ gift :: side effect ++ gift :: side effect
$% {$link key/code} :: learn symmetric key $% {$link key/code} :: learn symmetric key
{$meet doy/gyft} :: learn public key {$meet doy/gyft} :: learn public key(s)
== :: == ::
-- --
|= {our/@p him/@p det/pipe} |= {our/@p him/@p det/pipe}
@ -204,7 +248,7 @@
{$meet doy/gyft} :: learn public key {$meet doy/gyft} :: learn public key
{$sack kos/bole dam/flap cop/coop} :: send ack {$sack kos/bole dam/flap cop/coop} :: send ack
== :: == ::
++ note :: event ++ kiss :: event
$% {$done kos/bole cop/coop} :: commit message $% {$done kos/bole cop/coop} :: commit message
{$hear dam/flap syn/skin msg/@} :: raw packet {$hear dam/flap syn/skin msg/@} :: raw packet
== :: == ::
@ -222,7 +266,7 @@
|= {fel/flea dam/flap} ::: |= {fel/flea dam/flap} :::
++ work ++ work
|= job/note |= job/kiss
?- -.job ?- -.job
$done $done
== ==
@ -255,7 +299,7 @@
|=(fog/(list gift) +>(fex (weld (flop fog) fex))) |=(fog/(list gift) +>(fex (weld (flop fog) fex)))
:: ::
++ hy-work ++ hy-work
|= job/note |= job/kiss
^+ +> ^+ +>
?- -.job ?- -.job
%done (hy-done +.job) %done (hy-done +.job)
@ -396,7 +440,7 @@
$% {$hear p/chan q/coop} :: message ack $% {$hear p/chan q/coop} :: message ack
{$send p/flap q/rock} :: release packet {$send p/flap q/rock} :: release packet
== :: == ::
++ note :: ++ kiss ::
$% {$back p/flap q/coop r/@dr} :: raw ack $% {$back p/flap q/coop r/@dr} :: raw ack
{$tell p/chan q/*} :: send message {$tell p/chan q/*} :: send message
{$wake $~} :: random wakeup {$wake $~} :: random wakeup
@ -424,12 +468,12 @@
-- --
:: :: :: ::
++ wish :: operate list ++ wish :: operate list
|= {now/@da day/(list note)} |= {now/@da day/(list kiss)}
^+ +> ^+ +>
?~(day +> $(day t.day, +> (work now i.day))) ?~(day +> $(day t.day, +> (work now i.day)))
:: ::
++ work :: ++ work ::
|= {now/@da job/note} :: compute |= {now/@da job/kiss} :: compute
^+ +> ^+ +>
=< +>:wy-abet =< +>:wy-abet
|% :: |% ::
@ -580,7 +624,7 @@
$% {$good p/flap q/part r/@dr s/coop} :: logical ack $% {$good p/flap q/part r/@dr s/coop} :: logical ack
{$send p/flap q/part r/rock} :: release packet {$send p/flap q/part r/rock} :: release packet
== :: == ::
++ note :: event ++ kiss :: event
$% {$back p/flap q/coop r/@dr} :: raw ack $% {$back p/flap q/coop r/@dr} :: raw ack
{$cull p/tick} :: cancel message {$cull p/tick} :: cancel message
{$pack p/(list clue)} :: submit packets {$pack p/(list clue)} :: submit packets
@ -790,7 +834,7 @@
(sub gap rey.saw) (sub gap rey.saw)
:: ::
++ work :: ++ work ::
|= {now/@da job/note} :: perform |= {now/@da job/kiss} :: perform
^+ +> ^+ +>
?- -.job ?- -.job
$back (back now [p q r]:job) $back (back now [p q r]:job)
@ -1067,13 +1111,13 @@
0w0 :: 157, ~nem, Tlon 0w0 :: 157, ~nem, Tlon
0w0 :: 158, ~fer, Tlon 0w0 :: 158, ~fer, Tlon
0w0 :: 159, ~mer, Tlon 0w0 :: 159, ~mer, Tlon
0w0 :: 160, ~ten, Tlon 0w0 :: 160, ~ten, Tlon ten
0w0 :: 161, ~lus, Tlon 0w0 :: 161, ~lus, Tlon
0w0 :: 162, ~nus, Tlon 0w0 :: 162, ~nus, Tlon
0w0 :: 163, ~syl, Tlon 0w0 :: 163, ~syl, Tlon
0w0 :: 164, ~tec, Tlon 0w0 :: 164, ~tec, Tlon
0w0 :: 165, ~mex, Tlon 0w0 :: 165, ~mex, Tlon
0w0 :: 166, ~pub, Tlon 0w0 :: 166, ~pub, Tlon pub
0w0 :: 167, ~rym, Tlon 0w0 :: 167, ~rym, Tlon
0w0 :: 168, ~tuc, Tlon 0w0 :: 168, ~tuc, Tlon
0w0 :: 169, ~fyl, Tlon 0w0 :: 169, ~fyl, Tlon
@ -1086,10 +1130,10 @@
0w0 :: 176, ~byl, Tlon 0w0 :: 176, ~byl, Tlon
0w0 :: 177, ~sud, Tlon 0w0 :: 177, ~sud, Tlon
0w0 :: 178, ~pem, Tlon 0w0 :: 178, ~pem, Tlon
0w0 :: 179, ~dev, Tlon 0w0 :: 179, ~dev, Tlon dev
0w0 :: 180, ~lur, Tlon 0w0 :: 180, ~lur, Tlon
0w0 :: 181, ~def, Tlon 0w0 :: 181, ~def, Tlon
0w0 :: 182, ~bus, Tlon 0w0 :: 182, ~bus, Tlon bus
0w0 :: 183, ~bep, Tlon 0w0 :: 183, ~bep, Tlon
0w0 :: 184, ~run, Tlon 0w0 :: 184, ~run, Tlon
0w0 :: 185, ~mel, Tlon 0w0 :: 185, ~mel, Tlon