2d(1-5): To JSON, Wains
+to-wain:format
+to-wain:formatCord to line list
Convert txt to a wain, breaking on newline characters.
Accepts
txt is a @t.
Produces
A $wain, which is a (list @t).
Source
++ to-wain
|= txt=cord
^- wain
=/ len=@ (met 3 txt)
=/ cut =+(cut -(a 3, c 1, d txt))
=/ sub sub
=| [i=@ out=wain]
|- ^+ out
=+ |- ^- j=@
?: ?| =(i len)
=(10 (cut(b i)))
==
i
$(i +(i))
=. out :_ out
(cut(b i, c (sub j i)))
?: =(j len)
(flop out)
$(i +(j))Examples
> (to-wain:format 'foo\0abar\0abaz')
<|foo bar baz|>+of-wain:format
+of-wain:formatLine list to cord
Convert tez to a cord, separating each line with a newline character.
Accepts
tez is a $wain, which is a (list @t).
Produces
A @t.
Source
++ of-wain
|= tez=wain ^- cord
(rap 3 (join '\0a' tez))Examples
> (of-wain:format ~['foo' 'bar' 'baz'])
'foo\0abar\0abaz'+of-wall:format
+of-wall:formatLine list to tape
Convert .a to a tape, separating each line with a newline character.
Accepts
.a is a +wall, which is a (list tape)
Produces
A $tape.
Source
++ of-wall
|= a=wall ^- tape
?~(a ~ "{i.a}\0a{$(a t.a)}")Examples
> (of-wall:format ~["foo" "bar" "baz"])
"foo\0abar\0abaz\0a"+json-rn:format
+json-rn:formatjson to rn parser
This function is used internally by +ne and would not typically be used directly. It is a $rule that parses a real number string to a +rn in a unit.
Accepts
A $nail containing a real number.
Produces
An $edge containing a (unit rn).
Source
++ json-rn
%+ knee *rn |.
;~ plug
(easy %d)
;~(pose (cold | hep) (easy &))
;~ plug dim:ag
;~ pose
;~ pfix dot
%+ sear
|= a=tape
=/ b (rust a dum:ag)
?~ b ~
(some [(lent a) u.b])
(plus (shim '0' '9'))
==
(easy [0 0])
==
;~ pose
;~ pfix
(mask "eE")
;~ plug
;~(pose (cold | hep) (cold & lus) (easy &))
;~ pose
;~(pfix (plus (just '0')) dim:ag)
dim:ag
==
==
==
(easy [& 0])
==
==
==Examples
> (rush '2.47' json-rn:format)
[~ [%d a=%.y b=[c=2 [d=2 e=47] f=%.y i=0]]]> (rush '123' json-rn:format)
[~ [%d a=%.y b=[c=123 [d=0 e=0] f=%.y i=0]]]> (rush 'a' json-rn:format)
~+enjs:format
+enjs:formatContainer arm for JSON encoders
The +core inside this arm contains a collection of functions for converting various types of data to $json. The $json type is defined in lull.hoon as:
+$ json :: normal json value
$@ ~ :: null
$% [%a p=(list json)] :: array
[%b p=?] :: boolean
[%o p=(map @t json)] :: object
[%n p=@ta] :: number
[%s p=@t] :: string
== ::This container arm doesn't do anything itself. The different $json encoding functions are documented individually below.
+frond:enjs:format
+frond:enjs:formatObject from key-value pair
Produces a $json object containing .q with a key of .p.
Accepts
.p is a @t key.
.q is any $json.
Produces
A $json object.
Source
++ frond
|= [p=@t q=json]
^- json
[%o [[p q] ~ ~]]Examples
> (frond:enjs:format 'foo' s+'bar')
[%o p={[p='foo' q=[%s p='bar']]}]> (en:json:html (frond:enjs:format 'foo' s+'bar'))
'{"foo":"bar"}'+pairs:enjs:format
+pairs:enjs:formatObject from key-value pair list
Produces a $json object containing each key-value pair in list .a.
Accepts
.a is a (list [@t json]).
Produces
A $json object.
Source
++ pairs
|= a=(list [p=@t q=json])
^- json
[%o (~(gas by *(map @t json)) a)]Examples
> =a ~[['foo' n+~.123] ['bar' s+'abc'] ['baz' b+&]]
> (pairs:enjs:format a)
[%o p={[p='bar' q=[%s p='abc']] [p='baz' q=[%b p=%.y]] [p='foo' q=[%n p=~.123]]}]
> (en:json:html (pairs:enjs:format a))
'{"foo":123,"baz":true,"bar":"abc"}'+tape:enjs:format
+tape:enjs:formatString from tape
Converts .a into a $json string.
Accepts
.a is a $tape.
Produces
A $json string.
Source
++ tape
|= a=^tape
^- json
[%s (crip a)]Examples
> (tape:enjs:format "foo")
[%s p='foo']> (en:json:html (tape:enjs:format "foo"))
'"foo"'+wall:enjs:format
+wall:enjs:formatString from wall
Converts .a to a $json string, separating lines with newline characters.
Accepts
.a is a +wall, which is a (list tape).
Produces
A $json string.
Source
++ wall
|= a=^wall
^- json
(tape (of-wall a))Examples
> (wall:enjs:format ~["foo" "bar" "baz"])
[%s p='foo\0abar\0abaz\0a']> (en:json:html (wall:enjs:format ~["foo" "bar" "baz"]))
'"foo\\nbar\\nbaz\\n"'+ship:enjs:format
+ship:enjs:formatString* from ship
Convert ship .a to a $json string*.
Note: Currently this produces a $json number rather than string, but with the ship name rendered as text rather than a number. This is for Landscape performance reasons and may be reverted at some point.
Accepts
.a is a @p.
Produces
A $json string number but with the @p rendered as text rather than a number.
Source
++ ship
|= a=^ship
^- json
[%n (rap 3 '"' (rsh [3 1] (scot %p a)) '"' ~)]Examples
> (ship:enjs:format our)
[%n p=~."zod"]> (en:json:html (ship:enjs:format our))
'"zod"'+numb:enjs:format
+numb:enjs:formatNumber from unsigned
Convert .a to a $json number.
Accepts
.a is a @u
Produces
A $json number.
Source
++ numb
|= a=@u
^- json
:- %n
?: =(0 a) '0'
%- crip
%- flop
|- ^- ^tape
?:(=(0 a) ~ [(add '0' (mod a 10)) $(a (div a 10))])Examples
> (numb:enjs:format 123)
[%n p=~.123]> (numb:enjs:format 0xffff)
[%n p=~.65535]> (en:json:html (numb:enjs:format 123))
'123'+sect:enjs:format
+sect:enjs:formatSeconds timestamp
Convert time .a to a Unix seconds timestamp in a $json number.
Accepts
.a is a @da.
Produces
A $json number.
Source
++ sect
|= a=^time
(numb (unt:chrono:userlib a))Examples
> (sect:enjs:format now)
[%n p=~.1630407271]> (en:json:html (sect:enjs:format now))
'1630407290'+time:enjs:format
+time:enjs:formatMillisecond timestamp
Convert time .a to a Unix milliseconds timestamp in a $json number.
Accepts
.a is a @da.
Produces
A $json number.
Source
++ time
|= a=^time
(numb (unm:chrono:userlib a))Examples
> (time:enjs:format now)
[%n p=~.1630407451204]> (en:json:html (time:enjs:format now))
'1630407462905'+path:enjs:format
+path:enjs:formatString from path
Encode path .a in a $json string.
Accepts
.a is a $path
Produces
A $json string.
Source
++ path
|= a=^path
^- json
[%s (spat a)]Examples
> (path:enjs:format /foo/bar/baz)
[%s p='/foo/bar/baz']> (en:json:html (path:enjs:format /foo/bar/baz))
'"/foo/bar/baz"'+tank:enjs:format
+tank:enjs:formatTank as string array
Convert tank .a into a $json array of strings. The tank is passed through +wash with a maximum width of 80 characters specified, so may be split into multiple strings if it's too wide.
Accepts
.a is a $tank
Produces
A $json array of strings.
Source
++ tank
|= a=^tank
^- json
[%a (turn (wash [0 80] a) tape)]Examples
> =tan rose+[[" " "[" "]"] ~[leaf+"foo" leaf+"bar" leaf+"baz"]]
> (tank:enjs:format tan)
[%a p=~[[%s p='[foo bar baz]']]]
> (en:json:html (tank:enjs:format tan))
'["[foo bar baz]"]'> =tan rose+[[" " "[" "]"] ~[leaf+"aaaaaaaaaaaaaaaaaaaaa" leaf+"bbbbbbbbbbbbbbbbbbb" leaf+"ccccccccccccccccccc" leaf+"dddddddddddddddddd"]]
> (en:json:html (tank:enjs:format tan))
'["[ aaaaaaaaaaaaaaaaaaaaa"," bbbbbbbbbbbbbbbbbbb"," ccccccccccccccccccc"," dddddddddddddddddd","]"]'Last updated