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

neoames boots.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-07-24 14:23:28 -07:00
parent 25803de6b1
commit 7660fb46bc
6 changed files with 1149 additions and 641 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1699
arvo/ames.hoon
View File

File diff suppressed because it is too large Load Diff

14
arvo/clay.hoon
View File

@ -76,7 +76,7 @@
== == == ::
++ sign :: in result $<-
$? $: $a :: by %ames
$% {$woot p/ship q/coop} ::
$% {$woot p/ship q/path r/coop} ::
== == ::
$: $c :: by %clay
$% {$note p/@tD q/tank} ::
@ -2778,10 +2778,14 @@
ease:den
(eave:den u.q.q.q.hic)
[mos ..^$]
::
$went
:: this won't happen until we send responses.
!!
::
$west
?: ?=({$question *} q.q.hic)
=+ ryf=((hard riff) r.q.hic)
=+ ryf=((hard riff) s.q.hic)
:_ ..^$
:~ [hen %give %mack ~]
:- hen
@ -2794,7 +2798,7 @@
=+ inx=(slav %ud i.t.t.q.q.hic)
=^ mos ruf
=+ den=((de now hen ruf) p.q.hic syd)
abet:(take-foreign-update:den inx ((hard (unit rand)) r.q.hic))
abet:(take-foreign-update:den inx ((hard (unit rand)) s.q.hic))
[[[hen %give %mack ~] mos] ..^$]
::
$wegh
@ -3032,8 +3036,8 @@
==
::
$woot
?~ q.q.hin [~ ..^$]
~& [%clay-lost p.q.hin q.q.hin tea]
?~ r.q.hin [~ ..^$]
~& [%clay-lost p.q.hin r.q.hin tea]
[~ ..^$]
==
::

7
arvo/eyre.hoon
View File

@ -32,7 +32,7 @@
== == == ::
++ sign :: in result $<-
$? $: $a :: by %ames
$% {$woot p/ship q/coop} :: ackgnowledgment
$% {$woot p/ship q/path r/coop} :: acknowledgment
{$went ship cape} :: XX ignore
== == ::
$: $b :: by %behn
@ -683,6 +683,10 @@
?~ p.lid +>.^$
(del-deps:$(p.lid t.p.lid) i.p.lid %& hen)
==
::
$went
:: this won't happen until we send responses.
!!
::
$west :: remote request
=. mow :_(mow [hen %give %mack ~])
@ -739,6 +743,7 @@
:: XX eyre sends no wests, so should get no wents
::~& e+unexpected+sih
+>.$
::
::
$thou
?+ -.tee !!

26
arvo/hoon.hoon
View File

@ -6742,8 +6742,14 @@
^- {? worm}
?: (~(has in nes) [sut ref]) [& +>+<]
?. (~(nest ut sut) | ref)
:: ~& %nest-failed
[| +>+<]
~& %nest-failed
=+ foo=(skol ref)
=+ bar=(skol sut)
~& %nets-need
~> %slog.[0 bar]
~& %nest-have
~> %slog.[0 foo]
[| +>+<.$]
[& +>+<(nes (~(put in nes) [sut ref]))]
::
++ nets :: spanless nest
@ -6752,14 +6758,14 @@
?: (~(has in nes) [sut ref]) [& +>+<]
=+ gat=|=({a/span b/span} (~(nest ut a) | b))
?. (? .*(gat(+< [sut ref]) -.gat))
:: ~& %nets-failed
:: =+ tag=`*`skol
:: =+ foo=(tank .*(tag(+< ref) -.tag))
:: =+ bar=(skol sut)
:: ~& %nets-need
:: ~> %slog.[0 bar]
:: ~& %nets-have
:: ~> %slog.[0 foo]
~& %nets-failed
=+ tag=`*`skol
=+ foo=(tank .*(tag(+< ref) -.tag))
=+ bar=(tank .*(tag(+< sut) -.tag))
~& %nets-need
~> %slog.[0 bar]
~& %nets-have
~> %slog.[0 foo]
[| +>+<.$]
[& +>+<.$(nes (~(put in nes) [sut ref]))]
::

27
arvo/xmas.hoon
View File

@ -2189,9 +2189,9 @@
=+ ^= did
^- move
?+ i.cha ~|([%bad-vane i.cha] !!)
$c !! :: [hen %pass pax `note-arvo`[%c cad]]
$e !! :: [hen %pass pax `note-arvo`[%e cad]]
$g !! :: [hen %pass pax `note-arvo`[%g cad]]
:: $c [hen %pass pax `note-arvo`[%c cad]]
:: $e [hen %pass pax `note-arvo`[%e cad]]
$g [hen %pass pax `note-arvo`[%g cad]]
==
[[did ~] fox]
::
@ -2247,19 +2247,18 @@
~& [%knap-tea tea]
!!
=+ [soq kos]=[[(slav %p i.tea) (slav %p i.t.tea)] (slav %ud i.t.t.tea)]
!!
::?+ sih
:: ~|([%ames-sign -.sih (@tas +<.sih)] !!)
?+ sih
~|([%ames-sign -.sih (@tas +<.sih)] !!)
::
:: [?($e $c $g) $rend *]
:: =^ bin fox (~(wish am [now fox]) soq kos p.+>.sih q.+>.sih)
:: (knit hen bin)
{?($e $c $g) $rend *}
=^ bin fox (~(wish am [now fox]) soq kos p.+>.sih q.+>.sih)
(knit hen bin)
::
:: [?($e $c $g) $mack *]
:: =^ bin fox
:: (~(rack am [now fox]) soq kos ?~(+>.sih ~ `[~ %lose u.p.+>.sih]))
:: (knit hen bin)
::==
{?($e $c $g) $mack *}
=^ bin fox
(~(rack am [now fox]) soq kos ?~(+>.sih ~ `[~ %lose u.p.+>.sih]))
(knit hen bin)
==
::
++ knit
|= {hen/duct bin/(list boon)}

11
arvo/zuse.hoon
View File

@ -2649,7 +2649,8 @@
:::: :::: this will become `%york`, vane structures.
:: ::
++ gift-ames :: out result <-$
$% {$hear p/lane q/@} :: receive packet
$% {$drop $~} :: drop packet
{$hear p/lane q/@} :: receive packet
{$east p/sock q/*} :: network response
{$init p/@p} :: report install
{$mass p/mass} :: memory usage
@ -2674,11 +2675,11 @@
{$wegh $~} :: report memory
{$wont p/sock q/path r/*} :: e2e send message
== ::
++ card-ames :: out cards
++ card-ames :: out cards
$% {$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/path r/@ud s/*} :: network request
== ::
++ note-ames :: out request $->
++ note-ames :: out request $->
$% {$c card-ames} :: to %clay
{$e card-ames} :: to %eyre
{$g card-ames} :: to %gall
@ -2727,7 +2728,8 @@
{$ogre p/$@(@tas beam)} :: delete mount point
{$warp p/sock q/riff} :: file request
{$wegh $~} :: report memory
{$west p/sack q/path r/*} :: network request
{$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/path r/@ud s/*} :: network request
== ::
::
::::
@ -2843,6 +2845,7 @@
{$this p/? q/clip r/httq} :: inbound request
{$thud $~} :: inbound cancel
{$wegh $~} :: report memory
{$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/fuz:gram} :: network request
== ::
++ gift-eyre :: out result <-$