let intr_pwrite fd off buf ofs len =
  if
    (off < 0) ||
      ((ofs < 0) || ((len < 0) || (ofs > ((String.length buf) - len))))
  then invalid_arg "ExtUnix.intr_pwrite"
  else unsafe_intr_pwrite fd off buf ofs len