trunk/schema/schema_pcre.ml

open Encodings.Utf8

let pcre_replace ~rex ?templ s =
  match templ with
    | None -> mk (Pcre.replace ~rex (get_str s))
    | Some templ ->
        mk (Pcre.replace ~rex ~templ:(get_str templ) (get_str s))
let pcre_extract ~rex s = Array.map mk (Pcre.extract ~rex (get_str s))
let pcre_regexp s = Pcre.regexp ~flags:[`UTF8] s
let pcre_split ~rex s = List.map mk (Pcre.split ~rex (get_str s))
1	open Encodings.Utf8
2
3	let pcre_replace ~rex ?templ s =
4	match templ with
5	\| None -> mk (Pcre.replace ~rex (get_str s))
6	\| Some templ ->
7	mk (Pcre.replace ~rex ~templ:(get_str templ) (get_str s))
8	let pcre_extract ~rex s = Array.map mk (Pcre.extract ~rex (get_str s))
9	let pcre_regexp s = Pcre.regexp ~flags:[`UTF8] s
10	let pcre_split ~rex s = List.map mk (Pcre.split ~rex (get_str s))