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

Diff for /mandoc/Attic/mdocml.c between version 1.3 and 1.26

version 1.3, 2008/11/22 17:14:32 version 1.26, 2008/12/28 21:25:09
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"
   
 #define BUFFER_IN_DEF   BUFSIZ  #define MD_LINE_SZ      (256)
 #define BUFFER_OUT_DEF  BUFSIZ  
 #define BUFFER_LINE     BUFSIZ  
   
 struct md_rbuf {  struct  md_parse {
         int              fd;          int              warn;
         const char      *name;  #define MD_WARN_ALL     (1 << 0)
   #define MD_WARN_ERR     (1 << 1)
           int              dbg;
           struct mdoc     *mdoc;
         char            *buf;          char            *buf;
         size_t           bufsz;          u_long           bufsz;
         size_t           line;          char            *name;
 };  
   
 struct md_mbuf {  
         int              fd;          int              fd;
         const char      *name;          int              lnn;
         char            *buf;          char            *line;
         size_t           bufsz;  
         size_t           pos;  
 };  };
   
 static void              usage(void);  static  void             usage(void);
   
 static int               md_begin(const char *, const char *);  static  int              parse_begin(struct md_parse *);
 static int               md_begin_io(const char *, const char *);  static  int              parse_leave(struct md_parse *, int);
 static int               md_begin_bufs(struct md_mbuf *, struct md_rbuf *);  static  int              io_begin(struct md_parse *);
 static int               md_run(struct md_mbuf *, struct md_rbuf *);  static  int              io_leave(struct md_parse *, int);
 static int               md_line(struct md_mbuf *, const struct md_rbuf *,  static  int              buf_begin(struct md_parse *);
                                 const char *, size_t);  static  int              buf_leave(struct md_parse *, int);
   
 static ssize_t           md_buf_fill(struct md_rbuf *);  static  int              msg_err(void *, int, int, enum mdoc_err);
 static int               md_buf_flush(struct md_mbuf *);  static  int              msg_warn(void *, int, int, enum mdoc_warn);
   static  void             msg_msg(void *, int, const char *);
   
 static int               md_buf_putchar(struct md_mbuf *, char);  #ifdef __linux__
 static int               md_buf_puts(struct md_mbuf *,  extern  int              getsubopt(char **, char *const *, char **);
                                 const char *, size_t);  #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;
   #define ALL              0
   #define ERROR            1
           char            *toks[] = { "all", "error", NULL };
   
         extern char     *optarg;          extern char     *optarg;
         extern int       optind;          extern int       optind;
   
         out = NULL;          (void)memset(&parser, 0, sizeof(struct md_parse));
   
         while (-1 != (c = getopt(argc, argv, "o:")))          while (-1 != (c = getopt(argc, argv, "vW:")))
                 switch (c) {                  switch (c) {
                 case ('o'):                  case ('v'):
                         out = optarg;                          parser.dbg++;
                         break;                          break;
                   case ('W'):
                           opts = optarg;
                           while (*opts)
                                   switch (getsubopt(&opts, toks, &v)) {
                                   case (ALL):
                                           parser.warn |= MD_WARN_ALL;
                                           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);  
         }  
   
         argc--;          parser.name = "-";
         in = *argv++;          if (1 == argc)
                   parser.name = *argv++;
   
         return(md_begin(out, in));          if ( ! io_begin(&parser))
                   return(EXIT_FAILURE);
   
           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_rbuf   fin;  
         struct md_mbuf   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));
                   }
   
         /* TODO: accept "-" as both input and output. */          return(io_leave(p, buf_begin(p)));
   }
   
         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);
           return(code);
   }
   
         fout.fd = open(fout.name, O_WRONLY | O_CREAT | O_TRUNC, 0644);  
         if (-1 == fout.fd) {  static int
                 warn("%s", fout.name);  buf_begin(struct md_parse *p)
                 if (-1 == close(fin.fd))  {
                         warn("%s", fin.name);          struct stat      st;
   
           if (-1 == fstat(p->fd, &st)) {
                   warn("%s", p->name);
                 return(1);                  return(1);
         }          }
   
         c = md_begin_bufs(&fout, &fin);          p->bufsz = MAX(st.st_blksize, BUFSIZ);
   
         if (-1 == close(fin.fd)) {          if (NULL == (p->buf = malloc(p->bufsz))) {
                 warn("%s", in);                  warn("malloc");
                 c = 1;                  return(buf_leave(p, 0));
         }          }
         if (-1 == close(fout.fd)) {  
                 warn("%s", out);  
                 c = 1;  
         }  
   
         return(c);          return(buf_leave(p, parse_begin(p)));
 }  }
   
   
 static int  static void
 md_begin_bufs(struct md_mbuf *out, struct md_rbuf *in)  print_node(const struct mdoc_node *n, int indent)
 {  {
         struct stat      stin, stout;          const char       *p, *t;
         int              c;          int               i, j;
           size_t            argc, sz;
           char            **params;
           struct mdoc_arg  *argv;
   
         assert(in);          argv = NULL;
         assert(out);          argc = 0;
           params = NULL;
           sz = 0;
   
         if (-1 == fstat(in->fd, &stin)) {          switch (n->type) {
                 warn("%s", in->name);          case (MDOC_TEXT):
                 return(1);                  assert(NULL == n->child);
         } else if (-1 == fstat(out->fd, &stout)) {                  p = n->data.text.string;
                 warn("%s", out->name);                  t = "text";
                 return(1);                  break;
           case (MDOC_BODY):
                   p = mdoc_macronames[n->data.body.tok];
                   t = "block-body";
                   break;
           case (MDOC_HEAD):
                   p = mdoc_macronames[n->data.head.tok];
                   t = "block-head";
                   params = n->data.head.args;
                   sz = n->data.head.sz;
                   break;
           case (MDOC_ELEM):
                   assert(NULL == n->child);
                   p = mdoc_macronames[n->data.elem.tok];
                   t = "element";
                   argv = n->data.elem.argv;
                   argc = n->data.elem.argc;
                   params = n->data.elem.args;
                   sz = n->data.elem.sz;
                   break;
           case (MDOC_BLOCK):
                   p = mdoc_macronames[n->data.block.tok];
                   t = "block";
                   argv = n->data.block.argv;
                   argc = n->data.block.argc;
                   break;
           default:
                   abort();
                   /* NOTREACHED */
         }          }
   
         in->bufsz = MAX(stin.st_blksize, BUFFER_IN_DEF);          for (i = 0; i < indent; i++)
                   (void)printf("    ");
           (void)printf("%s (%s)", p, t);
   
         out->bufsz = MAX(stout.st_blksize, BUFFER_OUT_DEF);          for (i = 0; i < (int)argc; i++) {
                   (void)printf(" -%s", mdoc_argnames[argv[i].arg]);
         if (NULL == (in->buf = malloc(in->bufsz))) {                  for (j = 0; j < (int)argv[i].sz; j++)
                 warn("malloc");                          (void)printf(" \"%s\"", argv[i].value[j]);
                 return(1);  
         } else if (NULL == (out->buf = malloc(out->bufsz))) {  
                 warn("malloc");  
                 free(in->buf);  
                 return(1);  
         }          }
   
         c = md_run(out, in);          for (i = 0; i < (int)sz; i++)
                   (void)printf(" \"%s\"", params[i]);
   
         free(in->buf);          (void)printf("\n");
         free(out->buf);  
   
         return(c);          if (n->child)
                   print_node(n->child, indent + 1);
           if (n->next)
                   print_node(n->next, indent);
 }  }
   
   
 static ssize_t  static int
 md_buf_fill(struct md_rbuf *in)  parse_leave(struct md_parse *p, int code)
 {  {
         ssize_t          ssz;          const struct mdoc_node *n;
   
         assert(in);          if (p->mdoc) {
         assert(in->buf);                  if ((n = mdoc_result(p->mdoc)))
         assert(in->bufsz > 0);                          print_node(n, 0);
         assert(in->name);                  mdoc_free(p->mdoc);
           }
         if (-1 == (ssz = read(in->fd, in->buf, in->bufsz)))          return(code);
                 warn("%s", in->name);  
   
         return(ssz);  
 }  }
   
   
 static int  static int
 md_run(struct md_mbuf *out, struct md_rbuf *in)  parse_begin(struct md_parse *p)
 {  {
         ssize_t          sz, i;          ssize_t          sz, i;
         char             line[BUFFER_LINE];  
         size_t           pos;          size_t           pos;
           char             line[256], sv[256];
           struct mdoc_cb   cb;
   
         assert(in);          cb.mdoc_err = msg_err;
         assert(out);          cb.mdoc_warn = msg_warn;
           cb.mdoc_msg = msg_msg;
   
         out->pos = 0;          if (NULL == (p->mdoc = mdoc_alloc(p, &cb)))
         in->line = 1;                  return(parse_leave(p, 0));
   
         /* LINTED */          p->lnn = 1;
           p->line = sv;
   
         for (pos = 0; ; ) {          for (pos = 0; ; ) {
                 if (-1 == (sz = md_buf_fill(in)))                  if (-1 == (sz = read(p->fd, p->buf, p->bufsz))) {
                         return(1);                          warn("%s", p->name);
                 else if (0 == sz)                          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);                                          sv[(int)pos] = p->buf[(int)i];
                                 in->line++;                                          line[(int)pos++] =
                                 pos = 0;                                                  p->buf[(int)i];
                                 continue;                                          continue;
                                   }
                                   warnx("%s: line %d too long",
                                                   p->name, p->lnn);
                                   return(parse_leave(p, 0));
                         }                          }
   
                           line[(int)pos] = sv[(int)pos] = 0;
                           if ( ! mdoc_parseln(p->mdoc, line))
                                   return(parse_leave(p, 0));
   
                         if (pos < BUFFER_LINE) {                          p->lnn++;
                                 /* LINTED */                          pos = 0;
                                 line[pos++] = in->buf[i];  
                                 continue;  
                         }  
   
                         warnx("%s: line %zu too long",  
                                         in->name, in->line);  
                         return(1);  
                 }                  }
         }          }
   
         if (0 != pos && md_line(out, in, line, pos))          return(parse_leave(p, 1));
                 return(1);  
   
         return(md_buf_flush(out) ? 0 : 1);  
 }  }
   
   
 static int  static int
 md_buf_flush(struct md_mbuf *buf)  msg_err(void *arg, int tok, int col, enum mdoc_err type)
 {  {
         ssize_t          sz;          char             *fmt, *lit;
           struct md_parse  *p;
           int               i;
   
         assert(buf);          p = (struct md_parse *)arg;
         assert(buf->buf);  
         assert(buf->name);  
   
         if (0 == buf->pos)          fmt = lit = NULL;
                 return(1);  
   
         sz = write(buf->fd, buf->buf, buf->pos);          switch (type) {
           case (ERR_SYNTAX_QUOTE):
                   lit = "syntax: disallowed argument quotation";
                   break;
           case (ERR_SYNTAX_UNQUOTE):
                   lit = "syntax: unterminated quotation";
                   break;
           case (ERR_SYNTAX_WS):
                   lit = "syntax: whitespace in argument";
                   break;
           case (ERR_SYNTAX_ARGFORM):
                   fmt = "syntax: macro `%s' arguments malformed";
                   break;
           case (ERR_SYNTAX_ARG):
                   fmt = "syntax: unknown argument for macro `%s'";
                   break;
           case (ERR_SCOPE_BREAK):
                   /* Which scope is broken? */
                   fmt = "scope: macro `%s' breaks prior explicit scope";
                   break;
           case (ERR_SCOPE_NOCTX):
                   fmt = "scope: closure macro `%s' has no context";
                   break;
           case (ERR_SCOPE_NONEST):
                   fmt = "scope: macro `%s' may not be nested in the current context";
                   break;
           case (ERR_MACRO_NOTSUP):
                   fmt = "macro `%s' not supported";
                   break;
           case (ERR_MACRO_NOTCALL):
                   fmt = "macro `%s' not callable";
                   break;
           case (ERR_SEC_PROLOGUE):
                   fmt = "macro `%s' cannot be called in the prologue";
                   break;
           case (ERR_SEC_NPROLOGUE):
                   fmt = "macro `%s' called outside of prologue";
                   break;
           case (ERR_ARGS_GE1):
                   fmt = "macro `%s' expects one or more arguments";
                   break;
           case (ERR_ARGS_MANY):
                   fmt = "macro `%s' has too many arguments";
                   break;
           case (ERR_SEC_PROLOGUE_OO):
                   fmt = "prologue macro `%s' is out-of-order";
                   break;
           case (ERR_SEC_PROLOGUE_REP):
                   fmt = "prologue macro `%s' repeated";
                   break;
           case (ERR_SEC_NAME):
                   lit = "`NAME' section must be first";
                   break;
           case (ERR_SYNTAX_ARGVAL):
                   lit = "syntax: expected value for macro argument";
                   break;
           case (ERR_SYNTAX_ARGBAD):
                   lit = "syntax: invalid value for macro argument";
                   break;
           case (ERR_SYNTAX_ARGMANY):
                   lit = "syntax: too many values for macro argument";
                   break;
           default:
                   abort();
                   /* NOTREACHED */
           }
   
         if (-1 == sz) {          if (fmt) {
                 warn("%s", buf->name);                  (void)fprintf(stderr, "%s:%d: error: ",
                                   p->name, p->lnn);
                   (void)fprintf(stderr, fmt, mdoc_macronames[tok]);
           } else
                   (void)fprintf(stderr, "%s:%d: error: %s",
                                   p->name, p->lnn, lit);
   
           if (p->dbg < 1) {
                   if (-1 != col)
                           (void)fprintf(stderr, " (column %d)\n", col);
                 return(0);                  return(0);
         } else if ((size_t)sz != buf->pos) {          } else if (-1 == col) {
                 warnx("%s: short write", buf->name);                  (void)fprintf(stderr, "\nFrom: %s", p->line);
                 return(0);                  return(0);
         }          }
   
         buf->pos = 0;          (void)fprintf(stderr, "\nFrom: %s\n      ", p->line);
         return(1);          for (i = 0; i < col; i++)
 }                  (void)fprintf(stderr, " ");
           (void)fprintf(stderr, "^\n");
   
           return(0);
 static int  
 md_buf_putchar(struct md_mbuf *buf, char c)  
 {  
         return(md_buf_puts(buf, &c, 1));  
 }  }
   
   
 static int  static void
 md_buf_puts(struct md_mbuf *buf, const char *p, size_t sz)  msg_msg(void *arg, int col, const char *msg)
 {  {
         size_t           ssz;          struct md_parse  *p;
           int               i;
   
         assert(p);          p = (struct md_parse *)arg;
         assert(buf);  
         assert(buf->buf);  
   
         while (buf->pos + sz > buf->bufsz) {          if (p->dbg < 2)
                 ssz = buf->bufsz - buf->pos;                  return;
                 (void)memcpy(buf->buf + buf->pos, p, ssz);  
                 p += ssz;  
                 sz -= ssz;  
                 buf->pos += ssz;  
   
                 if ( ! md_buf_flush(buf))          (void)printf("%s:%d: %s", p->name, p->lnn, msg);
                         return(0);  
           if (p->dbg < 3) {
                   if (-1 != col)
                           (void)printf(" (column %d)\n", col);
                   return;
           } else if (-1 == col) {
                   (void)printf("\nFrom %s\n", p->line);
                   return;
         }          }
   
         (void)memcpy(buf->buf + buf->pos, p, sz);          (void)printf("\nFrom: %s\n      ", p->line);
         buf->pos += sz;          for (i = 0; i < col; i++)
         return(1);                  (void)printf(" ");
           (void)printf("^\n");
 }  }
   
   
 static int  static int
 md_line(struct md_mbuf *out, const struct md_rbuf *in,  msg_warn(void *arg, int tok, int col, enum mdoc_warn type)
                 const char *buf, size_t sz)  
 {  {
           char             *fmt, *lit;
           struct md_parse  *p;
           int               i;
           extern char      *__progname;
   
         /* FIXME: this is just a placeholder function. */          p = (struct md_parse *)arg;
   
         assert(buf);          if ( ! (p->warn & MD_WARN_ALL))
         assert(out);  
         assert(in);  
   
         if ( ! md_buf_puts(out, buf, sz))  
                 return(1);                  return(1);
         if ( ! md_buf_putchar(out, '\n'))  
                 return(1);  
   
         return(0);          fmt = lit = NULL;
   
           switch (type) {
           case (WARN_SYNTAX_WS_EOLN):
                   lit = "syntax: whitespace at end-of-line";
                   break;
           case (WARN_SYNTAX_QUOTED):
                   lit = "syntax: quotation mark starting string";
                   break;
           case (WARN_SYNTAX_MACLIKE):
                   lit = "syntax: macro-like argument";
                   break;
           case (WARN_SYNTAX_ARGLIKE):
                   lit = "syntax: argument-like value";
                   break;
           case (WARN_SEC_OO):
                   lit = "section is out of conventional order";
                   break;
           case (WARN_ARGS_GE1):
                   fmt = "macro `%s' suggests one or more arguments";
                   break;
           case (WARN_ARGS_EQ0):
                   fmt = "macro `%s' suggests zero arguments";
                   break;
           case (WARN_IGN_AFTER_BLK):
                   fmt = "ignore: macro `%s' ignored after block macro";
                   break;
           case (WARN_IGN_BEFORE_BLK):
                   fmt = "ignore: macro before block macro `%s' ignored";
                   break;
           default:
                   abort();
                   /* NOTREACHED */
           }
   
           if (fmt) {
                   (void)fprintf(stderr, "%s:%d: warning: ",
                                   p->name, p->lnn);
                   (void)fprintf(stderr, fmt, mdoc_macronames[tok]);
           } else
                   (void)fprintf(stderr, "%s:%d: warning: %s",
                                   p->name, p->lnn, lit);
   
           if (p->dbg >= 1) {
                   (void)fprintf(stderr, "\nFrom: %s\n      ", p->line);
                   for (i = 0; i < col; i++)
                           (void)fprintf(stderr, " ");
                   (void)fprintf(stderr, "^\n");
           } else
                   (void)fprintf(stderr, " (column %d)\n", col);
   
           if (p->warn & MD_WARN_ERR) {
                   (void)fprintf(stderr, "%s: considering warnings as "
                                   "errors\n", __progname);
                   return(0);
           }
   
           return(1);
 }  }
   
   
Line 354  usage(void)
Line 527  usage(void)
 {  {
         extern char     *__progname;          extern char     *__progname;
   
         (void)printf("usage: %s [-o outfile] infile\n", __progname);          (void)fprintf(stderr, "usage: %s [-v] [-Wwarn...] [infile]\n",
                           __progname);
 }  }
   
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.26
CVSweb