ref: 8180116fa93a66bd266f64b5bb5c2bc218c7837f
parent: 4f618bf2be8c5b8ee401db4e1787c4d41a7c59f8
author: joe9 <joe9mail@gmail.com>
date: Thu Jul 29 01: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");