ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

Trailing whitespace and stuff.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-06-26 21:02:05 -07:00
parent 2554b2f113
commit 28e63d7a36
4 changed files with 32 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
arvo/ames.hoon
View File

@ -470,7 +470,7 @@
::
|%
++ go :: go
|_ ton=toun :: ames state
|_ ton=town :: ames state
++ as :: as:go
|_ [our=ship saf=sufi] :: per server
++ born :: born:as:go
@ -741,7 +741,7 @@
::
++ ha !: :: adopt new license
|= [our=ship mac=mace wil=will]
^- toun
^- town
?> !=(~ mac)
?> ?=(^ wil)
:: ?> =(our r.p.q.i.wil)
@ -765,12 +765,12 @@
::
++ su :: install safe
|= new=_as
^- toun
^- town
ton(urb (~(put by urb.ton) our.new saf.new))
::
++ ti :: expire by time
|= [now=@da]
^- toun
^- town
!!
::
++ us :: produce safe
@ -993,9 +993,9 @@
::
|%
++ am :: am
|_ [now=@da fox=furt] :: protocol engine
|_ [now=@da fox=fort] :: protocol engine
++ boot :: boot:am
^- furt :: restore from noun
^- fort :: restore from noun
%= fox
urb.ton
%- ~(gas by *(map ship sufi))
@ -1010,7 +1010,7 @@
==
++ come :: come:am
|= [ges=(unit ,@t) wid=@ bur=@ fak=?] :: instantiate pawn
^- [p=[p=ship q=@uvG] q=furt]
^- [p=[p=ship q=@uvG] q=fort]
=+ loy=(bruw wid bur)
=+ rig=sec:ex:loy
=+ our=`@p`fig:ex:loy
@ -1028,7 +1028,7 @@
::
++ czar !: :: czar:am
|= [our=ship ger=@uw fak=?] :: instantiate emperor
^- [p=(list boon) q=furt]
^- [p=(list boon) q=fort]
=+ loy=?:(fak (bruw 2.048 our) (bruw 2.048 ger)) :: fake uses carrier #
=+ fim==(fig:ex:loy (zeno our))
?: &(!fak !fim) !! :: not fake & bad fig
@ -1044,7 +1044,7 @@
::
++ gnaw :: gnaw:am
|= [kay=cape ryn=lane pac=rock] :: process packet
^- [p=(list boon) q=furt]
^- [p=(list boon) q=fort]
?. =(1 (end 0 3 pac)) [~ fox]
=+ kec=(bite pac)
?: (goop p.p.kec) [~ fox]
@ -1075,7 +1075,7 @@
::
++ have :: have:am
|= [our=ship buq=buck] :: acquire license
^- [p=(list boon) q=furt]
^- [p=(list boon) q=fort]
=: ton.fox (~(ha go ton.fox) our buq)
zac.fox (~(put by zac.fox) our *corn)
==
@ -1084,7 +1084,7 @@
++ kick :: kick:am
|= hen=duct :: refresh net
=+ aks=(turn (~(tap by urb.ton.fox) ~) |=([p=ship q=sufi] p))
|- ^- [p=(list boon) q=furt]
|- ^- [p=(list boon) q=fort]
?~ aks [~ fox]
=^ buz fox zork:(kick:(um i.aks) hen)
=^ biz fox $(aks t.aks)
@ -1092,10 +1092,10 @@
::
++ wake :: wake:am
|= hen=duct :: harvest packets
^- [p=(list boon) q=furt]
^- [p=(list boon) q=fort]
=+ sox=hall
=| bin=(list boon)
|- ^- [p=(list boon) q=furt]
|- ^- [p=(list boon) q=fort]
?~ sox
=^ ban fox (kick hen)
[(weld bin p.ban) fox]
@ -1104,12 +1104,12 @@
::
++ wash :: wash:am
|= [soq=sock sup=soap ham=meal] :: dispatch and send
^- [p=(list boon) q=furt]
^- [p=(list boon) q=fort]
zork:zank:(wind:(ho:(um p.soq) q.soq) [q.sup r.sup] ham)
::
++ wise :: wise:am
|= [soq=sock hen=duct cha=path val=*] :: send a statement
^- [p=(list boon) q=furt]
^- [p=(list boon) q=fort]
zork:zank:(wool:(ho:(um p.soq) q.soq) hen cha val)
::
++ um :: per server
@ -1476,7 +1476,7 @@
zank:(pong:(ho her) hen)
::
++ zork :: zork:um:am
^- [p=(list boon) q=furt] :: resolve
^- [p=(list boon) q=fort] :: resolve
:- (flop bin)
%_ fox
ton (~(su go ton.fox) gus)
@ -1489,7 +1489,7 @@
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 4aH, protocol vane ::
::
=| $: fox=furt :: kernel state
=| $: fox=fort :: kernel state
== ::
|= [now=@da eny=@ ski=sled] :: current invocation
^? :: opaque core
@ -1529,7 +1529,7 @@
(hunt doz rtn.sop.bah)
::
++ load
|= old=furt
|= old=fort
^+ ..^$
..^$(fox old)
::
@ -1568,7 +1568,7 @@
++ claw |=(our=ship ^-(duct hen:(need (~(get by zac.fox) our))))
++ clop
|= [now=@da hen=duct bon=boon]
^- [(list move) furt]
^- [(list move) fort]
?- -.bon
%beer
:_ fox(zac (~(put by zac.fox) p.bon `corn`[hen ~ ~ ~]))
@ -1697,7 +1697,7 @@
?: ?=([%crud *] kyz)
[[[hen [%slip %d %flog kyz]] ~] +>]
=+ ^= fuy
^- [p=(list boon) q=furt]
^- [p=(list boon) q=fort]
?- -.kyz
%cash
(~(have am [now fox]) p.kyz q.kyz)

