BSD 4_4 release

[unix-history] / usr / src / contrib / mh-6.8 / zotnet / tws / dtimep.c-lexed

# include "stdio.h"
static int start_cond = 0;
#define BEGIN start_cond =
struct yysvf { 
	struct yywork *yystoff;
	struct yysvf *yyother;
	int *yystops;};
# define Z 2
#ifndef	lint
static char ident[] = "@(#)$Id: dtimep.lex,v 1.1 1991/04/26 21:51:10 sww Exp $";
#endif
#include "tws.h"
#include "../h/strings.h"
#include <ctype.h>
#include <sys/types.h>
#if !defined(SYS5) && !defined(ZONEINFO)
#include <sys/timeb.h>
#endif /* !defined(SYS5) && !defined(ZONEINFO) */

#ifdef SYS5
extern long timezone;
#endif SYS5

/*
 * Patchable flag that says how to interpret NN/NN/NN dates. When
 * true, we do it European style: DD/MM/YY. When false, we do it
 * American style: MM/DD/YY.  Of course, these are all non-RFC822
 * compliant.
 */
int europeandate = 0;

/*
 * Table to convert month names to numeric month.  We use the
 * fact that the low order 5 bits of the sum of the 2nd & 3rd
 * characters of the name is a hash with no collisions for the 12
 * valid month names.  (The mask to 5 bits maps any combination of
 * upper and lower case into the same hash value).
 */
static	int month_map[] = {
	0,
	6,	/* 1 - Jul */
	3,	/* 2 - Apr */
	5,	/* 3 - Jun */
	0,
	10,	/* 5 - Nov */
	0,
	1,	/* 7 - Feb */
	11,	/* 8 - Dec */
	0,
	0,
	0,
	0,
	0,
	0,
	0,	/*15 - Jan */
	0,
	0,
	0,
	2,	/*19 - Mar */
	0,
	8,	/*21 - Sep */
	0,
	9,	/*23 - Oct */
	0,
	0,
	4,	/*26 - May */
	0,
	7	/*28 - Aug */
};
/*
 * Same trick for day-of-week using the hash function
 *  (c1 & 7) + (c2 & 4)
 */
static	int day_map[] = {
	0,
	0,
	0,
	6,	/* 3 - Sat */
	4,	/* 4 - Thu */
	0,
	5,	/* 6 - Fri */
	0,	/* 7 - Sun */
	2,	/* 8 - Tue */
	1	/* 9 - Mon */,
	0,
	3	/*11 - Wed */
};
#define SETDAY	{ tw.tw_wday= day_map[(cp[0] & 7) + (cp[1] & 4)];\
		tw.tw_flags &= ~TW_SDAY; tw.tw_flags |= TW_SEXP;\
		cp += 2; }
#define SETMONTH { tw.tw_mon = month_map[(cp[0] + cp[1]) & 0x1f]; gotdate++;\
		 cp += 2;\
		 SKIPD;}
#define CVT2	(i=(*cp++ - '0'),isdigit(*cp)? i*10 + (*cp++ - '0') : i)
#define SKIPD	{ while ( !isdigit(*cp++) ) ;  --cp; }
#define EXPZONE	{ tw.tw_flags &= ~TW_SZONE; tw.tw_flags |= TW_SZEXP; }
#define ZONE(x)	{ tw.tw_zone=(x); EXPZONE; }
#define ZONED(x) { ZONE(x); tw.tw_flags |= TW_DST; }
#define	LC(c)	(isupper (c) ? tolower (c) : (c))

#ifdef	DSTXXX
#ifndef	BSD42
#include <time.h>
#else	BSD42
#include <sys/time.h>
#endif	BSD42

