qmcchem/ocaml/String_ext.ml

include String

(** Split a string on a given character *)
let split ?(on=' ') str =
  split_on_char on str


(** Strip blanks on the left of a string *)
let ltrim s =
    let rec do_work s l =
        match s.[0] with
        | '\n'
        | ' ' -> do_work (sub s 1 (l-1)) (l-1)
        | _ -> s
    in
    let l =
        length s
    in
    if (l > 0) then
        do_work s l
    else
        s

(** Strip blanks on the right of a string *)
let rtrim s =
    let rec do_work s l =
        let newl =
            l-1
        in
        match s.[newl] with
        | '\n'
        | ' ' -> do_work (sub s 0 (newl)) (newl)
        | _ -> s
    in
    let l =
        length s
    in
    if (l > 0) then
        do_work s l
    else
        s


(** Strip blanks on the right and left of a string *)
let strip = String.trim


(** Split a string in two pieces when a character is found the 1st time from the left *)
let lsplit2_exn ?(on=' ') s =
    let length =
        String.length s
    in
    let rec do_work i =
        if (i = length) then
           begin
              raise Not_found
           end
        else if (s.[i] = on) then
           ( String.sub s 0 i,
             String.sub s (i+1) (length-i-1) )
        else
           do_work (i+1)
    in
    do_work 0


(** Split a string in two pieces when a character is found the 1st time from the right *)
let rsplit2_exn ?(on=' ') s =
    let length =
        String.length s 
    in
    let rec do_work i =
        if (i = -1) then
           begin
              raise Not_found
           end
        else if (s.[i] = on) then
           ( String.sub s 0 i,
             String.sub s (i+1) (length-i-1) )
        else
           do_work (i-1)
    in
    do_work (length-1)


let lsplit2 ?(on=' ') s =
  try
    Some (lsplit2_exn ~on s)
  with
  | Not_found -> None


let rsplit2 ?(on=' ') s =
  try
    Some (rsplit2_exn ~on s)
  with
  | Not_found -> None


let to_list s =
  Array.init (String.length s) (fun i -> s.[i])
  |> Array.to_list


let of_list l =
  let a = Array.of_list l in
  String.init (Array.length a) (fun i -> a.(i))

let rev s =
  to_list s
  |> List.rev
  |> of_list

let fold ~init ~f s =
    to_list s
    |> List.fold_left f init


let is_prefix ~prefix s =
  let len =
    String.length prefix
  in
  if len > String.length s then
    false
  else
    prefix = String.sub s 0 len


let of_char c =
  String.make 1 c

let tr ~target ~replacement s =
  String.map (fun c -> if c = target then replacement else c) s


let substr_index ?(pos=0) ~pattern s =
  try
    let regexp = 
      Str.regexp pattern
    in
    Some (Str.search_forward regexp s pos)
  with Not_found -> None


let substr_replace_all ~pattern ~with_ s =
  let regexp =
    Str.regexp pattern
  in
  Str.global_replace regexp with_ s


let input_lines ic =                                                                    
  let rec aux ic accu =
    try
      aux ic ((input_line ic)::accu)
    with
    | End_of_file -> List.rev accu
  in
  aux ic []