xref: /titanic_44/usr/src/cmd/geniconvtbl/itmcomp.c (revision 7c478bd95313f5f23a4c958a745db2134aa03244)

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright (c) 1999 by Sun Microsystems, Inc.
 * All rights reserved.
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <libgen.h>
#include <fcntl.h>
#include <locale.h>
#include <string.h>
#include <sys/wait.h>
#include <sys/param.h>
#include <stdarg.h>
#include <errno.h>

#include "itmcomp.h"
#include "maptype.h"

#if !defined(TEXT_DOMAIN)
#define	TEXT_DOMAIN	"SYS_TEST"
#endif
#define	ITMSUFFIX	".bt"
#define	ME_DEFAULT	"geniconvtbl"
#define	CPP_PATH	"/usr/lib/cpp"

itmc_ref_t	*ref_first[ITMC_OBJ_LAST + 1];
itmc_ref_t	*ref_last[ITMC_OBJ_LAST + 1];

itmc_name_t	*name_first;
itmc_name_t	*name_last;

char		*itm_input_file;		/* referred in itm_comp.l */
char		*itm_output_file;

cmd_opt_t	cmd_opt;
itm_num_t	name_id;
itm_num_t	reg_id;

itmc_name_t	name_lookup_error;
int		error_deferred;

char *itm_name_type_name[] = {
	"UNKNOWN",
	"ITM",
	"STRING",
	"DIRECTION",
	"CONDITION",
	"MAP",
	"OPERATION",
	"EXPRESSION",
	"DATA",
	"NAME",
	"RANGE",
	"REGISTER",
};


static void	usage(int status);
static int	cpp_opt_append(char	*opt, char	*arg);
static void	cpp_opt_trunc(int num);
static int	parse_opts(int argc, char	**argv);
static char	*prog_path_expand(const char	*base_name);
static void	map_name_type_append(char	*optarg);
static char	*map_type_name_str(itmc_map_type_t);
static char	*strdup_vital(const char *);

#if defined(ENABLE_TRACE)
static void	trace_option(void);
#endif /* ENABLE_TRACE */
static FILE	*cpp_open(void);
static void	cpp_close(FILE		*fp);
static int	itm_compile(char	*file);
static void	wait_child(pid_t pid);
static int	fork_error(void);




int
main(int argc, char **argv)
{
	char	**pp;
	pid_t	pid;

	(void) setlocale(LC_ALL, "");

	(void) textdomain(TEXT_DOMAIN);

	(void) parse_opts(argc, argv);

#if defined(ENABLE_TRACE)
	trace_option();
#endif /* ENABLE_TRACE */

	if (NULL != cmd_opt.disassemble) {
		disassemble(cmd_opt.disassemble);
	} else if (NULL == cmd_opt.input_file) {
		(void) itm_compile(NULL);
	} else {
		if (1 < cmd_opt.input_file_num) {
			for (pp = cmd_opt.input_file; *pp; pp++) {
				(void) printf("%s:\n", *pp);
				pid = fork();
				switch (pid) {
				case 0:
					exit(itm_compile(*pp));
					break;
				case -1:
					(void) fork_error();
					break;
				default:
					wait_child(pid);
				}
			}
		} else {
			(void) itm_compile(*(cmd_opt.input_file));
		}
	}

	return (0);
}


