#include <lib9.h>#include <bio.h>#include <mach.h> char *Cmd;int Hdrtype;int Strip;long Txtaddr = -1; int Ofd;int Ifd;Fhdr Ihdr; int Debug; static void	get_file(char *);static void	put_file(char *);static void	Usage(char *);static long	strxtol(char *); char	*fail	= "error"; voidmain(int argc, char	*argv[]){	char *ifile, *ofile; 	Cmd = argv[0];	Hdrtype = 2; 	ARGBEGIN {	/*	 * Options without args	 */	case 's':		Strip = 1;		break;	/*	 * Options with args	 */	case 'T':		Txtaddr = strxtol(ARGF());		break;	case 'H':		Hdrtype = strxtol(ARGF());		break;	case 'D':		Debug |= strxtol(ARGF());		break;	default:		Usage("Invalid option");	} ARGEND 	if (argc != 2)		Usage("Wrong number of arguments"); 	ifile = argv[0];	ofile = argv[1]; 	get_file(ifile);	put_file(ofile);	exits(0);} char usagemsg[] ="Usage: %s  options infile outfile\n\t options (for outfile): -H[123456] -s -T<text> \n"; static voidUsage(char *msg){	fprint(2, "***Error: %s\n", msg);	fprint(2, usagemsg, Cmd);	exits("usage");} static longstrxtol(char *s){	char *es;	int base = 0;	long r; 	if (*s == '0')		if (*++s == 'x'){			base = 16;			s++;		}		else			base = 8;	r = strtol(s, &es, base);	if (*es)		Usage("bad number");	return(r);} static voidget_file(char *ifile){	int h;	int d; 	Ifd = open(ifile, OREAD);	if (Ifd < 0) {		fprint(2, "5cv: open %s: %r\n", ifile);		exits("open");	}	h = crackhdr(Ifd, &Ihdr);	if (!h || Debug){		fprint(2, "Crackhdr: %d, type: %d, name: %s\n", h, Ihdr.type, Ihdr.name);		fprint(2, "txt %llux, ent %llux, txtsz %lux, dataddr %llux\n",			Ihdr.txtaddr, Ihdr.entry, Ihdr.txtsz, Ihdr.dataddr);	}	if (!h)		Usage("File type not recognized");	machbytype(Ihdr.type);	if (Debug)		fprint(2, "name: <%s> pgsize:%ux\n", mach->name, mach->pgsize); 	if (Txtaddr != -1){		d = Txtaddr - Ihdr.txtaddr;		Ihdr.txtaddr += d;		Ihdr.dataddr = Ihdr.txtaddr + Ihdr.txtsz;	}} char Wbuf[128];char *wp = Wbuf; voidlput(long l){	wp[0] = l>>24;	wp[1] = l>>16;	wp[2] = l>>8;	wp[3] = l;	wp += 4;} voidlputl(long l){	wp[3] = l>>24;	wp[2] = l>>16;	wp[1] = l>>8;	wp[0] = l;	wp += 4;} static voidcopyseg(long sz){	char	buf[1024]; 	while (sz > 0){		long n;		long r; 		n = sz;		if (n > sizeof buf)			n = sizeof buf;		sz -= n; 		if ((r = read(Ifd, buf, n)) != n){			fprint(2, "%ld = read(...%ld) at %ld\n", r, n, (long)seek(Ifd, 0, 1));			perror("Premature eof");			exits(fail);		}		if ((r = write(Ofd, buf, n)) != n){			fprint(2, "%ld = write(...%ld)\n", r, n);			perror("Write error!");			exits(fail);		}	}} static voidzero(long sz){	char	buf[1024]; 	memset(buf, 0, sizeof buf);	while (sz > 0){		long n;		long r; 		n = sz;		if (n > sizeof buf)			n = sizeof buf;		sz -= n; 		if ((r = write(Ofd, buf, n)) != n){			fprint(2, "%ld = write(...%ld)\n", r, n);			perror("Write error!");			exits(fail);		}	}} static longrnd(long v, long r){	long c; 	if(r <= 0)		return v;	v += r - 1;	c = v % r;	if(c < 0)		c += r;	v -= c;	return v;} static voidput_file(char *ofile){	int ii;	long doff;	long dsize;	long hlen;	long pad; 	Ofd = create(ofile, OWRITE, 0666);	if (Ofd < 0) {		fprint(2, "5cv: create %s: %r\n", ofile);		exits("create");	} 	pad = 0; 	switch(Hdrtype) {	case 1:	/* aif for risc os */		Strip = 1;		hlen = 128;		lputl(0xe1a00000);		/* NOP - decompress code */		lputl(0xe1a00000);		/* NOP - relocation code */		lputl(0xeb000000 + 12);		/* BL - zero init code */		lputl(0xeb000000 +			(Ihdr.entry			 - Ihdr.txtaddr			 + hlen			 - 12			 - 8) / 4);		/* BL - entry code */ 		lputl(0xef000011);		/* SWI - exit code */		doff = Ihdr.txtsz+hlen;		lputl(doff);			/* text size */		dsize = Ihdr.datsz;		lputl(dsize);			/* data size */		lputl(0);			/* sym size */ 		lputl(Ihdr.bsssz);		/* bss size */		lputl(0);			/* sym type */		lputl(Ihdr.txtaddr-hlen);	/* text addr */		lputl(0);			/* workspace - ignored */ 		lputl(32);			/* addr mode / data addr flag */		lputl(0);			/* data addr */		for(ii=0; ii<2; ii++)			lputl(0);		/* reserved */ 		for(ii=0; ii<15; ii++)			lputl(0xe1a00000);	/* NOP - zero init code */		lputl(0xe1a0f00e);		/* B (R14) - zero init return */		break; 	case 2:	/* plan 9 */		hlen = 32;		doff = hlen + Ihdr.txtsz;		dsize = Ihdr.datsz;		lput(0x647);			/* magic */		lput(Ihdr.txtsz);		/* sizes */		lput(Ihdr.datsz);		lput(Ihdr.bsssz);		if (Strip)			/* nsyms */			lput(0);		else			lput(Ihdr.symsz);		lput(Ihdr.entry);		/* va of entry */		lput(0L);		lput(Ihdr.lnpcsz);		break; 	case 3:	/* boot for NetBSD */		hlen = 32;		doff = rnd(hlen+Ihdr.txtsz, 4096);		dsize = rnd(Ihdr.datsz, 4096);		lput((143<<16)|0413);		/* magic */		lputl(doff);		lputl(dsize);		lputl(Ihdr.bsssz);		if (Strip)			/* nsyms */			lputl(0);		else			lputl(Ihdr.symsz);		lputl(Ihdr.entry);		/* va of entry */		lputl(0L);		lputl(0L);		break;	case 4:	/* no header, stripped, padded to 2K, for serial bootstrap */		hlen = 0;		Strip = 1;		doff = hlen + Ihdr.txtsz;		dsize = Ihdr.datsz;		pad = 2048;		break;	case 5:	/* no header, stripped, for all sorts */		hlen = 0;		Strip = 1;		doff = hlen + Ihdr.txtsz;		dsize = Ihdr.datsz;		break;	case 6:	/* fake EPOC IMG format header */		hlen = 256;		*wp++ = 'E';		*wp++ = 'P';		Strip = 1;		doff = hlen + Ihdr.txtsz;		dsize = Ihdr.datsz;		break;	default:		Usage("Bad -Htype");		return;	}	write(Ofd, Wbuf, hlen); 	seek(Ifd, Ihdr.txtoff, 0);	copyseg(Ihdr.txtsz); 	seek(Ifd, Ihdr.datoff, 0);	seek(Ofd, doff, 0);	copyseg(Ihdr.datsz); 	if (!Strip) {		/* Write symbols */		seek(Ofd, doff + dsize, 0);		if (Ihdr.symsz){			seek(Ifd, Ihdr.symoff, 0);			copyseg(Ihdr.symsz);		}		if (Hdrtype == 2)			copyseg(Ihdr.lnpcsz);	} 	if (pad) {		if (doff + Ihdr.datsz > pad) {			perror("Too big!");			exits(fail);		}		else if (doff + Ihdr.datsz < pad)			zero(pad - (doff + Ihdr.datsz));	}}