Annotation of mandoc/mandoc.c, Revision 1.23
1.23 ! schwarze 1: /* $Id: mandoc.c,v 1.22 2010/07/18 12:10:08 kristaps Exp $ */
1.1 kristaps 2: /*
1.22 kristaps 3: * Copyright (c) 2008, 2009, 2010 Kristaps Dzonsons <kristaps@bsd.lv>
1.1 kristaps 4: *
5: * Permission to use, copy, modify, and distribute this software for any
6: * purpose with or without fee is hereby granted, provided that the above
7: * copyright notice and this permission notice appear in all copies.
8: *
9: * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
10: * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
11: * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
12: * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
13: * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
14: * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
15: * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
16: */
1.9 kristaps 17: #ifdef HAVE_CONFIG_H
18: #include "config.h"
1.7 kristaps 19: #endif
20:
1.2 kristaps 21: #include <sys/types.h>
22:
1.1 kristaps 23: #include <assert.h>
24: #include <ctype.h>
25: #include <stdlib.h>
1.4 kristaps 26: #include <stdio.h>
27: #include <string.h>
1.7 kristaps 28: #include <time.h>
1.1 kristaps 29:
1.18 kristaps 30: #include "mandoc.h"
1.1 kristaps 31: #include "libmandoc.h"
32:
1.18 kristaps 33: static int a2time(time_t *, const char *, const char *);
1.7 kristaps 34:
35:
1.1 kristaps 36: int
1.18 kristaps 37: mandoc_special(char *p)
1.1 kristaps 38: {
1.22 kristaps 39: int len, i;
40: char term;
1.18 kristaps 41: char *sv;
1.1 kristaps 42:
1.22 kristaps 43: len = 0;
44: term = '\0';
1.18 kristaps 45: sv = p;
46:
1.22 kristaps 47: assert('\\' == *p);
48: p++;
1.1 kristaps 49:
1.22 kristaps 50: switch (*p++) {
1.8 kristaps 51: case ('s'):
1.22 kristaps 52: if (ASCII_HYPH == *p)
53: *p = '-';
54: if ('+' == *p || '-' == *p)
55: p++;
1.8 kristaps 56:
1.22 kristaps 57: i = ('s' != *(p - 1));
1.8 kristaps 58:
1.22 kristaps 59: switch (*p++) {
60: case ('('):
61: len = 2;
62: break;
63: case ('['):
64: term = ']';
65: break;
66: case ('\''):
67: term = '\'';
68: break;
69: default:
70: len = 1;
71: p--;
72: break;
1.8 kristaps 73: }
74:
1.22 kristaps 75: if (ASCII_HYPH == *p)
76: *p = '-';
77: if ('+' == *p || '-' == *p) {
78: if (i++)
79: return(0);
80: p++;
81: }
82:
83: if (0 == i)
84: return(0);
85: break;
1.11 kristaps 86: case ('f'):
87: /* FALLTHROUGH */
88: case ('F'):
89: /* FALLTHROUGH */
1.1 kristaps 90: case ('*'):
1.22 kristaps 91: switch (*p++) {
1.1 kristaps 92: case ('('):
1.22 kristaps 93: len = 2;
94: break;
1.1 kristaps 95: case ('['):
1.22 kristaps 96: term = ']';
97: break;
1.1 kristaps 98: default:
1.22 kristaps 99: len = 1;
100: p--;
1.1 kristaps 101: break;
102: }
1.22 kristaps 103: break;
1.1 kristaps 104: case ('('):
1.22 kristaps 105: len = 2;
106: break;
1.1 kristaps 107: case ('['):
1.22 kristaps 108: term = ']';
1.1 kristaps 109: break;
110: default:
1.22 kristaps 111: len = 1;
112: p--;
113: break;
1.1 kristaps 114: }
115:
1.22 kristaps 116: if (term) {
117: for ( ; *p && term != *p; p++)
118: if (ASCII_HYPH == *p)
119: *p = '-';
120: return(*p ? p - sv : 0);
121: }
1.1 kristaps 122:
1.22 kristaps 123: for (i = 0; *p && i < len; i++, p++)
124: if (ASCII_HYPH == *p)
125: *p = '-';
126: return(i == len ? p - sv : 0);
1.1 kristaps 127: }
128:
1.4 kristaps 129:
130: void *
131: mandoc_calloc(size_t num, size_t size)
132: {
133: void *ptr;
134:
135: ptr = calloc(num, size);
136: if (NULL == ptr) {
1.6 kristaps 137: perror(NULL);
1.4 kristaps 138: exit(EXIT_FAILURE);
139: }
140:
141: return(ptr);
142: }
143:
144:
145: void *
146: mandoc_malloc(size_t size)
147: {
148: void *ptr;
149:
150: ptr = malloc(size);
151: if (NULL == ptr) {
1.6 kristaps 152: perror(NULL);
1.4 kristaps 153: exit(EXIT_FAILURE);
154: }
155:
156: return(ptr);
157: }
158:
159:
160: void *
161: mandoc_realloc(void *ptr, size_t size)
162: {
163:
164: ptr = realloc(ptr, size);
165: if (NULL == ptr) {
1.6 kristaps 166: perror(NULL);
1.4 kristaps 167: exit(EXIT_FAILURE);
168: }
169:
170: return(ptr);
171: }
172:
173:
174: char *
175: mandoc_strdup(const char *ptr)
176: {
177: char *p;
178:
179: p = strdup(ptr);
180: if (NULL == p) {
1.6 kristaps 181: perror(NULL);
1.4 kristaps 182: exit(EXIT_FAILURE);
183: }
184:
185: return(p);
186: }
1.7 kristaps 187:
188:
189: static int
190: a2time(time_t *t, const char *fmt, const char *p)
191: {
192: struct tm tm;
193: char *pp;
194:
195: memset(&tm, 0, sizeof(struct tm));
196:
197: pp = strptime(p, fmt, &tm);
198: if (NULL != pp && '\0' == *pp) {
199: *t = mktime(&tm);
200: return(1);
201: }
202:
203: return(0);
204: }
205:
206:
207: /*
208: * Convert from a manual date string (see mdoc(7) and man(7)) into a
209: * date according to the stipulated date type.
210: */
211: time_t
212: mandoc_a2time(int flags, const char *p)
213: {
214: time_t t;
215:
216: if (MTIME_MDOCDATE & flags) {
217: if (0 == strcmp(p, "$" "Mdocdate$"))
218: return(time(NULL));
219: if (a2time(&t, "$" "Mdocdate: %b %d %Y $", p))
220: return(t);
221: }
222:
223: if (MTIME_CANONICAL & flags || MTIME_REDUCED & flags)
224: if (a2time(&t, "%b %d, %Y", p))
225: return(t);
226:
227: if (MTIME_ISO_8601 & flags)
228: if (a2time(&t, "%Y-%m-%d", p))
229: return(t);
230:
231: if (MTIME_REDUCED & flags) {
232: if (a2time(&t, "%d, %Y", p))
233: return(t);
234: if (a2time(&t, "%Y", p))
235: return(t);
236: }
237:
238: return(0);
239: }
240:
1.12 kristaps 241:
242: int
1.23 ! schwarze 243: mandoc_eos(const char *p, size_t sz, int enclosed)
1.12 kristaps 244: {
1.23 ! schwarze 245: const char *q;
! 246: int found;
1.12 kristaps 247:
1.13 kristaps 248: if (0 == sz)
249: return(0);
1.12 kristaps 250:
1.14 kristaps 251: /*
252: * End-of-sentence recognition must include situations where
253: * some symbols, such as `)', allow prior EOS punctuation to
254: * propogate outward.
255: */
256:
1.23 ! schwarze 257: found = 0;
! 258: for (q = p + sz - 1; q >= p; q--) {
! 259: switch (*q) {
1.14 kristaps 260: case ('\"'):
261: /* FALLTHROUGH */
262: case ('\''):
1.15 kristaps 263: /* FALLTHROUGH */
264: case (']'):
1.14 kristaps 265: /* FALLTHROUGH */
266: case (')'):
1.23 ! schwarze 267: if (0 == found)
! 268: enclosed = 1;
1.14 kristaps 269: break;
270: case ('.'):
271: /* FALLTHROUGH */
272: case ('!'):
273: /* FALLTHROUGH */
274: case ('?'):
1.23 ! schwarze 275: found = 1;
! 276: break;
1.14 kristaps 277: default:
1.23 ! schwarze 278: return(found && (!enclosed || isalnum(*q)));
1.14 kristaps 279: }
1.12 kristaps 280: }
281:
1.23 ! schwarze 282: return(found && !enclosed);
1.16 kristaps 283: }
284:
285:
286: int
287: mandoc_hyph(const char *start, const char *c)
288: {
289:
290: /*
291: * Choose whether to break at a hyphenated character. We only
292: * do this if it's free-standing within a word.
293: */
294:
295: /* Skip first/last character of buffer. */
296: if (c == start || '\0' == *(c + 1))
297: return(0);
298: /* Skip first/last character of word. */
299: if ('\t' == *(c + 1) || '\t' == *(c - 1))
300: return(0);
301: if (' ' == *(c + 1) || ' ' == *(c - 1))
302: return(0);
303: /* Skip double invocations. */
304: if ('-' == *(c + 1) || '-' == *(c - 1))
305: return(0);
306: /* Skip escapes. */
307: if ('\\' == *(c - 1))
308: return(0);
309:
310: return(1);
1.12 kristaps 311: }
CVSweb