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

%want doesn't use writ.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-16 11:49:15 -07:00
parent ae7fd07b1a
commit 67ab019da8
6 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -1565,7 +1565,7 @@
:_ fox
:~ :+ [~ %iron p.p.bon]
[/a /a hen]
`card`[%want q.p.bon [%r %ta t.t.q.q.bon] `(unit will)`wyl]
`card`[%want p.bon [%r %ta t.t.q.q.bon] `(unit will)`wyl]
==
%re :: %re
:_ fox
@ -1584,7 +1584,7 @@
|= him=ship
:+ [~ %iron p.p.bon]
[/a /a hen]
[%want him /q/yu [q.p.bon r.bon]]
[%want [p.p.bon him] /q/yu [q.p.bon r.bon]]
==
::
%ouzo
@ -1640,7 +1640,7 @@
::
%want
?> ?=(^ wru)
(~(wise am [now fox]) [q.u.wru p.fav] hen q.fav r.fav)
(~(wise am [now fox]) p.fav hen q.fav r.fav)
::
%wake
(~(wake am [now fox]) hen)

6
arvo/batz.hoon
View File

@ -787,8 +787,10 @@
%sc good:+>.^$(sac ?~(p.gud ?~(sac ~ +.sac) [u.p.gud sac]))
%sp !!
%sq =+ tea=(bist %ma r.gud)
(gram [/a [%b tea] ~] [%want p.gud [%q q.gud %b tea] s.gud])
%sr (gram [/a /b ~] [%want p.gud [%r q.gud] r.gud])
%+ gram
[/a [%b tea] ~]
[%want [who p.gud] [%q q.gud %b tea] s.gud]
%sr (gram [/a /b ~] [%want [who p.gud] [%r q.gud] r.gud])
%te (gram ~ %tell p.gud)
%th (gram [/e ~] %that p.gud q.gud)
%tq =+ tea=(bist %ma p.gud)

5
arvo/clay.hoon
View File

@ -36,7 +36,7 @@
|= [a=duct b=ship c=[p=@ud q=riff]]
:+ [~ %gold who]
[/a a]
[%want b [%q %re p.q.c (scot %ud p.c) ~] q.c]
[%want [who b] [%q %re p.q.c (scot %ud p.c) ~] q.c]
==
::
++ doze
@ -439,11 +439,12 @@
::
%writ
?> ?=([@ *] tea)
?> ?=(^ wru)
=+ him=(need (slaw %p i.tea))
:_ ..^$
:~ :+ wru
[/a [%c ~] hen]
`card`[%want him [%r %re %c t.tea] p.fav]
`card`[%want [q.u.wru him] [%r %re %c t.tea] p.fav]
==
::
%went :: XX should actually propagate

10
arvo/eyre.hoon
View File

@ -362,12 +362,14 @@
++ haji :: send %pc login
|= [him=ship ses=hole]
^+ +>
+>.$(mow :_(mow [wru [/a /e hen] [%want him [%r %pc ~] ses]]))
?> ?=(^ wru)
+>.$(mow :_(mow [wru [/a /e hen] [%want [q.u.wru him] [%r %pc ~] ses]]))
::
++ hajj :: send %pr response
|= [him=ship tus=path har=httr]
^+ +>
+>.$(mow :_(mow [wru [/a /e hen] [%want him [%r %pr tus] har]]))
?> ?=(^ wru)
+>.$(mow :_(mow [wru [/a /e hen] [%want [q.u.wru him] [%r %pr tus] har]]))
::
++ hare :: receive request
|= [tus=path him=ship hor=*]
@ -449,7 +451,7 @@
:_ mow
:+ [~ %gold sor.rot]
[/a [%e %hork mun ~] hen]
[%want him [%q %pr %e %hork mun ~] ~]
[%want [sor.rot him] [%q %pr %e %hork mun ~] ~]
==
::
++ hork :: remote request
@ -474,7 +476,7 @@
:_ mow
:+ [~ %gold sor.rot]
[/a [%e %hork mun ~] hen]
[%want him [%q %pr %e %hork mun ~] [~ hyx]]
[%want [sor.rot him] [%q %pr %e %hork mun ~] [~ hyx]]
::
fon
%+ ~(put by fon) him

1
arvo/gall.hoon
View File

@ -10,6 +10,7 @@
own=(map ship mast) :: apps by ship
== ::
++ bone ,@ud :: opaque duct
++ crow ,[p=bone q=hawk] ::
++ seat :: living app
$: hiv=vase :: the hive
eny=@ :: entropy

2
arvo/zuse.hoon
View File

@ -1944,7 +1944,7 @@
[%wait p=@da q=path] :: timer wait
[%wake ~] :: timer activate
[%waft p=ship q=*] :: response message
[%want p=ship q=path r=*] :: send message
[%want p=sock q=path r=*] :: send message
[%warn p=tape] :: syslog
[%warp p=ship q=riff] :: file request
[%wart p=ship q=@tas r=path s=*] :: service request