static int
itm_compile(char *file)
{
	char	*cmd_line;
	char	*command;
	char	*p;
	size_t	length;
	FILE	*fp;

	extern int	yyparse();
	extern FILE *yyin;

	if (NULL == file) {
		itm_input_file = gettext("*stdin*");
	} else {
		if (0 != access(file, R_OK)) {
			int	e = errno;
			itm_error(
				gettext("%1$s: can not access %2$s: "),
				cmd_opt.my_name, file);
			errno = e;
			PERROR(NULL);
			exit(ITMC_STATUS_CMD2);
		}
		itm_input_file = file;
	}

	if ((NULL == cmd_opt.output_file) &&
	    (0 == cmd_opt.no_output)) {
		p = strrchr(file, '.');
		if (NULL == p) {
			length = strlen(file);
		} else {
			length = p - file;
		}
		itm_output_file = malloc_vital(length + 5);
		(void) memcpy(itm_output_file, file, length);
		(void) memcpy(itm_output_file + length, ITMSUFFIX, 5);
	} else {
		itm_output_file = cmd_opt.output_file;
	}

	if (0 != cmd_opt.preprocess) {
		if (NULL == file) {
			fp = cpp_open();
			cmd_line = cmd_opt.preprocess;
		} else {
			(void) cpp_opt_append(file, NULL);
			fp = cpp_open();
			cpp_opt_trunc(1);
		}
		if (NULL == fp) {
			p = strchr(cmd_line, ' ');
			if (NULL == p) {
				length = strlen(cmd_line);
			} else {
				length = (p - cmd_line);
			}
			command = malloc_vital((sizeof (char)) * (length + 1));
			(void) memcpy(command, cmd_line, length);
			*(command + length) = '\0';
			PERROR(command);
			itm_error(
				gettext("%1$s: can not start %2$s on %3$s\n"),
				cmd_opt.my_name, command, itm_input_file);
			exit(ITMC_STATUS_SYS);
		} else {
			yyin = fp;
		}

		(void) yyparse();
		if (NULL == cmd_opt.preprocess_specified) {
			cpp_close(fp);
		}
	} else {
		if ((NULL == file) || (0 != strcmp("-", file))) {
			yyin = stdin;
		} else {
			yyin = fopen(file, "r");
			if (NULL == yyin) {
				itm_error(
					gettext("%1$s: can not open %2$s\n"),
					cmd_opt.my_name, itm_input_file);
				exit(ITMC_STATUS_CMD2);
			}
		}
		(void) yyparse();
		if (stdin != yyin) {
			(void) fclose(yyin);
		}
	}

	return (ITMC_STATUS_SUCCESS);
}




static void
wait_child(pid_t pid)
{
	int	stat_loc;
	char *msgstr;

	(void) waitpid(pid, &stat_loc, 0);
	if (WTERMSIG(stat_loc)) {
		if (WCOREDUMP(stat_loc)) {
			msgstr = gettext("signal received: %s, core dumped\n");
		} else {
			msgstr = gettext("signal received: %s\n");
		}
		itm_error(msgstr, strsignal(WTERMSIG(stat_loc)));
	}
}


static int
fork_error(void)
{
	PERROR(gettext("fork"));
	exit(ITMC_STATUS_SYS);
	return (0); /* never return */
}



