1991/1011/power/boot.c (diff list | history)

power/boot.c on 1990/0227
1990/0227		#include <u.h> #include <libc.h> #include <fcall.h>
1990/1127		#define DEFSYS "bit!bootes"
1990/0427		#define DEFFILE "/mips/9"
1991/0108		char *net; char *netdev;
1990/0227		Fcall hdr;
1990/0427		char *scmd;
1990/0227
1990/0427		char buf[4*1024];
1990/1202		char bootfile[5*NAMELEN]; char sys[NAMELEN];
1990/0227
1990/0427		int fd; int cfd; int efd;
1990/0227		typedef struct address { char *name; char *cmd; } Address; Address addr[] = {
1990/1127		{ "ross", "connect 020701005eff" },
1991/0327		{ "bootes", "connect 0800690203f3" },
1990/1127		{ "helix", "connect 080069020427" }, { "spindle", "connect 0800690202df" }, { "r70", "connect 08002b04265d" },
1991/0509		{ "fornax", "connect 00007701d2ba" },
1990/0227		{ 0 } };
1990/0427		/* * predeclared */
1990/1202		int outin(char *, char *, int);
1990/0427		void prerror(char *); void error(char *); void boot(int);
1990/1127		int dkdial(char *); int nonetdial(char *); int bitdial(char *);
1991/0304		int preamble(int);
1991/1011		void srvcreate(char*, int); void settime(void);
1990/0227
1990/0427		/* * usage: 9b [-a] [server] [file] *
1990/0504		* default server is `bitbootes', default file is `/mips/9'
1990/0427		*/ main(int argc, char *argv[])
1990/0227		{
1990/0427		int i; int manual=0;
1990/0227
1990/0427		open("#c/cons", 0); open("#c/cons", 1); open("#c/cons", 1);
1990/0504		i = create("#e/sysname", 1, 0666); if(i < 0) error("sysname");
1990/1202		if(write(i, argv[0], strlen(argv[0])) != strlen(argv[0]))
1990/0504		error("sysname"); close(i);
1991/0430		i = create("#e/terminal", 1, 0666); if(i < 0) error("terminal"); if(write(i, "sgi power 4D", strlen("sgi power 4D")) < 0) error("terminal"); close(i);
1990/0427		argv++; argc--; while(argc > 0){ if(argv[0][0] == '-'){ if(argv[0][1] == 'm') manual = 1; argc--; argv++; } else break;
1990/0227		}
1990/0427
1990/1202		strcpy(sys, DEFSYS); strcpy(bootfile, DEFFILE);
1990/0427		switch(argc){ case 1:
1990/1202		strcpy(bootfile, argv[0]);
1990/0427		break; case 2:
1990/1202		strcpy(bootfile, argv[0]); strcpy(sys, argv[1]);
1990/0427		break;
1990/0227		}
1990/0427		boot(manual); for(;;){ if(fd > 0) close(fd); if(cfd > 0) close(cfd);
1990/1127		fd = cfd = 0;
1990/0427		boot(1); }
1990/0227		}
1990/1127		int bitdial(char *arg)
1990/0227		{
1990/1127		return open("#3/bit3", ORDWR); } int nonetdial(char *arg) { int efd, cfd, fd;
1990/0721		Address *a;
1990/1127		static int mounted;
1990/0227
1990/1127		for(a = addr; a->name; a++){ if(strcmp(a->name, arg) == 0) break;
1990/0427		}
1990/1127		if(a->name == 0){ print("can't convert nonet address to ether address\n"); return -1;
1990/0427		}
1990/0227
1990/1127		if(!mounted){ /* * grab a lance channel, make it recognize ether type 0x900, * and push the nonet ethernet multiplexor onto it. */ efd = open("#l/1/ctl", 2); if(efd < 0){ prerror("opening #l/1/ctl"); return -1;
1990/0427		}
1990/1127		if(write(efd, "connect 0x900", sizeof("connect 0x900")-1)<0){ close(efd); prerror("connect 0x900"); return -1; } if(write(efd, "push noether", sizeof("push noether")-1)<0){ close(efd); prerror("push noether"); return -1; } if(write(efd, "config nonet", sizeof("config nonet")-1)<0){ close(efd); prerror("config nonet"); return -1; } mounted = 1;
1990/0227		} /*
1990/1127		* grab a nonet channel and call up the file server
1990/0227		*/
1990/1127		fd = open("#nnonet/2/data", 2); if(fd < 0) { prerror("opening #nnonet/2/data"); return -1;
1990/0427		}
1990/1127		cfd = open("#nnonet/2/ctl", 2); if(cfd < 0){ close(fd); fd = -1; prerror("opening #nnonet/2/ctl"); return -1;
1990/0427		}
1990/1127		if(write(cfd, a->cmd, strlen(a->cmd))<0){ close(cfd); close(fd); fd = cfd = -1; prerror(a->cmd); return -1;
1990/0427		}
1991/0108		net = "nonet"; netdev = "#nnonet";
1990/1127		return fd; } int dkdial(char *arg) { int fd; char cmd[64]; static int mounted; if(!mounted){ /* * grab the hsvme and configure it for a datakit */ efd = open("#h/ctl", 2); if(efd < 0){ prerror("opening #h/ctl"); return -1; } if(write(efd, "push dkmux", sizeof("push dkmux")-1)<0){ close(efd); prerror("push dkmux"); return -1; } if(write(efd, "config 4 256 restart dk", sizeof("config 4 256 restart dk")-1)<0){ close(efd); prerror("config 4 256 restart dk"); return -1; } mounted = 1; sleep(2000); /* wait for things to settle down */
1990/0721		}
1990/0227		/*
1990/1127		* grab a datakit channel and call up the file server
1990/0227		*/
1990/1127		fd = open("#kdk/5/data", 2);
1990/0427		if(fd < 0) {
1990/1127		prerror("opening #kdk/5/data"); return -1;
1990/0427		}
1990/1127		cfd = open("#kdk/5/ctl", 2);
1990/0427		if(cfd < 0){
1990/1127		close(fd); fd = -1; prerror("opening #kdk/5/ctl"); return -1;
1990/0427		}
1990/1127		sprint(cmd, "connect %s", arg); if(write(cfd, cmd, strlen(cmd))<0){ close(cfd); close(fd); cfd = fd = -1; prerror(cmd); return -1; }
1991/0108		net = "dk"; netdev = "#kdk";
1990/1127		return fd; }
1991/0304		int hotdial(char *arg)
1990/1127		{
1991/0304		int fd; char srvdir[100]; Waitmsg m;
1990/1127
1991/0304		/* * The killer: gotta get a hotrodboot running, so dial up * on datakit and load it. */ fd = dkdial(arg); if(fd < 0) return -1; if(!preamble(fd)){ close(fd); return -1;
1990/1127		}
1991/0304		/* * use /dev; it's local */ if(mount(fd, "/dev", MREPL, "", "") < 0) error("mount"); switch(fork()){ case 0: /* * child: get hotrodboot running */ execl("/dev/mips/bin/hotrodboot", "hotrodboot", "/dev/hobbit/hot", 0); error("execl hotrodboot"); case -1: error("fork");
1990/1127		}
1991/0304		/* * parent: wait, then sleep a while */ wait(&m); if(m.msg[0]) error(m.msg); fprint(2, "sleep 3 seconds\n"); sleep(3*1000); fprint(2, "go for it....\n"); return open("#H/hotrod", ORDWR); }
1990/0227
1991/0304		int preamble(int fd) { int n;
1990/0227		print("nop..."); hdr.type = Tnop;
1991/0820		hdr.tag = NOTAG;
1990/0227		n = convS2M(&hdr, buf);
1990/0427		if(write(fd, buf, n) != n){ print("n = %d\n", n); prerror("write nop");
1991/0304		return 0;
1990/0427		}
1990/1127		reread:
1990/0227		n = read(fd, buf, sizeof buf);
1990/0427		if(n <= 0){ prerror("read nop");
1991/0304		return 0;
1990/0427		}
1990/1127		if(n == 2) goto reread;
1990/0227		if(convM2S(buf, &hdr, n) == 0) { print("n = %d; buf = %.2x %.2x %.2x %.2x\n", n, buf[0], buf[1], buf[2], buf[3]);
1990/0427		prerror("format nop");
1991/0304		return 0;
1990/0227		}
1990/0427		if(hdr.type != Rnop){ prerror("not Rnop");
1991/0304		return 0;
1990/0427		}
1991/0820		if(hdr.tag != NOTAG){ prerror("tag not NOTAG");
1991/0304		return 0;
1990/11211		}
1990/0227		print("session..."); hdr.type = Tsession;
1991/0820		hdr.tag = NOTAG;
1990/0227		n = convS2M(&hdr, buf);
1990/0427		if(write(fd, buf, n) != n){ prerror("write session");
1991/0304		return 0;
1990/0427		}
1990/0227		n = read(fd, buf, sizeof buf);
1990/0427		if(n <= 0){ prerror("read session");
1991/0304		return 0;
1990/0427		} if(convM2S(buf, &hdr, n) == 0){ prerror("format session");
1991/0304		return 0;
1990/0427		}
1991/0820		if(hdr.tag != NOTAG){ prerror("tag not NOTAG");
1991/0304		return 0;
1990/0427		}
1990/11211		if(hdr.type == Rerror){ fprint(2, "boot: error %s\n", hdr.ename);
1991/0304		return 0;
1990/0227		}
1990/11211		if(hdr.type != Rsession){ prerror("not Rsession");
1991/0304		return 0; } return 1; } void boot(int ask) { int n, f, tries; char *srvname;
1991/0719		if(ask)
1991/0304		outin("server", sys, sizeof(sys)); for(tries = 0; tries < 5; tries++){ fd = -1; if(strncmp(sys, "bit!", 4) == 0) fd = bitdial(srvname = &sys[4]);
1991/0315		else if(strncmp(sys, "hot!", 4) == 0)
1991/0304		fd = hotdial(srvname = &sys[4]); else if(strncmp(sys, "dk!", 3) == 0) fd = dkdial(srvname = &sys[3]); else if(strncmp(sys, "nonet!", 6) == 0) fd = nonetdial(srvname = &sys[6]); else fd = nonetdial(srvname = sys); if(fd >= 0) break; print("can't connect, retrying...\n"); sleep(1000); } if(fd < 0){ print("can't connect\n");
1990/11211		return; }
1991/0304		if(!preamble(fd)) return;
1990/0227
1991/1011		srvcreate("boot", fd); srvcreate("bootes", fd);
1990/0427
1990/0227		print("mount..."); if(bind("/", "/", MREPL) < 0) error("bind");
1990/11211		if(mount(fd, "/", MAFTER|MCREATE, "", "") < 0)
1990/0227		error("mount");
1991/01151
1991/1011		settime();
1991/01151
1990/0227		print("success\n");
1991/0108
1991/0131		if(netdev){ char buf[64]; sprint(buf, "/net/%s", net); bind(netdev, buf, MREPL); bind(netdev, "/net/net", MREPL); }
1991/0108		if(net){
1991/0131		char buf[64]; sprint(buf, "/lib/netaddr.%s", net); print("binding %s onto /lib/netaddr.net\n", buf); bind(buf, "/lib/netaddr.net", MREPL);
1991/0108		}
1990/0504
1991/0418		if(ask){
1990/1122		execl("/mips/init", "init", "-m", 0);
1991/0418		} else {
1991/0507		execl("/mips/init", "init", 0);
1991/0418		}
1990/1122		error("/mips/init");
1990/0227		}
1990/0427		/* * print error */
1990/0227		void
1990/0427		prerror(char *s) { char buf[64];
1990/11211		errstr(buf);
1990/0427		fprint(2, "boot: %s: %s\n", s, buf); } /* * print error and exit */ void
1990/0227		error(char *s) { char buf[64];
1990/11211		errstr(buf);
1990/0227		fprint(2, "boot: %s: %s\n", s, buf); exits(0);
1990/0427		} /* * prompt and get input */ int
1990/1202		outin(char *prompt, char *def, int len)
1990/0427		{ int n;
1990/1202		char buf[256];
1990/0427		do{ print("%s[%s]: ", prompt, def); n = read(0, buf, len); }while(n==0); if(n < 0) error("can't read #c/cons; please reboot");
1990/1202		if(n != 1){
1990/0427		buf[n-1] = 0;
1990/1202		strcpy(def, buf); }
1990/0427		return n;
1991/1011		} void srvcreate(char *name, int fd) { char *srvname; int f; srvname = strrchr(name, '/'); if(srvname) srvname++; else srvname = name; sprint(buf, "#s/%s", srvname); f = create(buf, 1, 0666); if(f < 0) error("create"); sprint(buf, "%d", fd); if(write(f, buf, strlen(buf)) != strlen(buf)) error("write"); close(f); } void settime(void) { char dirbuf[DIRLEN]; Dir dir; int f; print("time..."); /* * set the time from the access time of the root * of the file server */ f = open("#s/boot", ORDWR); if(f < 0) return; if(mount(f, "/n/boot", MREPL, "", "") < 0){ close(f); return; } close(f); if(stat("/n/boot", dirbuf) < 0) error("stat"); convM2D(dirbuf, &dir); sprint(dirbuf, "%ld", dir.atime); unmount(0, "/n/boot"); f = open("#c/time", OWRITE); write(f, dirbuf, strlen(dirbuf)); close(f);
1990/0227		}