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

Diff for /texi2mdoc/main.c between version 1.9 and 1.12

version 1.9, 2015/02/18 14:52:45 version 1.12, 2015/02/18 23:08:16
Line 27 
Line 27 
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
   #include <time.h>
 #include <unistd.h>  #include <unistd.h>
   
 /*  /*
Line 43  enum texicmd {
Line 44  enum texicmd {
         TEXICMD_ASTERISK,          TEXICMD_ASTERISK,
         TEXICMD_AT,          TEXICMD_AT,
         TEXICMD_AUTHOR,          TEXICMD_AUTHOR,
           TEXICMD_B,
         TEXICMD_BANG,          TEXICMD_BANG,
         TEXICMD_BULLET,          TEXICMD_BULLET,
         TEXICMD_BYE,          TEXICMD_BYE,
Line 106  enum texicmd {
Line 108  enum texicmd {
         TEXICMD_PAGE,          TEXICMD_PAGE,
         TEXICMD_PARINDENT,          TEXICMD_PARINDENT,
         TEXICMD_PRINTINDEX,          TEXICMD_PRINTINDEX,
           TEXICMD_R,
         TEXICMD_REF,          TEXICMD_REF,
         TEXICMD_SAMP,          TEXICMD_SAMP,
           TEXICMD_SANSSERIF,
         TEXICMD_SC,          TEXICMD_SC,
         TEXICMD_SECTION,          TEXICMD_SECTION,
         TEXICMD_SET,          TEXICMD_SET,
         TEXICMD_SETCHAPNEWPAGE,          TEXICMD_SETCHAPNEWPAGE,
         TEXICMD_SETFILENAME,          TEXICMD_SETFILENAME,
         TEXICMD_SETTITLE,          TEXICMD_SETTITLE,
           TEXICMD_SLANTED,
         TEXICMD_SP,          TEXICMD_SP,
         TEXICMD_SPACE,          TEXICMD_SPACE,
           TEXICMD_SMALLDISPLAY,
         TEXICMD_SMALLEXAMPLE,          TEXICMD_SMALLEXAMPLE,
         TEXICMD_SQUIGGLE_LEFT,          TEXICMD_SQUIGGLE_LEFT,
         TEXICMD_SQUIGGLE_RIGHT,          TEXICMD_SQUIGGLE_RIGHT,
         TEXICMD_STRONG,          TEXICMD_STRONG,
         TEXICMD_SUBSECTION,          TEXICMD_SUBSECTION,
         TEXICMD_SUBTITLE,          TEXICMD_SUBTITLE,
           TEXICMD_T,
         TEXICMD_TAB,          TEXICMD_TAB,
         TEXICMD_TABLE,          TEXICMD_TABLE,
         TEXICMD_TEX,          TEXICMD_TEX,
Line 186  struct texi {
Line 193  struct texi {
         size_t            outcol; /* column in output line */          size_t            outcol; /* column in output line */
         char            **dirs; /* texi directories */          char            **dirs; /* texi directories */
         size_t            dirsz; /* number of texi directories */          size_t            dirsz; /* number of texi directories */
           char             *title; /* title of document */
           char             *subtitle; /* subtitle of document */
           /*
            * The following control what we output to the screen.
            * The complexity is required to accomodate for mdoc(7).
            */
         enum texilist     list; /* current list (set recursively) */          enum texilist     list; /* current list (set recursively) */
         int               outmacro; /* if >0, output is in line macro */          int               outmacro; /* if >0, output is in line macro */
         int               seenws; /* ws has been seen (and ignored) */          int               seenws; /* ws has been seen (and ignored) */
           int               seenvs; /* newline has been Pp'd */
         int               ign; /* if >0, don't print anything */          int               ign; /* if >0, don't print anything */
         int               literal; /* if >0, literal context */          int               literal; /* if >0, literal context */
 };  };
   
 /* FIXME: FIND A BETTER WAY. */  
 #define ismpunct(_x) \  
         ('.' == (_x) || \  
          ',' == (_x) || \  
          ';' == (_x))  
 /* Texi disregards spaces and tabs. */  /* Texi disregards spaces and tabs. */
 #define isws(_x) \  #define isws(_x) \
         (' ' == (_x) || '\t' == (_x))          (' ' == (_x) || '\t' == (_x))
 #define ismspace(_x) \  #define ismspace(_x) \
         (isws((_x) || '\n' == (_x)))          (isws((_x)) || '\n' == (_x))
   
 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 dochapter(struct texi *, enum texicmd, const char *, size_t, size_t *);  
 static  void docommand(struct texi *, enum texicmd, const char *, size_t, size_t *);  
 static  void dodeftypefun(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void dodeftypefun(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void dodeftypevar(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void dodeftypevar(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 doemph(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 *);
 static  void doenv(struct texi *, enum texicmd, const char *, size_t, size_t *);  
 static  void doexample(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void doexample(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void dofile(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void dofont(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void doignargn(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void doignargn(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void doignblock(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void doignblock(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void doignbracket(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void doignbracket(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void doignline(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void doignline(struct texi *, enum texicmd, const char *, size_t, size_t *);
   static  void doinline(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void doinclude(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void doinclude(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void doitalic(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 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 doliteral(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 doquotation(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 dotable(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void dotable(struct texi *, enum texicmd, const char *, size_t, size_t *);
Line 235  static void dosection(struct texi *, enum texicmd, con
Line 239  static void dosection(struct texi *, enum texicmd, con
 static  void dosp(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void dosp(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void dosubsection(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void dosubsection(struct texi *, enum texicmd, const char *, size_t, size_t *);
 static  void dosymbol(struct texi *, enum texicmd, const char *, size_t, size_t *);  static  void dosymbol(struct texi *, enum texicmd, const char *, size_t, size_t *);
   static  void dotitle(struct texi *, enum texicmd, const char *, size_t, size_t *);
   
 static  const struct texitok texitoks[TEXICMD__MAX] = {  static  const struct texitok texitoks[TEXICMD__MAX] = {
         { doignargn, "acronym", 7 }, /* TEXICMD_ACRONYM */          { doignargn, "acronym", 7 }, /* TEXICMD_ACRONYM */
         { doignline, "afourpaper", 10 }, /* TEXICMD_A4PAPER */          { doignline, "afourpaper", 10 }, /* TEXICMD_A4PAPER */
         { doignbracket, "anchor", 6 }, /* TEXICMD_ANCHOR */          { doignbracket, "anchor", 6 }, /* TEXICMD_ANCHOR */
         { dochapter, "appendix", 8 }, /* TEXICMD_APPENDIX */          { dosection, "appendix", 8 }, /* TEXICMD_APPENDIX */
         { dochapter, "appendixsec", 11 }, /* TEXICMD_APPENDIXSEC */          { dosection, "appendixsec", 11 }, /* TEXICMD_APPENDIXSEC */
         { 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 */
           { dofont, "b", 1 }, /* TEXICMD_BOLD */
         { 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 */
         { doignline, "center", 5 }, /* TEXICMD_CENTER */          { doignline, "center", 6 }, /* TEXICMD_CENTER */
         { dochapter, "chapter", 7 }, /* TEXICMD_CHAPTER */          { dosection, "chapter", 7 }, /* TEXICMD_CHAPTER */
         { doignline, "cindex", 6 }, /* TEXICMD_CINDEX */          { doignline, "cindex", 6 }, /* TEXICMD_CINDEX */
         { doliteral, "code", 4 }, /* TEXICMD_CODE */          { dofont, "code", 4 }, /* TEXICMD_CODE */
         { doitalic, "cite", 4 }, /* TEXICMD_CITE */          { dofont, "cite", 4 }, /* TEXICMD_CITE */
         { dosymbol, ":", 1 }, /* TEXICMD_COLON */          { dosymbol, ":", 1 }, /* TEXICMD_COLON */
         { docommand, "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 */
Line 267  static const struct texitok texitoks[TEXICMD__MAX] = {
Line 273  static const struct texitok texitoks[TEXICMD__MAX] = {
         { dodeftypevar, "deftypevar", 10 }, /* TEXICMD_DEFTYPEVAR */          { dodeftypevar, "deftypevar", 10 }, /* TEXICMD_DEFTYPEVAR */
         { dodeftypevar, "deftypevr", 9 }, /* TEXICMD_DEFTYPEVR */          { dodeftypevar, "deftypevr", 9 }, /* TEXICMD_DEFTYPEVR */
         { doignblock, "detailmenu", 10 }, /* TEXICMD_DETAILMENU */          { doignblock, "detailmenu", 10 }, /* TEXICMD_DETAILMENU */
         { doitalic, "dfn", 3 }, /* TEXICMD_DFN */          { dofont, "dfn", 3 }, /* TEXICMD_DFN */
         { 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 */
         { dosymbol, "dots", 4 }, /* TEXICMD_DOTS */          { dosymbol, "dots", 4 }, /* TEXICMD_DOTS */
         { dolink, "email", 5 }, /* TEXICMD_EMAIL */          { dolink, "email", 5 }, /* TEXICMD_EMAIL */
         { doemph, "emph", 4 }, /* TEXICMD_EMPH */          { dofont, "emph", 4 }, /* TEXICMD_EMPH */
         { NULL, "end", 3 }, /* TEXICMD_END */          { NULL, "end", 3 }, /* TEXICMD_END */
         { doenumerate, "enumerate", 9 }, /* TEXICMD_ENUMERATE */          { doenumerate, "enumerate", 9 }, /* TEXICMD_ENUMERATE */
         { doenv, "env", 3 }, /* TEXICMD_ENV */          { doinline, "env", 3 }, /* TEXICMD_ENV */
         { doexample, "example", 7 }, /* TEXICMD_EXAMPLE */          { doexample, "example", 7 }, /* TEXICMD_EXAMPLE */
         { dofile, "file", 4 }, /* TEXICMD_FILE */          { doinline, "file", 4 }, /* TEXICMD_FILE */
         { doblock, "group", 5 }, /* TEXICMD_GROUP */          { doblock, "group", 5 }, /* TEXICMD_GROUP */
         { dosection, "heading", 7 }, /* TEXICMD_HEADING */          { dosection, "heading", 7 }, /* TEXICMD_HEADING */
         { doignline, "headings", 8 }, /* TEXICMD_HEADINGS */          { doignline, "headings", 8 }, /* TEXICMD_HEADINGS */
         { dosymbol, "-", 1 }, /* TEXICMD_HYPHEN */          { dosymbol, "-", 1 }, /* TEXICMD_HYPHEN */
         { doitalic, "i", 1 }, /* TEXICMD_I */          { dofont, "i", 1 }, /* TEXICMD_I */
         { doignblock, "ifclear", 7 }, /* TEXICMD_IFCLEAR */          { doignblock, "ifclear", 7 }, /* TEXICMD_IFCLEAR */
         { doignblock, "ifhtml", 6 }, /* TEXICMD_IFHTML */          { doignblock, "ifhtml", 6 }, /* TEXICMD_IFHTML */
         { doignblock, "ifinfo", 6 }, /* TEXICMD_IFINFO */          { doignblock, "ifinfo", 6 }, /* TEXICMD_IFINFO */
Line 295  static const struct texitok texitoks[TEXICMD__MAX] = {
Line 301  static const struct texitok texitoks[TEXICMD__MAX] = {
         { 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 */
         { doliteral, "kbd", 3 }, /* TEXICMD_KBD */          { dofont, "kbd", 3 }, /* TEXICMD_KBD */
         { dosymbol, "LaTeX", 5 }, /* TEXICMD_LATEX */          { dosymbol, "LaTeX", 5 }, /* TEXICMD_LATEX */
         { domath, "math", 4 }, /* TEXICMD_MATH */          { domath, "math", 4 }, /* TEXICMD_MATH */
         { doignblock, "menu", 4 }, /* TEXICMD_MENU */          { doignblock, "menu", 4 }, /* TEXICMD_MENU */
Line 308  static const struct texitok texitoks[TEXICMD__MAX] = {
Line 314  static const struct texitok texitoks[TEXICMD__MAX] = {
         { doignline, "page", 4 }, /* TEXICMD_PAGE */          { doignline, "page", 4 }, /* TEXICMD_PAGE */
         { doignline, "paragraphindent", 14 }, /* TEXICMD_PARINDENT */          { doignline, "paragraphindent", 14 }, /* TEXICMD_PARINDENT */
         { doignline, "printindex", 10 }, /* TEXICMD_PRINTINDEX */          { doignline, "printindex", 10 }, /* TEXICMD_PRINTINDEX */
           { dofont, "r", 1 }, /* TEXICMD_R */
         { dobracket, "ref", 3 }, /* TEXICMD_REF */          { dobracket, "ref", 3 }, /* TEXICMD_REF */
         { doliteral, "samp", 4 }, /* TEXICMD_SAMP */          { dofont, "samp", 4 }, /* TEXICMD_SAMP */
           { dofont, "sansserif", 9 }, /* TEXICMD_SANSSERIF */
         { dobracket, "sc", 2 }, /* TEXICMD_SC */          { dobracket, "sc", 2 }, /* TEXICMD_SC */
         { dosection, "section", 7 }, /* TEXICMD_SECTION */          { dosection, "section", 7 }, /* TEXICMD_SECTION */
         { doignline, "set", 3 }, /* TEXICMD_SET */          { doignline, "set", 3 }, /* TEXICMD_SET */
         { doignline, "setchapternewpage", 17 }, /* TEXICMD_SETCHAPNEWPAGE */          { doignline, "setchapternewpage", 17 }, /* TEXICMD_SETCHAPNEWPAGE */
         { doignline, "setfilename", 11 }, /* TEXICMD_SETFILENAME */          { doignline, "setfilename", 11 }, /* TEXICMD_SETFILENAME */
         { doignline, "settitle", 8 }, /* TEXICMD_SETTITLE */          { dotitle, "settitle", 8 }, /* TEXICMD_SETTITLE */
           { dofont, "slanted", 7 }, /* TEXICMD_SLANTED */
         { dosp, "sp", 2 }, /* TEXICMD_SP */          { dosp, "sp", 2 }, /* TEXICMD_SP */
         { dosymbol, " ", 1 }, /* TEXICMD_SPACE */          { dosymbol, " ", 1 }, /* TEXICMD_SPACE */
           { dodisplay, "smalldisplay", 12 }, /* TEXICMD_SMALLDISPLAY */
         { doexample, "smallexample", 12 }, /* TEXICMD_SMALLEXAMPLE */          { doexample, "smallexample", 12 }, /* TEXICMD_SMALLEXAMPLE */
         { dosymbol, "{", 1 }, /* TEXICMD_SQUIGGLE_LEFT */          { dosymbol, "{", 1 }, /* TEXICMD_SQUIGGLE_LEFT */
         { dosymbol, "}", 1 }, /* TEXICMD_SQUIGGLE_RIGHT */          { dosymbol, "}", 1 }, /* TEXICMD_SQUIGGLE_RIGHT */
         { doemph, "strong", 6 }, /* TEXICMD_STRONG */          { dofont, "strong", 6 }, /* TEXICMD_STRONG */
         { dosubsection, "subsection", 10 }, /* TEXICMD_SUBSECTION */          { dosubsection, "subsection", 10 }, /* TEXICMD_SUBSECTION */
         { doignline, "subtitle", 8 }, /* TEXICMD_SUBTITLE */          { doignline, "subtitle", 8 }, /* TEXICMD_SUBTITLE */
           { dofont, "t", 1 }, /* TEXICMD_T */
         { dosymbol, "\t", 1 }, /* TEXICMD_TAB */          { dosymbol, "\t", 1 }, /* TEXICMD_TAB */
         { dotable, "table", 5 }, /* TEXICMD_TABLE */          { dotable, "table", 5 }, /* TEXICMD_TABLE */
         { doignblock, "tex", 3 }, /* TEXICMD_TEX */          { doignblock, "tex", 3 }, /* TEXICMD_TEX */
Line 332  static const struct texitok texitoks[TEXICMD__MAX] = {
Line 343  static const struct texitok texitoks[TEXICMD__MAX] = {
         { dobracket, "titlefont", 9 }, /* TEXICMD_TITLEFONT */          { dobracket, "titlefont", 9 }, /* TEXICMD_TITLEFONT */
         { doignblock, "titlepage", 9 }, /* TEXICMD_TITLEPAGE */          { doignblock, "titlepage", 9 }, /* TEXICMD_TITLEPAGE */
         { dotop, "top", 3 }, /* TEXICMD_TOP */          { dotop, "top", 3 }, /* TEXICMD_TOP */
         { dochapter, "unnumbered", 10 }, /* TEXICMD_UNNUMBERED */          { dosection, "unnumbered", 10 }, /* TEXICMD_UNNUMBERED */
         { dosection, "unnumberedsec", 13 }, /* TEXICMD_UNNUMBEREDSEC */          { dosection, "unnumberedsec", 13 }, /* TEXICMD_UNNUMBEREDSEC */
         { dolink, "uref", 4 }, /* TEXICMD_UREF */          { dolink, "uref", 4 }, /* TEXICMD_UREF */
         { dolink, "url", 3 }, /* TEXICMD_URL */          { dolink, "url", 3 }, /* TEXICMD_URL */
         { doliteral, "var", 3 }, /* TEXICMD_VAR */          { doinline, "var", 3 }, /* TEXICMD_VAR */
         { dosp, "vskip", 5 }, /* TEXICMD_VSKIP */          { dosp, "vskip", 5 }, /* TEXICMD_VSKIP */
         { dobracket, "w", 1 }, /* TEXICMD_W */          { dobracket, "w", 1 }, /* TEXICMD_W */
         { dolink, "xref", 4 }, /* TEXICMD_XREF */          { dolink, "xref", 4 }, /* TEXICMD_XREF */
Line 373  texiexit(struct texi *p)
Line 384  texiexit(struct texi *p)
   
         for (i = 0; i < p->dirsz; i++)          for (i = 0; i < p->dirsz; i++)
                 free(p->dirs[i]);                  free(p->dirs[i]);
   
         free(p->dirs);          free(p->dirs);
           free(p->subtitle);
           free(p->title);
 }  }
   
 /*  /*
Line 440  texiputchar(struct texi *p, char c)
Line 454  texiputchar(struct texi *p, char c)
         if (p->ign)          if (p->ign)
                 return;                  return;
         putchar(c);          putchar(c);
           p->seenvs = 0;
         if ('\n' == c) {          if ('\n' == c) {
                 p->outcol = 0;                  p->outcol = 0;
                 p->seenws = 0;                  p->seenws = 0;
Line 512  teximacro(struct texi *p, const char *s)
Line 527  teximacro(struct texi *p, const char *s)
         texiputchar(p, '\n');          texiputchar(p, '\n');
 }  }
   
   static void
   texivspace(struct texi *p)
   {
   
           if (p->seenvs)
                   return;
           teximacro(p, "Pp");
           p->seenvs = 1;
   }
   
 /*  /*
  * Advance by a single byte in the input stream.   * Advance by a single byte in the input stream.
  */   */
Line 528  advance(struct texi *p, const char *buf, size_t *pos)
Line 553  advance(struct texi *p, const char *buf, size_t *pos)
         (*pos)++;          (*pos)++;
 }  }
   
   static void
   texipunctuate(struct texi *p, const char *buf, size_t sz, size_t *pos)
   {
           size_t   start, end;
   
           if (1 != p->outmacro)
                   return;
   
           for (start = end = *pos; end < sz; end++) {
                   switch (buf[end]) {
                   case (','):
                   case (')'):
                   case ('.'):
                   case ('"'):
                   case (':'):
                   case ('!'):
                   case ('?'):
                           continue;
                   default:
                           break;
                   }
                   break;
           }
           if (end == *pos)
                   return;
           if (end + 1 == sz || ' ' == buf[end] || '\n' == buf[end]) {
                   for ( ; start < end; start++) {
                           texiputchar(p, ' ');
                           texiputchar(p, buf[start]);
                           advance(p, buf, pos);
                   }
           }
   }
   
 /*  /*
  * Advance to the next non-whitespace word in the input stream.   * Advance to the next non-whitespace word in the input stream.
  * If we're in literal mode, then print all of the whitespace as we're   * If we're in literal mode, then print all of the whitespace as we're
Line 555  advancenext(struct texi *p, const char *buf, size_t sz
Line 614  advancenext(struct texi *p, const char *buf, size_t sz
                  * output a paragraph.                   * output a paragraph.
                  * FIXME: this is stupid.                   * FIXME: this is stupid.
                  */                   */
                 if (*pos && '\n' == buf[*pos] &&                  if (*pos && '\n' == buf[*pos] && '\n' == buf[*pos - 1])
                         '\n' == buf[*pos - 1])                          texivspace(p);
                         teximacro(p, "Pp");  
                 advance(p, buf, pos);                  advance(p, buf, pos);
         }          }
         return(*pos);          return(*pos);
Line 984  dodeftypevar(struct texi *p, enum texicmd cmd, 
Line 1042  dodeftypevar(struct texi *p, enum texicmd cmd, 
                 return;                  return;
         }          }
   
         teximacro(p, "Pp");          texivspace(p);
         if (TEXICMD_DEFTYPEVR == cmd) {          if (TEXICMD_DEFTYPEVR == cmd) {
                 parsebracket(p, buf, sz, pos);                  parsebracket(p, buf, sz, pos);
                 texiputchars(p, ":\n");                  texiputchars(p, ":\n");
Line 992  dodeftypevar(struct texi *p, enum texicmd cmd, 
Line 1050  dodeftypevar(struct texi *p, enum texicmd cmd, 
         teximacroopen(p, "Vt");          teximacroopen(p, "Vt");
         parseeoln(p, buf, sz, pos);          parseeoln(p, buf, sz, pos);
         teximacroclose(p);          teximacroclose(p);
         teximacro(p, "Pp");          texivspace(p);
         parseto(p, buf, sz, pos, blk);          parseto(p, buf, sz, pos, blk);
 }  }
   
Line 1021  dodeftypefun(struct texi *p, enum texicmd cmd, 
Line 1079  dodeftypefun(struct texi *p, enum texicmd cmd, 
         switch (cmd) {          switch (cmd) {
         case (TEXICMD_DEFTYPEFN):          case (TEXICMD_DEFTYPEFN):
         case (TEXICMD_DEFTYPEFUN):          case (TEXICMD_DEFTYPEFUN):
                 teximacro(p, "Pp");                  texivspace(p);
                 break;                  break;
         default:          default:
                 break;                  break;
Line 1040  dodeftypefun(struct texi *p, enum texicmd cmd, 
Line 1098  dodeftypefun(struct texi *p, enum texicmd cmd, 
         teximacroopen(p, "Li");          teximacroopen(p, "Li");
         parseeoln(p, buf, sz, pos);          parseeoln(p, buf, sz, pos);
         teximacroclose(p);          teximacroclose(p);
         teximacro(p, "Pp");          texivspace(p);
         if (NULL != blk)          if (NULL != blk)
                 parseto(p, buf, sz, pos, blk);                  parseto(p, buf, sz, pos, blk);
 }  }
Line 1064  doblock(struct texi *p, enum texicmd cmd, 
Line 1122  doblock(struct texi *p, enum texicmd cmd, 
 }  }
   
 static void  static void
 doinline(struct texi *p, const char *buf,  doinline(struct texi *p, enum texicmd cmd,
         size_t sz, size_t *pos, const char *macro)          const char *buf, size_t sz, size_t *pos)
 {  {
           const char      *macro;
   
           switch (cmd) {
           case (TEXICMD_COMMAND):
                   macro = "Xr";
                   break;
           case (TEXICMD_ENV):
                   macro = "Ev";
                   break;
           case (TEXICMD_FILE):
                   macro = "Pa";
                   break;
           case (TEXICMD_VAR):
                   macro = "Va";
                   break;
           default:
                   abort();
           }
   
           if (p->literal) {
                   parsebracket(p, buf, sz, pos);
                   return;
           }
   
         teximacroopen(p, macro);          teximacroopen(p, macro);
         p->seenws = 0;          p->seenws = 0;
         parsebracket(p, buf, sz, pos);          parsebracket(p, buf, sz, pos);
         if (*pos < sz - 1 &&          texipunctuate(p, buf, sz, pos);
                  ismpunct(buf[*pos]) &&  
                  ismspace(buf[*pos + 1])) {  
                 texiputchar(p, ' ');  
                 texiputchar(p, buf[*pos]);  
                 advance(p, buf, pos);  
         }  
         teximacroclose(p);          teximacroclose(p);
 }  }
   
Line 1129  doinclude(struct texi *p, enum texicmd cmd, 
Line 1204  doinclude(struct texi *p, enum texicmd cmd, 
 }  }
   
 static void  static void
 doitalic(struct texi *p, enum texicmd cmd,  dofont(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
           const char      *font;
   
         texiputchars(p, "\\fI");          switch (cmd) {
           case (TEXICMD_B):
           case (TEXICMD_STRONG):
                   font = "\\fB";
                   break;
           case (TEXICMD_CITE):
           case (TEXICMD_DFN):
           case (TEXICMD_EMPH):
           case (TEXICMD_I):
           case (TEXICMD_SLANTED):
                   font = "\\fI";
                   break;
           case (TEXICMD_CODE):
           case (TEXICMD_KBD):
           case (TEXICMD_R):
           case (TEXICMD_SAMP):
           case (TEXICMD_SANSSERIF):
           case (TEXICMD_T):
                   font = "\\fR";
                   break;
           default:
                   abort();
           }
   
           texiputchars(p, font);
         parsebracket(p, buf, sz, pos);          parsebracket(p, buf, sz, pos);
         texiputchars(p, "\\fP");          texiputchars(p, "\\fP");
 }  }
   
 static void  static void
 doenv(struct texi *p, enum texicmd cmd,  
         const char *buf, size_t sz, size_t *pos)  
 {  
   
         if (p->literal)  
                 parsebracket(p, buf, sz, pos);  
         else  
                 doinline(p, buf, sz, pos, "Ev");  
 }  
   
 static void  
 doliteral(struct texi *p, enum texicmd cmd,  
         const char *buf, size_t sz, size_t *pos)  
 {  
   
         if (p->literal)  
                 parsebracket(p, buf, sz, pos);  
         else  
                 doinline(p, buf, sz, pos, "Li");  
 }  
   
 static void  
 doemph(struct texi *p, enum texicmd cmd,  
         const char *buf, size_t sz, size_t *pos)  
 {  
   
         if (p->literal)  
                 doitalic(p, cmd, buf, sz, pos);  
         else  
                 doinline(p, buf, sz, pos, "Em");  
 }  
   
 static void  
 docommand(struct texi *p, enum texicmd cmd,  
         const char *buf, size_t sz, size_t *pos)  
 {  
   
         doinline(p, buf, sz, pos, "Xr");  
 }  
   
 static void  
 dobracket(struct texi *p, enum texicmd cmd,  dobracket(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
Line 1188  dobracket(struct texi *p, enum texicmd cmd, 
Line 1247  dobracket(struct texi *p, enum texicmd cmd, 
 }  }
   
 static void  static void
 dofile(struct texi *p, enum texicmd cmd,  
         const char *buf, size_t sz, size_t *pos)  
 {  
   
         if (p->literal)  
                 parsebracket(p, buf, sz, pos);  
         else  
                 doinline(p, buf, sz, pos, "Pa");  
 }  
   
 static void  
 dodisplay(struct texi *p, enum texicmd cmd,  dodisplay(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
   
         teximacro(p, "Bd -display -offset indent");          teximacro(p, "Bd -display -offset indent");
           p->seenvs = 1;
           /* FIXME: ignore and parseeoln. */
         advanceeoln(p, buf, sz, pos, 1);          advanceeoln(p, buf, sz, pos, 1);
         parseto(p, buf, sz, pos, "display");          parseto(p, buf, sz, pos, "display");
         teximacro(p, "Ed");          teximacro(p, "Ed");
Line 1218  doexample(struct texi *p, enum texicmd cmd, 
Line 1268  doexample(struct texi *p, enum texicmd cmd, 
         blk = TEXICMD_EXAMPLE == cmd ?  "example" : "smallexample";          blk = TEXICMD_EXAMPLE == cmd ?  "example" : "smallexample";
   
         teximacro(p, "Bd -literal -offset indent");          teximacro(p, "Bd -literal -offset indent");
           /* FIXME: ignore and parseeoln. */
         advanceeoln(p, buf, sz, pos, 1);          advanceeoln(p, buf, sz, pos, 1);
         p->literal++;          p->literal++;
         parseto(p, buf, sz, pos, blk);          parseto(p, buf, sz, pos, blk);
Line 1235  dobye(struct texi *p, enum texicmd cmd, 
Line 1286  dobye(struct texi *p, enum texicmd cmd, 
 }  }
   
 static void  static void
   dotitle(struct texi *p, enum texicmd cmd,
           const char *buf, size_t sz, size_t *pos)
   {
           size_t   start, end;
   
           while (*pos < sz && isws(buf[*pos]))
                   advance(p, buf, pos);
           start = end = *pos;
           while (end < sz && '\n' != buf[end])
                   end++;
           free(p->subtitle);
           p->subtitle = malloc(end - start + 1);
           memcpy(p->subtitle, &buf[start], end - start);
           p->subtitle[end - start] = '\0';
   }
   
   static void
 dosymbol(struct texi *p, enum texicmd cmd,  dosymbol(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
Line 1370  dolink(struct texi *p, enum texicmd cmd, 
Line 1438  dolink(struct texi *p, enum texicmd cmd, 
                 c = parsearg(p, buf, sz, pos, 1);                  c = parsearg(p, buf, sz, pos, 1);
         p->ign--;          p->ign--;
   
         if (*pos < sz - 1 &&          texipunctuate(p, buf, sz, pos);
                  ismpunct(buf[*pos]) &&  
                  ismspace(buf[*pos + 1])) {  
                 texiputchar(p, ' ');  
                 texiputchar(p, buf[*pos]);  
                 advance(p, buf, pos);  
         }  
   
         teximacroclose(p);          teximacroclose(p);
 }  }
   
Line 1399  dosubsection(struct texi *p, enum texicmd cmd, 
Line 1460  dosubsection(struct texi *p, enum texicmd cmd, 
                 const char *buf, size_t sz, size_t *pos)                  const char *buf, size_t sz, size_t *pos)
 {  {
   
         teximacro(p, "Pp");          texivspace(p);
         teximacroopen(p, "Em");          teximacroopen(p, "Em");
         parseeoln(p, buf, sz, pos);          parseeoln(p, buf, sz, pos);
         teximacroclose(p);          teximacroclose(p);
         teximacro(p, "Pp");          texivspace(p);
 }  }
   
 static void  static void
 dosection(struct texi *p, enum texicmd cmd,  dosection(struct texi *p, enum texicmd cmd,
                 const char *buf, size_t sz, size_t *pos)                  const char *buf, size_t sz, size_t *pos)
 {  {
           const char      *blk;
   
           switch (cmd) {
           case (TEXICMD_APPENDIX):
           case (TEXICMD_CHAPTER):
           case (TEXICMD_TOP):
           case (TEXICMD_UNNUMBERED):
                   blk = "Sh";
                   break;
           case (TEXICMD_APPENDIXSEC):
           case (TEXICMD_HEADING):
           case (TEXICMD_SECTION):
           case (TEXICMD_UNNUMBEREDSEC):
                   blk = "Ss";
                   break;
           default:
                   abort();
           }
   
         if (p->outmacro)          if (p->outmacro)
                 texierr(p, "subsection in open line scope!?");                  texierr(p, "%s in open line scope!?", blk);
         else if (p->literal)          else if (p->literal)
                 texierr(p, "subsection in a literal scope!?");                  texierr(p, "%s in a literal scope!?", blk);
   
         teximacroopen(p, "Ss");          teximacroopen(p, blk);
         parseeoln(p, buf, sz, pos);          parseeoln(p, buf, sz, pos);
         teximacroclose(p);          teximacroclose(p);
           p->seenvs = 1;
 }  }
   
 static void  static void
Line 1426  dosp(struct texi *p, enum texicmd cmd, 
Line 1506  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)
 {  {
   
         teximacro(p, "Pp");          texivspace(p);
           /* FIXME: ignore and parseeoln. */
         advanceeoln(p, buf, sz, pos, 1);          advanceeoln(p, buf, sz, pos, 1);
 }  }
   
 static void  static void
 dochapter(struct texi *p, enum texicmd cmd,  
         const char *buf, size_t sz, size_t *pos)  
 {  
   
         if (p->outmacro)  
                 texierr(p, "section in open line scope!?");  
         else if (p->literal)  
                 texierr(p, "section in a literal scope!?");  
   
         teximacroopen(p, "Sh");  
         parseeoln(p, buf, sz, pos);  
         teximacroclose(p);  
 }  
   
 static void  
 dotop(struct texi *p, enum texicmd cmd,  dotop(struct texi *p, enum texicmd cmd,
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
           const char      *cp;
           time_t           t;
           char             date[32];
   
           t = time(NULL);
           strftime(date, sizeof(date), "%F", localtime(&t));
   
         p->ign--;          p->ign--;
         advanceeoln(p, buf, sz, pos, 1);          teximacroopen(p, "Dd");
         teximacro(p, "Dd $Mdocdate$");          texiputchars(p, date);
         teximacro(p, "Dt SOMETHING 7");          teximacroclose(p);
           teximacroopen(p, "Dt");
           for (cp = p->title; '\0' != *cp; cp++)
                   texiputchar(p, toupper(*cp));
           texiputchars(p, " 7");
           teximacroclose(p);
         teximacro(p, "Os");          teximacro(p, "Os");
         teximacro(p, "Sh NAME");          teximacro(p, "Sh NAME");
         teximacro(p, "Nm Something");          teximacroopen(p, "Nm");
         teximacro(p, "Nd Something");          texiputchars(p, p->title);
           teximacroclose(p);
           teximacroopen(p, "Nd");
           texiputchars(p, NULL != p->subtitle ?
                   p->subtitle : "Unknown description");
           teximacroclose(p);
           p->seenvs = 1;
           dosection(p, cmd, buf, sz, pos);
 }  }
   
 static void  static void
Line 1478  doitem(struct texi *p, enum texicmd cmd, 
Line 1562  doitem(struct texi *p, enum texicmd cmd, 
                 teximacro(p, "It");                  teximacro(p, "It");
                 break;                  break;
         default:          default:
                 teximacro(p, "Pp");                  texivspace(p);
                 break;                  break;
         }          }
           p->seenvs = 1;
   
         parseeoln(p, buf, sz, pos);          parseeoln(p, buf, sz, pos);
   
Line 1498  dotable(struct texi *p, enum texicmd cmd, 
Line 1583  dotable(struct texi *p, enum texicmd cmd, 
   
         p->list = TEXILIST_ITEM;          p->list = TEXILIST_ITEM;
         teximacro(p, "Bl -tag -width Ds");          teximacro(p, "Bl -tag -width Ds");
           /* FIXME: ignore and parseeoln. */
           advanceeoln(p, buf, sz, pos, 1);
           p->seenvs = 1;
         parseto(p, buf, sz, pos, "table");          parseto(p, buf, sz, pos, "table");
         teximacro(p, "El");          teximacro(p, "El");
         p->list = sv;          p->list = sv;
Line 1511  doenumerate(struct texi *p, enum texicmd cmd, 
Line 1599  doenumerate(struct texi *p, enum texicmd cmd, 
   
         p->list = TEXILIST_NOITEM;          p->list = TEXILIST_NOITEM;
         teximacro(p, "Bl -enum");          teximacro(p, "Bl -enum");
           p->seenvs = 1;
           /* FIXME: ignore and parseeoln. */
           advanceeoln(p, buf, sz, pos, 1);
         parseto(p, buf, sz, pos, "enumerate");          parseto(p, buf, sz, pos, "enumerate");
         teximacro(p, "El");          teximacro(p, "El");
         p->list = sv;          p->list = sv;
Line 1524  doitemize(struct texi *p, enum texicmd cmd, 
Line 1615  doitemize(struct texi *p, enum texicmd cmd, 
   
         p->list = TEXILIST_ITEM;          p->list = TEXILIST_ITEM;
         teximacro(p, "Bl -bullet");          teximacro(p, "Bl -bullet");
           p->seenvs = 1;
           /* FIXME: ignore and parseeoln. */
           advanceeoln(p, buf, sz, pos, 1);
         parseto(p, buf, sz, pos, "itemize");          parseto(p, buf, sz, pos, "itemize");
         teximacro(p, "El");          teximacro(p, "El");
         p->list = sv;          p->list = sv;
Line 1544  doignline(struct texi *p, enum texicmd cmd, 
Line 1638  doignline(struct texi *p, enum texicmd cmd, 
         const char *buf, size_t sz, size_t *pos)          const char *buf, size_t sz, size_t *pos)
 {  {
   
           /* FIXME: ignore and parseeoln. */
         advanceeoln(p, buf, sz, pos, 1);          advanceeoln(p, buf, sz, pos, 1);
 }  }
   
Line 1599  main(int argc, char *argv[])
Line 1694  main(int argc, char *argv[])
         struct texi      texi;          struct texi      texi;
         int              c;          int              c;
         char            *path, *dir;          char            *path, *dir;
         const char      *progname, *Idir;          const char      *progname, *Idir, *cp;
   
         progname = strrchr(argv[0], '/');          progname = strrchr(argv[0], '/');
         if (progname == NULL)          if (progname == NULL)
Line 1607  main(int argc, char *argv[])
Line 1702  main(int argc, char *argv[])
         else          else
                 ++progname;                  ++progname;
   
           memset(&texi, 0, sizeof(struct texi));
         Idir = NULL;          Idir = NULL;
   
         while (-1 != (c = getopt(argc, argv, "I:")))          while (-1 != (c = getopt(argc, argv, "I:")))
                 switch (c) {                  switch (c) {
                 case ('I'):                  case ('I'):
Line 1631  main(int argc, char *argv[])
Line 1728  main(int argc, char *argv[])
         }          }
         free(path);          free(path);
   
         memset(&texi, 0, sizeof(struct texi));          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.ign = 1;
         texi.dirs = parsedirs(dir, Idir, &texi.dirsz);          texi.dirs = parsedirs(dir, Idir, &texi.dirsz);
         parsefile(&texi, argv[0]);          parsefile(&texi, argv[0]);
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.12
CVSweb