static int
parse_opts(int argc, char **argv)
{
	int		c;
	int		i;
	char		*p;
	int		error_num = 0;

#ifdef YYDEBUG
	extern int	yydebug;
#endif /* YYDEBUG */

	extern char	*optarg;
	extern int	optind;


	cmd_opt.my_name = basename(*(argv + 0));
	if ('\0' == *(cmd_opt.my_name)) {
		cmd_opt.my_name = ME_DEFAULT;
	}

	cmd_opt.preprocess_default = CPP_PATH;
	cmd_opt.preprocess = cmd_opt.preprocess_default;
	cmd_opt.strip = 1; /* stripped by default */
	while ((c = getopt(argc, argv, "d:i:p:W:D:I:U:fnsM:lo:qX:h")) != EOF) {
		switch (c) {
		case 'd':
			cmd_opt.disassemble = optarg;
			break;
		case 'i':
			cmd_opt.interpreter = optarg;
			break;
		case 'p':
			if (NULL != cmd_opt.preprocess_specified) {
				(void) fprintf(stderr,
				gettext("multiple -p options are specified\n"));
				error_num += 1;
			}
			cmd_opt.preprocess_specified =
				prog_path_expand(optarg);
			cmd_opt.preprocess = cmd_opt.preprocess_specified;
			if (NULL == cmd_opt.preprocess) {
				(void) fprintf(stderr,
				gettext("cannot find preprocessor \"%s\"\n"),
					optarg);
				error_num += 1;
			}
			(void) cpp_opt_append(NULL, NULL);
			p = basename(optarg);
			if (NULL == p) {
				*(cmd_opt.cpp_opt + 0) = strdup_vital(optarg);
			} else {
				*(cmd_opt.cpp_opt + 0) = strdup_vital(p);
			}
			break;
		case 'W':
			if (cpp_opt_append(optarg, NULL)) {
				error_num += 1;
			}
			break;
		case 'I':
			if (cpp_opt_append("-I", optarg)) {
				error_num += 1;
			}
			break;
		case 'D':
			if (cpp_opt_append("-D", optarg)) {
				error_num += 1;
			}
			break;
		case 'U':
			if (cpp_opt_append("-U", optarg)) {
				error_num += 1;
			}
			break;
		case 'f':
			cmd_opt.force_overwrite = 1;
			break;
		case 'n':
			cmd_opt.no_output = 1;
			break;
		case 'M':
			map_name_type_append(optarg);
			break;
		case 'l':
			cmd_opt.large_table = 1;
			break;
		case 'o':
			cmd_opt.output_file = optarg;
			break;
		case 's':
			cmd_opt.strip = 0;
			break;
		case 'q':
			cmd_opt.quiet = 1;
			break;
#if defined(ENABLE_TRACE)
		case 'X':
			cmd_opt.trace = malloc_vital((sizeof (char)) * 128);
			(void) memset(cmd_opt.trace, 0, (sizeof (char)) * 128);
			for (p = optarg; *p; p++) {
				*(cmd_opt.trace + ((*p) & 0x007f)) = 1;
			}
#ifdef YYDEBUG
			if (TRACE('Y'))	yydebug = 1;
#endif /* YYDEBUG */
			break;
#endif /* ENABLE_TRACE */
		case 'h':
			usage(ITMC_STATUS_SUCCESS);
			break;
		default:
			usage(ITMC_STATUS_CMD);
		}
	}

	if (optind < argc) {
		cmd_opt.input_file_num = (argc - optind);
		cmd_opt.input_file =
			malloc_vital((sizeof (char *)) *
					(argc - optind + 1));
		*(cmd_opt.input_file + (argc - optind)) = NULL;
	}

	for (i = 0; optind < argc; optind++, i++) {
		*(cmd_opt.input_file + i) = argv[optind];
	}

	/* check conflict */

	if ((1 < cmd_opt.input_file_num) && (NULL != cmd_opt.output_file)) {
		itm_error(gettext("use -o with single input file\n"));
		error_num++;
	}

	if ((cmd_opt.input_file_num <= 0) &&
	    (NULL == cmd_opt.output_file) &&
	    (NULL == cmd_opt.disassemble) &&
	    (0 == cmd_opt.no_output)) {
		itm_error(gettext(
			"output file is unnamed. "
			"use -o to specify output file\n"));
		error_num++;
	}

	if (cmd_opt.disassemble &&
	    (cmd_opt.interpreter ||
	    cmd_opt.cpp_opt ||
	    cmd_opt.preprocess_specified ||
	    cmd_opt.input_file ||
	    cmd_opt.force_overwrite ||
	    cmd_opt.no_output ||
	    cmd_opt.map_name_type ||
	    cmd_opt.large_table ||
	    cmd_opt.output_file)) {
		itm_error(
			gettext("-d may not specified with other options\n"));
		error_num++;
	}

	if (error_num) {
		usage(ITMC_STATUS_CMD);
	}

	/*
	 * do not move upward
	 * may conflict with -d option
	 */
	if ((NULL == cmd_opt.preprocess_specified) &&
	    (NULL != cmd_opt.preprocess_default)) {
		(void) cpp_opt_append(NULL, NULL);
		p = basename(cmd_opt.preprocess_default);
		if (NULL == p) {
			*(cmd_opt.cpp_opt + 0) =
				strdup_vital(cmd_opt.preprocess_default);
		} else {
			*(cmd_opt.cpp_opt + 0) = strdup_vital(p);
		}
	}
	return (0);
}


