===================================================================
RCS file: /cvs/texi2mdoc/main.c,v
retrieving revision 1.26
retrieving revision 1.31
diff -u -p -r1.26 -r1.31
--- texi2mdoc/main.c	2015/02/20 15:37:33	1.26
+++ texi2mdoc/main.c	2015/02/23 11:56:39	1.31
@@ -1,4 +1,4 @@
-/*	$Id: main.c,v 1.26 2015/02/20 15:37:33 kristaps Exp $ */
+/*	$Id: main.c,v 1.31 2015/02/23 11:56:39 kristaps Exp $ */
 /*
  * Copyright (c) 2015 Kristaps Dzonsons <kristaps@bsd.lv>
  *
@@ -44,6 +44,7 @@ static	void doaccent(struct texi *, enum texicmd, cons
 static	void doblock(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void dobracket(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void dobye(struct texi *, enum texicmd, const char *, size_t, size_t *);
+static	void dodefindex(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void dodefn(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void dodisplay(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void doenumerate(struct texi *, enum texicmd, const char *, size_t, size_t *);
@@ -57,6 +58,7 @@ static	void doinclude(struct texi *, enum texicmd, con
 static	void doitem(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void doitemize(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void dolink(struct texi *, enum texicmd, const char *, size_t, size_t *);
+static	void domacro(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void domath(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void domultitable(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static	void doquotation(struct texi *, enum texicmd, const char *, size_t, size_t *);
@@ -107,8 +109,10 @@ static	const struct texitok __texitoks[TEXICMD__MAX] =
 	{ doignline, "contents", 8 }, /* TEXICMD_CONTENTS */
 	{ doignblock, "copying", 7 }, /* TEXICMD_COPYING */
 	{ dosymbol, "copyright", 9 }, /* TEXICMD_COPYRIGHT */
+	{ dodefindex, "defcodeindex", 12 }, /* TEXICMD_DEFCODEINDEX */
 	{ dodefn, "deffn", 5 }, /* TEXICMD_DEFFN */
 	{ dodefn, "deffnx", 6 }, /* TEXICMD_DEFFNX */
+	{ dodefindex, "defindex", 8 }, /* TEXICMD_DEFINDEX */
 	{ dodefn, "defmac", 6 }, /* TEXICMD_DEFMAC */
 	{ dodefn, "defmacx", 7 }, /* TEXICMD_DEFMACX */
 	{ dodefn, "deftp", 5 }, /* TEXICMD_DEFTP */
@@ -132,12 +136,14 @@ static	const struct texitok __texitoks[TEXICMD__MAX] =
 	{ doignline, "dircategory", 11 }, /* TEXICMD_DIRCATEGORY */
 	{ doignblock, "direntry", 8 }, /* TEXICMD_DIRENTRY */
 	{ dodisplay, "display", 7 }, /* TEXICMD_DISPLAY */
+	{ doignbracket, "dmn", 3 }, /* TEXICMD_DMN */
 	{ dosymbol, "dots", 4 }, /* TEXICMD_DOTS */
 	{ dolink, "email", 5 }, /* TEXICMD_EMAIL */
 	{ doinline, "emph", 4 }, /* TEXICMD_EMPH */
 	{ NULL, "end", 3 }, /* TEXICMD_END */
 	{ doenumerate, "enumerate", 9 }, /* TEXICMD_ENUMERATE */
 	{ doinline, "env", 3 }, /* TEXICMD_ENV */
+	{ dosymbol, "equiv", 5 }, /* TEXICMD_EQUIV */
 	{ dosymbol, "error", 5 }, /* TEXICMD_ERROR */
 	{ doexample, "example", 7 }, /* TEXICMD_EXAMPLE */
 	{ doignline, "exdent", 6 }, /* TEXICMD_EXDENT */
@@ -167,12 +173,13 @@ static	const struct texitok __texitoks[TEXICMD__MAX] =
 	{ doblock, "ifnotxml", 8 }, /* TEXICMD_IFNOTXML */
 	{ doblock, "ifplaintext", 11 }, /* TEXICMD_IFPLAINTEXT */
 	{ doignblock, "iftex", 5 }, /* TEXICMD_IFTEX */
