plan 9 kernel history: overview | file list | diff list

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

1990/0424/sys/src/9/power/bboot.c:3,11 – 1990/0427/sys/src/9/power/bboot.c:3,25 (short | long | prev | next)
1990/0424    
 
#include <fcall.h> 
 
void	error(char *);
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;
1990/0424/sys/src/9/power/bboot.c:22,76 – 1990/0427/sys/src/9/power/bboot.c:36,41
1990/0424    
	{ 0 } 
}; 
 
#define DEFFILE "/sys/src/9/mips/9" 
                 
char * 
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) 
			return a->cmd; 
	} 
	return 0; 
} 
                 
/* 
 *  read a segment into memory 
 */ 
int 
readseg(int in, int out, long inoff, long outoff, int len) 
{ 
	long	n; 
                 
	if(seek(in, inoff, 0) < 0){ 
		error("seeking bootfile"); 
		return -1; 
	} 
	if(seek(out, outoff, 0) != outoff){ 
		error("seeking #b/mem"); 
		return -1; 
	} 
	for(; len > 0; len -= n){ 
		print("."); 
		if((n = read(in, buf, sizeof buf)) <= 0){ 
			error("reading bootfile"); 
			return -1; 
		} 
		if(write(out, buf, n) != n){ 
			error("writing #b/mem"); 
			return -1; 
		} 
	} 
	return 0; 
} 
                 
struct a_out_h { 
	ulong	magic;			/* magic and sections */ 
	ulong	timestamp;		/* time and date */
1990/0424/sys/src/9/power/bboot.c:95,191 – 1990/0427/sys/src/9/power/bboot.c:60,156
1990/0424    
} a_out; 
 
/* 
 *  read the kernel into memory and jump to it
1990/0427    
 *  predeclared
1990/0424    
 */ 
int 
readkernel(int fd)
1990/0427    
char	*lookup(char *); 
int	readseg(int, int, long, long, int); 
int	readkernel(int); 
int	outin(char *, char *, char *, int); 
void	prerror(char *); 
void	error(char *); 
void	boot(int); 
 
/* 
 *  usage: 9b [-a] [server] [file] 
 * 
 *  default server is `bitbootes', default file is `/sys/src/9/mips/9' 
 */ 
main(int argc, char *argv[])
1990/0424    
{ 
	int n; 
	int bfd;
1990/0427    
	int i;
1990/0424    
 
	bfd = open("#b/mem", OWRITE); 
	if(bfd < 0) 
		error("can't open #b/mem");
1990/0427    
	open("#c/cons", 0); 
	open("#c/cons", 1); 
	open("#c/cons", 1);
1990/0424    
 
	n = read(fd, &a_out, sizeof(a_out)); 
	if(n <= 0) 
		error("can't read boot file");
1990/0427    
	argv++; 
	argc--;	 
	while(argc > 0){ 
		if(argv[0][0] == '-'){ 
			argc--; 
			argv++; 
		} else 
			break; 
	}
1990/0424    
 
	print("\n%d", a_out.text); 
	if(readseg(fd, bfd, 20*4, a_out.textva, a_out.text)<0) 
		error("can't read boot file"); 
	print("+%d", a_out.data); 
	if(readseg(fd, bfd, 20*4 + a_out.text, a_out.textva + a_out.text, a_out.data)<0) 
		error("can't read boot file"); 
	print("+%d\n", a_out.bss);
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    
 
	close(bfd); 
	bfd = open("#b/boot", OWRITE); 
	if(bfd < 0) 
		error("can't open #b/boot"); 
	                 
	print("entry: %ux\n", a_out.entryva); 
	sleep(1000); 
	if(write(bfd, &a_out.entryva, sizeof a_out.entryva) != sizeof a_out.entryva) 
		error("can't start kernel"); 
                 
	return 0;
1990/0427    
	boot(0); 
	for(;;){ 
		if(fd > 0) 
			close(fd); 
		if(cfd > 0) 
			close(cfd); 
		if(efd > 0) 
			close(efd); 
		fd = cfd = efd = 0; 
		boot(1); 
	}
1990/0424    
} 
 
