ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-08 16:21:00 +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 :_ fox
:~ :+ [~ %iron p.p.bon] :~ :+ [~ %iron p.p.bon]
[/a /a hen] [/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 %re :: %re
:_ fox :_ fox
@ -1584,7 +1584,7 @@
|= him=ship |= him=ship
:+ [~ %iron p.p.bon] :+ [~ %iron p.p.bon]
[/a /a hen] [/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 %ouzo
@ -1640,7 +1640,7 @@
:: ::
%want %want
?> ?=(^ wru) ?> ?=(^ 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
(~(wake am [now fox]) hen) (~(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])) %sc good:+>.^$(sac ?~(p.gud ?~(sac ~ +.sac) [u.p.gud sac]))
%sp !! %sp !!
%sq =+ tea=(bist %ma r.gud) %sq =+ tea=(bist %ma r.gud)
(gram [/a [%b tea] ~] [%want p.gud [%q q.gud %b tea] s.gud]) %+ gram
%sr (gram [/a /b ~] [%want p.gud [%r q.gud] r.gud]) [/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) %te (gram ~ %tell p.gud)
%th (gram [/e ~] %that p.gud q.gud) %th (gram [/e ~] %that p.gud q.gud)
%tq =+ tea=(bist %ma p.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]] |= [a=duct b=ship c=[p=@ud q=riff]]
:+ [~ %gold who] :+ [~ %gold who]
[/a a] [/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 ++ doze
@ -439,11 +439,12 @@
:: ::
%writ %writ
?> ?=([@ *] tea) ?> ?=([@ *] tea)
?> ?=(^ wru)
=+ him=(need (slaw %p i.tea)) =+ him=(need (slaw %p i.tea))
:_ ..^$ :_ ..^$
:~ :+ wru :~ :+ wru
[/a [%c ~] hen] [/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 %went :: XX should actually propagate

10
arvo/eyre.hoon
View File

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

1
arvo/gall.hoon
View File

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

2
arvo/zuse.hoon
View File

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