2d(1-5): To JSON, Wains

+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']]}]

> (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]]}]
> (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']

> (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']

> (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"]

> (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]

> (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]

> (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]

> (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']

> (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]']]]
> (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","]"]'