Introduce ARGS_PEND for `It -column' end-of-line special casing.

[mandoc.git] / mdoc_macro.c

diff --git a/mdoc_macro.c b/mdoc_macro.c
index 46ac95f7d54e1496a15873d36eefa8ab2701564d..77b5860aa1723015e28587e53a92fd11727394f5 100644 (file)
--- a/mdoc_macro.c
+++ b/mdoc_macro.c
@@ -1,4 +1,4 @@
-/*     $Id: mdoc_macro.c,v 1.55 2010/05/07 05:48:29 kristaps Exp $ */
+/*     $Id: mdoc_macro.c,v 1.59 2010/05/09 10:17:02 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -45,9 +45,10 @@ static       int             obsolete(MACRO_PROT_ARGS);
 
 static int             append_delims(struct mdoc *, 
                                int, int *, char *);
-static enum mdoct      lookup(int, const char *);
+static enum mdoct      lookup(enum mdoct, const char *);
 static enum mdoct      lookup_raw(const char *);
-static int             phrase(struct mdoc *, int, int, char *);
+static int             phrase(struct mdoc *, int, int, 
+                               char *, enum margserr, int);
 static enum mdoct      rew_alt(enum mdoct);
 static int             rew_dobreak(enum mdoct, 
                                const struct mdoc_node *);
@@ -267,7 +268,7 @@ mdoc_macroend(struct mdoc *m)
  * Look up a macro from within a subsequent context.
  */
 static enum mdoct
-lookup(int from, const char *p)
+lookup(enum mdoct from, const char *p)
 {
        /* FIXME: make -diag lists be un-PARSED. */
 
@@ -283,7 +284,7 @@ lookup(int from, const char *p)
 static enum mdoct
 lookup_raw(const char *p)
 {
-       int              res;
+       enum mdoct       res;
 
        if (MDOC_MAX == (res = mdoc_hash_find(p)))
                return(MDOC_MAX);
@@ -632,7 +633,6 @@ append_delims(struct mdoc *mdoc, int line, int *pos, char *buf)
        for (;;) {
                lastarg = *pos;
                ac = mdoc_zargs(mdoc, line, pos, buf, ARGS_NOWARN, &p);
-               assert(ARGS_PHRASE != ac);
 
                if (ARGS_ERROR == ac)
                        return(0);
@@ -732,7 +732,8 @@ blk_exp_close(MACRO_PROT_ARGS)
 static int
 in_line(MACRO_PROT_ARGS)
 {
-       int              la, lastpunct, c, cnt, d, nc;
+       int              la, lastpunct, cnt, d, nc;
+       enum margverr    av;
        enum mdoct       ntok;
        enum margserr    ac;
        struct mdoc_arg *arg;
@@ -764,15 +765,15 @@ in_line(MACRO_PROT_ARGS)
 
        for (arg = NULL;; ) {
                la = *pos;
-               c = mdoc_argv(m, line, tok, &arg, pos, buf);
+               av = mdoc_argv(m, line, tok, &arg, pos, buf);
 
-               if (ARGV_WORD == c) {
+               if (ARGV_WORD == av) {
                        *pos = la;
                        break;
                } 
-               if (ARGV_EOLN == c)
+               if (ARGV_EOLN == av)
                        break;
-               if (ARGV_ARG == c)
+               if (ARGV_ARG == av)
                        continue;
 
                mdoc_argv_free(arg);
@@ -883,7 +884,7 @@ in_line(MACRO_PROT_ARGS)
 static int
 blk_full(MACRO_PROT_ARGS)
 {
-       int               c, la;
+       int               la, pcnt;
        struct mdoc_arg  *arg;
        struct mdoc_node *head; /* save of head macro */
        struct mdoc_node *body; /* save of body macro */
@@ -891,7 +892,8 @@ blk_full(MACRO_PROT_ARGS)
        struct mdoc_node *n;
 #endif
        enum mdoct        ntok;
-       enum margserr     ac;
+       enum margserr     ac, lac;
+       enum margverr     av;
        char             *p;
 
        /* Close out prior implicit scope. */
@@ -914,16 +916,16 @@ blk_full(MACRO_PROT_ARGS)
 
        for (arg = NULL;; ) {
                la = *pos;
-               c = mdoc_argv(m, line, tok, &arg, pos, buf);
+               av = mdoc_argv(m, line, tok, &arg, pos, buf);
 
-               if (ARGV_WORD == c) {
+               if (ARGV_WORD == av) {
                        *pos = la;
                        break;
                } 
 
-               if (ARGV_EOLN == c)
+               if (ARGV_EOLN == av)
                        break;
-               if (ARGV_ARG == c)
+               if (ARGV_ARG == av)
                        continue;
 
                mdoc_argv_free(arg);
@@ -951,8 +953,11 @@ blk_full(MACRO_PROT_ARGS)
                body = m->last;
        } 
 
-       for (;;) {
+       ac = ARGS_ERROR;
+
+       for (pcnt = 0; ; ) {
                la = *pos;
+               lac = ac;
                ac = mdoc_args(m, line, pos, buf, tok, &p);
 
                if (ARGS_ERROR == ac)
@@ -962,7 +967,10 @@ blk_full(MACRO_PROT_ARGS)
 
                /* Don't emit leading punct. for phrases. */
 
-               if (NULL == head && ARGS_PHRASE != ac &&
+               if (NULL == head && 
+                               ARGS_PHRASE != ac &&
+                               ARGS_PPHRASE != ac &&
+                               ARGS_PEND != ac &&
                                ARGS_QWORD != ac &&
                                1 == mdoc_isdelim(p)) {
                        if ( ! mdoc_word_alloc(m, line, la, p))
@@ -972,14 +980,30 @@ blk_full(MACRO_PROT_ARGS)
 
                /* Always re-open head for phrases. */
 
-               if (NULL == head || ARGS_PHRASE == ac) {
+               if (NULL == head || 
+                               ARGS_PHRASE == ac || 
+                               ARGS_PEND == ac || 
+                               ARGS_PPHRASE == ac) {
                        if ( ! mdoc_head_alloc(m, line, ppos, tok))
                                return(0);
                        head = m->last;
                }
 
-               if (ARGS_PHRASE == ac) {
-                       if ( ! phrase(m, line, la, buf))
+               if (ARGS_PHRASE == ac || 
+                               ARGS_PEND == ac ||
+                               ARGS_PPHRASE == ac) {
+                       /*
+                        * Special treatment for the last phrase.  A
+                        * prior ARGS_PHRASE gets is handled as a
+                        * regular ARGS_PHRASE, but a prior ARGS_PPHRASE
+                        * has special handling.
+                        */
+                       if (ARGS_PEND == ac && ARGS_ERROR == lac)
+                               ac = ARGS_PHRASE;
+                       else if (ARGS_PEND == ac && ARGS_PHRASE == lac)
+                               ac = ARGS_PHRASE;
+
+                       if ( ! phrase(m, line, la, buf, ac, pcnt++))
                                return(0);
                        if ( ! rew_sub(MDOC_HEAD, m, tok, line, ppos))
                                return(0);
@@ -1082,8 +1106,6 @@ blk_part_imp(MACRO_PROT_ARGS)
                la = *pos;
                ac = mdoc_args(m, line, pos, buf, tok, &p);
 
-               assert(ARGS_PHRASE != ac);
-
                if (ARGS_ERROR == ac)
                        return(0);
                if (ARGS_EOLN == ac)
@@ -1185,8 +1207,6 @@ blk_part_exp(MACRO_PROT_ARGS)
                if (ARGS_EOLN == ac)
                        break;
 
-               assert(ARGS_PHRASE != ac);
-
                /* Flush out leading punctuation. */
 
                if (NULL == head && ARGS_QWORD != ac &&
@@ -1269,8 +1289,9 @@ blk_part_exp(MACRO_PROT_ARGS)
 static int
 in_line_argn(MACRO_PROT_ARGS)
 {
-       int              la, flushed, j, c, maxargs;
+       int              la, flushed, j, maxargs;
        enum margserr    ac;
+       enum margverr    av;
        struct mdoc_arg *arg;
        char            *p;
        enum mdoct       ntok;
@@ -1303,16 +1324,16 @@ in_line_argn(MACRO_PROT_ARGS)
 
        for (arg = NULL; ; ) {
                la = *pos;
-               c = mdoc_argv(m, line, tok, &arg, pos, buf);
+               av = mdoc_argv(m, line, tok, &arg, pos, buf);
 
-               if (ARGV_WORD == c) {
+               if (ARGV_WORD == av) {
                        *pos = la;
                        break;
                } 
 
-               if (ARGV_EOLN == c)
+               if (ARGV_EOLN == av)
                        break;
-               if (ARGV_ARG == c)
+               if (ARGV_ARG == av)
                        continue;
 
                mdoc_argv_free(arg);
@@ -1404,8 +1425,9 @@ in_line_argn(MACRO_PROT_ARGS)
 static int
 in_line_eoln(MACRO_PROT_ARGS)
 {
-       int              c, la;
+       int              la;
        enum margserr    ac;
+       enum margverr    av;
        struct mdoc_arg *arg;
        char            *p;
        enum mdoct       ntok;
@@ -1416,15 +1438,15 @@ in_line_eoln(MACRO_PROT_ARGS)
 
        for (arg = NULL; ; ) {
                la = *pos;
-               c = mdoc_argv(m, line, tok, &arg, pos, buf);
+               av = mdoc_argv(m, line, tok, &arg, pos, buf);
 
-               if (ARGV_WORD == c) {
+               if (ARGV_WORD == av) {
                        *pos = la;
                        break;
                }
-               if (ARGV_EOLN == c) 
+               if (ARGV_EOLN == av) 
                        break;
-               if (ARGV_ARG == c)
+               if (ARGV_ARG == av)
                        continue;
 
                mdoc_argv_free(arg);
@@ -1504,25 +1526,34 @@ obsolete(MACRO_PROT_ARGS)
  * macro is encountered.
  */
 static int
-phrase(struct mdoc *m, int line, int ppos, char *buf)
+phrase(struct mdoc *m, int line, int ppos, char *buf, 
+               enum margserr ac, int count)
 {
        int              la, pos;
-       enum margserr    ac;
+       enum margserr    aac;
        enum mdoct       ntok;
        char            *p;
 
+       assert(ARGS_PHRASE == ac || 
+                       ARGS_PEND == ac ||
+                       ARGS_PPHRASE == ac);
+
+       if (count && ARGS_PPHRASE == ac)
+               return(mdoc_word_alloc(m, line, ppos, &buf[ppos]));
+
        for (pos = ppos; ; ) {
                la = pos;
 
                /* Note: no calling context! */
-               ac = mdoc_zargs(m, line, &pos, buf, 0, &p);
+               aac = mdoc_zargs(m, line, &pos, buf, 0, &p);
 
-               if (ARGS_ERROR == ac)
+               if (ARGS_ERROR == aac)
                        return(0);
-               if (ARGS_EOLN == ac)
+               if (ARGS_EOLN == aac)
                        break;
 
-               ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup_raw(p);
+               ntok = ARGS_QWORD == aac || ARGS_PEND == ac ? 
+                       MDOC_MAX : lookup_raw(p);
 
                if (MDOC_MAX == ntok) {
                        if ( ! mdoc_word_alloc(m, line, la, p))