Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Page
Library
Module
Module type
Parameter
Class
Class type
Source
mpp_charset.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
(***********************************************************************) (* Meta Pre Processor, a language blender *) (* (c) 2013 by Philippe Wang <philippe.wang@cl.cam.ac.uk> *) (* Licence : ISC *) (* http://www.isc.org/downloads/software-support-policy/isc-license/ *) (***********************************************************************) include Set.Make(Char) let of_list l = List.fold_left (fun r e -> add e r) empty l let to_string s = let b = Buffer.create 42 in iter (Buffer.add_char b) s; Buffer.contents b let to_escaped_string s = let b = Buffer.create 42 in iter (fun c -> Buffer.add_string b (Char.escaped c)) s; Buffer.contents b