implement Init; ## ARM evaluator 7t# include "sys.m";sys: Sys;FD, Connection, sprint, Dir: import sys;print, fprint, open, bind, mount, dial, sleep, read: import sys; include "draw.m";include "sh.m";draw: Draw;Context: import draw; Init: module{	init:	fn();}; Logon: module{	init:	fn(ctxt: ref Context, argv: list of string);}; Bootpreadlen: con 128; init(){	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);#	} #	setsysname(); 	#	# default namespace	#	bind("#c", "/dev", sys->MREPL);			# console	bind("#t", "/dev", sys->MAFTER);		# serial port	bind("#r", "/dev", sys->MAFTER);		# RTC#	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"); #	sys->chdir("/usr/inferno"); #	logon := load Logon "/dis/sh.dis";#	spawn logon->init(dc, nil);	ts := load Sh "/dis/sh.dis";	ts->init(nil, 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);}