1990/0911/power/bboot.c (diff list | history)

power/bboot.c on 1990/0424
1990/0424		#include <u.h> #include <libc.h> #include <fcall.h>
1990/0427		#define DEFFILE "/mips/9" #define DEFSYS "bitbootes" Fcall hdr; char *sys; char *scmd; char *bootfile; char sbuf[2*NAMELEN]; char bbuf[5*NAMELEN];
1990/0424		char buf[4*1024];
1990/0427		int fd; int cfd; int efd;
1990/0424		typedef struct address { char *name; char *cmd;
1990/0911		char *srvname;
1990/0424		} Address; Address addr[] = {
1990/0911		{ "bitbootes", "bitconnect", "bit!bootes" }, { "ross", "connect 020701005eff", "nonet!ross" }, { "bootes", "connect 080069020205", "nonet!bootes" }, { "helix", "connect 080069020427", "nonet!helix" }, { "spindle", "connect 0800690202df", "nonet!spindle" }, { "r70", "connect 08002b04265d", "nonet!r70" },
1990/0424		{ 0 } }; struct a_out_h { ulong magic; /* magic and sections */ ulong timestamp; /* time and date */ ulong size; /* (HEADR+textsize+datsize) */ ulong symsize; /* nsyms */ ulong opt; /* size of optional hdr and flags */ ulong magicversion; /* magic and version */ ulong text; /* sizes */ ulong data; ulong bss; ulong entryva; /* va of entry */ ulong textva; /* va of base of text */ ulong dataca; /* va of base of data */ ulong bssva; /* va of base of bss */ ulong gpregmask; /* gp reg mask */ ulong dummy1; ulong dummy1; ulong dummy1; ulong dummy1; ulong gpvalue; /* gp value ?? */ ulong mystery; /* complete mystery */ } a_out; /*
1990/0427		* predeclared
1990/0424		*/
1990/0911		Address* lookup(char *);
1990/0427		int readseg(int, int, long, long, int); int readkernel(int);
1990/0504		int readconf(int);
1990/0427		int outin(char *, char *, char *, int); void prerror(char *); void error(char *);
1990/0504		void boot(int, char *);
1990/0427		/* * usage: 9b [-a] [server] [file] * * default server is `bitbootes', default file is `/sys/src/9/mips/9' */ main(int argc, char *argv[])
1990/0424		{
1990/0427		int i;
1990/0504		char *sysname;
1990/0424
1990/0427		open("#c/cons", 0); open("#c/cons", 1); open("#c/cons", 1);
1990/0424
1990/0504		sysname = argv[0];
1990/0427		argv++; argc--; while(argc > 0){ if(argv[0][0] == '-'){ argc--; argv++; } else break; }
1990/0424
1990/0427		sys = DEFSYS; bootfile = DEFFILE; switch(argc){ case 1: bootfile = argv[0]; break; case 2: bootfile = argv[0]; sys = argv[1]; break; }
1990/0424
1990/0504		boot(0, sysname);
1990/0427		for(;;){ if(fd > 0) close(fd); if(cfd > 0) close(cfd); if(efd > 0) close(efd); fd = cfd = efd = 0;
1990/0504		boot(1, sysname);
1990/0427		}
1990/0424		}
1990/0427		void
1990/0504		boot(int ask, char *addr)
1990/0424		{
1990/0427		int n;
1990/0504		char conffile[128];
1990/0911		Address *a;
1990/0424
1990/0427		if(ask){ outin("bootfile", bootfile, bbuf, sizeof(bbuf)); bootfile = bbuf; outin("server", sys, sbuf, sizeof(sbuf)); sys = sbuf; }
1990/0911		a = lookup(sys); if(a == 0){
1990/0427		fprint(2, "boot: %s unknown\n", sys); return; }
1990/0911		scmd = a->cmd;
1990/0424		/*
1990/0427		* for the bit, we skip all the ether goo
1990/0424		*/ if(strcmp(scmd, "bitconnect") == 0){ fd = open("#3/bit3", ORDWR);
1990/0427		if(fd < 0){ prerror("opening #3/bit3"); return; }
1990/0424		goto Mesg; } /* * grab a lance channel, make it recognize ether type 0x900, * and push the nonet ethernet multiplexor onto it. */ cfd = open("#l/1/ctl", 2);
1990/0427		if(cfd < 0){ prerror("opening #l/1/ctl"); return; } if(write(cfd, "connect 0x900", sizeof("connect 0x900")-1)<0){ prerror("connect 0x900"); return; } if(write(cfd, "push noether", sizeof("push noether")-1)<0){ prerror("push noether"); return; }
1990/0911		if(write(cfd, "config nonet", sizeof("config nonet")-1)<0){ prerror("config nonet"); return; }
1990/0424		/* * grab a nonet channel and call up the ross file server */
1990/0911		fd = open("#nnonet/2/data", 2);
1990/0427		if(fd < 0) {
1990/0911		prerror("opening #n/2/data");
1990/0427		return; }
1990/0911		cfd = open("#nnonet/2/ctl", 2);
1990/0427		if(cfd < 0){
1990/0911		prerror("opening #n/2/ctl");
1990/0427		return; } if(write(cfd, scmd, strlen(scmd))<0){ prerror(scmd); return; }
1990/0424		Mesg: print("nop..."); hdr.type = Tnop; n = convS2M(&hdr, buf);
1990/0427		if(write(fd, buf, n) != n){ prerror("write nop"); return; }
1990/0424		n = read(fd, buf, sizeof buf);
1990/0427		if(n <= 0){ prerror("read nop"); return; }
1990/0424		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"); return;
1990/0424		}
1990/0427		if(hdr.type != Rnop){ prerror("not Rnop"); return; }
1990/0424		print("session..."); hdr.type = Tsession; hdr.lang = 'v'; n = convS2M(&hdr, buf);
1990/0427		if(write(fd, buf, n) != n){ prerror("write session"); return; }
1990/0424		n = read(fd, buf, sizeof buf);
1990/0427		if(n <= 0){ prerror("read session"); return; } if(convM2S(buf, &hdr, n) == 0){ prerror("format session"); return; } if(hdr.type != Rsession){ prerror("not Rsession"); return; }
1990/0424		if(hdr.err){ print("error %d;", hdr.err);
1990/0427		prerror("remote error"); return;
1990/0424		} print("mount...");
1990/0427		if(bind("/", "/", MREPL) < 0){ prerror("bind"); return; } if(mount(fd, "/", MAFTER|MCREATE, "") < 0){ prerror("mount"); return; }
1990/0424		close(fd);
1990/0504		sprint(conffile, "/mips/conf/%s", addr); print("%s...", conffile); while((fd = open(conffile, OREAD)) < 0){ outin("conffile", conffile, conffile, sizeof(conffile)); } if(readconf(fd) < 0) prerror("readconf"); close(fd); print("%s...", bootfile);
1990/0427		while((fd = open(bootfile, OREAD)) < 0){
1990/0504		outin("bootfile", bootfile, bbuf, sizeof(bbuf));
1990/0427		bootfile = bbuf; }
1990/0424		readkernel(fd);
1990/0427		prerror("couldn't read kernel");
1990/0424		}
1990/0427		/* * print error */
1990/0424		void
1990/0427		prerror(char *s) { char buf[64]; errstr(0, buf); fprint(2, "boot: %s: %s\n", s, buf); } /* * print error and exit */ void
1990/0424		error(char *s) { char buf[64]; errstr(0, buf); fprint(2, "boot: %s: %s\n", s, buf); exits(0);
1990/0427		} /* * lookup the address for a system */
1990/0911		Address *
1990/0427		lookup(char *arg) { Address *a; if(strcmp(arg, "?")==0 || strcmp(arg, "help")==0){ for(a = addr; a->name; a++) print("%s\n", a->name); return 0; } for(a = addr; a->name; a++){ if(strcmp(a->name, arg) == 0)
1990/0911		return a;
1990/0427		} return 0; } /* * read a segment into memory */ int readseg(int in, int out, long inoff, long outoff, int len) { long n, i; if(seek(in, inoff, 0) < 0){ prerror("seeking bootfile"); return -1; } if(seek(out, outoff, 0) != outoff){ prerror("seeking #b/mem"); return -1; } for(; len > 0; len -= n){ if((n = read(in, buf, sizeof buf)) <= 0){ prerror("reading bootfile"); return -1; } if(write(out, buf, n) != n){ prerror("writing #b/mem"); return -1; } } return 0; } /*
1990/0504		* set a configuration value */ /* * read the configuration */ int readconf(int fd) { int bfd; int n; long x; /* * read the config file */ n = read(fd, buf, sizeof(buf)-1); if(n <= 0) return -1; buf[n] = 0; /* * write into 4 meg - 4k */ bfd = open("#b/mem", OWRITE); if(bfd < 0){ prerror("can't open #b/mem"); return; } x = 0x80000000 | 4*1024*1024 - 4*1024; if(seek(bfd, x, 0) != x){ close(bfd); return -1; } if(write(bfd, buf, n+1) != n+1){ close(bfd); return -1; } close(bfd); return 0; } /*
1990/0427		* read the kernel into memory and jump to it */ int readkernel(int fd) { int n; int bfd; bfd = open("#b/mem", OWRITE); if(bfd < 0){ prerror("can't open #b/mem"); return; } n = read(fd, &a_out, sizeof(a_out)); if(n <= 0){ prerror("can't read boot file"); close(bfd); return; } print("\n%d", a_out.text); if(readseg(fd, bfd, 20*4, a_out.textva, a_out.text)<0){ prerror("can't read boot file"); close(bfd); return; } print("+%d", a_out.data); if(readseg(fd, bfd, 20*4 + a_out.text, a_out.textva + a_out.text, a_out.data)<0){ prerror("can't read boot file"); close(bfd); return; }
1990/0504		print("+%d", a_out.bss);
1990/0427		close(bfd); bfd = open("#b/boot", OWRITE); if(bfd < 0){ prerror("can't open #b/boot"); return; }
1990/0504		print(" entry: 0x%ux\n", a_out.entryva);
1990/0427		sleep(1000); if(write(bfd, &a_out.entryva, sizeof a_out.entryva) != sizeof a_out.entryva){ prerror("can't start kernel"); close(bfd); } return; } /* * prompt and get input */ int outin(char *prompt, char *def, char *buf, int len) { int n; 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"); if(n == 1) strcpy(buf, def); else buf[n-1] = 0; return n;
1990/0424		}