static FILE *
cpp_open(void)
{
	pid_t	pid;
	int	filedes[2];
	int	i;

	for (i = 0; i < cmd_opt.cpp_opt_num; i++) {
		TRACE_MESSAGE('C', ("%s\n", *(cmd_opt.cpp_opt + i)));
	}

	if (pipe(filedes)) {
		PERROR(gettext("pipe"));
		itm_error(gettext("failed to open pipe\n"));
		exit(ITMC_STATUS_SYS);
	}
	pid = fork();
	if (pid == 0) {	/* child */
		(void) close(filedes[0]);
		(void) close(1);
		(void) dup2(filedes[1], 1);
		(void) execv(cmd_opt.preprocess, cmd_opt.cpp_opt);
		exit(0);
	} else if (pid == (pid_t)(-1)) {	/* error */
		return	(NULL);
	} else {
		(void) close(filedes[1]);
		return (fdopen(filedes[0], "r"));
	}
	return	(NULL); /* NEVER */
}


static int
cpp_opt_append(char	*opt, char	*arg)
{
	size_t	opt_len;
	size_t	arg_len;
	char	*new_opt;
	char	**new_opt_list;

	opt_len = ((NULL == opt) ? 0 : strlen(opt));
	arg_len = ((NULL == arg) ? 0 : strlen(arg));
	if (0 < (opt_len + arg_len)) {
		new_opt = malloc_vital(opt_len + arg_len + 1);
		if (NULL != opt) {
			(void) memcpy(new_opt, opt, opt_len + 1);
		}
		if (NULL != arg) {
			(void) memcpy(new_opt + opt_len, arg, arg_len + 1);
		}
	} else {
		new_opt = NULL;
	}

	if (0 == cmd_opt.cpp_opt_reserved) {
		cmd_opt.cpp_opt_reserved = 32;
		cmd_opt.cpp_opt = malloc_vital((sizeof (char *)) * 32);
		*(cmd_opt.cpp_opt + 0) = "cpp";
		cmd_opt.cpp_opt_num = 1;
	} else if ((cmd_opt.cpp_opt_reserved - 2) <= cmd_opt.cpp_opt_num) {
		cmd_opt.cpp_opt_reserved += 32;
		new_opt_list = malloc_vital((sizeof (char *)) *
					    cmd_opt.cpp_opt_reserved);
		(void) memcpy(new_opt_list, cmd_opt.cpp_opt,
			(sizeof (char *)) * cmd_opt.cpp_opt_num);
		(void) memset(new_opt_list + cmd_opt.cpp_opt_num, 0, 32);
		free(cmd_opt.cpp_opt);
		cmd_opt.cpp_opt = new_opt_list;
	}
	if (NULL != new_opt) {
		*(cmd_opt.cpp_opt + cmd_opt.cpp_opt_num) = new_opt;
		cmd_opt.cpp_opt_num += 1;
	}
	return (0);
}


static void
cpp_opt_trunc(int num)
{
	if (cmd_opt.cpp_opt_num < num) {
		num = cmd_opt.cpp_opt_num;
	}
	for (; 0 < num; --num) {
		free(cmd_opt.cpp_opt + cmd_opt.cpp_opt_num);
		--(cmd_opt.cpp_opt_num);
	}
}


static void
cpp_close(FILE *fp)
{
	(void) fclose(fp);
	(void) wait_child(0);
}




static char *
prog_path_expand(const char *base_name)
{
	size_t	base_len;
	size_t	dir_len;
	char	path[MAXPATHLEN];
	char	*p;
	char	*pe;

	base_len = strlen(base_name);
	path[0] = '\0';

	if (NULL != strchr(base_name, '/')) {
		if (0 == access(base_name, X_OK)) {
			return (strdup_vital(base_name));
		} else {
			return (NULL);
		}
	}

	for (p = getenv("PATH"); p; ) {
		pe = strchr(p, ':');
		dir_len = ((NULL == pe) ? strlen(p) : (pe - p));
		(void) memcpy(path, p, dir_len);
		if ((0 != dir_len) &&
		    ('/' != path[dir_len - 1])) {
			path[dir_len] = '/';
			dir_len += 1;
		}
		if ((dir_len + base_len) < MAXPATHLEN) {
			(void) memcpy(path + dir_len, base_name, base_len + 1);
			if (0 == access(path, X_OK)) {
				return (strdup_vital(path));
			}
		}
		p = ((NULL == pe) ? NULL : (pe + 1));
	}
	return	(NULL);
}


