package ppx_yojson

  1. Overview
  2. Docs

Source file integer_const.ml

1
2
3
4
5
6
7
8
let is_special_encoding c s =
  s.[0] = '0' && (s.[1] = c || s.[1] = Char.uppercase_ascii c)

let is_binary s = is_special_encoding 'b' s

let is_octal s = is_special_encoding 'o' s

let is_hexadecimal s = is_special_encoding 'x' s
OCaml

Innovation. Community. Security.