Clarified EXIT STATUS sections. Discussed among schwarze@, Thomas, and

[mandoc.git] / mandoc.c

diff --git a/mandoc.c b/mandoc.c
index 3bdb171b9a499a4bc68d88e1b9f3d0bcbf14bd8e..5598ca810f72dee8f98797c86560ef0181b2ed57 100644 (file)
--- a/mandoc.c
+++ b/mandoc.c
@@ -1,6 +1,6 @@
-/*     $Id: mandoc.c,v 1.10 2010/01/05 19:51:10 kristaps Exp $ */
+/*     $Id: mandoc.c,v 1.34 2010/08/29 11:28:09 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


@@ -27,165 +27,201 @@
 #include <string.h>
 #include <time.h>
 
 #include <string.h>
 #include <time.h>
 

+#include "mandoc.h"

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

-static int      a2time(time_t *, const char *, const char *);
+static int      a2time(time_t *, const char *, const char *);

 
 
 int
 
 
 int

-mandoc_special(const char *p)
+mandoc_special(char *p)

 {
 {

-       int              terminator;    /* Terminator for \s. */
-       int              lim;           /* Limit for N in \s. */
-       int              c, i;
+       int              len, i;
+       char             term;
+       char            *sv;

        
        

-       if ('\\' != *p++)
-               return(0);
+       len = 0;
+       term = '\0';
+       sv = p;
+
+       assert('\\' == *p);
+       p++;

 
 

