$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 7.2-007  22-FEB-1990
$!   On  4-SEP-1990 08:24:55.91   By user MIGLESIAS 
$!
$! This VMS_SHARE Written by:
$!    Andy Harper, Kings College London UK
$!
$! Acknowledgements to:
$!    James Gray       - Original VMS_SHARE
$!    Michael Bednarek - Original Concept and implementation
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$!       1. LEX_YY.C;1
$!
$set="set"
$set symbol/scope=(nolocal,noglobal)
$f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
$e="write sys$error  ""%UNPACK"", "
$w="write sys$output ""%UNPACK"", "
$ if f$trnlnm("SHARE_LOG") then $ w = "!"
$ ve=f$getsyi("version")
$ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto START
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$UNPACK: SUBROUTINE ! P1=filename, P2=checksum
$ if f$search(P1) .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped."
$ delete 'f'*
$ exit
$file_absent:
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'."
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped."
$ delete 'f'*
$ exit
$dirok:
$ w "-I-PROCESS, Processing file ''P1'."
$ if .not. f$verify() then $ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1'
PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET(
SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");b:=
CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(b));
LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION(
BEGINNING_OF(b));g:=0;LOOP EXITIF MARK(NONE)=END_OF(b);x:=ERASE_CHARACTER(1);
IF g=0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x="V" THEN APPEND_LINE;
MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;IF x="+" THEN g:=1;
ERASE_LINE;ENDIF;ELSE IF x="-" THEN IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+")=
1 THEN g:=0;ENDIF;ENDIF;ERASE_LINE;ENDIF;ENDLOOP;t:="0123456789ABCDEF";
POSITION(BEGINNING_OF(b));LOOP r:=SEARCH("`",FORWARD);EXITIF r=0;POSITION(r);
ERASE(r);x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,ERASE_CHARACTER(1))-1;
COPY_TEXT(ASCII(16*x1+x2));ENDLOOP;WRITE_FILE(b,GET_INFO(COMMAND_LINE,
"output_file"));ENDPROCEDURE;Unpacker;QUIT;
$ delete/nolog 'f'*
$ CHECKSUM 'P1'
$ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT
$ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ ENDSUBROUTINE
$START:
$ create 'f'
X# include "stdio.h"
X# define U(x) x
X# define NLSTATE yyprevious=YYNEWLINE
X# define BEGIN yybgin = yysvec + 1 +
X# define INITIAL 0
X# define YYLERR yysvec
X# define YYSTATE (yyestate-yysvec-1)
X# define YYOPTIM 1
X# define YYLMAX 200
X# define output(c) putc(c,yyout)
X# define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getc(yyin))==10?(yyli
Vneno++,yytchar):yytchar)==EOF?0:yytchar)
X# define unput(c) `7Byytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytc
Vhar;`7D
X# define yymore() (yymorfg=1)
X# define ECHO fprintf(yyout, "%s",yytext)
X# define REJECT `7B nstr = yyreject(); goto yyfussy;`7D
Xint yyleng; extern char yytext`5B`5D;
Xint yymorfg;
Xextern char *yysptr, yysbuf`5B`5D;
Xint yytchar;
XFILE *yyin =`7Bstdin`7D, *yyout =`7Bstdout`7D;
Xextern int yylineno;
Xstruct yysvf `7B`20
X`09struct yywork *yystoff;
X`09struct yysvf *yyother;
X`09int *yystops;`7D;
Xstruct yysvf *yyestate;
Xextern struct yysvf yysvec`5B`5D, *yybgin;
X# define YYNEWLINE 10
Xyylex()`7B
Xint nstr; extern int yyprevious;
X                 yyin = Newsrcfp;
Xwhile((nstr = yylook()) >= 0)
Xyyfussy: switch(nstr)`7B
Xcase 0:
Xif(yywrap()) return(0); break;
Xcase 1:
X      ;
Xbreak;
Xcase 2:
X             return(EOL);
Xbreak;
Xcase 3:
X              return(DASH);
Xbreak;
Xcase 4:
X              return(COMMA);
Xbreak;
Xcase 5:
X             `7Byylval.character = yytext`5B0`5D; return(SEPARATOR); `7D
Xbreak;
Xcase 6:
X         `7Byylval.integer = atoi(yytext); return(NUMBER); `7D
Xbreak;
Xcase 7:
X   `7Byylval.string = XtNewString(yytext); return(NAME); `7D
Xbreak;
Xcase 8:
X          `7Byylval.string = XtNewString(yytext); return(NAME); `7D
Xbreak;
Xcase 9:
X            ;
Xbreak;
Xcase 10:
X`7B
X                    optionsLine = XtNewString(yytext);
X                    optionsLine`5ButStrlen(optionsLine) - 1`5D = '\0';
X                  `7D
Xbreak;
Xcase -1:
Xbreak;
Xdefault:
Xfprintf(yyout,"bad switch yylook %d",nstr);
X`7D return(0); `7D
X/* end of yylex */
X/*
X * $Header: /users/ricks/xrn-11/src/RCS/newsrc.l,v 1.6 90/06/22 10:29:00 ric
Vks Exp Locker: ricks $
X */
X
X/*
X * xrn - an X-based NNTP news reader
X *
X * Copyright (c) 1988, 1989, 1990, Ellen M. Sentovich and Rick L. Spickelmie
Vr.
X *
X * Permission to use, copy, modify, and distribute this software and its
X * documentation for any purpose and without fee is hereby granted, provided
X * that the above copyright notice appear in all copies and that both that
X * copyright notice and this permission notice appear in supporting
X * documentation, and that the name of the University of California not
X * be used in advertising or publicity pertaining to distribution of`20
X * the software without specific, written prior permission.  The University
X * of California makes no representations about the suitability of this
X * software for any purpose.  It is provided "as is" without express or
X * implied warranty.
X *
X * THE UNIVERSITY OF CALIFORNIA DISCLAIMS ALL WARRANTIES WITH REGARD TO`20
X * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND`20
X * FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE FOR
X * ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
X * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
X * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN`20
X * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
X */
X
Xyywrap()
X`7B
X    return(1);
X`7D
X
X/*ARGSUSED*/
Xyyerror(s)
Xchar *s;
X`7B
X    /* lint/kludge */
X#ifdef lint
X    (void) yyinput();
X    (void) yyoutput(0);
X    (void) yyunput(0);
X#endif /* lint */
X`7D
X
Xint yyvstop`5B`5D =`7B
X0,
X
X9,
X0,
X
X2,
X0,
X
X5,
X0,
X
X4,
X0,
X
X3,
X0,
X
X6,
X0,
X
X9,
X0,
X
X1,
X2,
X0,
X
X8,
X0,
X
X3,
X8,
X0,
X
X6,
X8,
X0,
X
X8,
X0,
X
X8,
X0,
X
X7,
X0,
X
X1,
X0,
X
X7,
X8,
X0,
X
X7,
X8,
X0,
X
X7,
X8,
X0,
X
X7,
X8,
X0,
X
X7,
X8,
X0,
X
X7,
X8,
X0,
X
X7,
X8,
X0,
X
X10,
X0,
X0`7D;
X# define YYTYPE char
Xstruct yywork `7B YYTYPE verify, advance; `7D yycrank`5B`5D =`7B
X0,0,`090,0,`091,0,`091,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,0,`091,3,`091,4,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`090,0,`091,5,`091,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,6,`091,7,`091,0,`09
X1,0,`091,8,`0910,18,`0910,19,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,0,`091,9,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0910,18,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`098,8,`098,8,`098,8,`09
X8,8,`098,8,`098,8,`098,8,`09
X8,8,`098,8,`098,8,`090,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`091,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X1,0,`091,0,`091,0,`091,0,`09
X1,0,`092,0,`092,0,`092,0,`09
X2,0,`092,0,`092,0,`092,0,`09
X2,0,`092,10,`092,11,`092,0,`09
X2,0,`092,0,`092,0,`092,0,`09
X2,0,`092,0,`092,0,`092,0,`09
X2,0,`092,0,`092,0,`092,0,`09
X2,0,`092,0,`092,0,`092,0,`09
X2,0,`092,0,`092,0,`092,0,`09
X0,0,`092,5,`092,0,`092,0,`09
X2,12,`092,0,`090,0,`092,0,`09
X2,0,`092,0,`092,0,`0927,27,`09
X2,6,`092,13,`090,0,`092,0,`09
X2,14,`090,0,`090,0,`0927,27,`09
X27,28,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`092,0,`09
X2,0,`092,0,`092,0,`092,0,`09
X2,0,`092,15,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0927,27,`09
X0,0,`090,0,`0927,27,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0927,27,`092,0,`09
X2,0,`092,0,`092,0,`090,0,`09
X2,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0927,27,`09
X0,0,`090,0,`090,0,`092,16,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`092,0,`092,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,17,`09
X9,0,`090,0,`099,0,`099,0,`09
X9,0,`099,0,`090,0,`099,0,`09
X0,0,`090,0,`099,0,`099,17,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`099,0,`099,0,`099,0,`09
X9,0,`099,0,`099,0,`099,0,`09
X9,17,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`099,0,`099,0,`09
X9,0,`099,0,`090,0,`099,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`099,0,`099,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,12,`0912,0,`09
X0,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`090,0,`0912,0,`090,0,`09
X0,0,`0912,0,`0912,12,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X12,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`0912,0,`0912,0,`0912,12,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0912,0,`0912,0,`0912,0,`09
X12,0,`090,0,`0912,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X12,0,`0912,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`090,0,`0913,0,`090,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X0,0,`0913,0,`090,0,`090,0,`09
X13,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0913,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X13,0,`0913,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X13,0,`0913,0,`0913,0,`0913,0,`09
X0,0,`0913,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0913,0,`09
X13,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X0,0,`0914,0,`090,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`090,0,`09
X14,0,`090,0,`090,0,`0914,0,`09
X14,14,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0914,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`0914,0,`09
X14,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0914,0,`09
X14,0,`0914,0,`0914,0,`090,0,`09
X14,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0914,0,`0914,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,20,`09
X15,0,`090,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`090,0,`0915,0,`09
X0,0,`090,0,`0915,0,`0915,20,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0915,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`0915,0,`0915,0,`09
X15,20,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0915,0,`0915,0,`09
X15,0,`0915,0,`090,0,`0915,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0915,0,`0915,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`090,0,`0916,0,`09
X0,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`090,0,`0916,0,`090,0,`09
X0,0,`0916,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X16,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`0916,0,`0916,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0916,0,`0916,0,`0916,0,`09
X16,0,`090,0,`0916,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0916,21,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X16,0,`0916,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`090,0,`0917,0,`090,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X0,0,`0917,0,`090,0,`090,0,`09
X17,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0917,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X17,0,`0917,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X17,0,`0917,0,`0917,0,`0917,0,`09
X0,0,`0917,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0917,0,`09
X17,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X0,0,`0920,0,`090,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`090,0,`09
X20,0,`090,0,`090,0,`0920,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0920,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`0920,0,`09
X20,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0920,0,`09
X20,0,`0920,0,`0920,0,`090,0,`09
X20,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0920,0,`0920,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`090,0,`09
X21,0,`090,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`090,0,`0921,0,`09
X0,0,`090,0,`0921,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0921,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`0921,0,`0921,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0921,0,`0921,0,`09
X21,0,`0921,0,`090,0,`0921,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0921,22,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0921,0,`0921,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`090,0,`0922,0,`09
X0,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`090,0,`0922,0,`090,0,`09
X0,0,`0922,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X22,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`0922,0,`0922,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0922,0,`0922,0,`0922,0,`09
X22,0,`090,0,`0922,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0922,23,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X22,0,`0922,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`090,0,`0923,0,`090,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X0,0,`0923,0,`090,0,`090,0,`09
X23,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0923,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X23,0,`0923,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X23,0,`0923,0,`0923,0,`0923,0,`09
X0,0,`0923,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X23,24,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0923,0,`09
X23,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X0,0,`0924,0,`090,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`090,0,`09
X24,0,`090,0,`090,0,`0924,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0924,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`0924,0,`09
X24,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`0924,0,`09
X24,0,`0924,0,`0924,0,`090,0,`09
X24,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0924,25,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0924,0,`0924,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`090,0,`09
X25,0,`090,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`090,0,`0925,0,`09
X0,0,`090,0,`0925,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0925,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`0925,0,`0925,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0925,0,`0925,0,`09
X25,0,`0925,0,`090,0,`0925,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`0925,26,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0925,0,`0925,0,`0926,0,`09
X26,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`0926,0,`0926,27,`0926,0,`09
X26,0,`0926,0,`090,0,`0926,0,`09
X0,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`090,0,`0926,0,`090,0,`09
X0,0,`0926,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X26,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`0926,0,`0926,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`0926,0,`0926,0,`0926,0,`09
X26,0,`090,0,`0926,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X0,0,`090,0,`090,0,`090,0,`09
X26,0,`0926,0,`090,0,`090,0,`09
X0,0`7D;
Xstruct yysvf yysvec`5B`5D =`7B
X0,`090,`090,
Xyycrank+-1,`090,`09`090,`09
Xyycrank+-128,`090,`09`090,`09
Xyycrank+0,`090,`09`09yyvstop+1,
Xyycrank+0,`090,`09`09yyvstop+3,
Xyycrank+0,`090,`09`09yyvstop+5,
Xyycrank+0,`090,`09`09yyvstop+7,
Xyycrank+0,`090,`09`09yyvstop+9,
Xyycrank+33,`090,`09`09yyvstop+11,
Xyycrank+-255,`090,`09`090,`09
Xyycrank+41,`090,`09`09yyvstop+13,
Xyycrank+0,`090,`09`09yyvstop+15,
Xyycrank+-382,`090,`09`09yyvstop+18,
Xyycrank+-509,`09yysvec+12,`09yyvstop+20,
Xyycrank+-636,`09yysvec+12,`09yyvstop+23,
Xyycrank+-763,`090,`09`09yyvstop+26,
Xyycrank+-890,`09yysvec+15,`09yyvstop+28,
Xyycrank+-1017,`09yysvec+9,`09yyvstop+30,
Xyycrank+0,`09yysvec+10,`090,`09
Xyycrank+0,`090,`09`09yyvstop+32,
Xyycrank+-1144,`09yysvec+15,`09yyvstop+34,
Xyycrank+-1271,`09yysvec+15,`09yyvstop+37,
Xyycrank+-1398,`09yysvec+15,`09yyvstop+40,
Xyycrank+-1525,`09yysvec+15,`09yyvstop+43,
Xyycrank+-1652,`09yysvec+15,`09yyvstop+46,
Xyycrank+-1779,`09yysvec+15,`09yyvstop+49,
Xyycrank+-1906,`09yysvec+15,`09yyvstop+52,
Xyycrank+-170,`090,`09`090,`09
Xyycrank+0,`090,`09`09yyvstop+55,
X0,`090,`090`7D;
Xstruct yywork *yytop = yycrank+2033;
Xstruct yysvf *yybgin = yysvec+1;
Xchar yymatch`5B`5D =`7B
X00  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
X01  ,011 ,012 ,01  ,01  ,01  ,01  ,01  ,
X01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
X01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
X011 ,'!' ,01  ,01  ,'$' ,01  ,'$' ,01  ,
X01  ,01  ,01  ,'$' ,01  ,'$' ,'$' ,01  ,
X'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,
X'0' ,'0' ,'!' ,01  ,01  ,01  ,01  ,01  ,
X01  ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
X'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
X'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
X'A' ,'A' ,'A' ,01  ,01  ,01  ,01  ,'$' ,
X01  ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
X'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
X'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
X'A' ,'A' ,'A' ,'$' ,'$' ,'$' ,01  ,01  ,
X0`7D;
Xchar yyextra`5B`5D =`7B
X0,0,0,0,0,0,0,0,
X0,0,0,0,0,0,0,0,
X0`7D;
X/*`09ncform`094.1`0983/08/11`09*/
X
Xint yylineno =1;
X# define YYU(x) x
X# define NLSTATE yyprevious=YYNEWLINE
Xchar yytext`5BYYLMAX`5D;
Xstruct yysvf *yylstate `5BYYLMAX`5D, **yylsp, **yyolsp;
Xchar yysbuf`5BYYLMAX`5D;
Xchar *yysptr = yysbuf;
Xint *yyfnd;
Xextern struct yysvf *yyestate;
Xint yyprevious = YYNEWLINE;
Xyylook()`7B
X`09register struct yysvf *yystate, **lsp;
X`09register struct yywork *yyt;
X`09struct yysvf *yyz;
X`09int yych;
X`09struct yywork *yyr;
X# ifdef LEXDEBUG
X`09int debug;
X# endif
X`09char *yylastch;
X`09/* start off machines */
X# ifdef LEXDEBUG
X`09debug = 0;
X# endif
X`09if (!yymorfg)
X`09`09yylastch = yytext;
X`09else `7B
X`09`09yymorfg=0;
X`09`09yylastch = yytext+yyleng;
X`09`09`7D
X`09for(;;)`7B
X`09`09lsp = yylstate;
X`09`09yyestate = yystate = yybgin;
X`09`09if (yyprevious==YYNEWLINE) yystate++;
X`09`09for (;;)`7B
X# ifdef LEXDEBUG
X`09`09`09if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1);
X# endif
X`09`09`09yyt = yystate->yystoff;
X`09`09`09if(yyt == yycrank)`7B`09`09/* may not be any transitions */
X`09`09`09`09yyz = yystate->yyother;
X`09`09`09`09if(yyz == 0)break;
X`09`09`09`09if(yyz->yystoff == yycrank)break;
X`09`09`09`09`7D
X`09`09`09*yylastch++ = yych = input();
X`09`09tryagain:
X# ifdef LEXDEBUG
X`09`09`09if(debug)`7B
X`09`09`09`09fprintf(yyout,"char ");
X`09`09`09`09allprint(yych);
X`09`09`09`09putchar('\n');
X`09`09`09`09`7D
X# endif
X`09`09`09yyr = yyt;
X`09`09`09if ( (int)yyt > (int)yycrank)`7B
X`09`09`09`09yyt = yyr + yych;
X`09`09`09`09if (yyt <= yytop && yyt->verify+yysvec == yystate)`7B
X`09`09`09`09`09if(yyt->advance+yysvec == YYLERR)`09/* error transitions */
X`09`09`09`09`09`09`7Bunput(*--yylastch);break;`7D
X`09`09`09`09`09*lsp++ = yystate = yyt->advance+yysvec;
X`09`09`09`09`09goto contin;
X`09`09`09`09`09`7D
X`09`09`09`09`7D
X# ifdef YYOPTIM
X`09`09`09else if((int)yyt < (int)yycrank) `7B`09`09/* r < yycrank */
X`09`09`09`09yyt = yyr = yycrank+(yycrank-yyt);
X# ifdef LEXDEBUG
X`09`09`09`09if(debug)fprintf(yyout,"compressed state\n");
X# endif
X`09`09`09`09yyt = yyt + yych;
X`09`09`09`09if(yyt <= yytop && yyt->verify+yysvec == yystate)`7B
X`09`09`09`09`09if(yyt->advance+yysvec == YYLERR)`09/* error transitions */
X`09`09`09`09`09`09`7Bunput(*--yylastch);break;`7D
X`09`09`09`09`09*lsp++ = yystate = yyt->advance+yysvec;
X`09`09`09`09`09goto contin;
X`09`09`09`09`09`7D
X`09`09`09`09yyt = yyr + YYU(yymatch`5Byych`5D);
X# ifdef LEXDEBUG
X`09`09`09`09if(debug)`7B
X`09`09`09`09`09fprintf(yyout,"try fall back character ");
X`09`09`09`09`09allprint(YYU(yymatch`5Byych`5D));
X`09`09`09`09`09putchar('\n');
X`09`09`09`09`09`7D
X# endif
X`09`09`09`09if(yyt <= yytop && yyt->verify+yysvec == yystate)`7B
X`09`09`09`09`09if(yyt->advance+yysvec == YYLERR)`09/* error transition */
X`09`09`09`09`09`09`7Bunput(*--yylastch);break;`7D
X`09`09`09`09`09*lsp++ = yystate = yyt->advance+yysvec;
X`09`09`09`09`09goto contin;
X`09`09`09`09`09`7D
X`09`09`09`09`7D
X`09`09`09if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycr
Vank)`7B
X# ifdef LEXDEBUG
X`09`09`09`09if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-
V1);
X# endif
X`09`09`09`09goto tryagain;
X`09`09`09`09`7D
X# endif
X`09`09`09else
X`09`09`09`09`7Bunput(*--yylastch);break;`7D
X`09`09contin:
X# ifdef LEXDEBUG
X`09`09`09if(debug)`7B
X`09`09`09`09fprintf(yyout,"state %d char ",yystate-yysvec-1);
X`09`09`09`09allprint(yych);
X`09`09`09`09putchar('\n');
X`09`09`09`09`7D
X# endif
X`09`09`09;
X`09`09`09`7D
X# ifdef LEXDEBUG
X`09`09if(debug)`7B
X`09`09`09fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1);
X`09`09`09allprint(yych);
X`09`09`09putchar('\n');
X`09`09`09`7D
X# endif
X`09`09while (lsp-- > yylstate)`7B
X`09`09`09*yylastch-- = 0;
X`09`09`09if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0)`7B
X`09`09`09`09yyolsp = lsp;
X`09`09`09`09if(yyextra`5B*yyfnd`5D)`7B`09`09/* must backup */
X`09`09`09`09`09while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate)
V`7B
X`09`09`09`09`09`09lsp--;
X`09`09`09`09`09`09unput(*yylastch--);
X`09`09`09`09`09`09`7D
X`09`09`09`09`09`7D
X`09`09`09`09yyprevious = YYU(*yylastch);
X`09`09`09`09yylsp = lsp;
X`09`09`09`09yyleng = yylastch-yytext+1;
X`09`09`09`09yytext`5Byyleng`5D = 0;
X# ifdef LEXDEBUG
X`09`09`09`09if(debug)`7B
X`09`09`09`09`09fprintf(yyout,"\nmatch ");
X`09`09`09`09`09sprint(yytext);
X`09`09`09`09`09fprintf(yyout," action %d\n",*yyfnd);
X`09`09`09`09`09`7D
X# endif
X`09`09`09`09return(*yyfnd++);
X`09`09`09`09`7D
X`09`09`09unput(*yylastch);
X`09`09`09`7D
X`09`09if (yytext`5B0`5D == 0  /* && feof(yyin) */)
X`09`09`09`7B
X`09`09`09yysptr=yysbuf;
X`09`09`09return(0);
X`09`09`09`7D
X`09`09yyprevious = yytext`5B0`5D = input();
X`09`09if (yyprevious>0)
X`09`09`09output(yyprevious);
X`09`09yylastch=yytext;
X# ifdef LEXDEBUG
X`09`09if(debug)putchar('\n');
X# endif
X`09`09`7D
X`09`7D
Xyyback(p, m)
X`09int *p;
X`7B
Xif (p==0) return(0);
Xwhile (*p)
X`09`7B
X`09if (*p++ == m)
X`09`09return(1);
X`09`7D
Xreturn(0);
X`7D
X`09/* the following are only used in the lex library */
Xyyinput()`7B
X`09return(input());
X`09`7D
Xyyoutput(c)
X  int c; `7B
X`09output(c);
X`09`7D
Xyyunput(c)
X   int c; `7B
X`09unput(c);
X`09`7D
$ CALL UNPACK LEX_YY.C;1 138395650
$ v=f$verify(v)
$ EXIT