2d(1-5): To JSON, Wains
+to-wain:format
+to-wain:format
Cord 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:format
Line 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:format
Line 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:format
json 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:format
Container 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:format
Object 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:format
Object 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:format
String 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:format
String 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:format
String* 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:format
Number 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:format
Seconds 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:format
Millisecond 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:format
String 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:format
Tank 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