static void
usage(int status)
{

	if (ITMC_STATUS_SUCCESS == status) {
		(void) fprintf(stdout,
		gettext("Usage: %1$s [-n] [-f] [-q]\n"
		"	     [-p preprocessor] [-W argument]\n"
		"	     [-Dname] [-Dname=def] [-Idirectory] [-Uname]\n"
		"	     [file ...]\n	%2$s -h\n"),
		cmd_opt.my_name, cmd_opt.my_name);
	} else {
		(void) itm_error(
		gettext("Usage: %1$s [-n] [-f] [-q]\n"
		"	     [-p preprocessor] [-W argument]\n"
		"	     [-Dname] [-Dname=def] [-Idirectory] [-Uname]\n"
		"	     [file ...]\n	%2$s -h\n"),
		cmd_opt.my_name, cmd_opt.my_name);
	}
	exit(status);
}


static char *
map_type_name_str(itmc_map_type_t type)
{
	int	i;
	for (i = 0; NULL != map_type_name[i].name; i++) {
		if (type == map_type_name[i].type) {
			return (map_type_name[i].name);
		}
	}
	return ("");
}

static void
map_name_type_append(char *optarg)
{
	char			*oa;
	char			*oa_save;
	char			*name;
	char			*p;
	char			*phf;
	int			hash_factor = 0;
	itmc_map_type_t		type;
	itmc_map_name_type_t	*m;
	int			i;

	oa = oa_save = strdup_vital(optarg);

	while ((NULL != oa) && ('\0' != *oa)) {
		name = oa;
		oa = strchr(oa, ',');
		if (NULL != oa) {
			*(oa++) = '\0';
		}
		p = strchr(name, '=');
		if (NULL == p) {
			type = ITMC_MAP_AUTOMATIC;
		} else {
			*(p++) = '\0';
			if ('\0' == *p) {
				type = ITMC_MAP_AUTOMATIC;
			} else {
				phf = strchr(p, ':');
				if (NULL != phf) {
					*(phf++) = '\0';
					hash_factor = atoi(phf);
					if (hash_factor < 0) {
						itm_error(
						gettext(
						"invalid hash factor is "
						"specified: %s\n"),
							phf);
						hash_factor = 0;
						error_deferred += 1;
					}
				}
				for (i = 0;
				    NULL != map_type_name[i].name; i++) {
					if (0 ==
					    strcmp(p, map_type_name[i].name)) {
						type = map_type_name[i].type;
						break;
					}
				}
				if (NULL == map_type_name[i].name) {
					itm_error(
					gettext(
					"unknown map type is specified: %s\n"),
					p);
					error_deferred += 1;
					continue;
				}
			}
		}
		if (0 == strcmp(name, "default")) {
			*name = '\0';
		}
		m = cmd_opt.map_name_type;
		if (NULL == m) {
			m = malloc_vital(sizeof (itmc_map_name_type_t));
			m->name = strdup_vital(name);
			m->type = type;
			m->hash_factor = hash_factor;
			m->next = NULL;
			cmd_opt.map_name_type = m;
			continue;
		}
		for (; ; m = m->next) {
			if (0 == strcmp(name, m->name)) {
				if (type == m->type) {
					m = NULL;
					break;
				}
				if ('\0' == *name) {
					itm_error(
					gettext(
					"multiple default types are specified:"
					" \"%1$s\" and \"%2$s\"\n"),
						map_type_name_str(type),
						map_type_name_str(m->type));
				} else {
					itm_error(
					gettext("map \"%1$s\" is specified as "
					"two types \"%2$s\" and \"%3$s\"\n"),
					name,
					map_type_name_str(type),
					map_type_name_str(m->type));
				}
				error_deferred += 1;
				m = NULL;
				break;
			}
			if (NULL == m->next) {
				break;
			}
		}
		if (NULL != m) {
			m->next = malloc_vital(sizeof (itmc_map_name_type_t));
			m = m->next;
			m->name = strdup_vital(name);
			m->type = type;
			m->hash_factor = hash_factor;
			m->next = NULL;

		}
	}
	free(oa_save);
}



