#define SECSPERDAY      (24L * 60L * 60L)
#define IsLeapYear(x)   ((x % 4 == 0) && (x % 100 != 0 || x % 400 == 0))

/*
 *  An entry in the lexical lookup table.
 */
typedef struct _TABLE {
    const char        *name;
    int         type;
    time_t      value;
} TABLE;


/*
 *  Daylight-savings mode:  on, off, or not yet known.

    MERam, MERpm, MER24
} MERIDIAN;


/*
 * Prototypes of internal functions.
 */
static void	TclDateerror(const char *s);
static time_t	ToSeconds(time_t Hours, time_t Minutes,
		    time_t Seconds, MERIDIAN Meridian);
static int	LookupWord(char *buff);
static int	TclDatelex(void* info);

MODULE_SCOPE int yyparse (void *);

/*
 * Dump error messages in the bit bucket.
 */
static void
TclDateerror(s)
    const char  *s;
{
}

static time_t
ToSeconds(Hours, Minutes, Seconds, Meridian)
    time_t      Hours;
    time_t      Minutes;

}

int
TclClockOldscanObjCmd( clientData, interp, objc, objv )
     ClientData clientData;	/* Unused */
     Tcl_Interp* interp;	/* Tcl interpreter */
     int objc;			/* Count of paraneters */
     Tcl_Obj *const *objv;	/* Parameters */
{

    Tcl_Obj* result;
    Tcl_Obj* resultElement;
    int yr, mo, da;
    DateInfo dateInfo;
    void* info = (void*) &dateInfo;