#include <u.h>#include <libc.h>#include <bio.h>#include <ctype.h>#include <mach.h> /* * file - determine type of file */#define	LENDIAN(p)	((p)[0] | ((p)[1]<<8) | ((p)[2]<<16) | ((p)[3]<<24)) uchar	buf[6000];short	cfreq[140];short	wfreq[50];int	nbuf;Dir	mbuf;int	fd;char 	*fname;char	*slash; enum{	Cword,	Fword,	Aword,	Alword,	I1,	I2,	I3,	Clatin	= 128,	Cbinary,	Cnull,	Ceascii,	Cutf,};struct{	char*	word;	int	class;} dict[] ={	"TEXT",		Aword,	"adt",		Alword,	"aggr",		Alword,	"alef",		Alword,	"block",	Fword,	"chan",		Alword,	"char",		Cword,	"common",	Fword,	"data",		Fword,	"dimension",	Fword,		"double",	Cword,	"extern",	Cword,	"bio",		I2,	"float",	Cword,	"function",	Fword,	"h",		I3,	"include",	I1,	"int",		Cword,	"integer",	Fword,	"libc",		I2,	"long",		Cword,	"real",		Fword,	"register",	Cword,	"short",	Cword,	"static",	Cword,	"stdio",	I2,	"struct",	Cword,	"subroutine",	Fword,	"u",		I2,	"void",		Cword,}; 	/* codes for 'mode' field in language structure */enum	{		Normal	= 0,		First,		/* first entry for language spanning several ranges */		Multi,		/* later entries "   "       "  ... */ 		Shared,		/* codes used in several languages */	}; struct{	int	mode;		/* see enum above */	int 	count;	int	low;	int	high;	char	*name;	} language[] ={	Normal, 0,	0x0080, 0x0080,	"Extended Latin",	Normal,	0,	0x0100,	0x01FF,	"Extended Latin",	Normal,	0,	0x0370,	0x03FF,	"Greek",	Normal,	0,	0x0400,	0x04FF,	"Cyrillic",	Normal,	0,	0x0530,	0x058F,	"Armenian",	Normal,	0,	0x0590,	0x05FF,	"Hebrew",	Normal,	0,	0x0600,	0x06FF,	"Arabic",	Normal,	0,	0x0900,	0x097F,	"Devanagari",	Normal,	0,	0x0980,	0x09FF,	"Bengali",	Normal,	0,	0x0A00,	0x0A7F,	"Gurmukhi",	Normal,	0,	0x0A80,	0x0AFF,	"Gujarati",	Normal,	0,	0x0B00,	0x0B7F,	"Oriya",	Normal,	0,	0x0B80,	0x0BFF,	"Tamil",	Normal,	0,	0x0C00,	0x0C7F,	"Telugu",	Normal,	0,	0x0C80,	0x0CFF,	"Kannada",	Normal,	0,	0x0D00,	0x0D7F,	"Malayalam",	Normal,	0,	0x0E00,	0x0E7F,	"Thai",	Normal,	0,	0x0E80,	0x0EFF,	"Lao",	Normal,	0,	0x1000,	0x105F,	"Tibetan",	Normal,	0,	0x10A0,	0x10FF,	"Georgian",	Normal,	0,	0x3040,	0x30FF,	"Japanese",	Normal,	0,	0x3100,	0x312F,	"Chinese",	First,	0,	0x3130,	0x318F,	"Korean",	Multi,	0,	0x3400,	0x3D2F,	"Korean",	Shared,	0,	0x4e00,	0x9fff,	"CJK",	Normal,	0,	0,	0,	0,		/* terminal entry */};		enum{	Fascii,		/* printable ascii */	Flatin,		/* latin 1*/	Futf,		/* UTf character set */	Fbinary,	/* binary */	Feascii,	/* ASCII with control chars */	Fnull,		/* NULL in file */} guess; void	bump_utf_count(Rune);void	filetype(int);int	getfontnum(uchar *, uchar **);int	isas(void);int	isc(void);int	iscint(void);int	isenglish(void);int	ismung(void);int	isp9bit(void);int	isp9font(void);int	istring(void);int	long0(void);int	p9bitnum(uchar *);int	p9subfont(uchar *);void	print_utf(void);int	short0(void);void	type(char*, int);int	utf_count(void);void	wordfreq(void); int	(*call[])(void) ={	long0,		/* recognizable by first 4 bytes */	short0,		/* recognizable by first 2 bytes */	istring,	/* recognizable by first string */	iscint,		/* compiler/assembler intermediate */	isc,		/* c & alef compiler key words */	isas,		/* assembler key words */	ismung,		/* entropy compressed/encrypted */	isenglish,	/* char frequency English */	isp9font,	/* plan 9 font */	isp9bit,	/* plan 9 bitmap (as from /dev/window) */	0}; voidmain(int argc, char *argv[]){	int i, j, maxlen;	char *cp;	Rune r; 	maxlen = 0;	for(i = 1; i < argc; i++) {		for (j = 0, cp = argv[i]; *cp; j++, cp += chartorune(&r, cp))				;		if(j > maxlen)			maxlen = j;	}	if (argc <= 1) {		print ("stdin: ");		filetype(0);	}	else {		for(i = 1; i < argc; i++)			type(argv[i], maxlen);	}	exits(0);} voidtype(char *file, int nlen){	Rune r;	int i;	char *p; 	slash = 0;	for (i = 0, p = file; *p; i++) {		if (*p == '/')			/* find rightmost slash */			slash = p;		p += chartorune(&r, p);		/* count runes */	}	print("%s:%*s",file, nlen-i+1, "");	fname = file;	if ((fd = open(file, OREAD)) < 0) {		print("cannot open\n");		return;	}	filetype(fd);	close(fd);} voidfiletype(int fd){	Rune r;	int i, f, n;	char *p, *eob; 	if(dirfstat(fd, &mbuf) < 0) {		print("cannot stat\n");		return;	}	if(mbuf.mode & CHDIR) {		print("directory\n");		return;	}	if(mbuf.type != 'M' && mbuf.type != '|') {		print("special file #%c\n", mbuf.type);		return;	}	nbuf = read(fd, buf, sizeof(buf)); 	if(nbuf < 0) {		print("cannot read\n");		return;	}	if(nbuf == 0) {		print("empty\n");		return;	} 	/*	 * build histogram table	 */	memset(cfreq, 0, sizeof(cfreq));	for (i = 0; language[i].name; i++)		language[i].count = 0;	eob = (char *)buf+nbuf;	for(n = 0, p = (char *)buf; p < eob; n++) {		if (!fullrune(p, eob-p) && eob-p < UTFmax)			break;		p += chartorune(&r, p);		if (r == 0)			f = Cnull;		else if (r <= 0x7f) {			if (!isprint(r) && !isspace(r))				f = Ceascii;	/* ASCII control char */			else f = r;		} else if (r == 0x080) {			bump_utf_count(r);			f = Cutf;		} else if (r < 0xA0)				f = Cbinary;	/* Invalid Runes */		else if (r <= 0xff)				f = Clatin;	/* Latin 1 */		else {			bump_utf_count(r);			f = Cutf;		/* UTF extension */		}		cfreq[f]++;			/* ASCII chars peg directly */	}	/*	 * gross classify	 */	if (cfreq[Cbinary])		guess = Fbinary;	else if (cfreq[Cutf])		guess = Futf;	else if (cfreq[Clatin])		guess = Flatin;	else if (cfreq[Ceascii])		guess = Feascii;	else if (cfreq[Cnull] == n) {		print("all null bytes\n");		return;	}	else guess = Fascii;	/*	 * lookup dictionary words	 */	memset(wfreq, 0, sizeof(wfreq));	if(guess == Fascii || guess == Flatin) 		wordfreq();	/*	 * call individual classify routines	 */	for(i=0; call[i]; i++)		if((*call[i])())			return; 	/*	 * if all else fails,	 * print out gross classification	 */	if (nbuf < 100)		print("short ");	if (guess == Fascii)		print("Ascii\n");	else if (guess == Feascii)		print("extended ascii\n");	else if (guess == Flatin)		print("latin ascii\n");	else if (guess == Futf && utf_count() < 4)		print_utf();	else print("binary\n");} voidbump_utf_count(Rune r){	int low, high, mid; 	high = sizeof(language)/sizeof(language[0])-1;	for (low = 0; low < high;) {		mid = (low+high)/2;		if (r >=language[mid].low) {			if (r <= language[mid].high) {				language[mid].count++;				break;			} else low = mid+1;		} else high = mid;	}} intutf_count(void){	int i, count; 	count = 0;	for (i = 0; language[i].name; i++)		if (language[i].count > 0)			switch (language[i].mode) {			case Normal:			case First:				count++;				break;			default:				break;			}	return count;} intchkascii(void){	int i; 	for (i = 'a'; i < 'z'; i++)		if (cfreq[i])			return 1;	for (i = 'A'; i < 'Z'; i++)		if (cfreq[i])			return 1;	return 0;} intfind_first(char *name){	int i; 	for (i = 0; language[i].name != 0; i++)		if (language[i].mode == First			&& strcmp(language[i].name, name) == 0)			return i;	return -1;} voidprint_utf(void){	int i, printed, j; 	if (chkascii()) {		printed = 1;		print("Ascii");	} else		printed = 0;	for (i = 0; language[i].name; i++)		if (language[i].count) {			switch(language[i].mode) {			case Multi:				j = find_first(language[i].name);				if (j < 0)					break;				if (language[j].count > 0)					break;				/* Fall through */			case Normal:			case First:				if (printed)					print(" & ");				else printed = 1;				print("%s", language[i].name);				break;			case Shared:			default:				break;			}		}	if(!printed)		print("UTF");	print(" text\n");} voidwordfreq(void){	int low, high, mid, r;	uchar *p, *p2, c; 	p = buf;	for(;;) {		while (p < buf+nbuf && !isalpha(*p))			p++;		if (p >= buf+nbuf)			return;		p2 = p;		while(p < buf+nbuf && isalpha(*p))			p++;		c = *p;		*p = 0;		high = sizeof(dict)/sizeof(dict[0]);		for(low = 0;low < high;) {			mid = (low+high)/2;			r = strcmp(dict[mid].word, (char*)p2);			if(r == 0) {				wfreq[dict[mid].class]++;				break;			}			if(r < 0)				low = mid+1;			else				high = mid;		}		*p++ = c;	}} intlong0(void){	Fhdr f; 	seek(fd, 0, 0);		/* reposition to start of file */	if (crackhdr(fd, &f)) {		print("%s\n", f.name);		return 1;	}	switch(LENDIAN(buf)) {	case 0xf16df16d:		print("pac1 audio file\n");		return 1;	case 0x31636170:		print("pac3 audio file\n");		return 1;	case 0x32636170:		print("pac4 audio file\n");		return 1;	default:		return 0;	}	return 1;} intshort0(void){ 	switch(LENDIAN(buf) & 0xffff) {	case 070707:		print("cpio archive\n");		break; 	case 0x02f7:		print("tex dvi\n");		break;	default:		return 0;	}	return 1;} /* * initial words to classify file */struct	FILE_STRING

Lines 1–500 of 847. Load more