xref: /titanic_51/usr/src/cmd/mandoc/term_ascii.c (revision 1886f67eb9de99edbcda88765f2c603a30c87fc2)
1 /*	$Id: term_ascii.c,v 1.21 2013/06/01 14:27:20 schwarze Exp $ */
2 /*
3  * Copyright (c) 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
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  */
17 #ifdef HAVE_CONFIG_H
18 #include "config.h"
19 #endif
20 
21 #include <sys/types.h>
22 
23 #include <assert.h>
24 #ifdef USE_WCHAR
25 # include <locale.h>
26 #endif
27 #include <stdint.h>
28 #include <stdio.h>
29 #include <stdlib.h>
30 #include <unistd.h>
31 #ifdef USE_WCHAR
32 # include <wchar.h>
33 #endif
34 
35 #include "mandoc.h"
36 #include "out.h"
37 #include "term.h"
38 #include "main.h"
39 
40 /*
41  * Sadly, this doesn't seem to be defined on systems even when they
42  * support it.  For the time being, remove it and let those compiling
43  * the software decide for themselves what to use.
44  */
45 #if 0
46 #if ! defined(__STDC_ISO_10646__)
47 # undef USE_WCHAR
48 #endif
49 #endif
50 
51 static	struct termp	 *ascii_init(enum termenc, char *);
52 static	double		  ascii_hspan(const struct termp *,
53 				const struct roffsu *);
54 static	size_t		  ascii_width(const struct termp *, int);
55 static	void		  ascii_advance(struct termp *, size_t);
56 static	void		  ascii_begin(struct termp *);
57 static	void		  ascii_end(struct termp *);
58 static	void		  ascii_endline(struct termp *);
59 static	void		  ascii_letter(struct termp *, int);
60 
61 #ifdef	USE_WCHAR
62 static	void		  locale_advance(struct termp *, size_t);
63 static	void		  locale_endline(struct termp *);
64 static	void		  locale_letter(struct termp *, int);
65 static	size_t		  locale_width(const struct termp *, int);
66 #endif
67 
68 static struct termp *
69 ascii_init(enum termenc enc, char *outopts)
70 {
71 	const char	*toks[4];
72 	char		*v;
73 	struct termp	*p;
74 
75 	p = mandoc_calloc(1, sizeof(struct termp));
76 
77 	p->tabwidth = 5;
78 	p->defrmargin = 78;
79 
80 	p->begin = ascii_begin;
81 	p->end = ascii_end;
82 	p->hspan = ascii_hspan;
83 	p->type = TERMTYPE_CHAR;
84 
85 	p->enc = TERMENC_ASCII;
86 	p->advance = ascii_advance;
87 	p->endline = ascii_endline;
88 	p->letter = ascii_letter;
89 	p->width = ascii_width;
90 
91 #ifdef	USE_WCHAR
92 	if (TERMENC_ASCII != enc) {
93 		v = TERMENC_LOCALE == enc ?
94 			setlocale(LC_ALL, "") :
95 			setlocale(LC_CTYPE, "en_US.UTF-8");
96 		if (NULL != v && MB_CUR_MAX > 1) {
97 			p->enc = enc;
98 			p->advance = locale_advance;
99 			p->endline = locale_endline;
100 			p->letter = locale_letter;
101 			p->width = locale_width;
102 		}
103 	}
104 #endif
105 
106 	toks[0] = "indent";
107 	toks[1] = "width";
108 	toks[2] = "mdoc";
109 	toks[3] = NULL;
110 
111 	while (outopts && *outopts)
112 		switch (getsubopt(&outopts, UNCONST(toks), &v)) {
113 		case (0):
114 			p->defindent = (size_t)atoi(v);
115 			break;
116 		case (1):
117 			p->defrmargin = (size_t)atoi(v);
118 			break;
119 		case (2):
120 			/*
121 			 * Temporary, undocumented mode
122 			 * to imitate mdoc(7) output style.
123 			 */
124 			p->mdocstyle = 1;
125 			p->defindent = 5;
126 			break;
127 		default:
128 			break;
129 		}
130 
131 	/* Enforce a lower boundary. */
132 	if (p->defrmargin < 58)
133 		p->defrmargin = 58;
134 
135 	return(p);
136 }
137 
138 void *
139 ascii_alloc(char *outopts)
140 {
141 
142 	return(ascii_init(TERMENC_ASCII, outopts));
143 }
144 
145 void *
146 utf8_alloc(char *outopts)
147 {
148 
149 	return(ascii_init(TERMENC_UTF8, outopts));
150 }
151 
152 
153 void *
154 locale_alloc(char *outopts)
155 {
156 
157 	return(ascii_init(TERMENC_LOCALE, outopts));
158 }
159 
160 /* ARGSUSED */
161 static size_t
162 ascii_width(const struct termp *p, int c)
163 {
164 
165 	return(1);
166 }
167 
168 void
169 ascii_free(void *arg)
170 {
171 
172 	term_free((struct termp *)arg);
173 }
174 
175 /* ARGSUSED */
176 static void
177 ascii_letter(struct termp *p, int c)
178 {
179 
180 	putchar(c);
181 }
182 
183 static void
184 ascii_begin(struct termp *p)
185 {
186 
187 	(*p->headf)(p, p->argf);
188 }
189 
190 static void
191 ascii_end(struct termp *p)
192 {
193 
194 	(*p->footf)(p, p->argf);
195 }
196 
197 /* ARGSUSED */
198 static void
199 ascii_endline(struct termp *p)
200 {
201 
202 	putchar('\n');
203 }
204 
205 /* ARGSUSED */
206 static void
207 ascii_advance(struct termp *p, size_t len)
208 {
209 	size_t	 	i;
210 
211 	for (i = 0; i < len; i++)
212 		putchar(' ');
213 }
214 
215 /* ARGSUSED */
216 static double
217 ascii_hspan(const struct termp *p, const struct roffsu *su)
218 {
219 	double		 r;
220 
221 	/*
222 	 * Approximate based on character width.  These are generated
223 	 * entirely by eyeballing the screen, but appear to be correct.
224 	 */
225 
226 	switch (su->unit) {
227 	case (SCALE_CM):
228 		r = 4 * su->scale;
229 		break;
230 	case (SCALE_IN):
231 		r = 10 * su->scale;
232 		break;
233 	case (SCALE_PC):
234 		r = (10 * su->scale) / 6;
235 		break;
236 	case (SCALE_PT):
237 		r = (10 * su->scale) / 72;
238 		break;
239 	case (SCALE_MM):
240 		r = su->scale / 1000;
241 		break;
242 	case (SCALE_VS):
243 		r = su->scale * 2 - 1;
244 		break;
245 	default:
246 		r = su->scale;
247 		break;
248 	}
249 
250 	return(r);
251 }
252 
253 #ifdef USE_WCHAR
254 /* ARGSUSED */
255 static size_t
256 locale_width(const struct termp *p, int c)
257 {
258 	int		rc;
259 
260 	return((rc = wcwidth(c)) < 0 ? 0 : rc);
261 }
262 
263 /* ARGSUSED */
264 static void
265 locale_advance(struct termp *p, size_t len)
266 {
267 	size_t	 	i;
268 
269 	for (i = 0; i < len; i++)
270 		putwchar(L' ');
271 }
272 
273 /* ARGSUSED */
274 static void
275 locale_endline(struct termp *p)
276 {
277 
278 	putwchar(L'\n');
279 }
280 
281 /* ARGSUSED */
282 static void
283 locale_letter(struct termp *p, int c)
284 {
285 
286 	putwchar(c);
287 }
288 #endif
289