[BACK]Return to main.c CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / texi2mdoc

Diff for /texi2mdoc/main.c between version 1.24 and 1.41

version 1.24, 2015/02/20 09:58:50 version 1.41, 2015/02/24 14:35:40
Line 14 
Line 14 
  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF   * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.   * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  */   */
 #include <sys/mman.h>  #if defined(__linux__) || defined(__MINT__)
 #include <sys/stat.h>  # define _GNU_SOURCE /* memmem */
   #endif
 #include <assert.h>  #include <assert.h>
 #include <ctype.h>  #include <ctype.h>
 #include <fcntl.h>  
 #include <getopt.h>  #include <getopt.h>
 #include <libgen.h>  #include <libgen.h>
 #include <limits.h>  #include <limits.h>
Line 28 
Line 27 
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
 #include <time.h>  #include <time.h>
 #include <unistd.h>  
   
 #include "extern.h"  #include "extern.h"
   
Line 44  static void doaccent(struct texi *, enum texicmd, cons
Line 42  static void doaccent(struct texi *, enum texicmd, cons
 static  void doblock(struct texi *, enum texicmd, const char *, size_t, size_t *);  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 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 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 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 dodisplay(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void doenumerate(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void doenumerate(struct texi *, enum texicmd, const char *, size_t, size_t *);
Line 57  static void doinclude(struct texi *, enum texicmd, con
Line 56  static void doinclude(struct texi *, enum texicmd, con
 static  void doitem(struct texi *, enum texicmd, const char *, size_t, size_t *);  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 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 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 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 domultitable(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void doquotation(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void doquotation(struct texi *, enum texicmd, const char *, size_t, size_t *);
Line 71  static void dosymbol(struct texi *, enum texicmd, cons
Line 71  static void dosymbol(struct texi *, enum texicmd, cons
 static  void dotab(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void dotab(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void dotitle(struct texi *, enum texicmd, const char *, size_t, size_t *);  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 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  void doverbinclude(struct texi *, enum texicmd, const char *, size_t, size_t *);
   
 static  const struct texitok __texitoks[TEXICMD__MAX] = {  static  const struct texitok __texitoks[TEXICMD__MAX] = {
Line 83  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 85  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dosection, "appendixsec", 11 }, /* TEXICMD_APPENDIXSEC */          { dosection, "appendixsec", 11 }, /* TEXICMD_APPENDIXSEC */
         { dosubsection, "appendixsubsec", 14 }, /* TEXICMD_APPENDIXSUBSEC */          { dosubsection, "appendixsubsec", 14 }, /* TEXICMD_APPENDIXSUBSEC */
         { dosubsubsection, "appendixsubsubsec", 17 }, /* TEXICMD_APPENDIXSUBSUBSEC */          { dosubsubsection, "appendixsubsubsec", 17 }, /* TEXICMD_APPENDIXSUBSUBSEC */
           { doinline, "asis", 4 }, /* TEXICMD_ASIS */
         { dosymbol, "*", 1 }, /* TEXICMD_ASTERISK */          { dosymbol, "*", 1 }, /* TEXICMD_ASTERISK */
         { dosymbol, "@", 1 }, /* TEXICMD_AT */          { dosymbol, "@", 1 }, /* TEXICMD_AT */
         { doignline, "author", 6 }, /* TEXICMD_AUTHOR */          { doignline, "author", 6 }, /* TEXICMD_AUTHOR */
Line 90  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 93  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dosymbol, "!", 1 }, /* TEXICMD_BANG */          { dosymbol, "!", 1 }, /* TEXICMD_BANG */
         { dosymbol, "bullet", 6 }, /* TEXICMD_BULLET */          { dosymbol, "bullet", 6 }, /* TEXICMD_BULLET */
         { dobye, "bye", 3 }, /* TEXICMD_BYE */          { dobye, "bye", 3 }, /* TEXICMD_BYE */
           { doblock, "cartouche", 9 }, /* TEXICMD_CARTOUCHE */
           { doaccent, ",", 1 }, /* TEXICMD_CEDILLA */
         { doignline, "center", 6 }, /* TEXICMD_CENTER */          { doignline, "center", 6 }, /* TEXICMD_CENTER */
         { dosection, "chapter", 7 }, /* TEXICMD_CHAPTER */          { dosection, "chapter", 7 }, /* TEXICMD_CHAPTER */
         { doignline, "cindex", 6 }, /* TEXICMD_CINDEX */          { doignline, "cindex", 6 }, /* TEXICMD_CINDEX */
Line 99  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 104  static const struct texitok __texitoks[TEXICMD__MAX] =
         { doinline, "code", 4 }, /* TEXICMD_CODE */          { doinline, "code", 4 }, /* TEXICMD_CODE */
         { dosymbol, ":", 1 }, /* TEXICMD_COLON */          { dosymbol, ":", 1 }, /* TEXICMD_COLON */
         { NULL, "columnfractions", 15 }, /* TEXICMD_COLUMNFRACTIONS */          { NULL, "columnfractions", 15 }, /* TEXICMD_COLUMNFRACTIONS */
           { dosymbol, "comma", 5 }, /* TEXICMD_COMMA */
         { doinline, "command", 7 }, /* TEXICMD_COMMAND */          { doinline, "command", 7 }, /* TEXICMD_COMMAND */
         { doignline, "c", 1 }, /* TEXICMD_COMMENT */          { doignline, "c", 1 }, /* TEXICMD_COMMENT */
         { doignline, "comment", 7 }, /* TEXICMD_COMMENT_LONG */          { doignline, "comment", 7 }, /* TEXICMD_COMMENT_LONG */
         { doignline, "contents", 8 }, /* TEXICMD_CONTENTS */          { doignline, "contents", 8 }, /* TEXICMD_CONTENTS */
         { doignblock, "copying", 7 }, /* TEXICMD_COPYING */          { doignblock, "copying", 7 }, /* TEXICMD_COPYING */
         { dosymbol, "copyright", 9 }, /* TEXICMD_COPYRIGHT */          { dosymbol, "copyright", 9 }, /* TEXICMD_COPYRIGHT */
           { dodefindex, "defcodeindex", 12 }, /* TEXICMD_DEFCODEINDEX */
         { dodefn, "deffn", 5 }, /* TEXICMD_DEFFN */          { dodefn, "deffn", 5 }, /* TEXICMD_DEFFN */
         { dodefn, "deffnx", 6 }, /* TEXICMD_DEFFNX */          { dodefn, "deffnx", 6 }, /* TEXICMD_DEFFNX */
           { dodefindex, "defindex", 8 }, /* TEXICMD_DEFINDEX */
         { dodefn, "defmac", 6 }, /* TEXICMD_DEFMAC */          { dodefn, "defmac", 6 }, /* TEXICMD_DEFMAC */
         { dodefn, "defmacx", 7 }, /* TEXICMD_DEFMACX */          { dodefn, "defmacx", 7 }, /* TEXICMD_DEFMACX */
         { dodefn, "deftp", 5 }, /* TEXICMD_DEFTP */          { dodefn, "deftp", 5 }, /* TEXICMD_DEFTP */
Line 115  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 123  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dodefn, "deftypefnx", 10 }, /* TEXICMD_DEFTYPEFNX */          { dodefn, "deftypefnx", 10 }, /* TEXICMD_DEFTYPEFNX */
         { dodefn, "deftypefun", 10 }, /* TEXICMD_DEFTYPEFUN */          { dodefn, "deftypefun", 10 }, /* TEXICMD_DEFTYPEFUN */
         { dodefn, "deftypefunx", 11 }, /* TEXICMD_DEFTYPEFUNX */          { dodefn, "deftypefunx", 11 }, /* TEXICMD_DEFTYPEFUNX */
           { dodefn, "deftypemethod", 13 }, /* TEXICMD_DEFTYPEMETHOD */
           { dodefn, "deftypemethodx", 14 }, /* TEXICMD_DEFTYPEMETHODX */
         { dodefn, "deftypevar", 10 }, /* TEXICMD_DEFTYPEVAR */          { dodefn, "deftypevar", 10 }, /* TEXICMD_DEFTYPEVAR */
         { dodefn, "deftypevarx", 11 }, /* TEXICMD_DEFTYPEVARX */          { dodefn, "deftypevarx", 11 }, /* TEXICMD_DEFTYPEVARX */
         { dodefn, "deftypevr", 9 }, /* TEXICMD_DEFTYPEVR */          { dodefn, "deftypevr", 9 }, /* TEXICMD_DEFTYPEVR */
Line 130  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 140  static const struct texitok __texitoks[TEXICMD__MAX] =
         { doignline, "dircategory", 11 }, /* TEXICMD_DIRCATEGORY */          { doignline, "dircategory", 11 }, /* TEXICMD_DIRCATEGORY */
         { doignblock, "direntry", 8 }, /* TEXICMD_DIRENTRY */          { doignblock, "direntry", 8 }, /* TEXICMD_DIRENTRY */
         { dodisplay, "display", 7 }, /* TEXICMD_DISPLAY */          { 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 */          { dosymbol, "dots", 4 }, /* TEXICMD_DOTS */
         { dolink, "email", 5 }, /* TEXICMD_EMAIL */          { dolink, "email", 5 }, /* TEXICMD_EMAIL */
         { doinline, "emph", 4 }, /* TEXICMD_EMPH */          { doinline, "emph", 4 }, /* TEXICMD_EMPH */
         { NULL, "end", 3 }, /* TEXICMD_END */          { NULL, "end", 3 }, /* TEXICMD_END */
           { dosymbol, "enddots", 7 }, /* TEXICMD_ENDDOTS */
         { doenumerate, "enumerate", 9 }, /* TEXICMD_ENUMERATE */          { doenumerate, "enumerate", 9 }, /* TEXICMD_ENUMERATE */
         { doinline, "env", 3 }, /* TEXICMD_ENV */          { doinline, "env", 3 }, /* TEXICMD_ENV */
           { dosymbol, "equiv", 5 }, /* TEXICMD_EQUIV */
         { dosymbol, "error", 5 }, /* TEXICMD_ERROR */          { dosymbol, "error", 5 }, /* TEXICMD_ERROR */
         { doexample, "example", 7 }, /* TEXICMD_EXAMPLE */          { doexample, "example", 7 }, /* TEXICMD_EXAMPLE */
           { doignline, "exdent", 6 }, /* TEXICMD_EXDENT */
         { dosymbol, "expansion", 9 }, /* TEXICMD_EXPANSION */          { dosymbol, "expansion", 9 }, /* TEXICMD_EXPANSION */
         { doinline, "file", 4 }, /* TEXICMD_FILE */          { doinline, "file", 4 }, /* TEXICMD_FILE */
         { doignline, "finalout", 8 }, /* TEXICMD_FINALOUT */          { doignline, "finalout", 8 }, /* TEXICMD_FINALOUT */
         { doignline, "findex", 6 }, /* TEXICMD_FINDEX */          { doignline, "findex", 6 }, /* TEXICMD_FINDEX */
           { doignbracket, "footnote", 8 }, /* TEXICMD_FOOTNOTE */
         { dotable, "ftable", 6 }, /* TEXICMD_FTABLE */          { dotable, "ftable", 6 }, /* TEXICMD_FTABLE */
         { dodisplay, "format", 6 }, /* TEXICMD_FORMAT */          { dodisplay, "format", 6 }, /* TEXICMD_FORMAT */
         { doaccent, "`", 1 }, /* TEXICMD_GRAVE */          { doaccent, "`", 1 }, /* TEXICMD_GRAVE */
Line 149  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 166  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dosection, "heading", 7 }, /* TEXICMD_HEADING */          { dosection, "heading", 7 }, /* TEXICMD_HEADING */
         { doignline, "headings", 8 }, /* TEXICMD_HEADINGS */          { doignline, "headings", 8 }, /* TEXICMD_HEADINGS */
         { doitem, "headitem", 8 }, /* TEXICMD_HEADITEM */          { doitem, "headitem", 8 }, /* TEXICMD_HEADITEM */
           { doignblock, "html", 4 }, /* TEXICMD_HTML */
         { dosymbol, "-", 1 }, /* TEXICMD_HYPHEN */          { dosymbol, "-", 1 }, /* TEXICMD_HYPHEN */
         { doinline, "i", 1 }, /* TEXICMD_I */          { doinline, "i", 1 }, /* TEXICMD_I */
         { dovalue, "ifclear", 7 }, /* TEXICMD_IFCLEAR */          { dovalue, "ifclear", 7 }, /* TEXICMD_IFCLEAR */
         { doignblock, "ifdocbook", 9 }, /* TEXICMD_IFDOCBOOK */          { doignblock, "ifdocbook", 9 }, /* TEXICMD_IFDOCBOOK */
         { doignblock, "ifhtml", 6 }, /* TEXICMD_IFHTML */          { doignblock, "ifhtml", 6 }, /* TEXICMD_IFHTML */
         { doignblock, "ifinfo", 6 }, /* TEXICMD_IFINFO */          { doblock, "ifinfo", 6 }, /* TEXICMD_IFINFO */
         { doblock, "ifnotdocbook", 12 }, /* TEXICMD_IFNOTDOCBOOK */          { doblock, "ifnotdocbook", 12 }, /* TEXICMD_IFNOTDOCBOOK */
         { doblock, "ifnothtml", 9 }, /* TEXICMD_IFNOTHTML */          { doblock, "ifnothtml", 9 }, /* TEXICMD_IFNOTHTML */
         { doblock, "ifnotinfo", 9 }, /* TEXICMD_IFNOTINFO */          { doblock, "ifnotinfo", 9 }, /* TEXICMD_IFNOTINFO */
Line 163  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 181  static const struct texitok __texitoks[TEXICMD__MAX] =
         { doblock, "ifnotxml", 8 }, /* TEXICMD_IFNOTXML */          { doblock, "ifnotxml", 8 }, /* TEXICMD_IFNOTXML */
         { doblock, "ifplaintext", 11 }, /* TEXICMD_IFPLAINTEXT */          { doblock, "ifplaintext", 11 }, /* TEXICMD_IFPLAINTEXT */
         { doignblock, "iftex", 5 }, /* TEXICMD_IFTEX */          { doignblock, "iftex", 5 }, /* TEXICMD_IFTEX */
         { doignblock, "ifset", 5 }, /* TEXICMD_IFSET */          { dovalue, "ifset", 5 }, /* TEXICMD_IFSET */
         { doignblock, "ifxml", 5 }, /* TEXICMD_IFXML */          { doignblock, "ifxml", 5 }, /* TEXICMD_IFXML */
         { doignblock, "ignore", 6 }, /* TEXICMD_IGNORE */          { doignblock, "ignore", 6 }, /* TEXICMD_IGNORE */
         { doignbracket, "image", 5 }, /* TEXICMD_IMAGE */          { doignbracket, "image", 5 }, /* TEXICMD_IMAGE */
         { doinclude, "include", 7 }, /* TEXICMD_INCLUDE */          { doinclude, "include", 7 }, /* TEXICMD_INCLUDE */
         { dodisplay, "indentblock", 11 }, /* TEXICMD_INDENTBLOCK */          { dodisplay, "indentblock", 11 }, /* TEXICMD_INDENTBLOCK */
           { dolink, "inforef", 7 }, /* TEXICMD_INDENTBLOCK */
         { doignline, "insertcopying", 13 }, /* TEXICMD_INSERTCOPYING */          { doignline, "insertcopying", 13 }, /* TEXICMD_INSERTCOPYING */
         { doitem, "item", 4 }, /* TEXICMD_ITEM */          { doitem, "item", 4 }, /* TEXICMD_ITEM */
         { doitemize, "itemize", 7 }, /* TEXICMD_ITEMIZE */          { doitemize, "itemize", 7 }, /* TEXICMD_ITEMIZE */
Line 178  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 197  static const struct texitok __texitoks[TEXICMD__MAX] =
         { doignline, "kindex", 6 }, /* TEXICMD_KINDEX */          { doignline, "kindex", 6 }, /* TEXICMD_KINDEX */
         { dosymbol, "LaTeX", 5 }, /* TEXICMD_LATEX */          { dosymbol, "LaTeX", 5 }, /* TEXICMD_LATEX */
         { dosecoffs, "lowersections", 13 }, /* TEXICMD_LOWERSECTIONS */          { dosecoffs, "lowersections", 13 }, /* TEXICMD_LOWERSECTIONS */
           { domacro, "macro", 5 }, /* TEXICMD_MACRO */
         { domath, "math", 4 }, /* TEXICMD_MATH */          { domath, "math", 4 }, /* TEXICMD_MATH */
         { doignblock, "menu", 4 }, /* TEXICMD_MENU */          { doignblock, "menu", 4 }, /* TEXICMD_MENU */
           { dosymbol, "minus", 5 }, /* TEXICMD_MINUS */
         { domultitable, "multitable", 10 }, /* TEXICMD_MULTITABLE */          { domultitable, "multitable", 10 }, /* TEXICMD_MULTITABLE */
         { doignline, "need", 4 }, /* TEXICMD_NEED */          { doignline, "need", 4 }, /* TEXICMD_NEED */
         { dosymbol, "\n", 1 }, /* TEXICMD_NEWLINE */          { dosymbol, "\n", 1 }, /* TEXICMD_NEWLINE */
Line 190  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 211  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dosymbol, "?", 1 }, /* TEXICMD_QUESTIONMARK */          { dosymbol, "?", 1 }, /* TEXICMD_QUESTIONMARK */
         { doquotation, "quotation", 9 }, /* TEXICMD_QUOTATION */          { doquotation, "quotation", 9 }, /* TEXICMD_QUOTATION */
         { doignline, "page", 4 }, /* TEXICMD_PAGE */          { doignline, "page", 4 }, /* TEXICMD_PAGE */
         { doignline, "paragraphindent", 14 }, /* TEXICMD_PARINDENT */          { doignline, "paragraphindent", 15 }, /* TEXICMD_PARINDENT */
           { dosymbol, ".", 1 }, /* TEXICMD_PERIOD */
           { doignline, "pindex", 6 }, /* TEXICMD_PINDEX */
         { doignline, "printindex", 10 }, /* TEXICMD_PRINTINDEX */          { doignline, "printindex", 10 }, /* TEXICMD_PRINTINDEX */
         { doinline, "r", 1 }, /* TEXICMD_R */          { doinline, "r", 1 }, /* TEXICMD_R */
         { dosecoffs, "raisesections", 13 }, /* TEXICMD_RAISESECTIONS */          { dosecoffs, "raisesections", 13 }, /* TEXICMD_RAISESECTIONS */
         { dobracket, "ref", 3 }, /* TEXICMD_REF */          { dobracket, "ref", 3 }, /* TEXICMD_REF */
           { doignline, "refill", 6 }, /* TEXICMD_REFILL */
         { dosymbol, "result", 6 }, /* TEXICMD_RESULT */          { dosymbol, "result", 6 }, /* TEXICMD_RESULT */
         { doinline, "samp", 4 }, /* TEXICMD_SAMP */          { doinline, "samp", 4 }, /* TEXICMD_SAMP */
         { doinline, "sansserif", 9 }, /* TEXICMD_SANSSERIF */          { doinline, "sansserif", 9 }, /* TEXICMD_SANSSERIF */
Line 202  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 226  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dosection, "section", 7 }, /* TEXICMD_SECTION */          { dosection, "section", 7 }, /* TEXICMD_SECTION */
         { dovalue, "set", 3 }, /* TEXICMD_SET */          { dovalue, "set", 3 }, /* TEXICMD_SET */
         { doignline, "setchapternewpage", 17 }, /* TEXICMD_SETCHAPNEWPAGE */          { doignline, "setchapternewpage", 17 }, /* TEXICMD_SETCHAPNEWPAGE */
           { doignline, "setcontentsaftertitlepage", 25 }, /* TEXICMD_SETCONTENTSAFTER */
         { doignline, "setfilename", 11 }, /* TEXICMD_SETFILENAME */          { doignline, "setfilename", 11 }, /* TEXICMD_SETFILENAME */
         { dotitle, "settitle", 8 }, /* TEXICMD_SETTITLE */          { dotitle, "settitle", 8 }, /* TEXICMD_SETTITLE */
           { doignline, "shortcontents", 13 }, /* TEXICMD_SHORTCONTENTS */
         { doinline, "slanted", 7 }, /* TEXICMD_SLANTED */          { doinline, "slanted", 7 }, /* TEXICMD_SLANTED */
           { dosymbol, "/", 1 }, /* TEXICMD_SLASH */
         { dosp, "sp", 2 }, /* TEXICMD_SP */          { dosp, "sp", 2 }, /* TEXICMD_SP */
         { dosymbol, " ", 1 }, /* TEXICMD_SPACE */          { dosymbol, " ", 1 }, /* TEXICMD_SPACE */
         { doignline, "smallbook", 9 }, /* TEXICMD_SMALLBOOK */          { doignline, "smallbook", 9 }, /* TEXICMD_SMALLBOOK */
Line 214  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 241  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dodisplay, "smallindentblock", 16 }, /* TEXICMD_SMALLINDENTBLOCK */          { dodisplay, "smallindentblock", 16 }, /* TEXICMD_SMALLINDENTBLOCK */
         { dosymbol, "{", 1 }, /* TEXICMD_SQUIGGLE_LEFT */          { dosymbol, "{", 1 }, /* TEXICMD_SQUIGGLE_LEFT */
         { dosymbol, "}", 1 }, /* TEXICMD_SQUIGGLE_RIGHT */          { dosymbol, "}", 1 }, /* TEXICMD_SQUIGGLE_RIGHT */
           { dosymbol, "ss", 2 }, /* TEXICMD_SS */
         { doinline, "strong", 6 }, /* TEXICMD_STRONG */          { doinline, "strong", 6 }, /* TEXICMD_STRONG */
         { dosubsection, "subheading", 10 }, /* TEXICMD_SUBHEADING */          { dosubsection, "subheading", 10 }, /* TEXICMD_SUBHEADING */
         { dosubsection, "subsection", 10 }, /* TEXICMD_SUBSECTION */          { dosubsection, "subsection", 10 }, /* TEXICMD_SUBSECTION */
           { dosubsubsection, "subsubheading", 13 }, /* TEXICMD_SUBSUBHEADING */
         { dosubsubsection, "subsubsection", 13 }, /* TEXICMD_SUBSUBSECTION */          { dosubsubsection, "subsubsection", 13 }, /* TEXICMD_SUBSUBSECTION */
         { doignline, "subtitle", 8 }, /* TEXICMD_SUBTITLE */          { doignline, "subtitle", 8 }, /* TEXICMD_SUBTITLE */
           { doignline, "summarycontents", 15 }, /* TEXICMD_SUMMARYCONTENTS */
           { doignline, "synindex", 8 }, /* TEXICMD_SYNINDEX */
         { doignline, "syncodeindex", 12 }, /* TEXICMD_SYNCODEINDEX */          { doignline, "syncodeindex", 12 }, /* TEXICMD_SYNCODEINDEX */
         { doinline, "t", 1 }, /* TEXICMD_T */          { doinline, "t", 1 }, /* TEXICMD_T */
         { dotab, "tab", 3 }, /* TEXICMD_TAB */          { dotab, "tab", 3 }, /* TEXICMD_TAB */
Line 226  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 257  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dotable, "table", 5 }, /* TEXICMD_TABLE */          { dotable, "table", 5 }, /* TEXICMD_TABLE */
         { doignblock, "tex", 3 }, /* TEXICMD_TEX */          { doignblock, "tex", 3 }, /* TEXICMD_TEX */
         { dosymbol, "TeX", 3 }, /* TEXICMD_TEXSYM */          { dosymbol, "TeX", 3 }, /* TEXICMD_TEXSYM */
           { dosymbol, "tie", 3 }, /* TEXICMD_TIE */
         { doaccent, "~", 1 }, /* TEXICMD_TILDE */          { doaccent, "~", 1 }, /* TEXICMD_TILDE */
           { doignline, "tindex", 6 }, /* TEXICMD_TINDEX */
         { doignline, "title", 5 }, /* TEXICMD_TITLE */          { doignline, "title", 5 }, /* TEXICMD_TITLE */
         { dobracket, "titlefont", 9 }, /* TEXICMD_TITLEFONT */          { dobracket, "titlefont", 9 }, /* TEXICMD_TITLEFONT */
         { doignblock, "titlepage", 9 }, /* TEXICMD_TITLEPAGE */          { doignblock, "titlepage", 9 }, /* TEXICMD_TITLEPAGE */
Line 238  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 271  static const struct texitok __texitoks[TEXICMD__MAX] =
         { dosubsubsection, "unnumberedsubsubsec", 19 }, /* TEXICMD_UNNUMBEREDSUBSUBSEC */          { dosubsubsection, "unnumberedsubsubsec", 19 }, /* TEXICMD_UNNUMBEREDSUBSUBSEC */
         { dolink, "uref", 4 }, /* TEXICMD_UREF */          { dolink, "uref", 4 }, /* TEXICMD_UREF */
         { dolink, "url", 3 }, /* TEXICMD_URL */          { dolink, "url", 3 }, /* TEXICMD_URL */
           { doignline, "", 0 }, /* TEXICMD_USER_INDEX */
         { dovalue, "value", 5 }, /* TEXICMD_VALUE */          { dovalue, "value", 5 }, /* TEXICMD_VALUE */
         { doinline, "var", 3 }, /* TEXICMD_VAR */          { doinline, "var", 3 }, /* TEXICMD_VAR */
           { doverb, "verb", 4 }, /* TEXICMD_VERB */
           { doverbatim, "verbatim", 8 }, /* TEXICMD_VERBATIM */
         { doverbinclude, "verbatiminclude", 15 }, /* TEXICMD_VERBATIMINCLUDE */          { doverbinclude, "verbatiminclude", 15 }, /* TEXICMD_VERBATIMINCLUDE */
         { doignline, "vindex", 6 }, /* TEXICMD_VINDEX */          { doignline, "vindex", 6 }, /* TEXICMD_VINDEX */
         { dosp, "vskip", 5 }, /* TEXICMD_VSKIP */          { dosp, "vskip", 5 }, /* TEXICMD_VSKIP */
Line 251  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 287  static const struct texitok __texitoks[TEXICMD__MAX] =
   
 const   struct texitok *const texitoks = __texitoks;  const   struct texitok *const texitoks = __texitoks;
   
 static char *  static void
 lineargdup(struct texi *p, const char *buf, size_t sz, size_t *pos)  dodefindex(struct texi *p, enum texicmd cmd,
           const char *buf, size_t sz, size_t *pos)
 {  {
         char    *key;  
         size_t   start, end;          size_t   start, end;
           char    *cp;
   
         while (*pos < sz && isws(buf[*pos]))          while (*pos < sz && isws(buf[*pos]))
                 advance(p, buf, pos);                  advance(p, buf, pos);
         if (*pos == sz)  
                 return(NULL);          start = end = *pos;
         for (start = end = *pos; end < sz; end++)          while (end < sz && ! ismspace(buf[end]))
                 if ('\n' == buf[end])                  end++;
                         break;  
         advanceto(p, buf, pos, end);          if (start == end) {
         if (*pos < sz)                  advanceeoln(p, buf, sz, pos, 1);
                 advance(p, buf, pos);                  return;
         key = malloc(end - start + 1);          } else if (NULL == (cp = malloc(end - start + 1)))
         if (NULL == key) {                  texiabort(p, NULL);
                 perror(NULL);  
                 exit(EXIT_FAILURE);          memcpy(cp, &buf[start], end - start);
         }          cp[end - start] = '\0';
         memcpy(key, &buf[start], end - start);  
         key[end - start] = '\0';          p->indexs = realloc(p->indexs,
         return(key);                  sizeof(char *) * (p->indexsz + 1));
   
           if (NULL == p->indexs)
                   texiabort(p, NULL);
           p->indexs[p->indexsz++] = cp;
 }  }
   
 static void  static void
Line 286  dodefn(struct texi *p, enum texicmd cmd, 
Line 327  dodefn(struct texi *p, enum texicmd cmd, 
         blk = NULL;          blk = NULL;
         switch (cmd) {          switch (cmd) {
         case (TEXICMD_DEFFN):          case (TEXICMD_DEFFN):
           case (TEXICMD_DEFMAC):
         case (TEXICMD_DEFTP):          case (TEXICMD_DEFTP):
         case (TEXICMD_DEFTYPEFN):          case (TEXICMD_DEFTYPEFN):
         case (TEXICMD_DEFTYPEFUN):          case (TEXICMD_DEFTYPEFUN):
           case (TEXICMD_DEFTYPEMETHOD):
         case (TEXICMD_DEFTYPEVAR):          case (TEXICMD_DEFTYPEVAR):
         case (TEXICMD_DEFTYPEVR):          case (TEXICMD_DEFTYPEVR):
         case (TEXICMD_DEFUN):          case (TEXICMD_DEFUN):
Line 311  dodefn(struct texi *p, enum texicmd cmd, 
Line 354  dodefn(struct texi *p, enum texicmd cmd, 
                 texivspace(p);                  texivspace(p);
   
         switch (cmd) {          switch (cmd) {
           case (TEXICMD_DEFTYPEMETHOD):
           case (TEXICMD_DEFTYPEMETHODX):
                   texiputchars(p, "Method");
                   break;
         case (TEXICMD_DEFMAC):          case (TEXICMD_DEFMAC):
         case (TEXICMD_DEFMACX):          case (TEXICMD_DEFMACX):
                 texiputchars(p, "Macro");                  texiputchars(p, "Macro");
Line 359  dodefn(struct texi *p, enum texicmd cmd, 
Line 406  dodefn(struct texi *p, enum texicmd cmd, 
         case (TEXICMD_DEFTYPEFUNX):          case (TEXICMD_DEFTYPEFUNX):
         case (TEXICMD_DEFTYPEFN):          case (TEXICMD_DEFTYPEFN):
         case (TEXICMD_DEFTYPEFNX):          case (TEXICMD_DEFTYPEFNX):
           case (TEXICMD_DEFTYPEMETHOD):
           case (TEXICMD_DEFTYPEMETHODX):
                 teximacroopen(p, "Ft");                  teximacroopen(p, "Ft");
                 parselinearg(p, buf, sz, pos);                  parselinearg(p, buf, sz, pos);
                 teximacroclose(p);                  teximacroclose(p);
Line 401  dodefn(struct texi *p, enum texicmd cmd, 
Line 450  dodefn(struct texi *p, enum texicmd cmd, 
 }  }
   
 static void  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,  doignblock(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
           char             end[32];
         p->ign++;          const char      *term;
         parseto(p, buf, sz, pos, texitoks[cmd].tok);          size_t           endsz, endpos;
         p->ign--;  
           /*
            * We want to completely ignore everything in these blocks, so
            * simply jump to the @end block.
            */
           endsz = snprintf(end, sizeof(end),
                   "\n@end %s\n", texitoks[cmd].tok);
           assert(endsz < sizeof(end));
   
           /*
            * Look up where our end token occurs.
            * Set our end position based on the relative offset of that
            * from our current position, or the EOF if we don't have a
            * proper ending point.
            */
           term = memmem(&buf[*pos], sz, end, endsz);
           endpos = NULL == term ? sz :
                   *pos + (size_t)(term - &buf[*pos]);
           assert(endpos <= sz);
           while (*pos < endpos)
                   advance(p, buf, pos);
   
           /* Only do this if we're not already at the end. */
           if (endpos < sz)
                   advanceto(p, buf, pos, endpos + endsz);
 }  }
   
 static void  static void
Line 461  doinline(struct texi *p, enum texicmd cmd,
Line 593  doinline(struct texi *p, enum texicmd cmd,
                 break;                  break;
         }          }
   
         if (NULL == macro || p->literal) {          if (NULL == macro || p->literal || TEXILIST_TABLE == p->list) {
                 parsebracket(p, buf, sz, pos);                  parsebracket(p, buf, sz, pos);
                 return;                  return;
         }          }
Line 474  doinline(struct texi *p, enum texicmd cmd,
Line 606  doinline(struct texi *p, enum texicmd cmd,
 }  }
   
 static void  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;
   
           advanceeoln(p, buf, sz, pos, 1);
   
           /* We end at exactly this token. */
           end = "\n@end verbatim\n";
           endsz = strlen(end);
   
           /*
            * Look up where our end token occurs.
            * Set our end position based on the relative offset of that
            * from our current position.
            */
           term = memmem(&buf[*pos], sz, end, endsz);
           endpos = NULL == term ? sz :
                   *pos + (size_t)(term - &buf[*pos]);
   
           teximacro(p, "Bd -literal -offset indent");
           assert(endpos <= sz);
           while (*pos < endpos) {
                   texiputchar(p, buf[*pos]);
                   advance(p, buf, pos);
           }
           teximacro(p, "Ed");
           advanceto(p, buf, pos, endpos + endsz);
   }
   
   static void
 doverbinclude(struct texi *p, enum texicmd cmd,  doverbinclude(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
         char     fname[PATH_MAX], path[PATH_MAX];          char             fname[PATH_MAX], path[PATH_MAX];
         int      rc;          int              rc;
         size_t   i;          size_t           i, end;
           const char      *v;
           enum texicmd     type;
   
         while (*pos < sz && ' ' == buf[*pos])          while (*pos < sz && ' ' == buf[*pos])
                 advance(p, buf, pos);                  advance(p, buf, pos);
   
         /* Read in the filename. */          for (i = 0; *pos < sz && '\n' != buf[*pos]; ) {
         for (i = 0; *pos < sz && '\n' != buf[*pos]; i++) {  
                 if (i == sizeof(fname) - 1)                  if (i == sizeof(fname) - 1)
                         break;                          break;
                 fname[i] = buf[*pos];                  if ('@' != buf[*pos]) {
                 advance(p, buf, pos);                          fname[i++] = buf[*pos];
                           advance(p, buf, pos);
                           continue;
                   }
                   type = texicmd(p, buf, *pos, sz, &end, NULL);
                   advanceto(p, buf, pos, end);
                   if (TEXICMD_VALUE != type)
                           texierr(p, "unknown verbatiminclude command");
                   v = valueblookup(p, buf, sz, pos);
                   if (NULL == v)
                           continue;
                   while ('\0' != *v) {
                           if (i == sizeof(fname) - 1)
                                   break;
                           fname[i++] = *v++;
                   }
                   if ('\0' != *v)
                           break;
         }          }
   
         if (i == 0)          if (i == 0)
Line 517  static void
Line 738  static void
 doinclude(struct texi *p, enum texicmd cmd,  doinclude(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
         char     fname[PATH_MAX], path[PATH_MAX];          char             fname[PATH_MAX], path[PATH_MAX];
         size_t   i;          size_t           i, end;
         int      rc;          int              rc;
           const char      *v;
           enum texicmd     type;
   
         while (*pos < sz && ' ' == buf[*pos])          while (*pos < sz && ' ' == buf[*pos])
                 advance(p, buf, pos);                  advance(p, buf, pos);
   
         /* Read in the filename. */          /* Read in the filename. */
         for (i = 0; *pos < sz && '\n' != buf[*pos]; i++) {          for (i = 0; *pos < sz && '\n' != buf[*pos]; ) {
                 if (i == sizeof(fname) - 1)                  if (i == sizeof(fname) - 1)
                         break;                          break;
                 fname[i] = buf[*pos];                  if ('@' != buf[*pos]) {
                 advance(p, buf, pos);                          fname[i++] = buf[*pos];
                           advance(p, buf, pos);
                           continue;
                   }
                   type = texicmd(p, buf, *pos, sz, &end, NULL);
                   advanceto(p, buf, pos, end);
                   if (TEXICMD_VALUE != type)
                           texierr(p, "unknown include command");
                   v = valueblookup(p, buf, sz, pos);
                   if (NULL == v)
                           continue;
                   while ('\0' != *v) {
                           if (i == sizeof(fname) - 1)
                                   break;
                           fname[i++] = *v++;
                   }
                   if ('\0' != *v)
                           break;
         }          }
   
         if (i == 0)          if (i == 0)
Line 624  dotitle(struct texi *p, enum texicmd cmd, 
Line 864  dotitle(struct texi *p, enum texicmd cmd, 
         start = end = *pos;          start = end = *pos;
         while (end < sz && '\n' != buf[end])          while (end < sz && '\n' != buf[end])
                 end++;                  end++;
           advanceeoln(p, buf, sz, pos, 1);
         free(p->subtitle);          free(p->subtitle);
         p->subtitle = malloc(end - start + 1);          p->subtitle = malloc(end - start + 1);
           if (NULL == p->subtitle)
                   texiabort(p, NULL);
         memcpy(p->subtitle, &buf[start], end - start);          memcpy(p->subtitle, &buf[start], end - start);
         p->subtitle[end - start] = '\0';          p->subtitle[end - start] = '\0';
 }  }
Line 637  doaccent(struct texi *p, enum texicmd cmd, 
Line 880  doaccent(struct texi *p, enum texicmd cmd, 
   
         if (*pos == sz)          if (*pos == sz)
                 return;                  return;
         advance(p, buf, pos);          if (p->seenws && p->outcol && 0 == p->literal)
                   texiputchar(p, ' ');
           p->seenws = 0;
         switch (cmd) {          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):          case (TEXICMD_ACUTE):
                 switch (buf[*pos]) {                  switch (buf[*pos]) {
                 case ('a'): case ('A'):                  case ('a'): case ('A'):
Line 665  doaccent(struct texi *p, enum texicmd cmd, 
Line 928  doaccent(struct texi *p, enum texicmd cmd, 
                         break;                          break;
                 default:                  default:
                         texiputchar(p, buf[*pos]);                          texiputchar(p, buf[*pos]);
                           break;
                 }                  }
                 break;                  break;
         case (TEXICMD_GRAVE):          case (TEXICMD_GRAVE):
Line 691  doaccent(struct texi *p, enum texicmd cmd, 
Line 955  doaccent(struct texi *p, enum texicmd cmd, 
                         break;                          break;
                 default:                  default:
                         texiputchar(p, buf[*pos]);                          texiputchar(p, buf[*pos]);
                           break;
                 }                  }
                 break;                  break;
         case (TEXICMD_UMLAUT):          case (TEXICMD_UMLAUT):
Line 706  doaccent(struct texi *p, enum texicmd cmd, 
Line 971  doaccent(struct texi *p, enum texicmd cmd, 
                         break;                          break;
                 default:                  default:
                         texiputchar(p, buf[*pos]);                          texiputchar(p, buf[*pos]);
                           break;
                 }                  }
                 break;                  break;
         default:          default:
                 abort();                  abort();
         }          }
           advance(p, buf, pos);
 }  }
   
 static void  static void
Line 739  dosymbol(struct texi *p, enum texicmd cmd, 
Line 1006  dosymbol(struct texi *p, enum texicmd cmd, 
         case (TEXICMD_BULLET):          case (TEXICMD_BULLET):
                 texiputchars(p, "\\(bu");                  texiputchars(p, "\\(bu");
                 break;                  break;
           case (TEXICMD_COMMA):
                   texiputchar(p, ',');
                   break;
         case (TEXICMD_COPYRIGHT):          case (TEXICMD_COPYRIGHT):
                 texiputchars(p, "\\(co");                  texiputchars(p, "\\(co");
                 break;                  break;
         case (TEXICMD_DOTS):          case (TEXICMD_DOTS):
           case (TEXICMD_ENDDOTS):
                 texiputchars(p, "...");                  texiputchars(p, "...");
                 break;                  break;
           case (TEXICMD_EQUIV):
                   texiputchars(p, "\\(==");
                   break;
         case (TEXICMD_ERROR):          case (TEXICMD_ERROR):
                 texiputchars(p, "error\\(->");                  texiputchars(p, "error\\(->");
                 break;                  break;
Line 754  dosymbol(struct texi *p, enum texicmd cmd, 
Line 1028  dosymbol(struct texi *p, enum texicmd cmd, 
         case (TEXICMD_LATEX):          case (TEXICMD_LATEX):
                 texiputchars(p, "LaTeX");                  texiputchars(p, "LaTeX");
                 break;                  break;
           case (TEXICMD_MINUS):
                   texiputchars(p, "\\-");
                   break;
           case (TEXICMD_PERIOD):
                   texiputchar(p, '.');
                   break;
         case (TEXICMD_QUESTIONMARK):          case (TEXICMD_QUESTIONMARK):
                 texiputchar(p, '?');                  texiputchar(p, '?');
                 break;                  break;
         case (TEXICMD_RESULT):          case (TEXICMD_RESULT):
                 texiputchars(p, "\\(rA");                  texiputchars(p, "\\(rA");
                 break;                  break;
           case (TEXICMD_SLASH):
                   texiputchar(p, '/');
                   break;
           case (TEXICMD_SS):
                   texiputchars(p, "\\(ss");
                   break;
         case (TEXICMD_SQUIGGLE_LEFT):          case (TEXICMD_SQUIGGLE_LEFT):
                 texiputchars(p, "{");                  texiputchars(p, "{");
                 break;                  break;
Line 769  dosymbol(struct texi *p, enum texicmd cmd, 
Line 1055  dosymbol(struct texi *p, enum texicmd cmd, 
         case (TEXICMD_TEXSYM):          case (TEXICMD_TEXSYM):
                 texiputchars(p, "TeX");                  texiputchars(p, "TeX");
                 break;                  break;
           case (TEXICMD_TIE):
                   texiputchars(p, "\\ ");
                   break;
         case (TEXICMD_COLON):          case (TEXICMD_COLON):
         case (TEXICMD_HYPHEN):          case (TEXICMD_HYPHEN):
                 break;                  break;
         default:          default:
                 texiwarn(p, "sym: %d", cmd);  
                 abort();                  abort();
         }          }
   
Line 795  static void
Line 1083  static void
 domath(struct texi *p, enum texicmd cmd,  domath(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
         size_t   nest;          size_t   nest, start;
   
         /*          /*
          * Math handling is different from everything else.           * Math handling is different from everything else.
Line 811  domath(struct texi *p, enum texicmd cmd, 
Line 1099  domath(struct texi *p, enum texicmd cmd, 
         if (p->seenws && p->outcol && 0 == p->literal)          if (p->seenws && p->outcol && 0 == p->literal)
                 texiputchar(p, ' ');                  texiputchar(p, ' ');
         p->seenws = 0;          p->seenws = 0;
         for (nest = 1; *pos < sz && nest > 0; ) {          for (nest = 1, start = *pos; *pos < sz && nest > 0; ) {
                 if ('{' == buf[*pos])                  if ('{' == buf[*pos])
                         nest++;                          nest++;
                 else if ('}' == buf[*pos])                  else if ('}' == buf[*pos])
                         if (0 == --nest)                          if (0 == --nest)
                                 continue;                                  continue;
                 texiputchar(p, buf[*pos]);  
                 advance(p, buf, pos);                  advance(p, buf, pos);
         }          }
         if (*pos == sz)          if (*pos == sz)
                 return;                  return;
         assert('}' == buf[*pos]);          assert('}' == buf[*pos]);
           texiputbuf(p, buf, start, *pos);
         advance(p, buf, pos);          advance(p, buf, pos);
 }  }
   
Line 830  static void
Line 1118  static void
 dovalue(struct texi *p, enum texicmd cmd,  dovalue(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
         size_t   i, start, end;          size_t           start, end, i;
         int      clr;          char            *key, *val;
         char    *key, *val;          const char      *cp;
   
         if (TEXICMD_SET == cmd) {          if (TEXICMD_SET == cmd) {
                 /*  
                  * If we're going to set a value, then first parse the  
                  * key and value from the input stream.  
                  * Disallow empty keys.  
                  */  
                 while (*pos < sz && isws(buf[*pos]))                  while (*pos < sz && isws(buf[*pos]))
                         advance(p, buf, pos);                          advance(p, buf, pos);
                 for (start = end = *pos; end < sz; end++)                  for (start = end = *pos; end < sz; end++)
                         if (ismspace(buf[end]))                          if (ismspace(buf[end]))
                                 break;                                  break;
                   /* We don't allow empty keys. */
                 if (start == end)                  if (start == end)
                         return;                          return;
                   advanceto(p, buf, pos, end);
   
                 key = malloc(end - start + 1);                  key = malloc(end - start + 1);
                 if (NULL == key) {                  if (NULL == key)
                         perror(NULL);                          texiabort(p, NULL);
                         exit(EXIT_FAILURE);  
                 }  
                 memcpy(key, &buf[start], end - start);                  memcpy(key, &buf[start], end - start);
                 key[end - start] = '\0';                  key[end - start] = '\0';
   
                 advanceto(p, buf, pos, end);  
   
                 while (*pos < sz && isws(buf[*pos]))                  while (*pos < sz && isws(buf[*pos]))
                         advance(p, buf, pos);                          advance(p, buf, pos);
                 for (start = end = *pos; end < sz; end++)                  for (start = end = *pos; end < sz; end++)
                         if ('\n' == buf[end])                          if ('\n' == buf[end])
                                 break;                                  break;
                   /* We do allow empty values. */
                   advanceeoln(p, buf, sz, pos, 1);
   
                 val = malloc(end - start + 1);                  val = malloc(end - start + 1);
                 if (NULL == val) {                  if (NULL == val)
                         perror(NULL);                          texiabort(p, NULL);
                         exit(EXIT_FAILURE);  
                 }  
                 memcpy(val, &buf[start], end - start);                  memcpy(val, &buf[start], end - start);
                 val[end - start] = '\0';                  val[end - start] = '\0';
                   valueadd(p, key, val);
                 /*  
                  * Now look up the key in our table of existing keys.  
                  * If we find it, then free the local key and replace  
                  * the value (freeing the existing) of the existing.  
                  * If not, reallocate the structure.  
                  */  
                 for (i = 0; i < p->valsz; i++)  
                         if (0 == strcmp(p->vals[i].key, key))  
                                 break;  
   
                 if (i < p->valsz) {  
                         free(key);  
                         free(p->vals[i].value);  
                         p->vals[i].value = val;  
                 } else {  
                         p->vals = realloc(p->vals,  
                                 (p->valsz + 1) *  
                                  sizeof(struct texivalue));  
                         if (NULL == p->vals) {  
                                 perror(NULL);  
                                 exit(EXIT_FAILURE);  
                         }  
                         p->vals[p->valsz].key = key;  
                         p->vals[p->valsz].value = val;  
                         p->valsz++;  
                 }  
   
                 advanceeoln(p, buf, sz, pos, 1);  
         } else if (TEXICMD_VALUE == cmd) {          } else if (TEXICMD_VALUE == cmd) {
                 /*  
                  * First, parse out the key from the stream, which is  
                  * just the material within the quotes.  
                  */  
                 while (*pos < sz && '{' != buf[*pos])  
                         advance(p, buf, pos);  
                 if (*pos == sz)  
                         return;  
                 advance(p, buf, pos);  
                 start = *pos;  
                 while (*pos < sz && '}' != buf[*pos])  
                         advance(p, buf, pos);  
                 if ((end = *pos) < sz)  
                         advance(p, buf, pos);  
   
                 key = malloc(end - start + 1);  
                 if (NULL == key) {  
                         perror(NULL);  
                         exit(EXIT_FAILURE);  
                 }  
                 memcpy(key, &buf[start], end - start);  
                 key[end - start] = '\0';  
   
                 /*  
                  * Next, look up the key in our table.  
                  * If it exists, print it out, being mindful all the  
                  * while of prior whitespace.  
                  * If it doesn't, print out a message.  
                  */  
                 for (i = 0; i < p->valsz; i++)  
                         if (0 == strcmp(p->vals[i].key, key))  
                                 break;  
                 if (p->seenws)                  if (p->seenws)
                         texiputchar(p, ' ');                          texiputchar(p, ' ');
                 p->seenws = 0;                  p->seenws = 0;
                 if (i == p->valsz || NULL == p->vals[i].value) {                  if (NULL != (cp = valueblookup(p, buf, sz, pos))) {
                         texiputchars(p, "{No value for \\(lq");                          for (i = 0; i < p->valstackpos; i++)
                         texiputchars(p, key);                                  if (cp == p->valstack[i])
                         texiputchars(p, "\\(rq}");                                          break;
                 } else                          if (i < p->valstackpos)
                         texiputchars(p, p->vals[i].value);                                  texierr(p, "recursive value");
                 free(key);                          if (64 == p->valstackpos)
         } else if (TEXICMD_CLEAR == cmd) {                                  texierr(p, "too many nested values");
                 key = lineargdup(p, buf, sz, pos);                          p->valstack[p->valstackpos++] = cp;
                 for (i = 0; i < p->valsz; i++)                          parsemembuf(p, cp, strlen(cp));
                         if (0 == strcmp(p->vals[i].key, key)) {                          p->valstackpos--;
                                 free(p->vals[i].value);                  } else
                                 p->vals[i].value = NULL;                          texiputchars(p, "{No value}");
                                 break;  
                         }  
                 free(key);  
         } else if (TEXICMD_IFCLEAR == cmd) {          } else if (TEXICMD_IFCLEAR == cmd) {
                 key = lineargdup(p, buf, sz, pos);                  if (NULL != valuellookup(p, buf, sz, pos))
                 for (i = 0; i < p->valsz; i++)                          doignblock(p, cmd, buf, sz, pos);
                         if (0 == strcmp(p->vals[i].key, key))                  else
                                 break;                          parseto(p, buf, sz, pos, texitoks[cmd].tok);
                 free(key);          } else if (TEXICMD_IFSET == cmd) {
                 clr = i < p->valsz && NULL != p->vals[i].value;                  if (NULL == valuellookup(p, buf, sz, pos))
                 if (clr)                          doignblock(p, cmd, buf, sz, pos);
                         p->ign++;                  else
                 parseto(p, buf, sz, pos, texitoks[cmd].tok);                          parseto(p, buf, sz, pos, texitoks[cmd].tok);
                 if (clr)          } else if (TEXICMD_CLEAR == cmd)
                         p->ign--;                  valuelclear(p, buf, sz, pos);
         }  
 }  }
   
 static void  static void
Line 983  dolink(struct texi *p, enum texicmd cmd, 
Line 1200  dolink(struct texi *p, enum texicmd cmd, 
                 break;                  break;
         case (TEXICMD_XREF):          case (TEXICMD_XREF):
                 texiputchars(p, "See Section");                  texiputchars(p, "See Section");
                 teximacroopen(p, "Qq");                  teximacroopen(p, "Dq");
                 break;                  break;
         case (TEXICMD_PXREF):          case (TEXICMD_PXREF):
                 texiputchars(p, "see Section");                  texiputchars(p, "see Section");
                 teximacroopen(p, "Qq");                  teximacroopen(p, "Dq");
                 break;                  break;
           case (TEXICMD_INFOREF):
                   texiputchars(p, "See Info file node");
                   teximacroopen(p, "Dq");
                   break;
         default:          default:
                 abort();                  abort();
         }          }
Line 1066  dosubsection(struct texi *p, enum texicmd cmd, 
Line 1287  dosubsection(struct texi *p, enum texicmd cmd, 
                 texierr(p, "\"%s\" in a literal scope!?", sects[sec]);                  texierr(p, "\"%s\" in a literal scope!?", sects[sec]);
   
         /* We don't have a subsubsection, so make one up. */          /* We don't have a subsubsection, so make one up. */
         texivspace(p);          if (sec > 1)
                   texivspace(p);
         teximacroopen(p, sects[sec]);          teximacroopen(p, sects[sec]);
         parseeoln(p, buf, sz, pos);          parseeoln(p, buf, sz, pos);
         teximacroclose(p);          teximacroclose(p);
         texivspace(p);          if (sec > 1)
                   texivspace(p);
 }  }
   
 static void  static void
Line 1123  dosp(struct texi *p, enum texicmd cmd, 
Line 1346  dosp(struct texi *p, enum texicmd cmd, 
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
   
         texivspace(p);          if (p->literal)
                   texiputchar(p, '\n');
           else
                   texivspace(p);
         /* FIXME: ignore and parseeoln. */          /* FIXME: ignore and parseeoln. */
         advanceeoln(p, buf, sz, pos, 1);          advanceeoln(p, buf, sz, pos, 1);
 }  }
Line 1136  dotop(struct texi *p, enum texicmd cmd, 
Line 1362  dotop(struct texi *p, enum texicmd cmd, 
         time_t           t;          time_t           t;
         char             date[32];          char             date[32];
   
           if (--p->ign)
                   texierr(p, "@top command while ignoring (%d)", p->ign);
   
         /*          /*
          * Here we print our standard mdoc(7) prologue.           * Here we print our standard mdoc(7) prologue.
          * We use the title set with @settitle for the `Nd' description           * We use the title set with @settitle for the `Nd' description
Line 1146  dotop(struct texi *p, enum texicmd cmd, 
Line 1375  dotop(struct texi *p, enum texicmd cmd, 
         t = time(NULL);          t = time(NULL);
         strftime(date, sizeof(date), "%F", localtime(&t));          strftime(date, sizeof(date), "%F", localtime(&t));
   
         p->ign--;  
         teximacroopen(p, "Dd");          teximacroopen(p, "Dd");
         texiputchars(p, date);          texiputchars(p, date);
         teximacroclose(p);          teximacroclose(p);
Line 1158  dotop(struct texi *p, enum texicmd cmd, 
Line 1386  dotop(struct texi *p, enum texicmd cmd, 
         teximacro(p, "Os");          teximacro(p, "Os");
         teximacro(p, "Sh NAME");          teximacro(p, "Sh NAME");
         teximacroopen(p, "Nm");          teximacroopen(p, "Nm");
         texiputchars(p, p->title);          for (cp = p->title; '\0' != *cp; cp++)
                   texiputchar(p, *cp);
         teximacroclose(p);          teximacroclose(p);
         teximacroopen(p, "Nd");          teximacroopen(p, "Nd");
         texiputchars(p, NULL != p->subtitle ?          if (NULL != p->subtitle)
                 p->subtitle : "Unknown description");                  for (cp = p->subtitle; '\0' != *cp; cp++)
                           texiputchar(p, *cp);
           else
                   texiputchars(p, "Unknown description");
         teximacroclose(p);          teximacroclose(p);
         p->seenvs = 1;          p->seenvs = 1;
         dosection(p, cmd, buf, sz, pos);          dosection(p, cmd, buf, sz, pos);
Line 1221  domultitable(struct texi *p, enum texicmd cmd, 
Line 1453  domultitable(struct texi *p, enum texicmd cmd, 
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
         enum texilist   sv = p->list;          enum texilist   sv = p->list;
           int             svliteral = p->literal;
         enum texicmd    type;          enum texicmd    type;
         size_t          i, end, columns;          size_t          i, end, columns;
   
         p->list = TEXILIST_TABLE;          p->list = TEXILIST_TABLE;
           /*
            * TS/TE blocks aren't "in mdoc(7)", so we can disregard the
            * fact that we're in literal mode right now.
            */
           p->literal = 0;
         teximacro(p, "TS");          teximacro(p, "TS");
         columns = 0;          columns = 0;
   
Line 1241  domultitable(struct texi *p, enum texicmd cmd, 
Line 1479  domultitable(struct texi *p, enum texicmd cmd, 
                  * arguments to set the number of columns that we'll                   * arguments to set the number of columns that we'll
                  * have.                   * have.
                  */                   */
                 type = texicmd(p, buf, *pos, sz, &end);                  type = texicmd(p, buf, *pos, sz, &end, NULL);
                 advanceto(p, buf, pos, end);                  advanceto(p, buf, pos, end);
                 if (TEXICMD_COLUMNFRACTIONS != type)                  if (TEXICMD_COLUMNFRACTIONS != type)
                         texierr(p, "unknown multitable type");                          texierr(p, "unknown multitable command");
                 while (*pos < sz && '\n' != buf[*pos]) {                  while (*pos < sz && '\n' != buf[*pos]) {
                         while (*pos < sz && isws(buf[*pos]))                          while (*pos < sz && isws(buf[*pos]))
                                 advance(p, buf, pos);                                  advance(p, buf, pos);
Line 1277  domultitable(struct texi *p, enum texicmd cmd, 
Line 1515  domultitable(struct texi *p, enum texicmd cmd, 
         parseto(p, buf, sz, pos, texitoks[cmd].tok);          parseto(p, buf, sz, pos, texitoks[cmd].tok);
         p->outmacro--;          p->outmacro--;
         teximacro(p, "TE");          teximacro(p, "TE");
           p->literal = svliteral;
         p->list = sv;          p->list = sv;
 }  }
   
Line 1350  doignline(struct texi *p, enum texicmd cmd, 
Line 1589  doignline(struct texi *p, enum texicmd cmd, 
 /*  /*
  * Parse colon-separated directories from "cp" (if not NULL) and returns   * Parse colon-separated directories from "cp" (if not NULL) and returns
  * the array of pointers.   * the array of pointers.
  * Prepends "base" to the array.   * Prepends "base" to the array, if found.
  * This does NOT sanitise the directories!   * This does NOT sanitise the directories!
  */   */
 static char **  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;          char             *tok, *str, *tofree;
         const char       *cpp;          const char       *cpp;
         size_t            i;          size_t            i = 0;
         char            **dirs;          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++;                          cpp++;
   
         dirs = calloc(*sz, sizeof(char *));          if (0 == *sz)
         if (NULL == dirs) {                  return(NULL);
                 perror(NULL);          if (NULL == (dirs = calloc(*sz, sizeof(char *))))
                 exit(EXIT_FAILURE);                  texiabort(p, NULL);
         } else if (NULL == (dirs[0] = strdup(base))) {          if (NULL != base && NULL == (dirs[i++] = strdup(base)))
                 perror(NULL);                  texiabort(p, NULL);
                 exit(EXIT_FAILURE);  
         }  
   
         if (NULL == cp)          if (NULL == cp)
                 return(dirs);                  return(dirs);
           if (NULL == (tofree = tok = str = strdup(cp)))
         if (NULL == (tofree = tok = str = strdup(cp))) {                  texiabort(p, NULL);
                 perror(NULL);  
                 exit(EXIT_FAILURE);  
         }  
   
         for (i = 1; NULL != (tok = strsep(&str, ":")); i++)          for ( ; NULL != (tok = strsep(&str, ":")); i++)
                 if (NULL == (dirs[i] = strdup(tok))) {                  if (NULL == (dirs[i] = strdup(tok)))
                         perror(NULL);                          texiabort(p, NULL);
                         exit(EXIT_FAILURE);  
                 }  
   
         free(tofree);          free(tofree);
         return(dirs);          return(dirs);
Line 1398  main(int argc, char *argv[])
Line 1630  main(int argc, char *argv[])
 {  {
         struct texi      texi;          struct texi      texi;
         int              c;          int              c;
         char            *path, *dir;          char            *dirpath, *dir, *ccp;
         const char      *progname, *Idir, *cp;          const char      *progname, *Idir, *cp;
   
         progname = strrchr(argv[0], '/');          progname = strrchr(argv[0], '/');
Line 1408  main(int argc, char *argv[])
Line 1640  main(int argc, char *argv[])
                 ++progname;                  ++progname;
   
         memset(&texi, 0, sizeof(struct texi));          memset(&texi, 0, sizeof(struct texi));
           texi.ign = 1;
         Idir = NULL;          Idir = NULL;
   
         while (-1 != (c = getopt(argc, argv, "I:")))          while (-1 != (c = getopt(argc, argv, "I:")))
Line 1420  main(int argc, char *argv[])
Line 1653  main(int argc, char *argv[])
                 }                  }
   
         argv += optind;          argv += optind;
         if (0 == (argc -= optind))          argc -= optind;
                 goto usage;  
   
         if (NULL == (path = strdup(argv[0]))) {          if (argc > 0) {
                 perror(NULL);                  if (NULL == (dirpath = strdup(argv[0])))
                 exit(EXIT_FAILURE);                          texiabort(&texi, NULL);
         } else if (NULL == (dir = dirname(path))) {                  if (NULL == (dir = dirname(dirpath)))
                 perror(argv[0]);                          texiabort(&texi, NULL);
                 free(path);                  if (NULL != (cp = strrchr(argv[0], '/')))
                 exit(EXIT_FAILURE);                          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) {  
                 perror(NULL);  
                 exit(EXIT_FAILURE);  
         } else if (NULL != (path = strchr(texi.title, '.')))  
                 *path = '\0';  
   
         texi.ign = 1;  
         texi.dirs = parsedirs(dir, Idir, &texi.dirsz);  
         parsefile(&texi, argv[0], 1);  
         /* We shouldn't get here. */  
         texiexit(&texi);          texiexit(&texi);
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
 usage:  usage:
         fprintf(stderr, "usage: %s [-Idirs] file\n", progname);          fprintf(stderr, "usage: %s [-Idirs] [file]\n", progname);
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
 }  }

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.41

CVSweb