Parent Directory
| 
Revision Log
[r2005-01-28 13:48:36 by afrisch] Empty log message Original author: afrisch Date: 2005-01-28 13:48:36+00:00
| 1 | abate | 1441 | 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)) |
| CVS Admin">CVS Admin | ViewVC Help |
| Powered by ViewVC 1.1.5 |