Source file `ppx_string_runtime.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open Stdlib
open StdLabels

module type S = Ppx_string_runtime_intf.S

module For_string = struct
  let empty = ""
  let of_string t = t
  let convert t = t
  let concat list = String.concat ~sep:"" list

  let pad t ~len =
    let n = String.length t in
    if n >= len then t else String.make (len - n) ' ' ^ t
  ;;

  external identity : string -> string = "%identity"
end