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

Diff for /pod2mdoc/pod2mdoc.c between version 1.9 and 1.12

version 1.9, 2014/03/24 01:07:30 version 1.12, 2014/04/01 11:58:32
Line 26 
Line 26 
 #include <string.h>  #include <string.h>
 #include <unistd.h>  #include <unistd.h>
   
   /*
    * In what section can we find Perl manuals?
    */
   #define PERL_SECTION    "3p"
   
 struct  args {  struct  args {
         const char      *title; /* override "Dt" title */          const char      *title; /* override "Dt" title */
         const char      *date; /* override "Dd" date */          const char      *date; /* override "Dd" date */
Line 39  enum list {
Line 44  enum list {
         LIST__MAX          LIST__MAX
 };  };
   
   enum    sect {
           SECT_NONE = 0,
           SECT_NAME, /* NAME section */
           SECT_SYNOPSIS, /* SYNOPSIS section */
   };
   
 struct  state {  struct  state {
         int              parsing; /* after =cut of before command */          int              parsing; /* after =cut of before command */
         int              paused; /* in =begin and before =end */          int              paused; /* in =begin and before =end */
         int              haspar; /* in paragraph: do we need Pp? */          int              haspar; /* in paragraph: do we need Pp? */
         int              isname; /* are we the NAME section? */          enum sect        sect; /* which section are we in? */
         const char      *fname; /* file being parsed */          const char      *fname; /* file being parsed */
 #define LIST_STACKSZ     128  #define LIST_STACKSZ     128
         enum list        lstack[LIST_STACKSZ]; /* open lists */          enum list        lstack[LIST_STACKSZ]; /* open lists */
Line 212  trylink(const char *buf, size_t *start, size_t end, si
Line 223  trylink(const char *buf, size_t *start, size_t end, si
          * First, allow us to link to other Perl manuals.           * First, allow us to link to other Perl manuals.
          */           */
         if (hasdouble)          if (hasdouble)
                 printf("Xr %.*s 3p",                  printf("Xr %.*s " PERL_SECTION,
                         (int)(nend - sv), &buf[sv]);                          (int)(nend - sv), &buf[sv]);
         else if (nend - sv > 3 && isalnum(buf[sv]) &&          else if (nend - sv > 3 && isalnum(buf[sv]) &&
                         ')' == buf[nend - 1] &&                          ')' == buf[nend - 1] &&
Line 242  trylink(const char *buf, size_t *start, size_t end, si
Line 253  trylink(const char *buf, size_t *start, size_t end, si
  * reentrant).   * reentrant).
  */   */
 static int  static int
 formatcode(const char *buf, size_t *start,  formatcode(struct state *st, const char *buf,
         size_t end, int reentrant, int nomacro)          size_t *start, size_t end, int reentrant, int nomacro)
 {  {
         enum fmt         fmt;          enum fmt         fmt;
         size_t           i, j, dsz;          size_t           i, j, dsz;
Line 349  formatcode(const char *buf, size_t *start, 
Line 360  formatcode(const char *buf, size_t *start, 
                         printf("Em ");                          printf("Em ");
                         break;                          break;
                 case (FMT_BOLD):                  case (FMT_BOLD):
                           /*
                            * Doclifting: if we're a bold "-xx" and we're
                            * in the SYNOPSIS section, then it's likely
                            * that we're a flag.
                            * Be really strict: only do this when the dash
                            * is followed by alnums til the end marker,
                            * which mustn't be a custom.
                            */
                           if (SECT_SYNOPSIS == st->sect &&
                                   end - *start > 1 &&
                                   '-' == buf[*start] &&
                                   (isalnum((int)buf[*start + 1]) ||
                                    '?' == buf[*start + 1])) {
                                   for (i = *start + 1; i < end; i++)
                                           if ( ! isalnum((int)buf[i]))
                                                   break;
                                   if (i < end && '>' == buf[i]) {
                                           (*start)++;
                                           printf("Fl ");
                                           break;
                                   }
                           }
                         printf("Sy ");                          printf("Sy ");
                         break;                          break;
                 case (FMT_CODE):                  case (FMT_CODE):
Line 397  formatcode(const char *buf, size_t *start, 
Line 430  formatcode(const char *buf, size_t *start, 
                         }                          }
                 }                  }
                 if (*start + 1 < end && '<' == buf[*start + 1]) {                  if (*start + 1 < end && '<' == buf[*start + 1]) {
                         formatcode(buf, start, end, 1, nomacro);                          formatcode(st, buf, start, end, 1, nomacro);
                         continue;                          continue;
                 }                  }
   
Line 452  formatcode(const char *buf, size_t *start, 
Line 485  formatcode(const char *buf, size_t *start, 
  * Calls formatcode() til the end of a paragraph.   * Calls formatcode() til the end of a paragraph.
  */   */
 static void  static void
 formatcodeln(const char *buf, size_t *start, size_t end, int nomacro)  formatcodeln(struct state *st, const char *buf,
           size_t *start, size_t end, int nomacro)
 {  {
   
         last = ' ';          last = ' ';
         while (*start < end)  {          while (*start < end)  {
                 if (*start + 1 < end && '<' == buf[*start + 1]) {                  if (*start + 1 < end && '<' == buf[*start + 1]) {
                         formatcode(buf, start, end, 1, nomacro);                          formatcode(st, buf, start, end, 1, nomacro);
                         continue;                          continue;
                 }                  }
                 /*                  /*
Line 558  command(struct state *st, const char *buf, size_t star
Line 592  command(struct state *st, const char *buf, size_t star
                  * how pod2man handles it.                   * how pod2man handles it.
                  */                   */
                 printf(".Sh ");                  printf(".Sh ");
                 st->isname = 0;                  st->sect = SECT_NONE;
                 if (end - start == 4)                  if (end - start == 4) {
                         if (0 == memcmp(&buf[start], "NAME", 4))                          if (0 == memcmp(&buf[start], "NAME", 4))
                                 st->isname = 1;                                  st->sect = SECT_NAME;
                 formatcodeln(buf, &start, end, 1);                  } else if (end - start == 8) {
                           if (0 == memcmp(&buf[start], "SYNOPSIS", 8))
                                   st->sect = SECT_SYNOPSIS;
                   }
                   formatcodeln(st, buf, &start, end, 1);
                 putchar('\n');                  putchar('\n');
                 st->haspar = 1;                  st->haspar = 1;
                 break;                  break;
         case (CMD_HEAD2):          case (CMD_HEAD2):
                 printf(".Ss ");                  printf(".Ss ");
                 formatcodeln(buf, &start, end, 1);                  formatcodeln(st, buf, &start, end, 1);
                 putchar('\n');                  putchar('\n');
                 st->haspar = 1;                  st->haspar = 1;
                 break;                  break;
         case (CMD_HEAD3):          case (CMD_HEAD3):
                 puts(".Pp");                  puts(".Pp");
                 printf(".Em ");                  printf(".Em ");
                 formatcodeln(buf, &start, end, 0);                  formatcodeln(st, buf, &start, end, 0);
                 putchar('\n');                  putchar('\n');
                 puts(".Pp");                  puts(".Pp");
                 st->haspar = 1;                  st->haspar = 1;
Line 583  command(struct state *st, const char *buf, size_t star
Line 621  command(struct state *st, const char *buf, size_t star
         case (CMD_HEAD4):          case (CMD_HEAD4):
                 puts(".Pp");                  puts(".Pp");
                 printf(".No ");                  printf(".No ");
                 formatcodeln(buf, &start, end, 0);                  formatcodeln(st, buf, &start, end, 0);
                 putchar('\n');                  putchar('\n');
                 puts(".Pp");                  puts(".Pp");
                 st->haspar = 1;                  st->haspar = 1;
Line 637  command(struct state *st, const char *buf, size_t star
Line 675  command(struct state *st, const char *buf, size_t star
                 switch (st->lstack[st->lpos - 1]) {                  switch (st->lstack[st->lpos - 1]) {
                 case (LIST_TAG):                  case (LIST_TAG):
                         printf(".It ");                          printf(".It ");
                         formatcodeln(buf, &start, end, 0);                          formatcodeln(st, buf, &start, end, 0);
                         putchar('\n');                          putchar('\n');
                         break;                          break;
                 case (LIST_ENUM):                  case (LIST_ENUM):
Line 738  ordinary(struct state *st, const char *buf, size_t sta
Line 776  ordinary(struct state *st, const char *buf, size_t sta
          * we're in "name - description" format.           * we're in "name - description" format.
          * To wit, print out a "Nm" and "Nd" in that format.           * To wit, print out a "Nm" and "Nd" in that format.
          */           */
         if (st->isname) {          if (SECT_NAME == st->sect) {
                 for (i = end - 1; i > start; i--)                  for (i = end - 1; i > start; i--)
                         if ('-' == buf[i])                          if ('-' == buf[i])
                                 break;                                  break;
Line 749  ordinary(struct state *st, const char *buf, size_t sta
Line 787  ordinary(struct state *st, const char *buf, size_t sta
                                 if ('-' != buf[i])                                  if ('-' != buf[i])
                                         break;                                          break;
                         printf(".Nm ");                          printf(".Nm ");
                         formatcodeln(buf, &start, i + 1, 1);                          formatcodeln(st, buf, &start, i + 1, 1);
                         putchar('\n');                          putchar('\n');
                         start = j + 1;                          start = j + 1;
                         printf(".Nd ");                          printf(".Nd ");
                         formatcodeln(buf, &start, end, 1);                          formatcodeln(st, buf, &start, end, 1);
                         putchar('\n');                          putchar('\n');
                         return;                          return;
                 }                  }
Line 779  ordinary(struct state *st, const char *buf, size_t sta
Line 817  ordinary(struct state *st, const char *buf, size_t sta
                                 printf("\\&");                                  printf("\\&");
                         else if ('\n' == last && '\'' == buf[start])                          else if ('\n' == last && '\'' == buf[start])
                                 printf("\\&");                                  printf("\\&");
   #if notyet
                           /*
                            * If we're in the SYNOPSIS, have square
                            * brackets indicate that we're opening and
                            * closing an optional context.
                            */
                           if (SECT_SYNOPSIS == st->sect) {
                                   if ('[' == buf[start] ||
                                           ']' == buf[start]) {
                                           if (last != '\n')
                                                   putchar('\n');
                                           if ('[' == buf[start])
                                                   printf(".Oo\n");
                                           else
                                                   printf(".Oc\n");
                                           start++;
                                           continue;
                                   }
                           }
   #endif
                         putchar(last = buf[start++]);                          putchar(last = buf[start++]);
                         if ('\\' == last)                          if ('\\' == last)
                                 putchar('e');                                  putchar('e');
Line 794  ordinary(struct state *st, const char *buf, size_t sta
Line 852  ordinary(struct state *st, const char *buf, size_t sta
                          * Consume all whitespace so we don't                           * Consume all whitespace so we don't
                          * accidentally start an implicit literal line.                           * accidentally start an implicit literal line.
                          */                           */
                         if (formatcode(buf, &start, end, 0, 0)) {                          if (formatcode(st, buf, &start, end, 0, 0)) {
                                 putchar(last = '\n');                                  putchar(last = '\n');
                                 while (start < end && ' ' == buf[start])                                  while (start < end && ' ' == buf[start])
                                         start++;                                          start++;
Line 823  ordinary(struct state *st, const char *buf, size_t sta
Line 881  ordinary(struct state *st, const char *buf, size_t sta
                         for ( ; start < end; start++)                          for ( ; start < end; start++)
                                 if (' ' != buf[start] && '\t' != buf[start])                                  if (' ' != buf[start] && '\t' != buf[start])
                                         break;                                          break;
                 } else if (start < end) {                  }
                         /*  
                          * Default: print the character.  
                          * Escape initial control characters.  
                          */  
                         if ('\n' == last && '.' == buf[start])  
                                 printf("\\&");  
                         else if ('\n' == last && '\'' == buf[start])  
                                 printf("\\&");  
                         putchar(last = buf[start++]);  
                         if ('\\' == last)  
                                 putchar('e');  
                 }  
         }          }
   
         if (last != '\n')          if (last != '\n')
Line 899  dofile(const struct args *args, const char *fname, 
Line 945  dofile(const struct args *args, const char *fname, 
                 if (NULL != (cp = strrchr(title, '.'))) {                  if (NULL != (cp = strrchr(title, '.'))) {
                         *cp++ = '\0';                          *cp++ = '\0';
                         if (0 == strcmp(cp, "pm"))                          if (0 == strcmp(cp, "pm"))
                                 section = "3p";                                  section = PERL_SECTION;
                 }                  }
         }          }
   
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.12
CVSweb