"sys/param.h is for kernel interface programs.

[mandoc.git] / mdoc_argv.c

diff --git a/mdoc_argv.c b/mdoc_argv.c
index 8f973e2100f6599eb52ead54feb3205bbfb0b745..453d1146905f37c84f7bc9fef8a3936c19a32104 100644 (file)
--- a/mdoc_argv.c
+++ b/mdoc_argv.c
@@ -1,6 +1,6 @@
-/*     $Id: mdoc_argv.c,v 1.43 2010/05/08 07:30:19 kristaps Exp $ */
+/*     $Id: mdoc_argv.c,v 1.58 2010/07/21 09:36:41 kristaps Exp $ */

 /*
 /*

- * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
+ * Copyright (c) 2008, 2009, 2010 Kristaps Dzonsons <kristaps@bsd.lv>

  *
  * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above
  *
  * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above


@@ -26,6 +26,7 @@
 #include <stdio.h>
 #include <string.h>
 
 #include <stdio.h>
 #include <string.h>
 

+#include "mandoc.h"

 #include "libmdoc.h"
 #include "libmandoc.h"
 
 #include "libmdoc.h"
 #include "libmandoc.h"
 


@@ -44,7 +45,7 @@
 
 #define        MULTI_STEP       5
 
 
 #define        MULTI_STEP       5
 

-static int              argv_a2arg(enum mdoct, const char *);
+static enum mdocargt    argv_a2arg(enum mdoct, const char *);

 static enum margserr    args(struct mdoc *, int, int *, 
                                char *, int, char **);
 static int              argv(struct mdoc *, int, 
 static enum margserr    args(struct mdoc *, int, int *, 
                                char *, int, char **);
 static int              argv(struct mdoc *, int, 


@@ -209,6 +210,7 @@ static      int mdoc_argflags[MDOC_MAX] = {
        0, /* br */
        0, /* sp */
        0, /* %U */
        0, /* br */
        0, /* sp */
        0, /* %U */

+       0, /* Ta */

 };
 
 
 };
 
 


