shithub: mc

ref: 038b1d6b1e2f30d0cc5168ee342b8b422b7d4818
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 */
	-> ""
}