path: root/support/detex/lexout.c

#include <stdio.h>
# define U(x) x
# define NLSTATE yyprevious=YYNEWLINE
# define BEGIN yybgin = yysvec + 1 +
# define INITIAL 0
# define YYLERR yysvec
# define YYSTATE (yyestate-yysvec-1)
# define YYOPTIM 1
# define YYLMAX BUFSIZ
#ifndef __cplusplus
# define output(c) (void)putc(c,yyout)
#else
# define lex_output(c) (void)putc(c,yyout)
#endif

#if defined(__cplusplus) || defined(__STDC__)

#if defined(__cplusplus) && defined(__EXTERN_C__)
extern "C" {
#endif
	int yyback(int *, int);
	int yyinput(void);
	int yylook(void);
	void yyoutput(int);
	int yyracc(int);
	int yyreject(void);
	void yyunput(int);
	int yylex(void);
#ifdef YYLEX_E
	void yywoutput(wchar_t);
	wchar_t yywinput(void);
#endif
#ifndef yyless
	int yyless(int);
#endif
#ifndef yywrap
	int yywrap(void);
#endif
#ifdef LEXDEBUG
	void allprint(char);
	void sprint(char *);
#endif
#if defined(__cplusplus) && defined(__EXTERN_C__)
}
#endif

#ifdef __cplusplus
extern "C" {
#endif
	void exit(int);
#ifdef __cplusplus
}
#endif

#endif
# define unput(c) {yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar;}
# define yymore() (yymorfg=1)
#ifndef __cplusplus
# define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getc(yyin))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
#else
# define lex_input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getc(yyin))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
#endif
#define ECHO fprintf(yyout, "%s",yytext)
# define REJECT { nstr = yyreject(); goto yyfussy;}
int yyleng;
char yytext[YYLMAX];
int yymorfg;
extern char *yysptr, yysbuf[];
int yytchar;
FILE *yyin = {stdin}, *yyout = {stdout};
extern int yylineno;
struct yysvf { 
	struct yywork *yystoff;
	struct yysvf *yyother;
	int *yystops;};
struct yysvf *yyestate;
extern struct yysvf yysvec[], *yybgin;
#ifndef lint
static char	rcsid[] = "$Header: /p/src/local/bin/detex/RCS/detex.l,v 2.19 1997/09/10 18:12:37 trinkle Exp $";
#endif


# line 7 "xxx.l"
/*
 * detex [-e environment-list] [-c] [-l] [-n] [-s] [-t] [-w] [file[.tex]]
 *
 *	This program is used to remove TeX or LaTeX constructs from a text
 *	file.
 *
 * Written by:
 *	Daniel Trinkle
 *	Department of Computer Science
 *	Purdue University
 *
 */

#include "detex.h"
#ifdef HAVE_STRING_H
#include <string.h>
#define	index	strchr
#define	rindex	strrchr
#else
#include <strings.h>
#endif
#ifndef MAXPATHLEN
#include <sys/param.h>
#endif
#ifdef OS2
#include <stdlib.h>
#endif

#define	LaBEGIN		if (fLatex) BEGIN
#define	CITEBEGIN	if (fLatex && !fCite) BEGIN
#define	IGNORE		if (fSpace && !fWord) putchar(' ')
#define	SPACE		if (!fWord) putchar(' ')
#define	NEWLINE		if (!fWord) putchar('\n')

char	*SafeMalloc();
#ifndef NO_MALLOC_DECL
char	*malloc();
#endif
#ifdef OS2
void	yyless(int);
#endif

