shithub: mc

ref: b9cf124f492b69a0c76c9cb89d07a046c0e6c7e8
dir: /lib/std/getcwd.myr/

View raw version 
use "alloc"
use "errno"
use "extremum"
use "syswrap"
use "syswrap-ss"

pkg std =
	const getcwd : (-> byte[:])
;;

const getcwd = {
	var len, n, buf

	len = 128
	while true
		buf = std.slalloc(len)
		n = bgetcwd(buf)
		if n >= 0
			/* n is the length of the nul terminated c string */
			-> buf[:n]
		elif n != Erange
			std.slfree(buf)
			-> ""
		else
			len *= 2
		;;
	;;
	/* unreachable; shut up return without value analysis */
	-> ""
}