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

Diff for /pod2mdoc/pod2mdoc.c between version 1.54 and 1.61

version 1.54, 2015/02/19 15:26:45 version 1.61, 2015/05/19 19:22:14
Line 16 
Line 16 
  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.   * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  */   */
 #include <sys/stat.h>  #include <sys/stat.h>
 #include <sys/time.h>  
   
 #include <assert.h>  #include <assert.h>
 #include <ctype.h>  #include <ctype.h>
Line 25 
Line 24 
 #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>
   
 #include "dict.h"  #include "dict.h"
Line 75  struct state {
Line 75  struct state {
         char            *outbuf; /* text buffered for output */          char            *outbuf; /* text buffered for output */
         size_t           outbufsz; /* allocated size of outbuf */          size_t           outbufsz; /* allocated size of outbuf */
         size_t           outbuflen; /* current length of outbuf */          size_t           outbuflen; /* current length of outbuf */
           size_t           outlnlen; /* chars so far on this output line */
 };  };
   
 enum    fmt {  enum    fmt {
Line 107  enum cmd {
Line 108  enum cmd {
         CMD__MAX          CMD__MAX
 };  };
   
   static void      command(struct state *, const char *, size_t, size_t);
   static void      dofile(const struct args *, const char *,
                           const struct tm *, char *, size_t);
   static void      donamenm(struct state *, const char *, size_t *, size_t);
   static void      dopar(struct state *, char *, size_t, size_t);
   static void      dosynopsisfl(const char *, size_t *, size_t);
   static int       dosynopsisop(struct state *, const char *, size_t *,
                           size_t, size_t *);
   static int       formatcode(struct state *, const char *, size_t *,
                           size_t, int, int);
   static void      formatcodeln(struct state *, const char *, const char *,
                           size_t *, size_t, int);
   static void      formatescape(struct state *, const char *, size_t *, size_t);
   static int       hasmatch(const char *, size_t, size_t);
   static void      ordinary(struct state *, const char *, size_t, size_t);
   static void      outbuf_addchar(struct state *);
   static void      outbuf_addstr(struct state *, const char *);
   static void      outbuf_flush(struct state *);
   static void      outbuf_grow(struct state *, size_t);
   static enum list listguess(const char *, size_t, size_t);
   static void      mdoc_newln(struct state *);
   static int       readfile(const struct args *, const char *);
   static void      register_type(const char *);
   static int       trylink(const char *, size_t *, size_t, size_t);
   static void      verbatim(struct state *, char *, size_t, size_t);
   
 static  const char *const cmds[CMD__MAX] = {  static  const char *const cmds[CMD__MAX] = {
         "pod",          /* CMD_POD */          "pod",          /* CMD_POD */
         "head1",        /* CMD_HEAD1 */          "head1",        /* CMD_HEAD1 */
         "head2",        /* CMD_HEAD2 */          "head2",        /* CMD_HEAD2 */
         "head3",        /* CMD_HEAD3 */          "head3",        /* CMD_HEAD3 */
Line 135  static const char fmts[FMT__MAX] = {
Line 162  static const char fmts[FMT__MAX] = {
         'Z'             /* FMT_NULL */          'Z'             /* FMT_NULL */
 };  };
   
 static  unsigned char   last;  static  unsigned char   last;
   
   
 static void  static void
Line 182  outbuf_flush(struct state *st)
Line 209  outbuf_flush(struct state *st)
         if (0 == st->outbuflen)          if (0 == st->outbuflen)
                 return;                  return;
   
         if (OUST_TXT == st->oust && st->wantws)          st->outlnlen += st->outbuflen;
           if (OUST_TXT == st->oust && st->wantws) {
                   if (++st->outlnlen > 72) {
                           putchar('\n');
                           st->oust = OUST_NL;
                           st->outlnlen = st->outbuflen;
                   }
           }
           if (OUST_NL != st->oust && st->wantws)
                 putchar(' ');                  putchar(' ');
   
         if (OUST_MAC == st->oust && '"' == *st->outbuf)          if (OUST_MAC == st->oust && '"' == *st->outbuf)
Line 207  mdoc_newln(struct state *st)
Line 242  mdoc_newln(struct state *st)
         putchar('\n');          putchar('\n');
         last = '\n';          last = '\n';
         st->oust = OUST_NL;          st->oust = OUST_NL;
           st->outlnlen = 0;
         st->wantws = 1;          st->wantws = 1;
 }  }
   
Line 245  formatescape(struct state *st, const char *buf, size_t
Line 281  formatescape(struct state *st, const char *buf, size_t
   
         /*          /*
          * TODO: right now, we only recognise the named escapes.           * TODO: right now, we only recognise the named escapes.
          * Just let the rest of them go.           * Just let the rest of them go.
          */           */
         if (0 == strcmp(esc, "lt"))          if (0 == strcmp(esc, "lt"))
                 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");
Line 269  formatescape(struct state *st, const char *buf, size_t
Line 305  formatescape(struct state *st, const char *buf, size_t
 static int  static int
 trylink(const char *buf, size_t *start, size_t end, size_t dsz)  trylink(const char *buf, size_t *start, size_t end, size_t dsz)
 {  {
         size_t           linkstart, realend, linkend,          size_t           linkstart, realend, linkend,
                          i, j, textsz, stack;                           i, j, textsz, stack;
   
         /*          /*
          * Scan to the start of the terminus.           * Scan to the start of the terminus.
          * This function is more or less replicated in the formatcode()           * This function is more or less replicated in the formatcode()
          * for null or index formatting codes.           * for null or index formatting codes.
          * However, we're slightly different because we might have           * However, we're slightly different because we might have
Line 292  trylink(const char *buf, size_t *start, size_t end, si
Line 328  trylink(const char *buf, size_t *start, size_t end, si
                 assert(realend > 0);                  assert(realend > 0);
                 if (' ' != buf[realend - 1])                  if (' ' != buf[realend - 1])
                         continue;                          continue;
                 for (i = realend, j = 0; i < end && j < dsz; j++)                  for (i = realend, j = 0; i < end && j < dsz; j++)
                         if ('>' != buf[i++])                          if ('>' != buf[i++])
                                 break;                                  break;
                 if (dsz == j)                  if (dsz == j)
                         break;                          break;
         }          }
   
Line 350  trylink(const char *buf, size_t *start, size_t end, si
Line 386  trylink(const char *buf, size_t *start, size_t end, si
                 (j > 3 && 0 == memcmp("smb:", &buf[linkstart], j)) ||                  (j > 3 && 0 == memcmp("smb:", &buf[linkstart], j)) ||
                 (j > 3 && 0 == memcmp("afs:", &buf[linkstart], j))) {                  (j > 3 && 0 == memcmp("afs:", &buf[linkstart], j))) {
                 /* Gross. */                  /* Gross. */
                 printf("Lk %.*s", (int)((dsz > 1 ? realend - 1 :                  printf("Lk %.*s", (int)((dsz > 1 ? realend - 1 :
                         realend) - linkstart), &buf[linkstart]);                          realend) - linkstart), &buf[linkstart]);
                 return(1);                  return(1);
         }          }
   
         /* See if we qualify as a mailto. */          /* See if we qualify as a mailto. */
         if (j > 6 && 0 == memcmp("mailto:", &buf[linkstart], j)) {          if (j > 6 && 0 == memcmp("mailto:", &buf[linkstart], j)) {
                 printf("Mt %.*s", (int)j, &buf[linkstart]);                  printf("Mt %.*s", (int)j, &buf[linkstart]);
Line 362  trylink(const char *buf, size_t *start, size_t end, si
Line 398  trylink(const char *buf, size_t *start, size_t end, si
         }          }
   
         /* See if we're a foo(5), foo(5x), or foo(5xx) manpage. */          /* See if we're a foo(5), foo(5x), or foo(5xx) manpage. */
         if ((j > 3 && ')' == buf[linkend - 1]) &&          if ((j > 3 && ')' == buf[linkend - 1]) &&
                 ('(' == buf[linkend - 3])) {                  ('(' == buf[linkend - 3])) {
                 printf("Xr %.*s %c", (int)(j - 3),                  printf("Xr %.*s %c", (int)(j - 3),
                         &buf[linkstart], buf[linkend - 2]);                          &buf[linkstart], buf[linkend - 2]);
                 return(1);                  return(1);
         } else if ((j > 4 && ')' == buf[linkend - 1]) &&          } else if ((j > 4 && ')' == buf[linkend - 1]) &&
                 ('(' == buf[linkend - 4])) {                  ('(' == buf[linkend - 4])) {
                 printf("Xr %.*s %.*s", (int)(j - 4),                  printf("Xr %.*s %.*s", (int)(j - 4),
                         &buf[linkstart], 2, &buf[linkend - 3]);                          &buf[linkstart], 2, &buf[linkend - 3]);
                 return(1);                  return(1);
         } else if ((j > 5 && ')' == buf[linkend - 1]) &&          } else if ((j > 5 && ')' == buf[linkend - 1]) &&
                 ('(' == buf[linkend - 5])) {                  ('(' == buf[linkend - 5])) {
                 printf("Xr %.*s %.*s", (int)(j - 5),                  printf("Xr %.*s %.*s", (int)(j - 5),
                         &buf[linkstart], 3, &buf[linkend - 4]);                          &buf[linkstart], 3, &buf[linkend - 4]);
                 return(1);                  return(1);
         }          }
Line 385  trylink(const char *buf, size_t *start, size_t end, si
Line 421  trylink(const char *buf, size_t *start, size_t end, si
                         break;                          break;
   
         if (i < linkend)          if (i < linkend)
                 printf("Xr %.*s " PERL_SECTION,                  printf("Xr %.*s " PERL_SECTION,
                         (int)j, &buf[linkstart]);                          (int)j, &buf[linkstart]);
         else          else
                 printf("Xr %.*s 1", (int)j, &buf[linkstart]);                  printf("Xr %.*s 1", (int)j, &buf[linkstart]);
Line 415  again:
Line 451  again:
                 '?' != buf[*start + 1] &&                  '?' != buf[*start + 1] &&
                 '-' != buf[*start + 1]) {                  '-' != buf[*start + 1]) {
                 (*start)--;                  (*start)--;
                 fputs("Ar ", stdout);                  fputs("Ar", stdout);
                 return;                  return;
         }          }
   
Line 435  again:
Line 471  again:
         assert(i < end);          assert(i < end);
   
         if ( ! (' ' == buf[i] || '>' == buf[i])) {          if ( ! (' ' == buf[i] || '>' == buf[i])) {
                 printf("Ar ");                  fputs("Ar", stdout);
                 return;                  return;
         }          }
   
         printf("Fl ");          printf("Fl ");
         if (end - *start > 1 &&          if (end - *start > 1 &&
                 isupper((int)buf[*start]) &&                  isupper((int)buf[*start]) &&
                 islower((int)buf[*start + 1]) &&                  islower((int)buf[*start + 1]) &&
                 (end - *start == 2 ||                  (end - *start == 2 ||
                  ' ' == buf[*start + 2]))                   ' ' == buf[*start + 2]))
                 printf("\\&");                  printf("\\&");
         printf("%.*s ", (int)(i - *start), &buf[*start]);          printf("%.*s", (int)(i - *start), &buf[*start]);
         *start = i;          *start = i;
   
         if (' ' == buf[i]) {          if (' ' == buf[i]) {
Line 457  again:
Line 493  again:
                         *start = i;                          *start = i;
                         goto again;                          goto again;
                 }                  }
                 printf("Ar ");                  fputs("Ar", stdout);
                 *start = i;                  *start = i;
         }          }
 }  }
Line 479  again:
Line 515  again:
  * entering without OUST_MAC and the code is invalid.   * entering without OUST_MAC and the code is invalid.
  */   */
 static int  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)
 {  {
         size_t           i, j, dsz;          size_t           i, j, dsz;
         enum fmt         fmt;          enum fmt         fmt;
         unsigned char    uc;          unsigned char    uc;
           int              gotmacro, wantws;
   
         assert(*start + 1 < end);          assert(*start + 1 < end);
         assert('<' == buf[*start + 1]);          assert('<' == buf[*start + 1]);
   
         /*          /*
          * First, look up the format code.           * First, look up the format code.
          * If it's not valid, treat it as a NOOP.           * If it's not valid, treat it as a NOOP.
          */           */
         for (fmt = 0; fmt < FMT__MAX; fmt++)          for (fmt = 0; fmt < FMT__MAX; fmt++)
                 if (buf[*start] == fmts[fmt])                  if (buf[*start] == fmts[fmt])
                         break;                          break;
   
Line 524  formatcode(struct state *st, const char *buf, size_t *
Line 561  formatcode(struct state *st, const char *buf, size_t *
                 formatescape(st, buf, start, end);                  formatescape(st, buf, start, end);
                 return(0);                  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
                  * whether it's a custom one.                   * whether it's a custom one.
                  */                   */
Line 537  formatcode(struct state *st, const char *buf, size_t *
Line 574  formatcode(struct state *st, const char *buf, size_t *
                         if (' ' != buf[*start - 1])                          if (' ' != buf[*start - 1])
                                 continue;                                  continue;
                         i = *start;                          i = *start;
                         for (j = 0; i < end && j < dsz; j++)                          for (j = 0; i < end && j < dsz; j++)
                                 if ('>' != buf[i++])                                  if ('>' != buf[i++])
                                         break;                                          break;
                         if (dsz != j)                          if (dsz != j)
                                 continue;                                  continue;
                         (*start) += dsz;                          (*start) += dsz;
                         break;                          break;
Line 562  formatcode(struct state *st, const char *buf, size_t *
Line 599  formatcode(struct state *st, const char *buf, size_t *
         if (FMT__MAX != fmt && !nomacro) {          if (FMT__MAX != fmt && !nomacro) {
   
                 /*                  /*
                    * Do we need spacing before the upcoming macro,
                    * after any pending text already in the outbuf?
                    * We may already have wantws if there was whitespace
                    * before the code ("text B<text"), or there may be
                    * whitespace inside our scope ("textB< text").
                    */
   
                   wantws = ' ' == buf[*start] ||
                       (st->wantws && ! st->outbuflen);
   
                   /*
                  * If we are on a text line and there is no                   * If we are on a text line and there is no
                  * whitespace before our content, we have to make                   * whitespace before our content, we have to make
                  * the previous word a prefix to the macro line.                   * the previous word a prefix to the macro line.
                  */                   */
   
                 if (OUST_MAC != st->oust && ' ' != buf[*start] &&                  if (OUST_MAC != st->oust && ! wantws) {
                     st->outbuflen) {  
                         if (OUST_NL != st->oust)                          if (OUST_NL != st->oust)
                                 mdoc_newln(st);                                  mdoc_newln(st);
                         printf(".Pf ");                          fputs(".Pf", stdout);
                         st->oust = OUST_MAC;                          st->oust = OUST_MAC;
                         st->wantws = 1;                          st->wantws = wantws = 1;
                 }                  }
   
                 outbuf_flush(st);                  outbuf_flush(st);
   
                 /*                  /* Whitespace is easier to suppress on macro lines. */
                  * Whitespace is easier to suppress on macro lines.  
                  * We may already have wantws if there was whitespace  
                  * before the code ("text B<text"), or there may be  
                  * whitespace inside our scope ("textB< text").  
                  */  
   
                 if (OUST_MAC == st->oust && ' ' != buf[*start] &&                  if (OUST_MAC == st->oust && ! wantws)
                     ! st->wantws)  
                         printf(" Ns");                          printf(" Ns");
   
                 /* Unless we are on a macro line, start one. */                  /* Unless we are on a macro line, start one. */
Line 606  formatcode(struct state *st, const char *buf, size_t *
Line 647  formatcode(struct state *st, const char *buf, size_t *
                  */                   */
   
                 switch (fmt) {                  switch (fmt) {
                 case (FMT_ITALIC):  
                         printf("Em ");  
                         break;  
                 case (FMT_BOLD):                  case (FMT_BOLD):
                         if (SECT_SYNOPSIS == st->sect) {                          if (SECT_SYNOPSIS == st->sect) {
                                 if (1 == dsz && '-' == buf[*start])                                  if (1 == dsz && '-' == buf[*start])
                                         dosynopsisfl(buf, start, end);                                          dosynopsisfl(buf, start, end);
                                 else if (0 == pos)                                  else if (0 == pos)
                                         printf("Nm ");                                          fputs("Nm", stdout);
                                 else                                  else
                                         printf("Ar ");                                          fputs("Ar", stdout);
                                 break;                                  break;
                         }                          }
                           /* FALLTHROUGH */
                   case (FMT_ITALIC):
                         i = 0;                          i = 0;
                         uc = buf[*start];                          uc = buf[*start];
                         while (isalnum(uc) || '_' == uc || ' ' == uc)                          while (isalnum(uc) || '_' == uc || ' ' == uc)
Line 626  formatcode(struct state *st, const char *buf, size_t *
Line 666  formatcode(struct state *st, const char *buf, size_t *
                         if ('=' != uc && '>' != uc)                          if ('=' != uc && '>' != uc)
                                 i = 0;                                  i = 0;
                         if (4 == i && ! strncmp(buf + *start, "NULL", 4)) {                          if (4 == i && ! strncmp(buf + *start, "NULL", 4)) {
                                 printf("Dv ");                                  fputs("Dv", stdout);
                                 break;                                  break;
                         }                          }
                         switch (i ? dict_get(buf + *start, i) : MDOC_MAX) {                          switch (i ? dict_get(buf + *start, i) : MDOC_MAX) {
                         case MDOC_Fa:                          case MDOC_Fa:
                                 printf("Fa ");                                  fputs("Fa", stdout);
                                 break;                                  break;
                         case MDOC_Vt:                          case MDOC_Vt:
                                 printf("Vt ");                                  fputs("Vt", stdout);
                                 break;                                  break;
                         default:                          default:
                                 printf("Sy ");                                  fputs(FMT_BOLD == fmt ? "Sy" : "Em", stdout);
                                 break;                                  break;
                         }                          }
                         break;                          break;
                 case (FMT_CODE):                  case (FMT_CODE):
                         printf("Qo Li ");                          fputs("Qo Li", stdout);
                         break;                          break;
                 case (FMT_LINK):                  case (FMT_LINK):
                         /* Try to link; use "No" if it's empty. */                          /* Try to link; use "No" if it's empty. */
                         if ( ! trylink(buf, start, end, dsz))                          if ( ! trylink(buf, start, end, dsz))
                                 printf("No ");                                  fputs("No", stdout);
                         break;                          break;
                 case (FMT_FILE):                  case (FMT_FILE):
                         printf("Pa ");                          fputs("Pa", stdout);
                         break;                          break;
                 case (FMT_NBSP):                  case (FMT_NBSP):
                         printf("No ");                          fputs("No", stdout);
                         break;                          break;
                 default:                  default:
                         abort();                          abort();
                 }                  }
         } else          } else {
                 outbuf_flush(st);                  outbuf_flush(st);
                   st->wantws = 0;
           }
   
         /*          /*
          * Process until we reach the end marker (e.g., '>') or until we           * Process until we reach the end marker (e.g., '>') or until we
Line 667  formatcode(struct state *st, const char *buf, size_t *
Line 709  formatcode(struct state *st, const char *buf, size_t *
          * Don't emit any newlines: since we're on a macro line, we           * Don't emit any newlines: since we're on a macro line, we
          * don't want to break the line.           * don't want to break the line.
          */           */
   
           gotmacro = 0;
         while (*start < end) {          while (*start < end) {
                 if ('>' == buf[*start] && 1 == dsz) {                  if ('>' == buf[*start] && 1 == dsz) {
                         (*start)++;                          (*start)++;
                         break;                          break;
                 } else if ('>' == buf[*start] &&                  } else if ('>' == buf[*start] &&
                                 ' ' == buf[*start - 1]) {                                  ' ' == buf[*start - 1]) {
                         /*                          /*
                          * Handle custom delimiters.                           * Handle custom delimiters.
Line 690  formatcode(struct state *st, const char *buf, size_t *
Line 734  formatcode(struct state *st, const char *buf, size_t *
                 }                  }
                 if (*start + 1 < end && '<' == buf[*start + 1] &&                  if (*start + 1 < end && '<' == buf[*start + 1] &&
                     'A' <= buf[*start] && 'Z' >= buf[*start]) {                      'A' <= buf[*start] && 'Z' >= buf[*start]) {
                         if ( ! formatcode(st, buf, start, end, nomacro, 1))                          gotmacro = formatcode(st, buf,
                                 st->wantws = 1;                              start, end, nomacro, 1);
                         continue;                          continue;
                 }                  }
   
                 /* Suppress newlines and multiple spaces. */                  /* Suppress newlines and multiple spaces. */
   
                 last = buf[(*start)++];                  last = buf[(*start)++];
                 if (' ' == last || '\n' == last) {                  if (isspace(last)) {
                         putchar(' ');                          outbuf_flush(st);
                         while (*start < end && ' ' == buf[*start])                          st->wantws = 1;
                           gotmacro = 0;
                           while (*start < end &&
                               isspace((unsigned char)buf[*start]))
                                 (*start)++;                                  (*start)++;
                         continue;                          continue;
                 }                  }
   
                 if (OUST_MAC == st->oust && FMT__MAX != fmt) {                  if (OUST_MAC == st->oust && FMT__MAX != fmt) {
                         if ( ! st->wantws) {                          if (gotmacro && ! st->wantws) {
                                 printf(" Ns ");                                  printf(" Ns");
                                 st->wantws = 1;                                  st->wantws = 1;
                         }                          }
                           gotmacro = 0;
   
                         /*                          /*
                          * Escape macro-like words.                           * Escape macro-like words.
                          * This matches "Xx " and "XxEOLN".                           * This matches "Xx " and "XxEOLN".
                          */                           */
   
                         if (end - *start > 0 &&                          if (*start < end && ! st->outbuflen &&
                             isupper((unsigned char)last) &&                              isupper(last) &&
                             islower((unsigned char)buf[*start]) &&                              islower((unsigned char)buf[*start]) &&
                             (end - *start == 1 ||                              (end - *start == 1 ||
                              ' ' == buf[*start + 1] ||                               ' ' == buf[*start + 1] ||
                              '>' == buf[*start + 1]))                               '>' == buf[*start + 1]))
                                 printf("\\&");                                  outbuf_addstr(st, "\\&");
                           last = buf[*start - 1];
                 }                  }
                   outbuf_addchar(st);
           }
   
                 putchar(last);          if (FMT__MAX == fmt)
                   return(0);
   
                 /* Protect against character escapes. */          outbuf_flush(st);
   
                 if ('\\' == last)  
                         putchar('e');  
         }  
   
         if ( ! nomacro && FMT_CODE == fmt)          if ( ! nomacro && FMT_CODE == fmt)
                 printf(" Qc ");                  fputs(" Qc", stdout);
   
         st->wantws = ' ' == last;          st->wantws = ' ' == last;
         return(FMT__MAX != fmt);          return(1);
 }  }
   
 /*  /*
Line 750  static void
Line 798  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;          int      gotmacro;
   
         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;
   
         gotmacro = 0;          gotmacro = 0;
         while (*start < end)  {          while (*start < end)  {
                 wantws = ' ' == buf[*start] || '\n' == buf[*start];  
                 if (wantws) {  
                         last = ' ';  
                         do {  
                                 (*start)++;  
                         } while (*start < end && ' ' == buf[*start]);  
                 }  
   
                 if (*start + 1 < end && '<' == buf[*start + 1] &&                  if (*start + 1 < end && '<' == buf[*start + 1] &&
                     'A' <= buf[*start] && 'Z' >= buf[*start]) {                      'A' <= buf[*start] && 'Z' >= buf[*start]) {
                         st->wantws |= wantws;  
                         gotmacro = formatcode(st, buf,                          gotmacro = formatcode(st, buf,
                             start, end, nomacro, 1);                              start, end, nomacro, 1);
                         continue;                          continue;
                 }                  }
   
                   /* Suppress newlines and multiple spaces. */
   
                   last = buf[(*start)++];
                   if (isspace(last)) {
                           outbuf_flush(st);
                           st->wantws = 1;
                           while (*start < end &&
                               isspace((unsigned char)buf[*start]))
                                   (*start)++;
                           continue;
                   }
   
                 if (gotmacro) {                  if (gotmacro) {
                         if (*start < end || st->outbuflen) {                          if (*start < end) {
                                 if (st->wantws ||                                  if (st->wantws)
                                     (wantws && !st->outbuflen))                                          printf(" No");
                                         printf(" No ");  
                                 else                                  else
                                         printf(" Ns ");                                          printf(" Ns");
                         }                          }
                           st->wantws = 1;
                         gotmacro = 0;                          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 803  formatcodeln(struct state *st, const char *linemac,
Line 844  formatcodeln(struct state *st, const char *linemac,
                  * are used in troff and we don't want to escape                   * are used in troff and we don't want to escape
                  * something that needn't be escaped.                   * something that needn't be escaped.
                  */                   */
                 if (' ' == last && end - *start > 1 &&                  if (*start < end && ! st->outbuflen && isupper(last) &&
                     isupper((unsigned char)buf[*start]) &&                      islower((unsigned char)buf[*start]) &&
                     islower((unsigned char)buf[*start + 1]) &&                      (end - *start == 1 || ' ' == buf[*start + 1])) {
                     (end - *start == 2 || ' ' == buf[*start + 2]))                          outbuf_addstr(st, "\\&");
                         printf("\\&");                          last = buf[*start - 1];
                   }
                 putchar(last = buf[*start]);                  outbuf_addchar(st);
   
                 /* Protect against character escapes. */  
   
                 if ('\\' == last)  
                         putchar('e');  
   
                 (*start)++;  
         }          }
           outbuf_flush(st);
           st->wantws = 1;
 }  }
   
 /*  /*
Line 899  command(struct state *st, const char *buf, size_t star
Line 935  command(struct state *st, const char *buf, size_t star
                 } else if (end - start == 8) {                  } else if (end - start == 8) {
                         if (0 == memcmp(&buf[start], "SYNOPSIS", 8))                          if (0 == memcmp(&buf[start], "SYNOPSIS", 8))
                                 st->sect = SECT_SYNOPSIS;                                  st->sect = SECT_SYNOPSIS;
                 }                  }
                 formatcodeln(st, "Sh", buf, &start, end, 1);                  formatcodeln(st, "Sh", buf, &start, end, 1);
                 mdoc_newln(st);                  mdoc_newln(st);
                 st->haspar = 1;                  st->haspar = 1;
Line 924  command(struct state *st, const char *buf, size_t star
Line 960  command(struct state *st, const char *buf, size_t star
                 st->haspar = 1;                  st->haspar = 1;
                 break;                  break;
         case (CMD_OVER):          case (CMD_OVER):
                 /*                  /*
                  * If we have an existing list that hasn't had an =item                   * If we have an existing list that hasn't had an =item
                  * yet, then make sure that we open it now.                   * yet, then make sure that we open it now.
                  * We use the default list type, but that can't be                   * We use the default list type, but that can't be
Line 941  command(struct state *st, const char *buf, size_t star
Line 977  command(struct state *st, const char *buf, size_t star
                 break;                  break;
         case (CMD_ITEM):          case (CMD_ITEM):
                 if (0 == st->lpos) {                  if (0 == st->lpos) {
                         /*                          /*
                          * Bad markup.                           * Bad markup.
                          * Try to compensate.                           * Try to compensate.
                          */                           */
Line 955  command(struct state *st, const char *buf, size_t star
Line 991  command(struct state *st, const char *buf, size_t star
                  * list, and everything is tagged.                   * list, and everything is tagged.
                  */                   */
                 if (LIST__MAX == st->lstack[st->lpos - 1]) {                  if (LIST__MAX == st->lstack[st->lpos - 1]) {
                         st->lstack[st->lpos - 1] =                          st->lstack[st->lpos - 1] =
                                 listguess(buf, start, end);                                  listguess(buf, start, end);
                         switch (st->lstack[st->lpos - 1]) {                          switch (st->lstack[st->lpos - 1]) {
                         case (LIST_BULLET):                          case (LIST_BULLET):
Line 997  command(struct state *st, const char *buf, size_t star
Line 1033  command(struct state *st, const char *buf, size_t star
                 }                  }
                 break;                  break;
         case (CMD_BEGIN):          case (CMD_BEGIN):
                 /*                  /*
                  * We disregard all types for now.                   * We disregard all types for now.
                  * TODO: process at least "text" in a -literal block.                   * TODO: process at least "text" in a -literal block.
                  */                   */
                 st->paused = 1;                  st->paused = 1;
                 break;                  break;
         case (CMD_FOR):          case (CMD_FOR):
                 /*                  /*
                  * We ignore all types of encodings and formats                   * We ignore all types of encodings and formats
                  * unilaterally.                   * unilaterally.
                  */                   */
Line 1078  again:
Line 1114  again:
                 goto again;                  goto again;
         }          }
   
         /*          /*
          * If we're in the SYNOPSIS, see if we're an #include block.           * If we're in the SYNOPSIS, see if we're an #include block.
          * If we are, then print the "In" macro and re-loop.           * If we are, then print the "In" macro and re-loop.
          * This handles any number of inclusions, but only when they           * This handles any number of inclusions, but only when they
Line 1092  again:
Line 1128  again:
                         goto again;                          goto again;
   
                 /* 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)) {
                         start = i + 10;                          start = i + 10;
                         while (start < end && ' ' == buf[start])                          while (start < end && ' ' == buf[start])
Line 1102  again:
Line 1138  again:
                         indisplay = wantsp = 0;                          indisplay = wantsp = 0;
                         fputs(".In ", stdout);                          fputs(".In ", stdout);
                         /* Stop til the '>' marker or we hit eoln. */                          /* Stop til the '>' marker or we hit eoln. */
                         while (start < end &&                          while (start < end &&
                                 '>' != buf[start] && '\n' != buf[start])                                  '>' != buf[start] && '\n' != buf[start])
                                 putchar(buf[start++]);                                  putchar(buf[start++]);
                         putchar('\n');                          putchar('\n');
Line 1281  hasmatch(const char *buf, size_t start, size_t end)
Line 1317  hasmatch(const char *buf, size_t start, size_t end)
 {  {
         size_t   stack;          size_t   stack;
   
         for (stack = 0; start < end; start++)          for (stack = 0; start < end; start++)
                 if (buf[start] == '[')                  if (buf[start] == '[')
                         stack++;                          stack++;
                 else if (buf[start] == ']' && 0 == stack)                  else if (buf[start] == ']' && 0 == stack)
Line 1413  ordinary(struct state *st, const char *buf, size_t sta
Line 1449  ordinary(struct state *st, const char *buf, size_t sta
                         while (start < end &&                          while (start < end &&
                              isspace((unsigned char)buf[start]))                               isspace((unsigned char)buf[start]))
                                 start++;                                  start++;
                           while (start < end && '.' == buf[end - 1])
                                   end--;
                         formatcodeln(st, "Nd", buf, &start, end, 1);                          formatcodeln(st, "Nd", buf, &start, end, 1);
                         mdoc_newln(st);                          mdoc_newln(st);
                         return;                          return;
Line 1427  ordinary(struct state *st, const char *buf, size_t sta
Line 1465  ordinary(struct state *st, const char *buf, size_t sta
         opstack = 0;          opstack = 0;
   
         for (seq = 0; start < end; seq++) {          for (seq = 0; start < end; seq++) {
                 /*                  /*
                  * Loop til we get either to a newline or escape.                   * Loop til we get either to a newline or escape.
                  * Escape initial control characters.                   * Escape initial control characters.
                  */                   */
                 while (start < end) {                  while (start < end) {
Line 1448  ordinary(struct state *st, const char *buf, size_t sta
Line 1486  ordinary(struct state *st, const char *buf, size_t sta
                          */                           */
   
                         if (SECT_SYNOPSIS == st->sect &&                          if (SECT_SYNOPSIS == st->sect &&
                                 ('[' == buf[start] ||                                  ('[' == buf[start] ||
                                  ']' == buf[start]) &&                                   ']' == buf[start]) &&
                                 dosynopsisop(st, buf,                                  dosynopsisop(st, buf,
                                     &start, end, &opstack))                                      &start, end, &opstack))
Line 1503  ordinary(struct state *st, const char *buf, size_t sta
Line 1541  ordinary(struct state *st, const char *buf, size_t sta
                                         st->outbuf[wend] = '\0';                                          st->outbuf[wend] = '\0';
                                         mdoc_newln(st);                                          mdoc_newln(st);
                                         if (MDOC_Fo == mtype)                                          if (MDOC_Fo == mtype)
                                                 fputs(".Fn ", stdout);                                                  fputs(".Fn", stdout);
                                         else                                          else
                                                 fputs(".Xr ", stdout);                                                  fputs(".Xr", stdout);
                                         st->oust = OUST_MAC;                                          st->oust = OUST_MAC;
                                 }                                  }
                         } else {                          } else {
Line 1514  ordinary(struct state *st, const char *buf, size_t sta
Line 1552  ordinary(struct state *st, const char *buf, size_t sta
                                         savechar = st->outbuf[wend];                                          savechar = st->outbuf[wend];
                                         st->outbuf[wend] = '\0';                                          st->outbuf[wend] = '\0';
                                         mdoc_newln(st);                                          mdoc_newln(st);
                                         fputs(".Dv ", stdout);                                          fputs(".Dv", stdout);
                                         st->oust = OUST_MAC;                                          st->oust = OUST_MAC;
                                 } else                                  } else
                                         mtype = MDOC_Fa;                                          mtype = MDOC_Fa;
Line 1597  ordinary(struct state *st, const char *buf, size_t sta
Line 1635  ordinary(struct state *st, const char *buf, size_t sta
                                     ('<' != buf[start + 1] ||                                      ('<' != buf[start + 1] ||
                                      'A' > buf[start] ||                                       'A' > buf[start] ||
                                      'Z' < buf[start])) {                                       'Z' < buf[start])) {
                                         printf(" Ns ");                                          fputs(" Ns", stdout);
                                         st->wantws = 1;                                          st->wantws = 1;
                                 }                                  }
                         }                          }
                 } else if (start < end && '\n' == buf[start]) {                  } else if (start < end && '\n' == buf[start]) {
                         outbuf_flush(st);                          outbuf_flush(st);
                         mdoc_newln(st);                          st->wantws = 1;
                         if (++start >= end)                          if (++start >= end)
                                 continue;                                  continue;
                         /*                          /*
Line 1614  ordinary(struct state *st, const char *buf, size_t sta
Line 1652  ordinary(struct state *st, const char *buf, size_t sta
                          * have a macro subsequent it, which may be                           * have a macro subsequent it, which may be
                          * possible if we have an escape next.                           * possible if we have an escape next.
                          */                           */
                         if (' ' == buf[start] || '\t' == buf[start])                          if (' ' == buf[start] || '\t' == buf[start]) {
                                   mdoc_newln(st);
                                 puts(".br");                                  puts(".br");
                           }
                         for ( ; start < end; start++)                          for ( ; start < end; start++)
                                 if (' ' != buf[start] && '\t' != buf[start])                                  if (' ' != buf[start] && '\t' != buf[start])
                                         break;                                          break;
                 }                  }
         }          }
         outbuf_flush(st);          outbuf_flush(st);
         mdoc_newln(st);          mdoc_newln(st);
Line 1652  dopar(struct state *st, char *buf, size_t start, size_
Line 1692  dopar(struct state *st, char *buf, size_t start, size_
  * POD way.   * POD way.
  */   */
 static void  static void
 dofile(const struct args *args, const char *fname,  dofile(const struct args *args, const char *fname,
         const struct tm *tm, char *buf, size_t sz)          const struct tm *tm, char *buf, size_t sz)
 {  {
         char             datebuf[64];          char             datebuf[64];
Line 1748  dofile(const struct args *args, const char *fname, 
Line 1788  dofile(const struct args *args, const char *fname, 
                             !(verb && end + 2 < sz &&                              !(verb && end + 2 < sz &&
                               isspace((unsigned char)buf[end + 2])))                                isspace((unsigned char)buf[end + 2])))
                                 break;                                  break;
   
                 /* Adjust end marker for EOF. */                  /* Adjust end marker for EOF. */
   
                 if (end < sz && '\n' != buf[end])                  if (end < sz && '\n' != buf[end])
Line 1777  readfile(const struct args *args, const char *fname)
Line 1817  readfile(const struct args *args, const char *fname)
         ssize_t          ssz;          ssize_t          ssz;
         struct tm       *tm;          struct tm       *tm;
         time_t           ttm;          time_t           ttm;
         struct stat      st;          struct stat      st;
   
         fd = 0 != strcmp("-", fname) ?          fd = 0 != strcmp("-", fname) ?
                 open(fname, O_RDONLY, 0) : STDIN_FILENO;                  open(fname, O_RDONLY, 0) : STDIN_FILENO;
   
         if (-1 == fd) {          if (-1 == fd) {
Line 1793  readfile(const struct args *args, const char *fname)
Line 1833  readfile(const struct args *args, const char *fname)
         } else          } else
                 tm = localtime(&st.st_mtime);                  tm = localtime(&st.st_mtime);
   
         /*          /*
          * Arbitrarily-sized initial buffer.           * Arbitrarily-sized initial buffer.
          * Should be big enough for most files...           * Should be big enough for most files...
          */           */
Line 1821  readfile(const struct args *args, const char *fname)
Line 1861  readfile(const struct args *args, const char *fname)
                 return(0);                  return(0);
         }          }
   
         dofile(args, STDIN_FILENO == fd ?          dofile(args, STDIN_FILENO == fd ?
                 "STDIN" : fname, tm, buf, cur);                  "STDIN" : fname, tm, buf, cur);
         free(buf);          free(buf);
         if (STDIN_FILENO != fd)          if (STDIN_FILENO != fd)
Line 1889  main(int argc, char *argv[])
Line 1929  main(int argc, char *argv[])
         else if (1 == argc)          else if (1 == argc)
                 fname = *argv;                  fname = *argv;
   
         return(readfile(&args, fname) ?          return(readfile(&args, fname) ?
                 EXIT_SUCCESS : EXIT_FAILURE);                  EXIT_SUCCESS : EXIT_FAILURE);
   
 usage:  usage:
         fprintf(stderr, "usage: %s [-d date] "          fprintf(stderr, "usage: %s [-d date] "
             "[-n title] [-s section] [file]\n", name);              "[-n title] [-s section] [file]\n", name);
   
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
Legend:
Removed from v.1.54  
changed lines
  Added in v.1.61
CVSweb