summaryrefslogtreecommitdiff
path: root/obsolete/support/detex/lexout.c
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/support/detex/lexout.c')
-rw-r--r--obsolete/support/detex/lexout.c2855
1 files changed, 2855 insertions, 0 deletions
diff --git a/obsolete/support/detex/lexout.c b/obsolete/support/detex/lexout.c
new file mode 100644
index 0000000000..f7bb364f3a
--- /dev/null
+++ b/obsolete/support/detex/lexout.c
@@ -0,0 +1,2855 @@
+#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);
+ }