X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fextlib%2FhExtlib.mli;h=27e8a694a1b1749dc594d2e697d58d71103adbc9;hb=ccf5878f2a2ec7f952f140e162391708a740517b;hp=a772d4a53061362b1d041b58c9a215b6904aaad2;hpb=cacbe3c6493ddce76c4c13379ade271d8dd172e8;p=helm.git diff --git a/matitaB/components/extlib/hExtlib.mli b/matitaB/components/extlib/hExtlib.mli index a772d4a53..27e8a694a 100644 --- a/matitaB/components/extlib/hExtlib.mli +++ b/matitaB/components/extlib/hExtlib.mli @@ -81,8 +81,8 @@ val trim_blanks: string -> string (** strip heading and trailing blanks *) (** {2 List processing} *) -val list_uniq: - ?eq:('a->'a->bool) -> 'a list -> 'a list (** uniq unix filter on lists *) +val list_uniq: + ?eq:('a->'a->bool) -> 'a list -> 'a list (** uniq unix filter on (sorted) lists *) val filter_map: ('a -> 'b option) -> 'a list -> 'b list (** filter + map *) val filter_map_acc: ('acc -> 'a -> ('acc * 'b) option) -> 'acc -> 'a list -> 'acc * 'b list (** fold/filter + map *) @@ -172,3 +172,5 @@ val chop_prefix: string -> string -> string val touch: string -> unit val profiling_enabled: bool ref + +val utf8_parsed_text : string -> Stdpp.location -> string * int