/* * This is a little hack I wrote to simplify producing the documentation * in various formats (ASCII, HTML, TexInfo, and RTF). It converts from * a weird layout that is basically a kind of stripped down HTML with a * few extra markers (the _tx files), and automates a few things like * constructing indexes and splitting HTML files into multiple parts. * It's not pretty, elegant, or well written, and is liable to get upset * if it doesn't like the input data. If you change the _tx files, run * 'make docs' to rebuild everything. */ #include #include #include #include #include #include #include #define TEXT_FLAG 0x00000001 #define HTML_FLAG 0x00000002 #define HTML_CMD_FLAG 0x00000004 #define TEXINFO_FLAG 0x00000008 #define TEXINFO_CMD_FLAG 0x00000010 #define RTF_FLAG 0x00000020 #define HEADING_FLAG 0x00000040 #define DEFINITION_FLAG 0x00000080 #define CONTINUE_FLAG 0x00000100 #define TOC_FLAG 0x00000200 #define INDEX_FLAG 0x00000400 #define NO_EOL_FLAG 0x00000800 #define MULTIFILE_FLAG 0x00001000 #define NOCONTENT_FLAG 0x00002000 #define NO_INDENT_FLAG 0x00004000 #define NODE_FLAG 0x00008000 #define NONODE_FLAG 0x00010000 #define STARTOUTPUT_FLAG 0x00020000 #define ENDOUTPUT_FLAG 0x00040000 #define TALLBULLET_FLAG 0x00080000 #define SHORT_TOC_FLAG 0x00100000 #define XREF_FLAG 0x00200000 typedef struct LINE { char *text; struct LINE *next; int flags; } LINE; LINE *head = NULL; LINE *tail = NULL; typedef struct TOC { char *text; struct TOC *next; int root; int texinfoable; int htmlable; int otherfile; } TOC; TOC *tochead = NULL; TOC *toctail = NULL; int flags = TEXT_FLAG | HTML_FLAG | TEXINFO_FLAG | RTF_FLAG; int nostrip = 0; int strip_indent = -1; int last_toc_line = INT_MIN; char fileheader[256] = ""; char filefooter[256] = ""; char rtfheader[256] = ""; char *html_extension = "html"; char *texinfo_extension = "txi"; char *extension(char *filename) { int pos, end; for (end=0; filename[end]; end++) ; /* do nothing */ pos = end; while ((pos>0) && (filename[pos-1] != '.') && (filename[pos-1] != '\\') && (filename[pos-1] != '/')) pos--; if (filename[pos-1] == '.') return filename+pos; return filename+end; } char *get_filename(char *path) { int pos; for (pos=0; path[pos]; pos++) ; /* do nothing */ while ((pos>0) && (path[pos-1] != '\\') && (path[pos-1] != '/')) pos--; return path+pos; } int is_empty(char *s) { while (*s) { if (*s != ' ') return 0; s++; } return 1; } void free_data() { LINE *line = head; LINE *prev; TOC *tocline = tochead; TOC *tocprev; while (line) { prev = line; line = line->next; free(prev->text); free(prev); } while (tocline) { tocprev = tocline; tocline = tocline->next; free(tocprev->text); free(tocprev); } } void add_line(char *buf, int flags) { int len; LINE *line; len = strlen(buf); line = malloc(sizeof(LINE)); line->text = malloc(len+1); strcpy(line->text, buf); line->next = NULL; line->flags = flags; if (tail) tail->next = line; else head = line; tail = line; } void add_toc_line(char *buf, int root, int num, int texinfoable, int htmlable, int otherfile) { int len; TOC *toc; len = strlen(buf); toc = malloc(sizeof(TOC)); toc->text = malloc(len+1); strcpy(toc->text, buf); toc->next = NULL; toc->root = root; toc->texinfoable = ((texinfoable) && (num > last_toc_line+1)); toc->htmlable = htmlable; toc->otherfile = otherfile; last_toc_line = num; if (toctail) toctail->next = toc; else tochead = toc; toctail = toc; } void add_toc(char *buf, int root, int num, int texinfoable, int htmlable) { char b[256], b2[256]; int c, d; int done; if (root) { add_toc_line(buf, 1, num, texinfoable, htmlable, 0); strcpy(b, buf); sprintf(buf, "%s", b, b); } else { do { done = 1; for (c=0; buf[c]; c++) { if (buf[c] == '@') { for (d=0; isalnum(buf[c+d+1]) || (buf[c+d+1] == '_'); d++) b[d] = buf[c+d+1]; b[d] = 0; add_toc_line(b, 0, num, texinfoable, htmlable, 0); strcpy(b2, buf+c+d+1); sprintf(buf+c, "%s%s", b, b, b2); done = 0; break; } } } while (!done); } } char *my_fgets(char *p, int max, FILE *f) { int c, ch; if (feof(f)) { p[0] = 0; return NULL; } for (c=0; c= buf) && ((*p == '\r') || (*p == '\n'))) { *p = 0; p--; } if (buf[0] == '@') { /* a marker line */ if (stricmp(buf+1, "text") == 0) flags |= TEXT_FLAG; else if (stricmp(buf+1, "!text") == 0) flags &= ~TEXT_FLAG; else if (stricmp(buf+1, "html") == 0) flags |= HTML_FLAG; else if (stricmp(buf+1, "!html") == 0) flags &= ~HTML_FLAG; else if (stricmp(buf+1, "texinfo") == 0) flags |= TEXINFO_FLAG; else if (stricmp(buf+1, "!texinfo") == 0) flags &= ~TEXINFO_FLAG; else if (stricmp(buf+1, "rtf") == 0) flags |= RTF_FLAG; else if (stricmp(buf+1, "!rtf") == 0) flags &= ~RTF_FLAG; else if (stricmp(buf+1, "indent") == 0) flags &= ~NO_INDENT_FLAG; else if (stricmp(buf+1, "!indent") == 0) flags |= NO_INDENT_FLAG; else if (stricmp(buf+1, "multiplefiles") == 0) flags |= MULTIFILE_FLAG; else if (stricmp(buf+1, "headingnocontent") == 0) flags |= (HEADING_FLAG | NOCONTENT_FLAG); else if (stricmp(buf+1, "heading") == 0) flags |= HEADING_FLAG; else if (stricmp(buf+1, "contents") == 0) add_line("", TOC_FLAG); else if (stricmp(buf+1, "shortcontents") == 0) add_line("", TOC_FLAG | SHORT_TOC_FLAG); else if (stricmp(buf+1, "index") == 0) add_line("", INDEX_FLAG); else if (strincmp(buf+1, "node ") == 0) { add_toc_line(buf+6, 0, line, 1, 0, 0); add_line(buf+6, NODE_FLAG); } else if (strincmp(buf+1, "hnode ") == 0) { add_toc_line(buf+7, 0, line, 1, 0, 0); add_line(buf+7, NODE_FLAG | HTML_FLAG); } else if (strincmp(buf+1, "nonode") == 0) flags |= NONODE_FLAG; else if (strincmp(buf+1, "xref ") == 0) { add_line(buf+6, XREF_FLAG); if (last_toc_line == line-1) last_toc_line = line; } else if (strincmp(buf+1, "startoutput ") == 0) add_line(buf+13, STARTOUTPUT_FLAG); else if (strincmp(buf+1, "endoutput ") == 0) add_line(buf+11, ENDOUTPUT_FLAG); else if (strincmp(buf+1, "tallbullet") == 0) add_line("", TALLBULLET_FLAG); else if ((tolower(buf[1]=='h')) && (buf[2]=='=')) strcpy(fileheader, buf+3); else if ((tolower(buf[1]=='f')) && (buf[2]=='=')) strcpy(filefooter, buf+3); else if (strincmp(buf+1, "rtfh=") == 0) strcpy(rtfheader, buf+6); else if (strincmp(buf+1, "htmlindex") == 0) add_toc_line(buf+11, 1, line, 0, 1, 1); else if (buf[1] == '<') add_line(buf+1, (flags | HTML_FLAG | HTML_CMD_FLAG | NO_EOL_FLAG ) & (~TEXT_FLAG)); else if (buf[1] == '$') add_line(buf+2, TEXINFO_FLAG | TEXINFO_CMD_FLAG); else if (buf[1] == '@') { add_toc(buf+2, 0, line, !(flags & NONODE_FLAG), 1); add_line(buf+2, flags | DEFINITION_FLAG); flags &= ~NONODE_FLAG; } else if (buf[1] == '\\') { add_toc(buf+2, 0, line, !(flags & NONODE_FLAG), 1); add_line(buf+2, flags | DEFINITION_FLAG | CONTINUE_FLAG); flags &= ~NONODE_FLAG; } else if (buf[1] == '#') { /* comment */ } else { fclose(f); fprintf(stderr, "Unknown token '%s'\n", buf); return 1; } } else { /* some actual text */ if (flags & HEADING_FLAG) add_toc(buf, 1, line, !(flags & NONODE_FLAG), (flags & HTML_FLAG)); add_line(buf, flags); flags &= ~(HEADING_FLAG | NOCONTENT_FLAG | NONODE_FLAG); } } fclose(f); return 0; } char *strip_html(char *p) { static char buf[256]; int c; c = 0; while (*p) { if (*p == '<') { while ((*p) && (*p != '>')) p++; if (*p) p++; } else { buf[c] = *p; c++; p++; } } buf[c] = 0; return buf; } /* DOS -> Windows extended character set mapping */ unsigned char charmapw[128] = { 0xC7, 0xFC, 0xE9, 0xE2, 0xE4, 0xE0, 0xE5, 0xE7, 0xEA, 0xEB, 0xE8, 0xEF, 0xEE, 0xEC, 0xC4, 0xC5, 0xC9, 0xE6, 0xC6, 0xF4, 0xF6, 0xF2, 0xFB, 0xF9, 0xFF, 0xD6, 0xDC, 0xA2, 0xA3, 0xA5, '^', '^', 0xE1, 0xED, 0xF3, 0xFA, 0xF1, 0xD1, 0xAA, 0xBA, 0xBF, '^', 0xAC, 0xBD, 0xBC, 0xA1, 0xAB, 0xBB, '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', '^', 0xB5, '^', '^', 0xD8, '^', '^', '^', '^', '^', '^', '^', 0xB1, '^', '^', '^', '^', 0xF7, '^', 0xB0, 0xB7, 0xB7, '^', '^', 0xB2, '^', '^' }; /* DOS -> 7-bit ASCII extended character set mapping */ unsigned char *charmapa[128] = { "C", "u", "e", "a", "a", "a", "a", "c", "e", "e", "e", "i", "i", "i", "A", "A", "E", "@ae{}", "@AE{}", "o", "o", "o", "u", "u", "y", "O", "U", "c", "@pounds{}", "Y", "^", "^", "a", "i", "o", "u", "n", "N", "^", "^", "@questiondown{}", "^", "^", "1/2", "1/4", "@exclamdown{}", "<", ">", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "@ss{}", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", "^", }; void hfputs(char *string, FILE *file) { int c; while (*string) { if ((string[0] == '&') && ((string[1] == 'l') || (string[1] == 'g')) && (string[2] == 't')) { fputc('&', file); fputc(string[1], file); fputc('t', file); fputc(';', file); string += 3; } else { c = (unsigned char)*string; if (c >= 128) fputc(charmapw[c-128], file); else fputc(c, file); string++; } } } void hfprintf(FILE *file, char *format, ...) { char buf[1024]; va_list ap; va_start(ap, format); vsprintf(buf, format, ap); va_end(ap); hfputs(buf, file); } void tfputc(int c, FILE *file) { if (c >= 128) fputs(charmapa[c-128], file); else fputc(c, file); } void tfputs(char *string, FILE *file) { while (*string) { tfputc((unsigned char)*string, file); string++; } } void tfprintf(FILE *file, char *format, ...) { char buf[1024]; va_list ap; va_start(ap, format); vsprintf(buf, format, ap); va_end(ap); tfputs(buf, file); } void rfputc(int c, FILE *file) { if (c >= 128) fputc(charmapw[c-128], file); else fputc(c, file); } void rfputs(char *string, FILE *file) { while (*string) { rfputc((unsigned char)*string, file); string++; } } int toc_size(int part) { TOC *toc = tochead; int section_number = 0; int count = 0; if (toc) toc = toc->next; while ((toc) && (section_number <= part)) { if ((toc->root) && (!toc->otherfile)) section_number++; toc = toc->next; } while ((toc) && (!toc->root)) { if (toc->htmlable) count++; toc = toc->next; } return count; } void output_toc(FILE *f, char *filename, int root, int body, int part) { char name[256]; char *s; TOC *toc = tochead; int nested = 0; int section_number = 0; if (root) { toc = tochead; if (toc) toc = toc->next; fprintf(f, "

    \n"); while (toc) { if ((toc->root) && (toc->htmlable)) { if (toc->otherfile) { sprintf(name, "%s.%s", toc->text, html_extension); strlwr(name); hfprintf(f, "
  • %s\n", name, toc->text); } else if (body) { if (toc_size(section_number) == 0) hfprintf(f, "
  • %s\n", toc->text, toc->text); else hfprintf(f, "
  • %s\n", toc->text, toc->text); section_number++; } else { strcpy(name, filename); s = extension(name)-1; if ((int)s - (int)get_filename(name) > 5) s = get_filename(name)+5; sprintf(s, "%03d.%s", section_number, html_extension); hfprintf(f, "
  • %s\n", get_filename(name), toc->text); section_number++; } } toc = toc->next; } fprintf(f, "

