ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 13:19:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

Some renaming.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-06-21 22:49:10 -07:00
parent e9b898e330
commit 23186f9a24
8 changed files with 33 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
arvo/ames.hoon
View File

@ -29,7 +29,7 @@
[%wake ~] :: timer activate
[%want p=sock q=path r=*] :: send message
== ::
++ move ,[p=duct q=(molt note gift)] :: local move
++ move ,[p=duct q=(mold note gift)] :: local move
++ note :: out request $->
$? $: %d :: to %dill
$% [%flog p=flog] ::
@ -42,7 +42,7 @@
[%want p=sock q=path r=*] ::
[%wart p=sock q=@tas r=path s=*] ::
== == == ::
++ sigh :: in result $<-
++ sign :: in result $<-
$? $: %a :: from %ames
$% [%went p=ship q=cape] ::
== == ::
@ -51,11 +51,6 @@
[%send p=lane q=@] :: transmit packet
[%went p=ship q=cape] :: by %ames
== == == ::
++ sign :: in result $<-
$% [%crud p=@tas q=(list tank)] :: by any
[%send p=lane q=@] :: transmit packet
[%went p=ship q=cape] :: by %ames
== ::
--
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 4aA, identity logic ::
@ -1556,7 +1551,7 @@
::
++ stay fox
++ take :: accept response
|= [tea=wire hen=duct hin=(hypo sigh)]
|= [tea=wire hen=duct hin=(hypo sign)]
^- [p=(list move) q=_..^$]
=^ duy ..knap
(knap tea hen q.hin)
@ -1671,7 +1666,7 @@
==
::
++ knap
|= [tea=wire hen=duct sih=sigh]
|= [tea=wire hen=duct sih=sign]
^- [(list move) _+>]
?- +<.sih
%crud [[[hen [%slip %d %flog +.sih]] ~] +>]

4
arvo/batz.hoon
View File

@ -44,7 +44,7 @@
$% [%crud p=@tas q=(list tank)] ::
[%text p=tape] ::
== ::
++ move ,[p=duct q=(molt newt ghat)] :: local move
++ move ,[p=duct q=(mold newt ghat)] :: local move
++ newt ::
$% $: %a :: to %ames
$% [%make p=(unit ,@t) q=@ud r=@ s=?] ::
@ -390,7 +390,7 @@
:_ +<.^^$
%+ turn
(flop `_duv`?:(sam duv [[~ [%give %helo prot]] duv]))
|=([p=duct q=(molt newt ghat)] [(weld p hen) q])
|=([p=duct q=(mold newt ghat)] [(weld p hen) q])
::
++ bitt |=(lap=path [(scot %ud gyp) lap]) :: bitt:fi:be
++ como :: como:fi:be

6
arvo/clay.hoon
View File

@ -21,7 +21,7 @@
[%wart p=sock q=@tas r=path s=*] :: network request
[%warp p=sock q=riff] :: file request
== ::
++ move ,[p=duct q=(molt note gift)] :: local move
++ move ,[p=duct q=(mold note gift)] :: local move
++ note :: out request $->
$% $: %a :: to %ames
$% [%want p=sock q=path r=*] ::
@ -32,7 +32,7 @@
$: %d ::
$% [%flog p=[%crud p=@tas q=(list tank)]] :: to %dill
== == == ::
++ sigh :: in result $-<
++ sign :: in result $-<
$? $: %a :: by %ames
$% [%send p=lane q=@] ::
[%waft p=sock q=*] ::
@ -513,7 +513,7 @@
::
++ stay [%0 ruf]
++ take :: accept response
|= [tea=wire hen=duct hin=(hypo sigh)]
|= [tea=wire hen=duct hin=(hypo sign)]
^- [p=(list move) q=_..^$]
?- -.+.q.hin
%crud

25
arvo/dill.hoon
View File

