1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
implement Init;
#
# init program for native inferno, generic pc version
#
include "sys.m";
sys: Sys;
FD, Connection, sprint, Dir: import sys;
print, fprint, open, bind, mount, dial, sleep, read, chdir: import sys;
include "draw.m";
draw: Draw;
Context: import draw;
include "keyring.m";
kr: Keyring;
Init: module
{
init: fn();
};
Shell: module
{
init: fn(ctxt: ref Context, argv: list of string);
};
init()
{
sys = load Sys Sys->PATH;
stdin := sys->fildes(0);
kr = load Keyring Keyring->PATH;
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
#
sys->print("Bind console ...\n");
bind("#c", "/dev", sys->MAFTER);
setsysname();
print("Standalone mode\n");
#
# default namespace
#
sys->unmount(nil, "/dev");
bind("#p", "/prog", sys->MREPL); # prog device
sys->bind("#d", "/fd", Sys->MREPL);
bind("#c", "/dev", sys->MBEFORE); # console
bind("#m", "/dev", sys->MAFTER); # mouse setup device
bind("#t", "/dev", sys->MAFTER); # serial device
mouse := load Shell "/dis/mouse.dis";
if (mouse != nil) {
print("Setting up mouse\n");
mouse->init(nil, "/dis/mouse.dis" :: nil);
mouse = nil;
}
# create fake nameserver db that can be written to later
ramfile := load Shell "/dis/ramfile.dis";
if (ramfile != nil) {
ramfile->init(nil, "/dis/ramfile.dis" :: "/services/dns/db" :: "" :: nil);
ramfile = nil;
}
print("Console...\n");
shell := load Shell "/dis/sh.dis";
if(shell == nil) {
print("init: load /dis/sh.dis: %r\n");
exit;
}
print("starting shell\n");
shell->init(nil, "/dis/sh.dis" :: nil);
print("shell exited, bye bye\n");
}
#
# Set system name from nvram
#
setsysname()
{
fds := open("/dev/sysname", sys->OWRITE);
if(fds == nil)
return;
buf := array of byte "genericpc";
sys->write(fds, buf, len buf);
}
|
