package jsonxt

  1. Overview
  2. Docs
package jsonxt
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file utils.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
let nibble_to_hex i = char_of_int (if i > 9 then 65 + i - 10 else 48 + i)

let add_hex_byte ~add_char i =
  add_char (nibble_to_hex ((i lsr 4) land 0x0f));
  add_char (nibble_to_hex (i land 0x0f))

let escape ~add_char ~add_string s =
  let l = String.length s in
  for i = 0 to l - 1 do
    match s.[i] with
    | '"'    -> add_string "\\\""
    | '\\'   -> add_string "\\\\"
    | '\b'   -> add_string "\\b"
    | '\012' -> add_string "\\f"
    | '\n'   -> add_string "\\n"
    | '\r'   -> add_string "\\r"
    | '\t'   -> add_string "\\t"
    | '\x00'..'\x1F'
    | '\x7F' as c ->
      add_string "\\u00";  add_hex_byte ~add_char (int_of_char c)
    | _      -> add_char s.[i]
  done