ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-03 14:37:05 +03:00
Code Issues Packages Projects Releases Wiki Activity

%send effect does not need to drop through anymore

Browse Source
This commit is contained in:
pcmonk 2014-07-09 14:42:08 -07:00
parent 2e230304fc
commit 2c15e0c0bf
7 changed files with 19 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
arvo/ames.hoon
View File

@ -19,7 +19,8 @@
== ::
++ hasp ,[p=ship q=term] :: see %gall
++ kiss :: in request ->$
$% [%crud p=@tas q=(list tank)] :: error with trace
$% [%barn ~] :: new unix process
[%crud p=@tas q=(list tank)] :: error with trace
[%cash p=@p q=buck] :: civil license
[%hear p=lane q=@] :: receive packet
[%hole p=lane q=@] :: packet failed
@ -53,7 +54,6 @@
== == ::
$: @tas ::
$% [%crud p=@tas q=(list tank)] :: by any
[%send p=lane q=@] :: transmit packet
[%went p=ship q=cape] :: by %ames
== == == ::
--
@ -1661,7 +1661,7 @@
::
%ouzo
:_ fox
[[hen [%give %send p.bon q.bon]] ~]
[[gad.fox [%give %send p.bon q.bon]] ~]
::
%wine
:_ fox
@ -1684,7 +1684,6 @@
^- [(list move) _+>]
?- +<.sih
%crud [[[hen [%slip %d %flog +.sih]] ~] +>]
%send [[hen %give +.sih]~ +>]
%went [~ +>]
==
::
@ -1696,6 +1695,8 @@
=+ ^= fuy
^- [p=(list boon) q=fort]
?- -.kyz
%barn
[~ fox(gad hen)]
%cash
(~(have am [now fox]) p.kyz q.kyz)
::

5
arvo/batz.hoon
View File

@ -16,7 +16,6 @@
[%logo p=@] :: logout
[%note p=@tD q=tank] :: show message
[%save p=path q=@] :: write atomic file
[%send p=lane q=@] :: send packet
[%talk p=tank] :: show on console
[%tell p=(list ,@t)] :: dump lines
[%veer p=@ta q=path r=@t] :: install vane
@ -93,7 +92,6 @@
[%pipe p=(unit ,[p=tutu q=(list)])] :: by %batz
[%rush p=logo q=*] ::
[%rust p=logo q=*] ::
[%send p=lane q=@] :: by %ames
[%thou p=httr] :: by %eyre
[%waft p=sock q=*] :: by %ames
[%went p=ship q=cape] :: by %ames
@ -288,7 +286,6 @@
%rust ?. (fear tea) :: legit
[~ +<.^^$]
abet:lash:(lean tea hen sin)
%send [[[hen %give sin] ~] +<.^^$]
%thou ?. (fear tea) :: legit
[~ +<.^^$]
abet:lash:(lean tea hen sin)
@ -1451,7 +1448,7 @@
?+ -.p.q.hin
~&([%take-none -.p.q.hin] !!)
::
?(%hail %send)
%hail
?~ big
~& [%take-hail-soon hen]
[~ ..^$]

7
arvo/clay.hoon
View File

@ -8,7 +8,6 @@
++ gift :: out result <-$
$% [%ergo p=@p q=@tas r=@ud] :: version update
[%note p=@tD q=tank] :: debug message
[%send p=lane q=@] :: send packet
[%writ p=riot] :: response
== ::
++ kiss :: in request ->$
@ -34,8 +33,7 @@
== == == ::
++ sign :: in result $<-
$? $: %a :: by %ames
$% [%send p=lane q=@] ::
[%waft p=sock q=*] ::
$% [%waft p=sock q=*] ::
[%went p=ship q=cape] ::
== == ::
$: %c :: by %clay
@ -517,9 +515,6 @@
?- -.+.q.hin
%crud
[[[hen %slip %d %flog +.q.hin] ~] ..^$]
::
%send
[[hen %give +.q.hin]~ ..^$]
::
%waft
?> ?=([@ @ ~] tea)

14
arvo/dill.hoon
View File

