shithub: mc

ref: 682b8ca1e799b4ae78418b0c94e46b6077b45b5a
dir: /lib/fileutil/homedir.myr/

View raw version 
use std

pkg fileutil =
	const homedir	: (-> byte[:])
;;

const homedir = {
	match std.getenv("HOME")
	| `std.Some h:	-> h
	| `std.None:	/* nothing */
	;;

	/* 9front uses $home */
	match std.getenv("home")
	| `std.Some h:	-> h
	| `std.None:	/* nothing */
	;;

	/* really, we should read from /etc/passwd or ldap/nss */
	-> ""
}