mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
286 lines
7.7 KiB
Plaintext
286 lines
7.7 KiB
Plaintext
::
|
|
:::: /lib/talk-json/hoon
|
|
::
|
|
/- talk
|
|
::
|
|
::> proposed rules for sur-json conversion, adhered to below:
|
|
::> 1. to save the devs from having to learn multiple interfaces, try to match
|
|
::> the hoon structure as closely as possible, including attribute names.
|
|
::> 2. if these names are p/q/r, ~slightly more semantic naming is preferred~
|
|
::> fix that in the sur file.
|
|
::> 2. when dealing with $%, the tag is the variable name. ie `{$x ...}` -> `x`
|
|
::> for tagged unions with one piece of data, `x` holds that value.
|
|
::> for tagged unions with multiple pieces of data, `x` is an object.
|
|
::> 3. lists and sets become arrays. maps become objects.
|
|
::> 4. stringify cells only when/in a way such that it benefits the majority of
|
|
::> foreseen usecases.
|
|
::
|
|
|%
|
|
++ en-tape ::> sur to tape
|
|
=, talk
|
|
|%
|
|
++ 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)
|
|
=, talk
|
|
|%
|
|
++ circ ::> circle
|
|
;~((glue fas) ;~(pfix sig fed:ag) urt:ab)
|
|
::
|
|
++ rang ::> range
|
|
=/ pont
|
|
;~ pose
|
|
(stag %ud dim:ag)
|
|
%+ stag %da
|
|
%+ sear
|
|
|= a/coin
|
|
^- (unit @da)
|
|
?. ?=({$$ $da @da} a) ~
|
|
`q.p.a
|
|
nuck:so
|
|
==
|
|
=+ ;~ pose
|
|
(cook some ;~(pfix fas pont))
|
|
(easy ~)
|
|
==
|
|
;~ pose
|
|
(cook some ;~(plug ;~(pfix fas pont) -))
|
|
(easy ~)
|
|
==
|
|
::
|
|
++ sorc ::> source
|
|
;~(plug circ rang)
|
|
--
|
|
::
|
|
++ en-json ::> sur to json
|
|
=, talk
|
|
=, enjs:format
|
|
|%
|
|
::TODO these first few should probably make their way
|
|
:: into the stdlib...
|
|
++ sa ::> set as array
|
|
|* {a/(set) b/$-(* json)}
|
|
^- json
|
|
[%a ~(tap in (~(run in a) b))]
|
|
::
|
|
++ 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)
|
|
~
|
|
==
|
|
::
|
|
::
|
|
++ circ ::> circle
|
|
|= a/circle
|
|
^- json
|
|
s+(crip (circ:en-tape a))
|
|
::
|
|
++ filt ::> filter
|
|
|= a/filter
|
|
^- json
|
|
(pairs cas+b+cas.a utf+b+utf.a ~)
|
|
::
|
|
++ sorc ::> source
|
|
|= a/source
|
|
^- json
|
|
s+(crip (sorc:en-tape 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 dank)]
|
|
$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 msg+s+msg.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 dank)
|
|
==
|
|
--
|
|
::
|
|
++ de-json ::> json to sur
|
|
=, talk
|
|
=, dejs-soft:format
|
|
|%
|
|
::TODO these first few should maybe make their way
|
|
:: into the stdlib...
|
|
++ as ::> array as set
|
|
|* a/fist
|
|
(cu ~(gas in *(set _(need *a))) (ar a))
|
|
::
|
|
++ dank ::> tank
|
|
^- $-(json (unit 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) ~)
|
|
==
|
|
::
|
|
::
|
|
++ dist
|
|
^- $-(json (unit diff-status))
|
|
%- of :~
|
|
full+(ot pec+pres man+huma ~)
|
|
presence+pres
|
|
human+dihu
|
|
remove+ul
|
|
==
|
|
::
|
|
++ dihu
|
|
^- $-(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)
|
|
::
|
|
::TODO maybe just an object?
|
|
++ sorc ::> source
|
|
^- $-(json (unit source))
|
|
(su sorc:de-tape)
|
|
::
|
|
++ filt ::> filter
|
|
^- $-(json (unit filter))
|
|
(ot cas+bo utf+bo ~)
|
|
::
|
|
++ 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 thought))
|
|
:: (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))
|
|
(of lin+(ot pat+bo txt+so ~) ~)
|
|
::%- of :~
|
|
:: lin+(ot pat+bo txt+so ~)
|
|
:: url+(su aurf:de-purl:html)
|
|
:: exp+(ot exp+so res+(ar dank) ~)
|
|
:: ire+(ot top+seri sep+spec ~)
|
|
:: fat+(ot tac+atta sep+spec ~)
|
|
:: inv+(ot inv+bo cir+circ ~)
|
|
::==
|
|
::
|
|
++ atta ::> attache
|
|
^- $-(json (unit 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)
|
|
--
|
|
--
|