urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

About to switch over to typed cards.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-26 11:59:21 -07:00
parent df79e4dcda
commit 078c3b1d0a
8 changed files with 28 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -1434,7 +1434,7 @@
=<
|% :: vane interface
++ beat
|= [tea=wire hen=duct fav=card]
|= [tea=wire hen=duct typ=type fav=card]
=+ wru=*(unit writ)
^- [p=(list move) q=vane]
=^ duy ..knap
@ -1442,9 +1442,9 @@
[duy ..^$]
::
++ call
|= [hen=duct fav=card]
|= [hen=duct typ=type fav=card]
^- [p=(list move) q=vane]
(beat ~ hen fav)
(beat ~ hen typ fav)
::
++ come
|= [sam=? old=vase]

6
arvo/batz.hoon
View File

@ -1152,7 +1152,7 @@
^? :: opaque core
|% :: poke/peek pattern
++ beat :: process move
|= [tea=wire hen=duct fav=card]
|= [tea=wire hen=duct typ=type fav=card]
^- [p=(list move) q=vane]
:: ~& [%batz-beat -.fav [%tea tea] [%hen hen]]
=+ sky=|=(* `(unit)`=+(a=(ska +<) ?~(a ~ ?~(u.a ~ [~ u.u.a]))))
@ -1246,8 +1246,8 @@
==
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
|= [hen=duct typ=type fav=card]
(beat ~ hen typ fav)
::
++ come
|= [sam=? old=vase]

6
arvo/clay.hoon
View File

@ -366,7 +366,7 @@
^? :: opaque core
|% ::
++ beat :: update
|= [tea=wire hen=duct fav=card]
|= [tea=wire hen=duct typ=type fav=card]
^- [p=(list move) q=vane]
?+ -.fav [[[hen %give fav] ~] ..^$]
%crud
@ -442,8 +442,8 @@
==
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
|= [hen=duct typ=type fav=card]
(beat ~ hen typ fav)
::
++ come
|= [sam=? old=vase]

6
arvo/dill.hoon
View File

@ -9,7 +9,7 @@
^? :: opaque core
|% :: poke/peek pattern
++ beat :: process move
|= [tea=wire hen=duct fav=card]
|= [tea=wire hen=duct typ=type fav=card]
^- [p=(list move) q=vane]
?: ?=(%flog -.fav)
:_ ..^$
@ -434,8 +434,8 @@
--
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
|= [hen=duct typ=type fav=card]
(beat ~ hen typ fav)
::
++ come
|= [sam=? old=vase]

6
arvo/eyre.hoon
View File

@ -1814,7 +1814,7 @@
^? :: opaque core
|% ::
++ beat :: process move
|= [tea=wire hen=duct fav=card]
|= [tea=wire hen=duct typ=type fav=card]
^- [p=(list move) q=vane]
=+ sky=|=(* `(unit)`=+(a=(ska +<) ?~(a ~ ?~(u.a ~ [~ u.u.a]))))
=. ney (shax :(mix (shax now) +(eny) ney)) :: XX!! shd not need
@ -1827,8 +1827,8 @@
[mos ..^$]
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
|= [hen=duct typ=type fav=card]
(beat ~ hen typ fav)
::
++ come
|= [sam=? old=vase]

6
arvo/ford.hoon
View File

@ -572,7 +572,7 @@
^? :: opaque core
|% ::
++ beat :: process move
|= [tea=wire hen=duct fav=card]
|= [tea=wire hen=duct typ=type fav=card]
^- [p=(list move) q=vane]
=+ ^= our ^- @p
?+ -.fav !!
@ -586,8 +586,8 @@
[mos ..^$(pol (~(put by pol) our bay))]
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
|= [hen=duct typ=type fav=card]
(beat ~ hen typ fav)
::
++ come
|= [sam=? old=vase]

12
arvo/hoon.hoon
View File

@ -106,7 +106,7 @@
$|(~ [n=a l=(tree a) r=(tree a)]) ::
++ nail ,[p=hair q=tape] :: parsing input
++ numb ,@ :: just a number
++ pair |*([a=$+(* *) b=$+(* *)] [p=a q=b]) :: just a pair
++ pair |*([a=$+(* *) b=$+(* *)] ,[p=a q=b]) :: just a pair
++ pass ,@ :: public key
++ path (list span) :: filesys location
++ pint ,[p=[p=@ q=@] q=[p=@ q=@]] :: line/column range
@ -128,7 +128,7 @@
[p=?(~ axis) q=(list ,[p=type q=foot])] ::
== ::
++ qual |* [a=$+(* *) b=$+(* *) c=$+(* *) d=$+(* *)] :: just a quadruple
[p=a q=b r=c s=d] ::
,[p=a q=b r=c s=d] ::
++ rege $| ?(%dote %ende %sart %empt %boun %bout) :: parsed regex
$% [%lite p=char] :: literal
[%pair p=rege q=rege] :: ordering
@ -177,7 +177,7 @@
[2 p=toga q=toga] :: cell toga
== ::
++ trel |* [a=$+(* *) b=$+(* *) c=$+(* *)] :: just a triple
[p=a q=b r=c] ::
,[p=a q=b r=c] ::
++ tuna :: tagflow
$% [%a p=twig] :: plain text
[%b p=twig] :: single tag
@ -8793,7 +8793,9 @@
$| ?(%gold %iron) :: root, user
$% [%lead p=ship] :: foreign
== ::
++ herd (hypo curd) :: typed card
++ hilt ?(0 1 2) :: lead iron gold
++ hypo |*(a=$+(* *) (pair type a)) :: type associated
++ khan ,[p=@tas q=path] :: foreign identity
++ mill (each vase milt) :: vase/metavase
++ milt ,[p=* q=*] :: metavase
@ -8932,8 +8934,8 @@
^- [p=(list move) q=vase]
=+ ^= pro
?~ pux
(slym (slap rig [%cnzy %call]) [hen fav])
(slym (slap rig [%cnzy %beat]) [u.pux hen fav])
(slym (slap rig [%cnzy %call]) [hen %noun fav])
(slym (slap rig [%cnzy %beat]) [u.pux hen %noun fav])
:- (said (slap pro [%cnzy %p]))
(soar (slap pro [%cnzy %q]))
--

4
arvo/zuse.hoon
View File

@ -2306,7 +2306,7 @@
%post :: POST
%put :: PUT
%trac :: TRACE
==
== ::
++ mite (list ,@ta) :: mime type
++ miso :: ankh delta
$% [%del p=*] :: delete
@ -2525,12 +2525,14 @@
++ beat :: update
|= $: pax=wire :: pretext
hen=duct :: cause
typ=type :: event type
fav=card :: event
== ::
:- p=*(list move) :: actions
q=*vane :: consequence
++ call :: update
|= $: hen=duct :: channel
typ=type :: event type
fav=card :: event
== ::
:- p=*(list move) :: actions