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

Diff for /pod2mdoc/pod2mdoc.c between version 1.21 and 1.31

version 1.21, 2014/04/03 11:55:01 version 1.31, 2014/07/15 19:03:07
Line 53  enum sect {
Line 53  enum sect {
 };  };
   
 struct  state {  struct  state {
           const char      *fname; /* file being parsed */
         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? */  
         enum sect        sect; /* which section are we in? */          enum sect        sect; /* which section are we in? */
         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 */
         size_t           lpos; /* where in list stack */          size_t           lpos; /* where in list stack */
           int              haspar; /* in paragraph: do we need Pp? */
           int              hasnl; /* in text: just started a new line */
           char            *outbuf; /* text buffered for output */
           size_t           outbufsz; /* allocated size of outbuf */
           size_t           outbuflen; /* current length of outbuf */
 };  };
   
 enum    fmt {  enum    fmt {
Line 123  static const char fmts[FMT__MAX] = {
Line 127  static const char fmts[FMT__MAX] = {
   
 static  int     last;  static  int     last;
   
   
   static void
   outbuf_grow(struct state *st, size_t by)
   {
   
           st->outbufsz += (by / 128 + 1) * 128;
           st->outbuf = realloc(st->outbuf, st->outbufsz);
           if (NULL == st->outbuf) {
                   perror(NULL);
                   exit(EXIT_FAILURE);
           }
   }
   
   static void
   outbuf_addchar(struct state *st)
   {
   
           if (st->outbuflen + 2 >= st->outbufsz)
                   outbuf_grow(st, 1);
           st->outbuf[st->outbuflen++] = last;
           if ('\\' == last)
                   st->outbuf[st->outbuflen++] = 'e';
           st->outbuf[st->outbuflen] = '\0';
   }
   
   static void
   outbuf_addstr(struct state *st, const char *str)
   {
           size_t   slen;
   
           slen = strlen(str);
           if (st->outbuflen + slen >= st->outbufsz)
                   outbuf_grow(st, slen);
           memcpy(st->outbuf + st->outbuflen, str, slen+1);
           last = str[slen - 1];
   }
   
   static void
   outbuf_flush(struct state *st)
   {
   
           if (0 == st->outbuflen)
                   return;
   
           fputs(st->outbuf, stdout);
           *st->outbuf = '\0';
           st->outbuflen = 0;
           st->hasnl = 0;
   }
   
   static void
   outbuf_newln(struct state *st)
   {
   
           if ('\n' == last)
                   return;
           outbuf_flush(st);
           putchar('\n');
           last = '\n';
           st->hasnl = 1;
   }
   
 /*  /*
  * Given buf[*start] is at the start of an escape name, read til the end   * Given buf[*start] is at the start of an escape name, read til the end
  * of the escape ('>') then try to do something with it.   * of the escape ('>') then try to do something with it.
  * Sets start to be one after the '>'.   * Sets start to be one after the '>'.
  */   */
 static void  static void
 formatescape(const char *buf, size_t *start, size_t end)  formatescape(struct state *st, const char *buf, size_t *start, size_t end)
 {  {
         char             esc[16]; /* no more needed */          char             esc[16]; /* no more needed */
         size_t           i, max;          size_t           i, max;
Line 157  formatescape(const char *buf, size_t *start, size_t en
Line 223  formatescape(const char *buf, size_t *start, size_t en
          * Just let the rest of them go.           * Just let the rest of them go.
          */           */
         if (0 == strcmp(esc, "lt"))          if (0 == strcmp(esc, "lt"))
                 printf("\\(la");                  outbuf_addstr(st, "\\(la");
         else if (0 == strcmp(esc, "gt"))          else if (0 == strcmp(esc, "gt"))
                 printf("\\(ra");                  outbuf_addstr(st, "\\(ra");
         else if (0 == strcmp(esc, "vb"))          else if (0 == strcmp(esc, "vb"))
                 printf("\\(ba");                  outbuf_addstr(st, "\\(ba");
         else if (0 == strcmp(esc, "sol"))          else if (0 == strcmp(esc, "sol"))
                 printf("\\(sl");                  outbuf_addstr(st, "\\(sl");
         else  
                 return;  
   
         last = 'a';  
 }  }
   
 /*  /*
Line 181  trylink(const char *buf, size_t *start, size_t end, si
Line 243  trylink(const char *buf, size_t *start, size_t end, si
 {  {
         size_t           linkstart, realend, linkend,          size_t           linkstart, realend, linkend,
                          i, j, textsz, stack;                           i, j, textsz, stack;
         const char      *text;  
   
         /*          /*
          * 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
            * nested escapes we need to ignore.
          */           */
         stack = 0;          stack = 0;
         for (linkstart = realend = *start; realend < end; realend++) {          for (linkstart = realend = *start; realend < end; realend++) {
                   if ('<' == buf[realend])
                           stack++;
                 if ('>' != buf[realend])                  if ('>' != buf[realend])
                         continue;                          continue;
                 else if (dsz == 1)                  else if (stack-- > 0)
                           continue;
                   if (dsz == 1)
                         break;                          break;
                 assert(realend > 0);                  assert(realend > 0);
                 if (' ' != buf[realend - 1])                  if (' ' != buf[realend - 1])
Line 212  trylink(const char *buf, size_t *start, size_t end, si
Line 279  trylink(const char *buf, size_t *start, size_t end, si
         linkend = dsz > 1 ? realend - 1 : realend;          linkend = dsz > 1 ? realend - 1 : realend;
   
         /* Re-scan to see if we have a title or section. */          /* Re-scan to see if we have a title or section. */
         text = &buf[*start];  
         for (textsz = *start; textsz < linkend; textsz++)          for (textsz = *start; textsz < linkend; textsz++)
                 if ('|' == buf[textsz] || '/' == buf[textsz])                  if ('|' == buf[textsz] || '/' == buf[textsz])
                         break;                          break;
Line 387  formatcode(struct state *st, const char *buf, size_t *
Line 453  formatcode(struct state *st, const char *buf, size_t *
 {  {
         enum fmt         fmt;          enum fmt         fmt;
         size_t           i, j, dsz;          size_t           i, j, dsz;
           int              white;
   
         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, then exit immediately.           * 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;
   
         if (FMT__MAX == fmt) {  
                 putchar(last = buf[(*start)++]);  
                 if ('\\' == last)  
                         putchar('e');  
                 return(0);  
         }  
   
         /*          /*
          * Determine whether we're overriding our delimiter.           * Determine whether we're overriding our delimiter.
          * According to POD, if we have more than one '<' followed by a           * According to POD, if we have more than one '<' followed by a
Line 430  formatcode(struct state *st, const char *buf, size_t *
Line 490  formatcode(struct state *st, const char *buf, size_t *
          * processing for real macros.           * processing for real macros.
          */           */
         if (FMT_ESCAPE == fmt) {          if (FMT_ESCAPE == fmt) {
                 formatescape(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) {
                 /*                  /*
Line 454  formatcode(struct state *st, const char *buf, size_t *
Line 514  formatcode(struct state *st, const char *buf, size_t *
                         (*start) += dsz;                          (*start) += dsz;
                         break;                          break;
                 }                  }
                   if (*start < end) {
                           assert('>' == buf[*start]);
                           (*start)++;
                   }
                   if (isspace(last))
                           while (*start < end && isspace((int)buf[*start]))
                                   (*start)++;
                 return(0);                  return(0);
         }          }
   
Line 461  formatcode(struct state *st, const char *buf, size_t *
Line 528  formatcode(struct state *st, const char *buf, size_t *
          * Check whether we're supposed to print macro stuff (this is           * Check whether we're supposed to print macro stuff (this is
          * suppressed in, e.g., "Nm" and "Sh" macros).           * suppressed in, e.g., "Nm" and "Sh" macros).
          */           */
         if ( ! nomacro) {          if (FMT__MAX != fmt && !nomacro) {
                   white = ' ' == last || '\n' == last ||
                           ' ' == buf[*start];
   
                 /*                  /*
                  * Print out the macro describing this format code.                   * If we are on a text line and there is no
                  * If we're not "reentrant" (not yet on a macro line)                   * whitespace before our content, we have to make
                  * then print a newline, if necessary, and the macro                   * the previous word a prefix to the macro line.
                  * indicator.  
                  * Otherwise, offset us with a space.  
                  */                   */
                 if ( ! reentrant) {  
                   if ( ! white && ! reentrant) {
                           if ( ! st->hasnl)
                                   putchar('\n');
                           printf(".Pf ");
                   }
   
                   outbuf_flush(st);
   
                   /* Whitespace is easier to suppress on macro lines. */
   
                   if ( ! white && reentrant)
                           printf(" Ns");
   
                   /* Unless we are on a macro line, start one. */
   
                   if (white && ! reentrant) {
                         if (last != '\n')                          if (last != '\n')
                                 putchar('\n');                                  putchar('\n');
                         putchar('.');                          putchar('.');
                 } else                  } else
                         putchar(' ');                          putchar(' ');
   
                 /*  
                  * If we don't have whitespace before us (and none after  
                  * the opening delimiter), then suppress macro  
                  * whitespace with Pf.  
                  */  
                 if (' ' != last && '\n' != last && ' ' != buf[*start])  
                         printf("Pf ");  
   
                   /* Print the macro corresponding to this format code. */
   
                 switch (fmt) {                  switch (fmt) {
                 case (FMT_ITALIC):                  case (FMT_ITALIC):
                         printf("Em ");                          printf("Em ");
Line 498  formatcode(struct state *st, const char *buf, size_t *
Line 576  formatcode(struct state *st, const char *buf, size_t *
                                         printf("Ar ");                                          printf("Ar ");
                                 break;                                  break;
                         }                          }
                         printf("Sy ");                          if (0 == strncmp(buf + *start, "NULL", 4) &&
                               ('=' == buf[*start + 4] ||
                                '>' == buf[*start + 4]))
                                   printf("Dv ");
                           else
                                   printf("Sy ");
                         break;                          break;
                 case (FMT_CODE):                  case (FMT_CODE):
                         printf("Qo Li ");                          printf("Qo Li ");
Line 517  formatcode(struct state *st, const char *buf, size_t *
Line 600  formatcode(struct state *st, const char *buf, size_t *
                 default:                  default:
                         abort();                          abort();
                 }                  }
         }          } else
                   outbuf_flush(st);
   
         /*          /*
          * 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 583  formatcode(struct state *st, const char *buf, size_t *
Line 667  formatcode(struct state *st, const char *buf, size_t *
                                 (*start)++;                                  (*start)++;
         }          }
   
           if (FMT__MAX == fmt)
                   return(0);
   
         if ( ! nomacro && FMT_CODE == fmt)          if ( ! nomacro && FMT_CODE == fmt)
                 printf(" Qc ");                  printf(" Qc ");
   
Line 718  command(struct state *st, const char *buf, size_t star
Line 805  command(struct state *st, const char *buf, size_t star
                                 st->sect = SECT_SYNOPSIS;                                  st->sect = SECT_SYNOPSIS;
                 }                  }
                 formatcodeln(st, buf, &start, end, 1);                  formatcodeln(st, buf, &start, end, 1);
                 putchar('\n');                  putchar(last = '\n');
                 st->haspar = 1;                  st->haspar = 1;
                 break;                  break;
         case (CMD_HEAD2):          case (CMD_HEAD2):
                 printf(".Ss ");                  printf(".Ss ");
                 formatcodeln(st, buf, &start, end, 1);                  formatcodeln(st, buf, &start, end, 1);
                 putchar('\n');                  putchar(last = '\n');
                 st->haspar = 1;                  st->haspar = 1;
                 break;                  break;
         case (CMD_HEAD3):          case (CMD_HEAD3):
                 puts(".Pp");                  puts(".Pp");
                 printf(".Em ");                  printf(".Em ");
                 formatcodeln(st, buf, &start, end, 0);                  formatcodeln(st, buf, &start, end, 0);
                 putchar('\n');                  putchar(last = '\n');
                 puts(".Pp");                  puts(".Pp");
                 st->haspar = 1;                  st->haspar = 1;
                 break;                  break;
Line 739  command(struct state *st, const char *buf, size_t star
Line 826  command(struct state *st, const char *buf, size_t star
                 puts(".Pp");                  puts(".Pp");
                 printf(".No ");                  printf(".No ");
                 formatcodeln(st, buf, &start, end, 0);                  formatcodeln(st, buf, &start, end, 0);
                 putchar('\n');                  putchar(last = '\n');
                 puts(".Pp");                  puts(".Pp");
                 st->haspar = 1;                  st->haspar = 1;
                 break;                  break;
Line 793  command(struct state *st, const char *buf, size_t star
Line 880  command(struct state *st, const char *buf, size_t star
                 case (LIST_TAG):                  case (LIST_TAG):
                         printf(".It ");                          printf(".It ");
                         formatcodeln(st, buf, &start, end, 0);                          formatcodeln(st, buf, &start, end, 0);
                         putchar('\n');                          putchar(last = '\n');
                         break;                          break;
                 case (LIST_ENUM):                  case (LIST_ENUM):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
Line 849  command(struct state *st, const char *buf, size_t star
Line 936  command(struct state *st, const char *buf, size_t star
 static void  static void
 verbatim(struct state *st, const char *buf, size_t start, size_t end)  verbatim(struct state *st, const char *buf, size_t start, size_t end)
 {  {
         int              last;          size_t           i;
   
         if ( ! st->parsing || st->paused)          if ( ! st->parsing || st->paused)
                 return;                  return;
   again:
           /*
            * If we're in the SYNOPSIS, see if we're an #include block.
            * If we are, then print the "In" macro and re-loop.
            * This handles any number of inclusions, but only when they
            * come before the remaining parts...
            */
           if (SECT_SYNOPSIS == st->sect) {
                   i = start;
                   for (i = start; i < end && ' ' == buf[i]; i++)
                           /* Spin. */ ;
                   if (i == end)
                           return;
                   /* We're an include block! */
                   if (end - i > 10 &&
                           0 == memcmp(&buf[i], "#include <", 10)) {
                           start = i + 10;
                           while (start < end && ' ' == buf[start])
                                   start++;
                           fputs(".In ", stdout);
                           /* Stop til the '>' marker or we hit eoln. */
                           while (start < end &&
                                   '>' != buf[start] && '\n' != buf[start])
                                   putchar(buf[start++]);
                           putchar('\n');
                           if (start < end && '>' == buf[start])
                                   start++;
                           if (start < end && '\n' == buf[start])
                                   start++;
                           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 867  verbatim(struct state *st, const char *buf, size_t sta
Line 990  verbatim(struct state *st, const char *buf, size_t sta
                 if ('\\' == buf[start])                  if ('\\' == buf[start])
                         printf("e");                          printf("e");
         }          }
         putchar('\n');          putchar(last = '\n');
         puts(".Ed");          puts(".Ed");
 }  }
   
Line 897  hasmatch(const char *buf, size_t start, size_t end)
Line 1020  hasmatch(const char *buf, size_t start, size_t end)
  * If we're an ending bracket, see if we have a stack already.   * If we're an ending bracket, see if we have a stack already.
  */   */
 static int  static int
 dosynopsisop(const char *buf, int *last,  dosynopsisop(const char *buf, size_t *start, size_t end, size_t *opstack)
         size_t *start, size_t end, size_t *opstack)  
 {  {
   
         assert('[' == buf[*start] || ']' == buf[*start]);          assert('[' == buf[*start] || ']' == buf[*start]);
   
         if ('[' == buf[*start] && hasmatch(buf, *start + 1, end)) {          if ('[' == buf[*start] && hasmatch(buf, *start + 1, end)) {
                 if ('\n' != *last)                  if ('\n' != last)
                         putchar('\n');                          putchar('\n');
                 puts(".Oo");                  puts(".Oo");
                 (*opstack)++;                  (*opstack)++;
Line 912  dosynopsisop(const char *buf, int *last,
Line 1034  dosynopsisop(const char *buf, int *last,
                 return(0);                  return(0);
   
         if (']' == buf[*start] && *opstack > 0) {          if (']' == buf[*start] && *opstack > 0) {
                 if ('\n' != *last)                  if ('\n' != last)
                         putchar('\n');                          putchar('\n');
                 puts(".Oc");                  puts(".Oc");
                 (*opstack)--;                  (*opstack)--;
Line 920  dosynopsisop(const char *buf, int *last,
Line 1042  dosynopsisop(const char *buf, int *last,
                 return(0);                  return(0);
   
         (*start)++;          (*start)++;
         *last = '\n';          last = '\n';
         while (' ' == buf[*start])          while (' ' == buf[*start])
                 (*start)++;                  (*start)++;
         return(1);          return(1);
Line 949  donamenm(struct state *st, const char *buf, size_t *st
Line 1071  donamenm(struct state *st, const char *buf, size_t *st
                                 break;                                  break;
                 formatcodeln(st, buf, start, word, 1);                  formatcodeln(st, buf, start, word, 1);
                 if (*start == end) {                  if (*start == end) {
                         putchar('\n');                          putchar(last = '\n');
                         continue;                          continue;
                 }                  }
                 assert(',' == buf[*start]);                  assert(',' == buf[*start]);
Line 999  ordinary(struct state *st, const char *buf, size_t sta
Line 1121  ordinary(struct state *st, const char *buf, size_t sta
                                 start++;                                  start++;
                         fputs(".Nd ", stdout);                          fputs(".Nd ", stdout);
                         formatcodeln(st, buf, &start, end, 1);                          formatcodeln(st, buf, &start, end, 1);
                         putchar('\n');                          putchar(last = '\n');
                         return;                          return;
                 }                  }
         }          }
Line 1008  ordinary(struct state *st, const char *buf, size_t sta
Line 1130  ordinary(struct state *st, const char *buf, size_t sta
                 puts(".Pp");                  puts(".Pp");
   
         st->haspar = 0;          st->haspar = 0;
           st->hasnl = 1;
         last = '\n';          last = '\n';
         opstack = 0;          opstack = 0;
   
Line 1022  ordinary(struct state *st, const char *buf, size_t sta
Line 1145  ordinary(struct state *st, const char *buf, size_t sta
                         else if ('\n' == buf[start])                          else if ('\n' == buf[start])
                                 break;                                  break;
                         else if ('\n' == last && '.' == buf[start])                          else if ('\n' == last && '.' == buf[start])
                                 printf("\\&");                                  outbuf_addstr(st, "\\&");
                         else if ('\n' == last && '\'' == buf[start])                          else if ('\n' == last && '\'' == buf[start])
                                 printf("\\&");                                  outbuf_addstr(st, "\\&");
                         /*                          /*
                          * If we're in the SYNOPSIS, have square                           * If we're in the SYNOPSIS, have square
                          * brackets indicate that we're opening and                           * brackets indicate that we're opening and
Line 1033  ordinary(struct state *st, const char *buf, size_t sta
Line 1156  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(buf, &last,                                  dosynopsisop(buf, &start, end, &opstack))
                                         &start, end, &opstack))  
                                 continue;                                  continue;
                         putchar(last = buf[start++]);                          last = buf[start++];
                         if ('\\' == last)                          if (' ' == last) {
                                 putchar('e');                                  outbuf_flush(st);
                                   putchar(' ');
                           } else
                                   outbuf_addchar(st);
                 }                  }
   
                 if (start < end - 1 && '<' == buf[start + 1]) {                  if (start < end - 1 && '<' == buf[start + 1]) {
                         /*  
                          * We've encountered a format code.  
                          * This is going to trigger a macro no matter  
                          * what, so print a newline now.  
                          * Then print the (possibly nested) macros and  
                          * following that, a newline.  
                          * Consume all whitespace so we don't  
                          * accidentally start an implicit literal line.  
                          * If the macro ends with a flush comma or  
                          * period, let mdoc(7) handle it for us.  
                          */  
                         if (formatcode(st, buf, &start, end, 0, 0, seq)) {                          if (formatcode(st, buf, &start, end, 0, 0, seq)) {
                                   /*
                                    * Let mdoc(7) handle trailing punctuation.
                                    * XXX Some punctuation characters
                                    *     are not handled yet.
                                    */
                                 if ((start == end - 1 ||                                  if ((start == end - 1 ||
                                         (start < end - 1 &&                                          (start < end - 1 &&
                                          (' ' == buf[start + 1] ||                                           (' ' == buf[start + 1] ||
Line 1063  ordinary(struct state *st, const char *buf, size_t sta
Line 1182  ordinary(struct state *st, const char *buf, size_t sta
                                         putchar(' ');                                          putchar(' ');
                                         putchar(buf[start++]);                                          putchar(buf[start++]);
                                 }                                  }
                                   /* End the macro line. */
                                 putchar(last = '\n');                                  putchar(last = '\n');
                                   st->hasnl = 1;
                                   /*
                                    * Consume all whitespace
                                    * so we don't accidentally start
                                    * an implicit literal line.
                                    */
                                 while (start < end && ' ' == buf[start])                                  while (start < end && ' ' == buf[start])
                                         start++;                                          start++;
                         }                          }
                 } else if (start < end && '\n' == buf[start]) {                  } else if (start < end && '\n' == buf[start]) {
                         /*                          outbuf_newln(st);
                          * Print the newline only if we haven't already  
                          * printed a newline.  
                          */  
                         if (last != '\n')  
                                 putchar(last = buf[start]);  
                         if (++start >= end)                          if (++start >= end)
                                 continue;                                  continue;
                         /*                          /*
Line 1084  ordinary(struct state *st, const char *buf, size_t sta
Line 1205  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])
                                 puts(".br");                                  puts(".br");
                                 last = '\n';  
                         }  
                         for ( ; start < end; start++)                          for ( ; start < end; start++)
                                 if (' ' != buf[start] && '\t' != buf[start])                                  if (' ' != buf[start] && '\t' != buf[start])
                                         break;                                          break;
                 }                  }
         }          }
           outbuf_newln(st);
         if (last != '\n')  
                 putchar('\n');  
 }  }
   
 /*  /*
Line 1125  static void
Line 1242  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, const char *buf, size_t sz)
 {  {
         size_t           sup, end, i, cur = 0;  
         struct state     st;  
         const char      *section, *date;  
         char             datebuf[64];          char             datebuf[64];
           struct state     st;
           const char      *fbase, *fext, *section, *date;
         char            *title, *cp;          char            *title, *cp;
           size_t           sup, end, i, cur = 0;
   
         if (0 == sz)          if (0 == sz)
                 return;                  return;
   
         /* Title is last path component of the filename. */          /*
            * Parsing the filename is almost always required,
            * except when both the title and the section
            * are provided on the command line.
            */
   
         if (NULL != args->title)          if (NULL == args->title || NULL == args->section) {
                 title = strdup(args->title);                  fbase = strrchr(fname, '/');
         else if (NULL != (cp = strrchr(fname, '/')))                  if (NULL == fbase)
                 title = strdup(cp + 1);                          fbase = fname;
         else                  else
                 title = strdup(fname);                          fbase++;
                   fext = strrchr(fbase, '.');
           } else
                   fext = NULL;
   
           /*
            * The title will be converted to uppercase,
            * so it needs to be copied.
            */
   
           title = (NULL != args->title) ? strdup(args->title) :
                   (NULL != fext) ? strndup(fbase, fext - fbase) :
                   strdup(fbase);
   
         if (NULL == title) {          if (NULL == title) {
                 perror(NULL);                  perror(NULL);
                 exit(EXIT_FAILURE);                  exit(EXIT_FAILURE);
Line 1150  dofile(const struct args *args, const char *fname, 
Line 1283  dofile(const struct args *args, const char *fname, 
   
         /* Section is 1 unless suffix is "pm". */          /* Section is 1 unless suffix is "pm". */
   
         if (NULL == (section = args->section)) {          section = (NULL != args->section) ? args->section :
                 section = "1";              (NULL == fext || strcmp(fext + 1, "pm")) ? "1" :
                 if (NULL != (cp = strrchr(title, '.'))) {              PERL_SECTION;
                         *cp++ = '\0';  
                         if (0 == strcmp(cp, "pm"))  
                                 section = PERL_SECTION;  
                 }  
         }  
   
         /* Date.  Or the given "tm" if not supplied. */          /* Date.  Or the given "tm" if not supplied. */
   
Line 1220  readfile(const struct args *args, const char *fname)
Line 1348  readfile(const struct args *args, const char *fname)
         time_t           ttm;          time_t           ttm;
         struct stat      st;          struct stat      st;
   
         assert(NULL != fname);  
   
         fd = 0 != strcmp("-", fname) ?          fd = 0 != strcmp("-", fname) ?
                 open(fname, O_RDONLY, 0) : STDIN_FILENO;                  open(fname, O_RDONLY, 0) : STDIN_FILENO;
   
Line 1327  main(int argc, char *argv[])
Line 1453  main(int argc, char *argv[])
   
         /* Accept only a single input file. */          /* Accept only a single input file. */
   
         if (argc > 2)          if (argc > 1)
                 return(EXIT_FAILURE);                  goto usage;
         else if (1 == argc)          else if (1 == argc)
                 fname = *argv;                  fname = *argv;
   
Line 1337  main(int argc, char *argv[])
Line 1463  main(int argc, char *argv[])
   
 usage:  usage:
         fprintf(stderr, "usage: %s [-d date] "          fprintf(stderr, "usage: %s [-d date] "
                 "[-n title] [-s section]\n", name);              "[-n title] [-s section] [file]\n", name);
   
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
 }  }
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.31
CVSweb