mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-11 04:48:00 +03:00
New chat ready for testing.
This commit is contained in:
C. Guy Yarvin
parent
08573d0a5d
commit
ff906e5b59
@ -751,12 +751,10 @@
|
||||
::
|
||||
++ lien :: some of
|
||||
~/ %lien
|
||||
|* [a=(list) b=_|=(p=* .?(p))]
|
||||
|* [a=(list) b=||=(* ?)]
|
||||
|- ^- ?
|
||||
?@ a
|
||||
|
|
||||
?: (b i.a)
|
||||
&
|
||||
?~ a |
|
||||
?: (b i.a) &
|
||||
$(a t.a)
|
||||
::
|
||||
++ reel :: right fold
|
||||
|
||||
@ -1921,7 +1921,7 @@
|
||||
++ spur path :: modeshipdeskcasespur
|
||||
++ step ,[p=bray q=gens r=pass] :: identity stage
|
||||
++ tako ,[p=path q=miso] :: change detail
|
||||
++ tart _|+([@da path note] *bowl) :: process core
|
||||
++ tart ||([@da path note] bowl) :: process core
|
||||
++ task ::
|
||||
$: paq=(qeu gyro) :: prompt queue
|
||||
wip=[p=@ud q=(map ,@ud beak)] :: processes
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
meg=(list zong) :: messages backward
|
||||
pod=(map ,@p fool) :: individual status
|
||||
== ::
|
||||
++ chub (list ,[p=@p q=(list zong)]) :: delivery report
|
||||
-- ::
|
||||
|%
|
||||
++ fu
|
||||
@ -26,10 +27,11 @@
|
||||
++ of
|
||||
|_ [her=@p ful=fool]
|
||||
++ abet ..of(pod.lov (~(put by pod.lov) her ful))
|
||||
++ call [her nym.ful]
|
||||
++ push
|
||||
^+ [(list zong) _.]
|
||||
?. (lth (add ~m2 elf.ful) now) [~ .]
|
||||
:- %- flip
|
||||
^- [(list zong) _.]
|
||||
?. liv.ful [~ .]
|
||||
:- %- flop
|
||||
%+ skim (scag (sub num.lov num.ful) meg.lov)
|
||||
|= a=zong
|
||||
?. ?=(%all -.a) &
|
||||
@ -38,96 +40,139 @@
|
||||
--
|
||||
::
|
||||
++ rolf
|
||||
^+ [(list ,[p=@p q=(list zong)]) _.]
|
||||
=^ zal meg.luv
|
||||
%+ ~(rib by meg.luv) *(list ,[p=@p q=(list zong)])
|
||||
|= [her=@p ful=fool]
|
||||
^- ,[[p=@p q=(list zong)] fool]
|
||||
^- [chub _.]
|
||||
=^ zal pod.lov
|
||||
%+ ~(rib by pod.lov) *chub
|
||||
|= [[her=@p ful=fool] fug=chub]
|
||||
^- [chub [@p fool]]
|
||||
=+ lol=~(push of her ful)
|
||||
[[her -.lol] ful.+.lol]
|
||||
[[[her -.lol] fug] [her ful.+.lol]]
|
||||
[zal +]
|
||||
::
|
||||
++ wake
|
||||
^+ [(list zong) _.]
|
||||
=^ zal meg.luv
|
||||
%+ ~(rib by meg.luv) *(list (unit zong))
|
||||
|= [her=@p ful=fool]
|
||||
^ [(unit zong) fool]
|
||||
?. &(liv.ful (gth now (add ~m2 elf.ful))) [~ ful]
|
||||
[[~ `zong`[%out [her nym.ful]]] ful(liv |)]
|
||||
:_ +
|
||||
|- ^- (list zong)
|
||||
?~(zal ~ =+(laz=$(zal t.zal) ?~(i.zal laz [u.i.zal laz])))
|
||||
::
|
||||
++ yowl
|
||||
|= her=@p
|
||||
^+ ..of
|
||||
=+ nog=(~(get by pod) her)
|
||||
%~ . ..of
|
||||
:- her
|
||||
?^ nog u.
|
||||
=+ ^= gos
|
||||
%- (hard (unit gcos))
|
||||
.^(%a (scot %p him) %gcos (scot %da now) ~)
|
||||
^- fool
|
||||
:* 0
|
||||
(numb him now)
|
||||
^- sect
|
||||
?. &(?=(^ gos) ?=(%duke -.u.gos)) %white
|
||||
?.(?=(?(%lord %lady) -.p.u.gos) %white r.p.u.gos)
|
||||
&
|
||||
now
|
||||
++ tell
|
||||
|= zog=(list zong)
|
||||
^+ +>
|
||||
%= +>
|
||||
num.lov (add (lent zog) num.lov)
|
||||
meg.lov (weld (flop zog) meg.lov)
|
||||
==
|
||||
::
|
||||
++ tilt
|
||||
|= zew=(list zong)
|
||||
=. +>.$ (tell zew)
|
||||
=^ yeq +>.$ rolf
|
||||
[yeq lov]
|
||||
::
|
||||
++ wake
|
||||
^- [chub loft]
|
||||
=^ zew pod.lov
|
||||
%+ ~(rib by pod.lov) *(list zong)
|
||||
|= [[her=@p ful=fool] fug=(list zong)]
|
||||
^- [(list zong) [@p fool]]
|
||||
?. &(liv.ful (gth now (add ~m2 elf.ful))) [fug her ful]
|
||||
[[`zong`[%out [her nym.ful]] fug] [her ful(liv |)]]
|
||||
(tilt zew)
|
||||
::
|
||||
++ yelp
|
||||
|= [her=@p zig=zing]
|
||||
^+ [p=(list ,[p=@p q=zong]) q=loft]
|
||||
?> ?=(%who -.zig)
|
||||
:- :~ [her
|
||||
?- -.zig
|
||||
%all
|
||||
|
||||
%ego
|
||||
%out
|
||||
%who
|
||||
^- [chub loft]
|
||||
?: ?=(%who -.zig)
|
||||
:_ lov
|
||||
=+ all
|
||||
==
|
||||
:~ :- her
|
||||
:~ :- %who
|
||||
^- (list user)
|
||||
=< -
|
||||
%+ ~(rib by pod.lov) *(list user)
|
||||
|= [[her=@p ful=fool] fug=(list user)]
|
||||
^- [(list user) [@p fool]]
|
||||
:_ [her ful]
|
||||
?. liv.ful fug
|
||||
[[her nym.ful] fug]
|
||||
==
|
||||
==
|
||||
=+ pof=(yowl her)
|
||||
=^ zew +>.$
|
||||
?- -.zig
|
||||
%all
|
||||
:_ abet:pof
|
||||
[[%all ?:(p.zig %white sec.ful.pof) call:pof q.zig] ~]
|
||||
::
|
||||
%ego
|
||||
:_ abet:pof(elf.ful now)
|
||||
=. elf.ful.pof now
|
||||
?:(liv.ful.pof ~ [[%new call:pof] ~])
|
||||
::
|
||||
%out
|
||||
:_ abet:pof(liv.ful |)
|
||||
?.(liv.ful.pof ~ [[%out call:pof] ~])
|
||||
==
|
||||
(tilt zew)
|
||||
::
|
||||
++ yowl
|
||||
|= her=@p
|
||||
^+ of
|
||||
=+ nog=(~(get by pod.lov) her)
|
||||
=+ ^= ful ^- fool
|
||||
?^ nog u.nog
|
||||
=+ ^= gos
|
||||
%- (hard (unit gcos))
|
||||
.^(%a (scot %p her) %gcos (scot %da now) ~)
|
||||
^- fool
|
||||
:* 0
|
||||
(numb her now)
|
||||
^- sect
|
||||
?. &(?=(^ gos) ?=(%duke -.u.gos)) %white
|
||||
?.(?=(?(%lord %lady) -.p.u.gos) %white r.p.p.u.gos)
|
||||
&
|
||||
now
|
||||
==
|
||||
~(. of her ful)
|
||||
--
|
||||
--
|
||||
==
|
||||
=> %= .
|
||||
-
|
||||
:- lov=loft
|
||||
:- :* lov=*loft
|
||||
wak=@da
|
||||
==
|
||||
[who=`@p`-< how=`path`->]
|
||||
==
|
||||
|= [est=time *]
|
||||
|= ~
|
||||
^- bowl
|
||||
:- ~ :- ~
|
||||
:- ^- (list slip)
|
||||
:~ [/yo [%lq %yo]]
|
||||
[/re [%ow ~]]
|
||||
=< `bowl`[~ ~ hope vent]
|
||||
|%
|
||||
++ cede
|
||||
|= cub=chub
|
||||
^- (list gift)
|
||||
(turn cub |=([a=@p b=(list zong)] [%sq a %oy /re b]))
|
||||
::
|
||||
++ hope
|
||||
^- (list slip)
|
||||
:~ [/yo [%lq %yo]]
|
||||
[/wa [%wa wak]]
|
||||
[/re [%ow ~]]
|
||||
==
|
||||
::
|
||||
++ take
|
||||
|- ^- [chub _+]
|
||||
=^ cub lov ~(wake fu est lov)
|
||||
[cub +.$]
|
||||
::
|
||||
++ talk
|
||||
|= [her=@p zig=zing]
|
||||
^- [chub _+>]
|
||||
=^ cub lov (~(yelp fu est lov) her zig)
|
||||
[cub +>.$]
|
||||
::
|
||||
++ vent
|
||||
|= [now=@da pax=path nut=note]
|
||||
^- bowl
|
||||
=. est now
|
||||
=^ cub +>
|
||||
?+ pax !!
|
||||
/re ?>(?=(%ow -.nut) [~ +>])
|
||||
/wa ?>(?=(%wa -.nut) take(wak (add ~m1 est)))
|
||||
/yo ?>(?=(%lq -.nut) (talk p.nut ((hard zing) r.nut)))
|
||||
==
|
||||
|= [now=@da pax=path nut=note]
|
||||
=. est now
|
||||
^- bowl
|
||||
%- pogo
|
||||
:_ ^$
|
||||
^- bowl
|
||||
?+ pax !!
|
||||
/re ?>(?=(%ow -.nut) [~ ~])
|
||||
/yo
|
||||
:_ ~
|
||||
?> ?=(%lq -.nut)
|
||||
=+ zig=((hard zing) r.nut)
|
||||
=^ vey lov abet:(~(yelp fu lov) p.nut now zig)
|
||||
|- ^- (list gift)
|
||||
?~ vey ~
|
||||
=+ mor=$(vey t.vey)
|
||||
?~ q.i.vey mor
|
||||
[
|
||||
|
||||
(turn vey |=(a=(list ,[p=who zong) [%sq
|
||||
[vey ~]
|
||||
==
|
||||
[(cede cub) ~ hope ..$]
|
||||
--
|
||||
|
||||
@ -43,7 +43,7 @@
|
||||
|= [est=time *]
|
||||
|= ~
|
||||
=. pig est
|
||||
^- bowl
|
||||
|- ^- bowl
|
||||
:- ~ :- ~
|
||||
:- ^- (list slip)
|
||||
:~ [/oy [%lq %oy]]
|
||||
@ -53,13 +53,28 @@
|
||||
[/ya [%lq %ya]]
|
||||
==
|
||||
|= [now=@da pax=path nut=note]
|
||||
=. est now
|
||||
^- bowl
|
||||
%- pogo
|
||||
:_ ^$
|
||||
:_ ?.(=(/wa pax) ^$ ^$(pig (add ~s10 pig)))
|
||||
^- bowl
|
||||
?+ pax !!
|
||||
/oy
|
||||
?> ?=(%lq -.nut)
|
||||
=+ duz=((hard (list zong)) r.nut)
|
||||
:_ ~
|
||||
%+ turn duz
|
||||
|= dum=zong
|
||||
:- %la
|
||||
^- tank
|
||||
?- -.dum
|
||||
%all (rend ?:(=(%white p.dum) "& " "| ") (trip q.q.dum) r.dum)
|
||||
%new [%leaf "{(trip q.p.dum)} is in the building"]
|
||||
%out [%leaf "{(trip q.p.dum)} has left the building"]
|
||||
%who [%palm [" " "" "" ""] (turn p.dum |=(a=user [%leaf (trip q.a)]))]
|
||||
==
|
||||
::
|
||||
/re ?>(?=(%ow -.nut) [~ ~])
|
||||
::
|
||||
/up
|
||||
?> ?=(%up -.nut)
|
||||
=+ ^= rey ^- (unit ^chat)
|
||||
@ -75,20 +90,7 @@
|
||||
[p.u.rey %ya /re q.u.rey]
|
||||
[bud %yo /re ^-(zing u.rey)]
|
||||
::
|
||||
/oy
|
||||
?> ?=(%lq -.nut)
|
||||
=+ duz=((hard (list zong)) r.nut)
|
||||
:_ ~
|
||||
%+ turn duz
|
||||
|= dum=zong
|
||||
:- %la
|
||||
^- tank
|
||||
?- -.dum
|
||||
%all (rend ?:(p.dum "& " "| ") (trip q.q.dum) r.dum)
|
||||
%new [%leaf "{(trip q.p.dum)} is in the building"]
|
||||
%out [%leaf "{(trip q.p.dum)} has left the building"]
|
||||
%who [%palm [" " "" "" ""] (turn p.dum |=(a=user [%leaf (trip q.a)]))]
|
||||
==
|
||||
/wa [[`gift`[%sq bud %yo /re `zing`[%ego now]] ~] ~]
|
||||
::
|
||||
/ya
|
||||
?> ?=(%lq -.nut)
|
||||
|
||||
@ -25,6 +25,6 @@
|
||||
$% [%all p=sect q=user r=mess] :: broadcast
|
||||
[%new p=user] :: user joined
|
||||
[%out p=user] :: user left
|
||||
[%who p=(list user) q=(list user)] :: users
|
||||
[%who p=(list user)] :: users
|
||||
== ::
|
||||
--
|
||||
|
||||
@ -11,7 +11,7 @@
|
||||
:+ ~
|
||||
(weld -.u.q.top -.u.q.bot)
|
||||
|= [now=@da pax=path nut=note]
|
||||
%. [now pax nut]
|
||||
%. +<
|
||||
?:((lien -.u.q.top |=(a=slip =(pax p.a))) +.u.q.top +.u.q.bot)
|
||||
::
|
||||
++ polo :: prompt
|
||||
|
||||
Loading…
Reference in New Issue
Block a user