external tiocmget : Unix.file_descr -> int =
      "caml_extunix_ioctl_TIOCMGET"