aboutsummaryrefslogtreecommitdiff
path: root/loadacm.c
diff options
context:
space:
mode:
authorEric Andersen <andersen@codepoet.org>2001-10-24 05:00:29 +0000
committerEric Andersen <andersen@codepoet.org>2001-10-24 05:00:29 +0000
commitbdfd0d78bc44e73d693510e70087857785b3b521 (patch)
tree153a573095afac8d8d0ea857759ecabd77fb28b7 /loadacm.c
parent9260fc5552a3ee52eb95823aa6689d52a1ffd33c (diff)
downloadbusybox-w32-bdfd0d78bc44e73d693510e70087857785b3b521.tar.gz
busybox-w32-bdfd0d78bc44e73d693510e70087857785b3b521.tar.bz2
busybox-w32-bdfd0d78bc44e73d693510e70087857785b3b521.zip
Major rework of the directory structure and the entire build system.
-Erik
Diffstat (limited to 'loadacm.c')
-rw-r--r--loadacm.c357
1 files changed, 0 insertions, 357 deletions
diff --git a/loadacm.c b/loadacm.c
deleted file mode 100644
index 3fb4e7665..000000000
--- a/loadacm.c
+++ /dev/null
@@ -1,357 +0,0 @@
1/* vi: set sw=4 ts=4: */
2/*
3 * Derived from
4 * mapscrn.c - version 0.92
5 *
6 * Was taken from console-tools and adapted by
7 * Peter Novodvorsky <petya@logic.ru>
8 */
9
10#include <stdio.h>
11#include <stdlib.h>
12#include <memory.h>
13#include <string.h>
14#include <unistd.h>
15#include <fcntl.h>
16#include <assert.h>
17#include <errno.h>
18#include <signal.h>
19#include <sys/kd.h>
20#include <sys/types.h>
21#include <sys/ioctl.h>
22#include "busybox.h"
23
24typedef unsigned short unicode;
25
26static long int ctoi(unsigned char *s, int *is_unicode);
27static int old_screen_map_read_ascii(FILE * fp, unsigned char buf[]);
28static int uni_screen_map_read_ascii(FILE * fp, unicode buf[], int *is_unicode);
29static unicode utf8_to_ucs2(char *buf);
30static int screen_map_load(int fd, FILE * fp);
31
32int loadacm_main(int argc, char **argv)
33{
34 int fd;
35
36 if (argc>=2 && *argv[1]=='-') {
37 show_usage();
38 }
39
40 fd = open(CURRENT_VC, O_RDWR);
41 if (fd < 0) {
42 perror_msg_and_die("Error opening " CURRENT_VC);
43 }
44
45 if (screen_map_load(fd, stdin)) {
46 perror_msg_and_die("Error loading acm");
47 }
48
49 write(fd, "\033(K", 3);
50
51 return EXIT_SUCCESS;
52}
53
54static int screen_map_load(int fd, FILE * fp)
55{
56 struct stat stbuf;
57 unicode wbuf[E_TABSZ];
58 unsigned char buf[E_TABSZ];
59 int parse_failed = 0;
60 int is_unicode;
61
62 if (fstat(fileno(fp), &stbuf))
63 perror_msg_and_die("Cannot stat map file");
64
65 /* first try a UTF screen-map: either ASCII (no restriction) or binary (regular file) */
66 if (!
67 (parse_failed =
68 (-1 == uni_screen_map_read_ascii(fp, wbuf, &is_unicode)))
69|| (S_ISREG(stbuf.st_mode) && (stbuf.st_size == (sizeof(unicode) * E_TABSZ)))) { /* test for binary UTF map by size */
70 if (parse_failed) {
71 if (-1 == fseek(fp, 0, SEEK_SET)) {
72 if (errno == ESPIPE)
73 error_msg_and_die("16bit screen-map MUST be a regular file.");
74 else
75 perror_msg_and_die("fseek failed reading binary 16bit screen-map");
76 }
77
78 if (fread(wbuf, sizeof(unicode) * E_TABSZ, 1, fp) != 1)
79 perror_msg_and_die("Cannot read [new] map from file");
80#if 0
81 else
82 error_msg("Input screen-map is binary.");
83#endif
84 }
85
86 /* if it was effectively a 16-bit ASCII, OK, else try to read as 8-bit map */
87 /* same if it was binary, ie. if parse_failed */
88 if (parse_failed || is_unicode) {
89 if (ioctl(fd, PIO_UNISCRNMAP, wbuf))
90 perror_msg_and_die("PIO_UNISCRNMAP ioctl");
91 else
92 return 0;
93 }
94 }
95
96 /* rewind... */
97 if (-1 == fseek(fp, 0, SEEK_SET)) {
98 if (errno == ESPIPE)
99 error_msg("Assuming 8bit screen-map - MUST be a regular file."),
100 exit(1);
101 else
102 perror_msg_and_die("fseek failed assuming 8bit screen-map");
103 }
104
105 /* ... and try an old 8-bit screen-map */
106 if (!(parse_failed = (-1 == old_screen_map_read_ascii(fp, buf))) ||
107 (S_ISREG(stbuf.st_mode) && (stbuf.st_size == E_TABSZ))) { /* test for binary old 8-bit map by size */
108 if (parse_failed) {
109 if (-1 == fseek(fp, 0, SEEK_SET)) {
110 if (errno == ESPIPE)
111 /* should not - it succedeed above */
112 error_msg_and_die("fseek() returned ESPIPE !");
113 else
114 perror_msg_and_die("fseek for binary 8bit screen-map");
115 }
116
117 if (fread(buf, E_TABSZ, 1, fp) != 1)
118 perror_msg_and_die("Cannot read [old] map from file");
119#if 0
120 else
121 error_msg("Input screen-map is binary.");
122#endif
123 }
124
125 if (ioctl(fd, PIO_SCRNMAP, buf))
126 perror_msg_and_die("PIO_SCRNMAP ioctl");
127 else
128 return 0;
129 }
130 error_msg("Error parsing symbolic map");
131 return(1);
132}
133
134
135/*
136 * - reads `fp' as a 16-bit ASCII SFM file.
137 * - returns -1 on error.
138 * - returns it in `unicode' in an E_TABSZ-elements array.
139 * - sets `*is_unicode' flagiff there were any non-8-bit
140 * (ie. real 16-bit) mapping.
141 *
142 * FIXME: ignores everything after second word
143 */
144static int uni_screen_map_read_ascii(FILE * fp, unicode buf[], int *is_unicode)
145{
146 char buffer[256]; /* line buffer reading file */
147 char *p, *q; /* 1st + 2nd words in line */
148 int in, on; /* the same, as numbers */
149 int tmp_is_unicode; /* tmp for is_unicode calculation */
150 int i; /* loop index - result holder */
151 int ret_code = 0; /* return code */
152 sigset_t acmsigset, old_sigset;
153
154 assert(is_unicode);
155
156 *is_unicode = 0;
157
158 /* first 128 codes defaults to ASCII */
159 for (i = 0; i < 128; i++)
160 buf[i] = i;
161 /* remaining defaults to replacement char (usually E_TABSZ = 256) */
162 for (; i < E_TABSZ; i++)
163 buf[i] = 0xfffd;
164
165 /* block SIGCHLD */
166 sigemptyset(&acmsigset);
167 sigaddset(&acmsigset, SIGCHLD);
168 sigprocmask(SIG_BLOCK, &acmsigset, &old_sigset);
169
170 do {
171 if (NULL == fgets(buffer, sizeof(buffer), fp)) {
172 if (feof(fp))
173 break;
174 else
175 perror_msg_and_die("uni_screen_map_read_ascii() can't read line");
176 }
177
178 /* get "charset-relative charcode", stripping leading spaces */
179 p = strtok(buffer, " \t\n");
180
181 /* skip empty lines and comments */
182 if (!p || *p == '#')
183 continue;
184
185 /* get unicode mapping */
186 q = strtok(NULL, " \t\n");
187 if (q) {
188 in = ctoi(p, NULL);
189 if (in < 0 || in > 255) {
190 ret_code = -1;
191 break;
192 }
193
194 on = ctoi(q, &tmp_is_unicode);
195 if (in < 0 && on > 65535) {
196 ret_code = -1;
197 break;
198 }
199
200 *is_unicode |= tmp_is_unicode;
201 buf[in] = on;
202 } else {
203 ret_code = -1;
204 break;
205 }
206 }
207 while (1); /* terminated by break on feof() */
208
209 /* restore sig mask */
210 sigprocmask(SIG_SETMASK, &old_sigset, NULL);
211
212 return ret_code;
213}
214
215
216static int old_screen_map_read_ascii(FILE * fp, unsigned char buf[])
217{
218 char buffer[256];
219 int in, on;
220 char *p, *q;
221
222 for (in = 0; in < 256; in++)
223 buf[in] = in;
224
225 while (fgets(buffer, sizeof(buffer) - 1, fp)) {
226 p = strtok(buffer, " \t\n");
227
228 if (!p || *p == '#')
229 continue;
230
231 q = strtok(NULL, " \t\n#");
232 if (q) {
233 in = ctoi(p, NULL);
234 if (in < 0 || in > 255)
235 return -1;
236
237 on = ctoi(q, NULL);
238 if (in < 0 && on > 255)
239 return -1;
240
241 buf[in] = on;
242 } else
243 return -1;
244 }
245
246 return (0);
247}
248
249
250/*
251 * - converts a string into an int.
252 * - supports dec and hex bytes, hex UCS2, single-quoted byte and UTF8 chars.
253 * - returns the converted value
254 * - if `is_unicode != NULL', use it to tell whether it was unicode
255 *
256 * CAVEAT: will report valid UTF mappings using only 1 byte as 8-bit ones.
257 */
258static long int ctoi(unsigned char *s, int *is_unicode)
259{
260 int i;
261 size_t ls;
262
263 ls = strlen(s);
264 if (is_unicode)
265 *is_unicode = 0;
266
267 /* hex-specified UCS2 */
268 if ((strncmp(s, "U+", 2) == 0) &&
269 (strspn(s + 2, "0123456789abcdefABCDEF") == ls - 2)) {
270 sscanf(s + 2, "%x", &i);
271 if (is_unicode)
272 *is_unicode = 1;
273 }
274
275 /* hex-specified byte */
276 else if ((ls <= 4) && (strncmp(s, "0x", 2) == 0) &&
277 (strspn(s + 2, "0123456789abcdefABCDEF") == ls - 2))
278 sscanf(s + 2, "%x", &i);
279
280 /* oct-specified number (byte) */
281 else if ((*s == '0') && (strspn(s, "01234567") == ls))
282 sscanf(s, "%o", &i);
283
284 /* dec-specified number (byte) */
285 else if (strspn(s, "0123456789") == ls)
286 sscanf(s, "%d", &i);
287
288 /* single-byte quoted char */
289 else if ((strlen(s) == 3) && (s[0] == '\'') && (s[2] == '\''))
290 i = s[1];
291
292 /* multi-byte UTF8 quoted char */
293 else if ((s[0] == '\'') && (s[ls - 1] == '\'')) {
294 s[ls - 1] = 0; /* ensure we'll not "parse UTF too far" */
295 i = utf8_to_ucs2(s + 1);
296 if (is_unicode)
297 *is_unicode = 1;
298 } else
299 return (-1);
300
301 return (i);
302}
303
304
305static unicode utf8_to_ucs2(char *buf)
306{
307 int utf_count = 0;
308 long utf_char = 0;
309 unicode tc = 0;
310 unsigned char c;
311
312 do {
313 c = *buf;
314 buf++;
315
316 /* if byte should be part of multi-byte sequence */
317 if (c & 0x80) {
318 /* if we have already started to parse a UTF8 sequence */
319 if (utf_count > 0 && (c & 0xc0) == 0x80) {
320 utf_char = (utf_char << 6) | (c & 0x3f);
321 utf_count--;
322 if (utf_count == 0)
323 tc = utf_char;
324 else
325 continue;
326 } else { /* Possibly 1st char of a UTF8 sequence */
327
328 if ((c & 0xe0) == 0xc0) {
329 utf_count = 1;
330 utf_char = (c & 0x1f);
331 } else if ((c & 0xf0) == 0xe0) {
332 utf_count = 2;
333 utf_char = (c & 0x0f);
334 } else if ((c & 0xf8) == 0xf0) {
335 utf_count = 3;
336 utf_char = (c & 0x07);
337 } else if ((c & 0xfc) == 0xf8) {
338 utf_count = 4;
339 utf_char = (c & 0x03);
340 } else if ((c & 0xfe) == 0xfc) {
341 utf_count = 5;
342 utf_char = (c & 0x01);
343 } else
344 utf_count = 0;
345 continue;
346 }
347 } else { /* not part of multi-byte sequence - treat as ASCII
348 * this makes incomplete sequences to be ignored
349 */
350 tc = c;
351 utf_count = 0;
352 }
353 }
354 while (utf_count);
355
356 return tc;
357}
generated by cgit v1.2.3-55-g6feb (git 2.39.1) at 2025-08-11 07:43:53 +0000