1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
/*
* From andy@pylesos.asp-linux.com.ua Tue Dec 3 14:17:38 2002
* (polished, aeb)
*
* Manpages for a given language have a traditional character set.
* E.g., for Russian this is koi8r.
* If the user uses a different locale, throw in an invocation of iconv.
*
* Exports:
* const char *get_converter (const char *path);
* Conversion is to the users locale. Conversion is from the
* manpage charset, found in environment variables, or in
* PATH/.charset, where PATH is the directory (below that) containing
* the man page.
*
* TODO: adapt this to man.conf way
*/
/*
* By default iconv is not used - this is the wrong interface.
* But if you want it, define USE_ICONV.
*/
#undef USE_ICONV
#include <stdio.h> /* NULL */
#if defined __GLIBC__ && __GLIBC__ >= 2 && defined USE_ICONV
#include <stdlib.h> /* getenv */
#include <unistd.h> /* access */
#include <string.h> /* strcmp */
#include <locale.h> /* setlocale */
#include <langinfo.h> /* nl_langinfo */
#include <iconv.h> /* iconv_open */
#include "man-iconv.h" /* get_converter */
#include "util.h" /* my_strdup */
#include "man.h" /* debug */
static char *
find_iconv(void) {
static char *iconv_path = NULL;
static int inited = 0;
if (!inited) {
char *file = getenv("MAN_ICONV_PATH");
if (!file)
file = "/usr/bin/iconv";
if (access(file, X_OK) == 0)
iconv_path = my_strdup(file);
inited = 1;
}
return iconv_path;
}
static char *
iconv_extra_flags(void) {
static char *iconv_flags = "-cs";
static int inited = 0;
if (!inited) {
char *opt = getenv("MAN_ICONV_OPT");
if (opt)
iconv_flags = my_strdup(opt);
inited = 1;
}
return iconv_flags;
}
static char *
get_locale_charset (void) {
char *old_lc_ctype, *charset;
if ((charset = getenv("MAN_ICONV_OUTPUT_CHARSET")) == NULL) {
old_lc_ctype = setlocale(LC_CTYPE, "");
charset = nl_langinfo(CODESET);
setlocale(LC_CTYPE, old_lc_ctype);
}
return charset;
}
static char *
get_man_charset (const char *path) {
char *charset_env, *file, *path2, *p;
FILE *f = NULL;
charset_env = getenv("MAN_ICONV_INPUT_CHARSET");
if (charset_env)
return charset_env;
if (!path || !*path)
return NULL;
if (debug)
fprintf(stderr, "get_man_charset: path=%s\n", path);
/* strip trailing "/.." and try that directory first */
path2 = my_strdup(path);
p = strrchr(path2, '/');
if (p && !strcmp(p, "/..")) {
*p = 0;
file = my_xsprintf("%s/.charset", path2);
f = fopen(file, "r");
free(file);
}
free(path2);
/* if that fails, try path itself */
if (f == NULL) {
file = my_xsprintf("%s/.charset", path);
f = fopen(file, "r");
free(file);
}
if (f) {
char charset[100], *p;
fgets(charset, sizeof(charset), f);
fclose(f);
fprintf(stderr, "read %s\n", charset);
p = strchr(charset, '\n');
if (p) {
*p = 0;
return my_strdup(charset);
}
}
return NULL;
}
static int
is_conversion_supported (char *from, char *to) {
iconv_t cd;
if (!from || !*from || !to || !*to || !strcmp(from,to))
return 0;
if ((cd = iconv_open(to, from)) != (iconv_t) -1) {
iconv_close(cd);
return 1;
}
return 0;
}
const char *
get_converter (const char *path) {
char *from, *to, *iconv_path;
iconv_path = find_iconv();
from = get_man_charset(path);
to = get_locale_charset();
if (debug)
fprintf(stderr, "get_converter: iconv_path=%s from=%s to=%s\n",
iconv_path, from, to);
if (iconv_path && is_conversion_supported(from, to))
return my_xsprintf("%s %s -f %s -t %s",
iconv_path, iconv_extra_flags(), from, to);
return NULL;
}
#else
#include "man-iconv.h"
const char *
get_converter (const char *path) {
return NULL;
}
#endif /* __GLIBC__ && __GLIBC__ >= 2 */
|
