mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
601 lines
16 KiB
Plaintext
601 lines
16 KiB
Plaintext
::
|
|
:::: /lib/hall-json/hoon
|
|
::
|
|
/- hall
|
|
/+ old-zuse
|
|
=, hall
|
|
::
|
|
|_ bol/bowl:gall
|
|
++ en-tape ::> sur to tape
|
|
|%
|
|
++ circ ::> circle
|
|
|= a/circle
|
|
:(weld (scow %p hos.a) "/" (trip nom.a))
|
|
::
|
|
++ rang ::> range
|
|
|= a/range
|
|
?~ a ~
|
|
;: weld
|
|
"/" (scow hed.u.a)
|
|
?~ tal.u.a ~
|
|
(scow u.tal.u.a)
|
|
==
|
|
::
|
|
++ sorc ::> source
|
|
|= a/source
|
|
(weld (circ cir.a) (rang ran.a))
|
|
--
|
|
::
|
|
++ de-tape ::> tape to sur (parse)
|
|
|%
|
|
++ circ ::> circle
|
|
;~((glue fas) ;~(pfix sig fed:ag) urs:ab)
|
|
::
|
|
++ pont
|
|
;~ pfix fas
|
|
%+ sear
|
|
|= a/coin
|
|
^- (unit place)
|
|
?+ a ~
|
|
{$$ $da @da} `p.a
|
|
{$$ $ud @ud} `p.a
|
|
==
|
|
nuck:so
|
|
==
|
|
::
|
|
++ sorc
|
|
;~(plug circ (punt ;~(plug pont (punt pont))))
|
|
--
|
|
::
|
|
++ enjs ::> sur to json
|
|
=, enjs:format
|
|
|%
|
|
::TODO these first few should probably make their way
|
|
:: into the stdlib...
|
|
++ sa ::> set as array
|
|
|* {a/(set) b/$-(* json)}
|
|
^- json
|
|
[%a (turn ~(tap in a) b)]
|
|
::
|
|
++ mo ::> map as object
|
|
|* {a/(map) b/$-(* @t) c/$-(* json)}
|
|
^- json
|
|
=- (pairs (turn ~(tap by a) -))
|
|
|* {k/* v/*} [(b k) (c v)]
|
|
::
|
|
++ lank ::> tank as string arr
|
|
|= a/tank
|
|
^- json
|
|
a+(turn (wash [0 1.024] a) tape)
|
|
::
|
|
++ dank ::> tank
|
|
|= a/tank
|
|
?: ?=($leaf -.a) (frond %leaf (tape p.a))
|
|
%+ frond -.a
|
|
%- pairs
|
|
?- -.a
|
|
$palm
|
|
:+ :- %style
|
|
%- pairs :~
|
|
mid+(tape p.p.a)
|
|
cap+(tape q.p.a)
|
|
open+(tape r.p.a)
|
|
close+(tape s.p.a)
|
|
==
|
|
lines+a+(turn q.a dank)
|
|
~
|
|
$rose
|
|
:+ :- %style
|
|
%- pairs :~
|
|
mid+(tape p.p.a)
|
|
open+(tape q.p.a)
|
|
close+(tape r.p.a)
|
|
==
|
|
lines+a+(turn q.a dank)
|
|
~
|
|
==
|
|
::
|
|
++ cord ::> string from cord
|
|
|= a/@t
|
|
s+a
|
|
::
|
|
++ mabe ::> null or value
|
|
|* {a/(unit) b/$-(* json)}
|
|
^- json
|
|
?~(a ~ (b u.a))
|
|
::
|
|
::> ||
|
|
::> || %query-models
|
|
::> ||
|
|
::> models relating to queries, their results and updates.
|
|
::+|
|
|
::
|
|
++ pici ::> prize-client
|
|
|= a/prize-client
|
|
^- json
|
|
%- pairs :~
|
|
:- %gys
|
|
=- (pairs ~(tap by (~(run by gys.a) -)))
|
|
|=((set (set circle)) (sa +< audi))
|
|
::
|
|
nis+(mo nis.a (cury scot %p) cord)
|
|
==
|
|
::
|
|
++ ruci ::> rumor-client
|
|
|= a/rumor-client
|
|
^- json
|
|
%+ frond -.a
|
|
?- -.a
|
|
$glyph (digy +.a)
|
|
$nick (dini +.a)
|
|
==
|
|
::
|
|
++ pack ::> package
|
|
|= a/package
|
|
^- json
|
|
%- pairs :~
|
|
nes+a+(turn nes.a enve) ::TODO maybe map
|
|
cos+(loby cos.a)
|
|
pes+(crow pes.a)
|
|
==
|
|
::
|
|
++ digy ::> diff-glyph
|
|
|= a/diff-glyph
|
|
^- json
|
|
%- pairs :~
|
|
bin+b+bin.a
|
|
gyf+s+gyf.a
|
|
aud+(audi aud.a)
|
|
==
|
|
::
|
|
++ dini ::> diff-nick
|
|
|= a/diff-nick
|
|
^- json
|
|
(pairs who+(ship who.a) nic+s+nic.a ~)
|
|
::
|
|
++ ruso ::> rumor-story
|
|
|= a/rumor-story
|
|
^- json
|
|
%+ frond -.a
|
|
?+ -.a !!
|
|
$new (conf cof.a)
|
|
:: $bear not needed
|
|
$config (pairs cir+(circ cir.a) dif+(dico dif.a) ~)
|
|
$status %- pairs :~
|
|
cir+(circ cir.a)
|
|
who+(ship who.a)
|
|
dif+(disa dif.a)
|
|
==
|
|
$remove b+&
|
|
$gram (enve nev.a)
|
|
==
|
|
::
|
|
++ dico ::> diff-config
|
|
|= a/diff-config
|
|
^- json
|
|
%+ frond -.a
|
|
?- -.a
|
|
$full (conf cof.a)
|
|
$source (pairs add+b+add.a src+(sorc src.a) ~)
|
|
$caption s+cap.a
|
|
$usage (pairs add+b+add.a tas+(sa tas.a cord) ~)
|
|
$filter (filt fit.a)
|
|
$secure s+sec.a
|
|
$permit (pairs add+b+add.a sis+(sa sis.a ship) ~)
|
|
$remove b+&
|
|
==
|
|
::
|
|
++ disa ::> diff-status
|
|
|= a/diff-status
|
|
^- json
|
|
%+ frond -.a
|
|
?- -.a
|
|
$full (stat sat.a)
|
|
$presence s+pec.a
|
|
$human (dihu dif.a)
|
|
$remove b+&
|
|
==
|
|
::
|
|
++ dihu ::> diff-human
|
|
|= a/diff-human
|
|
^- json
|
|
%+ frond -.a
|
|
?- -.a
|
|
$full (huma man.a)
|
|
$handle (frond %han (mabe han.a cord))
|
|
$true (frond %tru (mabe tru.a trun))
|
|
==
|
|
::
|
|
::> ||
|
|
::> || %circles
|
|
::> ||
|
|
::> messaging targets and their metadata
|
|
::+|
|
|
::
|
|
++ circ ::> circle
|
|
|= a/circle
|
|
^- json
|
|
s+(crip (circ:en-tape a))
|
|
::
|
|
++ loby ::> lobby
|
|
|= a/lobby
|
|
%- pairs :~
|
|
loc+(conf loc.a)
|
|
rem+(mo rem.a (cork circ:en-tape crip) conf)
|
|
==
|
|
::
|
|
++ conf ::> config
|
|
|= a/config
|
|
^- json
|
|
%- pairs :~
|
|
src+(sa src.a sorc)
|
|
cap+s+cap.a
|
|
tag+(sa tag.a cord)
|
|
fit+(filt fit.a)
|
|
con+(cont con.a)
|
|
==
|
|
::
|
|
++ sorc ::> source
|
|
|= a/source
|
|
^- json
|
|
s+(crip (sorc:en-tape a))
|
|
::
|
|
++ filt ::> filter
|
|
|= a/filter
|
|
^- json
|
|
(pairs cas+b+cas.a utf+b+utf.a ~)
|
|
::
|
|
++ cont ::> control
|
|
|= a/control
|
|
^- json
|
|
(pairs sec+s+sec.a sis+(sa sis.a ship) ~)
|
|
::
|
|
++ crow ::> crowd
|
|
|= a/crowd
|
|
^- json
|
|
%- pairs :~
|
|
loc+(grop loc.a)
|
|
rem+(mo rem.a (cork circ:en-tape crip) grop)
|
|
==
|
|
::
|
|
++ grop ::> group
|
|
|= a/group
|
|
^- json
|
|
(mo a (cury scot %p) stat)
|
|
::
|
|
++ stat ::> status
|
|
|= a/status
|
|
^- json
|
|
(pairs pec+s+pec.a man+(huma man.a) ~)
|
|
::
|
|
++ huma ::> human
|
|
|= a/human
|
|
^- json
|
|
(pairs han+(mabe han.a cord) tru+(mabe tru.a trun) ~)
|
|
::
|
|
++ trun ::> truename
|
|
|= a/truename
|
|
^- json
|
|
(pairs fir+s+fir.a mid+(mabe mid.a cord) las+s+las.a ~)
|
|
::
|
|
::> ||
|
|
::> || %message-data
|
|
::> ||
|
|
::> structures for containing main message data
|
|
::+|
|
|
::
|
|
++ enve ::> envelope
|
|
|= a/envelope
|
|
^- json
|
|
(pairs num+(numb num.a) gam+(gram gam.a) ~)
|
|
::
|
|
++ gram ::> telegram
|
|
|= a/telegram
|
|
^- json
|
|
%- pairs :~
|
|
aut+(ship aut.a)
|
|
::TODO can we avoid this code duplication somehow?
|
|
uid+s+(scot %uv uid.a)
|
|
aud+(audi aud.a)
|
|
wen+(time wen.a)
|
|
sep+(spec sep.a)
|
|
==
|
|
::
|
|
++ thot ::> thought
|
|
|= a/thought
|
|
^- json
|
|
%- pairs :~
|
|
uid+s+(scot %uv uid.a)
|
|
aud+(audi aud.a)
|
|
wen+(time wen.a)
|
|
sep+(spec sep.a)
|
|
==
|
|
::
|
|
++ spec ::> speech
|
|
|= a/speech
|
|
^- json
|
|
:: only %url has just a single piece of data.
|
|
?: ?=($url -.a)
|
|
(frond %url s+(crip (apix:en-purl:html url.a)))
|
|
%+ frond -.a
|
|
%- pairs
|
|
?- -.a
|
|
$lin ~[pat+b+pat.a msg+s+msg.a]
|
|
$exp ~[exp+s+exp.a res+a+(turn res.a lank)]
|
|
$ire ~[top+s+(scot %uv top.a) sep+(spec sep.a)] ::TODO @uv as number?
|
|
$fat ~[tac+(atta tac.a) sep+(spec sep.a)]
|
|
$inv ~[inv+b+inv.a cir+(circ cir.a)]
|
|
$app ~[app+s+app.a sep+(spec sep.a)]
|
|
==
|
|
::
|
|
++ atta ::> attache
|
|
|= a/attache
|
|
^- json
|
|
%+ frond -.a
|
|
?- -.a
|
|
$name (pairs nom+s+nom.a tac+(atta tac.a) ~)
|
|
$text s+(of-wain:format +.a)
|
|
$tank a+(turn +.a lank)
|
|
==
|
|
::
|
|
::> ||
|
|
::> || %message-metadata
|
|
::> ||
|
|
::> structures for containing message metadata
|
|
::+|
|
|
::
|
|
++ audi ::> audience
|
|
|= a/audience
|
|
^- json
|
|
(sa a circ)
|
|
--
|
|
::
|
|
++ dejs ::> json to sur
|
|
=, dejs-soft:format
|
|
|%
|
|
::TODO these first few should maybe make their way
|
|
:: into the stdlib...
|
|
++ re ::> recursive reparsers
|
|
|* {gar/* sef/_|.(fist)}
|
|
|= jon/json
|
|
^- (unit _gar)
|
|
=- ~! gar ~! (need -) -
|
|
((sef) jon)
|
|
::
|
|
++ as ::> array as set
|
|
|* a/fist
|
|
(cu ~(gas in *(set _(need *a))) (ar a))
|
|
::
|
|
++ dank ::> tank
|
|
^- $-(json (unit tank))
|
|
%+ re *tank |. ~+
|
|
%- of :~
|
|
leaf+sa
|
|
palm+(ot style+(ot mid+sa cap+sa open+sa close+sa ~) lines+(ar dank) ~)
|
|
rose+(ot style+(ot mid+sa open+sa close+sa ~) lines+(ar dank) ~)
|
|
==
|
|
::
|
|
::> ||
|
|
::> || %query-models
|
|
::> ||
|
|
::> models relating to queries, their results and updates.
|
|
::+|
|
|
::
|
|
++ pici ::> prize-client
|
|
^- $-(json (unit prize-client))
|
|
%- ot :~
|
|
gys+(om (as (as circ)))
|
|
nis+(op fed:ag so)
|
|
==
|
|
::
|
|
++ ruci ::> rumor-client
|
|
^- $-(json (unit rumor-client))
|
|
%- of :~
|
|
glyph+digy
|
|
nick+dini
|
|
==
|
|
::
|
|
++ pack ::> package
|
|
^- $-(json (unit package))
|
|
%- ot :~
|
|
nes+(ar enve)
|
|
cos+loby
|
|
pes+crow
|
|
==
|
|
::
|
|
++ digy ::> diff-glyph
|
|
^- $-(json (unit diff-glyph))
|
|
(ot bin+bo gyf+so aud+audi ~)
|
|
::
|
|
++ dini ::> diff-nick
|
|
^- $-(json (unit diff-nick))
|
|
(ot who+(su fed:ag) nic+so ~)
|
|
::
|
|
++ ruso ::> rumor-story
|
|
^- $-(json (unit rumor-story))
|
|
%- of :~
|
|
new+conf
|
|
:: bear not needed
|
|
config+(ot cir+circ dif+dico ~)
|
|
status+(ot cir+circ who+(su fed:ag) dif+disa ~)
|
|
remove+ul
|
|
gram+(ot src+circ nev+enve ~)
|
|
==
|
|
::
|
|
++ dico ::> diff-config
|
|
^- $-(json (unit diff-config))
|
|
%- of :~
|
|
full+conf
|
|
source+(ot add+bo src+sorc ~)
|
|
usage+(ot add+bo tas+(as so) ~)
|
|
caption+so
|
|
filter+filt
|
|
secure+secu
|
|
permit+(ot add+bo sis+(as (su fed:ag)) ~)
|
|
remove+ul
|
|
==
|
|
::
|
|
++ disa ::> diff-status
|
|
^- $-(json (unit diff-status))
|
|
%- of :~
|
|
full+(ot pec+pres man+huma ~)
|
|
presence+pres
|
|
human+dihu
|
|
remove+ul
|
|
==
|
|
::
|
|
++ dihu ::> diff-human
|
|
^- $-(json (unit diff-human))
|
|
%- of :~
|
|
full+huma
|
|
handle+(mu so)
|
|
true+(mu trun)
|
|
==
|
|
::
|
|
::> ||
|
|
::> || %circles
|
|
::> ||
|
|
::> messaging targets and their metadata.
|
|
::+|
|
|
::
|
|
::TODO maybe just an object?
|
|
++ circ ::> circle
|
|
^- $-(json (unit circle))
|
|
(su circ:de-tape)
|
|
::
|
|
++ loby ::> lobby
|
|
^- $-(json (unit lobby))
|
|
(ot loc+conf rem+(op circ:de-tape conf) ~)
|
|
::
|
|
++ conf ::> config
|
|
^- $-(json (unit config))
|
|
%- ot :~
|
|
src+(as sorc)
|
|
cap+so
|
|
tag+(as so)
|
|
fit+filt
|
|
con+cont
|
|
==
|
|
::
|
|
::TODO maybe just an object?
|
|
++ sorc ::> source
|
|
^- $-(json (unit source))
|
|
(su sorc:de-tape)
|
|
::
|
|
++ filt ::> filter
|
|
^- $-(json (unit filter))
|
|
(ot cas+bo utf+bo ~)
|
|
::
|
|
++ cont ::> control
|
|
^- $-(json (unit control))
|
|
(ot sec+secu sis+(as (su fed:ag)) ~)
|
|
::
|
|
++ secu ::> security
|
|
^- $-(json (unit security))
|
|
(su (perk %channel %village %journal %mailbox ~))
|
|
::
|
|
++ crow ::> crowd
|
|
^- $-(json (unit crowd))
|
|
(ot loc+grop rem+(op circ:de-tape grop) ~)
|
|
::
|
|
++ grop ::> group
|
|
^- $-(json (unit group))
|
|
(op fed:ag stat)
|
|
::
|
|
++ stat ::> status
|
|
^- $-(json (unit status))
|
|
(ot pec+pres man+huma ~)
|
|
::
|
|
++ pres ::> presence
|
|
^- $-(json (unit presence))
|
|
(su (perk %gone %idle %hear %talk ~))
|
|
::
|
|
++ huma ::> human
|
|
^- $-(json (unit human))
|
|
(ot han+(mu so) tru+(mu trun) ~)
|
|
::
|
|
++ trun ::> truename
|
|
^- $-(json (unit truename))
|
|
(ot fir+so mid+(mu so) las+so ~)
|
|
::
|
|
::> ||
|
|
::> || %message-data
|
|
::> ||
|
|
::> structures for containing main message data.
|
|
::+|
|
|
::
|
|
++ enve ::> envelope
|
|
^- $-(json (unit envelope))
|
|
(ot num+ni gam+gram ~)
|
|
::
|
|
++ gram ::> telegram
|
|
^- $-(json (unit telegram))
|
|
%- ot :~
|
|
aut+(su fed:ag)
|
|
::TODO can we do anything about this duplication?
|
|
uid+seri
|
|
aud+audi
|
|
wen+di
|
|
sep+spec
|
|
==
|
|
::
|
|
++ thot ::> thought
|
|
^- $-(json (unit thought))
|
|
%- ot :~
|
|
uid+seri
|
|
aud+audi
|
|
wen+di
|
|
sep+spec
|
|
==
|
|
::
|
|
++ spec ::> speech
|
|
^- $-(json (unit speech))
|
|
%+ re *speech |. ~+
|
|
%- of :~
|
|
lin+(ot pat+bo msg+so ~)
|
|
url+(su aurf:de-purl:html)
|
|
exp+eval
|
|
ire+(ot top+seri sep+spec ~)
|
|
fat+(ot tac+atta sep+spec ~)
|
|
inv+(ot inv+bo cir+circ ~)
|
|
app+(ot app+so sep+spec ~)
|
|
==
|
|
::
|
|
++ eval ::> %exp speech
|
|
::> extract contents of an %exp speech, evaluating
|
|
::> the {exp} if there is no {res} yet.
|
|
::
|
|
|= a/json
|
|
^- (unit {cord (list tank)})
|
|
=+ exp=((ot exp+so ~) a)
|
|
?~ exp ~
|
|
:+ ~ u.exp
|
|
=+ res=((ot res+(ar dank) ~) a)
|
|
?^ res u.res
|
|
p:(mule |.([(sell (slap !>(..zuse:old-zuse) (ream u.exp)))]~)) ::TODO oldz
|
|
::
|
|
++ atta ::> attache
|
|
^- $-(json (unit attache))
|
|
%+ re *attache |. ~+
|
|
%- of :~
|
|
name+(ot nom+so tac+atta ~)
|
|
text+(cu to-wain:format so)
|
|
tank+(ar dank)
|
|
==
|
|
::
|
|
::> ||
|
|
::> || %message-metadata
|
|
::> ||
|
|
:: structures for containing message metadata.
|
|
::+|
|
|
::
|
|
++ seri ::> serial
|
|
^- $-(json (unit serial))
|
|
(ci (slat %uv) so)
|
|
::
|
|
++ audi ::> audience
|
|
^- $-(json (unit audience))
|
|
(as circ)
|
|
--
|
|
--
|