##       Software from the book "Inferno Programming with Limbo"#	published by John Wiley & Sons, January 2003.##       p. Stanley-Marbell <pip@gemusehaken.org>#implement Adduser; include "sys.m";include "draw.m";include "arg.m"; sys : Sys;arg : Arg; Adduser : module{	init : fn(nil : ref Draw->Context, args : list of string);}; init(nil : ref Draw->Context, args : list of string){	sys = load Sys Sys->PATH;	arg = load Arg Arg->PATH;	arg->init(args); 	#	Defaults	username	:= "";	homedir		:= "/usr/";	namespace	:= "";	error		:= ""; 	while((c := arg->opt()) != 0)	{		case c		{			'u' => username = arg->arg();			'h' => homedir = arg->arg();			'n' => namespace = arg->arg();			*   =>			{				usage();				exit;			}		}	}	if (arg->argv() != nil)	{		usage();		exit;	} 	if (homedir[(len homedir) - 1] != '/')	{		homedir += "/";	} 	if (username == nil)	{		(username, homedir, namespace) = prompt();	}		error = createdirs(username, homedir, namespace);	if (error != nil)	{		sys->print("%s\n", error);	}} createdirs(username, homedir, namespace : string) : string{	#	Create home directory. Omode for create must be OREAD:	if (sys->create(homedir+username, 		Sys->OREAD, 8r755|Sys->CHDIR) == nil)	{		return sys->sprint(			"Could not create user home directory (%s) : %r",			homedir+username);	} 	#	Create keyring/ directory. Omode for create must be OREAD:	if (sys->create(homedir+username+"/keyring",		Sys->OREAD, 8r755|Sys->CHDIR) == nil)	{		return sys->sprint(			"Could not create user's keyring directory (%s) : %r",			homedir+username+"/keyring");	} 	#	Create lib/ directory. Omode for create must be OREAD:	if (sys->create(homedir+username+"/lib",		Sys->OREAD, 8r755|Sys->CHDIR) == nil)	{		return sys->sprint(			"Could not create user's lib directory (%s) : %r",			homedir+username+"/lib");	} 	#	Create namespace file. Omode for create here is ORDWR	#	since we'll write:	if ((fd := sys->create(homedir+username+"/namespace",			Sys->ORDWR, 8r644)) == nil)	{		return sys->sprint(			"Could not create user's lib directory (%s) : %r",			homedir+username+"/namespace");	} 	sys->fprint(fd, "%s\n", namespace);	fd = nil; 	return nil;} usage(){	sys->print("adduser -u <username> [-h homedir][-n namespace string]\n");} prompt() : (string, string, string){	buf := array [Sys->ATOMICIO] of byte;	stdin := sys->fildes(0); 	sys->print("User name: ");	n := sys->read(stdin, buf, len buf);	username := string buf[:n-1]; 	sys->print("Home directory: ");	n = sys->read(stdin, buf, len buf);	homedir := string buf[:n-1];	if (homedir[(len homedir) - 1] != '/')	{		homedir += "/";	} 	sys->print("Namespace config string: ");	n = sys->read(stdin, buf, len buf);	namespace := string buf[:n-1];  	return (username, homedir, namespace);}