Fcall	hdr; 
char	srv[100]; 
                 
main(int argc, char *argv[])
1990/0427    
void 
boot(int ask)
1990/0424    
{ 
	int cfd, fd, n, fu, f; 
	char buf[NAMELEN]; 
	char bootfile[256]; 
	char *scmd;
1990/0427    
	int n;
1990/0424    
 
	open("#c/cons", 0); 
	open("#c/cons", 1); 
	open("#c/cons", 1);
1990/0427    
	if(ask){ 
		outin("bootfile", bootfile, bbuf, sizeof(bbuf)); 
		bootfile = bbuf; 
	}
1990/0424    
 
	/* 
	 *  get server 
	 */ 
	do{ 
		do{ 
			print("server[%s]: ", addr[0].name); 
			n = read(0, srv, sizeof srv); 
		}while(n==0); 
		if(n < 0) 
			error("can't read #c/cons; please reboot"); 
		if(n == 1) 
			strcpy(srv, addr[0].name); 
		else 
			srv[n-1] = 0; 
		scmd = lookup(srv); 
	}while(scmd == 0);
1990/0427    
	if(!ask) 
		scmd = lookup(sys); 
	else { 
		outin("server", sys, sbuf, sizeof(sbuf)); 
		sys = sbuf; 
		scmd = lookup(sys); 
	} 
	if(scmd == 0){ 
		fprint(2, "boot: %s unknown\n", sys); 
		return; 
	}
1990/0424    
1990/0427    
	print("Booting %s from server %s\n", bootfile, sys);
1990/0424    
	/* 
	 *  get file.  if the user typed cr to the server question, skip 
	 *  the file question and just use the default.
1990/0427    
	 *  for the bit, we skip all the ether goo
1990/0424    
	 */ 
	if(n != 1){ 
		do{ 
			print("bootfile[%s]: ", DEFFILE); 
			n = read(0, buf, sizeof buf); 
		}while(n==0); 
		if(n < 0) 
			error("can't read #c/cons; please reboot"); 
		if(n == 1) 
			strcpy(buf, DEFFILE); 
		else 
			buf[n-1] = 0; 
		strcpy(bootfile, buf); 
	}else 
		strcpy(bootfile, DEFFILE); 
                 
	if(strcmp(scmd, "bitconnect") == 0){ 
		fd = open("#3/bit3", ORDWR); 
		if(fd < 0) 
			error("opening #3/bit3");
1990/0427    
		if(fd < 0){ 
			prerror("opening #3/bit3"); 
			return; 
		}
1990/0424    
		goto Mesg; 
	}
1990/0424/sys/src/9/power/bboot.c:194,269 – 1990/0427/sys/src/9/power/bboot.c:159,282
1990/0424    
	 *  and push the nonet ethernet multiplexor onto it. 
	 */ 
	cfd = open("#l/1/ctl", 2); 
	if(cfd < 0) 
		error("opening #l/1/ctl"); 
	if(write(cfd, "connect 0x900", sizeof("connect 0x900")-1)<0) 
		error("connect 0x900"); 
	if(write(cfd, "push noether", sizeof("push noether")-1)<0) 
		error("push noether");
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/0424    
 
	/* 
	 *  grab a nonet channel and call up the ross file server 
	 */ 
	fd = open("#n/1/data", 2); 
	if(fd < 0) 
		error("opening #n/1/data");
1990/0427    
	if(fd < 0) { 
		prerror("opening #n/1/data"); 
		return; 
	}
1990/0424    
	cfd = open("#n/1/ctl", 2); 
	if(cfd < 0) 
		error("opening #n/1/ctl"); 
	if(write(cfd, scmd, strlen(scmd))<0) 
		error(scmd);
1990/0427    
	if(cfd < 0){ 
		prerror("opening #n/1/ctl"); 
		return; 
	} 
	if(write(cfd, scmd, strlen(scmd))<0){ 
		prerror(scmd); 
		return; 
	}
1990/0424    
 
    Mesg: 
	print("nop..."); 
	hdr.type = Tnop; 
	n = convS2M(&hdr, buf); 
	if(write(fd, buf, n) != n) 
		error("write nop");
1990/0427    
	if(write(fd, buf, n) != n){ 
		prerror("write nop"); 
		return; 
	}
1990/0424    
	n = read(fd, buf, sizeof buf); 
	if(n <= 0) 
		error("read nop");
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]); 
		error("format nop");
