diff options
| -rw-r--r-- | demandoc.1 | 14 | ||||
| -rw-r--r-- | demandoc.c | 18 |
2 files changed, 27 insertions, 5 deletions
@@ -41,8 +41,10 @@ This outputs each word of text on its own line. A .Qq word , in this case, refers to whitespace-delimited terms beginning with at -least two letters after opening punctuation and not consisting of any -escape sequences. +least two letters and not consisting of any escape sequences. +Terms have their leading and trailing punctuation +.Pq double-quotes, sentence punctuation, etc. +stripped. .It Ar The input files. .El @@ -84,6 +86,14 @@ Such errors cause to exit at once, possibly in the middle of parsing or formatting a file. The output databases are corrupt and should be removed . .El +.Sh EXAMPLES +The traditional usage of +.Nm +is for spell-checking manuals on +.Bx . +This is accomplished as follows (assuming British spelling): +.Pp +.Dl $ demandoc -w file.1 | spell -b .Sh SEE ALSO .Xr mandoc 1 , .Xr man 7 @@ -132,7 +132,7 @@ static void pstring(const char *p, int col, int *colp, int list) { enum mandoc_esc esc; - const char *start; + const char *start, *end; int emit; /* @@ -161,8 +161,20 @@ again: } else if (isspace((unsigned char)*p)) break; - if (emit && p - start >= 2) { - for ( ; start != p; start++) + end = p - 1; + + while (end > start) + if ('.' == *end || ',' == *end || + '\'' == *end || '"' == *end || + ')' == *end || '!' == *end || + '?' == *end || ':' == *end || + ';' == *end) + end--; + else + break; + + if (emit && end - start >= 1) { + for ( ; start <= end; start++) if (ASCII_HYPH == *start) putchar('-'); else |