version 1.15, 2011/05/17 22:32:45 |
version 1.30, 2014/08/14 22:33:10 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2010 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> |
|
* Copyright (c) 2014 Ingo Schwarze <schwarze@openbsd.org> |
* |
* |
* Permission to use, copy, modify, and distribute this software for any |
* Permission to use, copy, modify, and distribute this software for any |
* purpose with or without fee is hereby granted, provided that the above |
* purpose with or without fee is hereby granted, provided that the above |
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
*/ |
*/ |
#ifdef HAVE_CONFIG_H |
|
#include "config.h" |
#include "config.h" |
#endif |
|
|
|
#include <sys/types.h> |
#include <sys/types.h> |
|
|
#include <assert.h> |
|
#ifdef USE_WCHAR |
#ifdef USE_WCHAR |
# include <locale.h> |
#include <locale.h> |
#endif |
#endif |
#include <stdint.h> |
#include <stdint.h> |
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
#include <unistd.h> |
#include <unistd.h> |
#ifdef USE_WCHAR |
#ifdef USE_WCHAR |
# include <wchar.h> |
#include <wchar.h> |
#endif |
#endif |
|
|
#include "mandoc.h" |
#include "mandoc.h" |
|
#include "mandoc_aux.h" |
#include "out.h" |
#include "out.h" |
#include "term.h" |
#include "term.h" |
#include "main.h" |
#include "main.h" |
|
|
|
/* |
|
* Sadly, this doesn't seem to be defined on systems even when they |
|
* support it. For the time being, remove it and let those compiling |
|
* the software decide for themselves what to use. |
|
*/ |
|
#if 0 |
#if ! defined(__STDC_ISO_10646__) |
#if ! defined(__STDC_ISO_10646__) |
# undef USE_WCHAR |
# undef USE_WCHAR |
#endif |
#endif |
|
#endif |
|
|
static struct termp *ascii_init(enum termenc, char *); |
static struct termp *ascii_init(enum termenc, char *); |
static double ascii_hspan(const struct termp *, |
static double ascii_hspan(const struct termp *, |
Line 50 static void ascii_begin(struct termp *); |
|
Line 56 static void ascii_begin(struct termp *); |
|
static void ascii_end(struct termp *); |
static void ascii_end(struct termp *); |
static void ascii_endline(struct termp *); |
static void ascii_endline(struct termp *); |
static void ascii_letter(struct termp *, int); |
static void ascii_letter(struct termp *, int); |
|
static void ascii_setwidth(struct termp *, int, size_t); |
|
|
#ifdef USE_WCHAR |
#ifdef USE_WCHAR |
static void locale_advance(struct termp *, size_t); |
static void locale_advance(struct termp *, size_t); |
Line 58 static void locale_letter(struct termp *, int); |
|
Line 65 static void locale_letter(struct termp *, int); |
|
static size_t locale_width(const struct termp *, int); |
static size_t locale_width(const struct termp *, int); |
#endif |
#endif |
|
|
|
|
static struct termp * |
static struct termp * |
ascii_init(enum termenc enc, char *outopts) |
ascii_init(enum termenc enc, char *outopts) |
{ |
{ |
const char *toks[2]; |
const char *toks[4]; |
char *v; |
char *v; |
struct termp *p; |
struct termp *p; |
|
|
p = mandoc_calloc(1, sizeof(struct termp)); |
p = mandoc_calloc(1, sizeof(struct termp)); |
p->enc = enc; |
|
|
|
p->tabwidth = 5; |
p->tabwidth = 5; |
p->defrmargin = 78; |
p->defrmargin = p->lastrmargin = 78; |
|
|
p->begin = ascii_begin; |
p->begin = ascii_begin; |
p->end = ascii_end; |
p->end = ascii_end; |
Line 80 ascii_init(enum termenc enc, char *outopts) |
|
Line 87 ascii_init(enum termenc enc, char *outopts) |
|
p->advance = ascii_advance; |
p->advance = ascii_advance; |
p->endline = ascii_endline; |
p->endline = ascii_endline; |
p->letter = ascii_letter; |
p->letter = ascii_letter; |
|
p->setwidth = ascii_setwidth; |
p->width = ascii_width; |
p->width = ascii_width; |
|
|
#if defined (USE_WCHAR) |
#ifdef USE_WCHAR |
if (TERMENC_LOCALE == enc) |
if (TERMENC_ASCII != enc) { |
if (setlocale(LC_ALL, "") && MB_CUR_MAX > 1) { |
v = TERMENC_LOCALE == enc ? |
|
setlocale(LC_ALL, "") : |
|
setlocale(LC_CTYPE, "en_US.UTF-8"); |
|
if (NULL != v && MB_CUR_MAX > 1) { |
p->enc = enc; |
p->enc = enc; |
p->advance = locale_advance; |
p->advance = locale_advance; |
p->endline = locale_endline; |
p->endline = locale_endline; |
p->letter = locale_letter; |
p->letter = locale_letter; |
p->width = locale_width; |
p->width = locale_width; |
} |
} |
|
} |
#endif |
#endif |
|
|
toks[0] = "width"; |
toks[0] = "indent"; |
toks[1] = NULL; |
toks[1] = "width"; |
|
toks[2] = "mdoc"; |
|
toks[3] = NULL; |
|
|
while (outopts && *outopts) |
while (outopts && *outopts) |
switch (getsubopt(&outopts, UNCONST(toks), &v)) { |
switch (getsubopt(&outopts, UNCONST(toks), &v)) { |
case (0): |
case 0: |
|
p->defindent = (size_t)atoi(v); |
|
break; |
|
case 1: |
p->defrmargin = (size_t)atoi(v); |
p->defrmargin = (size_t)atoi(v); |
break; |
break; |
|
case 2: |
|
/* |
|
* Temporary, undocumented mode |
|
* to imitate mdoc(7) output style. |
|
*/ |
|
p->mdocstyle = 1; |
|
p->defindent = 5; |
|
break; |
default: |
default: |
break; |
break; |
} |
} |
Line 120 ascii_alloc(char *outopts) |
|
Line 145 ascii_alloc(char *outopts) |
|
} |
} |
|
|
void * |
void * |
|
utf8_alloc(char *outopts) |
|
{ |
|
|
|
return(ascii_init(TERMENC_UTF8, outopts)); |
|
} |
|
|
|
void * |
locale_alloc(char *outopts) |
locale_alloc(char *outopts) |
{ |
{ |
|
|
return(ascii_init(TERMENC_LOCALE, outopts)); |
return(ascii_init(TERMENC_LOCALE, outopts)); |
} |
} |
|
|
/* ARGSUSED */ |
static void |
|
ascii_setwidth(struct termp *p, int iop, size_t width) |
|
{ |
|
|
|
p->rmargin = p->defrmargin; |
|
if (0 < iop) |
|
p->defrmargin += width; |
|
else if (0 > iop) |
|
p->defrmargin -= width; |
|
else |
|
p->defrmargin = width ? width : p->lastrmargin; |
|
p->lastrmargin = p->rmargin; |
|
p->rmargin = p->maxrmargin = p->defrmargin; |
|
} |
|
|
static size_t |
static size_t |
ascii_width(const struct termp *p, int c) |
ascii_width(const struct termp *p, int c) |
{ |
{ |
Line 141 ascii_free(void *arg) |
|
Line 187 ascii_free(void *arg) |
|
term_free((struct termp *)arg); |
term_free((struct termp *)arg); |
} |
} |
|
|
/* ARGSUSED */ |
|
static void |
static void |
ascii_letter(struct termp *p, int c) |
ascii_letter(struct termp *p, int c) |
{ |
{ |
|
|
putchar(c); |
putchar(c); |
} |
} |
|
|
Line 163 ascii_end(struct termp *p) |
|
Line 208 ascii_end(struct termp *p) |
|
(*p->footf)(p, p->argf); |
(*p->footf)(p, p->argf); |
} |
} |
|
|
/* ARGSUSED */ |
|
static void |
static void |
ascii_endline(struct termp *p) |
ascii_endline(struct termp *p) |
{ |
{ |
Line 171 ascii_endline(struct termp *p) |
|
Line 215 ascii_endline(struct termp *p) |
|
putchar('\n'); |
putchar('\n'); |
} |
} |
|
|
/* ARGSUSED */ |
|
static void |
static void |
ascii_advance(struct termp *p, size_t len) |
ascii_advance(struct termp *p, size_t len) |
{ |
{ |
size_t i; |
size_t i; |
|
|
for (i = 0; i < len; i++) |
for (i = 0; i < len; i++) |
putchar(' '); |
putchar(' '); |
} |
} |
|
|
/* ARGSUSED */ |
|
static double |
static double |
ascii_hspan(const struct termp *p, const struct roffsu *su) |
ascii_hspan(const struct termp *p, const struct roffsu *su) |
{ |
{ |
double r; |
double r; |
|
|
/* |
/* |
* Approximate based on character width. These are generated |
* Approximate based on character width. |
* entirely by eyeballing the screen, but appear to be correct. |
* None of these will be actually correct given that an inch on |
|
* the screen depends on character size, terminal, etc., etc. |
*/ |
*/ |
|
|
switch (su->unit) { |
switch (su->unit) { |
case (SCALE_CM): |
case SCALE_BU: |
r = 4 * su->scale; |
r = su->scale * 10.0 / 240.0; |
break; |
break; |
case (SCALE_IN): |
case SCALE_CM: |
r = 10 * su->scale; |
r = su->scale * 10.0 / 2.54; |
break; |
break; |
case (SCALE_PC): |
case SCALE_FS: |
r = (10 * su->scale) / 6; |
r = su->scale * 2730.666; |
break; |
break; |
case (SCALE_PT): |
case SCALE_IN: |
r = (10 * su->scale) / 72; |
r = su->scale * 10.0; |
break; |
break; |
case (SCALE_MM): |
case SCALE_MM: |
r = su->scale / 1000; |
r = su->scale / 100.0; |
break; |
break; |
case (SCALE_VS): |
case SCALE_PC: |
r = su->scale * 2 - 1; |
r = su->scale * 10.0 / 6.0; |
break; |
break; |
default: |
case SCALE_PT: |
|
r = su->scale * 10.0 / 72.0; |
|
break; |
|
case SCALE_VS: |
|
r = su->scale * 2.0 - 1.0; |
|
break; |
|
case SCALE_EN: |
|
/* FALLTHROUGH */ |
|
case SCALE_EM: |
r = su->scale; |
r = su->scale; |
break; |
break; |
|
case SCALE_MAX: |
|
abort(); |
|
/* NOTREACHED */ |
} |
} |
|
|
return(r); |
return(r); |
} |
} |
|
|
#ifdef USE_WCHAR |
#ifdef USE_WCHAR |
/* ARGSUSED */ |
|
static size_t |
static size_t |
locale_width(const struct termp *p, int c) |
locale_width(const struct termp *p, int c) |
{ |
{ |
int rc; |
int rc; |
|
|
return((rc = wcwidth(c)) < 0 ? 0 : rc); |
if (c == ASCII_NBRSP) |
|
c = ' '; |
|
rc = wcwidth(c); |
|
if (rc < 0) |
|
rc = 0; |
|
return(rc); |
} |
} |
|
|
/* ARGSUSED */ |
|
static void |
static void |
locale_advance(struct termp *p, size_t len) |
locale_advance(struct termp *p, size_t len) |
{ |
{ |
size_t i; |
size_t i; |
|
|
for (i = 0; i < len; i++) |
for (i = 0; i < len; i++) |
putwchar(L' '); |
putwchar(L' '); |
} |
} |
|
|
/* ARGSUSED */ |
|
static void |
static void |
locale_endline(struct termp *p) |
locale_endline(struct termp *p) |
{ |
{ |
Line 247 locale_endline(struct termp *p) |
|
Line 302 locale_endline(struct termp *p) |
|
putwchar(L'\n'); |
putwchar(L'\n'); |
} |
} |
|
|
/* ARGSUSED */ |
|
static void |
static void |
locale_letter(struct termp *p, int c) |
locale_letter(struct termp *p, int c) |
{ |
{ |
|
|
putwchar(c); |
putwchar(c); |
} |
} |
#endif |
#endif |