char	*rgsbEnvIgnore[MAXENVS];	/* list of environments ignored */
char	*rgsbIncList[MAXINCLIST];	/* list of includeonly files */
char	*rgsbInputPaths[MAXINPUTPATHS];	/* list of input paths in order */
char	sbCurrentEnv[CCHMAXENV];	/* current environment being ignored */
char	*sbProgName;			/* name we were invoked with */
FILE	*rgfp[NOFILE+1];		/* stack of input/include files */
int	cfp = 0;			/* count of files in stack */
int	cOpenBrace = 0;			/* count of `{' in <SG> */
int	csbEnvIgnore;			/* count of environments ignored */
int	csbIncList = 0;			/* count of includeonly files */
int	csbInputPaths;			/* count of input paths */
int	fLatex = 0;			/* flag to indicated delatex */
int	fWord = 0;			/* flag for -w option */
int	fFollow = 1;			/* flag to follow input/include */
int	fCite = 0;			/* flag to echo \cite and \ref args */
int	fSpace = 0;			/* flag to replace \cs with space */
int	fForcetex = 0;			/* flag to inhibit latex mode */
# define SJ 2
# define SK 4
# define SL 6
# define SM 8
# define SN 10
# define SO 12
# define SP 14
# define SA 16
# define SB 18
# define SC 20
# define SD 22
# define SE 24
# define SF 26
# define SH 28
# define SG 30
# define SI 32
# define YYNEWLINE 10
yylex(){
int nstr; extern int yyprevious;
#ifdef __cplusplus
/* to avoid CC and lint complaining yyfussy not being used ...*/
static int __lex_hack = 0;
if (__lex_hack) goto yyfussy;
#endif
while((nstr = yylook()) >= 0)
yyfussy: switch(nstr){
case 0:
if(yywrap()) return(0); break;
case 1:

# line 75 "xxx.l"
	/* ignore comments */	;
break;
case 2:

# line 77 "xxx.l"
{fLatex = !fForcetex; IGNORE;}
break;
case 3:

# line 79 "xxx.l"
    /* environment start */	{LaBEGIN SA; IGNORE;}
break;
case 4:

# line 81 "xxx.l"
	{   if (BeginEnv("verbatim"))
							BEGIN SD;
						    else
							BEGIN SI;
						    IGNORE;
						}
break;
case 5:

# line 88 "xxx.l"
/* verbatim mode */	{BEGIN SO; IGNORE;}
break;
case 6:

# line 89 "xxx.l"
				ECHO;
break;
case 7:

# line 91 "xxx.l"
				{   if (BeginEnv(yytext))
							BEGIN SD;
						    else
							BEGIN SH;
						    IGNORE;
						}
break;
case 8:

# line 97 "xxx.l"
				NEWLINE;
break;
case 9:

# line 98 "xxx.l"
				;
break;
case 10:

# line 100 "xxx.l"
 /* absorb some environments */	{LaBEGIN SC; IGNORE;}
break;
case 11:

# line 101 "xxx.l"
				NEWLINE;
break;
case 12:

# line 102 "xxx.l"
				;
break;
case 13:

# line 104 "xxx.l"
	 /* end environment */	{   if (EndEnv(yytext))
							BEGIN SO;
						    IGNORE;
						}
break;
case 14:

# line 108 "xxx.l"
				{BEGIN SD; IGNORE;}
break;
case 15:

# line 109 "xxx.l"
				NEWLINE;
break;
case 16:

# line 110 "xxx.l"
				;
break;
case 17:

# line 112 "xxx.l"
    /* ignore args  */	{LaBEGIN SG; IGNORE;}
break;
case 18:

# line 113 "xxx.l"
   /* of these \cs */	{LaBEGIN SH; IGNORE;}
break;
case 19:

# line 114 "xxx.l"
			{LaBEGIN SH; IGNORE;}
break;
case 20:

# line 115 "xxx.l"
			{CITEBEGIN SG; IGNORE;}
break;
case 21:

# line 116 "xxx.l"
		{LaBEGIN SH; IGNORE;}
break;
case 22:

# line 117 "xxx.l"
				{LaBEGIN SH; IGNORE;}
break;
case 23:

# line 118 "xxx.l"
			{SPACE;}
break;
case 24:

# line 119 "xxx.l"
			{LaBEGIN SG; SPACE;}
break;
case 25:

# line 120 "xxx.l"
			{LaBEGIN SH; IGNORE;}
break;
case 26:

# line 121 "xxx.l"
			{CITEBEGIN SH; IGNORE;}
break;
case 27:

# line 122 "xxx.l"
			{LaBEGIN SH; IGNORE;}
break;
case 28:

# line 123 "xxx.l"
				{CITEBEGIN SH; IGNORE;}
break;
case 29:

# line 124 "xxx.l"
			{LaBEGIN SH; IGNORE;}
break;
case 30:

# line 125 "xxx.l"
/* ignore \verb<ch>...<ch> */	{   if (fLatex) {
						 	char verbchar, c;
						 	verbchar = input();
						 	while ((c = input()) != verbchar)
							    if (c == '\n')
								NEWLINE;
						    }
						    IGNORE;
						}
break;
case 31:

# line 134 "xxx.l"
				BEGIN SO;
break;
case 32:

# line 135 "xxx.l"
				NEWLINE;
break;
case 33:

# line 136 "xxx.l"
				;
break;
case 34:

# line 137 "xxx.l"
				{   cOpenBrace++; }
break;
case 35:

# line 138 "xxx.l"
				{   cOpenBrace--;
						    if (cOpenBrace == 0)
							BEGIN SO;
						}
break;
case 36:

# line 142 "xxx.l"
				NEWLINE;
break;
case 37:

# line 143 "xxx.l"
				;
break;
case 38:

# line 145 "xxx.l"
	/* ignore def begin */	{BEGIN SJ; IGNORE;}
break;
case 39:

# line 146 "xxx.l"
				BEGIN SO;
break;
case 40:

# line 147 "xxx.l"
				NEWLINE;
break;
case 41:

# line 148 "xxx.l"
				;
break;
case 42:

# line 150 "xxx.l"
	/* formula mode */	{LaBEGIN SE; IGNORE;}
break;
case 43:

# line 151 "xxx.l"
			BEGIN SO;
break;
case 44:

# line 152 "xxx.l"
				NEWLINE;
break;
case 45:

# line 153 "xxx.l"
				;
break;
case 46:

# line 155 "xxx.l"
	/* display mode */	{LaBEGIN SB; IGNORE;}
break;
case 47:

# line 156 "xxx.l"
			BEGIN SO;
break;
case 48:

# line 157 "xxx.l"
				NEWLINE;
break;
case 49:

# line 158 "xxx.l"
				;
break;
case 50:

# line 160 "xxx.l"
	/* display mode */	{BEGIN SK; IGNORE;}
break;
case 51:

# line 161 "xxx.l"
				BEGIN SO;
break;
case 52:

# line 162 "xxx.l"
				NEWLINE;
break;
case 53:

# line 163 "xxx.l"
				;
break;
case 54:

# line 165 "xxx.l"
	/* math mode */		{BEGIN SN; IGNORE;}
break;
case 55:

# line 166 "xxx.l"
				BEGIN SO;
break;
case 56:

# line 167 "xxx.l"
				NEWLINE;
break;
case 57:

# line 168 "xxx.l"
				;
break;
case 58:

# line 169 "xxx.l"
					;
break;
case 59:

# line 171 "xxx.l"
/* process files */	{LaBEGIN SF; IGNORE;}
break;
case 60:

# line 172 "xxx.l"
			{   IncludeFile(yytext);
						    BEGIN SO;
						}
break;
case 61:

# line 175 "xxx.l"
				NEWLINE;
break;
case 62:

# line 176 "xxx.l"
				;
break;
case 63:

# line 178 "xxx.l"
			{BEGIN SL; IGNORE;}
break;
case 64:

# line 179 "xxx.l"
		AddInclude(yytext);
break;
case 65:

# line 180 "xxx.l"
			{   if (csbIncList == 0)
							rgsbIncList[csbIncList++] = '\0';
						    BEGIN SO;
						}
break;
case 66:

# line 184 "xxx.l"
			NEWLINE;
break;
case 67:

# line 185 "xxx.l"
				;
break;
case 68:

# line 187 "xxx.l"
			{BEGIN SM; IGNORE;}
break;
case 69:

# line 188 "xxx.l"
			{   InputFile(yytext);
						    BEGIN SO;
						}
break;
case 70:

# line 191 "xxx.l"
				NEWLINE;
break;
case 71:

# line 192 "xxx.l"
				;
break;
case 72:

# line 194 "xxx.l"
/* handle ligatures */	{(void)printf("%.2s", yytext+1);}
break;
case 73:

# line 195 "xxx.l"
	{(void)printf("%.1s", yytext+1);}
break;
case 74:

# line 197 "xxx.l"
/* ignore other \cs */	{BEGIN SP; IGNORE;}
break;
case 75:

# line 198 "xxx.l"
				SPACE;
break;
case 76:

# line 199 "xxx.l"
				IGNORE;
break;
case 77:

# line 200 "xxx.l"
			IGNORE;
break;
case 78:

# line 201 "xxx.l"
	IGNORE;
break;
case 79:

# line 202 "xxx.l"
				{BEGIN SO; NEWLINE;}
break;
case 80:

# line 203 "xxx.l"
			{BEGIN SO; IGNORE;}
break;
case 81:

# line 204 "xxx.l"
				{yyless(0);BEGIN SO;}
break;
case 82:

# line 206 "xxx.l"
/* special characters */	IGNORE;
break;
case 83:

# line 207 "xxx.l"
				IGNORE;
break;
case 84:

# line 208 "xxx.l"
				SPACE;
break;
case 85:

# line 210 "xxx.l"
			{   if (fWord)
							(void)printf("%s\n", yytext);
						    else
							ECHO;
						}
break;
case 86:

# line 215 "xxx.l"
				if (!fWord) ECHO;
break;
case 87:

# line 216 "xxx.l"
				if (!fWord) ECHO;
break;
case -1:
break;
default:
(void)fprintf(yyout,"bad switch yylook %d",nstr);
} return(0); }
/* end of yylex */
/******
** main --
**	Set sbProgName to the base of arg 0.
**	Set the input paths.
**	Check for options
**		-c		echo LaTeX \cite, \ref, and \pageref values
**		-e <env-list>	list of LaTeX environments to ignore
**		-l		force latex mode
**		-n		do not follow \input and \include
**		-s		replace control sequences with space
**		-t		force tex mode
**		-w		word only output
**	Set the list of LaTeX environments to ignore.
**	Process each input file.
**	If no input files are specified on the command line, process stdin.
******/

main(cArgs,rgsbArgs)
int	cArgs;
char	*rgsbArgs[];
{
	char	*pch, *sbEnvList = DEFAULTENV, sbBadOpt[2];
	FILE	*TexOpen();
	int	fSawFile = 0, iArgs = 1;

	/* get base name and decide what we are doing, detex or delatex */
#ifdef OS2
	char drive[_MAX_DRIVE], dir[_MAX_DIR];
	char fname[_MAX_FNAME], ext[_MAX_EXT];
#ifdef __EMX__
	_wildcard(&cArgs, &rgsbArgs);
	_response(&cArgs, &rgsbArgs);
#endif
	_splitpath (rgsbArgs[0], drive, dir, fname, ext);
	sbProgName = strlwr(fname);
#else
	if ((sbProgName = rindex(rgsbArgs[0], '/')) != NULL)
	    sbProgName++;
	else
	    sbProgName = rgsbArgs[0];
#endif
	if (strcmp("delatex",sbProgName) == 0)
	    fLatex = 1;

	/* set rgsbInputPaths for use with TexOpen() */
	SetInputPaths();

	/* process command line options */
	while (iArgs < cArgs && *(pch = rgsbArgs[iArgs]) == CHOPT) {
		while (*++pch)
		    switch (*pch) {
		    case CHCITEOPT:
			fCite = 1;
			break;
		    case CHENVOPT:
			sbEnvList = rgsbArgs[++iArgs];
			break;
		    case CHLATEXOPT:
			fLatex = 1;
			break;
		    case CHNOFOLLOWOPT:
			fFollow = 0;
			break;
		    case CHSPACEOPT:
			fSpace = 1;
			break;
		    case CHTEXOPT:
			fForcetex = 1;
			break;
		    case CHWORDOPT:
			fWord = 1;
			break;
		    default:
#ifdef OS2
			OS2UsageExit();
#else
			sbBadOpt[0] = *pch;
			sbBadOpt[1] = '\0';
			Warning("unknown option ignored -", sbBadOpt);
#endif
		    }
		iArgs++;
	}
	SetEnvIgnore(sbEnvList);

	/* process input files */
	for (; iArgs < cArgs; iArgs++) {
	    fSawFile++;
	    if ((yyin = TexOpen(rgsbArgs[iArgs])) == NULL) {
		Warning("can't open file", rgsbArgs[iArgs]);
		continue;;
	    }
	    BEGIN SO;
	    (void)yylex();
	}

	/* if there were no input files, assume stdin */
	if (!fSawFile) {
	    yyin = stdin;
#ifdef OS2
	    if (isatty(fileno(stdin)))
		OS2UsageExit();
#endif
	    BEGIN SO;
	    (void)yylex();
	}
#ifndef FLEX_SCANNER
	if (YYSTATE != SO)
	    ErrorExit("input contains an unterminated mode or environment");
#endif
	return(0);
}

