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