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

rewrite clay event dispatch

Browse Source
This commit is contained in:
Philip C Monk 2015-08-13 20:11:59 -04:00
parent 35a3148c6a
commit 8059a5fffa
2 changed files with 141 additions and 232 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

365
arvo/clay.hoon
View File

@ -86,8 +86,8 @@
== :: == ::
++ rede :: universal project ++ rede :: universal project
$: lim=@da :: complete to $: lim=@da :: complete to
qyx=cult :: subscribers
ref=(unit rind) :: outgoing requests ref=(unit rind) :: outgoing requests
qyx=cult :: subscribers
dom=dome :: revision state dom=dome :: revision state
dok=(unit dork) :: outstanding diffs dok=(unit dork) :: outstanding diffs
mer=(map (pair ship desk) mery) :: outstanding merges mer=(map (pair ship desk) mery) :: outstanding merges
@ -130,9 +130,32 @@
:: ::
|% |%
++ de :: per desk ++ de :: per desk
|= [now=@da hen=duct hun=duct hez=(unit duct)] |= [now=@da hen=duct raft]
|= [[who=@p for=@p] syd=@ta rede ran=rang mon=(map term beam)] |= [[our=@p her=@p] syd=desk]
=* red +<+>- =* ruf +>+<+>
=+ ^- [hun=(unit duct) rede]
=+ rom=(~(get by fat.ruf) her)
?~ rom
:- ~
%+ fall
(~(get by rus:(fall (~(get by hoy.ruf) her) *rung)) syd)
:* lim=~2000.1.1
ref=[~ *rind]
qyx=~
dom=*dome
dok=~
mer=~
==
:- `hun.u.rom
=+ jod=(fall (~(get by dos.u.rom) syd) *dojo)
:* lim=now
ref=~
qyx=qyx.jod
dom=dom.jod
dok=dok.jod
mer=mer.jod
==
=* red ->
=| yel=(list ,[p=duct q=gift]) =| yel=(list ,[p=duct q=gift])
=| byn=(list ,[p=duct q=riot]) =| byn=(list ,[p=duct q=riot])
=| reg=(list ,[p=duct q=gift]) =| reg=(list ,[p=duct q=gift])
@ -140,11 +163,16 @@
=| tag=(list move) =| tag=(list move)
|% |%
++ abet ++ abet
^- [(list move) rede] ^- [(list move) raft]
:_ red :_ =+ rom=(~(get by fat.ruf) her)
?~ rom
=+ rug=(~(put by rus:(fall (~(get by hoy.ruf) her) *rung)) syd red)
ruf(hoy (~(put by hoy.ruf) her rug))
=+ dos=(~(put by dos.u.rom) syd [qyx dom dok mer])
ruf(fat (~(put by fat.ruf) her [(need hun) dos]))
;: weld ;: weld
%+ turn (flop yel) %+ turn (flop yel)
|=([a=duct b=gift] [hun %give b]) |=([a=duct b=gift] [(need hun) %give b])
:: ::
%+ turn (flop reg) %+ turn (flop reg)
|=([a=duct b=gift] [a %give b]) |=([a=duct b=gift] [a %give b])
@ -155,7 +183,7 @@
%+ turn (flop say) %+ turn (flop say)
|= [a=duct b=path c=ship d=[p=@ud q=riff]] |= [a=duct b=path c=ship d=[p=@ud q=riff]]
:- a :- a
[%pass b %a %wont [who c] [%c %question p.q.d (scot %ud p.d) ~] q.d] [%pass b %a %wont [our c] [%c %question p.q.d (scot %ud p.d) ~] q.d]
:: ::
tag tag
== ==
@ -192,7 +220,7 @@
%tabl (ford-fail >%strange-gage< ~) %tabl (ford-fail >%strange-gage< ~)
%& (some [p.key p.val]) %& (some [p.key p.val])
%| =. p.val [(sell q.p.key) p.val] %| =. p.val [(sell q.p.key) p.val]
~> %slog.[0 %*(. >%ford-fail syd %for %why< |2.+> p.val)] ~> %slog.[0 %*(. >%ford-fail syd %her %why< |2.+> p.val)]
~ ~
== ==
:: ::
@ -247,7 +275,7 @@
+>.$(byn [[hen ~ [p.mun q.mun syd] r.mun p.dat] byn]) +>.$(byn [[hen ~ [p.mun q.mun syd] r.mun p.dat] byn])
=- +>.$(tag [- tag]) =- +>.$(tag [- tag])
:* hen %pass [%blab p.mun (scot q.mun) syd r.mun] :* hen %pass [%blab p.mun (scot q.mun) syd r.mun]
%f %exec who ~ [who syd q.mun] (lobe-to-silk:ze r.mun p.dat) %f %exec our ~ [our syd q.mun] (lobe-to-silk:ze r.mun p.dat)
== ==
:: ::
++ bleb :: ship sequence ++ bleb :: ship sequence
@ -276,7 +304,7 @@
[%many %| [%ud let.dom] `case`q.p.rav r.p.rav] [%many %| [%ud let.dom] `case`q.p.rav r.p.rav]
=+ inx=nix.u.ref =+ inx=nix.u.ref
%= +>+.$ %= +>+.$
say [[hen [(scot %ud inx) ~] for [inx syd ~ vaw]] say] say [[hen [(scot %ud inx) ~] her [inx syd ~ vaw]] say]
nix.u.ref +(nix.u.ref) nix.u.ref +(nix.u.ref)
bom.u.ref (~(put by bom.u.ref) inx [hen vaw]) bom.u.ref (~(put by bom.u.ref) inx [hen vaw])
fod.u.ref (~(put by fod.u.ref) hen inx) fod.u.ref (~(put by fod.u.ref) hen inx)
@ -292,7 +320,7 @@
=- ?~(- ~ `[nam (lent s.bem) (sa -)]) =- ?~(- ~ `[nam (lent s.bem) (sa -)])
%+ skim can %+ skim can
|= pax=path |= pax=path
&(=(p.bem for) =(q.bem syd) =((flop s.bem) (scag (lent s.bem) pax))) &(=(p.bem her) =(q.bem syd) =((flop s.bem) (scag (lent s.bem) pax)))
:: ::
++ mont ++ mont
|= [pot=term pax=path] |= [pot=term pax=path]
@ -304,8 +332,8 @@
%_ +>.$ %_ +>.$
tag tag
:_ tag :_ tag
:* hen %pass [%ergoing (scot %p who) syd ~] %f :* hen %pass [%ergoing (scot %p our) syd ~] %f
%exec who ~ [who syd %da now] %tabl %exec our ~ [our syd %da now] %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn `(list path)`mus %+ turn `(list path)`mus
|= a=path |= a=path
@ -331,7 +359,7 @@
=+ nux=(~(get by fod.u.ref) hen) =+ nux=(~(get by fod.u.ref) hen)
?~ nux +.$ ?~ nux +.$
%= +.$ %= +.$
say [[hen [(scot %ud u.nux) ~] for [u.nux syd ~]] say] say [[hen [(scot %ud u.nux) ~] her [u.nux syd ~]] say]
fod.u.ref (~(del by fod.u.ref) hen) fod.u.ref (~(del by fod.u.ref) hen)
bom.u.ref (~(del by bom.u.ref) u.nux) bom.u.ref (~(del by bom.u.ref) u.nux)
== ==
@ -363,7 +391,7 @@
~& [%oh-no rave=rav aeon=yon letdom=let.dom] ~& [%oh-no rave=rav aeon=yon letdom=let.dom]
+>.^$ +>.^$
?~ u.var ?~ u.var
(blab hen p.rav %& %null [%atom %n] ~) :: only for %x (blab hen p.rav %& %null [%atom %n] ~) :: only her %x
?: (equivalent-data:ze u.u.ver u.u.var) ?: (equivalent-data:ze u.u.ver u.u.var)
$(yon +(yon)) $(yon +(yon))
(blab hen p.rav u.u.var) (blab hen p.rav u.u.var)
@ -401,7 +429,7 @@
^+ +> ^+ +>
%_ +>.$ %_ +>.$
yel yel
=+ pre=`path`~[(scot %p for) syd (scot %ud let.dom)] =+ pre=`path`~[(scot %p her) syd (scot %ud let.dom)]
?- -.lem ?- -.lem
| :_ yel | :_ yel
[hen %note '=' %leaf :(weld (trip p.lem) " " (spud pre))] [hen %note '=' %leaf :(weld (trip p.lem) " " (spud pre))]
@ -506,8 +534,8 @@
== ==
^- (list move) ^- (list move)
:~ :* hen %pass :~ :* hen %pass
[%inserting (scot %p who) syd (scot %da wen) ~] [%inserting (scot %p our) syd (scot %da wen) ~]
%f %exec who ~ [who syd %da wen] %tabl %f %exec our ~ [our syd %da wen] %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn ins %+ turn ins
|= [pax=path mis=miso] |= [pax=path mis=miso]
@ -517,8 +545,8 @@
[%cast - [%$ p.mis]] [%cast - [%$ p.mis]]
== ==
:* hen %pass :* hen %pass
[%diffing (scot %p who) syd (scot %da wen) ~] [%diffing (scot %p our) syd (scot %da wen) ~]
%f %exec who ~ [who syd %da wen] %tabl %f %exec our ~ [our syd %da wen] %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn dif %+ turn dif
|= [pax=path mis=miso] |= [pax=path mis=miso]
@ -529,8 +557,8 @@
[%pact [%$ p.-] [%$ p.mis]] [%pact [%$ p.-] [%$ p.mis]]
== ==
:* hen %pass :* hen %pass
[%castifying (scot %p who) syd (scot %da wen) ~] [%castifying (scot %p our) syd (scot %da wen) ~]
%f %exec who ~ [who syd %da wen] %tabl %f %exec our ~ [our syd %da wen] %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn mut %+ turn mut
|= [pax=path mis=miso] |= [pax=path mis=miso]
@ -548,8 +576,8 @@
:- hen :- hen
?+ -.mis !! ?+ -.mis !!
%mut %mut
:- [%diffing (scot %p who) syd (scot %da wen) pax] :- [%diffing (scot %p our) syd (scot %da wen) pax]
:^ %f %exec who :+ ~ [who syd %da wen] :^ %f %exec our :+ ~ [our syd %da wen]
^- silk ^- silk
:+ %diff :+ %diff
(lobe-to-silk:ze pax (~(got by q:(aeon-to-yaki:ze let.dom)) pax)) (lobe-to-silk:ze pax (~(got by q:(aeon-to-yaki:ze let.dom)) pax))
@ -558,8 +586,8 @@
[%cast - [%$ p.mis]] [%cast - [%$ p.mis]]
:: ::
%ins %ins
:- [%casting (scot %p who) syd (scot %da wen) pax] :- [%casting (scot %p our) syd (scot %da wen) pax]
:^ %f %exec who :+ ~ [who syd %da wen] :^ %f %exec our :+ ~ [our syd %da wen]
^- silk ^- silk
=+ (slag (dec (lent pax)) pax) =+ (slag (dec (lent pax)) pax)
=+ ?~(- %$ i.-) =+ ?~(- %$ i.-)
@ -660,8 +688,8 @@
=- %_(+>.$ tag [- tag]) =- %_(+>.$ tag [- tag])
^- move ^- move
:* hen %pass :* hen %pass
[%mutating (scot %p who) syd (scot %da wen) ~] [%mutating (scot %p our) syd (scot %da wen) ~]
%f %exec who ~ [who syd %da wen] %tabl %f %exec our ~ [our syd %da wen] %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn cat %+ turn cat
|= [pax=path cay=cage] |= [pax=path cay=cage]
@ -763,8 +791,8 @@
dok ~ dok ~
tag tag
:_ tag :_ tag
:* hen %pass [%ergoing (scot %p who) syd ~] %f :* hen %pass [%ergoing (scot %p our) syd ~] %f
%exec who ~ [who syd %da now] %tabl %exec our ~ [our syd %da now] %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn (~(tap in sum)) %+ turn (~(tap in sum))
|= a=path |= a=path
@ -821,8 +849,8 @@
%_ +>.$ %_ +>.$
tag tag
:_ tag :_ tag
:* hen %pass [%patching (scot %p who) syd ~] %f :* hen %pass [%patching (scot %p our) syd ~] %f
%exec who :^ ~ [who syd %da now] %tabl %exec our :^ ~ [our syd %da now] %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn (~(tap by hat)) %+ turn (~(tap by hat))
|= [a=path b=lobe] |= [a=path b=lobe]
@ -840,6 +868,7 @@
bar=(set blob) :: new content bar=(set blob) :: new content
== ==
^+ +> ^+ +>
=< wake
=+ ^- nut=(map tako yaki) =+ ^- nut=(map tako yaki)
%- mo ^- (list (pair tako yaki)) %- mo ^- (list (pair tako yaki))
%+ turn (~(tap in lar)) %+ turn (~(tap in lar))
@ -893,7 +922,7 @@
(edit wen lem) (edit wen lem)
:: ::
++ exem :: execute merge ++ exem :: execute merge
|= [wen=@da her=@p sud=@tas gem=germ] :: aka direct change |= [wen=@da him=@p sud=@tas gem=germ] :: aka direct change
!! !!
:: ?. (gte p.mer let.dom) !! :: no :: ?. (gte p.mer let.dom) !! :: no
:: =. +>.$ %= +>.$ :: =. +>.$ %= +>.$
@ -998,8 +1027,8 @@
~| [%x-over-network-not-implemented [p q -.r]:rut hen] !! ~| [%x-over-network-not-implemented [p q -.r]:rut hen] !!
:: =- %_(+>.$ tag [- tag]) :: =- %_(+>.$ tag [- tag])
:: :* hen :: :* hen
:: [%foreign-plops (scot %p who) (scot %p for) syd ~] :: [%foreign-plops (scot %p our) (scot %p her) syd ~]
:: %f %exec who ~ %tabl :: %f %exec our ~ %tabl
:: ^- (list (pair silk silk)) :: ^- (list (pair silk silk))
:: %+ turn (~(tap in pop)) :: %+ turn (~(tap in pop))
:: |= a=plop :: |= a=plop
@ -1021,8 +1050,8 @@
^+ +> ^+ +>
=- %_(+>.$ tag [- tag]) =- %_(+>.$ tag [- tag])
:* hen %pass :* hen %pass
[%foreign-x (scot %p who) (scot %p for) syd car (scot cas) pax] [%foreign-x (scot %p our) (scot %p her) syd car (scot cas) pax]
%f %exec who ~ [for syd cas] %f %exec our ~ [her syd cas]
[%vale peg] [%vale peg]
== ==
:: ::
@ -1044,8 +1073,8 @@
=- %_(+>.$ tag [- tag]) =- %_(+>.$ tag [- tag])
=+ lum=(scot %da (fall lem *@da)) =+ lum=(scot %da (fall lem *@da))
:* hen %pass :* hen %pass
[%foreign-plops (scot %p who) (scot %p for) syd lum ~] [%foreign-plops (scot %p our) (scot %p her) syd lum ~]
%f %exec who ~ [for syd cas] %tabl %f %exec our ~ [her syd cas] %tabl
^- (list (pair silk silk)) ^- (list (pair silk silk))
%+ turn (~(tap in pop)) %+ turn (~(tap in pop))
|= a=plop |= a=plop
@ -1298,7 +1327,7 @@
(~(del by bar) pax) (~(del by bar) pax)
%dif :: mutate, must exist %dif :: mutate, must exist
=+ ber=(~(get by bar) pax) :: XX typed =+ ber=(~(get by bar) pax) :: XX typed
=+ for==>((flop pax) ?~(. %$ i)) =+ her==>((flop pax) ?~(. %$ i))
?~ ber ?~ ber
=+ har=(~(get by hat) pax) =+ har=(~(get by hat) pax)
?~ har !! ?~ har !!
@ -1611,7 +1640,7 @@
++ read-at-aeon :: read-at-aeon:ze ++ read-at-aeon :: read-at-aeon:ze
|= [yon=aeon mun=mood] :: seek and read |= [yon=aeon mun=mood] :: seek and read
^- (unit (unit (each cage lobe))) ^- (unit (unit (each cage lobe)))
?: &(?=(%w p.mun) !?=(%ud -.q.mun)) :: NB only for speed ?: &(?=(%w p.mun) !?=(%ud -.q.mun)) :: NB only her speed
?^(r.mun [~ ~] [~ ~ %& %aeon !>(yon)]) ?^(r.mun [~ ~] [~ ~ %& %aeon !>(yon)])
?: ?=(%u p.mun) ?: ?=(%u p.mun)
(read-u yon r.mun) (read-u yon r.mun)
@ -1672,7 +1701,7 @@
:: ::
++ me :: merge ali into bob ++ me :: merge ali into bob
|= [ali=(pair ship desk) alh=(unit ankh)] :: from |= [ali=(pair ship desk) alh=(unit ankh)] :: from
=+ bob=`(pair ship desk)`[who syd] :: to =+ bob=`(pair ship desk)`[our syd] :: to
=+ dat=(fall (~(get by mer) ali) *mery) :: merge data =+ dat=(fall (~(get by mer) ali) *mery) :: merge data
=| don=? :: keep going =| don=? :: keep going
|% |%
@ -2014,11 +2043,11 @@
^- (pair silk silk) ^- (pair silk silk)
=+ cal=(~(got by can.dal.dat) pax) =+ cal=(~(got by can.dal.dat) pax)
=+ cob=(~(got by can.dob.dat) pax) =+ cob=(~(got by can.dob.dat) pax)
=+ ^= for =+ ^= her
=+ (slag (dec (lent pax)) pax) =+ (slag (dec (lent pax)) pax)
?~(- %$ i.-) ?~(- %$ i.-)
:- [%$ %path !>(pax)] :- [%$ %path !>(pax)]
[%join for [%$ cal] [%$ cob]] [%join her [%$ cal] [%$ cob]]
== ==
== ==
:: ::
@ -2188,6 +2217,7 @@
=. hit.dom (~(put by hit.dom) let.dom r.new.dat) =. hit.dom (~(put by hit.dom) let.dom r.new.dat)
=. ank.dat (checkout-ankh:ze (~(uni by bop.dat) p.can)) =. ank.dat (checkout-ankh:ze (~(uni by bop.dat) p.can))
=. ank.dom ank.dat =. ank.dom ank.dat
=> .(..wake wake)
?~ hez done:he ?~ hez done:he
=+ mus=(must-ergo (turn (~(tap by erg.dat)) head)) =+ mus=(must-ergo (turn (~(tap by erg.dat)) head))
?: =(~ mus) done:he ?: =(~ mus) done:he
@ -2323,59 +2353,6 @@
-- --
-- --
-- --
::
++ do
|= [now=@da hen=duct [who=ship him=ship] syd=@tas ruf=raft]
=+ ^= rug ^- rung
=+ rug=(~(get by hoy.ruf) him)
?^(rug u.rug *rung)
=+ ^= red ^- rede
=+ yit=(~(get by rus.rug) syd)
?^(yit u.yit `rede`[~2000.1.1 ~ [~ *rind] *dome ~ ~])
((de now hen ~ hez.ruf) [who him] syd red ran.ruf mon.ruf)
::
++ posh
|= [him=ship syd=desk red=rede ruf=raft]
^- raft
=+ ^= rug ^- rung
=+ rug=(~(get by hoy.ruf) him)
?^(rug u.rug *rung)
ruf(hoy (~(put by hoy.ruf) him rug(rus (~(put by rus.rug) syd red))))
::
++ un :: domestic ship
|= [who=@p now=@da hen=duct ruf=raft]
=+ ^= yar ^- room
=+ yar=(~(get by fat.ruf) who)
?~(yar *room u.yar)
|%
++ abet ruf(fat (~(put by fat.ruf) who yar))
++ pish
|= [syd=@ta red=rede run=rang]
%_ +>
ran.ruf run
dos.yar
(~(put by dos.yar) syd [qyx.red dom.red dok.red mer.red])
==
::
++ wake
=+ saz=(turn (~(tap by dos.yar) ~) |=([a=@tas b=*] a))
=| moz=(list move)
=< [moz ..wake]
|- ^+ +
?~ saz +
=+ sog=abet:wake:(di i.saz)
$(saz t.saz, moz (weld moz -.sog), ..wake (pish i.saz +.sog ran.ruf))
::
++ di
|= syd=@ta
=+ ^= saq ^- dojo
=+ saq=(~(get by dos.yar) syd)
?~(saq *dojo u.saq)
%^ (de now hen hun.yar hez.ruf)
[who who]
syd
[[now qyx.saq ~ dom.saq dok.saq mer.saq] ran.ruf mon.ruf]
--
-- --
:::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 4cA, filesystem vane :: :: section 4cA, filesystem vane ::
@ -2411,11 +2388,15 @@
[hen %give %hill (turn (~(tap by mon.ruf)) head)]~ [hen %give %hill (turn (~(tap by mon.ruf)) head)]~
:: ::
%init %init
:_ ..^$(fat.ruf (~(put by fat.ruf) p.q.hic [hen ~])) :_ %_ ..^$
fat.ruf
?< (~(has by fat.ruf) p.q.hic)
(~(put by fat.ruf) p.q.hic [-(hun hen)]:[*room .])
==
=+ [bos=(sein p.q.hic) can=(clan p.q.hic)] =+ [bos=(sein p.q.hic) can=(clan p.q.hic)]
%- zing ^- (list (list move)) %- zing ^- (list (list move))
:~ ?: =(bos p.q.hic) ~ :~ ?: =(bos p.q.hic) ~
[hen %pass / %c %merg p.q.hic %base bos %kids %init]~ [hen %pass /init-merge %c %merg p.q.hic %base bos %kids %init]~
:: ::
~ ~
== ==
@ -2424,28 +2405,8 @@
?: =(%$ q.q.hic) ?: =(%$ q.q.hic)
[~ ..^$] [~ ..^$]
=^ mos ruf =^ mos ruf
=+ une=(un p.q.hic now hen ruf) =+ den=((de now hen ruf) [. .]:p.q.hic q.q.hic)
=+ ^= zat abet:(exec:den now r.q.hic)
(exec:(di:une q.q.hic) now r.q.hic)
=+ zot=abet.zat
:- -.zot
=. une (pish:une q.q.hic +.zot ran.zat)
abet:une
:: ~& :+ %infoed
:: len=(lent mos)
:: %+ turn mos
:: |= move
:: ^- [duct (unit path) term term]
:: :- p
:: ^- [(unit path) term term]
:: ?+ -.q [~ *term *term]
:: %pass
:: ^- [(unit path) term term]
:: [`p.q [- +<]:q.q]
:: %give
:: ^- [(unit path) term term]
:: [~ %give -.p.q]
:: ==
[mos ..^$] [mos ..^$]
:: ::
%into %into
@ -2480,19 +2441,14 @@
== ==
=+ yak=(~(got by hut.ran.ruf) (~(got by hit.dom.u.dos) let.dom.u.dos)) =+ yak=(~(got by hut.ran.ruf) (~(got by hit.dom.u.dos) let.dom.u.dos))
=+ cos=(mode-to-soba q.yak (flop s.bem) q.q.hic r.q.hic) =+ cos=(mode-to-soba q.yak (flop s.bem) q.q.hic r.q.hic)
[hen %pass / %c %info p.bem q.bem %& cos]~ [hen %pass /both %c %info p.bem q.bem %& cos]~
:: ::
%merg :: direct state up %merg :: direct state up
?: =(%$ q.q.hic) ?: =(%$ q.q.hic)
[~ ..^$] [~ ..^$]
=^ mos ruf =^ mos ruf
=+ une=(un p.q.hic now hen ruf) =+ den=((de now hen ruf) [. .]:p.q.hic q.q.hic)
=+ ^= zat abet:abet:(start:(me:ze:den [r.q.hic s.q.hic] ~) t.q.hic)
abet:(start:(me:ze:(di:wake:une q.q.hic) [r.q.hic s.q.hic] ~) t.q.hic)
=+ zot=abet.zat
:- -.zot
=. une (pish:une q.q.hic +.zot ran.zat)
abet:une
[mos ..^$] [mos ..^$]
:: ::
%mont %mont
@ -2509,11 +2465,10 @@
=+ dos=(~(get by dos.u.yar) r.q.hic) =+ dos=(~(get by dos.u.yar) r.q.hic)
?~ dos ?~ dos
[~ ..^$] [~ ..^$]
=+ une=(un q.q.hic now hen ruf) =^ mos ruf
=+ wex=(di:une r.q.hic) =+ den=((de now hen ruf) [. .]:q.q.hic r.q.hic)
=+ wao=(mont:wex p.q.hic s.q.hic) abet:(mont:den p.q.hic s.q.hic)
=+ woo=abet:wao [mos ..^$]
[-.woo ..^$(ruf abet:(pish:une r.q.hic +.woo ran.wao))]
:: ::
%ogre %ogre
?~ hez.ruf ?~ hez.ruf
@ -2538,22 +2493,11 @@
:: ::
%warp %warp
=^ mos ruf =^ mos ruf
?: =(p.p.q.hic q.p.q.hic) =+ den=((de now hen ruf) p.q.hic p.q.q.hic)
=+ une=(un p.p.q.hic now hen ruf) =< abet
=+ wex=(di:une p.q.q.hic) ?~ q.q.q.hic
=+ ^= wao ease:den
?~ q.q.q.hic (eave:den u.q.q.q.hic)
ease:wex
(eave:wex u.q.q.q.hic)
=+ ^= woo
abet:wao
[-.woo abet:(pish:une p.q.q.hic +.woo ran.wao)]
=+ wex=(do now hen p.q.hic p.q.q.hic ruf)
=+ ^= woo
?~ q.q.q.hic
abet:ease:wex
abet:(eave:wex u.q.q.q.hic)
[-.woo (posh q.p.q.hic p.q.q.hic +.woo ruf)]
[mos ..^$] [mos ..^$]
:: ::
%west %west
@ -2569,14 +2513,10 @@
?> ?=([%answer @ @ ~] q.q.hic) ?> ?=([%answer @ @ ~] q.q.hic)
=+ syd=(slav %tas i.t.q.q.hic) =+ syd=(slav %tas i.t.q.q.hic)
=+ inx=(slav %ud i.t.t.q.q.hic) =+ inx=(slav %ud i.t.t.q.q.hic)
=+ ^= zat
=< wake
%- take-foreign-update:(do now hen p.q.hic syd ruf)
[inx ((hard (unit rand)) r.q.hic)]
=^ mos ruf =^ mos ruf
=+ zot=abet.zat =+ den=((de now hen ruf) p.q.hic syd)
[-.zot (posh q.p.q.hic syd +.zot ruf)] abet:(take-foreign-update:den inx ((hard (unit rand)) r.q.hic))
[[[hen %give %mack ~] mos] ..^$(ran.ruf ran.zat)] :: merge in new obj [[[hen %give %mack ~] mos] ..^$]
:: ::
%wegh %wegh
:_ ..^$ :_ ~ :_ ..^$ :_ ~
@ -2614,11 +2554,8 @@
[~ ~] [~ ~]
=+ run=((soft care) ren) =+ run=((soft care) ren)
?~ run [~ ~] ?~ run [~ ~]
=+ %. [u.run u.luk tyl] =+ den=((de now [/scryduct ~] ruf) [. .]:his syd)
=< aver =+ (aver:den u.run u.luk tyl)
?: got
(di:(un his now ~ ruf) syd)
(do now ~ [his his] syd ruf)
?~ - - ?~ - -
?~ u.- - ?~ u.- -
?: ?=(%& -.u.u.-) ``p.u.u.- ?: ?=(%& -.u.u.-) ``p.u.u.-
@ -2635,9 +2572,6 @@
=+ her=(slav %p i.t.t.t.tea) =+ her=(slav %p i.t.t.t.tea)
=* sud i.t.t.t.t.tea =* sud i.t.t.t.t.tea
=* sat i.t.t.t.t.t.tea =* sat i.t.t.t.t.t.tea
=+ une=(un our now hen ruf)
=+ wak=une
=+ wex=(di:wak syd)
=+ dat=?-(+<.q.hin %writ [%& p.q.hin], %made [%| q.q.hin]) =+ dat=?-(+<.q.hin %writ [%& p.q.hin], %made [%| q.q.hin])
=+ ^- kan=(unit ankh) =+ ^- kan=(unit ankh)
%+ biff (~(get by fat.ruf) her) %+ biff (~(get by fat.ruf) her)
@ -2645,10 +2579,10 @@
%+ bind (~(get by dos) sud) %+ bind (~(get by dos) sud)
|= dojo |= dojo
ank.dom ank.dom
=+ wao=abet:(route:(me:ze:wex [her sud] kan) sat dat) =^ mos ruf
=+ woo=abet:wao =+ den=((de now hen ruf) [. .]:our syd)
=+ sip=wake:(pish:une syd +.woo ran.wao) abet:abet:(route:(me:ze:den [her sud] kan) sat dat)
[(weld -.sip -.woo) ..^$(ruf abet:[+.sip])] [mos ..^$]
?: ?=([%blab care @ @ *] tea) ?: ?=([%blab care @ @ *] tea)
?> ?=(%made +<.q.hin) ?> ?=(%made +<.q.hin)
?. ?=(%& -.q.q.hin) ?. ?=(%& -.q.q.hin)
@ -2669,82 +2603,60 @@
?+ -.tea !! ?+ -.tea !!
%inserting %inserting
?> ?=([@ @ @ ~] t.tea) ?> ?=([@ @ @ ~] t.tea)
=+ who=(slav %p i.t.tea) =+ our=(slav %p i.t.tea)
=+ syd=(slav %tas i.t.t.tea) =+ syd=(slav %tas i.t.t.tea)
=+ wen=(slav %da i.t.t.t.tea) =+ wen=(slav %da i.t.t.t.tea)
=^ mos ruf =^ mos ruf
=+ une=(un who now hen ruf) =+ den=((de now hen ruf) [. .]:our syd)
=+ ^= zat abet:(take-inserting:den wen q.q.hin)
(take-inserting:(di:une syd) wen q.q.hin)
=+ zot=abet.zat
[-.zot abet:(pish:une syd +.zot ran.zat)]
[mos ..^$] [mos ..^$]
:: ::
%diffing %diffing
?> ?=([@ @ @ ~] t.tea) ?> ?=([@ @ @ ~] t.tea)
=+ who=(slav %p i.t.tea) =+ our=(slav %p i.t.tea)
=+ syd=(slav %tas i.t.t.tea) =+ syd=(slav %tas i.t.t.tea)
=+ wen=(slav %da i.t.t.t.tea) =+ wen=(slav %da i.t.t.t.tea)
=^ mos ruf =^ mos ruf
=+ une=(un who now hen ruf) =+ den=((de now hen ruf) [. .]:our syd)
=+ ^= zat abet:(take-diffing:den wen q.q.hin)
(take-diffing:(di:une syd) wen q.q.hin)
=+ zot=abet.zat
[-.zot abet:(pish:une syd +.zot ran.zat)]
[mos ..^$] [mos ..^$]
:: ::
%castifying %castifying
?> ?=([@ @ @ ~] t.tea) ?> ?=([@ @ @ ~] t.tea)
=+ who=(slav %p i.t.tea) =+ our=(slav %p i.t.tea)
=+ syd=(slav %tas i.t.t.tea) =+ syd=(slav %tas i.t.t.tea)
=+ wen=(slav %da i.t.t.t.tea) =+ wen=(slav %da i.t.t.t.tea)
=^ mos ruf =^ mos ruf
=+ une=(un who now hen ruf) =+ den=((de now hen ruf) [. .]:our syd)
=+ ^= zat abet:(take-castify:den wen q.q.hin)
(take-castify:(di:une syd) wen q.q.hin)
=+ zot=abet.zat
[-.zot abet:(pish:une syd +.zot ran.zat)]
[mos ..^$] [mos ..^$]
:: ::
%mutating %mutating
?> ?=([@ @ @ ~] t.tea) ?> ?=([@ @ @ ~] t.tea)
=+ who=(slav %p i.t.tea) =+ our=(slav %p i.t.tea)
=+ syd=(slav %tas i.t.t.tea) =+ syd=(slav %tas i.t.t.tea)
=+ wen=(slav %da i.t.t.t.tea) =+ wen=(slav %da i.t.t.t.tea)
=^ mos ruf =^ mos ruf
=+ une=(un who now hen ruf) =+ den=((de now hen ruf) [. .]:our syd)
=+ ^= zat abet:(take-mutating:den wen q.q.hin)
(take-mutating:(di:une syd) wen q.q.hin)
=+ zot=abet.zat
[-.zot abet:(pish:une syd +.zot ran.zat)]
[mos ..^$] [mos ..^$]
:: ::
%patching %patching
?> ?=([@ @ ~] t.tea) ?> ?=([@ @ ~] t.tea)
=+ who=(slav %p i.t.tea) =+ our=(slav %p i.t.tea)
=+ syd=(slav %tas i.t.t.tea) =+ syd=(slav %tas i.t.t.tea)
=^ mos ruf =^ mos ruf
?: (~(has by fat.ruf) who) =+ den=((de now hen ruf) [. .]:our syd)
=+ une=(un who now hen ruf) abet:(take-patch:den q.q.hin)
=+ zat=(take-patch:(di:une syd) q.q.hin)
=+ zot=abet.zat
[-.zot abet:(pish:une syd +.zot ran.zat)]
=+ zax=(do now hen [who who] syd ruf)
=+ zat=(take-patch:zax q.q.hin)
=+ zot=abet.zat
[-.zot (posh who syd +.zot ruf)]
[mos ..^$] [mos ..^$]
:: ::
%ergoing %ergoing
?> ?=([@ @ ~] t.tea) ?> ?=([@ @ ~] t.tea)
=+ who=(slav %p i.t.tea) =+ our=(slav %p i.t.tea)
=+ syd=(slav %tas i.t.t.tea) =+ syd=(slav %tas i.t.t.tea)
=^ mos ruf =^ mos ruf
=+ une=(un who now hen ruf) =+ den=((de now hen ruf) [. .]:our syd)
=+ ^= zat abet:(take-ergo:den q.q.hin)
(take-ergo:(di:une syd) q.q.hin)
=+ zot=abet.zat
[-.zot abet:(pish:une syd +.zot ran.zat)]
[mos ..^$] [mos ..^$]
:: ::
%foreign-plops %foreign-plops
@ -2753,12 +2665,10 @@
=+ her=(slav %p i.t.t.tea) =+ her=(slav %p i.t.t.tea)
=* syd i.t.t.t.tea =* syd i.t.t.t.tea
=+ lem=(slav %da i.t.t.t.t.tea) =+ lem=(slav %da i.t.t.t.t.tea)
=+ zax=(do now hen [our her] syd ruf)
=+ zat=(take-foreign-plops:zax ?~(lem ~ `lem) q.q.hin)
=^ mos ruf =^ mos ruf
=+ zot=abet.zat =+ den=((de now hen ruf) [our her] syd)
[-.zot (posh her syd +.zot ruf)] abet:(take-foreign-plops:den ?~(lem ~ `lem) q.q.hin)
[mos ..^$(ran.ruf ran.zat)] [mos ..^$]
:: ::
%foreign-x %foreign-x
?> ?=([@ @ @ @ @ *] t.tea) ?> ?=([@ @ @ @ @ *] t.tea)
@ -2771,12 +2681,10 @@
?> ?=([~ %$ case] -) ?> ?=([~ %$ case] -)
->+ ->+
=* pax t.t.t.t.t.t.tea =* pax t.t.t.t.t.t.tea
=+ zax=(do now hen [our her] syd ruf)
=+ zat=(take-foreign-x:zax car cas pax q.q.hin)
=^ mos ruf =^ mos ruf
=+ zot=abet.zat =+ den=((de now hen ruf) [our her] syd)
[-.zot (posh her syd +.zot ruf)] abet:(take-foreign-x:den car cas pax q.q.hin)
[mos ..^$(ran.ruf ran.zat)] [mos ..^$]
== ==
:: ::
%mere %mere
@ -2793,13 +2701,14 @@
:: ::
%note [[hen %give +.q.hin]~ ..^$] %note [[hen %give +.q.hin]~ ..^$]
%wake %wake
=+ dal=(turn (~(tap by fat.ruf) ~) |=([a=@p b=room] a)) ~| %why-wakey !!
=| mos=(list move) :: =+ dal=(turn (~(tap by fat.ruf) ~) |=([a=@p b=room] a))
|- ^- [p=(list move) q=_..^^$] :: =| mos=(list move)
?~ dal [mos ..^^$] :: |- ^- [p=(list move) q=_..^^$]
=+ une=(un i.dal now hen ruf) :: ?~ dal [mos ..^^$]
=^ som une wake:une :: =+ une=(un i.dal now hen ruf)
$(dal t.dal, ruf abet:une, mos (weld som mos)) :: =^ som une wake:une
:: $(dal t.dal, ruf abet:une, mos (weld som mos))
:: ::
%writ %writ
?> ?=([@ @ *] tea) ?> ?=([@ @ *] tea)
@ -2808,7 +2717,7 @@
=+ our=(slav %p i.tea) =+ our=(slav %p i.tea)
=+ him=(slav %p i.t.tea) =+ him=(slav %p i.t.tea)
:_ ..^$ :_ ..^$
:~ :* hen %pass ~ %a :~ :* hen %pass /writ-wont %a
%wont [our him] [%c %answer t.t.tea] %wont [our him] [%c %answer t.t.tea]
(bind p.+.q.hin rant-to-rand) (bind p.+.q.hin rant-to-rand)
== ==

8
arvo/zuse.hoon
View File

@ -2356,11 +2356,11 @@
== :: == ::
++ kiss-clay :: in request ->$ ++ kiss-clay :: in request ->$
$% [%boat ~] :: pier rebooted $% [%boat ~] :: pier rebooted
[%info p=@p q=@tas r=nori] :: internal edit [%info p=@p q=desk r=nori] :: internal edit
[%init p=@p] :: report install [%init p=@p] :: report install
[%into p=@tas q=? r=mode] :: external edit [%into p=desk q=? r=mode] :: external edit
[%merg p=@p q=@tas r=@p s=@tas t=germ] :: merge desks [%merg p=@p q=desk r=@p s=desk t=germ] :: merge desks
[%mont p=@tas q=@p r=@tas s=path] :: mount to unix [%mont p=@tas q=@p r=desk s=path] :: mount to unix
[%ogre p=$|(@tas beam)] :: delete mount point [%ogre p=$|(@tas beam)] :: delete mount point
[%warp p=sock q=riff] :: file request [%warp p=sock q=riff] :: file request
[%wegh ~] :: report memory [%wegh ~] :: report memory