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

Diff for /mandoc/Attic/mdocml.c between version 1.1 and 1.50

version 1.1, 2008/11/22 14:53:29 version 1.50, 2009/01/20 12:51:28
Line 1 
Line 1 
 /* $Id$ */          /* $Id$ */
 /*  /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>   * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *   *
Line 16 
Line 16 
  * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR   * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  * PERFORMANCE OF THIS SOFTWARE.   * PERFORMANCE OF THIS SOFTWARE.
  */   */
 #include <sys/param.h>  
 #include <sys/stat.h>  #include <sys/stat.h>
   #include <sys/param.h>
   
 #include <assert.h>  #include <assert.h>
 #include <err.h>  
 #include <fcntl.h>  #include <fcntl.h>
   #include <err.h>
 #include <getopt.h>  #include <getopt.h>
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
 #include <unistd.h>  #include <unistd.h>
   
 #include "libmdocml.h"  #include "mdoc.h"
   
 struct md_file {  #define xfprintf        (void)fprintf
         int              fd;  
         const char      *name;  
 };  
   
 struct md_buf {  #define MD_LINE_SZ      (256)           /* Max input line size. */
         struct md_file  *file;  
         char            *buf;  /* TODO: have a struct for each transformer. */
         size_t           bufsz;  
         size_t           line;  typedef int             (*mdocprint)(const struct mdoc_node *);
   
   
   struct  md_parse {
           int               warn;         /* Warning flags. */
   #define MD_WARN_SYNTAX   (1 << 0)       /* Show syntax warnings. */
   #define MD_WARN_COMPAT   (1 << 1)       /* Show compat warnings. */
   #define MD_WARN_ALL      (0x03)         /* Show all warnings. */
   #define MD_WARN_ERR      (1 << 2)       /* Make warnings->errors. */
           int               dbg;          /* Debug level. */
           struct mdoc      *mdoc;         /* Active parser. */
           char             *buf;          /* Input buffer. */
           u_long            bufsz;        /* Input buffer size. */
           char             *name;         /* Input file name. */
           int               fd;           /* Input file desc. */
           mdocprint         print;        /* Node-print function. */
 };  };
   
 static void              usage(void);  extern  char             *__progname;
   
 static int               md_begin(const char *, const char *);  extern  int               treeprint(const struct mdoc_node *);
 static int               md_begin_io(const char *, const char *);  
 static int               md_begin_bufs(struct md_file *, struct md_file *);  
 static int               md_run(struct md_buf *, struct md_buf *);  
 static int               md_line(struct md_buf *, const struct md_buf *,  
                                 const char *, size_t);  
   
 static ssize_t           md_buf_fill(struct md_buf *);  static  void              usage(void);
   
   static  int               parse_begin(struct md_parse *);
   static  int               parse_leave(struct md_parse *, int);
   static  int               io_begin(struct md_parse *);
   static  int               io_leave(struct md_parse *, int);
   static  int               buf_begin(struct md_parse *);
   static  int               buf_leave(struct md_parse *, int);
   
   static  void              msg_msg(void *, int, int, const char *);
   static  int               msg_err(void *, int, int, const char *);
   static  int               msg_warn(void *, int, int,
                                   enum mdoc_warn, const char *);
   
   #ifdef __linux__
   extern  int               getsubopt(char **, char *const *, char **);
   #endif
   
 int  int
 main(int argc, char *argv[])  main(int argc, char *argv[])
 {  {
         int              c;          int              c;
         char            *out, *in;          struct md_parse  parser;
           char            *opts, *v, *filter;
   #define ALL              0
   #define COMPAT           1
   #define SYNTAX           2
   #define ERROR            3
           char            *toks[] = { "all", "compat", "syntax",
                                       "error", NULL };
   
         extern char     *optarg;          extern char     *optarg;
         extern int       optind;          extern int       optind;
   
         out = NULL;          filter = NULL;
   
         while (-1 != (c = getopt(argc, argv, "o:")))          (void)memset(&parser, 0, sizeof(struct md_parse));
   
           while (-1 != (c = getopt(argc, argv, "f:vW:")))
                 switch (c) {                  switch (c) {
                 case ('o'):                  case ('f'):
                         out = optarg;                          filter = optarg;
                         break;                          break;
                   case ('v'):
                           parser.dbg++;
                           break;
                   case ('W'):
                           opts = optarg;
                           while (*opts)
                                   switch (getsubopt(&opts, toks, &v)) {
                                   case (ALL):
                                           parser.warn |= MD_WARN_ALL;
                                           break;
                                   case (COMPAT):
                                           parser.warn |= MD_WARN_COMPAT;
                                           break;
                                   case (SYNTAX):
                                           parser.warn |= MD_WARN_SYNTAX;
                                           break;
                                   case (ERROR):
                                           parser.warn |= MD_WARN_ERR;
                                           break;
                                   default:
                                           usage();
                                           return(1);
                                   }
                           break;
                 default:                  default:
                         usage();                          usage();
                         return(1);                          return(1);
                 }                  }
   
         argv += optind;          argv += optind;
         if (1 != (argc -= optind)) {          argc -= optind;
                 usage();  
                 return(1);          parser.name = "-";
           if (1 == argc)
                   parser.name = *argv++;
   
           if (filter) {
                   if (0 == strcmp(filter, "tree"))
                           parser.print = treeprint;
         }          }
   
         argc--;          if ( ! io_begin(&parser))
         in = *argv++;                  return(EXIT_FAILURE);
   
         return(md_begin(out, in));          return(EXIT_SUCCESS);
 }  }
   
   
 static int  static int
 md_begin(const char *out, const char *in)  io_leave(struct md_parse *p, int code)
 {  {
         char             buf[MAXPATHLEN];  
   
         assert(in);          if (-1 == p->fd || STDIN_FILENO == p->fd)
         if (out)                  return(code);
                 return(md_begin_io(out, in));  
   
         if (strlcpy(buf, in, MAXPATHLEN) >= MAXPATHLEN)          if (-1 == close(p->fd)) {
                 warnx("output filename too long");                  warn("%s", p->name);
         else if (strlcat(buf, ".html", MAXPATHLEN) >= MAXPATHLEN)                  code = 0;
                 warnx("output filename too long");          }
         else          return(code);
                 return(md_begin_io(buf, in));  
   
         return(1);  
 }  }
   
   
 static int  static int
 md_begin_io(const char *out, const char *in)  io_begin(struct md_parse *p)
 {  {
         int              c;  
         struct md_file   fin, fout;  
   
         assert(out);          p->fd = STDIN_FILENO;
         assert(in);          if (0 != strncmp(p->name, "-", 1))
                   if (-1 == (p->fd = open(p->name, O_RDONLY, 0))) {
                           warn("%s", p->name);
                           return(io_leave(p, 0));
                   }
   
         /* XXX: put an output file in TMPDIR and switch it out when the          return(io_leave(p, buf_begin(p)));
          * true file is ready to be written.  }
          */  
   
         fin.name = in;  
   
         if (-1 == (fin.fd = open(fin.name, O_RDONLY, 0))) {  static int
                 warn("%s", fin.name);  buf_leave(struct md_parse *p, int code)
                 return(1);  {
         }  
   
         fout.name = out;          if (p->buf)
                   free(p->buf);
         fout.fd = open(fout.name, O_WRONLY | O_CREAT | O_EXCL, 0644);          return(code);
         if (-1 == fout.fd) {  
                 warn("%s", fout.name);  
                 if (-1 == close(fin.fd))  
                         warn("%s", fin.name);  
                 return(1);  
         }  
   
         c = md_begin_bufs(&fout, &fin);  
   
         if (-1 == close(fin.fd)) {  
                 warn("%s", in);  
                 c = 1;  
         }  
         if (-1 == close(fout.fd)) {  
                 warn("%s", out);  
                 c = 1;  
         }  
   
         return(c);  
 }  }
   
   
 static int  static int
 md_begin_bufs(struct md_file *out, struct md_file *in)  buf_begin(struct md_parse *p)
 {  {
         struct stat      stin, stout;          struct stat      st;
         struct md_buf    inbuf, outbuf;  
         int              c;  
   
         assert(in);          if (-1 == fstat(p->fd, &st)) {
         assert(out);                  warn("%s", p->name);
   
         if (-1 == fstat(in->fd, &stin)) {  
                 warn("fstat: %s", in->name);  
                 return(1);                  return(1);
         } else if (-1 == fstat(out->fd, &stout)) {          }
                 warn("fstat: %s", out->name);  
                 return(1);  
         }  
   
         inbuf.file = in;          p->bufsz = MAX(st.st_blksize, BUFSIZ);
         inbuf.line = 1;  
         inbuf.bufsz = MAX(stin.st_blksize, BUFSIZ);  
   
         outbuf.file = out;          if (NULL == (p->buf = malloc(p->bufsz))) {
         outbuf.line = 1;  
         outbuf.bufsz = MAX(stout.st_blksize, BUFSIZ);  
   
         if (NULL == (inbuf.buf = malloc(inbuf.bufsz))) {  
                 warn("malloc");                  warn("malloc");
                 return(1);                  return(buf_leave(p, 0));
         } else if (NULL == (outbuf.buf = malloc(outbuf.bufsz))) {  
                 warn("malloc");  
                 free(inbuf.buf);  
                 return(1);  
         }          }
   
         c = md_run(&outbuf, &inbuf);          return(buf_leave(p, parse_begin(p)));
   
         free(inbuf.buf);  
         free(outbuf.buf);  
   
         return(c);  
 }  }
   
   
 static ssize_t  static int
 md_buf_fill(struct md_buf *in)  parse_leave(struct md_parse *p, int code)
 {  {
         ssize_t          ssz;          const struct mdoc_node *n;
   
         assert(in);          if (NULL == p->mdoc)
         assert(in->file);                  return(code);
         assert(in->buf);  
         assert(in->bufsz > 0);  
         assert(in->file->name);  
   
         if (-1 == (ssz = read(in->file->fd, in->buf, in->bufsz)))          if ( ! mdoc_endparse(p->mdoc))
                 warn("%s", in->file->name);                  code = 0;
           if (p->print && (n = mdoc_node(p->mdoc)))
                   (*p->print)(n);
   
         return(ssz);          mdoc_free(p->mdoc);
   
           return(code);
 }  }
   
   
 static int  static int
 md_run(struct md_buf *out, struct md_buf *in)  parse_begin(struct md_parse *p)
 {  {
         ssize_t          sz, i;          ssize_t          sz, i;
         char             line[BUFSIZ];  
         size_t           pos;          size_t           pos;
           char             line[MD_LINE_SZ];
           struct mdoc_cb   cb;
           int              lnn;
   
         assert(in);          cb.mdoc_err = msg_err;
         assert(out);          cb.mdoc_warn = msg_warn;
           cb.mdoc_msg = msg_msg;
   
         /* LINTED */          if (NULL == (p->mdoc = mdoc_alloc(p, &cb)))
         for (pos = 0; ; ) {                  return(parse_leave(p, 0));
                 if (-1 == (sz = md_buf_fill(in)))  
                         return(1);          for (lnn = 1, pos = 0; ; ) {
                 else if (0 == sz)                  if (-1 == (sz = read(p->fd, p->buf, p->bufsz))) {
                           warn("%s", p->name);
                           return(parse_leave(p, 0));
                   } else if (0 == sz)
                         break;                          break;
   
                 for (i = 0; i < sz; i++) {                  for (i = 0; i < sz; i++) {
                         if ('\n' == in->buf[i]) {                          if ('\n' != p->buf[i]) {
                                 if (md_line(out, in, line, pos))                                  if (pos < sizeof(line)) {
                                         return(1);                                          line[(int)pos++] = p->buf[(int)i];
                                 in->line++;                                          continue;
                                 pos = 0;                                  }
                                 continue;                                  warnx("%s: line %d too long",
                                                   p->name, lnn);
                                   return(parse_leave(p, 0));
                         }                          }
   
                           line[(int)pos] = 0;
                           if ( ! mdoc_parseln(p->mdoc, lnn, line))
                                   return(parse_leave(p, 0));
   
                         if (pos < BUFSIZ) {                          lnn++;
                                 /* LINTED */                          pos = 0;
                                 line[pos++] = in->buf[i];  
                                 continue;  
                         }  
   
                         warnx("%s: line %zu too long",  
                                         in->file->name, in->line);  
                         return(1);  
                 }                  }
         }          }
   
         if (0 != pos)          return(parse_leave(p, 1));
                 return(md_line(out, in, line, pos));  }
   
   
   static int
   msg_err(void *arg, int line, int col, const char *msg)
   {
           struct md_parse  *p;
   
           p = (struct md_parse *)arg;
   
           xfprintf(stderr, "%s:%d: error: %s (column %d)\n",
                           p->name, line, msg, col);
         return(0);          return(0);
 }  }
   
   
   static void
   msg_msg(void *arg, int line, int col, const char *msg)
   {
           struct md_parse  *p;
   
           p = (struct md_parse *)arg;
   
           if (0 == p->dbg)
                   return;
   
           xfprintf(stderr, "%s:%d: debug: %s (column %d)\n",
                           p->name, line, msg, col);
   }
   
   
 static int  static int
 md_line(struct md_buf *out, const struct md_buf *in,  msg_warn(void *arg, int line, int col,
                 const char *buf, size_t sz)                  enum mdoc_warn type, const char *msg)
 {  {
         size_t           i;          struct md_parse  *p;
   
         assert(buf);          p = (struct md_parse *)arg;
         assert(out);  
         assert(in);  
   
         for (i = 0; i < sz; i++)          switch (type) {
                 (void)putchar(buf[i]);          case (WARN_COMPAT):
                   if (p->warn & MD_WARN_COMPAT)
                           break;
                   return(1);
           case (WARN_SYNTAX):
                   if (p->warn & MD_WARN_SYNTAX)
                           break;
                   return(1);
           }
   
         (void)putchar('\n');          xfprintf(stderr, "%s:%d: warning: %s (column %d)\n",
                           p->name, line, msg, col);
   
           if ( ! (p->warn & MD_WARN_ERR))
                   return(1);
   
           xfprintf(stderr, "%s: considering warnings as errors\n",
                           __progname);
         return(0);          return(0);
 }  }
   
Line 281  md_line(struct md_buf *out, const struct md_buf *in,
Line 338  md_line(struct md_buf *out, const struct md_buf *in,
 static void  static void
 usage(void)  usage(void)
 {  {
         extern char     *__progname;  
   
         (void)printf("usage: %s [-o outfile] infile\n", __progname);          xfprintf(stderr, "usage: %s [-v] [-Wwarn...] [-ffilter] "
                           "[infile]\n", __progname);
 }  }
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.50
CVSweb