?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
dmake: do not set MAKEFLAGS=k
[unleashed/tickless.git] / usr / src / cmd / geniconvtbl / itmcomp.c
blob20a30f2424903bde569de5d7a1d8c75b15dc0aac
1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22 /*
23 * Copyright (c) 1999 by Sun Microsystems, Inc.
24 * All rights reserved.
25 */
26
27 #pragma ident "%Z%%M% %I% %E% SMI"
28
29 #include <stdio.h>
30 #include <stdlib.h>
31 #include <unistd.h>
32 #include <libgen.h>
33 #include <fcntl.h>
34 #include <locale.h>
35 #include <string.h>
36 #include <sys/wait.h>
37 #include <sys/param.h>
38 #include <stdarg.h>
39 #include <errno.h>
40
41 #include "itmcomp.h"
42 #include "maptype.h"
43
44 #if !defined(TEXT_DOMAIN)
45 #define TEXT_DOMAIN "SYS_TEST"
46 #endif
47 #define ITMSUFFIX ".bt"
48 #define ME_DEFAULT "geniconvtbl"
49 #define CPP_PATH "/opt/gcc/4.4.4/bin/cpp"
50
51 itmc_ref_t *ref_first[ITMC_OBJ_LAST + 1];
52 itmc_ref_t *ref_last[ITMC_OBJ_LAST + 1];
53
54 itmc_name_t *name_first;
55 itmc_name_t *name_last;
56
57 char *itm_input_file; /* referred in itm_comp.l */
58 char *itm_output_file;
59
60 cmd_opt_t cmd_opt;
61 itm_num_t name_id;
62 itm_num_t reg_id;
63
64 itmc_name_t name_lookup_error;
65 int error_deferred;
66
67 char *itm_name_type_name[] = {
68 "UNKNOWN",
69 "ITM",
70 "STRING",
71 "DIRECTION",
72 "CONDITION",
73 "MAP",
74 "OPERATION",
75 "EXPRESSION",
76 "DATA",
77 "NAME",
78 "RANGE",
79 "REGISTER",
80 };
81
82
83 static void usage(int status);
84 static int cpp_opt_append(char *opt, char *arg);
85 static void cpp_opt_trunc(int num);
86 static int parse_opts(int argc, char **argv);
87 static char *prog_path_expand(const char *base_name);
88 static void map_name_type_append(char *optarg);
89 static char *map_type_name_str(itmc_map_type_t);
90 static char *strdup_vital(const char *);
91
92 #if defined(ENABLE_TRACE)
93 static void trace_option(void);
94 #endif /* ENABLE_TRACE */
95 static FILE *cpp_open(void);
96 static void cpp_close(FILE *fp);
97 static int itm_compile(char *file);
98 static void wait_child(pid_t pid);
99 static int fork_error(void);
100
101
102
103
104 int
105 main(int argc, char **argv)
106 {
107 char **pp;
108 pid_t pid;
109
110 (void) setlocale(LC_ALL, "");
111
112 (void) textdomain(TEXT_DOMAIN);
113
114 (void) parse_opts(argc, argv);
115
116 #if defined(ENABLE_TRACE)
117 trace_option();
118 #endif /* ENABLE_TRACE */
119
120 if (NULL != cmd_opt.disassemble) {
121 disassemble(cmd_opt.disassemble);
122 } else if (NULL == cmd_opt.input_file) {
123 (void) itm_compile(NULL);
124 } else {
125 if (1 < cmd_opt.input_file_num) {
126 for (pp = cmd_opt.input_file; *pp; pp++) {
127 (void) printf("%s:\n", *pp);
128 pid = fork();
129 switch (pid) {
130 case 0:
131 exit(itm_compile(*pp));
132 break;
133 case -1:
134 (void) fork_error();
135 break;
136 default:
137 wait_child(pid);
138 }
139 }
140 } else {
141 (void) itm_compile(*(cmd_opt.input_file));
142 }
143 }
144
145 return (0);
146 }
147
148
149 static int
150 itm_compile(char *file)
151 {
152 char *cmd_line;
153 char *command;
154 char *p;
155 size_t length;
156 FILE *fp;
157
158 extern int yyparse();
159 extern FILE *yyin;
160
161 if (NULL == file) {
162 itm_input_file = gettext("*stdin*");
163 } else {
164 if (0 != access(file, R_OK)) {
165 int e = errno;
166 itm_error(
167 gettext("%1$s: can not access %2$s: "),
168 cmd_opt.my_name, file);
169 errno = e;
170 PERROR(NULL);
171 exit(ITMC_STATUS_CMD2);
172 }
173 itm_input_file = file;
174 }
175
176 if ((NULL == cmd_opt.output_file) &&
177 (0 == cmd_opt.no_output)) {
178 p = strrchr(file, '.');
179 if (NULL == p) {
180 length = strlen(file);
181 } else {
182 length = p - file;
183 }
184 itm_output_file = malloc_vital(length + 5);
185 (void) memcpy(itm_output_file, file, length);
186 (void) memcpy(itm_output_file + length, ITMSUFFIX, 5);
187 } else {
188 itm_output_file = cmd_opt.output_file;
189 }
190
191 if (0 != cmd_opt.preprocess) {
192 if (NULL == file) {
193 fp = cpp_open();
194 cmd_line = cmd_opt.preprocess;
195 } else {
196 (void) cpp_opt_append(file, NULL);
197 fp = cpp_open();
198 cpp_opt_trunc(1);
199 }
200 if (NULL == fp) {
201 p = strchr(cmd_line, ' ');
202 if (NULL == p) {
203 length = strlen(cmd_line);
204 } else {
205 length = (p - cmd_line);
206 }
207 command = malloc_vital((sizeof (char)) * (length + 1));
208 (void) memcpy(command, cmd_line, length);
209 *(command + length) = '\0';
210 PERROR(command);
211 itm_error(
212 gettext("%1$s: can not start %2$s on %3$s\n"),
213 cmd_opt.my_name, command, itm_input_file);
214 exit(ITMC_STATUS_SYS);
215 } else {
216 yyin = fp;
217 }
218
219 (void) yyparse();
220 if (NULL == cmd_opt.preprocess_specified) {
221 cpp_close(fp);
222 }
223 } else {
224 if ((NULL == file) || (0 != strcmp("-", file))) {
225 yyin = stdin;
226 } else {
227 yyin = fopen(file, "r");
228 if (NULL == yyin) {
229 itm_error(
230 gettext("%1$s: can not open %2$s\n"),
231 cmd_opt.my_name, itm_input_file);
232 exit(ITMC_STATUS_CMD2);
233 }
234 }
235 (void) yyparse();
236 if (stdin != yyin) {
237 (void) fclose(yyin);
238 }
239 }
240
241 return (ITMC_STATUS_SUCCESS);
242 }
243
244
245
246
247 static void
248 wait_child(pid_t pid)
249 {
250 int stat_loc;
251 char *msgstr;
252
253 (void) waitpid(pid, &stat_loc, 0);
254 if (WTERMSIG(stat_loc)) {
255 if (WCOREDUMP(stat_loc)) {
256 msgstr = gettext("signal received: %s, core dumped\n");
257 } else {
258 msgstr = gettext("signal received: %s\n");
259 }
260 itm_error(msgstr, strsignal(WTERMSIG(stat_loc)));
261 }
262 }
263
264
265 static int
266 fork_error(void)
267 {
268 PERROR(gettext("fork"));
269 exit(ITMC_STATUS_SYS);
270 return (0); /* never return */
271 }
272
273
274
275 static int
276 parse_opts(int argc, char **argv)
277 {
278 int c;
279 int i;
280 char *p;
281 int error_num = 0;
282
283 #ifdef YYDEBUG
284 extern int yydebug;
285 #endif /* YYDEBUG */
286
287 extern char *optarg;
288 extern int optind;
289
290
291 cmd_opt.my_name = basename(*(argv + 0));
292 if ('\0' == *(cmd_opt.my_name)) {
293 cmd_opt.my_name = ME_DEFAULT;
294 }
295
296 cmd_opt.preprocess_default = CPP_PATH;
297 cmd_opt.preprocess = cmd_opt.preprocess_default;
298 cmd_opt.strip = 1; /* stripped by default */
299 while ((c = getopt(argc, argv, "d:i:p:W:D:I:U:fnsM:lo:qX:h")) != EOF) {
300 switch (c) {
301 case 'd':
302 cmd_opt.disassemble = optarg;
303 break;
304 case 'i':
305 cmd_opt.interpreter = optarg;
306 break;
307 case 'p':
308 if (NULL != cmd_opt.preprocess_specified) {
309 (void) fprintf(stderr,
310 gettext("multiple -p options are specified\n"));
311 error_num += 1;
312 }
313 cmd_opt.preprocess_specified =
314 prog_path_expand(optarg);
315 cmd_opt.preprocess = cmd_opt.preprocess_specified;
316 if (NULL == cmd_opt.preprocess) {
317 (void) fprintf(stderr,
318 gettext("cannot find preprocessor \"%s\"\n"),
319 optarg);
320 error_num += 1;
321 }
322 (void) cpp_opt_append(NULL, NULL);
323 *(cmd_opt.cpp_opt + 0) = strdup_vital(optarg);
324 break;
325 case 'W':
326 if (cpp_opt_append(optarg, NULL)) {
327 error_num += 1;
328 }
329 break;
330 case 'I':
331 if (cpp_opt_append("-I", optarg)) {
332 error_num += 1;
333 }
334 break;
335 case 'D':
336 if (cpp_opt_append("-D", optarg)) {
337 error_num += 1;
338 }
339 break;
340 case 'U':
341 if (cpp_opt_append("-U", optarg)) {
342 error_num += 1;
343 }
344 break;
345 case 'f':
346 cmd_opt.force_overwrite = 1;
347 break;
348 case 'n':
349 cmd_opt.no_output = 1;
350 break;
351 case 'M':
352 map_name_type_append(optarg);
353 break;
354 case 'l':
355 cmd_opt.large_table = 1;
356 break;
357 case 'o':
358 cmd_opt.output_file = optarg;
359 break;
360 case 's':
361 cmd_opt.strip = 0;
362 break;
363 case 'q':
364 cmd_opt.quiet = 1;
365 break;
366 #if defined(ENABLE_TRACE)
367 case 'X':
368 cmd_opt.trace = malloc_vital((sizeof (char)) * 128);
369 (void) memset(cmd_opt.trace, 0, (sizeof (char)) * 128);
370 for (p = optarg; *p; p++) {
371 *(cmd_opt.trace + ((*p) & 0x007f)) = 1;
372 }
373 #ifdef YYDEBUG
374 if (TRACE('Y')) yydebug = 1;
375 #endif /* YYDEBUG */
376 break;
377 #endif /* ENABLE_TRACE */
378 case 'h':
379 usage(ITMC_STATUS_SUCCESS);
380 break;
381 default:
382 usage(ITMC_STATUS_CMD);
383 }
384 }
385
386 if (optind < argc) {
387 cmd_opt.input_file_num = (argc - optind);
388 cmd_opt.input_file =
389 malloc_vital((sizeof (char *)) *
390 (argc - optind + 1));
391 *(cmd_opt.input_file + (argc - optind)) = NULL;
392 }
393
394 for (i = 0; optind < argc; optind++, i++) {
395 *(cmd_opt.input_file + i) = argv[optind];
396 }
397
398 /* check conflict */
399
400 if ((1 < cmd_opt.input_file_num) && (NULL != cmd_opt.output_file)) {
401 itm_error(gettext("use -o with single input file\n"));
402 error_num++;
403 }
404
405 if ((cmd_opt.input_file_num <= 0) &&
406 (NULL == cmd_opt.output_file) &&
407 (NULL == cmd_opt.disassemble) &&
408 (0 == cmd_opt.no_output)) {
409 itm_error(gettext(
410 "output file is unnamed. "
411 "use -o to specify output file\n"));
412 error_num++;
413 }
414
415 if (cmd_opt.disassemble &&
416 (cmd_opt.interpreter ||
417 cmd_opt.cpp_opt ||
418 cmd_opt.preprocess_specified ||
419 cmd_opt.input_file ||
420 cmd_opt.force_overwrite ||
421 cmd_opt.no_output ||
422 cmd_opt.map_name_type ||
423 cmd_opt.large_table ||
424 cmd_opt.output_file)) {
425 itm_error(
426 gettext("-d may not specified with other options\n"));
427 error_num++;
428 }
429
430 if (error_num) {
431 usage(ITMC_STATUS_CMD);
432 }
433
434 /*
435 * do not move upward
436 * may conflict with -d option
437 */
438 if ((NULL == cmd_opt.preprocess_specified) &&
439 (NULL != cmd_opt.preprocess_default)) {
440 (void) cpp_opt_append(NULL, NULL);
441 *(cmd_opt.cpp_opt + 0) =
442 strdup_vital(cmd_opt.preprocess_default);
443 }
444 return (0);
445 }
446
447
448 static FILE *
449 cpp_open(void)
450 {
451 pid_t pid;
452 int filedes[2];
453 int i;
454
455 for (i = 0; i < cmd_opt.cpp_opt_num; i++) {
456 TRACE_MESSAGE('C', ("%s\n", *(cmd_opt.cpp_opt + i)));
457 }
458
459 if (pipe(filedes)) {
460 PERROR(gettext("pipe"));
461 itm_error(gettext("failed to open pipe\n"));
462 exit(ITMC_STATUS_SYS);
463 }
464 pid = fork();
465 if (pid == 0) { /* child */
466 (void) close(filedes[0]);
467 (void) close(1);
468 (void) dup2(filedes[1], 1);
469 (void) execv(cmd_opt.preprocess, cmd_opt.cpp_opt);
470 exit(0);
471 } else if (pid == (pid_t)(-1)) { /* error */
472 return (NULL);
473 } else {
474 (void) close(filedes[1]);
475 return (fdopen(filedes[0], "r"));
476 }
477 return (NULL); /* NEVER */
478 }
479
480
481 static int
482 cpp_opt_append(char *opt, char *arg)
483 {
484 size_t opt_len;
485 size_t arg_len;
486 char *new_opt;
487 char **new_opt_list;
488
489 opt_len = ((NULL == opt) ? 0 : strlen(opt));
490 arg_len = ((NULL == arg) ? 0 : strlen(arg));
491 if (0 < (opt_len + arg_len)) {
492 new_opt = malloc_vital(opt_len + arg_len + 1);
493 if (NULL != opt) {
494 (void) memcpy(new_opt, opt, opt_len + 1);
495 }
496 if (NULL != arg) {
497 (void) memcpy(new_opt + opt_len, arg, arg_len + 1);
498 }
499 } else {
500 new_opt = NULL;
501 }
502
503 if (0 == cmd_opt.cpp_opt_reserved) {
504 cmd_opt.cpp_opt_reserved = 32;
505 cmd_opt.cpp_opt = malloc_vital((sizeof (char *)) * 32);
506 *(cmd_opt.cpp_opt + 0) = cmd_opt.preprocess;
507 cmd_opt.cpp_opt_num = 1;
508 } else if ((cmd_opt.cpp_opt_reserved - 2) <= cmd_opt.cpp_opt_num) {
509 cmd_opt.cpp_opt_reserved += 32;
510 new_opt_list = malloc_vital((sizeof (char *)) *
511 cmd_opt.cpp_opt_reserved);
512 (void) memcpy(new_opt_list, cmd_opt.cpp_opt,
513 (sizeof (char *)) * cmd_opt.cpp_opt_num);
514 (void) memset(new_opt_list + cmd_opt.cpp_opt_num, 0, 32);
515 free(cmd_opt.cpp_opt);
516 cmd_opt.cpp_opt = new_opt_list;
517 }
518 if (NULL != new_opt) {
519 *(cmd_opt.cpp_opt + cmd_opt.cpp_opt_num) = new_opt;
520 cmd_opt.cpp_opt_num += 1;
521 }
522 return (0);
523 }
524
525
526 static void
527 cpp_opt_trunc(int num)
528 {
529 if (cmd_opt.cpp_opt_num < num) {
530 num = cmd_opt.cpp_opt_num;
531 }
532 for (; 0 < num; --num) {
533 free(cmd_opt.cpp_opt + cmd_opt.cpp_opt_num);
534 --(cmd_opt.cpp_opt_num);
535 }
536 }
537
538
539 static void
540 cpp_close(FILE *fp)
541 {
542 (void) fclose(fp);
543 (void) wait_child(0);
544 }
545
546
547
548
549 static char *
550 prog_path_expand(const char *base_name)
551 {
552 size_t base_len;
553 size_t dir_len;
554 char path[MAXPATHLEN];
555 char *p;
556 char *pe;
557
558 base_len = strlen(base_name);
559 path[0] = '\0';
560
561 if (NULL != strchr(base_name, '/')) {
562 if (0 == access(base_name, X_OK)) {
563 return (strdup_vital(base_name));
564 } else {
565 return (NULL);
566 }
567 }
568
569 for (p = getenv("PATH"); p; ) {
570 pe = strchr(p, ':');
571 dir_len = ((NULL == pe) ? strlen(p) : (pe - p));
572 (void) memcpy(path, p, dir_len);
573 if ((0 != dir_len) &&
574 ('/' != path[dir_len - 1])) {
575 path[dir_len] = '/';
576 dir_len += 1;
577 }
578 if ((dir_len + base_len) < MAXPATHLEN) {
579 (void) memcpy(path + dir_len, base_name, base_len + 1);
580 if (0 == access(path, X_OK)) {
581 return (strdup_vital(path));
582 }
583 }
584 p = ((NULL == pe) ? NULL : (pe + 1));
585 }
586 return (NULL);
587 }
588
589
590 static void
591 usage(int status)
592 {
593
594 if (ITMC_STATUS_SUCCESS == status) {
595 (void) fprintf(stdout,
596 gettext("Usage: %1$s [-n] [-f] [-q]\n"
597 " [-p preprocessor] [-W argument]\n"
598 " [-Dname] [-Dname=def] [-Idirectory] [-Uname]\n"
599 " [file ...]\n %2$s -h\n"),
600 cmd_opt.my_name, cmd_opt.my_name);
601 } else {
602 (void) itm_error(
603 gettext("Usage: %1$s [-n] [-f] [-q]\n"
604 " [-p preprocessor] [-W argument]\n"
605 " [-Dname] [-Dname=def] [-Idirectory] [-Uname]\n"
606 " [file ...]\n %2$s -h\n"),
607 cmd_opt.my_name, cmd_opt.my_name);
608 }
609 exit(status);
610 }
611
612
613 static char *
614 map_type_name_str(itmc_map_type_t type)
615 {
616 int i;
617 for (i = 0; NULL != map_type_name[i].name; i++) {
618 if (type == map_type_name[i].type) {
619 return (map_type_name[i].name);
620 }
621 }
622 return ("");
623 }
624
625 static void
626 map_name_type_append(char *optarg)
627 {
628 char *oa;
629 char *oa_save;
630 char *name;
631 char *p;
632 char *phf;
633 int hash_factor = 0;
634 itmc_map_type_t type;
635 itmc_map_name_type_t *m;
636 int i;
637
638 oa = oa_save = strdup_vital(optarg);
639
640 while ((NULL != oa) && ('\0' != *oa)) {
641 name = oa;
642 oa = strchr(oa, ',');
643 if (NULL != oa) {
644 *(oa++) = '\0';
645 }
646 p = strchr(name, '=');
647 if (NULL == p) {
648 type = ITMC_MAP_AUTOMATIC;
649 } else {
650 *(p++) = '\0';
651 if ('\0' == *p) {
652 type = ITMC_MAP_AUTOMATIC;
653 } else {
654 phf = strchr(p, ':');
655 if (NULL != phf) {
656 *(phf++) = '\0';
657 hash_factor = atoi(phf);
658 if (hash_factor < 0) {
659 itm_error(
660 gettext(
661 "invalid hash factor is "
662 "specified: %s\n"),
663 phf);
664 hash_factor = 0;
665 error_deferred += 1;
666 }
667 }
668 for (i = 0;
669 NULL != map_type_name[i].name; i++) {
670 if (0 ==
671 strcmp(p, map_type_name[i].name)) {
672 type = map_type_name[i].type;
673 break;
674 }
675 }
676 if (NULL == map_type_name[i].name) {
677 itm_error(
678 gettext(
679 "unknown map type is specified: %s\n"),
680 p);
681 error_deferred += 1;
682 continue;
683 }
684 }
685 }
686 if (0 == strcmp(name, "default")) {
687 *name = '\0';
688 }
689 m = cmd_opt.map_name_type;
690 if (NULL == m) {
691 m = malloc_vital(sizeof (itmc_map_name_type_t));
692 m->name = strdup_vital(name);
693 m->type = type;
694 m->hash_factor = hash_factor;
695 m->next = NULL;
696 cmd_opt.map_name_type = m;
697 continue;
698 }
699 for (; ; m = m->next) {
700 if (0 == strcmp(name, m->name)) {
701 if (type == m->type) {
702 m = NULL;
703 break;
704 }
705 if ('\0' == *name) {
706 itm_error(
707 gettext(
708 "multiple default types are specified:"
709 " \"%1$s\" and \"%2$s\"\n"),
710 map_type_name_str(type),
711 map_type_name_str(m->type));
712 } else {
713 itm_error(
714 gettext("map \"%1$s\" is specified as "
715 "two types \"%2$s\" and \"%3$s\"\n"),
716 name,
717 map_type_name_str(type),
718 map_type_name_str(m->type));
719 }
720 error_deferred += 1;
721 m = NULL;
722 break;
723 }
724 if (NULL == m->next) {
725 break;
726 }
727 }
728 if (NULL != m) {
729 m->next = malloc_vital(sizeof (itmc_map_name_type_t));
730 m = m->next;
731 m->name = strdup_vital(name);
732 m->type = type;
733 m->hash_factor = hash_factor;
734 m->next = NULL;
735
736 }
737 }
738 free(oa_save);
739 }
740
741
742
743 void *
744 malloc_vital(size_t size)
745 {
746 void *p;
747
748 TRACE_MESSAGE('M', ("malloc_vital: %d\n", size));
749
750 size = ITMROUNDUP(size);
751
752 p = (void*) malloc(size);
753 if (NULL == p) {
754 PERROR(gettext("malloc"));
755 exit(ITMC_STATUS_SYS);
756 }
757
758 (void) memset(p, 0, size);
759
760 return (p);
761 }
762
763
764 static char *
765 strdup_vital(const char *str)
766 {
767 char *p;
768 size_t len;
769
770 if (NULL == str) {
771 return (NULL);
772 }
773
774 len = strlen(str) + 1;
775 p = malloc_vital(len);
776 (void) memcpy(p, str, len);
777 return (p);
778 }
779
780
781
782
783
784 itm_data_t *
785 str_to_data(int size, char *seq)
786 {
787 itm_data_t *data;
788
789 data = malloc_vital(sizeof (itm_data_t));
790
791 data->size = size;
792 if (size <= sizeof (data->place)) {
793 (void) memmove(&(data->place), seq, size);
794 } else {
795 data->place.itm_ptr = (itm_place2_t)malloc_vital(size);
796 (void) memmove((char *)(data->place.itm_ptr), seq, size);
797 }
798
799 return (data);
800 }
801
802
803 char *
804 name_to_str(itm_data_t *name)
805 {
806 static char *ptr = NULL;
807 static size_t len = 0;
808 size_t req_len;
809 char *p;
810
811 if (NULL == name) {
812 p = gettext("(no name)");
813 req_len = strlen(p) + 1;
814 } else {
815 req_len = name->size + 1;
816 }
817
818 if (len <= req_len) {
819 len += 512;
820 free(ptr);
821 ptr = malloc_vital(len);
822 }
823
824 if (NULL == name) {
825 (void) memcpy(ptr, p, req_len);
826 *(ptr + req_len) = '\0';
827 } else if (name->size <= (sizeof (name->place))) {
828 (void) memcpy(ptr, (char *)(&(name->place)), name->size);
829 *(ptr + name->size) = '\0';
830 } else {
831 (void) memcpy(ptr, (char *)(name->place.itm_ptr), name->size);
832 *(ptr + name->size) = '\0';
833 }
834
835 return (ptr);
836 }
837
838 #define ARGUMENTSMAX (8)
839 char *
840 data_to_hexadecimal(itm_data_t *data)
841 {
842 static int index = 0;
843 static char *ptr[ARGUMENTSMAX] = { NULL, NULL, NULL, NULL,
844 NULL, NULL, NULL, NULL};
845 static long len[ARGUMENTSMAX] = { 0, 0, 0, 0, 0, 0, 0, 0};
846 char *hdp;
847 char *p;
848 long i;
849 int val;
850 size_t req_len;
851
852 if (ARGUMENTSMAX <= index) index = 0;
853 req_len = (2 * data->size) + 1;
854 if (len[index] <= req_len) {
855 len[index] += 512;
856 free(ptr[index]);
857 ptr[index] = malloc_vital(len[index]);
858 }
859 hdp = ptr[index];
860
861 if (data->size <= (sizeof (itm_place_t))) {
862 p = (char *)&(data->place);
863 } else {
864 p = (char *)(data->place.itm_ptr);
865 }
866
867 for (i = 0; i < data->size; i++, p++) {
868 val = ((*p & 0x00f0) >> 4);
869 if ((0 <= val) && (val <= 9)) {
870 *hdp = '0' + val;
871 } else {
872 *hdp = 'a' + val - 10;
873 }
874 hdp++;
875
876 val = (*p & 0x000f);
877 if ((0 <= val) && (val <= 9)) {
878 *hdp = '0' + val;
879 } else {
880 *hdp = 'a' + val - 10;
881 }
882 hdp++;
883 }
884 *hdp = '\0';
885 return (ptr[index++]);
886 }
887
888
889
890
891
892 void
893 itm_error(char *format, ...)
894 {
895 va_list ap;
896 va_start(ap, format);
897
898 if (0 == cmd_opt.quiet) {
899 (void) vfprintf(stderr, format, ap);
900 }
901 va_end(ap);
902 }
903
904 #if defined(ENABLE_TRACE)
905 static void
906 trace_option(void)
907 {
908 char **pp;
909 int i;
910
911 if (!(TRACE('o')))
912 return;
913
914 itm_error("my_name = %s\n", cmd_opt.my_name);
915 if (NULL == cmd_opt.input_file) {
916 (void) fprintf(stdout, "input_file = (stdin)\n");
917 } else {
918 for (pp = cmd_opt.input_file; *pp; pp++) {
919 (void) fprintf(stdout, "input_file = %s\n", *pp);
920 }
921 }
922 itm_error("output_file = %s\n",
923 cmd_opt.output_file ? cmd_opt.output_file : "(stdout)");
924 itm_error("interpreter = %s\n",
925 cmd_opt.interpreter ? cmd_opt.interpreter : "(default)");
926 if (cmd_opt.cpp_opt) {
927 itm_error("cpp_opt = %s\n", *(cmd_opt.cpp_opt));
928 for (i = 1; i < cmd_opt.cpp_opt_num; i++) {
929 itm_error("\t%s\n", *(cmd_opt.cpp_opt + i));
930 }
931 } else {
932 itm_error("cpp_opt = %s\n", "(none)");
933 }
934 itm_error("preprocess_default = %s\n",
935 cmd_opt.preprocess_default ? cmd_opt.preprocess_default :
936 "(no)");
937 itm_error("preprocess_specified = %s\n",
938 cmd_opt.preprocess_specified ? cmd_opt.preprocess_specified :
939 "(no)");
940 itm_error("preprocess = %s\n",
941 cmd_opt.preprocess ? cmd_opt.preprocess : "(no)");
942 itm_error("disassemble = %s\n",
943 cmd_opt.disassemble ? "yes" : "no");
944 itm_error("map type =");
945 if (NULL == cmd_opt.map_name_type) {
946 itm_error("\n");
947 } else {
948 itmc_map_name_type_t *m;
949 itm_error(" ");
950 m = cmd_opt.map_name_type;
951 itm_error("%s=%s",
952 (((NULL == m->name) || ('\0' == *(m->name))) ?
953 "default" : m->name),
954 map_type_name_str(m->type));
955 if (0 != m->hash_factor) {
956 itm_error(":%ld\n", m->hash_factor);
957 } else {
958 (void) fputc('\n', stderr);
959 }
960 for (m = m->next; NULL != m; m = m->next) {
961 itm_error(" %s=%s",
962 (((NULL == m->name) || ('\0' == *(m->name))) ?
963 "default" : m->name),
964 map_type_name_str(m->type));
965 if (0 != m->hash_factor) {
966 itm_error(":%ld\n", m->hash_factor);
967 } else {
968 (void) fputc('\n', stderr);
969 }
970 }
971 }
972 itm_error("large table = %s\n",
973 cmd_opt.large_table ? "true" : "false");
974 itm_error("overwrite = %s\n",
975 cmd_opt.force_overwrite ? "true" : "false");
976 itm_error("strip = %s\n",
977 cmd_opt.strip ? "true" : "false");
978 itm_error("no_output = %s\n",
979 cmd_opt.no_output ? "true" : "false");
980 itm_error("trace = ");
981 if (NULL == cmd_opt.trace) {
982 itm_error("(no)\n");
983 } else {
984 for (i = 0x21; i < 0x7f; i++) {
985 if (TRACE(i)) {
986 (void) fputc(i, stderr);
987 }
988 }
989 (void) fputc('\n', stderr);
990 }
991 }
992 #endif /* ENABLE_TRACE */
993
994 #if defined(ENABLE_TRACE)
995 extern void
996 trace_message(char *format, ...)
997 {
998 va_list ap;
999 va_start(ap, format);
1000
1001 (void) vfprintf(stderr, format, ap);
1002
1003 va_end(ap);
1004 }
1005 #endif /* ENABLE_TRACE */
unleashed repo fork