shithub: mc

ref: e22c4b573a6d0d71a8781ef655a7249f8b1921a4
dir: /lib/std/writeall.myr/

View raw version 
use "errno.use"
use "result.use"
use "option.use"
use "syswrap.use"
use "types.use"

pkg std =
	const writeall : (fd : fd, src : byte[:] -> (size, option(errno)))
;;

const writeall = {fd, src
	var sz

	sz = src.len
	while src.len != 0
		match std.write(fd, src)
		| `Ok n:
			src = src[n:]
		| `Fail e:
			-> (sz - src.len, `Some e)
		;;
	;;
	-> (sz, `None)
}