/* $Id: mandoc.c,v 1.20 2010/09/27 21:25:28 schwarze Exp $ */ /* * Copyright (c) 2008, 2009, 2010 Kristaps Dzonsons * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above * copyright notice and this permission notice appear in all copies. * * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. */ #include #include #include #include #include #include #include #include "mandoc.h" #include "libmandoc.h" static int a2time(time_t *, const char *, const char *); int mandoc_special(char *p) { int len, i; char term; char *sv; len = 0; term = '\0'; sv = p; assert('\\' == *p); p++; switch (*p++) { #if 0 case ('Z'): /* FALLTHROUGH */ case ('X'): /* FALLTHROUGH */ case ('x'): /* FALLTHROUGH */ case ('S'): /* FALLTHROUGH */ case ('R'): /* FALLTHROUGH */ case ('N'): /* FALLTHROUGH */ case ('l'): /* FALLTHROUGH */ case ('L'): /* FALLTHROUGH */ case ('H'): /* FALLTHROUGH */ case ('h'): /* FALLTHROUGH */ case ('D'): /* FALLTHROUGH */ case ('C'): /* FALLTHROUGH */ case ('b'): /* FALLTHROUGH */ case ('B'): /* FALLTHROUGH */ case ('a'): /* FALLTHROUGH */ case ('A'): if (*p++ != '\'') return(0); term = '\''; break; #endif case ('h'): /* FALLTHROUGH */ case ('v'): /* FALLTHROUGH */ case ('s'): if (ASCII_HYPH == *p) *p = '-'; i = 0; if ('+' == *p || '-' == *p) { p++; i = 1; } switch (*p++) { case ('('): len = 2; break; case ('['): term = ']'; break; case ('\''): term = '\''; break; case ('0'): i = 1; /* FALLTHROUGH */ default: len = 1; p--; break; } 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; return(0); } else if ('\\' == *p) { if (0 == (i = mandoc_special(p))) return(0); p += i; } 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 ('*'): switch (*p++) { case ('('): len = 2; break; case ('['): term = ']'; break; default: len = 1; p--; break; } break; case ('('): len = 2; break; case ('['): term = ']'; 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: len = 1; p--; break; } if (term) { for ( ; *p && term != *p; p++) if (ASCII_HYPH == *p) *p = '-'; return(*p ? (int)(p - sv) : 0); } for (i = 0; *p && i < len; i++, p++) if (ASCII_HYPH == *p) *p = '-'; return(i == len ? (int)(p - sv) : 0); } void * mandoc_calloc(size_t num, size_t size) { void *ptr; ptr = calloc(num, size); if (NULL == ptr) { perror(NULL); exit((int)MANDOCLEVEL_SYSERR); } return(ptr); } void * mandoc_malloc(size_t size) { void *ptr; ptr = malloc(size); if (NULL == ptr) { perror(NULL); exit((int)MANDOCLEVEL_SYSERR); } return(ptr); } void * mandoc_realloc(void *ptr, size_t size) { ptr = realloc(ptr, size); if (NULL == ptr) { perror(NULL); exit((int)MANDOCLEVEL_SYSERR); } return(ptr); } char * mandoc_strdup(const char *ptr) { char *p; p = strdup(ptr); if (NULL == p) { perror(NULL); exit((int)MANDOCLEVEL_SYSERR); } return(p); } static int a2time(time_t *t, const char *fmt, const char *p) { struct tm tm; char *pp; memset(&tm, 0, sizeof(struct tm)); pp = strptime(p, fmt, &tm); if (NULL != pp && '\0' == *pp) { *t = mktime(&tm); return(1); } return(0); } /* * Convert from a manual date string (see mdoc(7) and man(7)) into a * date according to the stipulated date type. */ time_t mandoc_a2time(int flags, const char *p) { time_t t; if (MTIME_MDOCDATE & flags) { if (0 == strcmp(p, "$" "Mdocdate$")) return(time(NULL)); if (a2time(&t, "$" "Mdocdate: %b %d %Y $", p)) return(t); } if (MTIME_CANONICAL & flags || MTIME_REDUCED & flags) if (a2time(&t, "%b %d, %Y", p)) return(t); if (MTIME_ISO_8601 & flags) if (a2time(&t, "%Y-%m-%d", p)) return(t); if (MTIME_REDUCED & flags) { if (a2time(&t, "%d, %Y", p)) return(t); if (a2time(&t, "%Y", p)) return(t); } 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); }