\n"); } if (body) { toc = tochead; if (toc) toc = toc->next; if (part <= 0) { if (root) fprintf(f, "

    \n"); else fprintf(f, "

      \n"); while (toc) { if ((toc->htmlable) && (!toc->otherfile)) { if (!toc->root) { if (!nested) { fprintf(f, "

        \n"); nested = 1; } } else { if (nested) { fprintf(f, "

      \n"); nested = 0; } } if (!nested) hfprintf(f, "", toc->text); hfprintf(f, "

    • %s\n", toc->text, toc->text); if (!nested) fprintf(f, ""); } toc = toc->next; } if (nested) fprintf(f, "

    \n"); if (root) fprintf(f, "

\n"); else fprintf(f, "\n"); } else { section_number = 0; fprintf(f, "

\n

    \n"); while ((toc) && (section_number < part)) { if ((toc->root) && (!toc->otherfile)) section_number++; toc = toc->next; } while ((toc) && (!toc->root)) { if (toc->htmlable) hfprintf(f, "
  • %s\n", toc->text, toc->text); toc = toc->next; } fprintf(f, "

\n



\n"); } } } char *first_word(char *s) { static char buf[80]; int i; for (i=0; s[i] && s[i] != ' '; i++) buf[i] = s[i]; buf[i] = 0; return buf; } int scmp(const void *e1, const void *e2) { char *s1 = *((char **)e1); char *s2 = *((char **)e2); return stricmp(s1, s2); } void output_texinfo_toc(FILE *f, int root, int body, int part) { #define TOC_SIZE 8192 TOC *toc = tochead; int section_number = 0; char **ptr; char *s; int i, j; fprintf(f, "@menu\n"); if (root) { toc = tochead; if (toc) toc = toc->next; while (toc) { if ((toc->root) && (toc->texinfoable)) { s = first_word(toc->text); tfprintf(f, "* %s::", s); for (i=strlen(s); i<24; i++) fputc(' ', f); tfprintf(f, "%s\n", toc->text); } toc = toc->next; } } if (body) { toc = tochead; if (toc) toc = toc->next; if (part <= 0) { ptr = malloc(TOC_SIZE * sizeof(char *)); i = 0; while (toc) { if ((!toc->root) && (toc->texinfoable) && (i < TOC_SIZE)) ptr[i++] = toc->text; toc = toc->next; } if (i > 1) qsort(ptr, i, sizeof(char *), scmp); for (j=0; jroot) && (!toc->otherfile)) section_number++; toc = toc->next; } while ((toc) && (!toc->root)) { if (toc->texinfoable) tfprintf(f, "* %s::\n", toc->text); toc = toc->next; } } } fprintf(f, "@end menu\n"); } int valid_texinfo_node(char *s, char **next, char **prev) { TOC *toc = tochead; *next = *prev = ""; while (toc) { if ((!toc->root) && (toc->texinfoable)) { if (stricmp(toc->text, s) == 0) { do { toc = toc->next; } while ((toc) && ((!toc->texinfoable) || (toc->root))); if (toc) *next = toc->text; return 1; } *prev = toc->text; } toc = toc->next; } return 0; } char *node_name(int i) { TOC *toc = tochead; toc = tochead; if (toc) toc = toc->next; while (toc) { if ((toc->root) && (toc->texinfoable)) { i--; if (!i) return first_word(toc->text); } toc = toc->next; } return ""; } int write_txt(char *filename, int partial) { LINE *line = head; char *p; int c, len; FILE *f; int outputting = !partial; printf("writing %s\n", filename); f = fopen(filename, "w"); if (!f) return 1; while (line) { if (line->flags & (STARTOUTPUT_FLAG | ENDOUTPUT_FLAG)) { if (stricmp(line->text, get_filename(filename)) == 0) { if (line->flags & STARTOUTPUT_FLAG) outputting = 1; else outputting = 0; } } else if ((line->flags & TEXT_FLAG) && (outputting)) { p = line->text; if (line->flags & HEADING_FLAG) { /* output a section heading */ p = strip_html(p); len = strlen(p); for (c=0; c', f); p += 3; } /* strip other HTML tokens */ else if (p[0] == '<') { while ((*p) && (*p != '>')) p++; if (*p) p++; } /* output other characters */ else { fputc(*p, f); p++; } } fputs("\n", f); } } line = line->next; } fclose(f); return 0; } void output_headfooter(FILE *f, char *s, char *t) { char buf[256]; int i, n; strcpy(buf, s); if (buf[0]) { for (i=0; buf[i]; i++) { if (strincmp(buf+i, ".html") == 0) { i++; n = strlen(html_extension); memcpy(buf+i, html_extension, n); if (n < 4) memmove(buf+i+n, buf+i+4, strlen(buf+4)+1); i += n; } } for (i=0; buf[i]; i++) { if (buf[i] == '#') fputs(strip_html(t), f); else fputc(buf[i], f); } fputs("\n", f); } } int write_html(char *filename) { char name[256]; int empty_count = 0; int section_number = 0; LINE *line = head; FILE *f; char *s; printf("writing %s\n", filename); f = fopen(filename, "w"); if (!f) return 1; while (line) { if (line->flags & HTML_FLAG) { if (line->flags & HEADING_FLAG) { /* output a section heading, switching file as required */ if ((flags & MULTIFILE_FLAG) && (section_number > 0)) { if (section_number > 1) output_headfooter(f, filefooter, ""); fclose(f); strcpy(name, filename); s = extension(name)-1; if ((int)s - (int)get_filename(name) > 5) s = get_filename(name)+5; sprintf(s, "%03d.%s", section_number-1, html_extension); printf("writing %s\n", name); f = fopen(name, "w"); if (!f) return 1; output_headfooter(f, fileheader, line->text); } hfprintf(f, "

