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

Diff for /mandoc/main.c between version 1.2 and 1.14

version 1.2, 2009/03/19 16:18:36 version 1.14, 2009/03/25 15:17:49
Line 27 
Line 27 
 #include <unistd.h>  #include <unistd.h>
   
 #include "mdoc.h"  #include "mdoc.h"
   #include "man.h"
   
   #ifdef __linux__
   extern  int               getsubopt(char **, char * const *, char **);
   # ifndef __dead
   #  define __dead __attribute__((__noreturn__))
   # endif
   #elif defined(__dead2)
   # ifndef __dead
   #  define __dead __dead2
   # endif
   #endif
   
   struct  buf {
           char             *buf;
           size_t            sz;
   };
   
   struct  curparse {
           const char       *file;
           int               wflags;
 #define WARN_WALL         0x03          /* All-warnings mask. */  #define WARN_WALL         0x03          /* All-warnings mask. */
 #define WARN_WCOMPAT     (1 << 0)       /* Compatibility warnings. */  #define WARN_WCOMPAT     (1 << 0)       /* Compatibility warnings. */
 #define WARN_WSYNTAX     (1 << 1)       /* Syntax warnings. */  #define WARN_WSYNTAX     (1 << 1)       /* Syntax warnings. */
 #define WARN_WERR        (1 << 2)       /* Warnings->errors. */  #define WARN_WERR        (1 << 2)       /* Warnings->errors. */
   };
   
 enum outt {  enum    intt {
         OUTT_ASCII,          INTT_MDOC = 0,
           INTT_MAN
   };
   
   enum    outt {
           OUTT_ASCII = 0,
         OUTT_LATIN1,          OUTT_LATIN1,
         OUTT_UTF8,          OUTT_UTF8,
         OUTT_TREE,          OUTT_TREE,
         OUTT_LINT          OUTT_LINT
 };  };
   
 typedef int             (*out_run)(void *, const struct mdoc *);  typedef int             (*out_run)(void *, const struct man *,
                                   const struct mdoc *);
 typedef void            (*out_free)(void *);  typedef void            (*out_free)(void *);
   
 extern  char             *__progname;  extern  char             *__progname;
