1 | /*
|
---|
2 | * TINET (TCP/IP Protocol Stack)
|
---|
3 | *
|
---|
4 | * Copyright (C) 2001-2017 by Dep. of Computer Science and Engineering
|
---|
5 | * Tomakomai National College of Technology, JAPAN
|
---|
6 | *
|
---|
7 | * ä¸è¨èä½æ¨©è
|
---|
8 | ã¯ï¼ä»¥ä¸ã® (1)ï½(4) ã®æ¡ä»¶ãï¼Free Software Foundation
|
---|
9 | * ã«ãã£ã¦å
|
---|
10 | ¬è¡¨ããã¦ãã GNU General Public License ã® Version 2 ã«è¨
|
---|
11 | * è¿°ããã¦ããæ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§ã¢ï¼æ¬ã½ããã¦ã§ã¢
|
---|
12 | * ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹å¤ã»åé
|
---|
13 | å¸ï¼ä»¥ä¸ï¼
|
---|
14 | * å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
|
---|
15 | * (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
|
---|
16 | * 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
|
---|
17 | * ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
|
---|
18 | * (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
---|
19 | * ç¨ã§ããå½¢ã§åé
|
---|
20 | å¸ããå ´åã«ã¯ï¼åé
|
---|
21 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
|
---|
22 | * è
|
---|
23 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
|
---|
24 | * ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
---|
25 | * (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
---|
26 | * ç¨ã§ããªãå½¢ã§åé
|
---|
27 | å¸ããå ´åã«ã¯ï¼æ¬¡ã®æ¡ä»¶ãæºãããã¨ï¼
|
---|
28 | * (a) åé
|
---|
29 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
|
---|
30 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
|
---|
31 | * ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
---|
32 | * (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
|
---|
33 | * 害ãããï¼ä¸è¨èä½æ¨©è
|
---|
34 | ããã³TOPPERSããã¸ã§ã¯ããå
|
---|
35 | 責ãããã¨ï¼
|
---|
36 | *
|
---|
37 | * æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
|
---|
38 | ã
|
---|
39 | * ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ãã®é©ç¨å¯è½æ§ã
|
---|
40 | * å«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´
|
---|
41 | * æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ãã®è²¬ä»»ãè² ããªãï¼
|
---|
42 | *
|
---|
43 | * @(#) $Id$
|
---|
44 | */
|
---|
45 |
|
---|
46 | #include <stdarg.h>
|
---|
47 | #include <string.h>
|
---|
48 |
|
---|
49 | #ifdef TARGET_KERNEL_ASP
|
---|
50 |
|
---|
51 | #include <sil.h>
|
---|
52 | #include "target_syssvc.h"
|
---|
53 | #include "target_lcd.h"
|
---|
54 | #include <kernel.h>
|
---|
55 | #include <t_syslog.h>
|
---|
56 |
|
---|
57 | #endif /* of #ifdef TARGET_KERNEL_ASP */
|
---|
58 |
|
---|
59 | #ifdef TARGET_KERNEL_JSP
|
---|
60 |
|
---|
61 | #include <s_services.h>
|
---|
62 | #include <t_services.h>
|
---|
63 | #include "hw_lcd.h"
|
---|
64 | #include "kernel_id.h"
|
---|
65 |
|
---|
66 | #endif /* of #ifdef TARGET_KERNEL_JSP */
|
---|
67 |
|
---|
68 | #include <netinet/in.h>
|
---|
69 | #include <netinet/in_itron.h>
|
---|
70 |
|
---|
71 | #include <netapp/lcd.h>
|
---|
72 |
|
---|
73 | /*
|
---|
74 | * å±æå¤æ°ã®å®ç¾©
|
---|
75 | */
|
---|
76 |
|
---|
77 | static bool_t newline = false;
|
---|
78 | static int_t col = 0;
|
---|
79 | static int8_t line[LCD_COLUMN_SIZE + 1] = { " " };
|
---|
80 |
|
---|
81 | /*
|
---|
82 | * lcd_cls -- LCD 表示ã¯ãªã¢
|
---|
83 | */
|
---|
84 |
|
---|
85 | void
|
---|
86 | lcd_cls (void)
|
---|
87 | {
|
---|
88 | target_lcd_cls();
|
---|
89 | col = 0;
|
---|
90 | newline = false;
|
---|
91 | }
|
---|
92 |
|
---|
93 | /*
|
---|
94 | * lcd_newline -- LCD ã®è¡¨ç¤ºãæ¹è¡ããã
|
---|
95 | */
|
---|
96 |
|
---|
97 | static void
|
---|
98 | lcd_newline (void)
|
---|
99 | {
|
---|
100 | target_lcd_newline(line, col);
|
---|
101 | col = 0;
|
---|
102 | newline = false;
|
---|
103 | }
|
---|
104 |
|
---|
105 | /*
|
---|
106 | * lcd_initialize -- LCD åæå
|
---|
107 | */
|
---|
108 |
|
---|
109 | void
|
---|
110 | lcd_initialize (intptr_t exinf)
|
---|
111 | {
|
---|
112 | target_lcd_initialize();
|
---|
113 | lcd_cls();
|
---|
114 | }
|
---|
115 |
|
---|
116 | /*
|
---|
117 | * lcd_putc -- LCD åºå
|
---|
118 | */
|
---|
119 |
|
---|
120 | void
|
---|
121 | lcd_putc (ID portid, int8_t data)
|
---|
122 | {
|
---|
123 | if (data == '\n')
|
---|
124 | newline = true;
|
---|
125 | else {
|
---|
126 | if (newline)
|
---|
127 | lcd_newline();
|
---|
128 | target_lcd_data_putc(data);
|
---|
129 | line[col ++] = data;
|
---|
130 | if (col >= LCD_COLUMN_SIZE)
|
---|
131 | newline = true;
|
---|
132 | }
|
---|
133 | }
|
---|
134 |
|
---|
135 | /*
|
---|
136 | * lcd_puts -- LCD ã¸ã®æååã®åºå
|
---|
137 | */
|
---|
138 |
|
---|
139 | void
|
---|
140 | lcd_puts (ID portid, const char *str)
|
---|
141 | {
|
---|
142 | while (*str != '\0')
|
---|
143 | lcd_putc(portid, *str ++);
|
---|
144 | }
|
---|
145 |
|
---|
146 | /*
|
---|
147 | * LCD ã¸ã®æ¸å¼ä»æåååºåã©ã¤ãã©ãª
|
---|
148 | */
|
---|
149 |
|
---|
150 | /*
|
---|
151 | * æ°å¤å¤æã®ããã®å¤æ表
|
---|
152 | */
|
---|
153 |
|
---|
154 | static const char radhex[] = "0123456789abcdef";
|
---|
155 | static const char radHEX[] = "0123456789ABCDEF";
|
---|
156 |
|
---|
157 | /*
|
---|
158 | * ãã£ã¨ãé·ãæ´æ°å (LONGEST) ã¨ç¬¦å·ãªãæ´æ°å (ULONGEST)
|
---|
159 | */
|
---|
160 |
|
---|
161 | #ifdef _int64_
|
---|
162 |
|
---|
163 | typedef _int64_ LONGEST;
|
---|
164 | typedef unsigned _int64_ ULONGEST;
|
---|
165 |
|
---|
166 | #else /* of #ifdef _int64_ */
|
---|
167 |
|
---|
168 | #ifdef _int32_
|
---|
169 |
|
---|
170 | typedef _int32_ LONGEST;
|
---|
171 | typedef unsigned _int32_ ULONGEST;
|
---|
172 |
|
---|
173 | #else /* of #ifdef _int32_ */
|
---|
174 |
|
---|
175 | typedef int_t LONGEST;
|
---|
176 | typedef uint_t ULONGEST;
|
---|
177 |
|
---|
178 | #endif /* of #ifdef _int32_ */
|
---|
179 |
|
---|
180 | #endif /* of #ifdef _int64_ */
|
---|
181 |
|
---|
182 | /*
|
---|
183 | * convert -- lcd_printf ã®æ°å¤å¤æ
|
---|
184 | */
|
---|
185 |
|
---|
186 | static int_t
|
---|
187 | convert (ID portid, ULONGEST val, int_t radix,
|
---|
188 | const char *radchar, int_t width, bool_t minus, char padchar)
|
---|
189 | {
|
---|
190 | char digits[24];
|
---|
191 | int_t ix, pad, pchars;
|
---|
192 | bool_t left;
|
---|
193 |
|
---|
194 | if (width < 0) {
|
---|
195 | width = -width;
|
---|
196 | left = true;
|
---|
197 | }
|
---|
198 | else
|
---|
199 | left = false;
|
---|
200 |
|
---|
201 | ix = 0;
|
---|
202 | do {
|
---|
203 | digits[ix ++] = radchar[val % radix];
|
---|
204 | val /= radix;
|
---|
205 | } while (val != 0);
|
---|
206 |
|
---|
207 | if (minus)
|
---|
208 | digits[ix ++] = '-';
|
---|
209 |
|
---|
210 | if (width > ix)
|
---|
211 | pchars = width;
|
---|
212 | else
|
---|
213 | pchars = ix;
|
---|
214 |
|
---|
215 | pad = ix;
|
---|
216 | if (!left) /* å³è©°ã */
|
---|
217 | for ( ; pad < width; pad ++)
|
---|
218 | lcd_putc(portid, padchar);
|
---|
219 |
|
---|
220 | while (ix -- > 0)
|
---|
221 | lcd_putc(portid, digits[ix]);
|
---|
222 |
|
---|
223 | if (left) /* 左詰ã */
|
---|
224 | for ( ; pad < width; pad ++)
|
---|
225 | lcd_putc(portid, padchar);
|
---|
226 |
|
---|
227 | return pchars;
|
---|
228 | }
|
---|
229 |
|
---|
230 | #if defined(SUPPORT_INET4)
|
---|
231 |
|
---|
232 | /*
|
---|
233 | * ipv4addr -- IPv4 ã¢ãã¬ã¹åºå
|
---|
234 | */
|
---|
235 |
|
---|
236 | static void
|
---|
237 | put_ipv4addr (ID portid, T_IN4_ADDR *addr, int_t width)
|
---|
238 | {
|
---|
239 | int_t len = 3; /* 3 㯠'.' ã®æåæ° */
|
---|
240 |
|
---|
241 | len += convert(portid, (*addr >> 24) & 0xff, 10, radhex, 0, false, ' ');
|
---|
242 | lcd_putc(portid, '.');
|
---|
243 | len += convert(portid, (*addr >> 16) & 0xff, 10, radhex, 0, false, ' ');
|
---|
244 | lcd_putc(portid, '.');
|
---|
245 | len += convert(portid, (*addr >> 8) & 0xff, 10, radhex, 0, false, ' ');
|
---|
246 | lcd_putc(portid, '.');
|
---|
247 | len += convert(portid, *addr & 0xff, 10, radhex, 0, false, ' ');
|
---|
248 |
|
---|
249 | for ( ; len < width; len ++)
|
---|
250 | lcd_putc(portid, ' ');
|
---|
251 | }
|
---|
252 |
|
---|
253 | #endif /* of #if defined(SUPPORT_INET4) */
|
---|
254 |
|
---|
255 | #if defined(SUPPORT_INET6)
|
---|
256 |
|
---|
257 | /*
|
---|
258 | * ipv6addr -- IPv6 ã¢ãã¬ã¹åºå
|
---|
259 | */
|
---|
260 |
|
---|
261 | static void
|
---|
262 | put_ipv6addr (ID portid, const T_IN6_ADDR *addr, int_t width)
|
---|
263 | {
|
---|
264 | int_t len = 0, ix;
|
---|
265 | bool_t omit = false, zero = false;
|
---|
266 |
|
---|
267 | if (addr == NULL || IN6_IS_ADDR_UNSPECIFIED(addr)) {
|
---|
268 | lcd_putc(portid, ':');
|
---|
269 | lcd_putc(portid, ':');
|
---|
270 | }
|
---|
271 | else {
|
---|
272 | for (ix = 0; ix < sizeof(T_IN6_ADDR) / 2; ix ++) {
|
---|
273 | if (omit) {
|
---|
274 | if (ix < 7) {
|
---|
275 | lcd_putc(portid, ':');
|
---|
276 | len ++;
|
---|
277 | }
|
---|
278 | }
|
---|
279 | else if (ix > 0 && ix < 7 && addr->s6_addr16[ix] == 0)
|
---|
280 | zero = true;
|
---|
281 | else {
|
---|
282 | if (zero) {
|
---|
283 | omit = true;
|
---|
284 | lcd_putc(portid, ':');
|
---|
285 | len ++;
|
---|
286 | }
|
---|
287 | if (ix < 7) {
|
---|
288 | lcd_putc(portid, ':');
|
---|
289 | len ++;
|
---|
290 | }
|
---|
291 | }
|
---|
292 | }
|
---|
293 |
|
---|
294 | for ( ; len < width; len ++)
|
---|
295 | lcd_putc(portid, ' ');
|
---|
296 | }
|
---|
297 | }
|
---|
298 |
|
---|
299 | #endif /* of #if defined(SUPPORT_INET6) */
|
---|
300 |
|
---|
301 | /*
|
---|
302 | * macaddr -- MAC ã¢ãã¬ã¹åºå
|
---|
303 | */
|
---|
304 |
|
---|
305 | static void
|
---|
306 | macaddr (ID portid, uint8_t *mac, int_t width)
|
---|
307 | {
|
---|
308 | int_t oct, len;
|
---|
309 |
|
---|
310 | for (oct = 5; oct -- > 0; ) {
|
---|
311 | convert(portid, *mac ++, 16, radhex, 2, false, '0');
|
---|
312 | lcd_putc(portid, ':');
|
---|
313 | }
|
---|
314 | convert(portid, *mac, 16, radhex, 2, false, '0');
|
---|
315 |
|
---|
316 | for (len = 17; len < width; len ++)
|
---|
317 | lcd_putc(portid, ' ');
|
---|
318 | }
|
---|
319 |
|
---|
320 | /*
|
---|
321 | * å¼æ°ãåãåºãããã®ãã¯ã
|
---|
322 | */
|
---|
323 |
|
---|
324 | #ifdef _int32_
|
---|
325 |
|
---|
326 | #define GET_ARG(ap,lf) (lf ? va_arg(ap, _int32_) : va_arg(ap, int_t))
|
---|
327 |
|
---|
328 | #else /* of #ifdef _int32_ */
|
---|
329 |
|
---|
330 | #define GET_ARG(ap,lf) (va_arg(ap, int_t))
|
---|
331 |
|
---|
332 | #endif /* of #ifdef _int32_ */
|
---|
333 |
|
---|
334 | /*
|
---|
335 | * lcd_printf -- ã·ãªã¢ã«ãã¼ãã¸ã®æ¸å¼ä»æåååºå
|
---|
336 | */
|
---|
337 |
|
---|
338 | void
|
---|
339 | lcd_printf (ID portid, const char *fmt, ...)
|
---|
340 | {
|
---|
341 | va_list ap;
|
---|
342 | LONGEST val;
|
---|
343 | char padchar, *str;
|
---|
344 | int_t ch, width, longflag, shortflag, left;
|
---|
345 |
|
---|
346 | #if defined(SUPPORT_INET4)
|
---|
347 | T_IN4_ADDR *addr;
|
---|
348 | #endif /* of #if defined(SUPPORT_INET4) */
|
---|
349 |
|
---|
350 | va_start(ap, fmt);
|
---|
351 | while ((ch = *fmt ++) != '\0') {
|
---|
352 | if (ch != '%') { /* æ¸å¼æå®ä»¥å¤ */
|
---|
353 | lcd_putc(portid, (char)ch);
|
---|
354 | continue;
|
---|
355 | }
|
---|
356 |
|
---|
357 | width = longflag = shortflag = 0;
|
---|
358 | padchar = ' ';
|
---|
359 |
|
---|
360 | if (ch == '-') { /* 左詰ã */
|
---|
361 | fmt ++;
|
---|
362 | left = -1;
|
---|
363 | }
|
---|
364 | else
|
---|
365 | left = 1;
|
---|
366 |
|
---|
367 | if ((ch = *fmt ++) == '0') { /* ä¸ä½æ¡ã® 0 */
|
---|
368 | padchar = '0';
|
---|
369 | ch = *fmt ++;
|
---|
370 | }
|
---|
371 |
|
---|
372 | while ('0' <= ch && ch <= '9') { /* åºåå¹
|
---|
373 | */
|
---|
374 | width = width * 10 + ch - '0';
|
---|
375 | ch = *fmt ++;
|
---|
376 | }
|
---|
377 |
|
---|
378 | while (ch == 'l') { /* long (long) ã®æå® */
|
---|
379 | longflag ++;
|
---|
380 | ch = *fmt ++;
|
---|
381 | }
|
---|
382 |
|
---|
383 | while (ch == 'h') { /* short ã®æå® */
|
---|
384 | shortflag ++;
|
---|
385 | ch = *fmt ++;
|
---|
386 | }
|
---|
387 |
|
---|
388 | switch (ch) {
|
---|
389 | case 'd':
|
---|
390 | val = GET_ARG(ap, longflag);
|
---|
391 | if (val >= 0)
|
---|
392 | convert(portid, val, 10, radhex, width * left, false, padchar);
|
---|
393 | else
|
---|
394 | convert(portid, -val, 10, radhex, width * left, true, padchar);
|
---|
395 | break;
|
---|
396 |
|
---|
397 | case 'u':
|
---|
398 | val = GET_ARG(ap, longflag);
|
---|
399 | convert(portid, val, 10, radhex, width * left, false, padchar);
|
---|
400 | break;
|
---|
401 |
|
---|
402 | case 'x':
|
---|
403 | val = GET_ARG(ap, longflag);
|
---|
404 | convert(portid, val, 16, radhex, width * left, false, padchar);
|
---|
405 | break;
|
---|
406 |
|
---|
407 | case 'X':
|
---|
408 | val = GET_ARG(ap, longflag);
|
---|
409 | convert(portid, val, 16, radHEX, width * left, false, padchar);
|
---|
410 | break;
|
---|
411 |
|
---|
412 | case 'c':
|
---|
413 | ch = va_arg(ap, int_t);
|
---|
414 | lcd_putc(portid, (char)ch);
|
---|
415 | break;
|
---|
416 |
|
---|
417 | case 's':
|
---|
418 | str = va_arg(ap, char*);
|
---|
419 | while ((ch = *str ++) != '\0')
|
---|
420 | lcd_putc(portid, (char)ch);
|
---|
421 | break;
|
---|
422 |
|
---|
423 | case 'I':
|
---|
424 |
|
---|
425 | if (longflag) {
|
---|
426 |
|
---|
427 | #if defined(SUPPORT_INET6)
|
---|
428 |
|
---|
429 | str = va_arg(ap, char*);
|
---|
430 | put_ipv6addr(portid, (T_IN6_ADDR *)str, width);
|
---|
431 |
|
---|
432 | #else /* of #if defined(SUPPORT_INET6) */
|
---|
433 |
|
---|
434 | addr = va_arg(ap, T_IN4_ADDR *);
|
---|
435 | put_ipv4addr(portid, addr, width);
|
---|
436 |
|
---|
437 | #endif /* of #if defined(SUPPORT_INET6) */
|
---|
438 |
|
---|
439 | }
|
---|
440 | else if (shortflag) {
|
---|
441 |
|
---|
442 | #if defined(SUPPORT_INET4)
|
---|
443 |
|
---|
444 | addr = va_arg(ap, T_IN4_ADDR *);
|
---|
445 | put_ipv4addr(portid, addr, width);
|
---|
446 |
|
---|
447 | #else /* of #if defined(SUPPORT_INET4) */
|
---|
448 |
|
---|
449 | str = va_arg(ap, char*);
|
---|
450 | put_ipv6addr(portid, (T_IN6_ADDR *)str, width);
|
---|
451 |
|
---|
452 | #endif /* of #if defined(SUPPORT_INET4) */
|
---|
453 |
|
---|
454 | }
|
---|
455 | else {
|
---|
456 |
|
---|
457 | #if defined(SUPPORT_INET6)
|
---|
458 |
|
---|
459 | str = va_arg(ap, char*);
|
---|
460 | put_ipv6addr(portid, (T_IN6_ADDR *)str, width);
|
---|
461 |
|
---|
462 | #else /* of #if defined(SUPPORT_INET6) */
|
---|
463 |
|
---|
464 | #if defined(SUPPORT_INET4)
|
---|
465 |
|
---|
466 | addr = va_arg(ap, T_IN4_ADDR *);
|
---|
467 | put_ipv4addr(portid, addr, width);
|
---|
468 |
|
---|
469 | #endif /* of #if defined(SUPPORT_INET4) */
|
---|
470 |
|
---|
471 | #endif /* of #if defined(SUPPORT_INET6) */
|
---|
472 |
|
---|
473 | }
|
---|
474 | break;
|
---|
475 |
|
---|
476 | case 'M':
|
---|
477 | str = va_arg(ap, char*);
|
---|
478 | macaddr(portid, str, width);
|
---|
479 | break;
|
---|
480 |
|
---|
481 | case '%':
|
---|
482 | lcd_putc(portid, '%');
|
---|
483 | break;
|
---|
484 |
|
---|
485 | case '0':
|
---|
486 | fmt --;
|
---|
487 | break;
|
---|
488 |
|
---|
489 | default:
|
---|
490 | break;
|
---|
491 | }
|
---|
492 |
|
---|
493 | }
|
---|
494 | va_end(ap);
|
---|
495 | }
|
---|