shithub: martian9

ref: 60993540fa2f1383724705faf0796202250c63f6
dir: /utils.ml/

View raw version 
exception Syntax_error of string

exception Runtime_error of string

(* copied verbatim - must needs grok *)
let gsub re f str =
  String.concat "" (List.map (function Str.Delim x -> f x | Str.Text x -> x) (Str.full_split re str))