implement Init;## init program for standalone wm using TK#include "sys.m";sys: Sys;	FD, Connection, sprint, Dir: import sys;	print, fprint, open, bind, mount, dial, sleep, read: import sys; include "draw.m";	draw: Draw;	Context: import draw; include "keyring.m";	kr: Keyring; include "security.m";	auth: Auth; Init: module{	init:	fn();}; Logon: module{	init:	fn(ctxt: ref Context, argv: list of string);}; rootfs(server: string): int{	ok, n: int;	c: Connection; 	(ok, c) = dial("tcp!" + server + "!6666", nil);	if(ok < 0)		return -1; 	sys->print("Connected ...");	if(kr != nil && auth != nil){		err: string;		sys->print("Authenticate ...");		ai := kr->readauthinfo("/nvfs/default");		if(ai == nil){			sys->print("readauthinfo /nvfs/default failed: %r\n");			sys->print("trying mount as `nobody'\n");		}		(c.dfd, err) = auth->client("none", ai, c.dfd);		if(c.dfd == nil){			sys->print("authentication failed: %s\n", err);			return -1;		}	} 	sys->print("mount ..."); 	c.cfd = nil;	n = mount(c.dfd, nil, "/", sys->MREPL, "");	if(n > 0)		return 0;	return -1;} Bootpreadlen: con 128; init(){	spec: string; 	sys = load Sys Sys->PATH;	kr = load Keyring Keyring->PATH;	auth = load Auth Auth->PATH;	if(auth != nil)		auth->init(); 	sys->print("**\n** Inferno\n** Vita Nuova\n**\n"); 	sys->print("Setup boot net services ...\n");		#	# Setup what we need to call a server and	# Authenticate	#	bind("#l", "/net", sys->MREPL);	bind("#I", "/net", sys->MAFTER);	bind("#c", "/dev", sys->MAFTER);	bind("#r", "/dev", sys->MAFTER);	nvramfd := sys->open("#r/nvram", sys->ORDWR);	if(nvramfd != nil){		spec = "#Fnvram";		if(bind(spec, "/nvfs", sys->MAFTER) < 0)			print("init: bind %s: %r\n", spec);		nvramfd = nil;	} 	setsysname(); 	sys->print("bootp..."); 	fd := open("/net/ipifc/clone", sys->OWRITE);	if(fd == nil) {		print("init: open /net/ipifc/clone: %r\n");		exit;	}	cfg := array of byte "bind ether ether";	if(sys->write(fd, cfg, len cfg) != len cfg) {		sys->print("could not bind interface: %r\n");		exit;	}	cfg = array of byte "bootp";	if(sys->write(fd, cfg, len cfg) != len cfg) {		sys->print("could not bootp: %r\n");		exit;	} 	fd = open("/net/bootp", sys->OREAD);	if(fd == nil) {		print("init: open /net/bootp: %r");		exit;	} 	buf := array[Bootpreadlen] of byte;	nr := read(fd, buf, len buf);	fd = nil;	if(nr <= 0) {		print("init: read /net/bootp: %r");		exit;	} 	(ntok, ls) := sys->tokenize(string buf, " \t\n");	while(ls != nil) {		if(hd ls == "fsip"){			ls = tl ls;			break;		}		ls = tl ls;	}	if(ls == nil) {		print("init: server address not in bootp read");		exit;	} 	srv := hd ls;	sys->print("server %s\nConnect ...\n", srv); 	while(rootfs(srv) < 0)		sleep(1000); 	sys->print("done\n"); 	#	# default namespace	#	bind("#c", "/dev", sys->MBEFORE);		# console	bind("#r", "/dev", sys->MAFTER);	if(spec != nil)		bind(spec, "/nvfs", sys->MBEFORE|sys->MCREATE);	# our keys	bind("#l", "/net", sys->MBEFORE);		# ethernet	bind("#I", "/net", sys->MBEFORE);		# TCP/IP	bind("#p", "/prog", sys->MREPL);		# prog device	sys->bind("#d", "/fd", Sys->MREPL); 	sys->print("clock...\n");	setclock(); 	sys->print("logon...\n"); 	logon := load Logon "/dis/wm/logon.dis";	if(logon == nil) {		print("init: load /dis/wm/logon.dis: %r");		exit;	}	dc: ref Context;	spawn logon->init(dc, nil);} setclock(){	(ok, dir) := sys->stat("/");	if (ok < 0) {		print("init: stat /: %r");		return;	} 	fd := sys->open("/dev/time", sys->OWRITE);	if (fd == nil) {		print("init: open /dev/time: %r");		return;	} 	# Time is kept as microsecs, atime is in secs	b := array of byte sprint("%d000000", dir.atime);	if (sys->write(fd, b, len b) != len b)		print("init: write /dev/time: %r");} ## Set system name from nvram#setsysname(){	fd := open("/nvfs/ID", sys->OREAD);	if(fd == nil)		return;	fds := open("/dev/sysname", sys->OWRITE);	if(fds == nil)		return;	buf := array[128] of byte;	nr := sys->read(fd, buf, len buf);	if(nr <= 0)		return;	sys->write(fds, buf, nr);}