%s

\n", line->text); empty_count = 0; if ((flags & MULTIFILE_FLAG) && (!(line->flags & NOCONTENT_FLAG)) && (section_number > 0)) { output_toc(f, filename, 0, 1, section_number); } section_number++; } else if (line->flags & NODE_FLAG) { /* output a node marker */ fprintf(f, "

\n"); } else if (line->flags & DEFINITION_FLAG) { /* output a function definition */ hfprintf(f, "%s", line->text); if (!(line->flags & CONTINUE_FLAG)) fputs("
", f); fputs("\n", f); empty_count = 0; } else if ((!(line->flags & NO_EOL_FLAG)) && (is_empty(strip_html(line->text)))) { /* output an empty line */ if (empty_count) hfprintf(f, "
%s\n", line->text); else hfprintf(f, "

%s\n", line->text); empty_count++; } else { /* output a normal line */ hfputs(line->text, f); fputs("\n", f); empty_count = 0; } } else if (line->flags & TOC_FLAG) { if (flags & MULTIFILE_FLAG) output_toc(f, filename, 1, 0, -1); else if (line->flags & SHORT_TOC_FLAG) output_toc(f, filename, 0, 1, -1); else output_toc(f, filename, 1, 1, -1); } line = line->next; } if ((flags & MULTIFILE_FLAG) && (section_number > 1)) output_headfooter(f, filefooter, ""); fclose(f); return 0; } void html2texinfo(FILE *f, char *p) { char buf[256]; int i = 0; while ((*p) && (*p != '>')) buf[i++] = *(p++); buf[i] = 0; if (stricmp(buf, "pre") == 0) { fputs("@example\n", f); nostrip = 1; strip_indent = -1; } else if (stricmp(buf, "/pre") == 0) { fputs("@end example\n", f); nostrip = 0; strip_indent = -1; } else if (stricmp(buf, "br") == 0) { fputs("@*", f); } else if (stricmp(buf, "hr") == 0) { fputs("----------------------------------------------------------------------", f); } else if (stricmp(buf, "p") == 0) { fputs("\n", f); } else if (stricmp(buf, "ul") == 0) { fputs("\n@itemize @bullet\n", f); } else if (stricmp(buf, "/ul") == 0) { fputs("@end itemize\n", f); } else if (stricmp(buf, "li") == 0) { fputs("@item ", f); } } void write_textinfo_xref(FILE *f, char *xref) { char *tok; tok = strtok(xref, ",;"); while (tok) { while ((*tok) && (isspace(*tok))) tok++; tfprintf(f, "@xref{%s}.@*\n", tok); tok = strtok(NULL, ",;"); } } int write_texinfo(char *filename) { char buf[256]; LINE *line = head; char *p, *str, *next, *prev; char *xref[256]; int xrefs = 0; int in_item = 0; int section_number = 0; int toc_waiting = 0; int i; FILE *f; printf("writing %s\n", filename); f = fopen(filename, "w"); if (!f) return 1; while (line) { if (line->flags & TEXINFO_FLAG) { p = line->text; /* end of an ftable? */ if (in_item) { if ((*p) && (*p != ' ') && (*p != '<')) { fputs("@end ftable\n", f); in_item = 0; } } if (!in_item) { /* start a new node? */ str = strstr(p, " p) { str += strlen("flags & NONODE_FLAG) && (valid_texinfo_node(buf, &next, &prev))) { if (toc_waiting) { output_texinfo_toc(f, 0, 1, section_number-1); toc_waiting = 0; } if (xrefs > 0) { fputs("See also:@*\n", f); for (i=0; iflags & NO_INDENT_FLAG)) { if (nostrip) { if (strip_indent >= 0) { for (i=0; (iflags & TEXINFO_CMD_FLAG) { /* raw output of texinfo commands */ tfputs(p, f); fputs("\n", f); } else if (line->flags & HTML_CMD_FLAG) { /* process HTML commands */ while (*p) { if (p[0] == '<') { html2texinfo(f, p+1); while ((*p) && (*p != '>')) p++; if (*p) p++; } else p++; } } else if (line->flags & HEADING_FLAG) { /* output a section heading */ if (section_number > 0) { if (in_item) { fputs("@end ftable\n", f); in_item = 0; } if (xrefs > 0) { fputs("See also:@*\n", f); for (i=0; iflags & NOCONTENT_FLAG)) toc_waiting = 1; } section_number++; } else { if (line->flags & DEFINITION_FLAG) fputs("@item ", f); while (*p) { /* less-than HTML tokens */ if ((p[0] == '&') && (tolower(p[1]) == 'l') && (tolower(p[2]) == 't')) { fputc('<', f); p += 3; } /* greater-than HTML tokens */ else if ((p[0] == '&') && (tolower(p[1]) == 'g') && (tolower(p[2]) == 't')) { fputc('>', f); p += 3; } /* process other HTML tokens */ else if (p[0] == '<') { html2texinfo(f, p+1); while ((*p) && (*p != '>')) p++; if (*p) p++; } /* output other characters */ else { if ((*p == '{') || (*p == '}') || (*p == '@')) fputc('@', f); tfputc((unsigned char)*p, f); p++; } } fputs("\n", f); } } else if (line->flags & NODE_FLAG) { if (in_item) { fputs("@end ftable\n", f); if (toc_waiting) { output_texinfo_toc(f, 0, 1, section_number-1); toc_waiting = 0; } } if (valid_texinfo_node(line->text, &next, &prev)) { if (xrefs > 0) { fputs("See also:@*\n", f); for (i=0; itext, next, prev, node_name(section_number-1)); } fputs("@ftable @asis\n", f); in_item = 1; } else if (line->flags & TOC_FLAG) { output_texinfo_toc(f, 1, 0, 0); } else if (line->flags & INDEX_FLAG) { output_texinfo_toc(f, 0, 1, 0); } else if (line->flags & XREF_FLAG) { xref[xrefs++] = line->text; } line = line->next; } fclose(f); return 0; } int write_rtf(char *filename) { char buf[256]; LINE *line = head; LINE *l; char *p; FILE *f; int preformat = 0; int title = 0; int prevhead = 0; int prevdef = 0; int multidef = 0; int pardebt = 0; int parloan = 0; int indent = 0; int indef = 0; int weakdef = 0; int bullet = 0; int inbullet = 0; int tallbullets = 0; #define PAR() \ { \ if (pardebt > 0) \ pardebt--; \ else \ fputs("\\par ", f); \ \ while (inbullet > 0) { \ fputs("\\pard ", f); \ fprintf(f, "\\li%d ", indent*INDENT_SIZE); \ inbullet--; \ } \ } printf("writing %s\n", filename); f = fopen(filename, "w"); if (!f) return 1; /* Fonts: * 0 - Times New Roman * 1 - Courier New * 2 - Symbol * * Colors: * 1 - Black * 2 - Red * 3 - Green * 4 - Blue * * Styles: * 0 - Normal * 1 - Quotation * 2 - Heading 1 * 3 - Heading 2 * 4 - Header * 5 - TOC 1 * 6 - Index 1 */ #define NORMAL_STYLE "\\f0\\fs20 " #define QUOTATION_STYLE "\\f1\\fs18 " #define HEADING_STYLE "\\f0\\fs48\\sa600\\pagebb\\keepn\\ul " #define DEFINITION_STYLE "\\f0\\fs24\\sb200\\keepn\\sa200\\b " #define HEADER_STYLE "\\f0\\fs20\\tqc\\tx4153\\tqr\\tx8306 " #define TOC_STYLE "\\f0\\fs24\\tqr\\tldot\\tx8640 " #define INDEX_STYLE "\\f0\\fs20\\tqr\\tldot\\tx8640 " #define INDENT_SIZE 400 #define BULLET_INDENT 250 fputs("{\\rtf\\ansi\\deff0\\widowctrl " NORMAL_STYLE "\n", f); fputs("{\\colortbl;\\red0\\green0\\blue0;\\red255\\green0\\blue0;\\red0\\green255\\blue0;\\red0\\green0\\blue255;}\n", f); fputs("{\\fonttbl{\\f0\\froman\\fcharset0\\fprq2 Times New Roman;}\n", f); fputs("{\\f1\\fmodern\\fcharset0\\fprq1 Courier New;}\n", f); fputs("{\\f2\\froman\\fcharset2\\fprq2 Symbol;}}\n", f); fputs("{\\stylesheet {\\widctlpar " NORMAL_STYLE "\\snext0 Normal;}\n", f); fputs("{\\s1\\widctlpar " QUOTATION_STYLE "\\sbasedon0\\snext1 Quotation;}\n", f); fputs("{\\s2\\widctlpar " HEADING_STYLE "\\sbasedon0\\snext2 Heading 1;}\n", f); fputs("{\\s3\\widctlpar " DEFINITION_STYLE "\\sbasedon0\\snext3 Heading 2;}\n", f); fputs("{\\s4\\widctlpar " HEADER_STYLE "\\sbasedon0\\snext4 Header;}\n", f); fputs("{\\s5\\widctlpar " TOC_STYLE "\\sbasedon0\\snext0 TOC 1;}\n", f); fputs("{\\s6\\widctlpar " INDEX_STYLE "\\sbasedon0\\snext0 Index 1;}}\n", f); if (rtfheader[0]) { fputs("{\\header \\pard\\plain \\s4 " HEADER_STYLE "\\pvpara\\phmrg\\posxr\\posy0 page {\\field{\\*\\fldinst PAGE}{\\fldrslt 2}}\n", f); fputs("\\par \\pard \\s4\\ri360 " HEADER_STYLE "{\\i ", f); fputs(rtfheader, f); fputs("} \\pard}\n", f); } while (line) { if (line->flags & RTF_FLAG) { p = line->text; if (indef) { /* end the indentation from the previous definition? */ if (weakdef) { if (is_empty(strip_html(line->text))) { fputs("\\par}", f); pardebt++; indent--; indef = 0; weakdef = 0; } } else { l = line; while ((l->next) && (is_empty(strip_html(l->text)))) l = l->next; if (l->flags & (HEADING_FLAG | DEFINITION_FLAG | NODE_FLAG)) { fputs("\\par}", f); pardebt++; indent--; indef = 0; } } } if (line->flags & HEADING_FLAG) { /* start a section heading */ fputs("{\\s2 " HEADING_STYLE, f); } else if (line->flags & DEFINITION_FLAG) { /* start a function definition */ if (prevdef) { if (multidef) { /* continued from previous line */ while ((p[1]) && (isspace(p[1]))) p++; } else { /* new definition, but flush with previous one */ fputs("{\\s3 " DEFINITION_STYLE "\\sb0 ", f); } } else { /* new function definition */ fputs("{\\s3 " DEFINITION_STYLE, f); } if (line->flags & CONTINUE_FLAG) { /* this definition continues onto the next line */ multidef = 1; } else { /* this paragraph should be flush with the next */ multidef = 0; if ((line->next) && (line->next->flags & DEFINITION_FLAG)) fputs("\\sa0 ", f); } prevdef = 1; } else { prevdef = 0; multidef = 0; if (!preformat) { /* skip leading spaces */ while ((*p) && (isspace(*p))) p++; } } while (*p) { if (strincmp(p, "

") == 0) { /* paragraph breaks */ PAR(); p += 3; } else if (strincmp(p, "
") == 0) { /* line breaks */ PAR(); p += 4; } else if (strincmp(p, "

") == 0) {
	       /* start preformatted text */
	       fputs("\\par {\\s1 " QUOTATION_STYLE, f);
	       while (inbullet > 0) {
		  fputs("\\pard ", f);
		  fprintf(f, "\\li%d ", indent*INDENT_SIZE);
		  inbullet--;
	       }
	       preformat = 1;
	       p += 5;
	    }
	    else if (strincmp(p, "
") == 0) { /* end preformatted text */ if (strincmp(line->text, "") == 0) { fputs("}", f); if (indent > (indef ? 1 : 0)) { fputs("\\pard ", f); fprintf(f, "\\li%d ", indent*INDENT_SIZE); } } else { fputs("\\par}", f); pardebt++; if (indent > (indef ? 1 : 0)) inbullet++; } preformat = 0; p += 6; } else if (strincmp(p, "") == 0) { /* start document title */ fputs("{\\info{\\title ", f); title = 1; p += 7; } else if (strincmp(p, "") == 0) { /* end document title */ fputs("}{\\author Allegro makedoc utility}}\n", f); title = 0; p += 8; } else if (strincmp(p, "
") == 0) { /* section division */ if (strincmp(line->text, "")) PAR(); fputs("\\brdrb\\brdrs\\brdrw15\\brsp20 \\par \\pard \\par ", f); p += 4; } else if (strincmp(p, "") == 0) { /* start bold text */ fputs("{\\b ", f); p += 3; } else if (strincmp(p, "") == 0) { /* end bold text */ fputs("\\par}", f); pardebt++; p += 4; } else if (strincmp(p, "") == 0) { /* start italic text */ fputs("{\\i ", f); p += 3; } else if (strincmp(p, "") == 0) { /* end italic text */ fputs("\\par}", f); pardebt++; p += 4; } else if (strincmp(p, "

") == 0) { /* start heading text */ fputs("{\\f0\\fs48 ", f); p += 4; } else if (strincmp(p, "

") == 0) { /* end heading text */ fputs("\\par}", f); pardebt++; p += 5; } else if (strincmp(p, "

") == 0) { /* start subheading text */ fputs("{\\f0\\fs24\\b ", f); p += 4; } else if (strincmp(p, "

") == 0) { /* end subheading text */ fputs("\\par}", f); pardebt++; p += 5; } else if (strincmp(p, "
") == 0) { /* start centered text */ fputs("\\par {\\qc ", f); pardebt++; p += 8; } else if (strincmp(p, "
") == 0) { /* end centered text */ fputs("\\par}", f); pardebt++; p += 9; } else if (strincmp(p, "") == 0) { /* start bullet list */ indent++; fprintf(f, "\\par {\\li%d ", indent*INDENT_SIZE); pardebt++; p += 4; } else if (strincmp(p, "") == 0) { /* end bullet list */ indent--; if (indent == (indef ? 1 : 0)) tallbullets = 0; else inbullet++; fputs("\\par}", f); pardebt++; p += 5; } else if (strincmp(p, "
  • ") == 0) { /* bullet item */ bullet = 1; p += 4; } else if (*p == '<') { /* skip unknown HTML tokens */ while ((*p) && (*p != '>')) p++; p++; } else if (strincmp(p, "<") == 0) { /* less-than HTML tokens */ fputs("<", f); p += 3; } else if (strincmp(p, ">") == 0) { /* greater-than HTML tokens */ fputs(">", f); p += 3; } else if (*p == '\\') { /* backslash escape */ fputs("\\\\", f); p++; } else if (*p == '{') { /* open brace escape */ fputs("\\{", f); p++; } else if (*p == '}') { /* close brace escape */ fputs("\\}", f); p++; } else { while (pardebt > 0) { fputs("\\par ", f); pardebt--; } if (bullet) { /* precede this paragraph with a bullet symbol */ fputs("{\\pntext\\f2\\fs16 \\'b7\\tab}\n", f); fprintf(f, "{\\*\\pn \\pnlvlblt\\pnf2\\pnfs16\\pnindent%d{\\pntxtb \\'b7}}\n", BULLET_INDENT); fprintf(f, "\\fi%d\\li%d ", -BULLET_INDENT, indent*INDENT_SIZE); if (tallbullets) fputs("\\sa80 ", f); bullet = 0; inbullet++; } /* normal character */ rfputc((unsigned char)*p, f); p++; } } if (line->flags & HEADING_FLAG) { /* end a section heading */ fputs("\\par }\n", f); } else if (prevdef) { /* end a function definition */ if (!multidef) { fputs("\\par }\n", f); if ((!indef) && (line->next) && (!(line->next->flags & DEFINITION_FLAG))) { /* indent the definition body text */ indent++; fprintf(f, "{\\li%d ", indent*INDENT_SIZE); indef = 1; if (line->flags & NONODE_FLAG) weakdef = 1; } } } else if (preformat) { /* hard CR for preformatted blocks */ fputs("\n", f); parloan++; } else if (!(line->flags & NO_EOL_FLAG)) { if ((is_empty(strip_html(line->text))) && (!strstr(line->text, "
    "))) { /* output an empty line */ if (!prevhead) { parloan++; if (!strstr(line->text, "")) parloan++; } } else { /* normal EOL */ fputs("\n", f); } } } else if (line->flags & NODE_FLAG) { /* index node */ if (line->flags & HTML_FLAG) { fputs("\\brdrb\\brdrs\\brdrw15\\brsp20 \\par \\pard \\par \\par ", f); } fputs("{\\xe\\v ", f); rfputs(line->text, f); fputs("}\n", f); } else if (line->flags & TOC_FLAG) { /* table of contents */ PAR(); fputs("\n{\\field{\\*\\fldinst TOC \\\\o \"1-1\" }{\\fldrslt {\\b\\i\\ul\\fs24\\cf2 Update this field to generate the table of contents.}}}\n", f); } else if (line->flags & INDEX_FLAG) { /* index */ PAR(); fputs("\n{\\field{\\*\\fldinst INDEX \\\\e \"\\tab \" \\c \"1\" }{\\fldrslt {\\b\\i\\ul\\fs24\\cf2 Update this field to generate the document index.}}}\n", f); } else if (line->flags & TALLBULLET_FLAG) { /* larger spacing after bulleted paragraphs */ tallbullets = 1; } prevhead = (line->flags & HEADING_FLAG); /* advance to the next line */ l = line->next; if (l) { while ((l->next) && (is_empty(l->text)) && (l->next->flags == l->flags)) { l = l->next; } if ((l->next) && (l->next->flags & HEADING_FLAG)) { if (indef) { fputs("\\par}", f); pardebt++; indent--; indef = 0; } PAR(); line = l->next; parloan = 0; pardebt = 0; } else line = line->next; } else line = NULL; while (parloan > 0) { PAR(); parloan--; } } fputs("}\n", f); fclose(f); return 0; } int main(int argc, char *argv[]) { char filename[256] = ""; char txtname[256] = ""; char htmlname[256] = ""; char texinfoname[256] = ""; char rtfname[256] = ""; int err = 0; int partial = 0; int i; for (i=1; i