void *
malloc_vital(size_t size)
{
	void	*p;

	TRACE_MESSAGE('M', ("malloc_vital: %d\n", size));

	size = ITMROUNDUP(size);

	p = (void*) malloc(size);
	if (NULL == p) {
		PERROR(gettext("malloc"));
		exit(ITMC_STATUS_SYS);
	}

	(void) memset(p, 0, size);

	return	(p);
}


static char *
strdup_vital(const char		*str)
{
	char	*p;
	size_t	len;

	if (NULL == str) {
		return	(NULL);
	}

	len = strlen(str) + 1;
	p = malloc_vital(len);
	(void) memcpy(p, str, len);
	return	(p);
}





itm_data_t *
str_to_data(int size, char *seq)
{
	itm_data_t *data;

	data = malloc_vital(sizeof (itm_data_t));

	data->size = size;
	if (size <= sizeof (data->place)) {
		(void) memmove(&(data->place), seq, size);
	} else {
		data->place.itm_ptr = (itm_place2_t)malloc_vital(size);
		(void) memmove((char *)(data->place.itm_ptr), seq, size);
	}

	return	(data);
}


char *
name_to_str(itm_data_t *name)
{
	static char	*ptr = NULL;
	static size_t	len = 0;
	size_t		req_len;
	char		*p;

	if (NULL == name) {
		p = gettext("(no name)");
		req_len = strlen(p) + 1;
	} else {
		req_len = name->size + 1;
	}

	if (len <= req_len) {
		len += 512;
		free(ptr);
		ptr = malloc_vital(len);
	}

	if (NULL == name) {
		(void) memcpy(ptr, p, req_len);
		*(ptr + req_len) = '\0';
	} else if (name->size <= (sizeof (name->place))) {
		(void) memcpy(ptr, (char *)(&(name->place)), name->size);
		*(ptr + name->size) = '\0';
	} else {
		(void) memcpy(ptr, (char *)(name->place.itm_ptr), name->size);
		*(ptr + name->size) = '\0';
	}

	return	(ptr);
}

#define	ARGUMENTSMAX (8)
char *
data_to_hexadecimal(itm_data_t		*data)
{
	static int index = 0;
	static char	*ptr[ARGUMENTSMAX] = { NULL, NULL, NULL, NULL,
						NULL, NULL, NULL, NULL};
	static long	len[ARGUMENTSMAX] = { 0, 0, 0, 0, 0, 0, 0, 0};
	char		*hdp;
	char		*p;
	long		i;
	int		val;
	size_t		req_len;

	if (ARGUMENTSMAX <= index) index = 0;
	req_len = (2 * data->size) + 1;
	if (len[index] <= req_len) {
		len[index] += 512;
		free(ptr[index]);
		ptr[index] = malloc_vital(len[index]);
	}
	hdp = ptr[index];

	if (data->size <= (sizeof (itm_place_t))) {
		p = (char *)&(data->place);
	} else {
		p = (char *)(data->place.itm_ptr);
	}

	for (i = 0; i < data->size; i++, p++) {
		val = ((*p & 0x00f0) >> 4);
		if ((0 <= val) && (val <= 9)) {
			*hdp = '0' + val;
		} else {
			*hdp = 'a' + val - 10;
		}
		hdp++;

		val = (*p & 0x000f);
		if ((0 <= val) && (val <= 9)) {
			*hdp = '0' + val;
		} else {
			*hdp = 'a' + val - 10;
		}
		hdp++;
	}
	*hdp = '\0';
	return (ptr[index++]);
}





