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

Diff for /pod2mdoc/pod2mdoc.c between version 1.32 and 1.38

version 1.32, 2014/07/18 05:09:32 version 1.38, 2015/02/13 12:40:54
Line 1 
Line 1 
 /*      $Id$ */  /*      $Id$    */
 /*  /*
  * Copyright (c) 2014 Kristaps Dzonsons <kristaps@bsd.lv>   * Copyright (c) 2014 Kristaps Dzonsons <kristaps@bsd.lv>
    * Copyright (c) 2014, 2015 Ingo Schwarze <schwarze@openbsd.org>
  *   *
  * Permission to use, copy, modify, and distribute this software for any   * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above   * purpose with or without fee is hereby granted, provided that the above
Line 26 
Line 27 
 #include <string.h>  #include <string.h>
 #include <unistd.h>  #include <unistd.h>
   
   #include "dict.h"
   
 /*  /*
  * In what section can we find Perl module manuals?   * In what section can we find Perl module manuals?
  * Sometimes (Mac OS X) it's 3pm, sometimes (OpenBSD, etc.) 3p.   * Sometimes (Mac OS X) it's 3pm, sometimes (OpenBSD, etc.) 3p.
Line 169  outbuf_addstr(struct state *st, const char *str)
Line 172  outbuf_addstr(struct state *st, const char *str)
         if (st->outbuflen + slen >= st->outbufsz)          if (st->outbuflen + slen >= st->outbufsz)
                 outbuf_grow(st, slen);                  outbuf_grow(st, slen);
         memcpy(st->outbuf + st->outbuflen, str, slen+1);          memcpy(st->outbuf + st->outbuflen, str, slen+1);
           st->outbuflen += slen;
         last = str[slen - 1];          last = str[slen - 1];
         st->wantws = 0;          st->wantws = 0;
 }  }
Line 242  formatescape(struct state *st, const char *buf, size_t
Line 246  formatescape(struct state *st, const char *buf, size_t
                 outbuf_addstr(st, "\\(la");                  outbuf_addstr(st, "\\(la");
         else if (0 == strcmp(esc, "gt"))          else if (0 == strcmp(esc, "gt"))
                 outbuf_addstr(st, "\\(ra");                  outbuf_addstr(st, "\\(ra");
         else if (0 == strcmp(esc, "vb"))          else if (0 == strcmp(esc, "verbar"))
                 outbuf_addstr(st, "\\(ba");                  outbuf_addstr(st, "\\(ba");
         else if (0 == strcmp(esc, "sol"))          else if (0 == strcmp(esc, "sol"))
                 outbuf_addstr(st, "\\(sl");                  outbuf_addstr(st, "\\(sl");
Line 469  again:
Line 473  again:
  * We usually exit in OUST_MAC mode, except when   * We usually exit in OUST_MAC mode, except when
  * entering without OUST_MAC and the code is invalid.   * entering without OUST_MAC and the code is invalid.
  */   */
 static void  static int
 formatcode(struct state *st, const char *buf, size_t *start,  formatcode(struct state *st, const char *buf, size_t *start,
         size_t end, int nomacro, int pos)          size_t end, int nomacro, int pos)
 {  {
Line 512  formatcode(struct state *st, const char *buf, size_t *
Line 516  formatcode(struct state *st, const char *buf, size_t *
          */           */
         if (FMT_ESCAPE == fmt) {          if (FMT_ESCAPE == fmt) {
                 formatescape(st, buf, start, end);                  formatescape(st, buf, start, end);
                 return;                  return(0);
         } else if (FMT_NULL == fmt || FMT_INDEX == fmt) {          } else if (FMT_NULL == fmt || FMT_INDEX == fmt) {
                 /*                  /*
                  * Just consume til the end delimiter, accounting for                   * Just consume til the end delimiter, accounting for
Line 542  formatcode(struct state *st, const char *buf, size_t *
Line 546  formatcode(struct state *st, const char *buf, size_t *
                 if (isspace(last))                  if (isspace(last))
                         while (*start < end && isspace((int)buf[*start]))                          while (*start < end && isspace((int)buf[*start]))
                                 (*start)++;                                  (*start)++;
                 return;                  return(0);
         }          }
   
         /*          /*
Line 611  formatcode(struct state *st, const char *buf, size_t *
Line 615  formatcode(struct state *st, const char *buf, size_t *
                         }                          }
                         if (0 == strncmp(buf + *start, "NULL", 4) &&                          if (0 == strncmp(buf + *start, "NULL", 4) &&
                             ('=' == buf[*start + 4] ||                              ('=' == buf[*start + 4] ||
                              '>' == buf[*start + 4]))                               '>' == buf[*start + 4])) {
                                 printf("Dv ");                                  printf("Dv ");
                                   break;
                           }
                           i = 0;
                           while (isalnum((unsigned char)buf[*start + i]) ||
                               '_' == buf[*start + i])
                                   i++;
                           if (i && MDOC_Fa == dict_get(buf + *start, i))
                                   printf("Fa ");
                         else                          else
                                 printf("Sy ");                                  printf("Sy ");
                         break;                          break;
Line 665  formatcode(struct state *st, const char *buf, size_t *
Line 677  formatcode(struct state *st, const char *buf, size_t *
                                 break;                                  break;
                         }                          }
                 }                  }
                 if (*start + 1 < end && '<' == buf[*start + 1]) {                  if (*start + 1 < end && '<' == buf[*start + 1] &&
                       'A' <= buf[*start] && 'Z' >= buf[*start]) {
                         formatcode(st, buf, start, end, nomacro, 1);                          formatcode(st, buf, start, end, nomacro, 1);
                         continue;                          continue;
                 }                  }
Line 680  formatcode(struct state *st, const char *buf, size_t *
Line 693  formatcode(struct state *st, const char *buf, size_t *
                         continue;                          continue;
                 }                  }
   
                 if (OUST_MAC == st->oust) {                  if (OUST_MAC == st->oust && FMT__MAX != fmt) {
                         if ( ! st->wantws) {                          if ( ! st->wantws) {
                                 printf(" Ns ");                                  printf(" Ns ");
                                 st->wantws = 1;                                  st->wantws = 1;
Line 708  formatcode(struct state *st, const char *buf, size_t *
Line 721  formatcode(struct state *st, const char *buf, size_t *
                         putchar('e');                          putchar('e');
         }          }
   
           if (FMT__MAX == fmt)
                   return(0);
   
         if ( ! nomacro && FMT_CODE == fmt)          if ( ! nomacro && FMT_CODE == fmt)
                 printf(" Qc ");                  printf(" Qc ");
   
         if (FMT__MAX != fmt)          st->wantws = ' ' == last;
                 st->wantws = ' ' == last;          return(1);
 }  }
   
 /*  /*
Line 725  static void
Line 741  static void
 formatcodeln(struct state *st, const char *linemac,  formatcodeln(struct state *st, const char *linemac,
         const char *buf, size_t *start, size_t end, int nomacro)          const char *buf, size_t *start, size_t end, int nomacro)
 {  {
           int      gotmacro, wantws;
   
         assert(OUST_NL == st->oust);          assert(OUST_NL == st->oust);
         assert(st->wantws);          assert(st->wantws);
         printf(".%s ", linemac);          printf(".%s ", linemac);
         st->oust = OUST_MAC;          st->oust = OUST_MAC;
   
         last = ' ';          gotmacro = 0;
         while (*start < end)  {          while (*start < end)  {
                 if (*start + 1 < end && '<' == buf[*start + 1]) {                  wantws = ' ' == buf[*start] || '\n' == buf[*start];
                         formatcode(st, buf, start, end, nomacro, 1);                  if (wantws) {
                           last = ' ';
                           do {
                                   (*start)++;
                           } while (*start < end && ' ' == buf[*start]);
                   }
   
                   if (*start + 1 < end && '<' == buf[*start + 1] &&
                       'A' <= buf[*start] && 'Z' >= buf[*start]) {
                           st->wantws |= wantws;
                           gotmacro = formatcode(st, buf,
                               start, end, nomacro, 1);
                         continue;                          continue;
                 }                  }
   
                 if (OUST_MAC == st->oust) {                  if (gotmacro) {
                         if ( ! st->wantws &&                          if (*start < end || st->outbuflen) {
                             ' ' != buf[*start] &&                                  if (st->wantws ||
                             '\n' != buf[*start])                                      (wantws && !st->outbuflen))
                                 printf(" Ns ");                                          printf(" No ");
                         st->wantws = 1;                                  else
                                           printf(" Ns ");
                           }
                           gotmacro = 0;
                 }                  }
                   outbuf_flush(st);
                   st->wantws = wantws;
   
                   if (*start >= end)
                           break;
   
                   if (st->wantws) {
                           putchar(' ');
                           st->wantws = 0;
                   }
   
                 /*                  /*
                  * Since we're already on a macro line, we want to make                   * Since we're already on a macro line, we want to make
                  * sure that we don't inadvertently invoke a macro.                   * sure that we don't inadvertently invoke a macro.
Line 754  formatcodeln(struct state *st, const char *linemac,
Line 795  formatcodeln(struct state *st, const char *linemac,
                  * something that needn't be escaped.                   * something that needn't be escaped.
                  */                   */
                 if (' ' == last && end - *start > 1 &&                  if (' ' == last && end - *start > 1 &&
                                 isupper((int)buf[*start]) &&                      isupper((unsigned char)buf[*start]) &&
                                 islower((int)buf[*start + 1]) &&                      islower((unsigned char)buf[*start + 1]) &&
                                 (end - *start == 2 ||                      (end - *start == 2 || ' ' == buf[*start + 2]))
                                  ' ' == buf[*start + 2]))  
                         printf("\\&");                          printf("\\&");
   
                 if ('\n' == buf[*start])                  putchar(last = buf[*start]);
                         putchar(last = ' ');  
                 else  
                         putchar(last = buf[*start]);  
   
                 /* Protect against character escapes. */                  /* Protect against character escapes. */
   
                 if ('\\' == last)                  if ('\\' == last)
                         putchar('e');                          putchar('e');
   
Line 981  command(struct state *st, const char *buf, size_t star
Line 1019  command(struct state *st, const char *buf, size_t star
  * always stays in OUST_NL/wantws mode.   * always stays in OUST_NL/wantws mode.
  */   */
 static void  static void
 verbatim(struct state *st, const char *buf, size_t start, size_t end)  verbatim(struct state *st, char *buf, size_t start, size_t end)
 {  {
         size_t           i;          size_t           i, ift, ifo, ifa, ifc, inl;
           char            *cp, *cp2;
           int              nopen;
   
         if ( ! st->parsing || st->paused)          if ( ! st->parsing || st->paused || start == end)
                 return;                  return;
 again:  again:
         /*          /*
Line 996  again:
Line 1036  again:
          */           */
         if (SECT_SYNOPSIS == st->sect) {          if (SECT_SYNOPSIS == st->sect) {
                 i = start;                  i = start;
                 for (i = start; i < end && ' ' == buf[i]; i++)                  while (i < end && buf[i] == ' ')
                         /* Spin. */ ;                          i++;
                 if (i == end)                  if (i == end)
                         return;                          return;
   
                 /* We're an include block! */                  /* We're an include block! */
                 if (end - i > 10 &&                  if (end - i > 10 &&
                         0 == memcmp(&buf[i], "#include <", 10)) {                          0 == memcmp(&buf[i], "#include <", 10)) {
Line 1020  again:
Line 1061  again:
                                 goto again;                                  goto again;
                         return;                          return;
                 }                  }
   
                   /* Parse function declaration. */
                   ifo = ifa = ifc = 0;
                   inl = end;
                   nopen = 0;
                   for (ift = i; i < end; i++) {
                           if (ifc) {
                                   if (buf[i] != '\n')
                                           continue;
                                   inl = i;
                                   break;
                           }
                           switch (buf[i]) {
                           case ' ':
                                   if ( ! ifa)
                                           ifo = i;
                                   break;
                           case '(':
                                   if (ifo) {
                                           nopen++;
                                           if ( ! ifa)
                                                   ifa = i;
                                   } else
                                           i = end;
                                   break;
                           case ')':
                                   switch (nopen) {
                                   case 0:
                                           i = end;
                                           break;
                                   case 1:
                                           ifc = i;
                                           break;
                                   default:
                                           nopen--;
                                           break;
                                   }
                                   break;
                           default:
                                   break;
                           }
                   }
   
                   /* Encode function declaration. */
                   if (ifc) {
                           for (i = ifa; i < ifc; i++)
                                   if (buf[i] == '\n')
                                           buf[i] = ' ';
                           buf[ifo++] = '\0';
                           printf(".Ft %s", buf + ift);
                           if (buf[ifo] == '*') {
                                   fputs(" *", stdout);
                                   ifo++;
                           }
                           putchar('\n');
                           buf[ifa++] = '\0';
                           printf(".Fo %s\n", buf + ifo);
                           dict_put(buf + ifo, MDOC_Fo);
                           buf[ifc++] = '\0';
                           for (;;) {
                                   cp = strchr(buf + ifa, ',');
                                   if (cp != NULL) {
                                           cp2 = cp;
                                           *cp++ = '\0';
                                   } else
                                           cp2 = strchr(buf + ifa, '\0');
                                   while (isalnum((unsigned char)cp2[-1]) ||
                                       '_' == cp2[-1])
                                           cp2--;
                                   if ('\0' != *cp2)
                                           dict_put(cp2, MDOC_Fa);
                                   printf(".Fa \"%s\"\n", buf + ifa);
                                   if (cp == NULL)
                                           break;
                                   while (*cp == ' ')
                                           cp++;
                                   ifa = cp - buf;
                           }
                           puts(".Fc");
                           if (buf[ifc] == ';')
                                   ifc++;
                           if (ifc < inl) {
                                   buf[inl] = '\0';
                                   puts(buf + ifc);
                           }
                           start = inl + 1;
                           if (start < end)
                                   goto again;
                           return;
                   }
         }          }
   
         if (start == end)  
                 return;  
         puts(".Bd -literal");          puts(".Bd -literal");
         for (last = ' '; start < end; start++) {          for (last = ' '; start < end; start++) {
                 /*                  /*
Line 1195  ordinary(struct state *st, const char *buf, size_t sta
Line 1324  ordinary(struct state *st, const char *buf, size_t sta
                  * Escape initial control characters.                   * Escape initial control characters.
                  */                   */
                 while (start < end) {                  while (start < end) {
                         if (start < end - 1 && '<' == buf[start + 1])                          if (start < end - 1 && '<' == buf[start + 1] &&
                               'A' <= buf[start] && 'Z' >= buf[start])
                                 break;                                  break;
                         else if ('\n' == buf[start])                          else if ('\n' == buf[start])
                                 break;                                  break;
Line 1223  ordinary(struct state *st, const char *buf, size_t sta
Line 1353  ordinary(struct state *st, const char *buf, size_t sta
                          */                           */
   
                         last = buf[start++];                          last = buf[start++];
                         if (' ' == last) {                          if (' ' != last) {
                                 outbuf_flush(st);  
                                 putchar(' ');  
                                 st->wantws = 1;  
                         } else  
                                 outbuf_addchar(st);                                  outbuf_addchar(st);
                                   continue;
                           }
   
                           if ( ! strcmp(st->outbuf + st->outbuflen - 2, "()") &&
                               dict_get(st->outbuf, st->outbuflen - 2) ==
                               MDOC_Fo) {
                                   st->outbuflen -= 2;
                                   st->outbuf[st->outbuflen] = '\0';
                                   mdoc_newln(st);
                                   fputs(".Fn ", stdout);
                                   outbuf_flush(st);
                                   mdoc_newln(st);
                                   continue;
                           }
   
                           outbuf_flush(st);
                           putchar(' ');
                           st->wantws = 1;
                 }                  }
   
                 if (start < end - 1 && '<' == buf[start + 1]) {                  if (start < end - 1 && '<' == buf[start + 1] &&
                       'A' <= buf[start] && 'Z' >= buf[start]) {
                         formatcode(st, buf, &start, end, 0, seq);                          formatcode(st, buf, &start, end, 0, seq);
                         if (OUST_MAC == st->oust) {                          if (OUST_MAC == st->oust) {
                                 /*                                  /*
Line 1269  ordinary(struct state *st, const char *buf, size_t sta
Line 1414  ordinary(struct state *st, const char *buf, size_t sta
                                  */                                   */
   
                                 if ( ! st->wantws && start < end &&                                  if ( ! st->wantws && start < end &&
                                     '<' != buf[start + 1]) {                                      ('<' != buf[start + 1] ||
                                        'A' > buf[start] ||
                                        'Z' < buf[start])) {
                                         printf(" Ns ");                                          printf(" Ns ");
                                         st->wantws = 1;                                          st->wantws = 1;
                                 }                                  }
Line 1304  ordinary(struct state *st, const char *buf, size_t sta
Line 1451  ordinary(struct state *st, const char *buf, size_t sta
  * (default: starts with "=").   * (default: starts with "=").
  */   */
 static void  static void
 dopar(struct state *st, const char *buf, size_t start, size_t end)  dopar(struct state *st, char *buf, size_t start, size_t end)
 {  {
   
         assert(OUST_NL == st->oust);          assert(OUST_NL == st->oust);
Line 1326  dopar(struct state *st, const char *buf, size_t start,
Line 1473  dopar(struct state *st, const char *buf, size_t start,
  */   */
 static void  static void
 dofile(const struct args *args, const char *fname,  dofile(const struct args *args, const char *fname,
         const struct tm *tm, const char *buf, size_t sz)          const struct tm *tm, char *buf, size_t sz)
 {  {
         char             datebuf[64];          char             datebuf[64];
         struct state     st;          struct state     st;
Line 1391  dofile(const struct args *args, const char *fname, 
Line 1538  dofile(const struct args *args, const char *fname, 
   
         free(title);          free(title);
   
           dict_init();
         memset(&st, 0, sizeof(struct state));          memset(&st, 0, sizeof(struct state));
         st.oust = OUST_NL;          st.oust = OUST_NL;
         st.wantws = 1;          st.wantws = 1;
Line 1418  dofile(const struct args *args, const char *fname, 
Line 1566  dofile(const struct args *args, const char *fname, 
                 dopar(&st, buf, cur, end);                  dopar(&st, buf, cur, end);
                 cur = sup;                  cur = sup;
         }          }
           dict_destroy();
 }  }
   
 /*  /*
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.38
CVSweb