static	zonehack (tw)
register struct tws *tw;
{
    register struct tm *tm;

    if (twclock (tw) == -1L)
	return;

    tm = localtime (&tw -> tw_clock);
    if (tm -> tm_isdst) {
	tw -> tw_flags |= TW_DST;
	tw -> tw_zone -= 60;
    }
}
#endif	DSTXXX
struct tws *dparsetime (str)
	char *str;
{
	register int i;
	static struct tws tw;
	register char *cp;
	register int gotdate = 0;
#ifndef SYS5
#ifdef ZONEINFO
	struct tm      *tm;
	time_t		clock;
#else
	struct timeb	tb;
#endif	/* ZONEINFO */
#endif	/* not SYS5 */

	start_cond = 0;

	/* Zero out the struct. */
	bzero( (char *) &tw, sizeof tw);

	/* Set default time zone. */
#ifdef SYS5
	tzset( );
	tw.tw_zone = -(timezone / 60);
#else
#ifdef ZONEINFO
	time (&clock);
	tm = localtime(&clock);
	tw.tw_zone = tm->tm_gmtoff / 60;
	if (tm -> tm_isdst)			/* if DST is in effect */
		tw.tw_zone -= 60;		/* reset to normal offset */
#else
	ftime( &tb );
	tw.tw_zone = -tb.timezone;
#endif	/* ZONEINFO */
#endif	/* SYS5 */

	while (isspace(*str))
		str++;
	while ( 1 )
		switch (cp = str, *cp ? lex_string( &str, start_cond) : 0) {

		case -1:
			if (!gotdate || tw.tw_year == 0)
				return 0;
			/* fall through */
		case 0:
			return &tw;

case 1:
			SETDAY;
break;
case 2:
		{
					cp++;
					SETDAY;
					}
break;
case 3:
	{
					if (europeandate) {
						/* European: DD/MM/YY */
						tw.tw_mday = CVT2;
						cp++;
						tw.tw_mon  = CVT2 - 1;
					} else {
						/* American: MM/DD/YY */
						tw.tw_mon  = CVT2 - 1;
						cp++;
						tw.tw_mday = CVT2;
					}
					cp++;
					for (i = 0; isdigit(*cp); )
						i = i*10 + (*cp++ - '0');
					tw.tw_year = i % 100;
					}
break;
case 4:
{
					tw.tw_mday = CVT2;
					while ( !isalpha(*cp++) )
						;
					SETMONTH;
					for (i = 0; isdigit(*cp); )
						i = i*10 + (*cp++ - '0');
					tw.tw_year = i % 100;
					}
break;
case 5:
	{
					cp++;
					SETMONTH;
					tw.tw_mday = CVT2;
					SKIPD;
					for (i = 0; isdigit(*cp); )
						i = i*10 + (*cp++ - '0');
					tw.tw_year = i % 100;
					}
break;
case 6:
		{
					cp++;
					SETMONTH;
					tw.tw_mday = CVT2;
					}
break;
case 7:
	{	/* hack: ctime w/o TZ */
					tw.tw_hour = CVT2; cp++;
					tw.tw_min  = CVT2; cp++;
					tw.tw_sec  = CVT2;
					while( !isdigit(*cp++) )
						;
					cp++;
					tw.tw_year = CVT2;
					}
break;
case 8:
			{
					tw.tw_hour = CVT2; cp++;
					tw.tw_min  = CVT2; cp++;
					tw.tw_sec  = CVT2;
					BEGIN Z;
					}
break;
case 9:
			{
					tw.tw_hour = CVT2; cp++;
					tw.tw_min = CVT2;
					BEGIN Z;
					}
break;
case 10:
			{
					tw.tw_hour = CVT2; cp++;
					if (tw.tw_hour == 12)
						tw.tw_hour = 0;
					tw.tw_min  = CVT2;
					BEGIN Z;
					}
break;
case 11:
			{
					tw.tw_hour = CVT2; cp++;
					if (tw.tw_hour != 12)
						tw.tw_hour += 12;
					tw.tw_min  = CVT2;
					BEGIN Z;
					}
break;
case 12:
		{
					tw.tw_hour = CVT2;
					tw.tw_min  = CVT2;
					tw.tw_sec  = CVT2;
					BEGIN Z;
					}
break;
case 13:
			{
					/*
					 * Luckly, 4 digit times in the range
					 * 1960-1999 aren't legal as hour
					 * and minutes.
					 */
					cp += 2;
					tw.tw_year = CVT2;
					}
break;
case 14:
		{
					if (tw.tw_hour) {
					    cp += 2;
					    tw.tw_year = CVT2;
					    tw.tw_zone = 0;
					} else {
					    tw.tw_hour = CVT2;
					    tw.tw_min  = CVT2;
					    BEGIN Z;
					}
					}
break;
case 15:
			ZONE(0 * 60);
break;
case 16:
			ZONE(0 * 60);
break;
case 17:
			ZONE(2 * 60);
break;
case 18:
			ZONED(2 * 60);
break;
case 19:
			ZONE(-5 * 60);
break;
case 20:
			ZONED(-5 * 60);
break;
case 21:
			ZONE(-6 * 60);
break;
case 22:
			ZONED(-6 * 60);
break;
case 23:
			ZONE(-7 * 60);
break;
case 24:
			ZONED(-7 * 60);
break;
case 25:
			ZONE(-8 * 60);
break;
case 26:
			ZONED(-8 * 60);
break;
case 27:
			ZONE(-(3 * 60 + 30));
break;
case 28:
			ZONE(-4 * 60);
break;
case 29:
			ZONED(-4 * 60);
break;
case 30:
			ZONE(-9 * 60);
break;
case 31:
			ZONED(-9 * 60);
break;
case 32:
			ZONE(-10 * 60);
break;
case 33:
			ZONED(-10 * 60);
break;
case 34:
			ZONED(0 * 60);
break;
case 35:
			{
					tw.tw_zone = 60 * (('a'-1) - LC(*cp));
					EXPZONE; 
					}
break;
case 36:
			{
					tw.tw_zone = 60 * ('a' - LC(*cp));
					EXPZONE; 
					}
break;
case 37:
			{
					tw.tw_zone = 60 * (LC(*cp) - 'm');
					EXPZONE; 
					}
break;
case 38:
		{
					cp++;
					tw.tw_zone = ((cp[0] * 10 + cp[1])
						     -('0' * 10   + '0'))*60
						    +((cp[2] * 10 + cp[3])
						     -('0' * 10   + '0'));
					EXPZONE;
#ifdef	DSTXXX
					zonehack (&tw);
#endif	DSTXXX
					cp += 4;
					}
break;
case 39:
		{
					cp++;
					tw.tw_zone = (('0' * 10   + '0')
						     -(cp[0] * 10 + cp[1]))*60
						    +(('0' * 10   + '0')
						     -(cp[2] * 10 + cp[3]));
					EXPZONE;
#ifdef	DSTXXX
					zonehack (&tw);
#endif	DSTXXX
					cp += 4;
					}
break;
case 40:
		{
					while( !isdigit(*cp++) )
						;
					cp++;
					tw.tw_year = CVT2;
					}
break;
case 41:
case 42:
;
break;
default: return(0);
} }
/* end of yylex */
int yyvstop[] ={
0,

42,
0,

41,
0,

42,
0,

35,
0,

35,
0,

35,
0,

35,
0,

35,
0,

35,
0,

35,
0,

35,
0,

35,
0,

36,
0,

36,
0,

37,
0,

37,
0,

37,
0,

37,
0,

37,
0,

37,
0,

37,
0,

37,
0,

37,
0,

15,
0,

9,
0,

1,
0,

1,
0,

1,
0,

1,
0,

1,
0,

1,
0,

1,
0,

29,
0,

28,
0,

34,
0,

22,
0,

21,
0,

20,
0,

19,
0,

16,
0,

33,
0,

32,
0,

18,
0,

17,
0,

24,
0,

23,
0,

27,
0,

26,
0,

25,
0,

31,
0,

30,
0,

14,
0,

9,
0,

9,
0,

13,
14,
0,

1,
0,

2,
0,

14,
0,

8,
0,

10,
0,

11,
0,

4,
0,

4,
0,

13,
14,
0,

6,
0,

40,
0,

38,
0,

39,
0,

2,
0,

3,
0,

3,
0,

12,
0,

8,
0,

8,
0,

4,
0,

4,
0,

4,
0,

6,
0,

6,
0,

1,
0,

4,
0,

5,
0,

5,
0,

5,
0,

5,
0,

7,
0,
0};
# define YYTYPE int
struct yywork { YYTYPE verify, advance; } yycrank[] ={
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	1,5,	1,6,	
5,5,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	21,21,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	1,5,	0,0,	5,5,	
3,21,	3,6,	0,0,	0,0,	
0,0,	1,7,	0,0,	0,0,	
21,21,	0,0,	0,0,	0,0,	
0,0,	1,8,	1,9,	1,8,	
1,10,	1,10,	1,10,	1,10,	
1,10,	1,10,	1,10,	3,21,	
9,63,	21,82,	22,83,	22,83,	
0,0,	0,0,	0,0,	3,7,	
0,0,	0,0,	3,22,	0,0,	
3,23,	0,0,	0,0,	3,8,	
3,9,	3,8,	3,10,	3,10,	
3,10,	3,10,	3,10,	3,10,	
3,10,	10,64,	10,64,	10,64,	
10,64,	10,64,	10,64,	10,64,	
10,64,	10,64,	10,64,	0,0,	
0,0,	0,0,	1,11,	15,72,	
0,0,	1,12,	14,70,	1,13,	
12,67,	13,68,	17,75,	1,14,	
19,79,	20,81,	1,15,	1,16,	
1,17,	15,73,	11,65,	16,74,	
1,18,	1,19,	13,69,	11,66,	
1,20,	19,80,	14,71,	25,99,	
3,24,	3,25,	3,26,	3,27,	
3,28,	3,29,	3,30,	3,31,	
3,32,	3,33,	3,34,	3,34,	
3,35,	3,36,	3,37,	3,38,	
3,39,	3,39,	3,40,	3,41,	
3,42,	3,39,	3,43,	3,39,	
3,44,	7,45,	8,50,	18,76,	
23,84,	23,84,	30,104,	18,77,	
7,46,	24,97,	42,114,	45,117,	
26,100,	28,102,	7,47,	7,48,	
31,105,	33,70,	7,49,	38,112,	
33,107,	24,65,	46,118,	18,78,	
24,98,	8,50,	24,66,	26,101,	
28,103,	36,74,	49,123,	31,106,	
56,129,	36,111,	38,113,	33,108,	
47,119,	33,71,	8,51,	57,130,	
8,52,	8,53,	8,53,	8,53,	
8,53,	8,53,	8,53,	8,53,	
8,53,	8,53,	8,53,	8,54,	
44,115,	23,85,	23,86,	23,87,	
47,120,	23,88,	35,72,	23,89,	
23,90,	35,109,	23,91,	59,133,	
50,50,	23,92,	23,93,	44,116,	
23,94,	48,121,	55,127,	58,131,	
35,73,	23,95,	60,134,	55,128,	
35,110,	23,96,	61,135,	62,136,	
65,138,	64,52,	48,122,	51,51,	
66,139,	67,140,	68,141,	50,50,	
69,142,	70,143,	8,55,	58,132,	
64,54,	8,56,	71,144,	8,57,	
71,145,	73,148,	72,146,	8,58,	
50,51,	74,149,	8,59,	8,60,	
8,61,	72,147,	51,51,	75,150,	
8,62,	52,124,	52,124,	52,124,	
52,124,	52,124,	52,124,	52,124,	
52,124,	52,124,	52,124,	53,125,	
53,125,	53,125,	53,125,	53,125,	
53,125,	53,125,	53,125,	53,125,	
53,125,	54,126,	54,126,	54,126,	
54,126,	54,126,	54,126,	54,126,	
54,126,	54,126,	54,126,	63,125,	
63,125,	63,125,	63,125,	63,125,	
63,125,	63,137,	63,137,	63,137,	
63,137,	76,151,	77,152,	78,153,	
50,55,	79,154,	80,155,	50,56,	
81,156,	50,57,	82,157,	93,111,	
85,97,	50,58,	91,107,	92,109,	
50,59,	50,60,	50,61,	97,160,	
98,161,	99,162,	50,62,	51,55,	
100,163,	101,164,	51,56,	85,98,	
51,57,	91,108,	92,110,	102,165,	
51,58,	103,166,	104,167,	51,59,	
51,60,	51,61,	105,168,	106,169,	
107,170,	51,62,	83,158,	83,158,	
83,158,	83,158,	83,158,	83,158,	
83,158,	83,158,	83,158,	83,158,	
84,159,	84,159,	84,159,	84,159,	
84,159,	84,159,	84,159,	84,159,	
84,159,	84,159,	108,171,	109,172,	
110,173,	111,174,	112,175,	113,176,	
115,177,	116,178,	117,179,	118,180,	
119,181,	120,182,	121,183,	122,184,	
123,185,	124,186,	124,187,	124,187,	
124,187,	124,187,	124,187,	124,187,	
124,187,	124,187,	124,187,	124,187,	
125,188,	125,188,	125,188,	125,188,	
125,188,	125,188,	125,188,	125,188,	
125,188,	125,188,	126,189,	127,194,	
128,195,	129,196,	130,197,	131,198,	
132,199,	133,201,	132,200,	134,203,	
135,204,	136,205,	138,207,	139,207,	
133,202,	140,207,	143,214,	145,147,	
148,216,	149,217,	150,218,	152,220,	
153,221,	126,189,	137,206,	137,206,	
137,206,	137,206,	137,206,	137,206,	
137,206,	137,206,	137,206,	137,206,	
141,207,	138,207,	139,207,	142,212,	
140,207,	126,190,	126,190,	126,190,	
126,190,	126,190,	126,190,	126,190,	
126,190,	126,190,	126,190,	126,191,	
144,207,	146,207,	147,207,	180,230,	
154,212,	151,212,	156,212,	141,207,	
155,212,	182,232,	142,212,	157,225,	
157,225,	157,225,	157,225,	179,228,	
181,228,	183,228,	187,186,	184,228,	
190,191,	192,241,	142,212,	144,207,	
146,207,	147,207,	185,228,	154,212,	
151,212,	156,212,	193,242,	155,212,	
198,250,	200,202,	203,252,	204,253,	
205,254,	208,147,	126,192,	154,212,	
151,212,	156,212,	209,257,	155,212,	
210,258,	211,259,	206,255,	212,212,	
213,260,	214,261,	215,147,	216,262,	
217,263,	126,193,	218,264,	219,265,	
220,266,	140,210,	138,208,	158,226,	
158,226,	158,226,	158,226,	158,226,	
158,226,	158,226,	158,226,	158,226,	
158,226,	206,255,	212,212,	139,209,	
221,267,	222,268,	179,229,	223,269,	
224,270,	228,274,	142,213,	159,227,	
159,227,	159,227,	159,227,	159,227,	
159,227,	159,227,	159,227,	159,227,	
159,227,	141,211,	183,233,	146,215,	
181,231,	184,234,	188,238,	185,235,	
186,236,	186,237,	186,236,	186,236,	
186,236,	186,236,	186,236,	186,236,	
186,236,	186,236,	189,189,	156,224,	
194,202,	154,222,	229,275,	230,276,	
144,147,	151,219,	155,223,	231,277,	
232,278,	188,238,	191,240,	191,240,	
191,240,	191,240,	191,240,	191,240,	
191,240,	191,240,	191,240,	191,240,	
233,279,	189,189,	234,280,	194,202,	
235,281,	188,239,	188,239,	188,239,	
188,239,	188,239,	188,239,	188,239,	
188,239,	188,239,	188,239,	195,202,	
194,243,	237,283,	238,238,	194,244,	
194,245,	194,244,	194,244,	194,244,	
194,244,	194,244,	194,244,	194,244,	
194,244,	241,241,	242,242,	245,290,	
246,202,	247,291,	248,292,	249,293,	
250,294,	251,202,	195,202,	252,295,	
253,296,	238,238,	254,297,	257,147,	
196,202,	255,255,	258,301,	259,302,	
260,303,	261,304,	263,305,	195,243,	
241,241,	242,242,	195,244,	195,245,	
195,244,	195,244,	195,244,	195,244,	
195,244,	195,244,	195,244,	195,244,	
264,306,	265,307,	189,192,	196,202,	
255,255,	266,308,	197,202,	268,309,	
269,310,	270,311,	275,312,	277,313,	
194,246,	279,314,	280,315,	281,316,	
196,243,	189,193,	282,282,	196,244,	
196,245,	196,244,	196,244,	196,244,	
196,244,	196,244,	196,244,	196,244,	
196,244,	197,202,	289,318,	291,202,	
284,284,	286,285,	199,202,	288,288,	
292,319,	293,320,	294,321,	295,322,	
296,323,	282,282,	197,243,	297,324,	
283,282,	197,244,	197,245,	197,244,	
197,244,	197,244,	197,244,	197,244,	
197,244,	197,244,	197,244,	284,284,	
286,285,	199,202,	288,288,	195,247,	
201,202,	300,299,	298,298,	301,326,	
299,325,	302,327,	303,212,	283,282,	
304,147,	305,328,	199,243,	306,147,	
196,248,	199,244,	199,245,	199,244,	
199,244,	199,244,	199,244,	199,244,	
199,244,	199,244,	199,244,	201,202,	
283,236,	298,298,	202,202,	299,325,	
307,329,	308,330,	309,331,	311,332,	
312,228,	313,333,	314,334,	285,285,	
201,243,	207,207,	316,335,	201,244,	
201,245,	201,244,	201,244,	201,244,	
201,244,	201,244,	201,244,	201,244,	
201,244,	202,202,	317,336,	197,249,	
319,338,	320,339,	321,202,	322,340,	
323,202,	324,341,	285,285,	330,344,	
207,207,	332,345,	202,243,	335,346,	
318,337,	202,244,	202,245,	202,244,	
202,244,	202,244,	202,244,	202,244,	
202,244,	202,244,	202,244,	285,317,	
207,256,	207,256,	207,256,	207,256,	
207,256,	207,256,	207,256,	207,256,	
207,256,	207,256,	199,202,	318,337,	
341,348,	343,350,	201,251,	225,271,	
225,271,	225,271,	225,271,	225,271,	
225,271,	225,271,	225,271,	225,271,	
225,271,	226,272,	226,272,	226,272,	
226,272,	226,272,	226,272,	226,272,	
226,272,	226,272,	226,272,	227,273,	
227,273,	227,273,	227,273,	227,273,	
227,273,	227,273,	227,273,	227,273,	
227,273,	236,282,	236,282,	236,282,	
236,282,	236,282,	236,282,	236,282,	
236,282,	236,282,	236,282,	239,284,	
239,284,	239,284,	239,284,	239,284,	
239,284,	239,284,	239,284,	239,284,	
239,284,	240,285,	349,349,	287,287,	
336,347,	336,347,	336,347,	336,347,	
0,0,	0,0,	0,0,	243,243,	
347,351,	347,351,	347,351,	347,351,	
347,351,	347,351,	347,351,	347,351,	
347,351,	347,351,	0,0,	0,0,	
240,285,	349,349,	287,287,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	243,243,	0,0,	
0,0,	244,287,	287,288,	0,0,	
240,286,	240,286,	240,286,	240,286,	
240,286,	240,286,	240,286,	240,286,	
240,286,	240,286,	243,244,	243,245,	
243,244,	243,244,	243,244,	243,244,	
243,244,	243,244,	243,244,	243,244,	
244,287,	0,0,	0,0,	256,298,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
244,288,	0,0,	325,325,	0,0,	
244,287,	244,287,	244,287,	244,287,	
244,287,	244,287,	244,287,	244,287,	
244,287,	244,287,	256,298,	0,0,	
0,0,	290,287,	0,0,	287,289,	
0,0,	0,0,	0,0,	0,0,	
0,0,	325,325,	256,299,	0,0,	
342,349,	0,0,	256,300,	256,300,	
256,300,	256,300,	256,300,	256,300,	
256,300,	256,300,	256,300,	256,300,	
290,287,	325,342,	325,343,	325,342,	
325,342,	325,342,	325,342,	325,342,	
325,342,	325,342,	325,342,	342,349,	
290,288,	244,289,	350,349,	0,0,	
0,0,	290,244,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	342,349,	
342,349,	342,349,	342,349,	342,349,	
342,349,	342,349,	342,349,	342,349,	
342,349,	350,349,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	350,342,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	290,289,	0,0,	0,0,	
0,0};
struct yysvf yysvec[] ={
0,	0,	0,
yycrank+1,	0,		0,	
yycrank+0,	yysvec+1,	0,	
yycrank+27,	0,		0,	
yycrank+0,	yysvec+3,	0,	
yycrank+3,	0,		yyvstop+1,
yycrank+0,	0,		yyvstop+3,
yycrank+47,	0,		0,	
yycrank+141,	0,		0,	
yycrank+3,	yysvec+8,	0,	
yycrank+37,	yysvec+8,	0,	
yycrank+2,	0,		0,	
yycrank+3,	0,		0,	
yycrank+4,	0,		0,	
yycrank+5,	0,		0,	
yycrank+2,	0,		0,	
yycrank+4,	0,		0,	
yycrank+7,	0,		0,	
yycrank+54,	0,		0,	
yycrank+4,	0,		0,	
yycrank+8,	0,		0,	
yycrank+12,	0,		yyvstop+5,
yycrank+14,	0,		0,	
yycrank+104,	0,		0,	
yycrank+57,	0,		yyvstop+7,
yycrank+8,	0,		yyvstop+9,
yycrank+60,	0,		yyvstop+11,
yycrank+0,	yysvec+12,	yyvstop+13,
yycrank+61,	0,		yyvstop+15,
yycrank+0,	yysvec+13,	yyvstop+17,
yycrank+45,	0,		yyvstop+19,
yycrank+64,	0,		yyvstop+21,
yycrank+0,	0,		yyvstop+23,
yycrank+68,	0,		0,	
yycrank+0,	0,		yyvstop+25,
yycrank+109,	0,		yyvstop+27,
yycrank+66,	0,		yyvstop+29,
yycrank+0,	yysvec+17,	yyvstop+31,
yycrank+67,	0,		yyvstop+33,
yycrank+0,	0,		yyvstop+35,
yycrank+0,	yysvec+18,	yyvstop+37,
yycrank+0,	yysvec+19,	yyvstop+39,
yycrank+42,	0,		yyvstop+41,
yycrank+0,	yysvec+20,	yyvstop+43,
yycrank+100,	0,		yyvstop+45,
yycrank+45,	0,		0,	
yycrank+59,	0,		0,	
yycrank+87,	0,		0,	
yycrank+113,	0,		0,	
yycrank+77,	0,		0,	
yycrank+203,	0,		0,	
yycrank+222,	0,		0,	
yycrank+209,	0,		0,	
yycrank+219,	yysvec+8,	0,	
yycrank+229,	0,		0,	
yycrank+106,	0,		0,	
yycrank+79,	0,		0,	
yycrank+86,	0,		0,	
yycrank+122,	0,		0,	
yycrank+114,	0,		0,	
yycrank+111,	0,		0,	
yycrank+127,	0,		0,	
yycrank+126,	0,		0,	
yycrank+239,	yysvec+8,	0,	
yycrank+182,	yysvec+50,	0,	
yycrank+114,	0,		0,	
yycrank+129,	0,		0,	
yycrank+134,	0,		0,	
yycrank+136,	0,		0,	
yycrank+131,	0,		0,	
yycrank+127,	0,		0,	
yycrank+134,	0,		0,	
yycrank+132,	0,		0,	
yycrank+135,	0,		0,	
yycrank+131,	0,		0,	
yycrank+139,	0,		0,	
yycrank+181,	0,		0,	
yycrank+186,	0,		0,	
yycrank+189,	0,		0,	
yycrank+184,	0,		0,	
yycrank+201,	0,		0,	
yycrank+204,	0,		0,	
yycrank+249,	0,		0,	
yycrank+290,	0,		0,	
yycrank+300,	0,		0,	
yycrank+208,	0,		0,	
yycrank+0,	yysvec+25,	0,	
yycrank+0,	yysvec+26,	0,	
yycrank+0,	yysvec+28,	0,	
yycrank+0,	yysvec+30,	0,	
yycrank+0,	yysvec+31,	0,	
yycrank+210,	0,		0,	
yycrank+211,	0,		0,	
yycrank+192,	0,		0,	
yycrank+0,	yysvec+38,	0,	
yycrank+0,	yysvec+42,	0,	
yycrank+0,	yysvec+44,	0,	
yycrank+199,	0,		0,	
yycrank+200,	0,		0,	
yycrank+201,	0,		0,	
yycrank+204,	0,		0,	
yycrank+205,	0,		0,	
yycrank+211,	0,		0,	
yycrank+213,	0,		0,	
yycrank+214,	0,		0,	
yycrank+218,	0,		0,	
yycrank+219,	0,		0,	
yycrank+220,	0,		0,	
yycrank+242,	0,		0,	
yycrank+243,	0,		0,	
yycrank+244,	0,		0,	
yycrank+245,	0,		0,	
yycrank+246,	0,		0,	
yycrank+247,	0,		0,	
yycrank+0,	0,		yyvstop+47,
yycrank+248,	0,		0,	
yycrank+249,	0,		0,	
yycrank+261,	0,		0,	
yycrank+257,	0,		0,	
yycrank+252,	0,		0,	
yycrank+259,	0,		0,	
yycrank+253,	0,		0,	
yycrank+270,	0,		0,	
yycrank+272,	0,		0,	
yycrank+326,	0,		0,	
yycrank+336,	0,		0,	
yycrank+385,	0,		yyvstop+49,
yycrank+281,	0,		0,	
yycrank+293,	0,		0,	
yycrank+298,	0,		0,	
yycrank+300,	0,		0,	
yycrank+289,	0,		0,	
yycrank+292,	0,		0,	
yycrank+287,	0,		0,	
yycrank+285,	0,		0,	
yycrank+288,	0,		0,	
yycrank+293,	0,		0,	
yycrank+370,	0,		0,	
yycrank+397,	0,		0,	
yycrank+398,	0,		0,	
yycrank+400,	0,		0,	
yycrank+419,	0,		0,	
yycrank+422,	0,		yyvstop+51,
yycrank+293,	yysvec+139,	0,	
yycrank+435,	0,		0,	
yycrank+310,	yysvec+140,	0,	
yycrank+436,	0,		0,	
yycrank+437,	0,		0,	
yycrank+312,	yysvec+142,	yyvstop+53,
yycrank+312,	yysvec+140,	0,	
yycrank+303,	yysvec+147,	0,	
yycrank+440,	0,		yyvstop+55,
yycrank+299,	yysvec+147,	0,	
yycrank+316,	yysvec+142,	yyvstop+57,
yycrank+439,	0,		yyvstop+59,
yycrank+443,	0,		yyvstop+61,
yycrank+441,	0,		yyvstop+63,
yycrank+401,	0,		0,	
yycrank+455,	0,		0,	
yycrank+475,	0,		0,	
yycrank+0,	0,		yyvstop+65,
yycrank+0,	0,		yyvstop+67,
yycrank+0,	0,		yyvstop+69,
yycrank+0,	0,		yyvstop+71,
yycrank+0,	0,		yyvstop+73,
yycrank+0,	0,		yyvstop+75,
yycrank+0,	0,		yyvstop+77,
yycrank+0,	0,		yyvstop+79,
yycrank+0,	0,		yyvstop+81,
yycrank+0,	0,		yyvstop+83,
yycrank+0,	0,		yyvstop+85,
yycrank+0,	0,		yyvstop+87,
yycrank+0,	0,		yyvstop+89,
yycrank+0,	0,		yyvstop+91,
yycrank+0,	0,		yyvstop+93,
yycrank+0,	0,		yyvstop+95,
yycrank+0,	0,		yyvstop+97,
yycrank+0,	0,		yyvstop+99,
yycrank+0,	0,		yyvstop+101,
yycrank+418,	0,		0,	
yycrank+347,	yysvec+179,	0,	
yycrank+419,	0,		0,	
yycrank+353,	yysvec+179,	0,	
yycrank+420,	0,		0,	
yycrank+422,	0,		0,	
yycrank+429,	0,		0,	
yycrank+492,	0,		0,	
yycrank+415,	0,		0,	
yycrank+529,	0,		yyvstop+103,
yycrank+541,	0,		yyvstop+105,
yycrank+406,	yysvec+189,	yyvstop+107,
yycrank+514,	0,		0,	
yycrank+356,	0,		0,	
yycrank+365,	0,		0,	
yycrank+543,	0,		0,	
yycrank+578,	0,		0,	
yycrank+607,	0,		0,	
yycrank+633,	0,		0,	
yycrank+359,	yysvec+195,	0,	
yycrank+661,	0,		0,	
yycrank+376,	yysvec+196,	0,	
yycrank+687,	0,		0,	
yycrank+713,	0,		0,	
yycrank+377,	yysvec+196,	0,	
yycrank+368,	yysvec+202,	0,	
yycrank+364,	yysvec+202,	0,	
yycrank+481,	yysvec+188,	yyvstop+109,
yycrank+724,	0,		0,	
yycrank+373,	0,		0,	
yycrank+371,	0,		0,	
yycrank+379,	0,		0,	
yycrank+372,	0,		0,	
yycrank+482,	0,		yyvstop+112,
yycrank+395,	0,		0,	
yycrank+396,	0,		0,	
yycrank+390,	0,		0,	
yycrank+398,	0,		0,	
yycrank+387,	0,		0,	
yycrank+400,	0,		0,	
yycrank+385,	0,		0,	
yycrank+399,	0,		0,	
yycrank+419,	0,		0,	
yycrank+402,	0,		0,	
yycrank+419,	0,		0,	
yycrank+419,	0,		0,	
yycrank+739,	0,		0,	
yycrank+749,	0,		0,	
yycrank+759,	0,		0,	
yycrank+477,	0,		yyvstop+114,
yycrank+457,	0,		0,	
yycrank+458,	0,		0,	
yycrank+445,	0,		0,	
yycrank+463,	0,		0,	
yycrank+457,	0,		0,	
yycrank+474,	0,		0,	
yycrank+475,	0,		0,	
yycrank+769,	0,		0,	
yycrank+532,	yysvec+236,	0,	
yycrank+581,	0,		yyvstop+116,
yycrank+779,	0,		0,	
yycrank+828,	0,		yyvstop+118,
yycrank+592,	0,		yyvstop+120,
yycrank+593,	0,		yyvstop+122,
yycrank+838,	0,		0,	
yycrank+864,	0,		yyvstop+124,
yycrank+546,	yysvec+244,	yyvstop+126,
yycrank+496,	0,		0,	
yycrank+490,	0,		0,	
yycrank+497,	0,		0,	
yycrank+490,	0,		0,	
yycrank+511,	0,		0,	
yycrank+505,	0,		0,	
yycrank+502,	0,		0,	
yycrank+514,	0,		0,	
yycrank+513,	0,		0,	
yycrank+608,	0,		yyvstop+128,
yycrank+890,	0,		yyvstop+131,
yycrank+499,	0,		0,	
yycrank+520,	0,		0,	
yycrank+522,	0,		0,	
yycrank+499,	0,		0,	
yycrank+507,	0,		0,	
yycrank+0,	yysvec+260,	0,	
yycrank+524,	0,		0,	
yycrank+535,	0,		0,	
yycrank+537,	0,		0,	
yycrank+532,	0,		0,	
yycrank+0,	yysvec+260,	0,	
yycrank+543,	0,		0,	
yycrank+547,	0,		0,	
yycrank+530,	0,		0,	
yycrank+0,	0,		yyvstop+133,
yycrank+0,	0,		yyvstop+135,
yycrank+0,	0,		yyvstop+137,
yycrank+0,	0,		yyvstop+139,
yycrank+525,	0,		0,	
yycrank+0,	yysvec+275,	0,	
yycrank+547,	0,		0,	
yycrank+0,	yysvec+275,	0,	
yycrank+549,	0,		0,	
yycrank+553,	0,		0,	
yycrank+536,	0,		0,	
yycrank+645,	0,		yyvstop+141,
yycrank+671,	yysvec+186,	yyvstop+143,
yycrank+659,	0,		yyvstop+145,
yycrank+722,	0,		yyvstop+147,
yycrank+660,	0,		yyvstop+149,
yycrank+830,	0,		yyvstop+151,
yycrank+662,	0,		yyvstop+153,
yycrank+550,	0,		0,	
yycrank+916,	yysvec+243,	yyvstop+155,
yycrank+551,	0,		0,	
yycrank+574,	0,		0,	
yycrank+576,	0,		0,	
yycrank+560,	0,		0,	
yycrank+577,	0,		0,	
yycrank+575,	0,		0,	
yycrank+570,	0,		0,	
yycrank+689,	0,		yyvstop+157,
yycrank+691,	0,		0,	
yycrank+653,	yysvec+298,	yyvstop+159,
yycrank+598,	0,		0,	
yycrank+587,	0,		0,	
yycrank+658,	yysvec+212,	yyvstop+161,
yycrank+583,	0,		0,	
yycrank+604,	0,		0,	
yycrank+593,	0,		0,	
yycrank+627,	0,		0,	
yycrank+627,	0,		0,	
yycrank+629,	0,		0,	
yycrank+0,	yysvec+260,	0,	
yycrank+627,	0,		0,	
yycrank+687,	0,		0,	
yycrank+632,	0,		0,	
yycrank+633,	0,		0,	
yycrank+0,	yysvec+275,	0,	
yycrank+634,	0,		0,	
yycrank+689,	0,		0,	
yycrank+751,	0,		0,	
yycrank+647,	0,		0,	
yycrank+635,	0,		0,	
yycrank+629,	0,		0,	
yycrank+650,	0,		0,	
yycrank+638,	0,		0,	
yycrank+655,	0,		0,	
yycrank+901,	0,		0,	
yycrank+0,	yysvec+306,	0,	
yycrank+0,	yysvec+304,	0,	
yycrank+0,	yysvec+306,	0,	
yycrank+0,	yysvec+260,	0,	
yycrank+654,	0,		0,	
yycrank+0,	yysvec+260,	0,	
yycrank+660,	0,		0,	
yycrank+0,	yysvec+275,	0,	
yycrank+0,	yysvec+275,	0,	
yycrank+662,	0,		0,	
yycrank+786,	0,		0,	
yycrank+0,	yysvec+318,	yyvstop+163,
yycrank+0,	yysvec+323,	0,	
yycrank+0,	yysvec+321,	0,	
yycrank+0,	yysvec+323,	0,	
yycrank+683,	0,		0,	
yycrank+927,	0,		yyvstop+165,
yycrank+728,	yysvec+342,	yyvstop+167,
yycrank+0,	yysvec+306,	0,	
yycrank+0,	yysvec+260,	0,	
yycrank+0,	yysvec+275,	0,	
yycrank+800,	0,		0,	
yycrank+0,	yysvec+323,	0,	
yycrank+829,	0,		yyvstop+169,
yycrank+953,	yysvec+325,	yyvstop+171,
yycrank+0,	0,		yyvstop+173,
0,	0,	0};
struct yywork *yytop = yycrank+1013;
struct yysvf *yybgin = yysvec+1;
char yymatch[] ={
00  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,011 ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
011 ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
'0' ,'0' ,'2' ,'3' ,'3' ,'3' ,'6' ,'6' ,
'6' ,'6' ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,'a' ,'a' ,'a' ,'a' ,'a' ,'a' ,'a' ,
'a' ,'a' ,01  ,'k' ,'k' ,'k' ,'n' ,'n' ,
'n' ,'n' ,'n' ,'n' ,'n' ,'n' ,'n' ,'n' ,
'n' ,'n' ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
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};
/*	ncform	4.1	83/08/11	*/