View fix-mixed-utf8
#!/usr/bin/ocaml | |
(* | |
* Reads an UTF-8 text and writes it on standard output. Invalid codes are | |
* regarded as CP1252-encoded characters and are converted to UTF-8. | |
*) | |
let substitute = "�" | |
let buf = object (self) |