-	{ doignblock, "ifset", 5 }, /* TEXICMD_IFSET */
+	{ dovalue, "ifset", 5 }, /* TEXICMD_IFSET */
 	{ doignblock, "ifxml", 5 }, /* TEXICMD_IFXML */
 	{ doignblock, "ignore", 6 }, /* TEXICMD_IGNORE */
 	{ doignbracket, "image", 5 }, /* TEXICMD_IMAGE */
 	{ doinclude, "include", 7 }, /* TEXICMD_INCLUDE */
 	{ dodisplay, "indentblock", 11 }, /* TEXICMD_INDENTBLOCK */
+	{ doignline, "", 0 }, /* TEXICMD_USER_INDEX */
 	{ doignline, "insertcopying", 13 }, /* TEXICMD_INSERTCOPYING */
 	{ doitem, "item", 4 }, /* TEXICMD_ITEM */
 	{ doitemize, "itemize", 7 }, /* TEXICMD_ITEMIZE */
@@ -182,6 +189,7 @@ static	const struct texitok __texitoks[TEXICMD__MAX] =
 	{ doignline, "kindex", 6 }, /* TEXICMD_KINDEX */
 	{ dosymbol, "LaTeX", 5 }, /* TEXICMD_LATEX */
 	{ dosecoffs, "lowersections", 13 }, /* TEXICMD_LOWERSECTIONS */
+	{ domacro, "macro", 5 }, /* TEXICMD_MACRO */
 	{ domath, "math", 4 }, /* TEXICMD_MATH */
 	{ doignblock, "menu", 4 }, /* TEXICMD_MENU */
 	{ dosymbol, "minus", 5 }, /* TEXICMD_MINUS */
@@ -197,10 +205,12 @@ static	const struct texitok __texitoks[TEXICMD__MAX] =
 	{ doignline, "page", 4 }, /* TEXICMD_PAGE */
 	{ doignline, "paragraphindent", 15 }, /* TEXICMD_PARINDENT */
 	{ dosymbol, ".", 1 }, /* TEXICMD_PERIOD */
+	{ doignline, "pindex", 6 }, /* TEXICMD_PINDEX */
 	{ doignline, "printindex", 10 }, /* TEXICMD_PRINTINDEX */
 	{ doinline, "r", 1 }, /* TEXICMD_R */
 	{ dosecoffs, "raisesections", 13 }, /* TEXICMD_RAISESECTIONS */
 	{ dobracket, "ref", 3 }, /* TEXICMD_REF */
+	{ doignline, "refill", 6 }, /* TEXICMD_REFILL */
 	{ dosymbol, "result", 6 }, /* TEXICMD_RESULT */
 	{ doinline, "samp", 4 }, /* TEXICMD_SAMP */
 	{ doinline, "sansserif", 9 }, /* TEXICMD_SANSSERIF */
@@ -224,9 +234,11 @@ static	const struct texitok __texitoks[TEXICMD__MAX] =
 	{ doinline, "strong", 6 }, /* TEXICMD_STRONG */
 	{ dosubsection, "subheading", 10 }, /* TEXICMD_SUBHEADING */
 	{ dosubsection, "subsection", 10 }, /* TEXICMD_SUBSECTION */
+	{ dosubsubsection, "subsubheading", 13 }, /* TEXICMD_SUBSUBHEADING */
 	{ dosubsubsection, "subsubsection", 13 }, /* TEXICMD_SUBSUBSECTION */
 	{ doignline, "subtitle", 8 }, /* TEXICMD_SUBTITLE */
 	{ doignline, "summarycontents", 15 }, /* TEXICMD_SUMMARYCONTENTS */
+	{ doignline, "synindex", 8 }, /* TEXICMD_SYNINDEX */
 	{ doignline, "syncodeindex", 12 }, /* TEXICMD_SYNCODEINDEX */
 	{ doinline, "t", 1 }, /* TEXICMD_T */
 	{ dotab, "tab", 3 }, /* TEXICMD_TAB */
