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

Diff for /texi2mdoc/main.c between version 1.25 and 1.27

version 1.25, 2015/02/20 12:25:25 version 1.27, 2015/02/21 17:00:33
Line 44  static void doaccent(struct texi *, enum texicmd, cons
Line 44  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 107  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 108  static const struct texitok __texitoks[TEXICMD__MAX] =
         { 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 158  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 161  static const struct texitok __texitoks[TEXICMD__MAX] =
         { 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 173  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 176  static const struct texitok __texitoks[TEXICMD__MAX] =
         { 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 */
           { doignline, "", 0 }, /* TEXICMD_INDEX */
         { 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 227  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 231  static const struct texitok __texitoks[TEXICMD__MAX] =
         { 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, "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 262  static const struct texitok __texitoks[TEXICMD__MAX] =
Line 267  static const struct texitok __texitoks[TEXICMD__MAX] =
 const   struct texitok *const texitoks = __texitoks;  const   struct texitok *const texitoks = __texitoks;
   
 static void  static void
   dodefindex(struct texi *p, enum texicmd cmd,
           const char *buf, size_t sz, size_t *pos)
   {
           size_t   start, end;
           char    *cp;
   
           while (*pos < sz && isws(buf[*pos]))
                   advance(p, buf, pos);
   
           start = end = *pos;
           while (end < sz && ! ismspace(buf[end]))
                   end++;
   
           if (start == end) {
                   advanceeoln(p, buf, sz, pos, 1);
                   return;
           } else if (NULL == (cp = malloc(end - start + 1)))
                   texiabort(p, NULL);
   
           memcpy(cp, &buf[start], end - start);
           cp[end - start] = '\0';
   
           p->indexs = realloc(p->indexs,
                   sizeof(char *) * (p->indexsz + 1));
   
           if (NULL == p->indexs)
                   texiabort(p, NULL);
           p->indexs[p->indexsz++] = cp;
   }
   
   static void
 dodefn(struct texi *p, enum texicmd cmd,  dodefn(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 388  static void
Line 424  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 + 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 464  doverb(struct texi *p, enum texicmd cmd, 
Line 524  doverb(struct texi *p, enum texicmd cmd, 
         const char      *end, *term;          const char      *end, *term;
         size_t           endsz, endpos;          size_t           endsz, endpos;
   
           advanceeoln(p, buf, sz, pos, 1);
   
         /* We end at exactly this token. */          /* We end at exactly this token. */
         end = "\n@end verbatim\n";          end = "\n@end verbatim\n";
         endsz = strlen(end);          endsz = strlen(end);
Line 479  doverb(struct texi *p, enum texicmd cmd, 
Line 541  doverb(struct texi *p, enum texicmd cmd, 
   
         teximacro(p, "Bd -literal -offset indent");          teximacro(p, "Bd -literal -offset indent");
         assert(endpos <= sz);          assert(endpos <= sz);
         /* Run to the point inclusive the endpoint newline. */          while (*pos < endpos) {
         while (*pos < endpos + 1) {                  if (buf[*pos] == '\n')
                           p->outcol = 0;
                   else
                           p->outcol++;
                 if (*pos > 0 && '.' == buf[*pos])                  if (*pos > 0 && '.' == buf[*pos])
                         if ('\n' == buf[*pos - 1])                          if ('\n' == buf[*pos - 1])
                                 fputs("\\&", stdout);                                  fputs("\\&", stdout);
Line 490  doverb(struct texi *p, enum texicmd cmd, 
Line 555  doverb(struct texi *p, enum texicmd cmd, 
                 advance(p, buf, pos);                  advance(p, buf, pos);
         }          }
         teximacro(p, "Ed");          teximacro(p, "Ed");
         advanceto(p, buf, pos, *pos + endpos + endsz);          advanceto(p, buf, pos, endpos + endsz);
 }  }
   
 static void  static void
Line 681  dotitle(struct texi *p, enum texicmd cmd, 
Line 746  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 894  dovalue(struct texi *p, enum texicmd cmd, 
Line 962  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           start, end;          size_t           start, end;
         int              clr;  
         char            *key, *val;          char            *key, *val;
         const char      *cp;          const char      *cp;
   
Line 910  dovalue(struct texi *p, enum texicmd cmd, 
Line 977  dovalue(struct texi *p, enum texicmd cmd, 
                 advanceto(p, buf, pos, end);                  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';
   
Line 926  dovalue(struct texi *p, enum texicmd cmd, 
Line 991  dovalue(struct texi *p, enum texicmd cmd, 
                 advanceeoln(p, buf, sz, pos, 1);                  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);                  valueadd(p, key, val);
Line 942  dovalue(struct texi *p, enum texicmd cmd, 
Line 1005  dovalue(struct texi *p, enum texicmd cmd, 
                 else                  else
                         texiputchars(p, cp);                          texiputchars(p, cp);
         } else if (TEXICMD_IFCLEAR == cmd) {          } else if (TEXICMD_IFCLEAR == cmd) {
                 clr = NULL != valuellookup(p, buf, sz, pos);                  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)  
                         p->ign--;  
         } else if (TEXICMD_CLEAR == cmd)          } else if (TEXICMD_CLEAR == cmd)
                 valuelclear(p, buf, sz, pos);                  valuelclear(p, buf, sz, pos);
 }  }
Line 1121  dotop(struct texi *p, enum texicmd cmd, 
Line 1182  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 1131  dotop(struct texi *p, enum texicmd cmd, 
Line 1195  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 1339  doignline(struct texi *p, enum texicmd cmd, 
Line 1402  doignline(struct texi *p, enum texicmd cmd, 
  * 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;
Line 1351  parsedirs(const char *base, const char *cp, size_t *sz
Line 1414  parsedirs(const char *base, const char *cp, size_t *sz
                 for ( ; NULL != (cpp = strchr(cpp, ':')); (*sz)++)                  for ( ; NULL != (cpp = strchr(cpp, ':')); (*sz)++)
                         cpp++;                          cpp++;
   
         dirs = calloc(*sz, sizeof(char *));          if (NULL == (dirs = calloc(*sz, sizeof(char *))))
         if (NULL == dirs) {                  texiabort(p, NULL);
                 perror(NULL);          else if (NULL == (dirs[0] = strdup(base)))
                 exit(EXIT_FAILURE);                  texiabort(p, NULL);
         } else if (NULL == (dirs[0] = strdup(base))) {  
                 perror(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)))
                 perror(NULL);                  texiabort(p, NULL);
                 exit(EXIT_FAILURE);  
         }  
   
         for (i = 1; NULL != (tok = strsep(&str, ":")); i++)          for (i = 1; 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 1408  main(int argc, char *argv[])
Line 1463  main(int argc, char *argv[])
         if (0 == (argc -= optind))          if (0 == (argc -= optind))
                 goto usage;                  goto usage;
   
         if (NULL == (path = strdup(argv[0]))) {          if (NULL == (path = strdup(argv[0])))
                 perror(NULL);                  texiabort(&texi, NULL);
                 exit(EXIT_FAILURE);          else if (NULL == (dir = dirname(path)))
         } else if (NULL == (dir = dirname(path))) {                  texiabort(&texi, NULL);
                 perror(argv[0]);  
                 free(path);  
                 exit(EXIT_FAILURE);  
         }  
         free(path);          free(path);
   
         if (NULL != (cp = strrchr(argv[0], '/')))          if (NULL != (cp = strrchr(argv[0], '/')))
Line 1423  main(int argc, char *argv[])
Line 1475  main(int argc, char *argv[])
         else          else
                 texi.title = strdup(argv[0]);                  texi.title = strdup(argv[0]);
   
         if (NULL == texi.title) {          if (NULL == texi.title)
                 perror(NULL);                  texiabort(&texi, NULL);
                 exit(EXIT_FAILURE);          else if (NULL != (path = strchr(texi.title, '.')))
         } else if (NULL != (path = strchr(texi.title, '.')))  
                 *path = '\0';                  *path = '\0';
   
         texi.ign = 1;          texi.ign = 1;
         texi.dirs = parsedirs(dir, Idir, &texi.dirsz);          texi.dirs = parsedirs(&texi, dir, Idir, &texi.dirsz);
         parsefile(&texi, argv[0], 1);          parsefile(&texi, argv[0], 1);
         /* We shouldn't get here. */          /* We shouldn't get here. */
         texiexit(&texi);          texiexit(&texi);
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.27
CVSweb