#include <u.h>#include <libc.h>#include <bio.h> enum{	Nfont = 11,	Wid = 20,	/* tmac.anhtml sets page width to 20" so we can recognize .nf text */}; typedef uintptr Char;typedef struct Troffchar Troffchar;typedef struct Htmlchar Htmlchar;typedef struct Font Font;typedef struct HTMLfont HTMLfont; /* * a Char is >= 32 bits. low 16 bits are the rune. higher are attributes. * must be able to hold a pointer. */enum{	Italic	=	16,	Bold,	CW,	Indent1,	Indent2,	Indent3,	Heading =	25,	Anchor =	26,	/* must be last */}; enum	/* magic emissions */{	Estring = 0,	Epp = 1<<16,}; int attrorder[] = { Indent1, Indent2, Indent3, Heading, Anchor, Italic, Bold, CW }; int nest[10];int nnest; struct Troffchar{	char *name;	char *value;}; struct Htmlchar{	char *utf;	char *name;	int value;}; #include "chars.h" struct Font{	char		*name;	HTMLfont	*htmlfont;}; struct HTMLfont{	char	*name;	char	*htmlname;	int	bit;}; /* R must be first; it's the default representation for fonts we don't recognize */HTMLfont htmlfonts[] ={	"R",		nil,	0,	"LucidaSans",	nil,	0,	"I",		"i",	Italic,	"LucidaSansI",	"i",	Italic,	"CW",		"tt",	CW,	"LucidaCW",	"tt",	CW,	nil,	nil,}; #define TABLE "<table border=0 cellpadding=0 cellspacing=0>" char*onattr[8*sizeof(int)] ={	0, 0, 0, 0, 0, 0, 0, 0,	0, 0, 0, 0, 0, 0, 0, 0,	"<i>",			/* italic */	"<b>",			/* bold */	"<tt><font size=+1>",	/* cw */	"<+table border=0 cellpadding=0 cellspacing=0><tr height=2><td><tr><td width=20><td>\n",		/* indent1 */	"<+table border=0 cellpadding=0 cellspacing=0><tr height=2><td><tr><td width=20><td>\n",		/* indent2 */	"<+table border=0 cellpadding=0 cellspacing=0><tr height=2><td><tr><td width=20><td>\n",		/* indent3 */	0,	0,	0,	"<p><font size=+1><b>",	/* heading 25 */	"<unused>",		/* anchor 26 */}; char*offattr[8*sizeof(int)] ={	0, 0, 0, 0, 0, 0, 0, 0,	0, 0, 0, 0, 0, 0, 0, 0,	"</i>",			/* italic */	"</b>",			/* bold */	"</font></tt>",		/* cw */	"<-/table>",		/* indent1 */	"<-/table>",		/* indent2 */	"<-/table>",		/* indent3 */	0,	0,	0,	"</b></font>",		/* heading 25 */	"</a>",			/* anchor 26 */}; Font	*font[Nfont]; Biobuf	bout;int	debug = 0; /* troff state */int	page = 1;int	ft = 1;int	vp = 0;int	hp = 0;int	ps = 1;int	res = 720; int	didP = 0;int	atnewline = 1;int	prevlineH = 0;Char	attr = 0;	/* or'ed into each Char */ Char	*chars;int	nchars;int	nalloc;char**	anchors;	/* allocated in order */int	nanchors; char	*filename;int	cno;char	buf[8192];char	*title = "Plan 9 man page"; void	process(Biobuf*, char*);void	mountfont(int, char*);void	switchfont(int);void	header(char*);void	flush(void);void	trailer(void); void*emalloc(ulong n){	void *p; 	p = malloc(n);	if(p == nil)		sysfatal("malloc failed: %r");	return p;} void*erealloc(void *p, ulong n){ 	p = realloc(p, n);	if(p == nil)		sysfatal("realloc failed: %r");	return p;} char*estrdup(char *s){	char *t; 	t = strdup(s);	if(t == nil)		sysfatal("strdup failed: %r");	return t;} voidusage(void){	fprint(2, "usage: troff2html [-d] [-t title] [file ...]\n");	exits("usage");} inthccmp(const void *va, const void *vb){	Htmlchar *a, *b; 	a = (Htmlchar*)va;	b = (Htmlchar*)vb;	return a->value - b->value;} voidmain(int argc, char *argv[]){	int i;	Biobuf in, *inp;	Rune r; 	for(i=0; i<nelem(htmlchars); i++){		chartorune(&r, htmlchars[i].utf);		htmlchars[i].value = r;	}	qsort(htmlchars, nelem(htmlchars), sizeof(htmlchars[0]), hccmp); 	ARGBEGIN{	case 't':		title = ARGF();		if(title == nil)			usage();		break;	case 'd':		debug++;		break;	default:		usage();	}ARGEND 	Binit(&bout, 1, OWRITE);	if(argc == 0){		header(title);		Binit(&in, 0, OREAD);		process(&in, "<stdin>");	}else{		header(title);		for(i=0; i<argc; i++){			inp = Bopen(argv[i], OREAD);			if(inp == nil)				sysfatal("can't open %s: %r", argv[i]);			process(inp, argv[i]);			Bterm(inp);		}	}	flush();	trailer();	exits(nil);} voidemitchar(Char c){	if(nalloc == nchars){		nalloc += 10000;		chars = realloc(chars, nalloc*sizeof(chars[0]));		if(chars == nil)			sysfatal("malloc failed: %r");	}	chars[nchars++] = c;} voidemit(Rune r){	emitchar(r | attr);	/*	 * Close man page references early, so that 	 * .IR proof (1),	 * doesn't make the comma part of the link.	 */	if(r == ')')		attr &= ~(1<<Anchor);} voidemitstr(char *s){	emitchar(Estring);	emitchar((Char)s);} int indentlevel;int linelen; voidiputrune(Biobuf *b, Rune r){	int i; 	if(linelen++ > 60 && r == ' ')		r = '\n';	Bputrune(b, r);	if(r == '\n'){		for(i=0; i<indentlevel; i++)			Bprint(b, "    ");		linelen = 0;	}} voidiputs(Biobuf *b, char *s){	if(s[0]=='<' && s[1]=='+'){		iputrune(b, '\n');		Bprint(b, "<%s", s+2);		indentlevel++;		iputrune(b, '\n');	}else if(s[0]=='<' && s[1]=='-'){		indentlevel--;		iputrune(b, '\n');		Bprint(b, "<%s", s+2);		iputrune(b, '\n');	}else		Bprint(b, "%s", s);} voidsetattr(Char a){	Char on, off;	int i, j; 	on = a & ~attr;	off = attr & ~a; 	/* walk up the nest stack until we reach something we need to turn off. */	for(i=0; i<nnest; i++)		if(off&(1<<nest[i]))			break; 	/* turn off everything above that */	for(j=nnest-1; j>=i; j--)		iputs(&bout, offattr[nest[j]]); 	/* turn on everything we just turned off but didn't want to */	for(j=i; j<nnest; j++)		if(a&(1<<nest[j]))			iputs(&bout, onattr[nest[j]]);		else			nest[j] = 0; 	/* shift the zeros (turned off things) up */	for(i=j=0; i<nnest; i++)		if(nest[i] != 0)			nest[j++] = nest[i];	nnest = j; 	/* now turn on the new attributes */	for(i=0; i<nelem(attrorder); i++){		j = attrorder[i];		if(on&(1<<j)){			if(j == Anchor)				onattr[j] = anchors[nanchors++];			iputs(&bout, onattr[j]);			if(nnest >= nelem(nest))				sysfatal("nesting too deep");			nest[nnest++] = j;		}	}	attr = a;} voidflush(void){	int i;	Char c, a; 	nanchors = 0;	for(i=0; i<nchars; i++){		c = chars[i];		if(c == Estring){			/* next word is string to print */			iputs(&bout, (char*)chars[++i]);			continue;		}		if(c == Epp){			iputrune(&bout, '\n');			iputs(&bout, TABLE "<tr height=5><td></table>");			iputrune(&bout, '\n');			continue;		}		a = c & ~0xFFFF;		c &= 0xFFFF;		/*		 * If we're going to something off after a space,		 * let's just turn it off before.		 */		if(c == ' ' && i<nchars-1 && (chars[i+1]&0xFFFF) >= 32)			a ^= a & ~chars[i+1];		setattr(a);		iputrune(&bout, c & 0xFFFF);	}} voidheader(char *s){	Bprint(&bout, "<head>\n");	Bprint(&bout, "<title>%s</title>\n", s);	Bprint(&bout, "<meta content=\"text/html; charset=utf-8\" http-equiv=Content-Type>\n");	Bprint(&bout, "</head>\n");	Bprint(&bout, "<body bgcolor=#ffffff>\n");} voidtrailer(void){ #ifdef LUCENT	Tm *t;	t = localtime(time(nil));	Bprint(&bout, TABLE "<tr height=20><td></table>\n");	Bprint(&bout, "<font size=-1><a href=\"http://www.lucent.com/copyright.html\">\n");	Bprint(&bout, "Copyright</A> &#169; %d Alcatel-Lucent.  All rights reserved.</font>\n", t->year+1900);#endif	Bprint(&bout, "</body></html>\n");} intgetc(Biobuf *b){	cno++;	return Bgetrune(b);} voidungetc(Biobuf *b){	cno--;	Bungetrune(b);} char*getline(Biobuf *b){	int i, c; 	for(i=0; i<sizeof buf; i++){		c = getc(b);		if(c == Beof)			return nil;		buf[i] = c;		if(c == '\n'){			buf[i] = '\0';			break;		}	}	return buf;} intgetnum(Biobuf *b){	int i, c; 	i = 0;	for(;;){		c = getc(b);		if(c<'0' || '9'<c){			ungetc(b);			break;		}		i = i*10 + (c-'0');	}	return i;} char*getstr(Biobuf *b){	int i, c; 	for(i=0; i<sizeof buf; i++){		/* must get bytes not runes */		cno++;		c = Bgetc(b);		if(c == Beof)			return nil;		buf[i] = c;		if(c == '\n' || c==' ' || c=='\t'){			ungetc(b);			buf[i] = '\0';			break;		}	}	return buf;} intsetnum(Biobuf *b, char *name, int min, int max){	int i; 	i = getnum(b);	if(debug > 2)		fprint(2, "set %s = %d\n", name, i);	if(min<=i && i<max)		return i;	sysfatal("value of %s is %d; min %d max %d at %s:#%d", name, i, min, max, filename, cno);

Lines 1–500 of 795. Load more