void
itm_error(char *format, ...)
{
	va_list		ap;
	va_start(ap, format);

	if (0 == cmd_opt.quiet) {
		(void) vfprintf(stderr, format, ap);
	}
	va_end(ap);
}

#if defined(ENABLE_TRACE)
static void
trace_option(void)
{
	char **pp;
	int	i;

	if (!(TRACE('o')))
		return;

	itm_error("my_name	   = %s\n", cmd_opt.my_name);
	if (NULL == cmd_opt.input_file) {
		(void) fprintf(stdout, "input_file   = (stdin)\n");
	} else {
		for (pp = cmd_opt.input_file; *pp; pp++) {
			(void) fprintf(stdout, "input_file   = %s\n", *pp);
		}
	}
	itm_error("output_file  = %s\n",
		cmd_opt.output_file ? cmd_opt.output_file : "(stdout)");
	itm_error("interpreter  = %s\n",
		cmd_opt.interpreter ? cmd_opt.interpreter : "(default)");
	if (cmd_opt.cpp_opt) {
		itm_error("cpp_opt	   = %s\n", *(cmd_opt.cpp_opt));
		for (i = 1; i < cmd_opt.cpp_opt_num; i++) {
			itm_error("\t%s\n", *(cmd_opt.cpp_opt + i));
		}
	} else {
		itm_error("cpp_opt	   = %s\n", "(none)");
	}
	itm_error("preprocess_default = %s\n",
		cmd_opt.preprocess_default ? cmd_opt.preprocess_default :
		"(no)");
	itm_error("preprocess_specified = %s\n",
		cmd_opt.preprocess_specified ? cmd_opt.preprocess_specified :
		"(no)");
	itm_error("preprocess   = %s\n",
		cmd_opt.preprocess ? cmd_opt.preprocess : "(no)");
	itm_error("disassemble  = %s\n",
		cmd_opt.disassemble ? "yes" : "no");
	itm_error("map type	   =");
	if (NULL == cmd_opt.map_name_type) {
		itm_error("\n");
	} else {
		itmc_map_name_type_t *m;
		itm_error(" ");
		m = cmd_opt.map_name_type;
		itm_error("%s=%s",
			(((NULL == m->name) || ('\0' == *(m->name))) ?
				"default" : m->name),
			map_type_name_str(m->type));
		if (0 != m->hash_factor) {
			itm_error(":%ld\n", m->hash_factor);
		} else {
			(void) fputc('\n', stderr);
		}
		for (m = m->next; NULL != m; m = m->next) {
			itm_error("		%s=%s",
				(((NULL == m->name) || ('\0' == *(m->name))) ?
					"default" : m->name),
				map_type_name_str(m->type));
			if (0 != m->hash_factor) {
				itm_error(":%ld\n", m->hash_factor);
			} else {
				(void) fputc('\n', stderr);
			}
		}
	}
	itm_error("large table  = %s\n",
		cmd_opt.large_table ? "true" : "false");
	itm_error("overwrite	   = %s\n",
		cmd_opt.force_overwrite ? "true" : "false");
	itm_error("strip	      = %s\n",
		cmd_opt.strip ? "true" : "false");
	itm_error("no_output	   = %s\n",
		cmd_opt.no_output ? "true" : "false");
	itm_error("trace	      = ");
	if (NULL == cmd_opt.trace) {
		itm_error("(no)\n");
	} else {
		for (i = 0x21; i < 0x7f; i++) {
			if (TRACE(i)) {
				(void) fputc(i, stderr);
			}
		}
		(void) fputc('\n', stderr);
	}
}
#endif /* ENABLE_TRACE */

#if defined(ENABLE_TRACE)
extern void
trace_message(char *format, ...)
{
	va_list	ap;
	va_start(ap, format);

	(void) vfprintf(stderr, format, ap);

	va_end(ap);
}
#endif /* ENABLE_TRACE */