#ifdef FLEX_SCANNER
#undef yywrap
#endif

/******
** yywrap -- handles EOF for lex.  Check to see if the stack of open files
**	has anything on it.  If it does, set yyin to the to value.  If not
**	return the termination signal for lex.
******/

yywrap()
{
	(void)fclose(yyin);
	if (cfp > 0) {
	    yyin = rgfp[--cfp];
	    return(0);
	}
	return(1);
}

#ifdef OS2

/******
** yyless -- return characters to the input stream.  Some systems don't have
**	a yyless routine
******/

void yyless(n)
int n;
{
	int 	i = strlen(yytext);

	while (i > n) unput(yytext[--i]);
	yytext[yyleng = n] = '\0';
}
#endif

/******
** SetEnvIgnore -- sets rgsbEnvIgnore to the values indicated by the
**	sbEnvList.
******/

SetEnvIgnore(sbEnvList)
char	*sbEnvList;
{
	char *sb;

	sb = SafeMalloc(strlen(sbEnvList) + 1, "malloc for SetEnvIgnore failed");
	(void) strcpy(sb, sbEnvList);
	csbEnvIgnore = SeparateList(sb, rgsbEnvIgnore, CHENVSEP, MAXENVS);
	if (csbEnvIgnore == ERROR)
	    ErrorExit("The environtment list contains too many environments");
}

/******
** BeginEnv -- checks to see if sbEnv is in the list rgsbEnvIgnore.  If it
**	is, sbCurrentEnv is set to sbEnv.
******/

BeginEnv(sbEnv)
char	*sbEnv;
{
	int	i;

	if (!fLatex) return(0);
	for (i = 0; i < csbEnvIgnore; i++)
	    if (strcmp(sbEnv, rgsbEnvIgnore[i]) == 0) {
		(void)strcpy(sbCurrentEnv, sbEnv);
		return(1);
	    }
	return(0);
}

/******
** EndEnv -- checks to see if sbEnv is the current environment being ignored.
******/

EndEnv(sbEnv)
char	*sbEnv;
{
	if (!fLatex) return(0);
	if (strcmp(sbEnv, sbCurrentEnv) == 0)
	    return(1);
	return(0);
}

/******
** InputFile -- push the current yyin and open sbFile.  If the open fails,
**	the sbFile is ignored.
******/

InputFile(sbFile)
char	*sbFile;
{
	FILE	*TexOpen();

	if (!fFollow)
	    return;
	rgfp[cfp++] = yyin;
	if ((yyin = TexOpen(sbFile)) == NULL) {
	    Warning("can't open \\input file", sbFile);
	    yyin = rgfp[--cfp];
	}
}

/******
** IncludeFile -- if sbFile is not in the rgsbIncList, push current yyin
**	and open sbFile.  If the open fails, the sbFile is ignored.
******/

IncludeFile(sbFile)
char	*sbFile;
{
	FILE	*TexOpen();

	if (!fFollow)
	    return;
	if (!InList(sbFile))
	    return;
	rgfp[cfp++] = yyin;
	if ((yyin = TexOpen(sbFile)) == NULL) {
	    Warning("can't open \\include file", sbFile);
	    yyin = rgfp[--cfp];
	}
}

/******
** AddInclude -- adds sbFile to the rgsbIncList and increments csbIncList.
**	If the include list is too long, sbFile is ignored.
******/

AddInclude(sbFile)
char	*sbFile;
{
	if (!fFollow)
	    return;
	if (csbIncList >= MAXINCLIST)
	    Warning("\\includeonly list is too long, ignoring", sbFile);
	rgsbIncList[csbIncList] = SafeMalloc(strlen(sbFile) + 1, "malloc for AddInclude failed");
	(void)strcpy(rgsbIncList[csbIncList++], sbFile);
}

/******
** InList -- checks to see if sbFile is in the rgsbIncList.  If there is
**	no list, all files are assumed to be "in the list".
******/

InList(sbFile)
char	*sbFile;
{
	char	*pch, sbBase[MAXPATHLEN];
	int	i;

	if (csbIncList == 0)	/* no list */
	    return(1);
	(void)strcpy(sbBase, sbFile);
	if ((pch = rindex(sbBase, '.')) != NULL)
	    *pch = '\0';
	i = 0;
	while ((i < csbIncList) && rgsbIncList[i])
	    if (strcmp(rgsbIncList[i++], sbBase) == 0)
	        return(1);
	return(0);
}

/******
** SetInputPaths -- sets rgsbInputPaths to the values indicated by the
**	TEXINPUTS environment variable if set or else DEFAULTINPUTS.  If
**	the user's TEXINPUTS has a leading ':' prepend the DEFAULTINPUTS
**	to the path, if there is a trailing ':' append the DEFAULTINPUTS.
**	This is consistent with the most recent TeX.  However, this
**	routine does not honor the '//' construct (expand subdirs).
******/

SetInputPaths()
{
	char *sb, *sbPaths, *getenv();
	int cchDefaults, cchPaths;

	cchDefaults = strlen(DEFAULTINPUTS);
#ifdef OS2
	if ((sb = getenv("TEXINPUT")) == NULL)
#endif
	    if ((sb = getenv("TEXINPUTS")) == NULL)
		sb = DEFAULTINPUTS;
	cchPaths = strlen(sb);
	if (sb[0] == CHPATHSEP)
	    cchPaths += cchDefaults;
	if (sb[strlen(sb) - 1] == CHPATHSEP)
	    cchPaths += cchDefaults;
	sbPaths = SafeMalloc(cchPaths + 1, "malloc for SetInputPaths failed");
	sbPaths[0] = '\0';
	if (sb[0] == CHPATHSEP)
	    (void)strcat(sbPaths, DEFAULTINPUTS);
	(void)strcat(sbPaths, sb);
	if (sb[strlen(sb) - 1] == CHPATHSEP)
	    (void)strcat(sbPaths, DEFAULTINPUTS);

	csbInputPaths = SeparateList(sbPaths, rgsbInputPaths, CHPATHSEP, MAXINPUTPATHS);
	if (csbInputPaths == ERROR)
#ifdef OS2
	    ErrorExit("TEXINPUT(S) environment variable has too many paths");
#else
	    ErrorExit("TEXINPUTS environment variable has too many paths");
#endif
}

/******
** SeparateList -- takes a chSep separated list sbList, replaces the
**	chSep's with NULLs and sets rgsbList[i] to the beginning of
**	the ith word in sbList.  The number of words is returned.  A
**	ERROR is returned if there are more than csbMax words.
******/

SeparateList(sbList, rgsbList, chSep, csbMax)
char	*sbList, *rgsbList[], chSep;
int	csbMax;
{
	int	csbList = 0;

	while (sbList && *sbList && csbList < csbMax) {
	    rgsbList[csbList++] = sbList;
	    if (sbList = index(sbList, chSep))
		*sbList++ = '\0';
	}
	return(sbList && *sbList ? ERROR : csbList);
}

/******
** TexOpen -- tries to open sbFile in each of the rgsbInputPaths in turn.
**	For each input path the following order is used:
**		file.tex - must be as named, if not there go to the next path
**		file.ext - random extension, try it
**		file     - base name, add .tex and try it
**		file     - try it as is
**	Notice that if file exists in the first path and file.tex exists in
**	one of the other paths, file in the first path is what is opened.
**	If the sbFile begins with a '/', no paths are searched.
******/

