texi2mdoc/main.c - diff

Return to main.c CVS log

Up to [cvsweb.bsd.lv] / texi2mdoc

Diff for /texi2mdoc/main.c between version 1.32 and 1.40

version 1.32, 2015/02/23 12:28:20

version 1.40, 2015/02/23 22:50:11

Line 14

* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

#if defined(__linux__) || defined(__MINT__)

# define _GNU_SOURCE /* memmem */

#endif

#include <sys/mman.h>

#include <sys/stat.h>

Line 74 static void dotab(struct texi *, enum texicmd, const c

Line 77 static void dotab(struct texi *, enum texicmd, const c

static void dotitle(struct texi *, enum texicmd, const char *, size_t, size_t *);

static void dovalue(struct texi *, enum texicmd, const char *, size_t, size_t *);

static void doverb(struct texi *, enum texicmd, const char *, size_t, size_t *);

static void doverbatim(struct texi *, enum texicmd, const char *, size_t, size_t *);

static void doverbinclude(struct texi *, enum texicmd, const char *, size_t, size_t *);

static const struct texitok __texitoks[TEXICMD__MAX] = {

Line 94 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 98 static const struct texitok __texitoks[TEXICMD__MAX] =

{ dosymbol, "!", 1 }, /* TEXICMD_BANG */

{ dosymbol, "bullet", 6 }, /* TEXICMD_BULLET */

{ dobye, "bye", 3 }, /* TEXICMD_BYE */

{ doblock, "cartouche", 9 }, /* TEXICMD_CARTOUCHE */

{ doaccent, ",", 1 }, /* TEXICMD_CEDILLA */

{ doignline, "center", 6 }, /* TEXICMD_CENTER */

{ dosection, "chapter", 7 }, /* TEXICMD_CHAPTER */

{ doignline, "cindex", 6 }, /* TEXICMD_CINDEX */

Line 103 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 109 static const struct texitok __texitoks[TEXICMD__MAX] =

{ doinline, "code", 4 }, /* TEXICMD_CODE */

{ dosymbol, ":", 1 }, /* TEXICMD_COLON */

{ NULL, "columnfractions", 15 }, /* TEXICMD_COLUMNFRACTIONS */

{ dosymbol, "comma", 5 }, /* TEXICMD_COMMA */

{ doinline, "command", 7 }, /* TEXICMD_COMMAND */

{ doignline, "c", 1 }, /* TEXICMD_COMMENT */

{ doignline, "comment", 7 }, /* TEXICMD_COMMENT_LONG */

Line 121 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 128 static const struct texitok __texitoks[TEXICMD__MAX] =

{ dodefn, "deftypefnx", 10 }, /* TEXICMD_DEFTYPEFNX */

{ dodefn, "deftypefun", 10 }, /* TEXICMD_DEFTYPEFUN */

{ dodefn, "deftypefunx", 11 }, /* TEXICMD_DEFTYPEFUNX */

{ dodefn, "deftypemethod", 13 }, /* TEXICMD_DEFTYPEMETHOD */

{ dodefn, "deftypemethodx", 14 }, /* TEXICMD_DEFTYPEMETHODX */

{ dodefn, "deftypevar", 10 }, /* TEXICMD_DEFTYPEVAR */

{ dodefn, "deftypevarx", 11 }, /* TEXICMD_DEFTYPEVARX */

{ dodefn, "deftypevr", 9 }, /* TEXICMD_DEFTYPEVR */

Line 137 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 146 static const struct texitok __texitoks[TEXICMD__MAX] =

{ doignblock, "direntry", 8 }, /* TEXICMD_DIRENTRY */

{ dodisplay, "display", 7 }, /* TEXICMD_DISPLAY */

{ doignbracket, "dmn", 3 }, /* TEXICMD_DMN */

{ doignblock, "documentdescription", 19 }, /* TEXICMD_DOCUMENTDESCRIPTION */

{ doignline, "documentencoding", 16 }, /* TEXICMD_DOCUMENTENCODING */

{ dosymbol, "dots", 4 }, /* TEXICMD_DOTS */

{ dolink, "email", 5 }, /* TEXICMD_EMAIL */

{ doinline, "emph", 4 }, /* TEXICMD_EMPH */

{ NULL, "end", 3 }, /* TEXICMD_END */

{ dosymbol, "enddots", 7 }, /* TEXICMD_ENDDOTS */

{ doenumerate, "enumerate", 9 }, /* TEXICMD_ENUMERATE */

{ doinline, "env", 3 }, /* TEXICMD_ENV */

{ dosymbol, "equiv", 5 }, /* TEXICMD_EQUIV */

Line 180 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 192 static const struct texitok __texitoks[TEXICMD__MAX] =

{ doignbracket, "image", 5 }, /* TEXICMD_IMAGE */

{ doinclude, "include", 7 }, /* TEXICMD_INCLUDE */

{ dodisplay, "indentblock", 11 }, /* TEXICMD_INDENTBLOCK */

{ doignline, "", 0 }, /* TEXICMD_USER_INDEX */

{ dolink, "inforef", 7 }, /* TEXICMD_INDENTBLOCK */

{ doignline, "insertcopying", 13 }, /* TEXICMD_INSERTCOPYING */

{ doitem, "item", 4 }, /* TEXICMD_ITEM */

{ doitemize, "itemize", 7 }, /* TEXICMD_ITEMIZE */

Line 219 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 231 static const struct texitok __texitoks[TEXICMD__MAX] =

{ dosection, "section", 7 }, /* TEXICMD_SECTION */

{ dovalue, "set", 3 }, /* TEXICMD_SET */

{ doignline, "setchapternewpage", 17 }, /* TEXICMD_SETCHAPNEWPAGE */

{ doignline, "setcontentsaftertitlepage", 25 }, /* TEXICMD_SETCONTENTSAFTER */

{ doignline, "setfilename", 11 }, /* TEXICMD_SETFILENAME */

{ dotitle, "settitle", 8 }, /* TEXICMD_SETTITLE */

{ doignline, "shortcontents", 13 }, /* TEXICMD_SHORTCONTENTS */

{ doinline, "slanted", 7 }, /* TEXICMD_SLANTED */

{ dosymbol, "/", 1 }, /* TEXICMD_SLASH */

{ dosp, "sp", 2 }, /* TEXICMD_SP */

{ dosymbol, " ", 1 }, /* TEXICMD_SPACE */

{ doignline, "smallbook", 9 }, /* TEXICMD_SMALLBOOK */

Line 232 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 246 static const struct texitok __texitoks[TEXICMD__MAX] =

{ dodisplay, "smallindentblock", 16 }, /* TEXICMD_SMALLINDENTBLOCK */

{ dosymbol, "{", 1 }, /* TEXICMD_SQUIGGLE_LEFT */

{ dosymbol, "}", 1 }, /* TEXICMD_SQUIGGLE_RIGHT */

{ dosymbol, "ss", 2 }, /* TEXICMD_SS */

{ doinline, "strong", 6 }, /* TEXICMD_STRONG */

{ dosubsection, "subheading", 10 }, /* TEXICMD_SUBHEADING */

{ dosubsection, "subsection", 10 }, /* TEXICMD_SUBSECTION */

Line 247 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 262 static const struct texitok __texitoks[TEXICMD__MAX] =

{ dotable, "table", 5 }, /* TEXICMD_TABLE */

{ doignblock, "tex", 3 }, /* TEXICMD_TEX */

{ dosymbol, "TeX", 3 }, /* TEXICMD_TEXSYM */

{ dosymbol, "tie", 3 }, /* TEXICMD_TIE */

{ doaccent, "~", 1 }, /* TEXICMD_TILDE */

{ doignline, "tindex", 6 }, /* TEXICMD_TINDEX */

{ doignline, "title", 5 }, /* TEXICMD_TITLE */

Line 260 static const struct texitok __texitoks[TEXICMD__MAX] =

Line 276 static const struct texitok __texitoks[TEXICMD__MAX] =

{ dosubsubsection, "unnumberedsubsubsec", 19 }, /* TEXICMD_UNNUMBEREDSUBSUBSEC */

{ dolink, "uref", 4 }, /* TEXICMD_UREF */

{ dolink, "url", 3 }, /* TEXICMD_URL */

{ doignline, "", 0 }, /* TEXICMD_USER_INDEX */

{ dovalue, "value", 5 }, /* TEXICMD_VALUE */

{ doinline, "var", 3 }, /* TEXICMD_VAR */

{ doverb, "verbatim", 8 }, /* TEXICMD_VERBATIM */

{ doverb, "verb", 4 }, /* TEXICMD_VERB */

{ doverbatim, "verbatim", 8 }, /* TEXICMD_VERBATIM */

{ doverbinclude, "verbatiminclude", 15 }, /* TEXICMD_VERBATIMINCLUDE */

{ doignline, "vindex", 6 }, /* TEXICMD_VINDEX */

{ dosp, "vskip", 5 }, /* TEXICMD_VSKIP */

Line 314 dodefn(struct texi *p, enum texicmd cmd,

Line 332 dodefn(struct texi *p, enum texicmd cmd,

blk = NULL;

switch (cmd) {

case (TEXICMD_DEFFN):

case (TEXICMD_DEFMAC):

case (TEXICMD_DEFTP):

case (TEXICMD_DEFTYPEFN):

case (TEXICMD_DEFTYPEFUN):

case (TEXICMD_DEFTYPEMETHOD):

case (TEXICMD_DEFTYPEVAR):

case (TEXICMD_DEFTYPEVR):

case (TEXICMD_DEFUN):

Line 339 dodefn(struct texi *p, enum texicmd cmd,

Line 359 dodefn(struct texi *p, enum texicmd cmd,

texivspace(p);

switch (cmd) {

case (TEXICMD_DEFTYPEMETHOD):

case (TEXICMD_DEFTYPEMETHODX):

texiputchars(p, "Method");

break;

case (TEXICMD_DEFMAC):

case (TEXICMD_DEFMACX):

texiputchars(p, "Macro");

Line 387 dodefn(struct texi *p, enum texicmd cmd,

Line 411 dodefn(struct texi *p, enum texicmd cmd,

case (TEXICMD_DEFTYPEFUNX):

case (TEXICMD_DEFTYPEFN):

case (TEXICMD_DEFTYPEFNX):

case (TEXICMD_DEFTYPEMETHOD):

case (TEXICMD_DEFTYPEMETHODX):

teximacroopen(p, "Ft");

parselinearg(p, buf, sz, pos);

teximacroclose(p);

Line 511 doignblock(struct texi *p, enum texicmd cmd,

Line 537 doignblock(struct texi *p, enum texicmd cmd,

term = memmem(&buf[*pos], sz, end, endsz);

endpos = NULL == term ? sz :

*pos + term - &buf[*pos];

*pos + (size_t)(term - &buf[*pos]);

assert(endpos <= sz);

while (*pos < endpos)

advance(p, buf, pos);

Line 588 static void

Line 614 static void

doverb(struct texi *p, enum texicmd cmd,

const char *buf, size_t sz, size_t *pos)

{

char delim;

size_t start;

while (*pos < sz && isws(buf[*pos]))

advance(p, buf, pos);

if (*pos == sz || '{' != buf[*pos])

return;

advance(p, buf, pos);

if (*pos == sz)

return;

delim = buf[*pos];

advance(p, buf, pos);

/* Make sure we flush out our initial whitespace... */

if (p->seenws && p->outcol && 0 == p->literal)

texiputchar(p, ' ');

p->seenws = 0;

start = *pos;

/* Read until we see the delimiter then end-brace. */

while (*pos < sz - 1) {

if (buf[*pos] == delim && buf[*pos + 1] == '}')

break;

advance(p, buf, pos);

}

if (*pos == sz - 1)

return;

texiputbuf(p, buf, start, *pos);

/* Make sure we read after the end-brace. */

assert(delim == buf[*pos]);

advance(p, buf, pos);

assert('}' == buf[*pos]);

advance(p, buf, pos);

}

static void

doverbatim(struct texi *p, enum texicmd cmd,

const char *buf, size_t sz, size_t *pos)

{

const char *end, *term;

size_t endsz, endpos;

Line 604 doverb(struct texi *p, enum texicmd cmd,

Line 669 doverb(struct texi *p, enum texicmd cmd,

term = memmem(&buf[*pos], sz, end, endsz);

endpos = NULL == term ? sz :

*pos + term - &buf[*pos];

*pos + (size_t)(term - &buf[*pos]);

teximacro(p, "Bd -literal -offset indent");

assert(endpos <= sz);

Line 829 doaccent(struct texi *p, enum texicmd cmd,

Line 894 doaccent(struct texi *p, enum texicmd cmd,

if (*pos == sz)

return;

advance(p, buf, pos);

if (p->seenws && p->outcol && 0 == p->literal)

texiputchar(p, ' ');

p->seenws = 0;

switch (cmd) {

case (TEXICMD_CEDILLA):

/* Strange rules... */

while (*pos < sz && isws(buf[*pos]))

advance(p, buf, pos);

if (*pos == sz || '{' != buf[*pos])

return;

advance(p, buf, pos);

switch (buf[*pos]) {

case ('c'): case ('C'):

texiputchars(p, "\\(,");

texiputchar(p, buf[*pos]);

break;

default:

texiputchar(p, buf[*pos]);

break;

}

advance(p, buf, pos);

break;

case (TEXICMD_ACUTE):

switch (buf[*pos]) {

case ('a'): case ('A'):

Line 857 doaccent(struct texi *p, enum texicmd cmd,

Line 942 doaccent(struct texi *p, enum texicmd cmd,

break;

default:

texiputchar(p, buf[*pos]);

break;

}

break;

case (TEXICMD_GRAVE):

Line 883 doaccent(struct texi *p, enum texicmd cmd,

Line 969 doaccent(struct texi *p, enum texicmd cmd,

break;

default:

texiputchar(p, buf[*pos]);

break;

}

break;

case (TEXICMD_UMLAUT):

Line 898 doaccent(struct texi *p, enum texicmd cmd,

Line 985 doaccent(struct texi *p, enum texicmd cmd,

break;

default:

texiputchar(p, buf[*pos]);

break;

}

break;

default:

abort();

}

advance(p, buf, pos);

}

static void

Line 931 dosymbol(struct texi *p, enum texicmd cmd,

Line 1020 dosymbol(struct texi *p, enum texicmd cmd,

case (TEXICMD_BULLET):

texiputchars(p, "\\(bu");

break;

case (TEXICMD_COMMA):

texiputchar(p, ',');

break;

case (TEXICMD_COPYRIGHT):

texiputchars(p, "\\(co");

break;

case (TEXICMD_DOTS):

case (TEXICMD_ENDDOTS):

texiputchars(p, "...");

break;

case (TEXICMD_EQUIV):

Line 961 dosymbol(struct texi *p, enum texicmd cmd,

Line 1054 dosymbol(struct texi *p, enum texicmd cmd,

case (TEXICMD_RESULT):

texiputchars(p, "\\(rA");

break;

case (TEXICMD_SLASH):

texiputchar(p, '/');

break;

case (TEXICMD_SS):

texiputchars(p, "\\(ss");

break;

case (TEXICMD_SQUIGGLE_LEFT):

texiputchars(p, "{");

break;

Line 970 dosymbol(struct texi *p, enum texicmd cmd,

Line 1069 dosymbol(struct texi *p, enum texicmd cmd,

case (TEXICMD_TEXSYM):

texiputchars(p, "TeX");

break;

case (TEXICMD_TIE):

texiputchars(p, "\\ ");

break;

case (TEXICMD_COLON):

case (TEXICMD_HYPHEN):

break;

Line 995 static void

Line 1097 static void

domath(struct texi *p, enum texicmd cmd,

const char *buf, size_t sz, size_t *pos)

{

size_t nest;

size_t nest, start;

* Math handling is different from everything else.

Line 1011 domath(struct texi *p, enum texicmd cmd,

Line 1113 domath(struct texi *p, enum texicmd cmd,

if (p->seenws && p->outcol && 0 == p->literal)

texiputchar(p, ' ');

p->seenws = 0;

for (nest = 1; *pos < sz && nest > 0; ) {

for (nest = 1, start = *pos; *pos < sz && nest > 0; ) {

if ('{' == buf[*pos])

nest++;

else if ('}' == buf[*pos])

if (0 == --nest)

continue;

texiputchar(p, buf[*pos]);

advance(p, buf, pos);

}

if (*pos == sz)

return;

assert('}' == buf[*pos]);

texiputbuf(p, buf, start, *pos);

advance(p, buf, pos);

}

Line 1112 dolink(struct texi *p, enum texicmd cmd,

Line 1214 dolink(struct texi *p, enum texicmd cmd,

break;

case (TEXICMD_XREF):

texiputchars(p, "See Section");

teximacroopen(p, "Qq");

teximacroopen(p, "Dq");

break;

case (TEXICMD_PXREF):

texiputchars(p, "see Section");

teximacroopen(p, "Qq");

teximacroopen(p, "Dq");

break;

case (TEXICMD_INFOREF):

texiputchars(p, "See Info file node");

teximacroopen(p, "Dq");

break;

default:

abort();

}

Line 1195 dosubsection(struct texi *p, enum texicmd cmd,

Line 1301 dosubsection(struct texi *p, enum texicmd cmd,

texierr(p, "\"%s\" in a literal scope!?", sects[sec]);

/* We don't have a subsubsection, so make one up. */

texivspace(p);

if (sec > 1)

texivspace(p);

teximacroopen(p, sects[sec]);

parseeoln(p, buf, sz, pos);

teximacroclose(p);

texivspace(p);

if (sec > 1)

texivspace(p);

}

static void

Line 1252 dosp(struct texi *p, enum texicmd cmd,

Line 1360 dosp(struct texi *p, enum texicmd cmd,

const char *buf, size_t sz, size_t *pos)

{

texivspace(p);

if (p->literal)

texiputchar(p, '\n');

else

texivspace(p);

/* FIXME: ignore and parseeoln. */

advanceeoln(p, buf, sz, pos, 1);

}

Line 1488 doignline(struct texi *p, enum texicmd cmd,

Line 1599 doignline(struct texi *p, enum texicmd cmd,

* Parse colon-separated directories from "cp" (if not NULL) and returns

* the array of pointers.

* Prepends "base" to the array.

* Prepends "base" to the array, if found.

* This does NOT sanitise the directories!

static char **

Line 1496 parsedirs(struct texi *p, const char *base, const char

Line 1607 parsedirs(struct texi *p, const char *base, const char

{

char *tok, *str, *tofree;

const char *cpp;

size_t i;

size_t i = 0;

char **dirs;

*sz = NULL != (cpp = cp) ? 2 : 1;

/* Count up our expected arguments. */

if (*sz > 1)

*sz = NULL != base;

for ( ; NULL != (cpp = strchr(cpp, ':')); (*sz)++)

if (NULL != (cpp = cp))

for ((*sz)++; NULL != (cpp = strchr(cpp, ':')); (*sz)++)

cpp++;

if (0 == *sz)

return(NULL);

if (NULL == (dirs = calloc(*sz, sizeof(char *))))

texiabort(p, NULL);

else if (NULL == (dirs[0] = strdup(base)))

if (NULL != base && NULL == (dirs[i++] = strdup(base)))

texiabort(p, NULL);

if (NULL == cp)

return(dirs);

if (NULL == (tofree = tok = str = strdup(cp)))

texiabort(p, NULL);

for (i = 1; NULL != (tok = strsep(&str, ":")); i++)

for ( ; NULL != (tok = strsep(&str, ":")); i++)

if (NULL == (dirs[i] = strdup(tok)))

texiabort(p, NULL);

Line 1528 main(int argc, char *argv[])

Line 1640 main(int argc, char *argv[])

{

struct texi texi;

int c;

char *path, *dir;

char *dirpath, *dir, *ccp;

const char *progname, *Idir, *cp;

progname = strrchr(argv[0], '/');

Line 1538 main(int argc, char *argv[])

Line 1650 main(int argc, char *argv[])

++progname;

memset(&texi, 0, sizeof(struct texi));

texi.ign = 1;

Idir = NULL;

while (-1 != (c = getopt(argc, argv, "I:")))

Line 1550 main(int argc, char *argv[])

Line 1663 main(int argc, char *argv[])

}

argv += optind;

if (0 == (argc -= optind))

argc -= optind;

goto usage;

if (NULL == (path = strdup(argv[0])))

if (argc > 0) {

texiabort(&texi, NULL);

if (NULL == (dirpath = strdup(argv[0])))

else if (NULL == (dir = dirname(path)))

texiabort(&texi, NULL);

if (NULL == (dir = dirname(dirpath)))

texiabort(&texi, NULL);

if (NULL != (cp = strrchr(argv[0], '/')))

texi.title = strdup(cp + 1);

else

texi.title = strdup(argv[0]);

if (NULL == texi.title)

texiabort(&texi, NULL);

else if (NULL != (ccp = strchr(texi.title, '.')))

*ccp = '\0';

texi.dirs = parsedirs(&texi, dir, Idir, &texi.dirsz);

free(dirpath);

parsefile(&texi, argv[0], 1);

} else {

texi.title = strdup("Unknown Manual");

texi.dirs = parsedirs(&texi, NULL, Idir, &texi.dirsz);

parsestdin(&texi);

}

free(path);

if (NULL != (cp = strrchr(argv[0], '/')))

texi.title = strdup(cp + 1);

else

texi.title = strdup(argv[0]);

if (NULL == texi.title)

texiabort(&texi, NULL);

else if (NULL != (path = strchr(texi.title, '.')))

*path = '\0';

texi.ign = 1;

texi.dirs = parsedirs(&texi, dir, Idir, &texi.dirsz);

parsefile(&texi, argv[0], 1);

/* We shouldn't get here. */

texiexit(&texi);

return(EXIT_FAILURE);

usage:

fprintf(stderr, "usage: %s [-Idirs] file\n", progname);

fprintf(stderr, "usage: %s [-Idirs] [file]\n", progname);

return(EXIT_FAILURE);

}

CVSweb