#include <lib9.h>#include <bio.h>#include <mach.h> int	conly;int	exists; enum {	Maxroot = 10,}; int	nroot;char	*root[Maxroot];int	rootlen[Maxroot]; void	usage(void);void	error(char *);void	addroot(char *);void	addroots(char *);void	chomp(char *); extern char	*mygetwd(char*, int); voidmain(int argc, char **argv){	char buf[1024], *cwd; 	cwd = mygetwd(buf, sizeof(buf));	ARGBEGIN {	case 'c':		conly = 1;		break;	case 'e':		exists = 1;		break;	case 'r':		addroots(EARGF(usage()));		break;	default:		usage();	} ARGEND 	if(argc != 1)		usage(); 	if(cwd != nil)		chdir(cwd);	setbinmode();	chomp(argv[0]); 	exits(0);} voidaddroot(char *x){	if(nroot >= Maxroot){		fprint(2, "srclist: too many root directories\n");		exits("usage");	}	root[nroot] = x;	rootlen[nroot] = strlen(x);	nroot++;} voidaddrootnt(char *r){	addroot(r);	if(r[1] != ':')		return;	/* phew! */	if(*r >= 'a' && *r <= 'z' || *r >= 'A' && *r <= 'Z')		addroot(r+2);} voidaddroots(char *r){	char buf[1024], *r2; 	addrootnt(r);	if(chdir(r) < 0)		return;	r2 = mygetwd(buf, sizeof(buf));	if(r2 && strcmp(r2, r) != 0)		addrootnt(r2);} voidchomp(char *file){	int fd, i, j, len;	Fhdr fhdr;	Dir *td;	char fname[1024]; 	fd = open(file, OREAD);	if(fd < 0)		error("open"); 	if(crackhdr(fd, &fhdr) == 0)		error("crackhdr"); 	if(syminit(fd, &fhdr) < 0)		error("syminit"); 	for(i = 0; i < 1000; i++)		if(filesym(i, fname, sizeof(fname)-1)){			cleanname(fname);			if(conly){				len = strlen(fname);				if(len < 2 || strcmp(fname+len-2, ".c") != 0)					continue;			}			if(exists){				if((td = dirstat(fname)) == nil)					continue;				free(td);			}			if(nroot){				for(j = 0; j < nroot; j++)					if(strncmp(fname, root[j], rootlen[j]) == 0)						break;				if(j == nroot)					continue;			}			print("%s\n", fname);		}} voidusage(void){	fprint(2, "usage: srclist [-ce] [-r root] <objfile>\n");	exits("usage");} voiderror(char *s){	fprint(2, "srclist: %s: %r\n", s);	exits(s);}