FILE *
TexOpen(sbFile)
char	*sbFile;
{
	char	*pch, *sbNew;
	FILE	*fp;
	int	iPath;
	static char	sbFullPath[MAXPATHLEN];

	for (iPath = 0; iPath < csbInputPaths; iPath++) {
#ifdef OS2
	    if (*sbFile == '/' || *sbFile == '\\' || strchr(sbFile, ':')) {	/* absolute path */
#else
	    if (*sbFile == '/') {	/* absolute path */
#endif
		(void)sprintf(sbFullPath, "%s", sbFile);
		iPath = csbInputPaths;	/* only check once */
	    } else
		(void)sprintf(sbFullPath, "%s/%s", rgsbInputPaths[iPath], sbFile);
#ifdef OS2
	    pch = sbFullPath;
	    while (pch = strchr(pch, '\\'))
		*pch = '/';
#endif

	    /* If sbFile ends in .tex then it must be there */
	    if ((pch = rindex(sbFullPath, '.')) != NULL
			&& (strcmp(pch, ".tex") == 0))
		if ((fp = fopen(sbFullPath, "r")) != NULL)
		    return(fp);
		else
		    continue;

	    /* if .<ext> then try to open it.  the '.' represents   */
	    /* the beginning of an extension if it is not the first */
	    /* character and it does not follow a '.' or a '/'      */
	    if (pch != NULL && pch > &(sbFullPath[0])
                    && *(pch - 1) != '.' && *(pch - 1) != '/'
		    && (fp = fopen(sbFullPath, "r")) != NULL)
		return(fp);

	    /* just base name, add .tex to the name */
	    sbNew = SafeMalloc(strlen(sbFullPath) + 5, "malloc for TexOpen failed");
	    (void)strcpy(sbNew, sbFullPath);
	    (void)strcat(sbNew, ".tex");
	    if ((fp = fopen(sbNew, "r")) != NULL)
		return(fp);

	    /* try sbFile regardless */
	    if ((fp = fopen(sbFullPath, "r")) != NULL)
		return(fp);
	}
	return((FILE *)NULL);
}

/******
** SafeMalloc -- wrapper around malloc() to check for failure.
******/

char *
SafeMalloc(cch, sbMessage)
int cch;
char *sbMessage;
{
	char *sb;

	if ((sb = (char *)malloc((unsigned)cch)) == NULL)
	    ErrorExit(sbMessage);
	return(sb);
}

/******
** Warning -- print a warning message preceded by the program name.
******/

Warning(sb1, sb2)
char	*sb1, *sb2;
{
	(void)fprintf(stderr, "%s: warning: %s %s\n", sbProgName, sb1, sb2);
}

/******
** ErrorExit -- print an error message preceded by the program name.
**	Stdout is flushed and detex exits.
******/

ErrorExit(sb1)
char	*sb1;
{
	(void)fflush(stdout);
	(void)fprintf(stderr, "%s: error: %s\n", sbProgName, sb1);
	exit(1);
}
#ifdef OS2

/******
** OS2UsageExit -- print OS/2 usage message and exit.
******/

OS2UsageExit()
{
	(void)printf("\n%s [ -clnstw ] [ -e environment-list ] [ filename[.tex] ... ]\n",
		sbProgName);
	puts("  -c  echo LaTeX \\cite, \\ref, and \\pageref values\n  \
-e  <env-list> list of LaTeX environments to ignore\n  \
-l  force latex mode\n  \
-n  do not follow \\input and \\include\n  \
-s  replace control sequences with space\n  \
-t  force tex mode\n  \
-w  word only output");
	exit(0);
}
#endif
int yyvstop[] = {
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

80,
0,

41,
0,

40,
0,

39,
41,
0,

53,
0,

52,
0,

53,
0,

64,
67,
0,

67,
0,

66,
0,

65,
67,
0,

69,
71,
0,

71,
0,

70,
0,

58,
0,

56,
0,

55,
58,
0,

58,
0,

87,
0,

87,
0,

54,
87,
0,

1,
87,
0,

86,
87,
0,

87,
0,

82,
87,
0,

82,
87,
0,

84,
87,
0,

81,
0,

80,
81,
0,

79,
0,

78,
81,
0,

81,
0,

81,
0,

80,
81,
0,

9,
0,

9,
0,

8,
0,

7,
9,
0,

9,
0,

49,
0,

48,
0,

49,
0,

16,
0,

15,
0,

13,
16,
0,

14,
16,
0,

12,
0,

11,
0,

12,
0,

45,
0,

44,
0,

45,
0,

60,
62,
0,

62,
0,

61,
0,

33,
0,

32,
0,

31,
33,
0,

37,
0,

36,
0,

34,
37,
0,

35,
37,
0,

6,
0,

6,
0,

51,
0,

64,
0,

69,
0,

57,
0,

83,
0,

50,
0,

1,
0,

86,
0,

85,
0,

76,
0,

75,
76,
0,

42,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

46,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

74,
76,
0,

80,
0,

80,
0,

78,
0,

77,
0,

7,
0,

47,
0,

13,
0,

43,
0,

60,
0,

85,
0,

74,
0,

74,
0,

73,
0,

73,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

72,
0,

72,
0,

74,
0,

74,
0,

74,
0,

38,
74,
0,

74,
0,

22,
74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

28,
74,
0,

74,
0,

74,
0,

10,
0,

74,
0,

74,
0,

74,
0,

74,
0,

20,
74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

30,
74,
0,

3,
74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

24,
74,
0,

68,
74,
0,

25,
74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

17,
74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

59,
74,
0,

26,
74,
0,

74,
0,

74,
0,

74,
0,

19,
74,
0,

74,
0,

23,
74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

74,
0,

27,
74,
0,

74,
0,

4,
0,

74,
0,

74,
0,

74,
0,

29,
74,
0,

74,
0,

74,
0,

63,
74,
0,

18,
74,
0,

74,
0,

21,
74,
0,

5,
0,

2,
0,
0};
# define YYTYPE int
struct yywork { YYTYPE verify, advance; } yycrank[] = {
0,0,	0,0,	3,35,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	5,38,	3,35,	3,36,	
104,0,	0,0,	0,0,	0,0,	
7,41,	5,38,	5,39,	0,0,	
0,0,	0,0,	34,0,	0,0,	
7,42,	7,43,	0,0,	0,0,	
113,147,	113,148,	0,0,	0,0,	
62,129,	0,0,	3,35,	0,0,	
0,0,	6,40,	40,98,	51,101,	
3,35,	5,38,	12,50,	54,103,	
5,40,	3,35,	3,35,	5,38,	
7,41,	3,35,	85,141,	113,147,	
5,38,	5,38,	7,41,	62,129,	
5,38,	14,54,	14,55,	7,42,	
7,41,	0,0,	0,0,	7,41,	
0,0,	3,35,	3,35,	72,135,	
72,135,	122,147,	122,148,	0,0,	
5,38,	5,38,	69,134,	69,134,	
0,0,	3,35,	9,45,	7,41,	
7,41,	112,146,	99,0,	99,0,	
5,38,	112,146,	9,46,	9,47,	
114,147,	114,148,	72,135,	7,41,	
122,147,	3,35,	0,0,	75,138,	
0,0,	69,134,	53,102,	125,158,	
5,38,	150,168,	116,146,	82,140,	
97,143,	99,0,	116,146,	7,41,	
117,149,	118,151,	9,45,	114,147,	
117,150,	119,152,	120,154,	121,155,	
9,45,	99,0,	126,159,	11,48,	
128,161,	9,45,	9,45,	119,153,	
3,37,	9,45,	3,35,	11,48,	
11,49,	16,61,	12,48,	5,38,	
20,73,	5,38,	24,80,	26,83,	
34,96,	67,130,	7,42,	137,162,	
7,44,	9,45,	9,45,	140,163,	
113,148,	14,59,	62,130,	14,60,	
114,146,	143,164,	149,167,	11,48,	
151,169,	9,45,	11,50,	124,147,	
124,148,	11,48,	127,160,	152,170,	
153,171,	154,172,	11,48,	11,48,	
100,0,	100,0,	11,48,	155,173,	
157,177,	9,45,	122,156,	13,52,	
127,146,	158,178,	131,0,	131,0,	
72,137,	159,179,	124,147,	13,52,	
13,52,	15,61,	11,48,	11,48,	
160,180,	122,148,	161,181,	100,0,	
69,135,	15,62,	15,63,	162,182,	
156,174,	156,175,	11,48,	163,183,	
99,0,	131,0,	99,0,	164,184,	
9,46,	167,185,	9,46,	13,53,	
114,148,	156,176,	13,54,	13,55,	
169,189,	13,52,	11,51,	171,190,	
173,191,	15,61,	13,52,	13,52,	
174,192,	175,193,	13,56,	15,64,	
176,194,	177,195,	17,68,	178,196,	
15,61,	15,64,	123,147,	123,148,	
15,65,	168,186,	17,69,	17,70,	
168,187,	180,197,	13,52,	13,57,	
142,0,	142,0,	181,198,	168,188,	
182,199,	11,48,	11,48,	11,48,	
15,65,	15,65,	13,57,	124,146,	
185,201,	123,147,	146,165,	146,166,	
186,202,	187,203,	17,68,	188,204,	
15,65,	190,205,	191,206,	142,0,	
17,68,	192,207,	13,58,	193,208,	
194,209,	17,68,	17,68,	195,210,	
19,73,	17,68,	197,213,	124,148,	
15,66,	146,165,	196,211,	196,212,	
19,73,	19,74,	100,0,	199,214,	
100,0,	202,218,	203,219,	204,220,	
205,221,	17,68,	17,71,	206,222,	
131,0,	207,223,	21,76,	211,224,	
212,225,	13,59,	13,59,	13,59,	
13,60,	17,71,	21,76,	21,77,	
19,73,	147,147,	147,148,	15,67,	
15,61,	15,61,	19,73,	213,226,	
214,227,	215,228,	218,230,	19,73,	
19,73,	17,68,	123,157,	19,73,	
219,231,	220,232,	184,184,	184,184,	
221,233,	222,234,	21,76,	223,235,	
147,147,	224,236,	225,237,	226,238,	
21,76,	227,239,	23,80,	19,73,	
19,73,	21,76,	21,76,	200,200,	
200,200,	21,76,	23,80,	23,81,	
25,83,	184,184,	123,148,	19,73,	
17,72,	228,240,	17,68,	229,241,	
25,83,	25,84,	142,0,	231,242,	
142,0,	21,76,	21,78,	232,243,	
165,165,	165,166,	200,200,	19,75,	
233,244,	234,245,	23,80,	235,246,	
237,247,	21,78,	146,166,	238,248,	
23,80,	239,249,	240,250,	241,251,	
25,83,	23,80,	23,80,	242,252,	
244,253,	23,80,	25,83,	165,165,	
246,254,	21,76,	247,255,	25,83,	
25,83,	201,216,	201,216,	25,83,	
248,256,	250,258,	19,73,	19,73,	
19,73,	23,80,	23,80,	251,259,	
252,260,	217,217,	217,217,	253,261,	
254,262,	256,263,	27,86,	25,83,	
25,83,	23,80,	216,216,	216,216,	
201,216,	258,264,	27,87,	27,88,	
21,76,	259,265,	21,79,	25,83,	
260,266,	147,148,	261,267,	262,268,	
217,217,	23,82,	264,269,	265,270,	
249,249,	249,249,	266,271,	267,272,	
269,273,	216,216,	270,274,	25,85,	
184,200,	272,275,	27,86,	274,277,	
273,273,	273,273,	277,277,	277,277,	
27,86,	0,0,	29,89,	0,0,	
200,215,	27,86,	27,86,	249,249,	
0,0,	27,86,	29,89,	29,90,	
23,80,	23,80,	23,80,	0,0,	
0,0,	0,0,	0,0,	273,273,	
0,0,	277,277,	25,83,	25,83,	
25,83,	27,86,	27,86,	0,0,	
0,0,	0,0,	0,0,	0,0,	
165,166,	0,0,	29,89,	0,0,	
0,0,	27,86,	0,0,	0,0,	
29,89,	0,0,	0,0,	0,0,	
0,0,	29,89,	29,89,	31,92,	
217,229,	29,89,	0,0,	0,0,	
0,0,	27,86,	0,0,	31,92,	
31,93,	0,0,	0,0,	201,217,	
0,0,	0,0,	0,0,	0,0,	
0,0,	29,89,	29,89,	56,105,	
56,105,	56,105,	56,105,	56,105,	
56,105,	56,105,	56,105,	56,105,	
56,105,	29,89,	0,0,	31,92,	
216,217,	0,0,	0,0,	0,0,	
27,87,	31,92,	27,87,	33,96,	
0,0,	0,0,	31,92,	31,92,	
0,0,	29,89,	31,92,	33,96,	
33,0,	41,99,	0,0,	0,0,	
249,257,	0,0,	0,0,	0,0,	
0,0,	41,0,	41,0,	0,0,	
0,0,	0,0,	31,92,	31,92,	
273,276,	0,0,	277,278,	0,0,	
0,0,	0,0,	0,0,	33,96,	
0,0,	0,0,	31,92,	0,0,	
29,89,	33,96,	29,91,	0,0,	
41,0,	41,99,	33,96,	33,96,	
0,0,	0,0,	33,96,	41,99,	
0,0,	0,0,	31,92,	0,0,	
41,0,	41,99,	0,0,	0,0,	
41,99,	0,0,	0,0,	0,0,	
0,0,	45,100,	33,96,	33,96,	
0,0,	0,0,	0,0,	0,0,	
0,0,	45,0,	45,0,	55,104,	
41,99,	41,99,	33,96,	0,0,	
0,0,	0,0,	0,0,	55,104,	
55,0,	31,94,	0,0,	31,95,	
41,99,	0,0,	0,0,	0,0,	
0,0,	0,0,	33,97,	0,0,	
45,0,	45,100,	0,0,	0,0,	
0,0,	0,0,	0,0,	45,100,	
41,99,	0,0,	0,0,	55,104,	
45,100,	45,100,	0,0,	0,0,	
45,100,	55,104,	0,0,	0,0,	
0,0,	0,0,	55,104,	55,104,	
0,0,	0,0,	55,104,	0,0,	
0,0,	33,96,	33,96,	33,96,	
45,100,	45,100,	0,0,	0,0,	
0,0,	0,0,	0,0,	41,0,	
0,0,	41,0,	55,104,	55,104,	
45,100,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	55,104,	0,0,	
0,0,	0,0,	0,0,	0,0,	
45,100,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	55,104,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	57,106,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	45,0,	
0,0,	45,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	55,104,	0,0,	55,104,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	57,107,	57,107,	
57,107,	57,107,	58,108,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	58,108,	58,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	58,109,	58,108,	0,0,	
0,0,	0,0,	0,0,	0,0,	
58,108,	58,110,	0,0,	0,0,	
0,0,	58,108,	58,108,	0,0,	
0,0,	58,108,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	58,111,	58,112,	58,111,	
58,111,	58,111,	58,111,	58,111,	
58,111,	58,111,	58,111,	58,111,	
58,111,	58,113,	58,111,	58,111,	
58,114,	58,111,	58,111,	58,111,	
58,111,	58,111,	58,111,	58,111,	
58,111,	58,111,	58,111,	58,111,	
58,115,	58,108,	0,0,	0,0,	
0,0,	0,0,	58,116,	58,117,	
58,118,	58,119,	58,120,	58,121,	
58,111,	58,111,	58,122,	0,0,	
58,111,	58,123,	58,111,	58,111,	
58,124,	58,125,	58,111,	58,126,	
58,127,	58,111,	58,111,	58,128,	
58,111,	58,111,	58,111,	58,111,	
58,108,	64,131,	58,108,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	64,0,	64,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
64,0,	64,131,	0,0,	0,0,	
0,0,	0,0,	0,0,	64,131,	
0,0,	0,0,	0,0,	0,0,	
64,131,	64,131,	0,0,	0,0,	
64,131,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
64,131,	64,131,	0,0,	0,0,	
0,0,	65,131,	0,0,	0,0,	
0,0,	0,0,	0,0,	65,131,	
64,131,	0,0,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
0,0,	0,0,	0,0,	65,131,	
64,131,	0,0,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	0,0,	0,0,	64,0,	
0,0,	64,131,	65,131,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	65,132,	65,132,	65,132,	
65,132,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
66,133,	66,133,	66,133,	66,133,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	71,136,	71,136,	
71,136,	71,136,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
78,139,	78,139,	78,139,	78,139,	
86,142,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
86,0,	86,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	86,0,	
86,142,	0,0,	0,0,	0,0,	
0,0,	0,0,	86,142,	0,0,	
0,0,	0,0,	0,0,	86,142,	
86,142,	0,0,	0,0,	86,142,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	86,142,	
86,142,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	86,142,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	86,142,	
0,0,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	0,0,	
0,0,	0,0,	86,0,	0,0,	
86,0,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	106,144,	
106,144,	106,144,	106,144,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	111,145,	111,145,	
111,145,	111,145,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
144,144,	144,144,	144,144,	144,144,	
0,0};
struct yysvf yysvec[] = {
0,	0,	0,
yycrank+0,	0,		yyvstop+1,
yycrank+0,	0,		yyvstop+3,
yycrank+-1,	0,		yyvstop+5,
yycrank+0,	yysvec+3,	yyvstop+7,
yycrank+-8,	0,		yyvstop+9,
yycrank+-1,	yysvec+5,	yyvstop+11,
yycrank+-15,	0,		yyvstop+13,
yycrank+0,	yysvec+7,	yyvstop+15,
yycrank+-77,	0,		yyvstop+17,
yycrank+0,	yysvec+9,	yyvstop+19,
yycrank+-118,	0,		yyvstop+21,
yycrank+-6,	yysvec+11,	yyvstop+23,
yycrank+-170,	0,		yyvstop+25,
yycrank+-21,	yysvec+13,	yyvstop+27,
yycrank+-180,	0,		yyvstop+29,
yycrank+-5,	yysvec+15,	yyvstop+31,
yycrank+-221,	0,		yyvstop+33,
yycrank+0,	yysvec+17,	yyvstop+35,
yycrank+-267,	0,		yyvstop+37,
yycrank+-8,	yysvec+19,	yyvstop+39,
yycrank+-289,	0,		yyvstop+41,
yycrank+0,	yysvec+21,	yyvstop+43,
yycrank+-329,	0,		yyvstop+45,
yycrank+-10,	yysvec+23,	yyvstop+47,
yycrank+-339,	0,		yyvstop+49,
yycrank+-11,	yysvec+25,	yyvstop+51,
yycrank+-401,	0,		yyvstop+53,
yycrank+0,	yysvec+27,	yyvstop+55,
yycrank+-441,	0,		yyvstop+57,
yycrank+0,	yysvec+29,	yyvstop+59,
yycrank+-486,	0,		yyvstop+61,
yycrank+0,	yysvec+31,	yyvstop+63,
yycrank+-526,	0,		yyvstop+65,
yycrank+-12,	yysvec+33,	yyvstop+67,
yycrank+0,	0,		yyvstop+69,
yycrank+0,	0,		yyvstop+71,
yycrank+0,	0,		yyvstop+73,
yycrank+0,	0,		yyvstop+76,
yycrank+0,	0,		yyvstop+78,
yycrank+2,	0,		yyvstop+80,
yycrank+-536,	0,		yyvstop+82,
yycrank+0,	0,		yyvstop+85,
yycrank+0,	0,		yyvstop+87,
yycrank+0,	0,		yyvstop+89,
yycrank+-588,	0,		yyvstop+92,
yycrank+0,	0,		yyvstop+95,
yycrank+0,	0,		yyvstop+97,
yycrank+0,	0,		yyvstop+99,
yycrank+0,	0,		yyvstop+101,
yycrank+0,	0,		yyvstop+103,
yycrank+3,	0,		yyvstop+106,
yycrank+0,	0,		yyvstop+108,
yycrank+2,	0,		yyvstop+110,
yycrank+7,	0,		yyvstop+112,
yycrank+-598,	0,		yyvstop+115,
yycrank+459,	0,		yyvstop+118,
yycrank+659,	0,		yyvstop+121,
yycrank+-781,	0,		yyvstop+123,
yycrank+0,	0,		yyvstop+126,
yycrank+0,	0,		yyvstop+129,
yycrank+0,	0,		yyvstop+132,
yycrank+23,	0,		yyvstop+134,
yycrank+0,	0,		yyvstop+137,
yycrank+-904,	0,		yyvstop+139,
yycrank+934,	0,		yyvstop+142,
yycrank+993,	0,		yyvstop+144,
yycrank+14,	0,		yyvstop+146,
yycrank+0,	0,		yyvstop+149,
yycrank+65,	0,		yyvstop+151,
yycrank+0,	yysvec+69,	yyvstop+153,
yycrank+1051,	0,		yyvstop+155,
yycrank+58,	0,		yyvstop+158,
yycrank+0,	0,		yyvstop+160,
yycrank+0,	0,		yyvstop+162,
yycrank+2,	0,		yyvstop+164,
yycrank+0,	0,		yyvstop+166,
yycrank+0,	0,		yyvstop+168,
yycrank+1109,	0,		yyvstop+170,
yycrank+0,	0,		yyvstop+173,
yycrank+0,	0,		yyvstop+176,
yycrank+0,	0,		yyvstop+178,
yycrank+2,	0,		yyvstop+180,
yycrank+0,	0,		yyvstop+182,
yycrank+0,	0,		yyvstop+184,
yycrank+9,	0,		yyvstop+186,
yycrank+-1231,	0,		yyvstop+188,
yycrank+0,	0,		yyvstop+191,
yycrank+0,	0,		yyvstop+193,
yycrank+0,	0,		yyvstop+195,
yycrank+0,	0,		yyvstop+197,
yycrank+0,	0,		yyvstop+199,
yycrank+0,	0,		yyvstop+202,
yycrank+0,	0,		yyvstop+204,
yycrank+0,	0,		yyvstop+206,
yycrank+0,	0,		yyvstop+209,
yycrank+0,	0,		yyvstop+212,
yycrank+3,	0,		yyvstop+214,
yycrank+0,	0,		yyvstop+216,
yycrank+-73,	yysvec+41,	yyvstop+218,
yycrank+-155,	yysvec+45,	yyvstop+220,
yycrank+0,	0,		yyvstop+222,
yycrank+0,	0,		yyvstop+224,
yycrank+0,	0,		yyvstop+226,
yycrank+-2,	yysvec+55,	yyvstop+228,
yycrank+0,	yysvec+56,	yyvstop+230,
yycrank+1260,	yysvec+57,	0,	
yycrank+0,	yysvec+57,	yyvstop+232,
yycrank+0,	0,		yyvstop+234,
yycrank+0,	0,		yyvstop+236,
yycrank+0,	0,		yyvstop+239,
yycrank+1319,	0,		yyvstop+242,
yycrank+16,	yysvec+111,	yyvstop+245,
yycrank+19,	yysvec+111,	yyvstop+248,
yycrank+79,	yysvec+111,	yyvstop+251,
yycrank+0,	0,		yyvstop+254,
yycrank+5,	yysvec+111,	yyvstop+257,
yycrank+7,	yysvec+111,	yyvstop+260,
yycrank+4,	yysvec+111,	yyvstop+263,
yycrank+12,	yysvec+111,	yyvstop+266,
yycrank+4,	yysvec+111,	yyvstop+269,
yycrank+4,	yysvec+111,	yyvstop+272,
yycrank+60,	yysvec+111,	yyvstop+275,
yycrank+217,	yysvec+111,	yyvstop+278,
yycrank+146,	yysvec+111,	yyvstop+281,
yycrank+2,	yysvec+111,	yyvstop+284,
yycrank+17,	yysvec+111,	yyvstop+287,
yycrank+57,	yysvec+111,	yyvstop+290,
yycrank+19,	yysvec+111,	yyvstop+293,
yycrank+0,	yysvec+62,	yyvstop+296,
yycrank+0,	yysvec+67,	yyvstop+298,
yycrank+-165,	yysvec+64,	yyvstop+300,
yycrank+0,	yysvec+65,	0,	
yycrank+0,	yysvec+66,	yyvstop+302,
yycrank+0,	yysvec+69,	0,	
yycrank+0,	yysvec+72,	0,	
yycrank+0,	yysvec+71,	yyvstop+304,
yycrank+38,	0,		0,	
yycrank+0,	0,		yyvstop+306,
yycrank+0,	yysvec+78,	yyvstop+308,
yycrank+33,	0,		0,	
yycrank+0,	0,		yyvstop+310,
yycrank+-227,	yysvec+86,	yyvstop+312,
yycrank+39,	0,		0,	
yycrank+1377,	0,		yyvstop+314,
yycrank+0,	yysvec+111,	yyvstop+316,
yycrank+241,	yysvec+111,	yyvstop+318,
yycrank+292,	0,		yyvstop+320,
yycrank+0,	0,		yyvstop+322,
yycrank+47,	yysvec+111,	yyvstop+324,
yycrank+3,	yysvec+111,	yyvstop+326,
yycrank+36,	yysvec+111,	yyvstop+328,
yycrank+57,	yysvec+111,	yyvstop+330,
yycrank+61,	yysvec+111,	yyvstop+332,
yycrank+61,	yysvec+111,	yyvstop+334,
yycrank+56,	yysvec+111,	yyvstop+336,
yycrank+93,	yysvec+111,	yyvstop+338,
yycrank+70,	yysvec+111,	yyvstop+340,
yycrank+70,	yysvec+111,	yyvstop+342,
yycrank+75,	yysvec+111,	yyvstop+344,
yycrank+68,	yysvec+111,	yyvstop+346,
yycrank+72,	yysvec+111,	yyvstop+348,
yycrank+77,	0,		0,	
yycrank+95,	0,		0,	
yycrank+99,	0,		0,	
yycrank+347,	0,		yyvstop+350,
yycrank+0,	0,		yyvstop+352,
yycrank+96,	yysvec+111,	yyvstop+354,
yycrank+124,	yysvec+111,	yyvstop+356,
yycrank+107,	yysvec+111,	yyvstop+358,
yycrank+0,	yysvec+111,	yyvstop+360,
yycrank+94,	yysvec+111,	yyvstop+363,
yycrank+0,	yysvec+111,	yyvstop+365,
yycrank+96,	yysvec+111,	yyvstop+368,
yycrank+108,	yysvec+111,	yyvstop+370,
yycrank+116,	yysvec+111,	yyvstop+372,
yycrank+103,	yysvec+111,	yyvstop+374,
yycrank+120,	yysvec+111,	yyvstop+376,
yycrank+122,	yysvec+111,	yyvstop+378,
yycrank+0,	yysvec+111,	yyvstop+380,
yycrank+134,	yysvec+111,	yyvstop+383,
yycrank+140,	yysvec+111,	yyvstop+385,
yycrank+142,	0,		0,	
yycrank+0,	0,		yyvstop+387,
yycrank+309,	0,		0,	
yycrank+138,	yysvec+111,	yyvstop+389,
yycrank+136,	yysvec+111,	yyvstop+391,
yycrank+148,	yysvec+111,	yyvstop+393,
yycrank+139,	yysvec+111,	yyvstop+395,
yycrank+0,	yysvec+111,	yyvstop+397,
yycrank+148,	yysvec+111,	yyvstop+400,
yycrank+148,	yysvec+111,	yyvstop+402,
yycrank+144,	yysvec+111,	yyvstop+404,
yycrank+143,	yysvec+111,	yyvstop+406,
yycrank+148,	yysvec+111,	yyvstop+408,
yycrank+159,	yysvec+111,	yyvstop+410,
yycrank+160,	yysvec+111,	yyvstop+412,
yycrank+159,	yysvec+111,	yyvstop+414,
yycrank+0,	yysvec+111,	yyvstop+416,
yycrank+182,	0,		0,	
yycrank+326,	0,		0,	
yycrank+376,	yysvec+111,	yyvstop+419,
yycrank+180,	yysvec+111,	yyvstop+422,
yycrank+171,	yysvec+111,	yyvstop+424,
yycrank+162,	yysvec+111,	yyvstop+426,
yycrank+183,	yysvec+111,	yyvstop+428,
yycrank+176,	yysvec+111,	yyvstop+430,
yycrank+189,	yysvec+111,	yyvstop+432,
yycrank+0,	yysvec+111,	yyvstop+434,
yycrank+0,	yysvec+111,	yyvstop+437,
yycrank+0,	yysvec+111,	yyvstop+440,
yycrank+190,	yysvec+111,	yyvstop+443,
yycrank+176,	yysvec+111,	yyvstop+445,
yycrank+190,	yysvec+111,	yyvstop+447,
yycrank+192,	0,		0,	
yycrank+208,	0,		0,	
yycrank+397,	0,		0,	
yycrank+388,	0,		0,	
yycrank+201,	yysvec+111,	yyvstop+449,
yycrank+213,	yysvec+111,	yyvstop+451,
yycrank+209,	yysvec+111,	yyvstop+453,
yycrank+210,	yysvec+111,	yyvstop+455,
yycrank+205,	yysvec+111,	yyvstop+457,
yycrank+222,	yysvec+111,	yyvstop+459,
yycrank+223,	yysvec+111,	yyvstop+461,
yycrank+205,	yysvec+111,	yyvstop+463,
yycrank+217,	yysvec+111,	yyvstop+465,
yycrank+224,	0,		0,	
yycrank+231,	0,		0,	
yycrank+236,	0,		0,	
yycrank+0,	yysvec+111,	yyvstop+467,
yycrank+237,	yysvec+111,	yyvstop+470,
yycrank+254,	yysvec+111,	yyvstop+472,
yycrank+244,	yysvec+111,	yyvstop+474,
yycrank+260,	yysvec+111,	yyvstop+476,
yycrank+252,	yysvec+111,	yyvstop+478,
yycrank+0,	yysvec+111,	yyvstop+481,
yycrank+256,	yysvec+111,	yyvstop+484,
yycrank+251,	yysvec+111,	yyvstop+486,
yycrank+260,	0,		0,	
yycrank+272,	0,		0,	
yycrank+272,	0,		0,	
yycrank+278,	yysvec+111,	yyvstop+488,
yycrank+0,	yysvec+111,	yyvstop+490,
yycrank+261,	yysvec+111,	yyvstop+493,
yycrank+0,	yysvec+111,	yyvstop+495,
yycrank+270,	yysvec+111,	yyvstop+498,
yycrank+281,	yysvec+111,	yyvstop+500,
yycrank+287,	yysvec+111,	yyvstop+502,
yycrank+415,	0,		0,	
yycrank+292,	0,		0,	
yycrank+278,	0,		0,	
yycrank+284,	yysvec+111,	yyvstop+504,
yycrank+283,	yysvec+111,	yyvstop+506,
yycrank+292,	yysvec+111,	yyvstop+508,
yycrank+0,	yysvec+111,	yyvstop+510,
yycrank+287,	yysvec+111,	yyvstop+513,
yycrank+0,	0,		yyvstop+515,
yycrank+293,	0,		0,	
yycrank+304,	0,		0,	
yycrank+312,	yysvec+111,	yyvstop+517,
yycrank+297,	yysvec+111,	yyvstop+519,
yycrank+298,	yysvec+111,	yyvstop+521,
yycrank+0,	yysvec+111,	yyvstop+523,
yycrank+317,	0,		0,	
yycrank+322,	0,		0,	
yycrank+305,	yysvec+111,	yyvstop+526,
yycrank+319,	yysvec+111,	yyvstop+528,
yycrank+0,	yysvec+111,	yyvstop+530,
yycrank+319,	0,		0,	
yycrank+320,	0,		0,	
yycrank+0,	yysvec+111,	yyvstop+533,
yycrank+332,	yysvec+111,	yyvstop+536,
yycrank+427,	0,		0,	
yycrank+319,	0,		0,	
yycrank+0,	yysvec+111,	yyvstop+538,
yycrank+0,	0,		yyvstop+541,
yycrank+429,	0,		0,	
yycrank+0,	0,		yyvstop+543,
0,	0,	0};
struct yywork *yytop = yycrank+1499;
struct yysvf *yybgin = yysvec+1;
char yymatch[] = {
  0,   1,   1,   1,   1,   1,   1,   1, 
  1,   9,  10,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  9,  33,   1,   1,   1,   1,   1,  39, 
  1,   1,   1,   1,  44,  45,   1,   1, 
 48,  48,  48,  48,  48,  48,  48,  48, 
 48,  48,   1,   1,   1,  45,   1,  33, 
 64,  65,  65,  65,  65,  65,  65,  65, 
 65,  65,  65,  65,  76,  65,  65,  76, 
 65,  65,  65,  65,  65,  65,  65,  65, 
 65,  65,  65,   1,  92,   1,   1,   1, 
 45,  65,  65,  65,  65,  65,  65,  65, 
 65,  76,  76,  65,  76,  65,  65,  76, 
 65,  65,  65,  65,  65,  65,  65,  65, 
 65,  65,  65, 123,  92, 125,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
  1,   1,   1,   1,   1,   1,   1,   1, 
0};
char yyextra[] = {
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0};
/*	Copyright (c) 1989 AT&T	*/
/*	  All Rights Reserved  	*/

/*	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T	*/
/*	The copyright notice above does not evidence any   	*/
/*	actual or intended publication of such source code.	*/

#pragma ident	"@(#)ncform	6.8	95/02/11 SMI"

int yylineno =1;
# define YYU(x) x
# define NLSTATE yyprevious=YYNEWLINE
struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp;
char yysbuf[YYLMAX];
char *yysptr = yysbuf;
int *yyfnd;
extern struct yysvf *yyestate;
int yyprevious = YYNEWLINE;
#if defined(__cplusplus) || defined(__STDC__)
int yylook(void)
#else
yylook()
#endif
{
	register struct yysvf *yystate, **lsp;
	register struct yywork *yyt;
	struct yysvf *yyz;
	int yych, yyfirst;
	struct yywork *yyr;
# ifdef LEXDEBUG
	int debug;
# endif
	char *yylastch;
	/* start off machines */
# ifdef LEXDEBUG
	debug = 0;
# endif
	yyfirst=1;
	if (!yymorfg)
		yylastch = yytext;
	else {
		yymorfg=0;
		yylastch = yytext+yyleng;
		}
	for(;;){
		lsp = yylstate;
		yyestate = yystate = yybgin;
		if (yyprevious==YYNEWLINE) yystate++;
		for (;;){
# ifdef LEXDEBUG
			if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1);
# endif
			yyt = yystate->yystoff;
			if(yyt == yycrank && !yyfirst){  /* may not be any transitions */
				yyz = yystate->yyother;
				if(yyz == 0)break;
				if(yyz->yystoff == yycrank)break;
				}
#ifndef __cplusplus
			*yylastch++ = yych = input();
#else
			*yylastch++ = yych = lex_input();
#endif
			if(yylastch > &yytext[YYLMAX]) {
				fprintf(yyout,"Input string too long, limit %d\n",YYLMAX);
				exit(1);
			}
			yyfirst=0;
		tryagain:
# ifdef LEXDEBUG
			if(debug){
				fprintf(yyout,"char ");
				allprint(yych);
				putchar('\n');
				}
# endif
			yyr = yyt;
			if ( (int)yyt > (int)yycrank){
				yyt = yyr + yych;
				if (yyt <= yytop && yyt->verify+yysvec == yystate){
					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
						{unput(*--yylastch);break;}
					*lsp++ = yystate = yyt->advance+yysvec;
					if(lsp > &yylstate[YYLMAX]) {
						fprintf(yyout,"Input string too long, limit %d\n",YYLMAX);
						exit(1);
					}
					goto contin;
					}
				}
# ifdef YYOPTIM
			else if((int)yyt < (int)yycrank) {		/* r < yycrank */
				yyt = yyr = yycrank+(yycrank-yyt);
# ifdef LEXDEBUG
				if(debug)fprintf(yyout,"compressed state\n");
# endif
				yyt = yyt + yych;
				if(yyt <= yytop && yyt->verify+yysvec == yystate){
					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
						{unput(*--yylastch);break;}
					*lsp++ = yystate = yyt->advance+yysvec;
					if(lsp > &yylstate[YYLMAX]) {
						fprintf(yyout,"Input string too long, limit %d\n",YYLMAX);
						exit(1);
					}
					goto contin;
					}
				yyt = yyr + YYU(yymatch[yych]);
# ifdef LEXDEBUG
				if(debug){
					fprintf(yyout,"try fall back character ");
					allprint(YYU(yymatch[yych]));
					putchar('\n');
					}
# endif
				if(yyt <= yytop && yyt->verify+yysvec == yystate){
					if(yyt->advance+yysvec == YYLERR)	/* error transition */
						{unput(*--yylastch);break;}
					*lsp++ = yystate = yyt->advance+yysvec;
					if(lsp > &yylstate[YYLMAX]) {
						fprintf(yyout,"Input string too long, limit %d\n",YYLMAX);
						exit(1);
					}
					goto contin;
					}
				}
			if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank){
# ifdef LEXDEBUG
				if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-1);
# endif
				goto tryagain;
				}
# endif
			else
				{unput(*--yylastch);break;}
		contin:
# ifdef LEXDEBUG
			if(debug){
				fprintf(yyout,"state %d char ",yystate-yysvec-1);
				allprint(yych);
				putchar('\n');
				}
# endif
			;
			}
