mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 11:24:21 +03:00
287 lines
6.3 KiB
Plaintext
287 lines
6.3 KiB
Plaintext
::
|
|
:::: /lib/hall/hoon
|
|
::
|
|
/- *hall
|
|
::
|
|
::::
|
|
::
|
|
|_ bol/bowl:gall
|
|
::
|
|
::TODO add to zuse?
|
|
++ true-self
|
|
|= [our/ship now/@da who/ship]
|
|
?. ?=($earl (clan:title who)) who
|
|
(sein:title our now who)
|
|
::
|
|
++ above
|
|
|= [our/ship now/@da who/ship]
|
|
?: ?=($czar (clan:title who)) ~zod
|
|
(sein:title our now who)
|
|
::
|
|
++ said-url :: app url
|
|
|= url/purl:eyre
|
|
:^ ost.bol %poke /said-url
|
|
:+ [our.bol %hall] %hall-action
|
|
^- action
|
|
:+ %phrase
|
|
[[our.bol %inbox] ~ ~]
|
|
[%app dap.bol %lin | (crip (en-purl:html url))]~ :: XX
|
|
::
|
|
++ said :: app message
|
|
|= mes/(list tank)
|
|
:- %hall-action
|
|
^- action
|
|
:- %phrase
|
|
:- [[our.bol %inbox] ~ ~]
|
|
|- ^- (list speech)
|
|
?~ mes ~
|
|
:_ $(mes t.mes)
|
|
^- speech
|
|
[%app dap.bol %lin | (crip ~(ram re i.mes))]
|
|
::
|
|
++ uniq
|
|
^- {serial _eny.bol}
|
|
[(shaf %serial eny.bol) (shax eny.bol)]
|
|
::
|
|
::TODO add to zuse?
|
|
++ simple-wrap
|
|
|= {txt/tape wyd/@ud}
|
|
^- (list tape)
|
|
?~ txt ~
|
|
=+ ^- {end/@ud nex/?}
|
|
?: (lte (lent txt) wyd) [(lent txt) &]
|
|
=+ ace=(find " " (flop (scag +(wyd) `tape`txt)))
|
|
?~ ace [wyd |]
|
|
[(sub wyd u.ace) &]
|
|
:- (tufa (scag end `(list @)`txt))
|
|
$(txt (slag ?:(nex +(end) end) `tape`txt))
|
|
::
|
|
++ range-to-path
|
|
:: msg range to path
|
|
::
|
|
:: turns a range structure into a path used for
|
|
:: subscriptions.
|
|
::
|
|
|= ran/range
|
|
^- path
|
|
?~ ran ~
|
|
:- (place-to-knot hed.u.ran)
|
|
?~ tal.u.ran ~
|
|
[(place-to-knot u.tal.u.ran) ~]
|
|
::
|
|
++ place-to-knot
|
|
:: msg pointer to path component
|
|
::
|
|
:: turns a place structure into a knot for use in
|
|
:: subscription paths.
|
|
::
|
|
|= pla/place
|
|
^- knot
|
|
?. ?=($sd -.pla) (scot -.pla +.pla)
|
|
(cat 3 '-' (scot %ud (abs:si +.pla)))
|
|
::
|
|
++ path-to-range
|
|
:: path to msg range
|
|
::
|
|
:: turns the tail of a subscription path into a
|
|
:: range structure, skipping over non-range terms.
|
|
::
|
|
|= pax/path
|
|
^- range
|
|
?~ pax ~
|
|
=/ hes/(unit place) (rush i.pax placer)
|
|
:: skip past non-number parts of path.
|
|
?~ hes $(pax t.pax)
|
|
:+ ~ u.hes
|
|
?~ t.pax ~
|
|
(rush i.t.pax placer)
|
|
::
|
|
++ placer
|
|
:: parse a range place
|
|
;~ pose
|
|
(stag %ud dem:ag)
|
|
::
|
|
=- (stag %da (sear - crub:so))
|
|
|= a/dime
|
|
^- (unit @da)
|
|
?:(?=($da p.a) `q.a ~)
|
|
::
|
|
%+ stag %sd
|
|
%+ cook (cury new:si |)
|
|
;~(pfix hep dem:ag)
|
|
==
|
|
::
|
|
++ change-glyphs :: ...
|
|
::
|
|
|= {gys/(jug char audience) bin/? gyf/char aud/audience}
|
|
^+ gys
|
|
:: simple bind.
|
|
?: bin (~(put ju gys) gyf aud)
|
|
:: unbind all of glyph.
|
|
?~ aud (~(del by gys) gyf)
|
|
:: unbind single.
|
|
(~(del ju gys) gyf aud)
|
|
::
|
|
++ change-nicks
|
|
:: change nick map
|
|
::
|
|
:: changes a nickname in a map, adding if it doesn't
|
|
:: yet exist, removing if the nickname is empty.
|
|
::
|
|
|= {nis/(map ship cord) who/ship nic/cord}
|
|
^+ nis
|
|
?: =(nic '')
|
|
(~(del by nis) who)
|
|
(~(put by nis) who nic)
|
|
::
|
|
++ change-config
|
|
:: applies a config diff to the given config.
|
|
::
|
|
|= {cof/config dif/diff-config}
|
|
^+ cof
|
|
?- -.dif
|
|
$full cof.dif
|
|
$caption cof(cap cap.dif)
|
|
$filter cof(fit fit.dif)
|
|
$remove cof
|
|
$read cof(red red.dif)
|
|
::
|
|
$usage
|
|
%= cof
|
|
tag
|
|
%. tas.dif
|
|
?: add.dif
|
|
~(uni in tag.cof)
|
|
~(dif in tag.cof)
|
|
==
|
|
::
|
|
$source
|
|
%= cof
|
|
src
|
|
%. src.dif
|
|
?: add.dif
|
|
~(put in src.cof)
|
|
~(del in src.cof)
|
|
==
|
|
::
|
|
$permit
|
|
%= cof
|
|
sis.con
|
|
%. sis.dif
|
|
?: add.dif
|
|
~(uni in sis.con.cof)
|
|
~(dif in sis.con.cof)
|
|
==
|
|
::
|
|
$secure
|
|
%= cof
|
|
sec.con
|
|
sec.dif
|
|
::
|
|
sis.con
|
|
?. .= ?=(?($white $green) sec.dif)
|
|
?=(?($white $green) sec.con.cof)
|
|
~
|
|
sis.con.cof
|
|
==
|
|
==
|
|
::
|
|
++ change-status
|
|
:: applies a status diff to the given 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 [han.man.sat tru.dif.dif]
|
|
$handle [han.dif.dif tru.man.sat]
|
|
==
|
|
==
|
|
==
|
|
::
|
|
::TODO annotate all!
|
|
++ 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:wired 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+`@tas`q.p.i.wer !!)
|
|
(^$(buk t-buk) wer)
|
|
::
|
|
++ or
|
|
=+ typ=$:|-($@(@tas {@tas $}))
|
|
|@ ++ $
|
|
|= con/coin
|
|
::^- _(snag *@ (turn (limo typ) |*(a/@tas [a (odo:raid:wired a)])))
|
|
?> ?=($$ -.con)
|
|
=/ i-typ ?@(typ typ -.typ)
|
|
?: =(i-typ p.p.con)
|
|
:- i-typ
|
|
^- (odo:raid:wired i-typ)
|
|
q.p.con
|
|
?@ typ ~|(%bad-odor !!)
|
|
(^$(typ +.typ) con)
|
|
--
|
|
::
|
|
++ do
|
|
|* typ/@tas
|
|
=/ typecheck `@tas`typ
|
|
|= con/coin
|
|
^- (odo:raid:wired 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 *)
|
|
|= wer/weir ^+ *wit
|
|
?~ wer !!
|
|
?^ t.wer !!
|
|
(wit i.wer)
|
|
--
|
|
--
|