@ -30,7 +30,7 @@
$% [%crud p=@tas q=(list tank)] ::
[%text p=tape] ::
== ::
++ move ,[p=duct q=(molt note gift)] :: local move
++ move ,[p=duct q=(mold note gift)] :: local move
++ note :: out request $->
$% $: %b :: to %batz
$% [%hail ~] ::
@ -46,7 +46,7 @@
$% [%crud p=@tas q=(list tank)] ::
[%text p=tape] ::
== == == ::
++ sigh :: in result $<-
++ sign :: in result $<-
$? $: %a :: by %ames
$% [%send p=lane q=@] ::
== == ::
@ -68,23 +68,6 @@
[%init p=@p] ::
[%note p=@tD q=tank] ::
== == == ::
++ sign :: in result $<-
$% [%crud p=@tas q=(list tank)] :: by any
[%hail ~] :: by %batz
[%helo p=path q=prod] :: by %batz
[%init p=@p] :: by %ames
[%logo p=@] :: by %batz
[%note p=@tD q=tank] :: by any
[%save p=path q=@] :: by %batz
[%send p=lane q=@] :: by %ames
[%talk p=tank] :: by %batz
[%tell p=(list ,@t)] :: by %batz
[%text p=tape] :: by %batz
[%verb ~] :: by %batz
[%veer p=@ta q=path r=@t] :: by %batz
[%vega p=path] :: by %batz
[%warn p=tape] :: by %batz
==
:::::::: :: dill tiles
++ bein :: terminal control
$: $: bul=@ud :: buffer length
@ -277,7 +260,7 @@
$(hup +(hup))
::
++ leap :: accept response
|= [tea=wire sih=sigh]
|= [tea=wire sih=sign]
^+ +>
?- -.+.sih
%crud :: error trace
@ -626,7 +609,7 @@
::
++ stay [%0 dug]
++ take :: process move
|= [tea=wire hen=duct hin=(hypo sigh)]
|= [tea=wire hen=duct hin=(hypo sign)]
^- [p=(list move) q=_..^$]
=^ moz dug yerk:(leap:(dy hen dug) tea q.hin)
[moz ..^$]

12
arvo/eyre.hoon
View File

@ -21,7 +21,7 @@
[%thud ~] :: inbound cancel
[%wart p=sock q=@tas r=path s=*] :: urbit message
== ::
++ move ,[p=duct q=(molt note gift)] :: local move
++ move ,[p=duct q=(mold note gift)] :: local move
++ note :: out request $->
$% $: %a :: to %ames
$% [%want p=sock q=path r=*] ::
@ -53,7 +53,7 @@
$% [| p=moat] ::
== ::
++ riff ,[p=desk q=(unit rave)] :: see %clay
++ sigh :: in result $<-
++ sign :: in result $<-
$? $: %a :: by %ames
$% [%waft p=sock q=*] ::
[%went p=ship q=cape] ::
@ -302,7 +302,7 @@
.(ney (mix eny ney))
::
++ axon
|= [tea=wire typ=type sih=sigh]
|= [tea=wire typ=type sih=sign]
^+ +>
?- -.+.sih
%crud
@ -486,7 +486,7 @@
abet:work:(~(inch ya [our ses] u.suf u.cuz) num mez)
::
++ goat :: console response
|= [our=ship ses=hole num=@ud sih=sigh]
|= [our=ship ses=hole num=@ud sih=sign]
=+ suf=(~(get by own) our)
?~ suf +>.$
=+ cuz=(~(get by wup.u.suf) ses)
@ -966,7 +966,7 @@
%_(+> aut.ced (~(put ju aut.ced) %$ (scot %p him)))
::
++ dodo :: console s->c
|= [con=@ud sih=sigh]
|= [con=@ud sih=sign]
^+ +>
=+ cal=(need (~(get by cow) con))
=+ ^= jon ^- json
@ -2163,7 +2163,7 @@
::
++ stay `bolo`+>-.$
++ take :: accept response
|= [tea=wire hen=duct hin=(hypo sigh)]
|= [tea=wire hen=duct hin=(hypo sign)]
^- [p=(list move) q=_..^$]
=+ ska=(slod ski)
=+ sky=|=(* `(unit)`=+(a=(ska +<) ?~(a ~ ?~(u.a ~ [~ u.u.a]))))

8
arvo/ford.hoon
View File

@ -12,7 +12,7 @@
++ kiss :: in request ->$
$% [%exec p=@p q=(unit silk)] :: make / kill
== ::
++ move ,[p=duct q=(molt note gift)] :: local move
++ move ,[p=duct q=(mold note gift)] :: local move
++ note :: out request $->
$% $: %c :: to %clay
$% [%warp p=sock q=riff] ::
@ -22,7 +22,7 @@
[| p=moat] :: change range
== ::
++ riff ,[p=desk q=(unit rave)] :: see %clay
++ sigh :: in result $<-
++ sign :: in result $<-
$% $: %c :: by %clay
$% [%writ p=riot] ::
== == == ::
@ -154,7 +154,7 @@
~(exec zo [num `task`[hen u.kus 0 ~]])
::
++ axon :: take
|= [num=@ud tik=@ud sih=sigh]
|= [num=@ud tik=@ud sih=sign]
^+ +>
?- -.+.sih
%writ
@ -695,7 +695,7 @@
::
++ stay `axle`+>-.$
++ take :: response
|= [tea=wire hen=duct hin=(hypo sigh)]
|= [tea=wire hen=duct hin=(hypo sign)]
^- [p=(list move) q=_..^$]
=+ ska=(slod ski)
?> ?=([@ @ @ ~] tea)

