1 357621cd 2005-01-13 devnull #include <u.h>
2 357621cd 2005-01-13 devnull #include <libc.h>
3 357621cd 2005-01-13 devnull #include <bio.h>
4 78e51a8c 2005-01-14 devnull #include <ctype.h>
7 357621cd 2005-01-13 devnull Nfont = 11,
8 cbeb0b26 2006-04-01 devnull Wid = 20 /* tmac.anhtml sets page width to 20" so we can recognize .nf text */
11 357621cd 2005-01-13 devnull typedef ulong Char;
12 357621cd 2005-01-13 devnull typedef struct Troffchar Troffchar;
13 357621cd 2005-01-13 devnull typedef struct Htmlchar Htmlchar;
14 357621cd 2005-01-13 devnull typedef struct Font Font;
15 357621cd 2005-01-13 devnull typedef struct HTMLfont HTMLfont;
17 357621cd 2005-01-13 devnull /* a Char is 32 bits. low 16 bits are the rune. higher are attributes */
20 357621cd 2005-01-13 devnull Italic = 16,
26 357621cd 2005-01-13 devnull Heading = 25,
27 cbeb0b26 2006-04-01 devnull Anchor = 26 /* must be last */
30 357621cd 2005-01-13 devnull enum /* magic emissions */
32 357621cd 2005-01-13 devnull Estring = 0,
33 cbeb0b26 2006-04-01 devnull Epp = 1<<16
36 357621cd 2005-01-13 devnull int attrorder[] = { Indent1, Indent2, Indent3, Heading, Anchor, Italic, Bold, CW };
38 357621cd 2005-01-13 devnull int nest[10];
39 357621cd 2005-01-13 devnull int nnest;
41 357621cd 2005-01-13 devnull struct Troffchar
43 357621cd 2005-01-13 devnull char *name;
44 357621cd 2005-01-13 devnull char *value;
47 357621cd 2005-01-13 devnull struct Htmlchar
49 357621cd 2005-01-13 devnull char *utf;
50 357621cd 2005-01-13 devnull char *name;
51 357621cd 2005-01-13 devnull int value;
54 357621cd 2005-01-13 devnull #include "chars.h"
56 357621cd 2005-01-13 devnull struct Font{
57 357621cd 2005-01-13 devnull char *name;
58 357621cd 2005-01-13 devnull HTMLfont *htmlfont;
61 357621cd 2005-01-13 devnull struct HTMLfont{
62 357621cd 2005-01-13 devnull char *name;
63 357621cd 2005-01-13 devnull char *htmlname;
67 357621cd 2005-01-13 devnull /* R must be first; it's the default representation for fonts we don't recognize */
68 357621cd 2005-01-13 devnull HTMLfont htmlfonts[] =
70 357621cd 2005-01-13 devnull "R", nil, 0,
71 4590ad02 2006-03-19 devnull "LuxiSans", nil, 0,
72 357621cd 2005-01-13 devnull "I", "i", Italic,
73 4590ad02 2006-03-19 devnull "LuxiSans-Oblique", "i", Italic,
74 357621cd 2005-01-13 devnull "CW", "tt", CW,
75 4590ad02 2006-03-19 devnull "LuxiMono", "tt", CW,
79 357621cd 2005-01-13 devnull #define TABLE "<table border=0 cellpadding=0 cellspacing=0>"
82 357621cd 2005-01-13 devnull onattr[8*sizeof(ulong)] =
84 357621cd 2005-01-13 devnull 0, 0, 0, 0, 0, 0, 0, 0,
85 357621cd 2005-01-13 devnull 0, 0, 0, 0, 0, 0, 0, 0,
86 357621cd 2005-01-13 devnull "<i>", /* italic */
87 357621cd 2005-01-13 devnull "<b>", /* bold */
88 357621cd 2005-01-13 devnull "<tt><font size=+1>", /* cw */
89 357621cd 2005-01-13 devnull "<+table border=0 cellpadding=0 cellspacing=0><tr height=2><td><tr><td width=20><td>\n", /* indent1 */
90 357621cd 2005-01-13 devnull "<+table border=0 cellpadding=0 cellspacing=0><tr height=2><td><tr><td width=20><td>\n", /* indent2 */
91 357621cd 2005-01-13 devnull "<+table border=0 cellpadding=0 cellspacing=0><tr height=2><td><tr><td width=20><td>\n", /* indent3 */
95 357621cd 2005-01-13 devnull "<p><font size=+1><b>", /* heading 25 */
96 357621cd 2005-01-13 devnull "<unused>", /* anchor 26 */
100 357621cd 2005-01-13 devnull offattr[8*sizeof(ulong)] =
102 357621cd 2005-01-13 devnull 0, 0, 0, 0, 0, 0, 0, 0,
103 357621cd 2005-01-13 devnull 0, 0, 0, 0, 0, 0, 0, 0,
104 357621cd 2005-01-13 devnull "</i>", /* italic */
105 357621cd 2005-01-13 devnull "</b>", /* bold */
106 357621cd 2005-01-13 devnull "</font></tt>", /* cw */
107 357621cd 2005-01-13 devnull "<-/table>", /* indent1 */
108 357621cd 2005-01-13 devnull "<-/table>", /* indent2 */
109 357621cd 2005-01-13 devnull "<-/table>", /* indent3 */
113 357621cd 2005-01-13 devnull "</b></font>", /* heading 25 */
114 357621cd 2005-01-13 devnull "</a>", /* anchor 26 */
117 357621cd 2005-01-13 devnull Font *font[Nfont];
119 357621cd 2005-01-13 devnull Biobuf bout;
120 357621cd 2005-01-13 devnull int debug = 0;
122 357621cd 2005-01-13 devnull /* troff state */
123 357621cd 2005-01-13 devnull int page = 1;
124 357621cd 2005-01-13 devnull int ft = 1;
125 357621cd 2005-01-13 devnull int vp = 0;
126 357621cd 2005-01-13 devnull int hp = 0;
127 357621cd 2005-01-13 devnull int ps = 1;
128 357621cd 2005-01-13 devnull int res = 720;
130 357621cd 2005-01-13 devnull int didP = 0;
131 357621cd 2005-01-13 devnull int atnewline = 1;
132 357621cd 2005-01-13 devnull int prevlineH = 0;
133 357621cd 2005-01-13 devnull ulong attr = 0; /* or'ed into each Char */
135 357621cd 2005-01-13 devnull Char *chars;
136 357621cd 2005-01-13 devnull int nchars;
137 357621cd 2005-01-13 devnull int nalloc;
138 357621cd 2005-01-13 devnull char** anchors; /* allocated in order */
139 357621cd 2005-01-13 devnull int nanchors;
141 357621cd 2005-01-13 devnull char *pagename;
142 357621cd 2005-01-13 devnull char *section;
144 357621cd 2005-01-13 devnull char *filename;
145 357621cd 2005-01-13 devnull int cno;
146 357621cd 2005-01-13 devnull char buf[8192];
147 357621cd 2005-01-13 devnull char *title = "Plan 9 man page";
149 357621cd 2005-01-13 devnull void process(Biobuf*, char*);
150 357621cd 2005-01-13 devnull void mountfont(int, char*);
151 357621cd 2005-01-13 devnull void switchfont(int);
152 357621cd 2005-01-13 devnull void header(char*);
153 357621cd 2005-01-13 devnull void flush(void);
154 357621cd 2005-01-13 devnull void trailer(void);
157 357621cd 2005-01-13 devnull emalloc(ulong n)
159 357621cd 2005-01-13 devnull void *p;
161 357621cd 2005-01-13 devnull p = malloc(n);
162 357621cd 2005-01-13 devnull if(p == nil)
163 357621cd 2005-01-13 devnull sysfatal("malloc failed: %r");
164 357621cd 2005-01-13 devnull return p;
168 357621cd 2005-01-13 devnull erealloc(void *p, ulong n)
171 357621cd 2005-01-13 devnull p = realloc(p, n);
172 357621cd 2005-01-13 devnull if(p == nil)
173 357621cd 2005-01-13 devnull sysfatal("realloc failed: %r");
174 357621cd 2005-01-13 devnull return p;
178 357621cd 2005-01-13 devnull estrdup(char *s)
180 357621cd 2005-01-13 devnull char *t;
182 357621cd 2005-01-13 devnull t = strdup(s);
183 357621cd 2005-01-13 devnull if(t == nil)
184 357621cd 2005-01-13 devnull sysfatal("strdup failed: %r");
185 357621cd 2005-01-13 devnull return t;
189 357621cd 2005-01-13 devnull usage(void)
191 357621cd 2005-01-13 devnull fprint(2, "usage: troff2html [-d] [-t title] [file ...]\n");
192 357621cd 2005-01-13 devnull exits("usage");
196 357621cd 2005-01-13 devnull hccmp(const void *va, const void *vb)
198 357621cd 2005-01-13 devnull Htmlchar *a, *b;
200 357621cd 2005-01-13 devnull a = (Htmlchar*)va;
201 357621cd 2005-01-13 devnull b = (Htmlchar*)vb;
202 357621cd 2005-01-13 devnull return a->value - b->value;
206 357621cd 2005-01-13 devnull main(int argc, char *argv[])
209 357621cd 2005-01-13 devnull Biobuf in, *inp;
212 357621cd 2005-01-13 devnull for(i=0; i<nelem(htmlchars); i++){
213 357621cd 2005-01-13 devnull chartorune(&r, htmlchars[i].utf);
214 357621cd 2005-01-13 devnull htmlchars[i].value = r;
216 357621cd 2005-01-13 devnull qsort(htmlchars, nelem(htmlchars), sizeof(htmlchars[0]), hccmp);
218 357621cd 2005-01-13 devnull ARGBEGIN{
219 357621cd 2005-01-13 devnull case 't':
220 357621cd 2005-01-13 devnull title = ARGF();
221 357621cd 2005-01-13 devnull if(title == nil)
222 357621cd 2005-01-13 devnull usage();
224 357621cd 2005-01-13 devnull case 'd':
225 357621cd 2005-01-13 devnull debug++;
227 357621cd 2005-01-13 devnull default:
228 357621cd 2005-01-13 devnull usage();
231 357621cd 2005-01-13 devnull Binit(&bout, 1, OWRITE);
232 357621cd 2005-01-13 devnull if(argc == 0){
233 357621cd 2005-01-13 devnull Binit(&in, 0, OREAD);
234 357621cd 2005-01-13 devnull process(&in, "<stdin>");
236 357621cd 2005-01-13 devnull for(i=0; i<argc; i++){
237 357621cd 2005-01-13 devnull inp = Bopen(argv[i], OREAD);
238 357621cd 2005-01-13 devnull if(inp == nil)
239 357621cd 2005-01-13 devnull sysfatal("can't open %s: %r", argv[i]);
240 357621cd 2005-01-13 devnull process(inp, argv[i]);
241 357621cd 2005-01-13 devnull Bterm(inp);
244 357621cd 2005-01-13 devnull header(title);
245 357621cd 2005-01-13 devnull flush();
246 357621cd 2005-01-13 devnull trailer();
247 357621cd 2005-01-13 devnull exits(nil);
251 357621cd 2005-01-13 devnull emitul(ulong ul, int special)
253 357621cd 2005-01-13 devnull ulong a, c;
255 357621cd 2005-01-13 devnull if(nalloc == nchars){
256 357621cd 2005-01-13 devnull nalloc += 10000;
257 357621cd 2005-01-13 devnull chars = realloc(chars, nalloc*sizeof(chars[0]));
258 357621cd 2005-01-13 devnull if(chars == nil)
259 357621cd 2005-01-13 devnull sysfatal("malloc failed: %r");
262 357621cd 2005-01-13 devnull if(!special){
263 357621cd 2005-01-13 devnull a = ul&~0xFFFF;
264 357621cd 2005-01-13 devnull c = ul&0xFFFF;
266 357621cd 2005-01-13 devnull * Attr-specific transformations.
268 357621cd 2005-01-13 devnull if((a&(1<<CW)) && c=='-')
269 357621cd 2005-01-13 devnull c = 0x2212;
270 357621cd 2005-01-13 devnull if(!(a&(1<<CW))){
271 357621cd 2005-01-13 devnull if(c == '`')
272 357621cd 2005-01-13 devnull c = 0x2018;
273 357621cd 2005-01-13 devnull if(c == '\'')
274 357621cd 2005-01-13 devnull c = 0x2019;
276 357621cd 2005-01-13 devnull ul = a|c;
279 357621cd 2005-01-13 devnull * Turn single quotes into double quotes.
281 357621cd 2005-01-13 devnull if(nchars > 0){
282 357621cd 2005-01-13 devnull if(c == 0x2018 && (chars[nchars-1]&0xFFFF) == 0x2018
283 357621cd 2005-01-13 devnull && a==(chars[nchars-1]&~0xFFFF)){
284 357621cd 2005-01-13 devnull chars[nchars-1] = (ul&~0xFFFF) | 0x201C;
287 357621cd 2005-01-13 devnull if(c == 0x2019 && (chars[nchars-1]&0xFFFF) == 0x2019
288 357621cd 2005-01-13 devnull && a==(chars[nchars-1]&~0xFFFF)){
289 357621cd 2005-01-13 devnull chars[nchars-1] = (ul&~0xFFFF) | 0x201D;
294 357621cd 2005-01-13 devnull chars[nchars++] = ul;
298 357621cd 2005-01-13 devnull emit(Rune r)
300 357621cd 2005-01-13 devnull emitul(r | attr, 0);
302 357621cd 2005-01-13 devnull * Close man page references early, so that
303 357621cd 2005-01-13 devnull * .IR proof (1),
304 357621cd 2005-01-13 devnull * doesn't make the comma part of the link.
306 357621cd 2005-01-13 devnull if(r == ')')
307 357621cd 2005-01-13 devnull attr &= ~(1<<Anchor);
311 357621cd 2005-01-13 devnull emitstr(char *s)
313 357621cd 2005-01-13 devnull emitul(Estring | attr, 0);
314 357621cd 2005-01-13 devnull emitul((ulong)s, 1);
317 357621cd 2005-01-13 devnull int indentlevel;
318 357621cd 2005-01-13 devnull int linelen;
321 357621cd 2005-01-13 devnull iputrune(Biobuf *b, Rune r)
325 357621cd 2005-01-13 devnull if(linelen++ > 60 && r == ' ')
326 357621cd 2005-01-13 devnull r = '\n';
327 357621cd 2005-01-13 devnull if(r >= 0x80)
328 357621cd 2005-01-13 devnull Bprint(b, "&#%d;", r);
330 357621cd 2005-01-13 devnull Bputrune(b, r);
331 357621cd 2005-01-13 devnull if(r == '\n'){
332 357621cd 2005-01-13 devnull for(i=0; i<indentlevel; i++)
333 357621cd 2005-01-13 devnull Bprint(b, " ");
334 357621cd 2005-01-13 devnull linelen = 0;
339 357621cd 2005-01-13 devnull iputs(Biobuf *b, char *s)
341 357621cd 2005-01-13 devnull if(s[0]=='<' && s[1]=='+'){
342 357621cd 2005-01-13 devnull iputrune(b, '\n');
343 357621cd 2005-01-13 devnull Bprint(b, "<%s", s+2);
344 357621cd 2005-01-13 devnull indentlevel++;
345 357621cd 2005-01-13 devnull iputrune(b, '\n');
346 357621cd 2005-01-13 devnull }else if(s[0]=='<' && s[1]=='-'){
347 357621cd 2005-01-13 devnull indentlevel--;
348 357621cd 2005-01-13 devnull iputrune(b, '\n');
349 357621cd 2005-01-13 devnull Bprint(b, "<%s", s+2);
350 357621cd 2005-01-13 devnull iputrune(b, '\n');
352 357621cd 2005-01-13 devnull Bprint(b, "%s", s);
356 357621cd 2005-01-13 devnull setattr(ulong a)
358 357621cd 2005-01-13 devnull int on, off, i, j;
360 357621cd 2005-01-13 devnull on = a & ~attr;
361 357621cd 2005-01-13 devnull off = attr & ~a;
363 357621cd 2005-01-13 devnull /* walk up the nest stack until we reach something we need to turn off. */
364 357621cd 2005-01-13 devnull for(i=0; i<nnest; i++)
365 357621cd 2005-01-13 devnull if(off&(1<<nest[i]))
368 357621cd 2005-01-13 devnull /* turn off everything above that */
369 357621cd 2005-01-13 devnull for(j=nnest-1; j>=i; j--)
370 357621cd 2005-01-13 devnull iputs(&bout, offattr[nest[j]]);
372 357621cd 2005-01-13 devnull /* turn on everything we just turned off but didn't want to */
373 357621cd 2005-01-13 devnull for(j=i; j<nnest; j++)
374 357621cd 2005-01-13 devnull if(a&(1<<nest[j]))
375 357621cd 2005-01-13 devnull iputs(&bout, onattr[nest[j]]);
377 357621cd 2005-01-13 devnull nest[j] = 0;
379 357621cd 2005-01-13 devnull /* shift the zeros (turned off things) up */
380 357621cd 2005-01-13 devnull for(i=j=0; i<nnest; i++)
381 357621cd 2005-01-13 devnull if(nest[i] != 0)
382 357621cd 2005-01-13 devnull nest[j++] = nest[i];
383 357621cd 2005-01-13 devnull nnest = j;
385 357621cd 2005-01-13 devnull /* now turn on the new attributes */
386 357621cd 2005-01-13 devnull for(i=0; i<nelem(attrorder); i++){
387 357621cd 2005-01-13 devnull j = attrorder[i];
388 357621cd 2005-01-13 devnull if(on&(1<<j)){
389 357621cd 2005-01-13 devnull if(j == Anchor)
390 357621cd 2005-01-13 devnull onattr[j] = anchors[nanchors++];
391 357621cd 2005-01-13 devnull iputs(&bout, onattr[j]);
392 357621cd 2005-01-13 devnull nest[nnest++] = j;
395 357621cd 2005-01-13 devnull attr = a;
399 357621cd 2005-01-13 devnull flush(void)
402 357621cd 2005-01-13 devnull ulong c, a;
404 357621cd 2005-01-13 devnull nanchors = 0;
405 357621cd 2005-01-13 devnull for(i=0; i<nchars; i++){
406 357621cd 2005-01-13 devnull c = chars[i];
407 357621cd 2005-01-13 devnull if(c == Epp){
408 357621cd 2005-01-13 devnull iputrune(&bout, '\n');
409 357621cd 2005-01-13 devnull iputs(&bout, TABLE "<tr height=5><td></table>");
410 357621cd 2005-01-13 devnull iputrune(&bout, '\n');
411 357621cd 2005-01-13 devnull continue;
413 357621cd 2005-01-13 devnull a = c & ~0xFFFF;
414 357621cd 2005-01-13 devnull c &= 0xFFFF;
416 357621cd 2005-01-13 devnull * If we're going to something off after a space,
417 357621cd 2005-01-13 devnull * let's just turn it off before.
419 357621cd 2005-01-13 devnull if(c==' ' && i<nchars-1 && (chars[i+1]&0xFFFF) >= 32)
420 357621cd 2005-01-13 devnull a ^= a & ~chars[i+1];
421 357621cd 2005-01-13 devnull setattr(a);
422 357621cd 2005-01-13 devnull if(c == Estring){
423 357621cd 2005-01-13 devnull /* next word is string to print */
424 357621cd 2005-01-13 devnull iputs(&bout, (char*)chars[++i]);
425 357621cd 2005-01-13 devnull continue;
427 357621cd 2005-01-13 devnull iputrune(&bout, c & 0xFFFF);
432 357621cd 2005-01-13 devnull header(char *s)
434 78e51a8c 2005-01-14 devnull char *p;
436 357621cd 2005-01-13 devnull Bprint(&bout, "<head>\n");
437 78e51a8c 2005-01-14 devnull if(pagename && section){
438 78e51a8c 2005-01-14 devnull char buf[512];
439 78e51a8c 2005-01-14 devnull strecpy(buf, buf+sizeof buf, pagename);
440 78e51a8c 2005-01-14 devnull for(p=buf; *p; p++)
441 3bd56b04 2005-09-09 devnull *p = tolower((uchar)*p);
442 78e51a8c 2005-01-14 devnull Bprint(&bout, "<title>%s(%s) - %s</title>\n", buf, section, s);
444 78e51a8c 2005-01-14 devnull Bprint(&bout, "<title>%s</title>\n", s);
445 357621cd 2005-01-13 devnull Bprint(&bout, "<meta content=\"text/html; charset=utf-8\" http-equiv=Content-Type>\n");
446 357621cd 2005-01-13 devnull Bprint(&bout, "</head>\n");
447 357621cd 2005-01-13 devnull Bprint(&bout, "<body bgcolor=#ffffff>\n");
448 78e51a8c 2005-01-14 devnull Bprint(&bout, "<table border=0 cellpadding=0 cellspacing=0 width=100%%>\n");
449 357621cd 2005-01-13 devnull Bprint(&bout, "<tr height=10><td>\n");
450 78e51a8c 2005-01-14 devnull Bprint(&bout, "<tr><td width=20><td>\n");
451 357621cd 2005-01-13 devnull if(pagename && section){
452 357621cd 2005-01-13 devnull Bprint(&bout, "<tr><td width=20><td><b>%s(%s)</b><td align=right><b>%s(%s)</b>\n",
453 357621cd 2005-01-13 devnull pagename, section, pagename, section);
455 78e51a8c 2005-01-14 devnull Bprint(&bout, "<tr><td width=20><td colspan=2>\n");
459 357621cd 2005-01-13 devnull trailer(void)
461 357621cd 2005-01-13 devnull Bprint(&bout, "<td width=20>\n");
462 357621cd 2005-01-13 devnull Bprint(&bout, "<tr height=20><td>\n");
463 357621cd 2005-01-13 devnull Bprint(&bout, "</table>\n");
465 357621cd 2005-01-13 devnull #ifdef LUCENT
469 357621cd 2005-01-13 devnull t = localtime(time(nil));
470 357621cd 2005-01-13 devnull Bprint(&bout, TABLE "<tr height=20><td></table>\n");
471 cbeb0b26 2006-04-01 devnull Bprint(&bout, "<font size=-1><a href=\"http:/*www.lucent.com/copyright.html\">\n"); */
472 357621cd 2005-01-13 devnull Bprint(&bout, "Portions Copyright</A> © %d Lucent Technologies. All rights reserved.</font>\n", t->year+1900);
475 357621cd 2005-01-13 devnull Bprint(&bout, "<!-- TRAILER -->\n");
476 357621cd 2005-01-13 devnull Bprint(&bout, "</body></html>\n");
480 357621cd 2005-01-13 devnull getc(Biobuf *b)
483 357621cd 2005-01-13 devnull return Bgetrune(b);
487 357621cd 2005-01-13 devnull ungetc(Biobuf *b)
490 357621cd 2005-01-13 devnull Bungetrune(b);
494 357621cd 2005-01-13 devnull getline(Biobuf *b)
496 357621cd 2005-01-13 devnull int i, c;
498 357621cd 2005-01-13 devnull for(i=0; i<sizeof buf; i++){
499 357621cd 2005-01-13 devnull c = getc(b);
500 357621cd 2005-01-13 devnull if(c == Beof)
501 357621cd 2005-01-13 devnull return nil;
502 357621cd 2005-01-13 devnull buf[i] = c;
503 357621cd 2005-01-13 devnull if(c == '\n'){
504 357621cd 2005-01-13 devnull buf[i] = '\0';
508 357621cd 2005-01-13 devnull return buf;
512 357621cd 2005-01-13 devnull getnum(Biobuf *b)
514 357621cd 2005-01-13 devnull int i, c;
517 357621cd 2005-01-13 devnull for(;;){
518 357621cd 2005-01-13 devnull c = getc(b);
519 357621cd 2005-01-13 devnull if(c<'0' || '9'<c){
520 357621cd 2005-01-13 devnull ungetc(b);
523 357621cd 2005-01-13 devnull i = i*10 + (c-'0');
525 357621cd 2005-01-13 devnull return i;
529 357621cd 2005-01-13 devnull getstr(Biobuf *b)
531 357621cd 2005-01-13 devnull int i, c;
533 357621cd 2005-01-13 devnull for(i=0; i<sizeof buf; i++){
534 357621cd 2005-01-13 devnull /* must get bytes not runes */
536 357621cd 2005-01-13 devnull c = Bgetc(b);
537 357621cd 2005-01-13 devnull if(c == Beof)
538 357621cd 2005-01-13 devnull return nil;
539 357621cd 2005-01-13 devnull buf[i] = c;
540 357621cd 2005-01-13 devnull if(c == '\n' || c==' ' || c=='\t'){
541 357621cd 2005-01-13 devnull ungetc(b);
542 357621cd 2005-01-13 devnull buf[i] = '\0';
546 357621cd 2005-01-13 devnull return buf;
550 357621cd 2005-01-13 devnull setnum(Biobuf *b, char *name, int min, int max)
554 357621cd 2005-01-13 devnull i = getnum(b);
555 357621cd 2005-01-13 devnull if(debug > 2)
556 357621cd 2005-01-13 devnull fprint(2, "set %s = %d\n", name, i);
557 357621cd 2005-01-13 devnull if(min<=i && i<max)
558 357621cd 2005-01-13 devnull return i;
559 357621cd 2005-01-13 devnull sysfatal("value of %s is %d; min %d max %d at %s:#%d", name, i, min, max, filename, cno);
560 357621cd 2005-01-13 devnull return i;
564 357621cd 2005-01-13 devnull xcmd(Biobuf *b)
566 357621cd 2005-01-13 devnull char *p, *fld[16], buf[1024];
568 357621cd 2005-01-13 devnull int i, nfld;
570 357621cd 2005-01-13 devnull p = getline(b);
571 357621cd 2005-01-13 devnull if(p == nil)
572 357621cd 2005-01-13 devnull sysfatal("xcmd error: %r");
573 357621cd 2005-01-13 devnull if(debug)
574 357621cd 2005-01-13 devnull fprint(2, "x command '%s'\n", p);
575 357621cd 2005-01-13 devnull nfld = tokenize(p, fld, nelem(fld));
576 357621cd 2005-01-13 devnull if(nfld == 0)
578 357621cd 2005-01-13 devnull switch(fld[0][0]){
579 357621cd 2005-01-13 devnull case 'f':
580 357621cd 2005-01-13 devnull /* mount font */
581 357621cd 2005-01-13 devnull if(nfld != 3)
583 357621cd 2005-01-13 devnull i = atoi(fld[1]);
584 357621cd 2005-01-13 devnull if(i<0 || Nfont<=i)
585 357621cd 2005-01-13 devnull sysfatal("font %d out of range at %s:#%d", i, filename, cno);
586 357621cd 2005-01-13 devnull mountfont(i, fld[2]);
588 357621cd 2005-01-13 devnull case 'i':
589 357621cd 2005-01-13 devnull /* init */
591 357621cd 2005-01-13 devnull case 'r':
592 357621cd 2005-01-13 devnull if(nfld<2 || atoi(fld[1])!=res)
593 357621cd 2005-01-13 devnull sysfatal("typesetter has unexpected resolution %s", fld[1]? fld[1] : "<unspecified>");
595 357621cd 2005-01-13 devnull case 's':
596 357621cd 2005-01-13 devnull /* stop */
598 357621cd 2005-01-13 devnull case 't':
599 357621cd 2005-01-13 devnull /* trailer */
601 357621cd 2005-01-13 devnull case 'T':
602 357621cd 2005-01-13 devnull if(nfld!=2 || strcmp(fld[1], "utf")!=0)
603 357621cd 2005-01-13 devnull sysfatal("output for unknown typesetter type %s", fld[1]);
605 357621cd 2005-01-13 devnull case 'X':
606 357621cd 2005-01-13 devnull if(nfld<3 || strcmp(fld[1], "html")!=0)
608 357621cd 2005-01-13 devnull /* is it a man reference of the form cp(1)? */
609 357621cd 2005-01-13 devnull /* X manref start/end cp (1) */
610 357621cd 2005-01-13 devnull if(nfld==6 && strcmp(fld[2], "manref")==0){
611 357621cd 2005-01-13 devnull /* was the right macro; is it the right form? */
612 357621cd 2005-01-13 devnull if(strlen(fld[5])>=3 &&
613 b50e9caf 2005-01-16 devnull fld[5][0]=='('/*)*/ && (fld[5][2]==/*(*/')' || (isalpha((uchar)fld[5][2]) && fld[5][3]==/*(*/')')) &&
614 357621cd 2005-01-13 devnull '0'<=fld[5][1] && fld[5][1]<='9'){
615 357621cd 2005-01-13 devnull if(strcmp(fld[3], "start") == 0){
616 357621cd 2005-01-13 devnull /* set anchor attribute and remember string */
617 357621cd 2005-01-13 devnull attr |= (1<<Anchor);
619 357621cd 2005-01-13 devnull snprint(buf, sizeof buf,
620 78e51a8c 2005-01-14 devnull "<a href=\"/magic/man2html/man%c/%s\">",
621 357621cd 2005-01-13 devnull fld[5][1], fld[4]);
623 78e51a8c 2005-01-14 devnull snprint(buf, sizeof buf,
624 78e51a8c 2005-01-14 devnull "<a href=\"../man%c/%s.html\">", fld[5][1], fld[4]);
625 b50e9caf 2005-01-16 devnull for(p=buf; *p; p++)
626 b50e9caf 2005-01-16 devnull if('A' <= *p && *p <= 'Z')
627 b50e9caf 2005-01-16 devnull *p += 'a'-'A';
629 357621cd 2005-01-13 devnull nanchors++;
630 357621cd 2005-01-13 devnull anchors = erealloc(anchors, nanchors*sizeof(char*));
631 357621cd 2005-01-13 devnull anchors[nanchors-1] = estrdup(buf);
632 357621cd 2005-01-13 devnull }else if(strcmp(fld[3], "end") == 0)
633 357621cd 2005-01-13 devnull attr &= ~(1<<Anchor);
635 78e51a8c 2005-01-14 devnull }else if(nfld >= 4 && strcmp(fld[2], "href") == 0){
636 78e51a8c 2005-01-14 devnull attr |= 1<<Anchor;
637 78e51a8c 2005-01-14 devnull nanchors++;
638 78e51a8c 2005-01-14 devnull anchors = erealloc(anchors, nanchors*sizeof(char*));
639 78e51a8c 2005-01-14 devnull anchors[nanchors-1] = smprint("<a href=\"%s\">", fld[3]);
640 78e51a8c 2005-01-14 devnull }else if(strcmp(fld[2], "/href") == 0){
641 78e51a8c 2005-01-14 devnull attr &= ~(1<<Anchor);
642 357621cd 2005-01-13 devnull }else if(strcmp(fld[2], "manPP") == 0){
643 357621cd 2005-01-13 devnull didP = 1;
644 357621cd 2005-01-13 devnull emitul(Epp, 1);
645 357621cd 2005-01-13 devnull }else if(nfld>=5 && strcmp(fld[2], "manhead") == 0){
646 357621cd 2005-01-13 devnull pagename = strdup(fld[3]);
647 357621cd 2005-01-13 devnull section = strdup(fld[4]);
648 357621cd 2005-01-13 devnull }else if(nfld<4 || strcmp(fld[2], "manref")!=0){
649 357621cd 2005-01-13 devnull if(nfld>2 && strcmp(fld[2], "<P>")==0){ /* avoid triggering extra <br> */
650 357621cd 2005-01-13 devnull didP = 1;
651 357621cd 2005-01-13 devnull /* clear all font attributes before paragraph */
652 357621cd 2005-01-13 devnull emitul(' ' | (attr & ~(0xFFFF|((1<<Italic)|(1<<Bold)|(1<<CW)))), 0);
653 357621cd 2005-01-13 devnull emitstr("<P>");
654 357621cd 2005-01-13 devnull /* next emittec char will turn font attributes back on */
655 357621cd 2005-01-13 devnull }else if(nfld>2 && strcmp(fld[2], "<H4>")==0)
656 357621cd 2005-01-13 devnull attr |= (1<<Heading);
657 357621cd 2005-01-13 devnull else if(nfld>2 && strcmp(fld[2], "</H4>")==0)
658 357621cd 2005-01-13 devnull attr &= ~(1<<Heading);
659 357621cd 2005-01-13 devnull else if(debug)
660 357621cd 2005-01-13 devnull fprint(2, "unknown in-line html %s... at %s:%#d\n",
661 357621cd 2005-01-13 devnull fld[2], filename, cno);
665 357621cd 2005-01-13 devnull if(debug)
666 357621cd 2005-01-13 devnull fprint(2, "unknown or badly formatted x command %s\n", fld[0]);
670 357621cd 2005-01-13 devnull lookup(int c, Htmlchar tab[], int ntab)
672 357621cd 2005-01-13 devnull int low, high, mid;
674 357621cd 2005-01-13 devnull low = 0;
675 357621cd 2005-01-13 devnull high = ntab - 1;
676 357621cd 2005-01-13 devnull while(low <= high){
677 357621cd 2005-01-13 devnull mid = (low+high)/2;
678 357621cd 2005-01-13 devnull if(c < tab[mid].value)
679 357621cd 2005-01-13 devnull high = mid - 1;
680 357621cd 2005-01-13 devnull else if(c > tab[mid].value)
681 357621cd 2005-01-13 devnull low = mid + 1;
683 357621cd 2005-01-13 devnull return mid;
685 357621cd 2005-01-13 devnull return -1; /* no match */
689 357621cd 2005-01-13 devnull emithtmlchar(int r)
693 357621cd 2005-01-13 devnull i = lookup(r, htmlchars, nelem(htmlchars));
694 357621cd 2005-01-13 devnull if(i >= 0)
695 357621cd 2005-01-13 devnull emitstr(htmlchars[i].name);
697 357621cd 2005-01-13 devnull emit(r);
701 357621cd 2005-01-13 devnull troffchar(char *s)
705 357621cd 2005-01-13 devnull for(i=0; troffchars[i].name!=nil; i++)
706 357621cd 2005-01-13 devnull if(strcmp(s, troffchars[i].name) == 0)
707 357621cd 2005-01-13 devnull return troffchars[i].value;
708 3087c4fe 2007-03-25 devnull return strdup(s);
712 357621cd 2005-01-13 devnull indent(void)
714 357621cd 2005-01-13 devnull int nind;
716 357621cd 2005-01-13 devnull didP = 0;
717 357621cd 2005-01-13 devnull if(atnewline){
718 357621cd 2005-01-13 devnull if(hp != prevlineH){
719 357621cd 2005-01-13 devnull prevlineH = hp;
720 357621cd 2005-01-13 devnull /* these most peculiar numbers appear in the troff -man output */
721 357621cd 2005-01-13 devnull nind = ((prevlineH-1*res)+323)/324;
722 357621cd 2005-01-13 devnull attr &= ~((1<<Indent1)|(1<<Indent2)|(1<<Indent3));
723 357621cd 2005-01-13 devnull if(nind >= 1)
724 357621cd 2005-01-13 devnull attr |= (1<<Indent1);
725 357621cd 2005-01-13 devnull if(nind >= 2)
726 357621cd 2005-01-13 devnull attr |= (1<<Indent2);
727 357621cd 2005-01-13 devnull if(nind >= 3)
728 357621cd 2005-01-13 devnull attr |= (1<<Indent3);
730 357621cd 2005-01-13 devnull atnewline = 0;
735 357621cd 2005-01-13 devnull process(Biobuf *b, char *name)
737 357621cd 2005-01-13 devnull int c, r, v, i;
738 357621cd 2005-01-13 devnull char *p;
740 357621cd 2005-01-13 devnull cno = 0;
741 357621cd 2005-01-13 devnull prevlineH = res;
742 357621cd 2005-01-13 devnull filename = name;
743 357621cd 2005-01-13 devnull for(;;){
744 357621cd 2005-01-13 devnull c = getc(b);
745 357621cd 2005-01-13 devnull switch(c){
746 357621cd 2005-01-13 devnull case Beof:
747 357621cd 2005-01-13 devnull /* go to ground state */
748 357621cd 2005-01-13 devnull attr = 0;
749 357621cd 2005-01-13 devnull emit('\n');
751 357621cd 2005-01-13 devnull case '\n':
753 357621cd 2005-01-13 devnull case '0': case '1': case '2': case '3': case '4':
754 357621cd 2005-01-13 devnull case '5': case '6': case '7': case '8': case '9':
755 357621cd 2005-01-13 devnull v = c-'0';
756 357621cd 2005-01-13 devnull c = getc(b);
757 357621cd 2005-01-13 devnull if(c<'0' || '9'<c)
758 357621cd 2005-01-13 devnull sysfatal("illegal character motion at %s:#%d", filename, cno);
759 357621cd 2005-01-13 devnull v = v*10 + (c-'0');
760 357621cd 2005-01-13 devnull hp += v;
761 357621cd 2005-01-13 devnull /* fall through to character case */
762 357621cd 2005-01-13 devnull case 'c':
763 357621cd 2005-01-13 devnull indent();
764 357621cd 2005-01-13 devnull r = getc(b);
765 357621cd 2005-01-13 devnull emithtmlchar(r);
767 357621cd 2005-01-13 devnull case 'D':
768 357621cd 2005-01-13 devnull /* draw line; ignore */
770 357621cd 2005-01-13 devnull c = getc(b);
771 357621cd 2005-01-13 devnull while(c!='\n' && c!= Beof);
773 357621cd 2005-01-13 devnull case 'f':
774 357621cd 2005-01-13 devnull v = setnum(b, "font", 0, Nfont);
775 357621cd 2005-01-13 devnull switchfont(v);
777 357621cd 2005-01-13 devnull case 'h':
778 357621cd 2005-01-13 devnull v = setnum(b, "hpos", -20000, 20000);
779 357621cd 2005-01-13 devnull /* generate spaces if motion is large and within a line */
780 357621cd 2005-01-13 devnull if(!atnewline && v>2*72)
781 357621cd 2005-01-13 devnull for(i=0; i<v; i+=72)
782 357621cd 2005-01-13 devnull emitstr(" ");
783 357621cd 2005-01-13 devnull hp += v;
785 357621cd 2005-01-13 devnull case 'n':
786 357621cd 2005-01-13 devnull setnum(b, "n1", -10000, 10000);
787 cbeb0b26 2006-04-01 devnull /*Bprint(&bout, " N1=%d", v); */
788 357621cd 2005-01-13 devnull getc(b); /* space separates */
789 357621cd 2005-01-13 devnull setnum(b, "n2", -10000, 10000);
790 357621cd 2005-01-13 devnull atnewline = 1;
791 357621cd 2005-01-13 devnull if(!didP && hp < (Wid-1)*res) /* if line is less than 19" long, probably need a line break */
792 357621cd 2005-01-13 devnull emitstr("<br>");
793 357621cd 2005-01-13 devnull emit('\n');
795 357621cd 2005-01-13 devnull case 'p':
796 357621cd 2005-01-13 devnull page = setnum(b, "ps", -10000, 10000);
798 357621cd 2005-01-13 devnull case 's':
799 357621cd 2005-01-13 devnull ps = setnum(b, "ps", 1, 1000);
801 357621cd 2005-01-13 devnull case 'v':
802 357621cd 2005-01-13 devnull vp += setnum(b, "vpos", -10000, 10000);
803 357621cd 2005-01-13 devnull /* BUG: ignore motion */
805 357621cd 2005-01-13 devnull case 'x':
806 357621cd 2005-01-13 devnull xcmd(b);
808 357621cd 2005-01-13 devnull case 'w':
809 357621cd 2005-01-13 devnull emit(' ');
811 357621cd 2005-01-13 devnull case 'C':
812 357621cd 2005-01-13 devnull indent();
813 357621cd 2005-01-13 devnull p = getstr(b);
814 357621cd 2005-01-13 devnull emitstr(troffchar(p));
816 357621cd 2005-01-13 devnull case 'H':
817 357621cd 2005-01-13 devnull hp = setnum(b, "hpos", 0, 20000);
818 cbeb0b26 2006-04-01 devnull /*Bprint(&bout, " H=%d ", hp); */
820 357621cd 2005-01-13 devnull case 'V':
821 357621cd 2005-01-13 devnull vp = setnum(b, "vpos", 0, 10000);
823 357621cd 2005-01-13 devnull default:
824 357621cd 2005-01-13 devnull fprint(2, "dhtml: unknown directive %c(0x%.2ux) at %s:#%d\n", c, c, filename, cno);
830 357621cd 2005-01-13 devnull HTMLfont*
831 357621cd 2005-01-13 devnull htmlfont(char *name)
835 357621cd 2005-01-13 devnull for(i=0; htmlfonts[i].name!=nil; i++)
836 357621cd 2005-01-13 devnull if(strcmp(name, htmlfonts[i].name) == 0)
837 357621cd 2005-01-13 devnull return &htmlfonts[i];
838 357621cd 2005-01-13 devnull return &htmlfonts[0];
842 357621cd 2005-01-13 devnull mountfont(int pos, char *name)
844 357621cd 2005-01-13 devnull if(debug)
845 357621cd 2005-01-13 devnull fprint(2, "mount font %s on %d\n", name, pos);
846 357621cd 2005-01-13 devnull if(font[pos] != nil){
847 357621cd 2005-01-13 devnull free(font[pos]->name);
848 357621cd 2005-01-13 devnull free(font[pos]);
850 357621cd 2005-01-13 devnull font[pos] = emalloc(sizeof(Font));
851 357621cd 2005-01-13 devnull font[pos]->name = estrdup(name);
852 357621cd 2005-01-13 devnull font[pos]->htmlfont = htmlfont(name);
856 357621cd 2005-01-13 devnull switchfont(int pos)
858 357621cd 2005-01-13 devnull HTMLfont *hf;
860 357621cd 2005-01-13 devnull if(debug)
861 357621cd 2005-01-13 devnull fprint(2, "font change from %d (%s) to %d (%s)\n", ft, font[ft]->name, pos, font[pos]->name);
862 357621cd 2005-01-13 devnull if(pos == ft)
864 357621cd 2005-01-13 devnull hf = font[ft]->htmlfont;
865 357621cd 2005-01-13 devnull if(hf->bit != 0)
866 357621cd 2005-01-13 devnull attr &= ~(1<<hf->bit);
867 357621cd 2005-01-13 devnull ft = pos;
868 357621cd 2005-01-13 devnull hf = font[ft]->htmlfont;
869 357621cd 2005-01-13 devnull if(hf->bit != 0)
870 357621cd 2005-01-13 devnull attr |= (1<<hf->bit);
