--- /dev/null
+
+/* A Bison parser, made from ./posixtm.y with Bison version GNU Bison version 1.22
+ */
+
+#define YYBISON 1 /* Identify Bison output. */
+
+#define DIGIT 258
+
+#line 19 "./posixtm.y"
+
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+/* The following block of alloca-related preprocessor directives is here
+ solely to allow compilation by non GNU-C compilers of the C parser
+ produced from this file by old versions of bison. Newer versions of
+ bison include a block similar to this one in bison.simple. */
+
+#ifdef __GNUC__
+#define alloca __builtin_alloca
+#else
+#ifdef HAVE_ALLOCA_H
+#include <alloca.h>
+#else
+#ifdef _AIX
+ #pragma alloca
+#else
+void *alloca ();
+#endif
+#endif
+#endif
+
+#include <stdio.h>
+#include <sys/types.h>
+
+#ifdef TM_IN_SYS_TIME
+#include <sys/time.h>
+#else
+#include <time.h>
+#endif
+
+/* Some old versions of bison generate parsers that use bcopy.
+ That loses on systems that don't provide the function, so we have
+ to redefine it here. */
+#if !defined (HAVE_BCOPY) && defined (HAVE_MEMCPY) && !defined (bcopy)
+#define bcopy(from, to, len) memcpy ((to), (from), (len))
+#endif
+
+#define YYDEBUG 1
+
+/* Lexical analyzer's current scan position in the input string. */
+static char *curpos;
+
+/* The return value. */
+static struct tm t;
+
+time_t mktime ();
+
+#define zzparse posixtime_zzparse
+static int zzlex ();
+static int zzerror ();
+
+#ifndef YYLTYPE
+typedef
+ struct zzltype
+ {
+ int timestamp;
+ int first_line;
+ int first_column;
+ int last_line;
+ int last_column;
+ char *text;
+ }
+ zzltype;
+
+#define YYLTYPE zzltype
+#endif
+
+#ifndef YYSTYPE
+#define YYSTYPE int
+#endif
+#include <stdio.h>
+
+#ifndef __cplusplus
+#ifndef __STDC__
+#define const
+#endif
+#endif
+
+
+
+#define YYFINAL 15
+#define YYFLAG -32768
+#define YYNTBASE 5
+
+#define YYTRANSLATE(x) ((unsigned)(x) <= 258 ? zztranslate[x] : 9)
+
+static const char zztranslate[] = { 0,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 4, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 1, 2, 3
+};
+
+#if YYDEBUG != 0
+static const short zzprhs[] = { 0,
+ 0, 7, 9, 12, 13, 14, 17
+};
+
+static const short zzrhs[] = { 8,
+ 8, 8, 8, 6, 7, 0, 8, 0, 8, 8,
+ 0, 0, 0, 4, 8, 0, 3, 3, 0
+};
+
+#endif
+
+#if YYDEBUG != 0
+static const short zzrline[] = { 0,
+ 78, 107, 114, 121, 132, 135, 144
+};
+
+static const char * const zztname[] = { "$","error","$illegal.","DIGIT","'.'",
+"date","year","seconds","digitpair",""
+};
+#endif
+
+static const short zzr1[] = { 0,
+ 5, 6, 6, 6, 7, 7, 8
+};
+
+static const short zzr2[] = { 0,
+ 6, 1, 2, 0, 0, 2, 2
+};
+
+static const short zzdefact[] = { 0,
+ 0, 0, 7, 0, 0, 4, 5, 2, 0, 1,
+ 3, 6, 0, 0, 0
+};
+
+static const short zzdefgoto[] = { 13,
+ 7, 10, 2
+};
+
+static const short zzpact[] = { 2,
+ 5, 2,-32768, 2, 2, 2, -3, 2, 2,-32768,
+-32768,-32768, 9, 10,-32768
+};
+
+static const short zzpgoto[] = {-32768,
+-32768,-32768, -2
+};
+
+
+#define YYLAST 10
+
+
+static const short zztable[] = { 4,
+ 9, 5, 6, 8, 1, 11, 12, 3, 14, 15
+};
+
+static const short zzcheck[] = { 2,
+ 4, 4, 5, 6, 3, 8, 9, 3, 0, 0
+};
+/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
+#line 3 "/usr/local/lib/bison.simple"
+
+/* Skeleton output parser for bison,
+ Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+
+
+#ifndef alloca
+#ifdef __GNUC__
+#define alloca __builtin_alloca
+#else /* not GNU C. */
+#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
+#include <alloca.h>
+#else /* not sparc */
+#if defined (MSDOS) && !defined (__TURBOC__)
+#include <malloc.h>
+#else /* not MSDOS, or __TURBOC__ */
+#if defined(_AIX)
+#include <malloc.h>
+ #pragma alloca
+#else /* not MSDOS, __TURBOC__, or _AIX */
+#ifdef __hpux
+#ifdef __cplusplus
+extern "C" {
+void *alloca (unsigned int);
+};
+#else /* not __cplusplus */
+void *alloca ();
+#endif /* not __cplusplus */
+#endif /* __hpux */
+#endif /* not _AIX */
+#endif /* not MSDOS, or __TURBOC__ */
+#endif /* not sparc. */
+#endif /* not GNU C. */
+#endif /* alloca not defined. */
+
+/* This is the parser code that is written into each bison parser
+ when the %semantic_parser declaration is not specified in the grammar.
+ It was written by Richard Stallman by simplifying the hairy parser
+ used when %semantic_parser is specified. */
+
+/* Note: there must be only one dollar sign in this file.
+ It is replaced by the list of actions, each action
+ as one case of the switch. */
+
+#define zzerrok (zzerrstatus = 0)
+#define zzclearin (zzchar = YYEMPTY)
+#define YYEMPTY -2
+#define YYEOF 0
+#define YYACCEPT return(0)
+#define YYABORT return(1)
+#define YYERROR goto zzerrlab1
+/* Like YYERROR except do call zzerror.
+ This remains here temporarily to ease the
+ transition to the new meaning of YYERROR, for GCC.
+ Once GCC version 2 has supplanted version 1, this can go. */
+#define YYFAIL goto zzerrlab
+#define YYRECOVERING() (!!zzerrstatus)
+#define YYBACKUP(token, value) \
+do \
+ if (zzchar == YYEMPTY && zzlen == 1) \
+ { zzchar = (token), zzlval = (value); \
+ zzchar1 = YYTRANSLATE (zzchar); \
+ YYPOPSTACK; \
+ goto zzbackup; \
+ } \
+ else \
+ { zzerror ("syntax error: cannot back up"); YYERROR; } \
+while (0)
+
+#define YYTERROR 1
+#define YYERRCODE 256
+
+#ifndef YYPURE
+#define YYLEX zzlex()
+#endif
+
+#ifdef YYPURE
+#ifdef YYLSP_NEEDED
+#define YYLEX zzlex(&zzlval, &zzlloc)
+#else
+#define YYLEX zzlex(&zzlval)
+#endif
+#endif
+
+/* If nonreentrant, generate the variables here */
+
+#ifndef YYPURE
+
+int zzchar; /* the lookahead symbol */
+YYSTYPE zzlval; /* the semantic value of the */
+ /* lookahead symbol */
+
+#ifdef YYLSP_NEEDED
+YYLTYPE zzlloc; /* location data for the lookahead */
+ /* symbol */
+#endif
+
+int zznerrs; /* number of parse errors so far */
+#endif /* not YYPURE */
+
+#if YYDEBUG != 0
+int zzdebug; /* nonzero means print parse trace */
+/* Since this is uninitialized, it does not stop multiple parsers
+ from coexisting. */
+#endif
+
+/* YYINITDEPTH indicates the initial size of the parser's stacks */
+
+#ifndef YYINITDEPTH
+#define YYINITDEPTH 200
+#endif
+
+/* YYMAXDEPTH is the maximum size the stacks can grow to
+ (effective only if the built-in stack extension method is used). */
+
+#if YYMAXDEPTH == 0
+#undef YYMAXDEPTH
+#endif
+
+#ifndef YYMAXDEPTH
+#define YYMAXDEPTH 10000
+#endif
+
+/* Prevent warning if -Wstrict-prototypes. */
+#ifdef __GNUC__
+int zzparse (void);
+#endif
+\f
+#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
+#define __zz_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
+#else /* not GNU C or C++ */
+#ifndef __cplusplus
+
+/* This is the most reliable way to avoid incompatibilities
+ in available built-in functions on various systems. */
+static void
+__zz_bcopy (from, to, count)
+ char *from;
+ char *to;
+ int count;
+{
+ register char *f = from;
+ register char *t = to;
+ register int i = count;
+
+ while (i-- > 0)
+ *t++ = *f++;
+}
+
+#else /* __cplusplus */
+
+/* This is the most reliable way to avoid incompatibilities
+ in available built-in functions on various systems. */
+static void
+__zz_bcopy (char *from, char *to, int count)
+{
+ register char *f = from;
+ register char *t = to;
+ register int i = count;
+
+ while (i-- > 0)
+ *t++ = *f++;
+}
+
+#endif
+#endif
+\f
+#line 184 "/usr/local/lib/bison.simple"
+int
+zzparse()
+{
+ register int zzstate;
+ register int zzn;
+ register short *zzssp;
+ register YYSTYPE *zzvsp;
+ int zzerrstatus; /* number of tokens to shift before error messages enabled */
+ int zzchar1 = 0; /* lookahead token as an internal (translated) token number */
+
+ short zzssa[YYINITDEPTH]; /* the state stack */
+ YYSTYPE zzvsa[YYINITDEPTH]; /* the semantic value stack */
+
+ short *zzss = zzssa; /* refer to the stacks thru separate pointers */
+ YYSTYPE *zzvs = zzvsa; /* to allow zzoverflow to reallocate them elsewhere */
+
+#ifdef YYLSP_NEEDED
+ YYLTYPE zzlsa[YYINITDEPTH]; /* the location stack */
+ YYLTYPE *zzls = zzlsa;
+ YYLTYPE *zzlsp;
+
+#define YYPOPSTACK (zzvsp--, zzssp--, zzlsp--)
+#else
+#define YYPOPSTACK (zzvsp--, zzssp--)
+#endif
+
+ int zzstacksize = YYINITDEPTH;
+
+#ifdef YYPURE
+ int zzchar;
+ YYSTYPE zzlval;
+ int zznerrs;
+#ifdef YYLSP_NEEDED
+ YYLTYPE zzlloc;
+#endif
+#endif
+
+ YYSTYPE zzval; /* the variable used to return */
+ /* semantic values from the action */
+ /* routines */
+
+ int zzlen;
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ fprintf(stderr, "Starting parse\n");
+#endif
+
+ zzstate = 0;
+ zzerrstatus = 0;
+ zznerrs = 0;
+ zzchar = YYEMPTY; /* Cause a token to be read. */
+
+ /* Initialize stack pointers.
+ Waste one element of value and location stack
+ so that they stay on the same level as the state stack.
+ The wasted elements are never initialized. */
+
+ zzssp = zzss - 1;
+ zzvsp = zzvs;
+#ifdef YYLSP_NEEDED
+ zzlsp = zzls;
+#endif
+
+/* Push a new state, which is found in zzstate . */
+/* In all cases, when you get here, the value and location stacks
+ have just been pushed. so pushing a state here evens the stacks. */
+zznewstate:
+
+ *++zzssp = zzstate;
+
+ if (zzssp >= zzss + zzstacksize - 1)
+ {
+ /* Give user a chance to reallocate the stack */
+ /* Use copies of these so that the &'s don't force the real ones into memory. */
+ YYSTYPE *zzvs1 = zzvs;
+ short *zzss1 = zzss;
+#ifdef YYLSP_NEEDED
+ YYLTYPE *zzls1 = zzls;
+#endif
+
+ /* Get the current used size of the three stacks, in elements. */
+ int size = zzssp - zzss + 1;
+
+#ifdef zzoverflow
+ /* Each stack pointer address is followed by the size of
+ the data in use in that stack, in bytes. */
+#ifdef YYLSP_NEEDED
+ /* This used to be a conditional around just the two extra args,
+ but that might be undefined if zzoverflow is a macro. */
+ zzoverflow("parser stack overflow",
+ &zzss1, size * sizeof (*zzssp),
+ &zzvs1, size * sizeof (*zzvsp),
+ &zzls1, size * sizeof (*zzlsp),
+ &zzstacksize);
+#else
+ zzoverflow("parser stack overflow",
+ &zzss1, size * sizeof (*zzssp),
+ &zzvs1, size * sizeof (*zzvsp),
+ &zzstacksize);
+#endif
+
+ zzss = zzss1; zzvs = zzvs1;
+#ifdef YYLSP_NEEDED
+ zzls = zzls1;
+#endif
+#else /* no zzoverflow */
+ /* Extend the stack our own way. */
+ if (zzstacksize >= YYMAXDEPTH)
+ {
+ zzerror("parser stack overflow");
+ return 2;
+ }
+ zzstacksize *= 2;
+ if (zzstacksize > YYMAXDEPTH)
+ zzstacksize = YYMAXDEPTH;
+ zzss = (short *) alloca (zzstacksize * sizeof (*zzssp));
+ __zz_bcopy ((char *)zzss1, (char *)zzss, size * sizeof (*zzssp));
+ zzvs = (YYSTYPE *) alloca (zzstacksize * sizeof (*zzvsp));
+ __zz_bcopy ((char *)zzvs1, (char *)zzvs, size * sizeof (*zzvsp));
+#ifdef YYLSP_NEEDED
+ zzls = (YYLTYPE *) alloca (zzstacksize * sizeof (*zzlsp));
+ __zz_bcopy ((char *)zzls1, (char *)zzls, size * sizeof (*zzlsp));
+#endif
+#endif /* no zzoverflow */
+
+ zzssp = zzss + size - 1;
+ zzvsp = zzvs + size - 1;
+#ifdef YYLSP_NEEDED
+ zzlsp = zzls + size - 1;
+#endif
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ fprintf(stderr, "Stack size increased to %d\n", zzstacksize);
+#endif
+
+ if (zzssp >= zzss + zzstacksize - 1)
+ YYABORT;
+ }
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ fprintf(stderr, "Entering state %d\n", zzstate);
+#endif
+
+ goto zzbackup;
+ zzbackup:
+
+/* Do appropriate processing given the current state. */
+/* Read a lookahead token if we need one and don't already have one. */
+/* zzresume: */
+
+ /* First try to decide what to do without reference to lookahead token. */
+
+ zzn = zzpact[zzstate];
+ if (zzn == YYFLAG)
+ goto zzdefault;
+
+ /* Not known => get a lookahead token if don't already have one. */
+
+ /* zzchar is either YYEMPTY or YYEOF
+ or a valid token in external form. */
+
+ if (zzchar == YYEMPTY)
+ {
+#if YYDEBUG != 0
+ if (zzdebug)
+ fprintf(stderr, "Reading a token: ");
+#endif
+ zzchar = YYLEX;
+ }
+
+ /* Convert token to internal form (in zzchar1) for indexing tables with */
+
+ if (zzchar <= 0) /* This means end of input. */
+ {
+ zzchar1 = 0;
+ zzchar = YYEOF; /* Don't call YYLEX any more */
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ fprintf(stderr, "Now at end of input.\n");
+#endif
+ }
+ else
+ {
+ zzchar1 = YYTRANSLATE(zzchar);
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ {
+ fprintf (stderr, "Next token is %d (%s", zzchar, zztname[zzchar1]);
+ /* Give the individual parser a way to print the precise meaning
+ of a token, for further debugging info. */
+#ifdef YYPRINT
+ YYPRINT (stderr, zzchar, zzlval);
+#endif
+ fprintf (stderr, ")\n");
+ }
+#endif
+ }
+
+ zzn += zzchar1;
+ if (zzn < 0 || zzn > YYLAST || zzcheck[zzn] != zzchar1)
+ goto zzdefault;
+
+ zzn = zztable[zzn];
+
+ /* zzn is what to do for this token type in this state.
+ Negative => reduce, -zzn is rule number.
+ Positive => shift, zzn is new state.
+ New state is final state => don't bother to shift,
+ just return success.
+ 0, or most negative number => error. */
+
+ if (zzn < 0)
+ {
+ if (zzn == YYFLAG)
+ goto zzerrlab;
+ zzn = -zzn;
+ goto zzreduce;
+ }
+ else if (zzn == 0)
+ goto zzerrlab;
+
+ if (zzn == YYFINAL)
+ YYACCEPT;
+
+ /* Shift the lookahead token. */
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ fprintf(stderr, "Shifting token %d (%s), ", zzchar, zztname[zzchar1]);
+#endif
+
+ /* Discard the token being shifted unless it is eof. */
+ if (zzchar != YYEOF)
+ zzchar = YYEMPTY;
+
+ *++zzvsp = zzlval;
+#ifdef YYLSP_NEEDED
+ *++zzlsp = zzlloc;
+#endif
+
+ /* count tokens shifted since error; after three, turn off error status. */
+ if (zzerrstatus) zzerrstatus--;
+
+ zzstate = zzn;
+ goto zznewstate;
+
+/* Do the default action for the current state. */
+zzdefault:
+
+ zzn = zzdefact[zzstate];
+ if (zzn == 0)
+ goto zzerrlab;
+
+/* Do a reduction. zzn is the number of a rule to reduce with. */
+zzreduce:
+ zzlen = zzr2[zzn];
+ if (zzlen > 0)
+ zzval = zzvsp[1-zzlen]; /* implement default value of the action */
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ {
+ int i;
+
+ fprintf (stderr, "Reducing via rule %d (line %d), ",
+ zzn, zzrline[zzn]);
+
+ /* Print the symbols being reduced, and their result. */
+ for (i = zzprhs[zzn]; zzrhs[i] > 0; i++)
+ fprintf (stderr, "%s ", zztname[zzrhs[i]]);
+ fprintf (stderr, " -> %s\n", zztname[zzr1[zzn]]);
+ }
+#endif
+
+
+ switch (zzn) {
+
+case 1:
+#line 84 "./posixtm.y"
+{
+ if (zzvsp[-5] >= 1 && zzvsp[-5] <= 12)
+ t.tm_mon = zzvsp[-5] - 1;
+ else {
+ YYABORT;
+ }
+ if (zzvsp[-4] >= 1 && zzvsp[-4] <= 31)
+ t.tm_mday = zzvsp[-4];
+ else {
+ YYABORT;
+ }
+ if (zzvsp[-3] >= 0 && zzvsp[-3] <= 23)
+ t.tm_hour = zzvsp[-3];
+ else {
+ YYABORT;
+ }
+ if (zzvsp[-2] >= 0 && zzvsp[-2] <= 59)
+ t.tm_min = zzvsp[-2];
+ else {
+ YYABORT;
+ }
+ ;
+ break;}
+case 2:
+#line 107 "./posixtm.y"
+{
+ t.tm_year = zzvsp[0];
+ /* Deduce the century based on the year.
+ See POSIX.2 section 4.63.3. */
+ if (zzvsp[0] <= 68)
+ t.tm_year += 100;
+ ;
+ break;}
+case 3:
+#line 114 "./posixtm.y"
+{
+ t.tm_year = zzvsp[-1] * 100 + zzvsp[0];
+ if (t.tm_year < 1900) {
+ YYABORT;
+ } else
+ t.tm_year -= 1900;
+ ;
+ break;}
+case 4:
+#line 121 "./posixtm.y"
+{
+ time_t now;
+ struct tm *tmp;
+
+ /* Use current year. */
+ time (&now);
+ tmp = localtime (&now);
+ t.tm_year = tmp->tm_year;
+ ;
+ break;}
+case 5:
+#line 132 "./posixtm.y"
+{
+ t.tm_sec = 0;
+ ;
+ break;}
+case 6:
+#line 135 "./posixtm.y"
+{
+ if (zzvsp[0] >= 0 && zzvsp[0] <= 61)
+ t.tm_sec = zzvsp[0];
+ else {
+ YYABORT;
+ }
+ ;
+ break;}
+case 7:
+#line 144 "./posixtm.y"
+{
+ zzval = zzvsp[-1] * 10 + zzvsp[0];
+ ;
+ break;}
+}
+ /* the action file gets copied in in place of this dollarsign */
+#line 465 "/usr/local/lib/bison.simple"
+\f
+ zzvsp -= zzlen;
+ zzssp -= zzlen;
+#ifdef YYLSP_NEEDED
+ zzlsp -= zzlen;
+#endif
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ {
+ short *ssp1 = zzss - 1;
+ fprintf (stderr, "state stack now");
+ while (ssp1 != zzssp)
+ fprintf (stderr, " %d", *++ssp1);
+ fprintf (stderr, "\n");
+ }
+#endif
+
+ *++zzvsp = zzval;
+
+#ifdef YYLSP_NEEDED
+ zzlsp++;
+ if (zzlen == 0)
+ {
+ zzlsp->first_line = zzlloc.first_line;
+ zzlsp->first_column = zzlloc.first_column;
+ zzlsp->last_line = (zzlsp-1)->last_line;
+ zzlsp->last_column = (zzlsp-1)->last_column;
+ zzlsp->text = 0;
+ }
+ else
+ {
+ zzlsp->last_line = (zzlsp+zzlen-1)->last_line;
+ zzlsp->last_column = (zzlsp+zzlen-1)->last_column;
+ }
+#endif
+
+ /* Now "shift" the result of the reduction.
+ Determine what state that goes to,
+ based on the state we popped back to
+ and the rule number reduced by. */
+
+ zzn = zzr1[zzn];
+
+ zzstate = zzpgoto[zzn - YYNTBASE] + *zzssp;
+ if (zzstate >= 0 && zzstate <= YYLAST && zzcheck[zzstate] == *zzssp)
+ zzstate = zztable[zzstate];
+ else
+ zzstate = zzdefgoto[zzn - YYNTBASE];
+
+ goto zznewstate;
+
+zzerrlab: /* here on detecting error */
+
+ if (! zzerrstatus)
+ /* If not already recovering from an error, report this error. */
+ {
+ ++zznerrs;
+
+#ifdef YYERROR_VERBOSE
+ zzn = zzpact[zzstate];
+
+ if (zzn > YYFLAG && zzn < YYLAST)
+ {
+ int size = 0;
+ char *msg;
+ int x, count;
+
+ count = 0;
+ /* Start X at -zzn if nec to avoid negative indexes in zzcheck. */
+ for (x = (zzn < 0 ? -zzn : 0);
+ x < (sizeof(zztname) / sizeof(char *)); x++)
+ if (zzcheck[x + zzn] == x)
+ size += strlen(zztname[x]) + 15, count++;
+ msg = (char *) malloc(size + 15);
+ if (msg != 0)
+ {
+ strcpy(msg, "parse error");
+
+ if (count < 5)
+ {
+ count = 0;
+ for (x = (zzn < 0 ? -zzn : 0);
+ x < (sizeof(zztname) / sizeof(char *)); x++)
+ if (zzcheck[x + zzn] == x)
+ {
+ strcat(msg, count == 0 ? ", expecting `" : " or `");
+ strcat(msg, zztname[x]);
+ strcat(msg, "'");
+ count++;
+ }
+ }
+ zzerror(msg);
+ free(msg);
+ }
+ else
+ zzerror ("parse error; also virtual memory exceeded");
+ }
+ else
+#endif /* YYERROR_VERBOSE */
+ zzerror("parse error");
+ }
+
+ goto zzerrlab1;
+zzerrlab1: /* here on error raised explicitly by an action */
+
+ if (zzerrstatus == 3)
+ {
+ /* if just tried and failed to reuse lookahead token after an error, discard it. */
+
+ /* return failure if at end of input */
+ if (zzchar == YYEOF)
+ YYABORT;
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ fprintf(stderr, "Discarding token %d (%s).\n", zzchar, zztname[zzchar1]);
+#endif
+
+ zzchar = YYEMPTY;
+ }
+
+ /* Else will try to reuse lookahead token
+ after shifting the error token. */
+
+ zzerrstatus = 3; /* Each real token shifted decrements this */
+
+ goto zzerrhandle;
+
+zzerrdefault: /* current state does not do anything special for the error token. */
+
+#if 0
+ /* This is wrong; only states that explicitly want error tokens
+ should shift them. */
+ zzn = zzdefact[zzstate]; /* If its default is to accept any token, ok. Otherwise pop it.*/
+ if (zzn) goto zzdefault;
+#endif
+
+zzerrpop: /* pop the current state because it cannot handle the error token */
+
+ if (zzssp == zzss) YYABORT;
+ zzvsp--;
+ zzstate = *--zzssp;
+#ifdef YYLSP_NEEDED
+ zzlsp--;
+#endif
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ {
+ short *ssp1 = zzss - 1;
+ fprintf (stderr, "Error: state stack now");
+ while (ssp1 != zzssp)
+ fprintf (stderr, " %d", *++ssp1);
+ fprintf (stderr, "\n");
+ }
+#endif
+
+zzerrhandle:
+
+ zzn = zzpact[zzstate];
+ if (zzn == YYFLAG)
+ goto zzerrdefault;
+
+ zzn += YYTERROR;
+ if (zzn < 0 || zzn > YYLAST || zzcheck[zzn] != YYTERROR)
+ goto zzerrdefault;
+
+ zzn = zztable[zzn];
+ if (zzn < 0)
+ {
+ if (zzn == YYFLAG)
+ goto zzerrpop;
+ zzn = -zzn;
+ goto zzreduce;
+ }
+ else if (zzn == 0)
+ goto zzerrpop;
+
+ if (zzn == YYFINAL)
+ YYACCEPT;
+
+#if YYDEBUG != 0
+ if (zzdebug)
+ fprintf(stderr, "Shifting error token, ");
+#endif
+
+ *++zzvsp = zzlval;
+#ifdef YYLSP_NEEDED
+ *++zzlsp = zzlloc;
+#endif
+
+ zzstate = zzn;
+ goto zznewstate;
+}
+#line 148 "./posixtm.y"
+
+static int
+zzlex ()
+{
+ char ch = *curpos++;
+
+ if (ch >= '0' && ch <= '9')
+ {
+ zzlval = ch - '0';
+ return DIGIT;
+ }
+ else if (ch == '.' || ch == 0)
+ return ch;
+ else
+ return '?'; /* Cause an error. */
+}
+
+static int
+zzerror ()
+{
+ return 0;
+}
+
+/* Parse a POSIX-style date and return it, or (time_t)-1 for an error. */
+
+time_t
+posixtime (s)
+ char *s;
+{
+ curpos = s;
+ /* Let mktime decide whether it is daylight savings time. */
+ t.tm_isdst = -1;
+ if (zzparse ())
+ return (time_t)-1;
+ else
+ return mktime (&t);
+}
+
+/* Parse a POSIX-style date and return it, or NULL for an error. */
+
+struct tm *
+posixtm (s)
+ char *s;
+{
+ if (posixtime (s) == -1)
+ return NULL;
+ return &t;
+}
projects / gnulib.git / commitdiff