2015-01-15 22:32:04 +03:00
|
|
|
::
|
2016-02-11 03:41:28 +03:00
|
|
|
:::: /hoon/talk/lib
|
2017-04-25 22:21:46 +03:00
|
|
|
::
|
2015-01-15 22:32:04 +03:00
|
|
|
:: This file is in the public domain.
|
|
|
|
::
|
2017-04-25 22:21:46 +03:00
|
|
|
/? 310
|
2015-09-01 23:56:42 +03:00
|
|
|
/- talk
|
2015-06-05 02:24:55 +03:00
|
|
|
!:
|
2015-01-15 22:32:04 +03:00
|
|
|
::::
|
|
|
|
::
|
2015-09-02 03:24:18 +03:00
|
|
|
[. ^talk]
|
2016-03-15 03:37:34 +03:00
|
|
|
|_ bol/bowl
|
2015-01-15 22:32:04 +03:00
|
|
|
++ main :: main story
|
2017-06-13 01:19:45 +03:00
|
|
|
|= who/ship ^- cord
|
|
|
|
=+ can=(clan who)
|
2015-01-15 22:32:04 +03:00
|
|
|
?+ can %porch
|
2015-12-09 04:54:26 +03:00
|
|
|
$czar %court
|
|
|
|
$king %floor
|
2017-04-25 22:21:46 +03:00
|
|
|
==
|
2015-06-02 21:36:56 +03:00
|
|
|
::
|
2017-06-13 01:19:45 +03:00
|
|
|
::TODO add to zuse?
|
|
|
|
++ true-self
|
|
|
|
|= who/ship
|
|
|
|
?. ?=($earl (clan who)) who
|
|
|
|
(sein who)
|
|
|
|
::
|
2017-06-14 03:51:10 +03:00
|
|
|
++ above
|
|
|
|
|= who/ship
|
|
|
|
?: ?=($czar (clan who)) ~zod
|
|
|
|
(sein who)
|
|
|
|
::
|
2016-03-15 03:37:34 +03:00
|
|
|
++ said-url :: app url
|
|
|
|
|= url/purl
|
2016-03-15 04:02:59 +03:00
|
|
|
:^ ost.bol %poke /said-url
|
2017-04-14 01:46:15 +03:00
|
|
|
:+ [our.bol %talk] %talk-action
|
|
|
|
^- action
|
|
|
|
:+ %phrase
|
|
|
|
[[%& our.bol (main our.bol)] ~ ~]
|
|
|
|
[%app dap.bol (crip (earn url))]~ :: XX
|
2016-03-15 03:37:34 +03:00
|
|
|
::
|
2015-06-02 02:25:22 +03:00
|
|
|
++ said :: app message
|
2016-08-11 21:15:06 +03:00
|
|
|
|= {our/@p dap/term now/@da eny/@uvJ mes/(list tank)}
|
2017-04-14 01:46:15 +03:00
|
|
|
:- %talk-action
|
|
|
|
^- action
|
|
|
|
:- %convey
|
2015-06-05 02:24:55 +03:00
|
|
|
|- ^- (list thought)
|
|
|
|
?~ mes ~
|
2015-06-06 02:01:44 +03:00
|
|
|
:_ $(mes t.mes, eny (sham eny mes))
|
|
|
|
^- thought
|
|
|
|
:+ (shaf %thot eny)
|
2015-06-09 22:17:02 +03:00
|
|
|
[[[%& our (main our)] [*envelope %pending]] ~ ~]
|
|
|
|
[now *bouquet [%app dap (crip ~(ram re i.mes))]]
|
2017-04-10 23:35:25 +03:00
|
|
|
::
|
|
|
|
++ uniq
|
|
|
|
|= eny/@uvJ
|
2017-05-13 01:05:49 +03:00
|
|
|
^- (quid serial eny)
|
2017-04-10 23:35:25 +03:00
|
|
|
[(shaf %serial eny) (shax eny)]
|
2017-05-13 01:05:49 +03:00
|
|
|
::
|
|
|
|
++ change-glyphs ::< ...
|
|
|
|
::>
|
|
|
|
::
|
|
|
|
|= {gys/(jug char (set partner)) bin/? gyf/char pas/(set partner)}
|
|
|
|
^+ gys
|
|
|
|
:: simple bind.
|
|
|
|
?: bin (~(put ju gys) gyf pas)
|
|
|
|
:: unbind all of glyph.
|
|
|
|
?~ pas (~(del by gys) gyf)
|
|
|
|
:: unbind single.
|
|
|
|
(~(del ju gys) gyf pas)
|
|
|
|
::
|
|
|
|
++ change-nicks ::< ...
|
|
|
|
::>
|
|
|
|
::
|
|
|
|
|= {nis/(map ship cord) who/ship nic/cord}
|
|
|
|
^+ nis
|
|
|
|
?: =(nic '')
|
|
|
|
(~(del by nis) who)
|
|
|
|
(~(put by nis) who nic)
|
|
|
|
::
|
|
|
|
++ change-friends ::< ...
|
|
|
|
::>
|
|
|
|
::
|
|
|
|
|= {cis/(set circle) add/? cir/circle}
|
|
|
|
^+ cis
|
|
|
|
%. cir
|
|
|
|
?: add
|
|
|
|
~(put in cis)
|
|
|
|
~(del in cis)
|
|
|
|
::
|
|
|
|
++ change-config ::< ...
|
|
|
|
::>
|
|
|
|
::
|
|
|
|
|= {cof/config dif/diff-config}
|
|
|
|
^+ cof
|
|
|
|
?- -.dif
|
|
|
|
$full cof.dif
|
|
|
|
$caption cof(cap cap.dif)
|
|
|
|
$filter cof(fit fit.dif)
|
|
|
|
$remove cof
|
|
|
|
::
|
2017-06-13 01:19:45 +03:00
|
|
|
$sourcee
|
2017-05-13 01:05:49 +03:00
|
|
|
%= cof
|
2017-06-13 01:19:45 +03:00
|
|
|
sre
|
2017-05-13 01:05:49 +03:00
|
|
|
%. `(set partner)`pas.dif ::TODO? why do we *need* to cast?
|
2017-06-13 01:19:45 +03:00
|
|
|
~& [%doing-sourcee add.dif pas.dif]
|
2017-05-13 01:05:49 +03:00
|
|
|
?: add.dif
|
2017-06-13 01:19:45 +03:00
|
|
|
~(uni in sre.cof)
|
|
|
|
~(dif in sre.cof)
|
2017-05-13 01:05:49 +03:00
|
|
|
==
|
|
|
|
::
|
|
|
|
$permit
|
|
|
|
%= cof
|
|
|
|
ses.con
|
|
|
|
%. sis.dif
|
|
|
|
?: add.dif
|
|
|
|
~(uni in ses.con.cof)
|
|
|
|
~(dif in ses.con.cof)
|
|
|
|
==
|
|
|
|
::
|
|
|
|
$secure
|
|
|
|
%= cof
|
|
|
|
sec.con
|
|
|
|
sec.dif
|
|
|
|
::
|
|
|
|
ses.con
|
|
|
|
?. .= ?=(?($white $green) sec.dif)
|
|
|
|
?=(?($white $green) sec.con.cof)
|
|
|
|
~
|
|
|
|
ses.con.cof
|
|
|
|
==
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ change-status ::< ...
|
|
|
|
::>
|
|
|
|
::
|
|
|
|
|= {sat/status dif/diff-status}
|
|
|
|
^+ sat
|
|
|
|
?- -.dif
|
|
|
|
$full sat.dif
|
|
|
|
$presence sat(pec pec.dif)
|
|
|
|
$remove sat
|
|
|
|
::
|
|
|
|
$human
|
|
|
|
%= sat
|
|
|
|
man
|
|
|
|
?- -.dif.dif
|
|
|
|
$full man.dif.dif
|
|
|
|
$true [tru.dif.dif han.man.sat]
|
|
|
|
$handle [tru.man.sat han.dif.dif]
|
|
|
|
==
|
|
|
|
==
|
|
|
|
==
|
2017-06-13 01:19:45 +03:00
|
|
|
::
|
|
|
|
++ depa :: de-pathing core
|
|
|
|
=> |% ++ grub * :: result
|
|
|
|
++ weir (list coin) :: parsed wire
|
|
|
|
++ fist $-(weir grub) :: reparser instance
|
|
|
|
--
|
|
|
|
|%
|
|
|
|
::
|
|
|
|
++ al
|
|
|
|
|* {hed/$-(coin *) tal/fist}
|
|
|
|
|= wir/weir ^+ [*hed *tal]
|
|
|
|
?~ wir !!
|
|
|
|
[(hed i.wir) (tal t.wir)]
|
|
|
|
::
|
|
|
|
++ at
|
|
|
|
|* typ/{@tas (pole @tas)}
|
|
|
|
=+ [i-typ t-typ]=typ
|
|
|
|
|= wer/weir
|
|
|
|
^- (tup:dray i-typ t-typ) ::< ie, (tup %p %tas ~) is {@p @tas}
|
|
|
|
?~ wer !!
|
|
|
|
?~ t-typ
|
|
|
|
?^ t.wer !!
|
|
|
|
((do i-typ) i.wer)
|
|
|
|
:- ((do i-typ) i.wer)
|
|
|
|
(^$(typ t-typ) t.wer)
|
|
|
|
::
|
|
|
|
++ mu :: true unit
|
|
|
|
|* wit/fist
|
|
|
|
|= wer/weir
|
|
|
|
?~(wer ~ (some (wit wer)))
|
|
|
|
::
|
|
|
|
++ af :: object as frond
|
|
|
|
|* buk/(pole {cord fist})
|
|
|
|
|= wer/weir
|
|
|
|
?> ?=({{$$ $tas @tas} *} wer)
|
|
|
|
?~ buk !!
|
|
|
|
=+ [[tag wit] t-buk]=buk
|
|
|
|
?: =(tag q.p.i.wer)
|
|
|
|
[tag ~|(tag+`@tas`tag (wit t.wer))]
|
|
|
|
?~ t-buk ~|(bad-tag+q.p.i.wer !!)
|
|
|
|
(^$(buk t-buk) wer)
|
|
|
|
::
|
|
|
|
++ or
|
|
|
|
|* typ/|-($@(@tas {@tas $}))
|
|
|
|
|= con/coin
|
|
|
|
::^- _(snag *@ (turn (limo typ) |*(a/@tas [a (odo:raid a)])))
|
|
|
|
?> ?=($$ -.con)
|
|
|
|
=/ i-typ ?@(typ typ -.typ)
|
|
|
|
?: =(i-typ p.p.con)
|
|
|
|
:- i-typ
|
|
|
|
^- (odo:raid i-typ)
|
|
|
|
q.p.con
|
|
|
|
?@ typ ~|(%bad-odor !!)
|
|
|
|
(^$(typ +.typ) con)
|
|
|
|
::
|
|
|
|
++ do
|
|
|
|
|* typ/@tas
|
|
|
|
|= con/coin
|
|
|
|
^- (odo:raid typ)
|
|
|
|
?. ?=($$ -.con) ~|(%not-dime !!)
|
|
|
|
?. =(typ p.p.con) ~|(bad-odor+`@tas`p.p.con !!)
|
|
|
|
q.p.con
|
|
|
|
::
|
|
|
|
++ ul :: null
|
|
|
|
|=(wer/weir ?~(wer ~ !!))
|
|
|
|
::
|
|
|
|
++ un
|
|
|
|
|* wit/$-(coin *)
|
|
|
|
|= wir/weir ^+ *wit
|
|
|
|
?~ wir !!
|
|
|
|
?^ t.wir !!
|
|
|
|
(wit i.wir)
|
|
|
|
--
|
2015-01-15 22:32:04 +03:00
|
|
|
--
|