Line 49  extern char   *__progname;
Line 76  extern char   *__progname;
 extern  void             *ascii_alloc(void);  extern  void             *ascii_alloc(void);
 extern  void             *latin1_alloc(void);  extern  void             *latin1_alloc(void);
 extern  void             *utf8_alloc(void);  extern  void             *utf8_alloc(void);
 extern  int               terminal_run(void *, const struct mdoc *);  extern  int               terminal_run(void *, const struct man *,
 extern  int               tree_run(void *, const struct mdoc *);                                  const struct mdoc *);
   extern  int               tree_run(void *, const struct man *,
                                   const struct mdoc *);
 extern  void              terminal_free(void *);  extern  void              terminal_free(void *);
   
 __dead  static void       version(void);  
 __dead  static void       usage(void);  
 static  int               foptions(int *, char *);  static  int               foptions(int *, char *);
 static  int               toptions(enum outt *, char *);  static  int               toptions(enum outt *, char *);
   static  int               moptions(enum intt *, char *);
 static  int               woptions(int *, char *);  static  int               woptions(int *, char *);
 static  int               merr(void *, int, int, const char *);  static  int               merr(void *, int, int, const char *);
 static  int               mwarn(void *, int, int,  static  int               manwarn(void *, int, int, const char *);
   static  int               mdocwarn(void *, int, int,
                                 enum mdoc_warn, const char *);                                  enum mdoc_warn, const char *);
 static  int               file(char **, size_t *, char **, size_t *,  static  int               file(struct buf *, struct buf *,
                                 const char *, struct mdoc *);                                  const char *,
 static  int               fdesc(char **, size_t *, char **, size_t *,                                  struct man *, struct mdoc *);
                                 const char *, int, struct mdoc *);  static  int               fdesc(struct buf *, struct buf *,
                                   const char *, int,
                                   struct man *, struct mdoc *);
   
   __dead  static void       version(void);
   __dead  static void       usage(void);
   
   
 int  int
 main(int argc, char *argv[])  main(int argc, char *argv[])
 {  {
         int              c, rc, fflags, wflags;          int              c, rc, fflags;
         struct mdoc_cb   cb;          struct mdoc_cb   mdoccb;
           struct man_cb    mancb;
           struct man      *man;
         struct mdoc     *mdoc;          struct mdoc     *mdoc;
         char            *buf, *line;  
         size_t           bufsz, linesz;  
         void            *outdata;          void            *outdata;
         enum outt        outtype;          enum outt        outtype;
           enum intt        inttype;
           struct buf       ln, blk;
         out_run          outrun;          out_run          outrun;
         out_free         outfree;          out_free         outfree;
           struct curparse  curp;
   
         fflags = wflags = 0;          fflags = 0;
         outtype = OUTT_ASCII;          outtype = OUTT_ASCII;
           inttype = INTT_MDOC;
   
           bzero(&curp, sizeof(struct curparse));
   
         /* LINTED */          /* LINTED */
         while (-1 != (c = getopt(argc, argv, "f:VW:T:")))          while (-1 != (c = getopt(argc, argv, "f:m:VW:T:")))
                 switch (c) {                  switch (c) {
                 case ('f'):                  case ('f'):
                         if ( ! foptions(&fflags, optarg))                          if ( ! foptions(&fflags, optarg))
                                 return(0);                                  return(0);
                         break;                          break;
                   case ('m'):
                           if ( ! moptions(&inttype, optarg))
                                   return(0);
                           break;
                 case ('T'):                  case ('T'):
                         if ( ! toptions(&outtype, optarg))                          if ( ! toptions(&outtype, optarg))
                                 return(0);                                  return(0);
                         break;                          break;
                 case ('W'):                  case ('W'):
                         if ( ! woptions(&wflags, optarg))                          if ( ! woptions(&curp.wflags, optarg))
                                 return(0);                                  return(0);
                         break;                          break;
                 case ('V'):                  case ('V'):
Line 149  main(int argc, char *argv[])
Line 193  main(int argc, char *argv[])
          * screen.  XXX - for now, no path for debugging messages.           * screen.  XXX - for now, no path for debugging messages.
          */           */
   
         cb.mdoc_msg = NULL;          mdoccb.mdoc_msg = NULL;
         cb.mdoc_err = merr;          mdoccb.mdoc_err = merr;
         cb.mdoc_warn = mwarn;          mdoccb.mdoc_warn = mdocwarn;
   
         buf = line = NULL;          mancb.man_err = merr;
         bufsz = linesz = 0;          mancb.man_warn = manwarn;
   
         mdoc = mdoc_alloc(&wflags, fflags, &cb);          bzero(&ln, sizeof(struct buf));
           bzero(&blk, sizeof(struct buf));
   
         while (*argv) {          man = NULL;
                 if ( ! file(&line, &linesz, &buf, &bufsz, *argv, mdoc))          mdoc = NULL;
                         break;  
                 if (outrun && ! (*outrun)(outdata, mdoc))  
                         break;  
   
                 /* Reset the parser for another file. */          switch (inttype) {
                 mdoc_reset(mdoc);          case (INTT_MAN):
                 argv++;                  man = man_alloc(&curp, &mancb);
                   break;
           default:
                   mdoc = mdoc_alloc(&curp, fflags, &mdoccb);
                   break;
         }          }
   
         rc = NULL == *argv;          /*
            * Loop around available files.
            */
   
         if (buf)          if (NULL == *argv) {
                 free(buf);                  curp.file = "<stdin>";
         if (line)                  rc = 0;
                 free(line);                  c = fdesc(&blk, &ln, "stdin",
                                   STDIN_FILENO, man, mdoc);
   
                   if (c && NULL == outrun)
                           rc = 1;
                   else if (c && outrun && (*outrun)(outdata, man, mdoc))
                           rc = 1;
           } else {
                   while (*argv) {
                           curp.file = *argv;
                           c = file(&blk, &ln, *argv, man, mdoc);
                           if ( ! c)
                                   break;
                           if (outrun && ! (*outrun)(outdata, man, mdoc))
                                   break;
                           if (man)
                                   man_reset(man);
                           if (mdoc)
                                   mdoc_reset(mdoc);
   
                           argv++;
                   }
                   rc = NULL == *argv;
           }
   
           if (blk.buf)
                   free(blk.buf);
           if (ln.buf)
                   free(ln.buf);
         if (outfree)          if (outfree)
                 (*outfree)(outdata);                  (*outfree)(outdata);
           if (mdoc)
                   mdoc_free(mdoc);
           if (man)
                   man_free(man);
   
         mdoc_free(mdoc);  
   
         return(rc ? EXIT_SUCCESS : EXIT_FAILURE);          return(rc ? EXIT_SUCCESS : EXIT_FAILURE);
 }  }
   
Line 198  __dead static void
Line 276  __dead static void
 usage(void)  usage(void)
 {  {
   
         (void)fprintf(stderr, "usage: %s\n", __progname);          (void)fprintf(stderr, "usage: %s [-V] [-foption...] "
                           "[-mformat] [-Toutput] [-Werr...]\n",
                           __progname);
         exit(1);          exit(1);
         /* NOTREACHED */          /* NOTREACHED */
 }  }
   
   
 static int  static int
 file(char **ln, size_t *lnsz, char **buf, size_t *bufsz,  file(struct buf *blk, struct buf *ln, const char *file,
                 const char *file, struct mdoc *mdoc)                  struct man *man, struct mdoc *mdoc)
 {  {
         int              fd, c;          int              fd, c;
   
Line 215  file(char **ln, size_t *lnsz, char **buf, size_t *bufs
Line 295  file(char **ln, size_t *lnsz, char **buf, size_t *bufs
                 return(0);                  return(0);
         }          }
   
         c = fdesc(ln, lnsz, buf, bufsz, file, fd, mdoc);          c = fdesc(blk, ln, file, fd, man, mdoc);
   
         if (-1 == close(fd))          if (-1 == close(fd))
                 warn("%s", file);                  warn("%s", file);
Line 225  file(char **ln, size_t *lnsz, char **buf, size_t *bufs
Line 305  file(char **ln, size_t *lnsz, char **buf, size_t *bufs
   
   
 static int  static int
 fdesc(char **lnp, size_t *lnsz, char **bufp, size_t *bufsz,  fdesc(struct buf *blk, struct buf *ln,
                 const char *f, int fd, struct mdoc *mdoc)                  const char *f, int fd,
                   struct man *man, struct mdoc *mdoc)
 {  {
         size_t           sz;          size_t           sz;
         ssize_t          ssz;          ssize_t          ssz;
         struct stat      st;          struct stat      st;
         int              j, i, pos, lnn;          int              j, i, pos, lnn;
         char            *ln, *buf;  
   
         buf = *bufp;          assert( ! (man && mdoc));
         ln = *lnp;  
   
         /*          /*
          * Two buffers: ln and buf.  buf is the input buffer, optimised           * Two buffers: ln and buf.  buf is the input buffer, optimised
Line 243  fdesc(char **lnp, size_t *lnsz, char **bufp, size_t *b
Line 322  fdesc(char **lnp, size_t *lnsz, char **bufp, size_t *b
          * growable, hence passed in by ptr-ptr.           * growable, hence passed in by ptr-ptr.
          */           */
   
         if (-1 == fstat(fd, &st)) {          sz = BUFSIZ;
   
           if (-1 == fstat(fd, &st))
                 warnx("%s", f);                  warnx("%s", f);
                 sz = BUFSIZ;          else if ((size_t)st.st_blksize > sz)
         } else                  sz = st.st_blksize;
                 sz = (unsigned)BUFSIZ > st.st_blksize ?  
                         (size_t)BUFSIZ : st.st_blksize;  
   
         if (sz > *bufsz) {          if (sz > blk->sz) {
                 if (NULL == (buf = realloc(buf, sz)))                  blk->buf = realloc(blk->buf, sz);
                   if (NULL == blk->buf)
                         err(1, "realloc");                          err(1, "realloc");
                 *bufp = buf;                  blk->sz = sz;
                 *bufsz = sz;  
         }          }
   
         /*          /*
Line 262  fdesc(char **lnp, size_t *lnsz, char **bufp, size_t *b
Line 341  fdesc(char **lnp, size_t *lnsz, char **bufp, size_t *b
          */           */
   
         for (lnn = 1, pos = 0; ; ) {          for (lnn = 1, pos = 0; ; ) {
                 if (-1 == (ssz = read(fd, buf, sz))) {                  if (-1 == (ssz = read(fd, blk->buf, sz))) {
                         warn("%s", f);                          warn("%s", f);
                         return(0);                          return(0);
                 } else if (0 == ssz)                  } else if (0 == ssz)
                         break;                          break;
   
                 for (i = 0; i < (int)ssz; i++) {                  for (i = 0; i < (int)ssz; i++) {
                         if (pos >= (int)*lnsz) {                          if (pos >= (int)ln->sz) {
                                 *lnsz += 256; /* Step-size. */                                  ln->sz += 256; /* Step-size. */
                                 ln = realloc(ln, *lnsz);                                  ln->buf = realloc(ln->buf, ln->sz);
                                 if (NULL == ln)                                  if (NULL == ln->buf)
                                         err(1, "realloc");                                          err(1, "realloc");
                                 *lnp = ln;  
                         }                          }
   
                         if ('\n' != buf[i]) {                          if ('\n' != blk->buf[i]) {
                                 ln[pos++] = buf[i];                                  ln->buf[pos++] = blk->buf[i];
                                 continue;                                  continue;
                         }                          }
   
                         /* Check for CPP-escaped newline.  */                          /* Check for CPP-escaped newline.  */
   
                         if (pos > 0 && '\\' == ln[pos - 1]) {                          if (pos > 0 && '\\' == ln->buf[pos - 1]) {
                                 for (j = pos - 1; j >= 0; j--)                                  for (j = pos - 1; j >= 0; j--)
                                         if ('\\' != ln[j])                                          if ('\\' != ln->buf[j])
                                                 break;                                                  break;
   
                                 if ( ! ((pos - j) % 2)) {                                  if ( ! ((pos - j) % 2)) {
Line 296  fdesc(char **lnp, size_t *lnsz, char **bufp, size_t *b
Line 374  fdesc(char **lnp, size_t *lnsz, char **bufp, size_t *b
                                 }                                  }
                         }                          }
   
                         ln[pos] = 0;                          ln->buf[pos] = 0;
                         if ( ! mdoc_parseln(mdoc, lnn, ln))                          if (mdoc && ! mdoc_parseln(mdoc, lnn, ln->buf))
                                 return(0);                                  return(0);
                           if (man && ! man_parseln(man, lnn, ln->buf))
                                   return(0);
                         lnn++;                          lnn++;
                         pos = 0;                          pos = 0;
                 }                  }
         }          }
   
         return(mdoc_endparse(mdoc));          if (mdoc)
                  return(mdoc_endparse(mdoc));
   
           return(man_endparse(man));
 }  }
   
   
 static int  static int
   moptions(enum intt *tflags, char *arg)
   {
   
           if (0 == strcmp(arg, "mdoc"))
                   *tflags = INTT_MDOC;
           else if (0 == strcmp(arg, "man"))
                   *tflags = INTT_MAN;
           else {
                   warnx("bad argument: -m%s", arg);
                   return(0);
           }
   
           return(1);
   }
   
   
   static int
 toptions(enum outt *tflags, char *arg)  toptions(enum outt *tflags, char *arg)
 {  {
   
Line 409  woptions(int *wflags, char *arg)
Line 509  woptions(int *wflags, char *arg)
 static int  static int
 merr(void *arg, int line, int col, const char *msg)  merr(void *arg, int line, int col, const char *msg)
 {  {
           struct curparse *curp;
   
         warnx("error: %s (line %d, column %d)", msg, line, col);          curp = (struct curparse *)arg;
   
           warnx("%s:%d: error: %s (column %d)",
                           curp->file, line, msg, col);
         return(0);          return(0);
 }  }
   
   
 static int  static int
 mwarn(void *arg, int line, int col,  mdocwarn(void *arg, int line, int col,
                 enum mdoc_warn type, const char *msg)                  enum mdoc_warn type, const char *msg)
 {  {
         int              flags;          struct curparse *curp;
         char            *wtype;          char            *wtype;
   
         flags = *(int *)arg;          curp = (struct curparse *)arg;
         wtype = NULL;          wtype = NULL;
   
         switch (type) {          switch (type) {
         case (WARN_COMPAT):          case (WARN_COMPAT):
                 wtype = "compat";                  wtype = "compat";
                 if (flags & WARN_WCOMPAT)                  if (curp->wflags & WARN_WCOMPAT)
                         break;                          break;
                 return(1);                  return(1);
         case (WARN_SYNTAX):          case (WARN_SYNTAX):
                 wtype = "syntax";                  wtype = "syntax";
                 if (flags & WARN_WSYNTAX)                  if (curp->wflags & WARN_WSYNTAX)
                         break;                          break;
                 return(1);                  return(1);
         }          }
   
         assert(wtype);          assert(wtype);
         warnx("%s warning: %s (line %d, column %d)",          warnx("%s:%d: %s warning: %s (column %d)",
                         wtype, msg, line, col);                          curp->file, line, wtype, msg, col);
   
         if ( ! (flags & WARN_WERR))          if ( ! (curp->wflags & WARN_WERR))
                 return(1);                  return(1);
   
         warnx("%s: considering warnings as errors",          warnx("%s: considering warnings as errors",
Line 451  mwarn(void *arg, int line, int col, 
Line 555  mwarn(void *arg, int line, int col, 
 }  }
   
   
   static int
   manwarn(void *arg, int line, int col, const char *msg)
   {
           struct curparse *curp;
   
           curp = (struct curparse *)arg;
   
           if ( ! (curp->wflags & WARN_WSYNTAX))
                   return(1);
   
           warnx("%s:%d: syntax warning: %s (column %d)",
                           curp->file, line, msg, col);
   
           if ( ! (curp->wflags & WARN_WERR))
                   return(1);
   
           warnx("%s: considering warnings as errors",
                           __progname);
           return(0);
   }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.14
CVSweb