@ -8,7 +8,6 @@
[%blit p=(list blit)] :: terminal output
[%init p=@p] :: report install
[%logo p=@] :: logout
[%send p=lane q=@] :: transmit packet
[%veer p=@ta q=path r=@t] :: install vane
[%vega p=path] :: reboot by path
[%verb ~] :: by %batz
@ -64,7 +63,6 @@
$% [%crud p=@tas q=(list tank)] ::
[%init p=@p] ::
[%note p=@tD q=tank] ::
[%send p=lane q=@] ::
== == == ::
:::::::: :: dill tiles
++ bein :: terminal control
@ -297,17 +295,17 @@
?(%hail %make %sith)
+>.$(mos :_(mos [hen %pass ~ %b +.sih]))
::
%note ?.(p.yar +>.$ (fume p.+.sih q.+.sih)) :: debug message
%note ?.(p.yar +>.$ (fume p.+.sih q.+.sih)) :: debug message
%save :: write a file
%= +>.$
mos :_(mos [hen [%give %blit [%sav p.+.sih q.+.sih] ~]])
==
::
%tell (furl (turn p.+.sih |=(a=@t (trip a)))) :: wall of text
%talk (furl (~(win re p.+.sih) 0 p.q.yar)) :: program output
%text $(+.sih [%talk %leaf p.+.sih]) :: simple message
%warn (fume '~' [%leaf p.+.sih]) :: system message
?(%init %logo %send %veer %vega %verb) :: drop-throughs
%tell (furl (turn p.+.sih |=(a=@t (trip a)))) :: wall of text
%talk (furl (~(win re p.+.sih) 0 p.q.yar)) :: program output
%text $(+.sih [%talk %leaf p.+.sih]) :: simple message
%warn (fume '~' [%leaf p.+.sih]) :: system message
?(%init %logo %veer %vega %verb) :: drop-throughs
+>(mos :_(mos [hen %give +.sih]))
==
::

15
arvo/gall.hoon
View File

@ -18,7 +18,6 @@
[%mean p=(list tank)] :: message failure
[%meta p=vase] :: meta-gift
[%nice ~] :: message success
[%send p=lane q=@] :: transmit packet
== ::
++ hasp ,[p=ship q=term] :: app identity
++ kiss :: in request ->$
@ -110,8 +109,7 @@
++ sign :: in result $<-
$? [?(%b %c %d %e) @tas *] ::
$: %a :: by %ames
$% [%send p=lane q=@] ::
[%went p=ship q=cape] ::
$% [%went p=ship q=cape] ::
== == ::
$: %g :: by %gall
$% [%dumb ~] ::
@ -316,10 +314,7 @@
++ gasp :: %x take
|= [hen=duct pax=path sih=sign]
^- [(list move) _..^$]
?: ?=(%a -.sih)
:_ ..^$
?. ?=(%send -.+.sih) ~
[hen %give +.sih]~
?: ?=(%a -.sih) [~ ..^$]
?> ?=(%f -.sih)
:_ ..^$
:_ ~
@ -348,9 +343,7 @@
:_ ..^$
=+ rod=|=(ron=roon `note`[%a %want [our you] /q/gh/[app] num ron])
?+ -.pax !!
%m ?: ?=(%a -.sih)
?. ?=(%send +<.sih) ~
[hen %give +.sih]~
%m ?: ?=(%a -.sih) ~
:_ ~ :- hen
:+ %pass [%r pax]
^- note
@ -372,7 +365,7 @@
==
==
%s ?+ -.sih !!
%a ?. ?=(%send +<.sih) ~ [hen %give +.sih]~
%a ~
%g
:_ ~ :- hen
:+ %pass [%r pax]

1
arvo/hoon.hoon
View File

@ -9801,6 +9801,7 @@
|= hap=path ^- @tas
?+ hap !!
[@ %ames *] %a
[@ %newt *] %a
[@ %batz *] %b
[@ %clay *] %c
[@ %sync *] %c

1
arvo/zuse.hoon
View File

@ -2287,6 +2287,7 @@
== ::
++ fort :: formal state
$: %0 :: version
gad=duct :: client interface
hop=@da :: network boot date
ton=town :: security
zac=(map ship corn) :: flows by server