-       switch (*p) {
-       case ('\''):
+       switch (*p++) {
+#if 0
+       case ('Z'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('`'):
+       case ('X'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('q'):
+       case ('x'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('-'):
+       case ('S'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('~'):
+       case ('R'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('^'):
+       case ('N'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('%'):
+       case ('l'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('0'):
+       case ('L'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case (' '):
+       case ('H'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('|'):
+       case ('h'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('&'):
+       case ('D'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('.'):
+       case ('C'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case (':'):
+       case ('b'):

                /* FALLTHROUGH */
                /* FALLTHROUGH */

-       case ('c'):
-               return(2);
-       case ('e'):
-               return(2);
-       case ('f'):
-               if ('\0' == *++p || ! isgraph((u_char)*p))
+       case ('B'):
+               /* FALLTHROUGH */
+       case ('a'):
+               /* FALLTHROUGH */
+       case ('A'):
+               if (*p++ != '\'')

                        return(0);
                        return(0);

-               return(3);
+               term = '\'';
+               break;
+#endif
+       case ('h'):
+               /* FALLTHROUGH */
+       case ('v'):
+               /* FALLTHROUGH */

        case ('s'):
        case ('s'):

-               if ('\0' == *++p)
-                       return(2);
-
-               c = 2;
-               terminator = 0;
-               lim = 1;
-
-               if (*p == '\'') {
-                       lim = 0;
-                       terminator = 1;
-                       ++p;
-                       ++c;
-               } else if (*p == '[') {
-                       lim = 0;
-                       terminator = 2;
-                       ++p;
-                       ++c;
-               } else if (*p == '(') {
-                       lim = 2;
-                       terminator = 3;
-                       ++p;
-                       ++c;
-               }
+               if (ASCII_HYPH == *p)
+                       *p = '-';

 
 

-               if (*p == '+' || *p == '-') {
-                       ++p;
-                       ++c;
+               i = 0;
+               if ('+' == *p || '-' == *p) {
+                       p++;
+                       i = 1;

                }
 
                }
 

-               if (*p == '\'') {
-                       if (terminator)
-                               return(0);
-                       lim = 0;
-                       terminator = 1;
-                       ++p;
-                       ++c;
-               } else if (*p == '[') {
-                       if (terminator)
-                               return(0);
-                       lim = 0;
-                       terminator = 2;
-                       ++p;
-                       ++c;
-               } else if (*p == '(') {
-                       if (terminator)
-                               return(0);
-                       lim = 2;
-                       terminator = 3;
-                       ++p;
-                       ++c;
+               switch (*p++) {
+               case ('('):
+                       len = 2;
+                       break;
+               case ('['):
+                       term = ']';
+                       break;
+               case ('\''):
+                       term = '\'';
+                       break;
+               case ('0'):
+                       i = 1;
+                       /* FALLTHROUGH */
+               default:
+                       len = 1;
+                       p--;
+                       break;

                }
 
                }
 

-               /* TODO: needs to handle floating point. */
-
-               if ( ! isdigit((u_char)*p))
-                       return(0);
-
-               for (i = 0; isdigit((u_char)*p); i++) {
-                       if (lim && i >= lim)
+               if (ASCII_HYPH == *p)
+                       *p = '-';
+               if ('+' == *p || '-' == *p) {
+                       if (i)
+                               return(0);
+                       p++;
+               } 
+               
+               /* Handle embedded numerical subexp or escape. */
+
+               if ('(' == *p) {
+                       while (*p && ')' != *p)
+                               if ('\\' == *p++) {
+                                       i = mandoc_special(--p);
+                                       if (0 == i)
+                                               return(0);
+                                       p += i;
+                               }
+
+                       if (')' == *p++)

                                break;
                                break;

-                       ++p;
-                       ++c;
-               }

 
 

-               if (terminator && terminator < 3) {
-                       if (1 == terminator && *p != '\'')
-                               return(0);
-                       if (2 == terminator && *p != ']')
+                       return(0);
+               } else if ('\\' == *p) {
+                       if (0 == (i = mandoc_special(p)))

                                return(0);
                                return(0);

-                       ++p;
-                       ++c;
+                       p += i;

                }
 
                }
 

-               return(c);
+               break;
+#if 0
+       case ('Y'):
+               /* FALLTHROUGH */
+       case ('V'):
+               /* FALLTHROUGH */
+       case ('$'):
+               /* FALLTHROUGH */
+       case ('n'):
+               /* FALLTHROUGH */
+#endif
+       case ('k'):
+               /* FALLTHROUGH */
+       case ('M'):
+               /* FALLTHROUGH */
+       case ('m'):
+               /* FALLTHROUGH */
+       case ('f'):
+               /* FALLTHROUGH */
+       case ('F'):
+               /* FALLTHROUGH */

        case ('*'):
        case ('*'):

-               if (0 == *++p || ! isgraph((u_char)*p))
-                       return(0);
-               switch (*p) {
+               switch (*p++) {

                case ('('):
                case ('('):

-                       if (0 == *++p || ! isgraph((u_char)*p))
-                               return(0);
-                       return(4);
+                       len = 2;
+                       break;

                case ('['):
                case ('['):

-                       for (c = 3, p++; *p && ']' != *p; p++, c++)
-                               if ( ! isgraph((u_char)*p))
-                                       break;
-                       return(*p == ']' ? c : 0);
+                       term = ']';
+                       break;

                default:
                default:

+                       len = 1;
+                       p--;

                        break;
                }
                        break;
                }

-               return(3);
+               break;

        case ('('):
        case ('('):

-               if (0 == *++p || ! isgraph((u_char)*p))
-                       return(0);
-               if (0 == *++p || ! isgraph((u_char)*p))
-                       return(0);
-               return(4);
+               len = 2;
+               break;

        case ('['):
        case ('['):

+               term = ']';

                break;
                break;

+       case ('z'):
+               len = 1;
+               if ('\\' == *p) {
+                       if (0 == (i = mandoc_special(p)))
+                               return(0);
+                       p += i;
+                       return(*p ? (int)(p - sv) : 0);
+               }
+               break;
+       case ('o'):
+               /* FALLTHROUGH */
+       case ('w'):
+               if ('\'' == *p++) {
+                       term = '\'';
+                       break;
+               }
+               /* FALLTHROUGH */

        default:
        default:

-               return(0);
+               len = 1;
+               p--;
+               break;

        }
 
        }
 

-       for (c = 3, p++; *p && ']' != *p; p++, c++)
-               if ( ! isgraph((u_char)*p))
-                       break;
+       if (term) {
+               for ( ; *p && term != *p; p++)
+                       if (ASCII_HYPH == *p)
+                               *p = '-';
+               return(*p ? (int)(p - sv) : 0);
+       }

 
 

-       return(*p == ']' ? c : 0);
+       for (i = 0; *p && i < len; i++, p++)
+               if (ASCII_HYPH == *p)
+                       *p = '-';
+       return(i == len ? (int)(p - sv) : 0);

 }
 
 
 }
 
 


@@ -197,7 +233,7 @@ mandoc_calloc(size_t num, size_t size)
        ptr = calloc(num, size);
        if (NULL == ptr) {
                perror(NULL);
        ptr = calloc(num, size);
        if (NULL == ptr) {
                perror(NULL);

-               exit(EXIT_FAILURE);
+               exit(MANDOCLEVEL_SYSERR);

        }
 
        return(ptr);
        }
 
        return(ptr);


@@ -212,7 +248,7 @@ mandoc_malloc(size_t size)
        ptr = malloc(size);
        if (NULL == ptr) {
                perror(NULL);
        ptr = malloc(size);
        if (NULL == ptr) {
                perror(NULL);

-               exit(EXIT_FAILURE);
+               exit(MANDOCLEVEL_SYSERR);

        }
 
        return(ptr);
        }
 
        return(ptr);


@@ -226,7 +262,7 @@ mandoc_realloc(void *ptr, size_t size)
        ptr = realloc(ptr, size);
        if (NULL == ptr) {
                perror(NULL);
        ptr = realloc(ptr, size);
        if (NULL == ptr) {
                perror(NULL);

-               exit(EXIT_FAILURE);
+               exit(MANDOCLEVEL_SYSERR);

        }
 
        return(ptr);
        }
 
        return(ptr);


@@ -241,7 +277,7 @@ mandoc_strdup(const char *ptr)
        p = strdup(ptr);
        if (NULL == p) {
                perror(NULL);
        p = strdup(ptr);
        if (NULL == p) {
                perror(NULL);

-               exit(EXIT_FAILURE);
+               exit(MANDOCLEVEL_SYSERR);

        }
 
        return(p);
        }
 
        return(p);


@@ -300,3 +336,74 @@ mandoc_a2time(int flags, const char *p)
        return(0);
 }
 
        return(0);
 }
 

+
+int
+mandoc_eos(const char *p, size_t sz, int enclosed)
+{
+       const char *q;
+       int found;
+
+       if (0 == sz)
+               return(0);
+
+       /*
+        * End-of-sentence recognition must include situations where
+        * some symbols, such as `)', allow prior EOS punctuation to
+        * propogate outward.
+        */
+
+       found = 0;
+       for (q = p + (int)sz - 1; q >= p; q--) {
+               switch (*q) {
+               case ('\"'):
+                       /* FALLTHROUGH */
+               case ('\''):
+                       /* FALLTHROUGH */
+               case (']'):
+                       /* FALLTHROUGH */
+               case (')'):
+                       if (0 == found)
+                               enclosed = 1;
+                       break;
+               case ('.'):
+                       /* FALLTHROUGH */
+               case ('!'):
+                       /* FALLTHROUGH */
+               case ('?'):
+                       found = 1;
+                       break;
+               default:
+                       return(found && (!enclosed || isalnum((unsigned char)*q)));
+               }
+       }
+
+       return(found && !enclosed);
+}
+
+
+int
+mandoc_hyph(const char *start, const char *c)
+{
+
+       /*
+        * Choose whether to break at a hyphenated character.  We only
+        * do this if it's free-standing within a word.
+        */
+
+       /* Skip first/last character of buffer. */
+       if (c == start || '\0' == *(c + 1))
+               return(0);
+       /* Skip first/last character of word. */
+       if ('\t' == *(c + 1) || '\t' == *(c - 1))
+               return(0);
+       if (' ' == *(c + 1) || ' ' == *(c - 1))
+               return(0);
+       /* Skip double invocations. */
+       if ('-' == *(c + 1) || '-' == *(c - 1))
+               return(0);
+       /* Skip escapes. */
+       if ('\\' == *(c - 1))
+               return(0);
+
+       return(1);
+}