code: 9ferno

Download patch

ref: 8180116fa93a66bd266f64b5bb5c2bc218c7837f
parent: 4f618bf2be8c5b8ee401db4e1787c4d41a7c59f8
author: joe9 <joe9mail@gmail.com>
date: Thu Jul 29 08:14:59 EDT 2021

cleaned up simple.b

--- a/os/init/simple.b
+++ b/os/init/simple.b
@@ -7,8 +7,8 @@
 include "draw.m";
 
 sys: Sys;
-FD, Connection, sprint, Dir: import sys;
-print, fprint, open, bind, mount, dial, sleep, read: import sys;
+FD: import sys;
+print, fprint, bind: import sys;
 
 stderr:	ref sys->FD;						# standard error FD
 
@@ -32,7 +32,7 @@
 	# set up basic devices, ignoring errors
 	sys->bind("#d", "/fd", Sys->MREPL);
 	sys->bind("#S", "/dev", sys->MAFTER);	# Disks
-#	sys->bind("#l", "/net", sys->MAFTER);	# Network interfaces
+#	sys->bind("#l", "/net", sys->MAFTER);	# Network interfaces - hangs this program now
 #	sys->bind("#I", "/net", sys->MAFTER);	# IP
 	sys->bind("#p", "/prog", sys->MREPL);	# prog device
 	sys->bind("#t", "/dev", sys->MAFTER);	# serial line
@@ -47,11 +47,11 @@
 #	sys->bind("#O", "/dev", sys->MAFTER);	# Modem
 #	sys->bind("#T","/dev",sys->MAFTER);	# Touchscreen
 
-	sys->print("after the binds\n");
+	#sys->print("after the binds\n");
 	sh := load Sh "/dis/sh.dis";
 	(s, nil) := sys->stat("/dis/init");
 	if(s == 0){
-	sys->print("spawn sh -n /dis/init\n");
+		#sys->print("spawn sh -n /dis/init\n");
 		spawn sh->init(nil, "sh" :: "-n" :: "/dis/init" :: nil);
 	} else {
 		sys->fprint(stderr, "init: cannot find /dis/init: %r\n");