9
arvo/ford.hoon
View File

@ -1,4 +1,4 @@
:: :: %ford, new execution control
!: :: %ford, new execution control
!? 164
::::
|= pit=vase
@ -403,14 +403,20 @@
^- (bolt (unit vase))
?: ?=(?(%gate %core %hoon %hook) for)
(fine cof ~ sam)
~& [%lake for bek]
%+ cope (make cof %boil %gate bek /ref/[for]/sys)
|= [cof=cafe cay=cage]
~& %lake-a
%+ cope (lane cof p.q.cay [%cnzy %$])
|= [cof=cafe ref=type]
~& %lake-b
?: (~(nest ut ref) | p.sam)
~& %lake-c
(fine cof ~ sam)
~& %lake-d
%+ cope (maul cof q.cay sam)
|= [cof=cafe pro=vase]
~& %lake-e
(fine cof ~ pro)
::
++ lave :: validate
@ -419,6 +425,7 @@
=+ ^= own ^- ship
=+ von=(ska %cy (tope [[p.sax %main lok] /core/ref/[for]/sys]))
?~(von q.sax p.sax)
~& [%lave for sax som]
((lake for [own %main lok]) cof [%noun som])
::
++ lair :: metaload

1
arvo/hoon.hoon
View File

@ -154,6 +154,7 @@
++ rule |=(tub=nail `edge`[p.tub ~ ~ tub]) :: parsing rule
++ span ,@ta :: text-atom (ASCII)
++ spot ,[p=path q=pint] :: range in file
++ tang (list tank) :: general error
++ tank $% [%leaf p=tape] :: printing formats
[%palm p=[p=tape q=tape r=tape s=tape] q=(list tank)]
[%rose p=[p=tape q=tape r=tape] q=(list tank)]

6
arvo/zuse.hoon
View File

@ -2120,10 +2120,10 @@
$: rtt=@dr :: decaying avg rtt
wid=@ud :: logical wdow msgs
== ::
++ furt :: formal state
++ fort :: formal state
$: %0 :: version
hop=@da :: network boot date
ton=toun :: security
ton=town :: security
zac=(map ship corn) :: flows by server
== ::
++ frog ,[p=@da q=nori] :: time and change
@ -2445,7 +2445,7 @@
++ taxi ,[p=lane q=rock] :: routed packet
++ tick ,@ud :: process id
++ toro ,[p=@ta q=nori] :: general change
++ toun :: all security state
++ town :: all security state
$: lit=@ud :: imperial modulus
any=@ :: entropy
urb=(map ship sufi) :: all keys and routes