/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (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 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*
* eftinfo.c -- main routine for eftinfo command
*
* argument processing and the general flow through all the other
* modules is driven by this file.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <stdio.h>
#include <string.h>
#ifdef sun
#include <stdlib.h>
#else
#include <getopt.h>
#endif /* sun */
#include "out.h"
#include "alloc.h"
#include "stats.h"
#include "stable.h"
#include "literals.h"
#include "lut.h"
#include "esclex.h"
#include "ptree.h"
#include "tree.h"
#include "check.h"
#include "version.h"
#include "eftread.h"
/* stuff exported by yacc-generated parsers */
extern void yyparse(void);
extern int yydebug;
/*
* This external definition has to be here. If we put it in literals.h
* lint complains about the declaration not being used within the block
* when compiling literals.c.
*/
extern void literals_init(void);
static const char *Usage = "[-DEPghpqvw] eft-files...";
static const char *Help =
"\t-D Print dictionaries EFT references.\n"
"\t-E Print ereports EFT will consume.\n"
"\t-P Print problems EFT can diagnose.\n"
"\t-g Print generated iterators (use with -p)\n"
"\t-h Print this help message\n"
"\t-p Print complete propagation tree\n"
"\t-q Quiet mode, no header info printed\n"
"\t-v Enable verbose output\n"
"\t-w Enable language warnings";
/*
* and some undocumented extras...
* "\t-S Print stats for compiler memory usage, etc.\n"
* "\t-Y Enable parser debug output\n"
* "\t-d Enable general debug output\n"
* "\t-y Enable lexer debug output\n"
*
*/
int Debug;
int Verbose;
int Warn;
extern int Pchildgen; /* flag to ptree for printing generated interators */
extern struct lut *Dicts;
/*ARGSUSED*/
static void
dictprint(const char *s, void *rhs, void *arg)
{
static char *sep = "";
out(O_OK|O_NONL, "%s%s", sep, s);
sep = ":";
}
int
main(int argc, char *argv[])
{
int c;
int count;
int Dflag = 0;
int Eflag = 0;
int yflag = 0;
int Pflag = 0;
int Sflag = 0;
int pflag = 0;
int qflag = 0;
alloc_init();
out_init(argv[0]);
stats_init(1); /* extended stats always enabled for eftinfo */
stable_init(0);
literals_init();
lut_init();
tree_init();
while ((c = getopt(argc, argv, "DEPSYdghpqvwy")) != EOF) {
switch (c) {
case 'D':
Dflag++;
break;
case 'E':
Eflag++;
break;
case 'y':
yflag++;
break;
case 'P':
Pflag++;
break;
case 'S':
Sflag++;
break;
case 'Y':
yydebug++;
break;
case 'd':
Debug++;
break;
case 'g':
Pchildgen++;
break;
case 'h':
case '?':
out(O_PROG, "version %d.%d",
VERSION_MAJOR, VERSION_MINOR);
out(O_DIE|O_USAGE, "%s\n%s", Usage, Help);
/*NOTREACHED*/
case 'p':
pflag++;
break;
case 'q':
qflag++;
break;
case 'v':
Verbose++;
break;
case 'w':
Warn++;
break;
default:
out(O_DIE|O_USAGE, Usage);
/*NOTREACHED*/
}
}
out(O_PROG|O_VERB, "version %d.%d",
VERSION_MAJOR, VERSION_MINOR);
argc -= optind;
if (argc < 1)
out(O_DIE|O_USAGE, Usage);
if (!qflag)
eftread_showheader(1);
lex_init(&argv[optind], NULL, yflag);
check_init();
yyparse();
(void) lex_fini();
tree_report();
if (count = out_errcount())
out(O_DIE, "%d error%s encountered, exiting.", OUTS(count));
if (Dflag) {
out(O_OK|O_NONL, "Dictionaries: ");
lut_walk(Dicts, (lut_cb)dictprint, (void *)0);
out(O_OK, NULL);
}
if (Eflag)
ptree_ereport(O_OK, NULL);
if (Pflag) {
ptree_fault(O_OK, NULL);
ptree_upset(O_OK, NULL);
ptree_defect(O_OK, NULL);
}
if (pflag)
ptree_name_iter(O_OK, tree_root(NULL));
if (Sflag) {
out(O_OK, "Stats:");
stats_publish();
}
out_exit(0);
/*NOTREACHED*/
return (0);
}