@@ -262,6 +274,37 @@ static	const struct texitok __texitoks[TEXICMD__MAX] =
 const	struct texitok *const texitoks = __texitoks;
 
 static void
+dodefindex(struct texi *p, enum texicmd cmd, 
+	const char *buf, size_t sz, size_t *pos)
+{
+	size_t	 start, end;
+	char	*cp;
+
+	while (*pos < sz && isws(buf[*pos]))
+		advance(p, buf, pos);
+
+	start = end = *pos;
+	while (end < sz && ! ismspace(buf[end]))
+		end++;
+
+	if (start == end) {
+		advanceeoln(p, buf, sz, pos, 1);
+		return;
+	} else if (NULL == (cp = malloc(end - start + 1)))
+		texiabort(p, NULL);
+
+	memcpy(cp, &buf[start], end - start);
+	cp[end - start] = '\0';
+
+	p->indexs = realloc(p->indexs, 
+		sizeof(char *) * (p->indexsz + 1));
+
+	if (NULL == p->indexs)
+		texiabort(p, NULL);
+	p->indexs[p->indexsz++] = cp;
+}
+
+static void
 dodefn(struct texi *p, enum texicmd cmd, 
 	const char *buf, size_t sz, size_t *pos)
 {
@@ -385,6 +428,65 @@ dodefn(struct texi *p, enum texicmd cmd, 
 }
 
 static void
+domacro(struct texi *p, enum texicmd cmd, 
+	const char *buf, size_t sz, size_t *pos)
+{
+	size_t		  start, end, endtoksz, len;
+	struct teximacro  m;
+	const char	 *endtok, *blk;
+
+	memset(&m, 0, sizeof(struct teximacro));
+
+	while (*pos < sz && isws(buf[*pos]))
+		advance(p, buf, pos);
+
+	for (start = end = *pos; end < sz; end++)
+		if (ismspace(buf[end]) || '{' == buf[end])
+			break;
+
+	if (start == end)
+		texierr(p, "zero-length macro name");
+
+	advanceto(p, buf, pos, end);
+
+	m.key = malloc(end - start + 1);
+	if (NULL == m.key)
+		texiabort(p, NULL);
+	memcpy(m.key, &buf[start], end - start);
+	m.key[end - start] = '\0';
+
+	m.args = argparse(p, buf, sz, pos, &m.argsz, 0);
+	advanceeoln(p, buf, sz, pos, 0);
+
+	start = *pos;
+	endtok = "\n@end macro\n";
+	endtoksz = strlen(endtok);
+	blk = memmem(&buf[start], sz, endtok, endtoksz);
+	if (NULL == blk)
+		texierr(p, "unterminated macro body");
+	while (&buf[*pos] != blk)
+		advance(p, buf, pos);
+	assert('\n' == buf[*pos]);
+	advance(p, buf, pos);
+	len = blk - &buf[start];
+	m.value = malloc(len + 1);
+	if (NULL == m.value)
+		texiabort(p, NULL);
+	memcpy(m.value, &buf[start], len);
+	m.value[len] = '\0';
+
+	p->macros = realloc
+		(p->macros,
+		(p->macrosz + 1) * 
+		sizeof(struct teximacro));
+	if (NULL == p->macros)
+		texiabort(p, NULL);
+
+	p->macros[p->macrosz++] = m;
+	advanceeoln(p, buf, sz, pos, 1);
+}
+
+static void
 doignblock(struct texi *p, enum texicmd cmd, 
 	const char *buf, size_t sz, size_t *pos)
 {
@@ -543,7 +645,7 @@ doverbinclude(struct texi *p, enum texicmd cmd, 
 			advance(p, buf, pos);
 			continue;
 		}
-		type = texicmd(p, buf, *pos, sz, &end);
+		type = texicmd(p, buf, *pos, sz, &end, NULL);
 		advanceto(p, buf, pos, end);
 		if (TEXICMD_VALUE != type) 
 			texierr(p, "unknown verbatiminclude command");
@@ -602,7 +704,7 @@ doinclude(struct texi *p, enum texicmd cmd, 
 			advance(p, buf, pos);
 			continue;
 		}
-		type = texicmd(p, buf, *pos, sz, &end);
+		type = texicmd(p, buf, *pos, sz, &end, NULL);
 		advanceto(p, buf, pos, end);
 		if (TEXICMD_VALUE != type) 
 			texierr(p, "unknown include command");
@@ -713,6 +815,8 @@ dotitle(struct texi *p, enum texicmd cmd, 
 	advanceeoln(p, buf, sz, pos, 1);
 	free(p->subtitle);
 	p->subtitle = malloc(end - start + 1);
+	if (NULL == p->subtitle)
+		texiabort(p, NULL);
 	memcpy(p->subtitle, &buf[start], end - start);
 	p->subtitle[end - start] = '\0';
 }
@@ -832,6 +936,9 @@ dosymbol(struct texi *p, enum texicmd cmd, 
 	case (TEXICMD_DOTS):
 		texiputchars(p, "...");
 		break;
+	case (TEXICMD_EQUIV):
+		texiputchars(p, "\\(==");
+		break;
 	case (TEXICMD_ERROR):
 		texiputchars(p, "error\\(->");
 		break;
@@ -866,7 +973,6 @@ dosymbol(struct texi *p, enum texicmd cmd, 
 	case (TEXICMD_HYPHEN):
 		break;
 	default:
-		texiwarn(p, "sym: %d", cmd);
 		abort();
 	}
 
@@ -923,7 +1029,7 @@ static void
 dovalue(struct texi *p, enum texicmd cmd, 
 	const char *buf, size_t sz, size_t *pos)
 {
-	size_t		 start, end;
+	size_t		 start, end, i;
 	char		*key, *val;
 	const char	*cp;
 
@@ -939,10 +1045,8 @@ dovalue(struct texi *p, enum texicmd cmd, 
 		advanceto(p, buf, pos, end);
 
 		key = malloc(end - start + 1);
-		if (NULL == key) {
-			perror(NULL);
-			exit(EXIT_FAILURE);
-		}
+		if (NULL == key)
+			texiabort(p, NULL);
 		memcpy(key, &buf[start], end - start);
 		key[end - start] = '\0';
 
@@ -955,10 +1059,8 @@ dovalue(struct texi *p, enum texicmd cmd, 
 		advanceeoln(p, buf, sz, pos, 1);
 
 		val = malloc(end - start + 1);
-		if (NULL == val) {
-			perror(NULL);
-			exit(EXIT_FAILURE);
-		}
+		if (NULL == val)
+			texiabort(p, NULL);
 		memcpy(val, &buf[start], end - start);
 		val[end - start] = '\0';
 		valueadd(p, key, val);
@@ -966,15 +1068,29 @@ dovalue(struct texi *p, enum texicmd cmd, 
 		if (p->seenws)
 			texiputchar(p, ' ');
 		p->seenws = 0;
-		if (NULL == (cp = valueblookup(p, buf, sz, pos)))
+		if (NULL != (cp = valueblookup(p, buf, sz, pos))) {
+			for (i = 0; i < p->valstackpos; i++)
+				if (cp == p->valstack[i])
+					break;
+			if (i < p->valstackpos)
+				texierr(p, "recursive value");
+			if (64 == p->valstackpos) 
+				texierr(p, "too many nested values");
+			p->valstack[p->valstackpos++] = cp;
+			parsemembuf(p, cp, strlen(cp));
+			p->valstackpos--;
+		} else
 			texiputchars(p, "{No value}");
-		else 
-			texiputchars(p, cp);
 	} else if (TEXICMD_IFCLEAR == cmd) {
 		if (NULL != valuellookup(p, buf, sz, pos))
 			doignblock(p, cmd, buf, sz, pos);
 		else
 			parseto(p, buf, sz, pos, texitoks[cmd].tok);
+	} else if (TEXICMD_IFSET == cmd) {
+		if (NULL == valuellookup(p, buf, sz, pos))
+			doignblock(p, cmd, buf, sz, pos);
+		else
+			parseto(p, buf, sz, pos, texitoks[cmd].tok);
 	} else if (TEXICMD_CLEAR == cmd)
 		valuelclear(p, buf, sz, pos);
 }
@@ -1255,7 +1371,7 @@ domultitable(struct texi *p, enum texicmd cmd, 
 		 * arguments to set the number of columns that we'll
 		 * have.
 		 */
-		type = texicmd(p, buf, *pos, sz, &end);
+		type = texicmd(p, buf, *pos, sz, &end, NULL);
 		advanceto(p, buf, pos, end);
 		if (TEXICMD_COLUMNFRACTIONS != type) 
 			texierr(p, "unknown multitable command");
@@ -1368,7 +1484,7 @@ doignline(struct texi *p, enum texicmd cmd, 
  * This does NOT sanitise the directories!
  */
 static char **
-parsedirs(const char *base, const char *cp, size_t *sz)
+parsedirs(struct texi *p, const char *base, const char *cp, size_t *sz)
 {
 	char	   	 *tok, *str, *tofree;
 	const char 	 *cpp;
@@ -1380,28 +1496,20 @@ parsedirs(const char *base, const char *cp, size_t *sz
 		for ( ; NULL != (cpp = strchr(cpp, ':')); (*sz)++)
 			cpp++;
 
-	dirs = calloc(*sz, sizeof(char *));
-	if (NULL == dirs) {
-		perror(NULL);
-		exit(EXIT_FAILURE);
-	} else if (NULL == (dirs[0] = strdup(base))) {
-		perror(NULL);
-		exit(EXIT_FAILURE);
-	} 
+	if (NULL == (dirs = calloc(*sz, sizeof(char *))))
+		texiabort(p, NULL);
+	else if (NULL == (dirs[0] = strdup(base))) 
+		texiabort(p, NULL);
 
 	if (NULL == cp)
 		return(dirs);
 	
-	if (NULL == (tofree = tok = str = strdup(cp))) {
-		perror(NULL);
-		exit(EXIT_FAILURE);
-	}
+	if (NULL == (tofree = tok = str = strdup(cp)))
+		texiabort(p, NULL);
 
 	for (i = 1; NULL != (tok = strsep(&str, ":")); i++) 
-		if (NULL == (dirs[i] = strdup(tok))) {
-			perror(NULL);
-			exit(EXIT_FAILURE);
-		}
+		if (NULL == (dirs[i] = strdup(tok))) 
+			texiabort(p, NULL);
 
 	free(tofree);
 	return(dirs);
@@ -1437,14 +1545,11 @@ main(int argc, char *argv[])
 	if (0 == (argc -= optind))
 		goto usage;
 
-	if (NULL == (path = strdup(argv[0]))) {
-		perror(NULL);
-		exit(EXIT_FAILURE);
-	} else if (NULL == (dir = dirname(path))) {
-		perror(argv[0]);
-		free(path);
-		exit(EXIT_FAILURE);
-	}
+	if (NULL == (path = strdup(argv[0])))
+		texiabort(&texi, NULL);
+	else if (NULL == (dir = dirname(path)))
+		texiabort(&texi, NULL);
+
 	free(path);
 
 	if (NULL != (cp = strrchr(argv[0], '/'))) 
@@ -1452,14 +1557,13 @@ main(int argc, char *argv[])
 	else
 		texi.title = strdup(argv[0]);
 
-	if (NULL == texi.title) {
-		perror(NULL);
-		exit(EXIT_FAILURE);
-	} else if (NULL != (path = strchr(texi.title, '.')))
+	if (NULL == texi.title)
+		texiabort(&texi, NULL);
+	else if (NULL != (path = strchr(texi.title, '.')))
 		*path = '\0';
 
 	texi.ign = 1;
-	texi.dirs = parsedirs(dir, Idir, &texi.dirsz);
+	texi.dirs = parsedirs(&texi, dir, Idir, &texi.dirsz);
 	parsefile(&texi, argv[0], 1);
 	/* We shouldn't get here. */
 	texiexit(&texi);