1990/0427    
		prerror("format nop"); 
		return;
1990/0424    
	} 
	if(hdr.type != Rnop) 
		error("not Rnop");
1990/0427    
	if(hdr.type != Rnop){ 
		prerror("not Rnop"); 
		return; 
	}
1990/0424    
 
	print("session..."); 
	hdr.type = Tsession; 
	hdr.lang = 'v'; 
	n = convS2M(&hdr, buf); 
	if(write(fd, buf, n) != n) 
		error("write session");
1990/0427    
	if(write(fd, buf, n) != n){ 
		prerror("write session"); 
		return; 
	}
1990/0424    
	n = read(fd, buf, sizeof buf); 
	if(n <= 0) 
		error("read session"); 
	if(convM2S(buf, &hdr, n) == 0) 
		error("format session"); 
	if(hdr.type != Rsession) 
		error("not Rsession");
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); 
		error("remote error");
1990/0427    
		prerror("remote error"); 
		return;
1990/0424    
	} 
 
	print("mount..."); 
	if(bind("/", "/", MREPL) < 0) 
		error("bind"); 
	if(mount(fd, "/", MAFTER|MCREATE, "") < 0) 
		error("mount");
1990/0427    
	if(bind("/", "/", MREPL) < 0){ 
		prerror("bind"); 
		return; 
	} 
	if(mount(fd, "/", MAFTER|MCREATE, "") < 0){ 
		prerror("mount"); 
		return; 
	}
1990/0424    
	close(fd); 
 
	print("open file..."); 
	fd = open(bootfile, OREAD); 
	if(fd < 0) 
		error("opening bootfile");
1990/0427    
	while((fd = open(bootfile, OREAD)) < 0){ 
		outin("bootfile", DEFFILE, bbuf, sizeof(bbuf)); 
		bootfile = bbuf; 
	}
1990/0424    
	readkernel(fd); 
	error("couldn't read kernel");
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];
1990/0424/sys/src/9/power/bboot.c:271,274 – 1990/0427/sys/src/9/power/bboot.c:284,416
1990/0424    
	errstr(0, buf); 
	fprint(2, "boot: %s: %s\n", s, buf); 
	exits(0);
1990/0427    
} 
 
/* 
 *  lookup the address for a system 
 */ 
char * 
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) 
			return a->cmd; 
	} 
	return 0; 
} 
 
/* 
 *  read a segment into memory 
 */ 
int 
readseg(int in, int out, long inoff, long outoff, int len) 
{ 
	long	n, i; 
	ulong sum = 0; 
 
	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; 
		} 
		for(i = 0; i < n; i++) 
			sum += buf[i]; 
		if(sum & 0xf0000000) 
			sum = (sum & 0xfffffff) + ((sum & 0xf0000000) >> 28); 
		if(write(out, buf, n) != n){ 
			prerror("writing #b/mem"); 
			return -1; 
		} 
	} 
	print("[%ux]", sum); 
	return 0; 
} 
 
/* 
 *  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; 
	} 
	print("+%d\n", a_out.bss); 
 
	close(bfd); 
	bfd = open("#b/boot", OWRITE); 
	if(bfd < 0){ 
		prerror("can't open #b/boot"); 
		return; 
	} 
	 
	print("entry: %ux\n", a_out.entryva); 
	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    
}


source code copyright © 1990-2005 Lucent Technologies; see license
Plan 9 distribution
comments to russ cox (rsc@swtch.com)