16
arvo/gall.hoon
View File

@ -38,7 +38,7 @@
$: hun=duct :: control duct
bum=(map ,@ta seat) :: apps by name
== ::
++ move ,[p=duct q=(molt note gift)] :: typed move
++ move ,[p=duct q=(mold note gift)] :: typed move
++ note :: out request $->
$? $: %c :: to %clay
$% [%warp p=sock q=riff] ::
@ -75,7 +75,7 @@
ped=(set (pair ship desk)) :: active depends
zam=scar :: opaque ducts
== ::
++ sigh :: in result $-<
++ sign :: in result $-<
$% $: %c :: by %clay
$% [%writ p=riot] ::
== == ::
@ -165,7 +165,7 @@
abet:work:(quem:(boar:(goat hap) hen law) kon)
::
++ take :: accept response
|= [pax=path hen=duct hin=(hypo sigh)] ::
|= [pax=path hen=duct hin=(hypo sign)] ::
^- [p=(list move) q=_..^$]
=+ lum=(lump pax)
=< abet =< work
@ -427,7 +427,7 @@
[[our %main [%da now]] app %app ~]
::
++ mack :: apply standard
|= sih=sigh
|= sih=sign
?> ?=(%made -.+.sih)
^- [(unit (list tank)) _+>]
?- -.p.+.sih
@ -438,7 +438,7 @@
==
::
++ meek :: apply peek
|= sih=sigh
|= sih=sign
^- [(unit cage) _+>]
?> ?=(%made -.+.sih)
?- -.p.+.sih
@ -452,7 +452,7 @@
==
::
++ mick :: apply w/depends
|= sih=sigh
|= sih=sign
?> ?=(%made -.+.sih)
^- [(unit (set beam)) _+>]
?- -.p.+.sih
@ -463,7 +463,7 @@
==
::
++ murk :: apply park
|= sih=sigh
|= sih=sign
^- [(unit cage) _+>]
?> ?=(%made -.+.sih)
?- -.p.+.sih
@ -473,7 +473,7 @@
::
++ more :: accept result
|= $: pax=path :: internal position
hin=(hypo sigh) :: typed event
hin=(hypo sign) :: typed event
==
^+ +>
?+ -.pax !!

14
arvo/hoon.hoon
View File

@ -9173,7 +9173,7 @@
!:
|%
++ arch ,[p=@uvI q=(unit ,@uvI) r=(map ,@ta ,~)] :: fundamental node
++ arvo (molt ,[p=term q=mill] mill) :: arvo card
++ arvo (mold ,[p=term q=mill] mill) :: arvo card
++ beam ,[[p=ship q=desk r=case] s=path] :: global name
++ beak ,[p=ship q=desk r=case] :: garnish with beak
++ bone ,@ud :: opaque duct
@ -9241,14 +9241,7 @@
++ mill (each vase milt) :: vase/metavase
++ milt ,[p=* q=*] :: metavase
++ monk (each ship khan) :: general identity
++ mold :: kernel action
|* [a=$+(* *) b=$+(* *)] :: forward/reverse
$% [%toss p=path q=term r=a] :: advance
[%slip p=term q=a] :: lateral
[%sick p=b] :: lame refactoring
[%give p=b] :: retreat
== ::
++ molt :: new kernel action
++ mold :: new kernel action
|* [a=$+(* *) b=$+(* *)] :: forward/reverse
$% [%toss p=path q=a] :: advance
[%slip p=a] :: lateral
@ -9256,7 +9249,6 @@
[%give p=b] :: retreat
== ::
++ muse ,[p=@tas q=duct r=arvo] :: sourced move
++ mosh ,[p=duct q=(mold curd curd)] :: vane move
++ move ,[p=duct q=arvo] :: arvo move
++ ovum ,[p=wire q=curd] :: typeless ovum
++ pane (list ,[p=@tas q=vase]) :: kernel modules
@ -9270,7 +9262,6 @@
duc=type :: -:!>(*duct)
pah=type :: -:!>(*path)
mev=type :: -:!>([%meta *vase])
moh=type :: -:!>(*(list mosh))
== ::
++ wire path :: event pretext
::::: hacks
@ -9514,7 +9505,6 @@
duc=(pal '_duct')
pah=(pal '_path')
mev=(pal '_[%meta vase]')
moh=(pal '_(list mosh)')
==
::
++ is :: operate in time