++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
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
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 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
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
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']]}]> (crip (en-json:html (frond:enjs:format 'foo' s+'bar')))
'{"foo":"bar"}'++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]]}]
> (crip (en-json:html (pairs:enjs:format a)))
'{"foo":123,"baz":true,"bar":"abc"}'++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']> (crip (en-json:html (tape:enjs:format "foo")))
'"foo"'++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']> (crip (en-json:html (wall:enjs:format ~["foo" "bar" "baz"])))
'"foo\\nbar\\nbaz\\n"'++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"]> (crip (en-json:html (ship:enjs:format our)))
'"zod"'++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]> (crip (en-json:html (numb:enjs:format 123)))
'123'++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]> (crip (en-json:html (sect:enjs:format now)))
'1630407290'++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]> (crip (en-json:html (time:enjs:format now)))
'1630407462905'++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']> (crip (en-json:html (path:enjs:format /foo/bar/baz)))
'"/foo/bar/baz"'++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]']]]
> (crip (en-json:html (tank:enjs:format tan)))
'["[foo bar baz]"]'> =tan rose+[[" " "[" "]"] ~[leaf+"aaaaaaaaaaaaaaaaaaaaa" leaf+"bbbbbbbbbbbbbbbbbbb" leaf+"ccccccccccccccccccc" leaf+"dddddddddddddddddd"]]
> (crip (en-json:html (tank:enjs:format tan)))
'["[ aaaaaaaaaaaaaaaaaaaaa"," bbbbbbbbbbbbbbbbbbb"," ccccccccccccccccccc"," dddddddddddddddddd","]"]'