lib/std/blat.myr


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

use "syswrap.use"

pkg std =
	const blat : (path : byte[:], buf : byte[:], perm : int64 -> bool)
	const fblat : (f : fd, buf : byte[:] -> bool)
;;

const blat = {path, buf, perm
	var fd

	fd = openmode(path, Ocreat|Owronly, perm)
	if fd < 0
		-> false
	;;
	-> fblat(fd, buf)
}


const fblat = {fd, buf
	var written, n

	n = 0
	while true
		written = write(fd, buf[n:])
		if written <= 0
			goto done
		;;
		n += written
	;;
:done
	-> written == 0 && n == buf.len
}