libguess を ocaml-ctypes で使ってみる

gistfile1.sh

$ sudo apt-get install libguess-dev
$ ocamlfind ocamlc -package ctypes.foreign -linkpkg -custom -cclib -lguess -o guess guess.ml
$ ./guess "こんにちは世界"
UTF-8
$ ./guess $(echo "こんにちは世界" | nkf -Ws)
SJIS
$ ./guess $(echo "こんにちは世界" | nkf -We)
EUC-JP

guess.ml

open Ctypes
open Foreign

let libguess_determine_encoding =
  foreign "libguess_determine_encoding" (string @-> int @-> string @-> returning string)

let () =
  let bytes = Sys.argv.(1) in
  let charset = libguess_determine_encoding bytes (Bytes.length bytes) "Japanese" in
  print_endline charset