@@ -225,7 +227,7 @@ mdoc_argv(struct mdoc *m, int line, enum mdoct tok,
        struct mdoc_argv tmp;
        struct mdoc_arg  *arg;
 
        struct mdoc_argv tmp;
        struct mdoc_arg  *arg;
 

-       if (0 == buf[*pos])
+       if ('\0' == buf[*pos])

                return(ARGV_EOLN);
 
        assert(' ' != buf[*pos]);
                return(ARGV_EOLN);
 
        assert(' ' != buf[*pos]);


@@ -246,10 +248,10 @@ mdoc_argv(struct mdoc *m, int line, enum mdoct tok,
 
        /* XXX - save zeroed byte, if not an argument. */
 
 
        /* XXX - save zeroed byte, if not an argument. */
 

-       sv = 0;
+       sv = '\0';

        if (buf[*pos]) {
                sv = buf[*pos];
        if (buf[*pos]) {
                sv = buf[*pos];

-               buf[(*pos)++] = 0;
+               buf[(*pos)++] = '\0';

        }
 
        (void)memset(&tmp, 0, sizeof(struct mdoc_argv));
        }
 
        (void)memset(&tmp, 0, sizeof(struct mdoc_argv));


@@ -311,9 +313,11 @@ mdoc_argv_free(struct mdoc_arg *p)
 void
 mdoc_argn_free(struct mdoc_arg *p, int iarg)
 {
 void
 mdoc_argn_free(struct mdoc_arg *p, int iarg)
 {

-       struct mdoc_argv *arg = &p->argv[iarg];
+       struct mdoc_argv *arg;

        int               j;
 
        int               j;
 

+       arg = &p->argv[iarg];
+

        if (arg->sz && arg->value) {
                for (j = (int)arg->sz - 1; j >= 0; j--) 
                        free(arg->value[j]);
        if (arg->sz && arg->value) {
                for (j = (int)arg->sz - 1; j >= 0; j--) 
                        free(arg->value[j]);


@@ -338,7 +342,7 @@ enum margserr
 mdoc_args(struct mdoc *m, int line, int *pos, 
                char *buf, enum mdoct tok, char **v)
 {
 mdoc_args(struct mdoc *m, int line, int *pos, 
                char *buf, enum mdoct tok, char **v)
 {

-       int               fl, c, i;
+       int               fl;

        struct mdoc_node *n;
 
        fl = mdoc_argflags[tok];
        struct mdoc_node *n;
 
        fl = mdoc_argflags[tok];


@@ -346,26 +350,21 @@ mdoc_args(struct mdoc *m, int line, int *pos,
        if (MDOC_It != tok)
                return(args(m, line, pos, buf, fl, v));
 
        if (MDOC_It != tok)
                return(args(m, line, pos, buf, fl, v));
 

-       /* 
-        * The `It' macro is a special case, as it acquires parameters from its
-        * parent `Bl' context, specifically, we're concerned with -column.
+       /*
+        * We know that we're in an `It', so it's reasonable to expect
+        * us to be sitting in a `Bl'.  Someday this may not be the case
+        * (if we allow random `It's sitting out there), so provide a
+        * safe fall-back into the default behaviour.

         */
 
        for (n = m->last; n; n = n->parent)
         */
 
        for (n = m->last; n; n = n->parent)

-               if (MDOC_BLOCK == n->type && MDOC_Bl == n->tok)
+               if (MDOC_Bl == n->tok)

                        break;
 
                        break;
 

-       assert(n);
-       c = (int)(n->args ? n->args->argc : 0);
-       assert(c > 0);
-
-       /* LINTED */
-       for (i = 0; i < c; i++) {
-               if (MDOC_Column != n->args->argv[i].arg) 
-                       continue;
+       assert(n->data.Bl);
+       if (n && LIST_column == n->data.Bl->type) {

                fl |= ARGS_TABSEP;
                fl &= ~ARGS_DELIM;
                fl |= ARGS_TABSEP;
                fl &= ~ARGS_DELIM;

-               break;

        }
 
        return(args(m, line, pos, buf, fl, v));
        }
 
        return(args(m, line, pos, buf, fl, v));


@@ -376,9 +375,10 @@ static enum margserr
 args(struct mdoc *m, int line, int *pos, 
                char *buf, int fl, char **v)
 {
 args(struct mdoc *m, int line, int *pos, 
                char *buf, int fl, char **v)
 {

-       int               i;
-       char             *p, *pp;
-       enum margserr     rc;
+       int              i;
+       char            *p, *pp;
+       enum margserr    rc;
+       enum mdelim      d;

 
        /*
         * Parse out the terms (like `val' in `.Xx -arg val' or simply
 
        /*
         * Parse out the terms (like `val' in `.Xx -arg val' or simply


@@ -395,37 +395,51 @@ args(struct mdoc *m, int line, int *pos,
         *   phrases like in `Bl -column'.
         */
 
         *   phrases like in `Bl -column'.
         */
 

-       assert(*pos);

        assert(' ' != buf[*pos]);
 
        assert(' ' != buf[*pos]);
 

-       if ('\0' == buf[*pos])
+       if ('\0' == buf[*pos]) {
+               if (MDOC_PPHRASE & m->flags)
+                       return(ARGS_EOLN);
+               /*
+                * If we're not in a partial phrase and the flag for
+                * being a phrase literal is still set, the punctuation
+                * is unterminated.
+                */
+               if (MDOC_PHRASELIT & m->flags)
+                       if ( ! mdoc_pmsg(m, line, *pos, MANDOCERR_BADQUOTE))
+                               return(ARGS_ERROR);
+
+               m->flags &= ~MDOC_PHRASELIT;

                return(ARGS_EOLN);
                return(ARGS_EOLN);

+       }

 
        /* 
 
        /* 

-        * If the first character is a delimiter and we're to look for
-        * delimited strings, then pass down the buffer seeing if it
-        * follows the pattern of [[::delim::][ ]+]+.
+        * If the first character is a closing delimiter and we're to
+        * look for delimited strings, then pass down the buffer seeing
+        * if it follows the pattern of [[::delim::][ ]+]+.  Note that
+        * we ONLY care about closing delimiters.

         */
 
         */
 

-       if ((fl & ARGS_DELIM) && mdoc_iscdelim(buf[*pos]) > 1) {
+       if ((fl & ARGS_DELIM) && DELIM_CLOSE == mdoc_iscdelim(buf[*pos])) {

                for (i = *pos; buf[i]; ) {
                for (i = *pos; buf[i]; ) {

-                       if ( mdoc_iscdelim(buf[i]) < 2)
+                       d = mdoc_iscdelim(buf[i]);
+                       if (DELIM_NONE == d || DELIM_OPEN == d)

                                break;
                        i++;
                                break;
                        i++;

-                       if (0 == buf[i] || ' ' != buf[i])
+                       if ('\0' == buf[i] || ' ' != buf[i])

                                break;
                        i++;
                        while (buf[i] && ' ' == buf[i])
                                i++;
                }
 
                                break;
                        i++;
                        while (buf[i] && ' ' == buf[i])
                                i++;
                }
 

-               if (0 == buf[i]) {
+               if ('\0' == buf[i]) {

                        *v = &buf[*pos];
                        *v = &buf[*pos];

-                       if (' ' != buf[i - 1])
+                       if (i && ' ' != buf[i - 1])

                                return(ARGS_PUNCT);
                        if (ARGS_NOWARN & fl)
                                return(ARGS_PUNCT);
                                return(ARGS_PUNCT);
                        if (ARGS_NOWARN & fl)
                                return(ARGS_PUNCT);

-                       if ( ! mdoc_pwarn(m, line, *pos, ETAILWS))
+                       if ( ! mdoc_pmsg(m, line, *pos, MANDOCERR_EOLNSPACE))

                                return(ARGS_ERROR);
                        return(ARGS_PUNCT);
                }
                                return(ARGS_ERROR);
                        return(ARGS_PUNCT);
                }


@@ -443,16 +457,18 @@ args(struct mdoc *m, int line, int *pos,
        if (ARGS_TABSEP & fl) {
                /* Scan ahead to tab (can't be escaped). */
                p = strchr(*v, '\t');
        if (ARGS_TABSEP & fl) {
                /* Scan ahead to tab (can't be escaped). */
                p = strchr(*v, '\t');

+               pp = NULL;

 
                /* Scan ahead to unescaped `Ta'. */
 
                /* Scan ahead to unescaped `Ta'. */

-               for (pp = *v; ; pp++) {
-                       if (NULL == (pp = strstr(pp, "Ta")))
-                               break;
-                       if (pp > *v && ' ' != *(pp - 1))
-                               continue;
-                       if (' ' == *(pp + 2) || 0 == *(pp + 2))
-                               break;
-               }
+               if ( ! (MDOC_PHRASELIT & m->flags)) 
+                       for (pp = *v; ; pp++) {
+                               if (NULL == (pp = strstr(pp, "Ta")))
+                                       break;
+                               if (pp > *v && ' ' != *(pp - 1))
+                                       continue;
+                               if (' ' == *(pp + 2) || '\0' == *(pp + 2))
+                                       break;
+                       }

 
                /* By default, assume a phrase. */
                rc = ARGS_PHRASE;
 
                /* By default, assume a phrase. */
                rc = ARGS_PHRASE;


@@ -471,12 +487,14 @@ args(struct mdoc *m, int line, int *pos,
                } else if (pp && ! p) {
                        p = pp;
                        *pos += 2;
                } else if (pp && ! p) {
                        p = pp;
                        *pos += 2;

-               } else
+               } else {
+                       rc = ARGS_PEND;

                        p = strchr(*v, 0);
                        p = strchr(*v, 0);

+               }

 
                /* Whitespace check for eoln case... */
 
                /* Whitespace check for eoln case... */

-               if (0 == *p && ' ' == *(p - 1) && ! (ARGS_NOWARN & fl))
-                       if ( ! mdoc_pwarn(m, line, *pos, ETAILWS))
+               if ('\0' == *p && ' ' == *(p - 1) && ! (ARGS_NOWARN & fl))
+                       if ( ! mdoc_pmsg(m, line, *pos, MANDOCERR_EOLNSPACE))

                                return(ARGS_ERROR);
 
                *pos += (int)(p - *v);
                                return(ARGS_ERROR);
 
                *pos += (int)(p - *v);


@@ -503,8 +521,12 @@ args(struct mdoc *m, int line, int *pos,
         * Whitespace is NOT involved in literal termination.
         */
 
         * Whitespace is NOT involved in literal termination.
         */
 

-       if ('\"' == buf[*pos]) {
-               *v = &buf[++(*pos)];
+       if (MDOC_PHRASELIT & m->flags || '\"' == buf[*pos]) {
+               if ( ! (MDOC_PHRASELIT & m->flags))
+                       *v = &buf[++(*pos)];
+
+               if (MDOC_PPHRASE & m->flags)
+                       m->flags |= MDOC_PHRASELIT;

 
                for ( ; buf[*pos]; (*pos)++) {
                        if ('\"' != buf[*pos])
 
                for ( ; buf[*pos]; (*pos)++) {
                        if ('\"' != buf[*pos])


@@ -514,24 +536,25 @@ args(struct mdoc *m, int line, int *pos,
                        (*pos)++;
                }
 
                        (*pos)++;
                }
 

-               if (0 == buf[*pos]) {
-                       if (ARGS_NOWARN & fl)
+               if ('\0' == buf[*pos]) {
+                       if (ARGS_NOWARN & fl || MDOC_PPHRASE & m->flags)

                                return(ARGS_QWORD);
                                return(ARGS_QWORD);

-                       if ( ! mdoc_pwarn(m, line, *pos, EQUOTTERM))
+                       if ( ! mdoc_pmsg(m, line, *pos, MANDOCERR_BADQUOTE))

                                return(ARGS_ERROR);
                        return(ARGS_QWORD);
                }
 
                                return(ARGS_ERROR);
                        return(ARGS_QWORD);
                }
 

-               buf[(*pos)++] = 0;
+               m->flags &= ~MDOC_PHRASELIT;
+               buf[(*pos)++] = '\0';

 
 

-               if (0 == buf[*pos])
+               if ('\0' == buf[*pos])

                        return(ARGS_QWORD);
 
                while (' ' == buf[*pos])
                        (*pos)++;
 
                if (0 == buf[*pos] && ! (ARGS_NOWARN & fl))
                        return(ARGS_QWORD);
 
                while (' ' == buf[*pos])
                        (*pos)++;
 
                if (0 == buf[*pos] && ! (ARGS_NOWARN & fl))

-                       if ( ! mdoc_pwarn(m, line, *pos, ETAILWS))
+                       if ( ! mdoc_pmsg(m, line, *pos, MANDOCERR_EOLNSPACE))

                                return(ARGS_ERROR);
 
                return(ARGS_QWORD);
                                return(ARGS_ERROR);
 
                return(ARGS_QWORD);


@@ -543,26 +566,26 @@ args(struct mdoc *m, int line, int *pos,
         */
 
        for ( ; buf[*pos]; (*pos)++)
         */
 
        for ( ; buf[*pos]; (*pos)++)

-               if (' ' == buf[*pos] && '\\' != buf[*pos - 1])
+               if (*pos && ' ' == buf[*pos] && '\\' != buf[*pos - 1])

                        break;
 
                        break;
 

-       if (0 == buf[*pos])
+       if ('\0' == buf[*pos])

                return(ARGS_WORD);
 
                return(ARGS_WORD);
 

-       buf[(*pos)++] = 0;
+       buf[(*pos)++] = '\0';

 
        while (' ' == buf[*pos])
                (*pos)++;
 
 
        while (' ' == buf[*pos])
                (*pos)++;
 

-       if (0 == buf[*pos] && ! (ARGS_NOWARN & fl))
-               if ( ! mdoc_pwarn(m, line, *pos, ETAILWS))
+       if ('\0' == buf[*pos] && ! (ARGS_NOWARN & fl))
+               if ( ! mdoc_pmsg(m, line, *pos, MANDOCERR_EOLNSPACE))

                        return(ARGS_ERROR);
 
        return(ARGS_WORD);
 }
 
 
                        return(ARGS_ERROR);
 
        return(ARGS_WORD);
 }
 
 

-static int
+static enum mdocargt

 argv_a2arg(enum mdoct tok, const char *p)
 {
 
 argv_a2arg(enum mdoct tok, const char *p)
 {
 


@@ -727,10 +750,11 @@ argv_single(struct mdoc *m, int line,
        ppos = *pos;
 
        ac = args(m, line, pos, buf, 0, &p);
        ppos = *pos;
 
        ac = args(m, line, pos, buf, 0, &p);

-       if (ARGS_ERROR == ac)
+       if (ARGS_EOLN == ac) {
+               mdoc_pmsg(m, line, ppos, MANDOCERR_SYNTARGVCOUNT);
+               return(0);
+       } else if (ARGS_ERROR == ac)

                return(0);
                return(0);

-       if (ARGS_EOLN == ac)
-               return(mdoc_perr(m, line, ppos, EARGVAL));

 
        v->sz = 1;
        v->value = mandoc_malloc(sizeof(char *));
 
        v->sz = 1;
        v->value = mandoc_malloc(sizeof(char *));