+++ /dev/null
-/*
- * Copyright notice from original mutt:
- * Copyright (C) 1999-2000 Thomas Roessler <roessler@does-not-exist.org>
- *
- * Parts were written/modified by:
- * Rocco Rutte <pdmef@cs.tu-berlin.de>
- *
- * This file is part of mutt-ng, see http://www.muttng.org/.
- * It's licensed under the GNU General Public License,
- * please see the file GPL in the top level source directory.
- */
-
-/**
- ** This program parses mutt's init.h and generates documentation in
- ** three different formats:
- **
- ** -> a commented muttrc configuration file
- ** -> nroff, suitable for inclusion in a manual page
- ** -> linuxdoc-sgml, suitable for inclusion in the
- ** SGML-based manual
- **
- **/
-
-#include <lib-lib/lib-lib.h>
-
-#ifdef HAVE_GETOPT_H
-# include <getopt.h>
-#endif
-
-typedef struct {
- short seen;
- char *name;
- char *descr;
-} var_t;
-
-static int outcount = 0;
-static var_t *outbuf = NULL;
-
-static int var_cmp (const void *a, const void *b)
-{
- return (m_strcmp (((var_t *) a)->name, ((var_t *) b)->name));
-}
-
-enum output_formats_t {
- F_CONF, F_MAN, F_SGML, F_NONE
-};
-
-#define D_NL (1 << 0)
-#define D_EM (1 << 1)
-#define D_BF (1 << 2)
-#define D_TT (1 << 3)
-#define D_TAB (1 << 4)
-#define D_NP (1 << 5)
-#define D_INIT (1 << 6)
-#define D_DL (1 << 7)
-#define D_DT (1 << 8)
-#define D_DD (1 << 9)
-#define D_PA (1 << 10)
-
-enum {
- SP_START_EM,
- SP_START_BF,
- SP_START_TT,
- SP_END_FT,
- SP_END_PAR,
- SP_NEWLINE,
- SP_NEWPAR,
- SP_STR,
- SP_START_TAB,
- SP_END_TAB,
- SP_START_DL,
- SP_DT,
- SP_DD,
- SP_END_DD,
- SP_END_DL,
- SP_END_SECT,
- SP_REFER
-};
-
-enum output_formats_t OutputFormat = F_NONE;
-char *Progname;
-
-static char *get_token (char *, size_t, char *);
-static char *skip_ws (char *);
-static const char *type2human (int);
-static int buff2type (const char *);
-static int flush_doc (int);
-static int handle_docline (char *, int);
-static int print_it (int, char *, int);
-static void print_confline (const char *, int, const char *);
-static void handle_confline (char *);
-static void makedoc (FILE *, FILE *);
-static int sgml_fputc (int);
-static int sgml_fputs (const char *);
-static int sgml_id_fputs (const char *);
-static void add_var (const char *);
-static int add_s (const char *);
-static int add_c (int);
-
-int main (int argc, char *argv[])
-{
- int c;
- FILE *f;
-
- if ((Progname = strrchr (argv[0], '/')))
- Progname++;
- else
- Progname = argv[0];
-
- while ((c = getopt (argc, argv, "cmsd")) != EOF) {
- switch (c) {
- case 'c':
- OutputFormat = F_CONF;
- break;
- case 'm':
- OutputFormat = F_MAN;
- break;
- case 's':
- OutputFormat = F_SGML;
- break;
- default:
- {
- fprintf (stderr, "%s: bad command line parameter.\n", Progname);
- exit (1);
- }
- }
- }
-
- if (optind != argc) {
- if ((f = fopen (argv[optind], "r")) == NULL) {
- fprintf (stderr, "%s: Can't open %s (%s).\n",
- Progname, argv[optind], strerror (errno));
- exit (1);
- }
- }
- else
- f = stdin;
-
- switch (OutputFormat) {
- case F_CONF:
- case F_MAN:
- case F_SGML:
- makedoc (f, stdout);
- break;
- default:
- {
- fprintf (stderr, "%s: No output format specified.\n", Progname);
- exit (1);
- }
- }
-
- if (f != stdin)
- m_fclose(&f);
-
- exit (1);
-}
-
-static void add_var (const char *name)
-{
- p_realloc(&outbuf, ++outcount);
- outbuf[outcount - 1].seen = 0;
- outbuf[outcount - 1].name = strdup(name);
- outbuf[outcount - 1].descr = NULL;
-}
-
-static int add_s (const char *s)
-{
- size_t lnew = m_strlen(s), lold = m_strlen(outbuf[outcount - 1].descr);
-
- if (lnew == 0)
- return (0);
- if (!outbuf[outcount - 1].seen) {
- lold = 0;
- outbuf[outcount - 1].seen = 1;
- }
-
- if (lold == 0)
- outbuf[outcount - 1].descr = strdup(s);
- else {
- p_realloc(&outbuf[outcount - 1].descr, lold + lnew + 1);
- memcpy(&(outbuf[outcount - 1].descr[lold - 1]) + 1, s, lnew);
- }
- outbuf[outcount - 1].descr[lold + lnew] = '\0';
- return (1);
-}
-
-static int add_c (int c)
-{
- char buf[2] = "\0\0";
-
- buf[0] = c;
- return (add_s (buf));
-}
-
-static void makedoc (FILE * in, FILE * out)
-{
- char buffer[BUFSIZ];
- char token[BUFSIZ];
- char *p;
- int active = 0;
- int line = 0;
- int docstat = D_INIT;
-
- while ((fgets (buffer, sizeof (buffer), in))) {
- line++;
- if ((p = strchr (buffer, '\n')) == NULL) {
- fprintf (stderr, "%s: Line %d too long. Ask a wizard to enlarge\n"
- "%s: my buffer size.\n", Progname, line, Progname);
- exit (1);
- }
- else
- *p = '\0';
-
- if (!(p = get_token (token, sizeof (token), buffer)))
- continue;
-
- if (!m_strcmp (token, "/*++*/"))
- active = 1;
- else if (!m_strcmp (token, "/*--*/")) {
- docstat = flush_doc (docstat);
- active = 0;
- }
- else if (active && (!m_strcmp (token, "/**") || !m_strcmp (token, "**")))
- docstat = handle_docline (p, docstat);
- else if (active && !m_strcmp (token, "{")) {
- docstat = flush_doc (docstat);
- handle_confline (p);
- }
- }
- flush_doc (docstat);
- fputs ("\n", out);
- qsort (outbuf, outcount, sizeof (var_t), &var_cmp);
- for (line = 0; line < outcount; line++) {
- if (outbuf[line].descr) {
- fprintf (out, "%s\n", outbuf[line].descr);
- p_delete(&outbuf[line].descr);
- }
- p_delete(&outbuf[line].name);
- }
- p_delete(&outbuf);
-}
-
-/* skip whitespace */
-
-static char *skip_ws (char *s)
-{
- while (*s && isspace ((unsigned char) *s))
- s++;
-
- return s;
-}
-
-/* isolate a token */
-
-static char single_char_tokens[] = "[]{},;|";
-
-static char *get_token (char *d, size_t l, char *s)
-{
- char *t;
- short is_quoted = 0;
-
- s = skip_ws (s);
-
- if (!*s) {
- return NULL;
- }
-
- if (strchr (single_char_tokens, *s)) {
- d[0] = *s++;
- d[1] = 0;
- return s;
- }
-
- if (*s == '"') {
- s++;
- is_quoted = 1;
- }
-
- for (t = s; *t && --l > 0; t++) {
- if (*t == '\\' && !t[1])
- break;
-
- if (is_quoted && *t == '\\') {
- switch ((*d = *++t)) {
- case 'n':
- *d = '\n';
- break;
- case 't':
- *d = '\t';
- break;
- case 'r':
- *d = '\r';
- break;
- case 'a':
- *d = '\a';
- break;
- }
-
- d++;
- continue;
- }
-
- if (is_quoted && *t == '"') {
- t++;
- break;
- }
- else if (!is_quoted && strchr (single_char_tokens, *t))
- break;
- else if (!is_quoted && isspace ((unsigned char) *t))
- break;
- else
- *d++ = *t;
- }
-
- *d = '\0';
-
- return t;
-}
-
-
-/**
- ** Configuration line parser
- **
- ** The following code parses a line from init.h which declares
- ** a configuration variable.
- **
- **/
-
-/* note: the following enum must be in the same order as the
- * following string definitions!
- */
-
-enum {
- DT_NONE = 0,
- DT_BOOL,
- DT_NUM,
- DT_STR,
- DT_PATH,
- DT_QUAD,
- DT_SORT,
- DT_RX,
- DT_MAGIC,
- DT_SYN,
- DT_ADDR,
- DT_SYS
-};
-
-struct {
- const char *machine;
- const char *human;
-} types[] = {
- {"DT_NONE", "-none-"},
- {"DT_BOOL", "boolean"},
- {"DT_NUM", "number"},
- {"DT_STR", "string"},
- {"DT_PATH", "path"},
- {"DT_QUAD", "quadoption"},
- {"DT_SORT", "sort order"},
- {"DT_RX", "regular expression"},
- {"DT_MAGIC", "folder magic"},
- {"DT_SYN", NULL},
- {"DT_ADDR", "e-mail address"},
- {"DT_SYS", "system property"},
- {NULL, NULL}
-};
-
-static int buff2type (const char *s)
-{
- int type;
-
- for (type = DT_NONE; types[type].machine; type++)
- if (!m_strcmp (types[type].machine, s))
- return type;
-
- return DT_NONE;
-}
-
-static const char *type2human (int type)
-{
- return types[type].human;
-}
-static void handle_confline (char *s)
-{
- char varname[BUFSIZ];
- char buff[BUFSIZ];
- int type;
-
- char val[BUFSIZ];
-
- /* xxx - put this into an actual state machine? */
-
- /* variable name */
- if (!(s = get_token (varname, sizeof (varname), s)))
- return;
-
- /* comma */
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
-
- /* type */
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
-
- type = buff2type (buff);
-
- /* possibly a "|" or comma */
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
-
- if (!m_strcmp (buff, "|")) {
- /* ignore subtype and comma */
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
- }
-
- /* redraw, comma */
-
- while (1) {
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
- if (!m_strcmp (buff, ","))
- break;
- }
-
- /* option name or UL &address */
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
- if (!m_strcmp (buff, "UL"))
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
-
- /* comma */
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
-
- /* <default value> or UL <default value> */
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
- if (!m_strcmp (buff, "UL")) {
- if (!(s = get_token (buff, sizeof (buff), s)))
- return;
- }
-
- memset(val, 0, sizeof(val));
-
- do {
- if (!m_strcmp (buff, "}"))
- break;
-
- m_strcat(val, sizeof(val), buff);
- }
- while ((s = get_token (buff, sizeof (buff), s)));
-
- add_var (varname);
- print_confline (varname, type, val);
-}
-
-static void char_to_escape (char *dest, int len, unsigned int c)
-{
- switch (c) {
- case '\r':
- m_strcpy(dest, len, "\\r");
- break;
- case '\n':
- m_strcpy(dest, len, "\\n");
- break;
- case '\t':
- m_strcpy(dest, len, "\\t");
- break;
- case '\f':
- m_strcpy(dest, len, "\\f");
- break;
- default:
- sprintf (dest, len, "\\%03o", c);
- break;
- }
-}
-static void conf_char_to_escape (unsigned int c)
-{
- char buff[16];
-
- char_to_escape(buff, sizeof(buff), c);
- add_s (buff);
-}
-
-static void conf_print_strval (const char *v)
-{
- for (; *v; v++) {
- if (*v < ' ' || *v & 0x80) {
- conf_char_to_escape ((unsigned int) *v);
- continue;
- }
-
- if (*v == '"' || *v == '\\')
- add_c ('\\');
- add_c (*v);
- }
-}
-
-static void man_print_strval (const char *v)
-{
- for (; *v; v++) {
- if (*v < ' ' || *v & 0x80) {
- add_c ('\\');
- conf_char_to_escape ((unsigned int) *v);
- continue;
- }
-
- if (*v == '"')
- add_s ("\\(rq");
- else if (*v == '\\')
- add_s ("\\\\");
- else
- add_c (*v);
- }
-}
-
-static void sgml_print_strval (const char *v)
-{
- char buff[16];
-
- for (; *v; v++) {
- if (*v < ' ' || *v & 0x80) {
- char_to_escape(buff, sizeof(buff), (unsigned int) *v);
- sgml_fputs (buff);
- continue;
- }
- sgml_fputc ((unsigned int) *v);
- }
-}
-
-static int sgml_fputc (int c)
-{
- switch (c) {
- case '<':
- return add_s ("<");
- case '>':
- return add_s (">");
- case '&':
- return add_s ("&");
- default:
- return add_c (c);
- }
-}
-
-static int sgml_fputs (const char *s)
-{
- for (; *s; s++)
- if (sgml_fputc ((unsigned int) *s) == EOF)
- return EOF;
-
- return 0;
-}
-
-/* reduce CDATA to ID */
-static int sgml_id_fputs (const char *s) {
- char id;
-
- for (; *s; s++) {
- if (*s == '_')
- id = '-';
- else
- id = *s;
- if (sgml_fputc ((unsigned int) id) == EOF)
- return EOF;
- }
- return 0;
-}
-
-static void print_confline (const char *varname, int type, const char *val)
-{
- if (type == DT_SYN)
- return;
-
- switch (OutputFormat) {
- /* configuration file */
- case F_CONF:
- {
- if (type == DT_SYS) {
- add_s ("\n# set ?");
- add_s (varname);
- add_s (" prints ");
- add_s (val);
- break;
- }
- if (type == DT_STR || type == DT_RX || type == DT_ADDR
- || type == DT_PATH) {
- add_s ("\n# set ");
- add_s (varname);
- add_s ("=\"");
- conf_print_strval (val);
- add_s ("\"");
- }
- else if (type != DT_SYN) {
- add_s ("\n# set ");
- add_s (varname);
- add_s ("=");
- add_s (val);
- }
-
- add_s ("\n#\n# Name: ");
- add_s (varname);
- add_s ("\n# Type: ");
- add_s (type2human (type));
- if (type == DT_STR || type == DT_RX || type == DT_ADDR
- || type == DT_PATH) {
- add_s ("\n# Default: \"");
- conf_print_strval (val);
- add_s ("\"");
- }
- else {
- add_s ("\n# Default: ");
- add_s (val);
- }
-
- add_s ("\n# ");
- break;
- }
-
- /* manual page */
- case F_MAN:
- {
- add_s (".TP\n.B ");
- add_s (varname);
- add_s ("\n.nf\n");
- add_s ("Type: ");
- add_s (type2human (type));
- add_c ('\n');
- if (type == DT_STR || type == DT_RX || type == DT_ADDR
- || type == DT_PATH) {
- add_s ("Default: \\(lq");
- man_print_strval (val);
- add_s ("\\(rq\n");
- }
- else {
- add_s (type == DT_SYS ? "Value: " : "Default: ");
- add_s (val);
- add_c ('\n');
- }
- add_s (".fi");
-
- break;
- }
-
- /* SGML based manual */
- case F_SGML:
- {
- add_s ("\n<madmutt-doc:vardef name=\"");
- sgml_fputs (varname);
- add_s ("\">\n<para>Type: <literal>");
- add_s (type2human (type));
- add_s ("</literal></para>\n");
-
- if (type == DT_STR || type == DT_RX || type == DT_ADDR
- || type == DT_PATH) {
- add_s ("<para>\nDefault: <literal>"");
- sgml_print_strval (val);
- add_s (""</literal>");
- }
- else {
- add_s ("<para>\n");
- add_s (type == DT_SYS ? "Value: " : "Default: ");
- add_s ("<literal>");
- add_s (val);
- add_s ("</literal>");
- }
- add_s ("</para>\n");
- break;
- }
- /* make gcc happy */
- default:
- break;
- }
-}
-
-/**
- ** Documentation line parser
- **
- ** The following code parses specially formatted documentation
- ** comments in init.h.
- **
- ** The format is very remotely inspired by nroff. Most important, it's
- ** easy to parse and convert, and it was easy to generate from the SGML
- ** source of mutt's original manual.
- **
- ** - \fI switches to italics
- ** - \fB switches to boldface
- ** - \fT switches to typewriter for SGML
- ** - \fP switches to normal display
- ** - .dl on a line starts a definition list (name taken taken from HTML).
- ** - .dt starts a term in a definition list.
- ** - .dd starts a definition in a definition list.
- ** - .de on a line finishes a definition list.
- ** - .ts on a line starts a "tscreen" environment (name taken from SGML).
- ** - .te on a line finishes this environment.
- ** - .pp on a line starts a paragraph.
- ** - \$word will be converted to a reference to word, where appropriate.
- ** Note that \$$word is possible as well.
- ** - '. ' in the beginning of a line expands to two space characters.
- ** This is used to protect indentations in tables.
- **/
-
-/* close eventually-open environments. */
-
-static int fd_recurse = 0;
-
-static int flush_doc (int docstat)
-{
- if (docstat & D_INIT)
- return D_INIT;
-
- if (fd_recurse++) {
- fprintf (stderr, "%s: Internal error, recursion in flush_doc()!\n",
- Progname);
- exit (1);
- }
-
- if (docstat & (D_PA))
- docstat = print_it (SP_END_PAR, NULL, docstat);
-
- if (docstat & (D_TAB))
- docstat = print_it (SP_END_TAB, NULL, docstat);
-
- if (docstat & (D_DL))
- docstat = print_it (SP_END_DL, NULL, docstat);
-
- if (docstat & (D_EM | D_BF | D_TT))
- docstat = print_it (SP_END_FT, NULL, docstat);
-
- docstat = print_it (SP_END_SECT, NULL, docstat);
-
- docstat = print_it (SP_NEWLINE, NULL, 0);
-
- fd_recurse--;
- return D_INIT;
-}
-
-/* print something. */
-
-static int print_it (int special, char *str, int docstat)
-{
- int onl = docstat & (D_NL | D_NP);
-
- docstat &= ~(D_NL | D_NP | D_INIT);
-
- switch (OutputFormat) {
- /* configuration file */
- case F_CONF:
- {
- switch (special) {
- static int Continuation = 0;
-
- case SP_END_FT:
- docstat &= ~(D_EM | D_BF | D_TT);
- break;
- case SP_START_BF:
- docstat |= D_BF;
- break;
- case SP_START_EM:
- docstat |= D_EM;
- break;
- case SP_START_TT:
- docstat |= D_TT;
- break;
- case SP_NEWLINE:
- {
- if (onl)
- docstat |= onl;
- else {
- add_s ("\n# ");
- docstat |= D_NL;
- }
- if (docstat & D_DL)
- ++Continuation;
- break;
- }
- case SP_NEWPAR:
- {
- if (onl & D_NP) {
- docstat |= onl;
- break;
- }
-
- if (!(onl & D_NL))
- add_s ("\n# ");
- add_s ("\n# ");
- docstat |= D_NP;
- break;
- }
- case SP_START_TAB:
- {
- if (!onl)
- add_s ("\n# ");
- docstat |= D_TAB;
- break;
- }
- case SP_END_TAB:
- {
- docstat &= ~D_TAB;
- docstat |= D_NL;
- break;
- }
- case SP_START_DL:
- {
- docstat |= D_DL;
- break;
- }
- case SP_DT:
- {
- Continuation = 0;
- docstat |= D_DT;
- break;
- }
- case SP_DD:
- {
- Continuation = 0;
- break;
- }
- case SP_END_DL:
- {
- Continuation = 0;
- docstat &= ~D_DL;
- break;
- }
- case SP_STR:
- {
- if (Continuation) {
- Continuation = 0;
- add_s (" ");
- }
- add_s (str);
- if (docstat & D_DT) {
- int i;
-
- for (i = m_strlen(str); i < 8; i++)
- add_c (' ');
- docstat &= ~D_DT;
- docstat |= D_NL;
- }
- break;
- }
- }
- break;
- }
-
- /* manual page */
- case F_MAN:
- {
- switch (special) {
- case SP_END_FT:
- {
- add_s ("\\fP");
- docstat &= ~(D_EM | D_BF | D_TT);
- break;
- }
- case SP_START_BF:
- {
- add_s ("\\fB");
- docstat |= D_BF;
- docstat &= ~(D_EM | D_TT);
- break;
- }
- case SP_START_EM:
- {
- add_s ("\\fI");
- docstat |= D_EM;
- docstat &= ~(D_BF | D_TT);
- break;
- }
- case SP_START_TT:
- {
- docstat |= D_TT;
- docstat &= ~(D_BF | D_EM);
- break;
- }
- case SP_NEWLINE:
- {
- if (onl)
- docstat |= onl;
- else {
- add_c ('\n');
- docstat |= D_NL;
- }
- break;
- }
- case SP_NEWPAR:
- {
- if (onl & D_NP) {
- docstat |= onl;
- break;
- }
-
- if (!(onl & D_NL))
- add_c ('\n');
- add_s (".IP\n");
-
- docstat |= D_NP;
- break;
- }
- case SP_START_TAB:
- {
- add_s ("\n.IP\n.DS\n.sp\n.ft CR\n.nf\n");
- docstat |= D_TAB | D_NL;
- break;
- }
- case SP_END_TAB:
- {
- add_s ("\n.fi\n.ec\n.ft P\n.sp\n");
- docstat &= ~D_TAB;
- docstat |= D_NL;
- break;
- }
- case SP_START_DL:
- {
- add_s ("\n.RS");
- docstat |= D_DL;
- break;
- }
- case SP_DT:
- {
- add_s ("\n.IP ");
- break;
- }
- case SP_DD:
- {
- add_s ("\n");
- break;
- }
- case SP_END_DL:
- {
- add_s ("\n.RE");
- docstat &= ~D_DL;
- break;
- }
- case SP_STR:
- {
- while (*str) {
- for (; *str; str++) {
- if (*str == '"')
- add_s ("\\(rq");
- else if (*str == '\\')
- add_s ("\\\\");
- else if (!m_strncmp (str, "``", 2)) {
- add_s ("\\(lq");
- str++;
- }
- else if (!m_strncmp (str, "''", 2)) {
- add_s ("\\(rq");
- str++;
- }
- else
- add_c (*str);
- }
- }
- break;
- }
- }
- break;
- }
-
- /* SGML based manual */
- case F_SGML:
- {
- switch (special) {
- case SP_END_FT:
- {
- if (docstat & D_EM)
- add_s ("</emphasis>");
- if (docstat & D_BF)
- add_s ("</emphasis>");
- if (docstat & D_TT)
- add_s ("</literal>");
- docstat &= ~(D_EM | D_BF | D_TT);
- break;
- }
- case SP_START_BF:
- {
- add_s ("<emphasis role=\"bold\">");
- docstat |= D_BF;
- docstat &= ~(D_EM | D_TT);
- break;
- }
- case SP_START_EM:
- {
- add_s ("<emphasis>");
- docstat |= D_EM;
- docstat &= ~(D_BF | D_TT);
- break;
- }
- case SP_START_TT:
- {
- add_s ("<literal>");
- docstat |= D_TT;
- docstat &= ~(D_EM | D_BF);
- break;
- }
- case SP_NEWLINE:
- {
- if (onl)
- docstat |= onl;
- else {
- add_s ("\n");
- docstat |= D_NL;
- }
- break;
- }
- case SP_NEWPAR:
- {
- if (onl & D_NP) {
- docstat |= onl;
- break;
- }
-
- if (!(onl & D_NL))
- add_s ("\n");
- if (docstat & D_PA)
- add_s ("</para>\n");
- add_s ("<para>\n");
-
- docstat |= D_NP;
- docstat |= D_PA;
- break;
- }
- case SP_START_TAB:
- {
- add_s ("\n<screen>\n");
- docstat |= D_TAB | D_NL;
- break;
- }
- case SP_END_TAB:
- {
- add_s ("\n</screen>");
- docstat &= ~D_TAB;
- docstat |= D_NL;
- break;
- }
- case SP_START_DL:
- {
- add_s ("\n<variablelist>\n");
- docstat |= D_DL;
- break;
- }
- case SP_DT:
- {
- add_s ("<varlistentry><term>");
- break;
- }
- case SP_DD:
- {
- add_s ("</term>\n<listitem><para>\n");
- docstat |= D_DD;
- break;
- }
- case SP_END_DL:
- {
- add_s ("</para></listitem></varlistentry></variablelist>\n");
- docstat &= ~(D_DL|D_DD);
- break;
- }
- case SP_END_PAR:
- {
- add_s ("</para>\n");
- docstat &= ~D_PA;
- break;
- }
- case SP_END_DD:
- {
- add_s ("</para></listitem></varlistentry>\n");
- docstat &= ~D_DD;
- break;
- }
- case SP_END_SECT:
- {
- add_s ("</madmutt-doc:vardef>\n");
- break;
- }
- case SP_STR:
- {
- if (docstat & D_TAB)
- add_s (str);
- else
- sgml_fputs (str);
- break;
- }
- }
- break;
- }
- /* make gcc happy (unreached) */
- default:
- break;
- }
-
- return docstat;
-}
-
-static void print_ref (int output_dollar, const char *ref)
-{
- switch (OutputFormat) {
- case F_CONF:
- case F_MAN:
- if (output_dollar)
- add_c ('$');
- add_s (ref);
- break;
-
- case F_SGML:
- add_s ("<link linkend=\"");
- sgml_id_fputs (ref);
- add_s ("\">\n");
- if (output_dollar)
- add_s ("$");
- sgml_fputs (ref);
- add_s ("</link>");
- break;
-
- default:
- break;
- }
-}
-
-static int commit_buff (char *buff, char **d, int docstat)
-{
- if (*d > buff) {
- **d = '\0';
- docstat = print_it (SP_STR, buff, docstat);
- *d = buff;
- }
-
- return docstat;
-}
-
-static int handle_docline (char *l, int docstat)
-{
- char buff[BUFSIZ];
- char *s, *d;
-
- l = skip_ws (l);
-
- if (!m_strncmp (l, ".pp", 3))
- return print_it (SP_NEWPAR, NULL, docstat);
- else if (!m_strncmp (l, ".ts", 3))
- return print_it (SP_START_TAB, NULL, docstat);
- else if (!m_strncmp (l, ".te", 3))
- return print_it (SP_END_TAB, NULL, docstat);
- else if (!m_strncmp (l, ".dl", 3))
- return print_it (SP_START_DL, NULL, docstat);
- else if (!m_strncmp (l, ".de", 3))
- return print_it (SP_END_DL, NULL, docstat);
- else if (!m_strncmp (l, ". ", 2))
- *l = ' ';
-
- for (s = l, d = buff; *s; s++) {
- if (!m_strncmp (s, "\\(as", 4)) {
- *d++ = '*';
- s += 3;
- }
- else if (!m_strncmp (s, "\\(rs", 4)) {
- *d++ = '\\';
- s += 3;
- }
- else if (!m_strncmp (s, "\\fI", 3)) {
- docstat = commit_buff (buff, &d, docstat);
- docstat = print_it (SP_START_EM, NULL, docstat);
- s += 2;
- }
- else if (!m_strncmp (s, "\\fB", 3)) {
- docstat = commit_buff (buff, &d, docstat);
- docstat = print_it (SP_START_BF, NULL, docstat);
- s += 2;
- }
- else if (!m_strncmp (s, "\\fT", 3)) {
- docstat = commit_buff (buff, &d, docstat);
- docstat = print_it (SP_START_TT, NULL, docstat);
- s += 2;
- }
- else if (!m_strncmp (s, "\\fP", 3)) {
- docstat = commit_buff (buff, &d, docstat);
- docstat = print_it (SP_END_FT, NULL, docstat);
- s += 2;
- }
- else if (!m_strncmp (s, ".dt", 3)) {
- if (docstat & D_DD) {
- docstat = commit_buff (buff, &d, docstat);
- docstat = print_it (SP_END_DD, NULL, docstat);
- }
- docstat = commit_buff (buff, &d, docstat);
- docstat = print_it (SP_DT, NULL, docstat);
- s += 3;
- }
- else if (!m_strncmp (s, ".dd", 3)) {
- docstat = commit_buff (buff, &d, docstat);
- docstat = print_it (SP_DD, NULL, docstat);
- s += 3;
- }
- else if (*s == '$') {
- int output_dollar = 0;
- char *ref;
- char save;
-
- ++s;
- if (*s == '$') {
- output_dollar = 1;
- ++s;
- }
- if (*s == '$') {
- *d++ = '$';
- }
- else {
- ref = s;
- while (isalnum ((unsigned char) *s) || *s == '-' || *s == '_')
- ++s;
-
- docstat = commit_buff (buff, &d, docstat);
- save = *s;
- *s = 0;
- print_ref (output_dollar, ref);
- *s = save;
- --s;
- }
- }
- else
- *d++ = *s;
- }
-
- docstat = commit_buff (buff, &d, docstat);
- return print_it (SP_NEWLINE, NULL, docstat);
-}
projects / apps / madmutt.git / commitdiff