!final_acc, if !unchanged then l else l1
;;
+(* expects the list to be sorted *)
let rec list_uniq ?(eq=(=)) = function
| [] -> []
| h::[] -> [h]
| _, [] -> assert false
;;
+let utf8_parsed_text s floc =
+ let start, stop = loc_of_floc floc in
+ let len = stop - start in
+ let res = Netconversion.ustring_sub `Enc_utf8 start len s in
+ res, String.length res
+