external/bsd/mdocml/dist/term_ascii.c

   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