# ifdef LEXDEBUG
		if(debug){
			fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1);
			allprint(yych);
			putchar('\n');
			}
# endif
		while (lsp-- > yylstate){
			*yylastch-- = 0;
			if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0){
				yyolsp = lsp;
				if(yyextra[*yyfnd]){		/* must backup */
					while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate){
						lsp--;
						unput(*yylastch--);
						}
					}
				yyprevious = YYU(*yylastch);
				yylsp = lsp;
				yyleng = yylastch-yytext+1;
				yytext[yyleng] = 0;
# ifdef LEXDEBUG
				if(debug){
					fprintf(yyout,"\nmatch ");
					sprint(yytext);
					fprintf(yyout," action %d\n",*yyfnd);
					}
# endif
				return(*yyfnd++);
				}
			unput(*yylastch);
			}
		if (yytext[0] == 0  /* && feof(yyin) */)
			{
			yysptr=yysbuf;
			return(0);
			}
#ifndef __cplusplus
		yyprevious = yytext[0] = input();
		if (yyprevious>0)
			output(yyprevious);
#else
		yyprevious = yytext[0] = lex_input();
		if (yyprevious>0)
			lex_output(yyprevious);
#endif
		yylastch=yytext;
# ifdef LEXDEBUG
		if(debug)putchar('\n');
# endif
		}
	}
#if defined(__cplusplus) || defined(__STDC__)
int yyback(int *p, int m)
#else
yyback(p, m)
	int *p;
#endif
{
	if (p==0) return(0);
	while (*p) {
		if (*p++ == m)
			return(1);
	}
	return(0);
}
	/* the following are only used in the lex library */
#if defined(__cplusplus) || defined(__STDC__)
int yyinput(void)
#else
yyinput()
#endif
{
#ifndef __cplusplus
	return(input());
#else
	return(lex_input());
#endif
	}
#if defined(__cplusplus) || defined(__STDC__)
void yyoutput(int c)
#else
yyoutput(c)
  int c; 
#endif
{
#ifndef __cplusplus
	output(c);
#else
	lex_output(c);
#endif
	}
#if defined(__cplusplus) || defined(__STDC__)
void yyunput(int c)
#else
yyunput(c)
   int c; 
#endif
{
	unput(c);
	}