diff options
author | ericm <ericm@noemail.net> | 2000-01-12 01:16:08 (GMT) |
---|---|---|
committer | ericm <ericm@noemail.net> | 2000-01-12 01:16:08 (GMT) |
commit | dcf95554b035bc28c9f3f3890ef3257216c36da7 (patch) | |
tree | aad2972d4f490a96a52d231bd53b207d166c2980 /generic | |
parent | 4182ad31ce480de8c905153f41a75b2dd1fe2322 (diff) | |
download | tcl-dcf95554b035bc28c9f3f3890ef3257216c36da7.zip tcl-dcf95554b035bc28c9f3f3890ef3257216c36da7.tar.gz tcl-dcf95554b035bc28c9f3f3890ef3257216c36da7.tar.bz2 |
* generic/tclGetDate.y: Added comments for the Convert function.
* generic/tclDate.c: Fixed compiler warning issues.
FossilOrigin-Name: 286cd58368d4b9c1b47373223f2e8d72c88b2220
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclDate.c | 41 | ||||
-rw-r--r-- | generic/tclGetDate.y | 35 |
2 files changed, 69 insertions, 7 deletions
diff --git a/generic/tclDate.c b/generic/tclDate.c index 1cbb9b3..43727be 100644 --- a/generic/tclDate.c +++ b/generic/tclDate.c @@ -1,4 +1,4 @@ -#ifndef lint +#ifdef lint static char TclDatesccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93"; #endif #define YYBYACC 1 @@ -20,7 +20,7 @@ static char TclDatesccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93"; * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDate.c,v 1.10 2000/01/11 02:59:47 ericm Exp $ + * RCS: @(#) $Id: tclDate.c,v 1.11 2000/01/12 01:16:08 ericm Exp $ */ #include "tclInt.h" @@ -588,7 +588,22 @@ ToSeconds(Hours, Minutes, Seconds, Meridian) return -1; /* Should never be reached */ } - +/* + *----------------------------------------------------------------------------- + * + * Convert -- + * + * Convert a {month, day, year, hours, minutes, seconds, meridian, dst} + * tuple into a clock seconds value. + * + * Results: + * 0 or -1 indicating success or failure. + * + * Side effects: + * Fills TimePtr with the computed value. + * + *----------------------------------------------------------------------------- + */ static int Convert(Month, Day, Year, Hours, Minutes, Seconds, Meridian, DSTmode, TimePtr) time_t Month; @@ -608,13 +623,23 @@ Convert(Month, Day, Year, Hours, Minutes, Seconds, Meridian, DSTmode, TimePtr) time_t Julian; int i; + /* Figure out how many days are in February for the given year. + * Every year divisible by 4 is a leap year. + * But, every year divisible by 100 is not a leap year. + * But, every year divisible by 400 is a leap year after all. + */ DaysInMonth[1] = (Year % 4 == 0) && (Year % 100 != 0 || Year % 400 == 0) ? 29 : 28; + + /* Check the inputs for validity */ if (Month < 1 || Month > 12 || Year < START_OF_TIME || Year > END_OF_TIME || Day < 1 || Day > DaysInMonth[(int)--Month]) return -1; + /* Start computing the value. First determine the number of days + * represented by the date, then multiply by the number of seconds/day. + */ for (Julian = Day - 1, i = 0; i < Month; i++) Julian += DaysInMonth[i]; if (Year >= EPOCH) { @@ -627,10 +652,16 @@ Convert(Month, Day, Year, Hours, Minutes, Seconds, Meridian, DSTmode, TimePtr) (((i % 100) != 0) || ((i % 400) == 0))); } Julian *= SECSPERDAY; + + /* Add the timezone offset ?? */ Julian += TclDateTimezone * 60L; + + /* Add the number of seconds represented by the time component */ if ((tod = ToSeconds(Hours, Minutes, Seconds, Meridian)) < 0) return -1; Julian += tod; + + /* Perform a preliminary DST compensation ?? */ if (DSTmode == DSTon || (DSTmode == DSTmaybe && TclpGetDate((TclpTime_t)&Julian, 0)->tm_isdst)) Julian -= 60 * 60; @@ -1011,7 +1042,7 @@ TclDateparse() *TclDatessp = TclDatestate = 0; TclDateloop: - if (TclDaten = TclDatedefred[TclDatestate]) goto TclDatereduce; + if ((TclDaten = TclDatedefred[TclDatestate])) goto TclDatereduce; if (TclDatechar < 0) { if ((TclDatechar = TclDatelex()) < 0) TclDatechar = 0; @@ -1053,8 +1084,8 @@ TclDateloop: if (TclDateerrflag) goto TclDateinrecovery; #ifdef lint goto TclDatenewerror; -#endif TclDatenewerror: +#endif TclDateerror("syntax error"); #ifdef lint goto TclDateerrlab; diff --git a/generic/tclGetDate.y b/generic/tclGetDate.y index 3625041..0f1d515 100644 --- a/generic/tclGetDate.y +++ b/generic/tclGetDate.y @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclGetDate.y,v 1.8 2000/01/11 02:59:48 ericm Exp $ + * RCS: @(#) $Id: tclGetDate.y,v 1.9 2000/01/12 01:16:08 ericm Exp $ */ %{ @@ -603,7 +603,22 @@ ToSeconds(Hours, Minutes, Seconds, Meridian) return -1; /* Should never be reached */ } - +/* + *----------------------------------------------------------------------------- + * + * Convert -- + * + * Convert a {month, day, year, hours, minutes, seconds, meridian, dst} + * tuple into a clock seconds value. + * + * Results: + * 0 or -1 indicating success or failure. + * + * Side effects: + * Fills TimePtr with the computed value. + * + *----------------------------------------------------------------------------- + */ static int Convert(Month, Day, Year, Hours, Minutes, Seconds, Meridian, DSTmode, TimePtr) time_t Month; @@ -623,13 +638,23 @@ Convert(Month, Day, Year, Hours, Minutes, Seconds, Meridian, DSTmode, TimePtr) time_t Julian; int i; + /* Figure out how many days are in February for the given year. + * Every year divisible by 4 is a leap year. + * But, every year divisible by 100 is not a leap year. + * But, every year divisible by 400 is a leap year after all. + */ DaysInMonth[1] = (Year % 4 == 0) && (Year % 100 != 0 || Year % 400 == 0) ? 29 : 28; + + /* Check the inputs for validity */ if (Month < 1 || Month > 12 || Year < START_OF_TIME || Year > END_OF_TIME || Day < 1 || Day > DaysInMonth[(int)--Month]) return -1; + /* Start computing the value. First determine the number of days + * represented by the date, then multiply by the number of seconds/day. + */ for (Julian = Day - 1, i = 0; i < Month; i++) Julian += DaysInMonth[i]; if (Year >= EPOCH) { @@ -642,10 +667,16 @@ Convert(Month, Day, Year, Hours, Minutes, Seconds, Meridian, DSTmode, TimePtr) (((i % 100) != 0) || ((i % 400) == 0))); } Julian *= SECSPERDAY; + + /* Add the timezone offset ?? */ Julian += yyTimezone * 60L; + + /* Add the number of seconds represented by the time component */ if ((tod = ToSeconds(Hours, Minutes, Seconds, Meridian)) < 0) return -1; Julian += tod; + + /* Perform a preliminary DST compensation ?? */ if (DSTmode == DSTon || (DSTmode == DSTmaybe && TclpGetDate((TclpTime_t)&Julian, 0)->tm_isdst)) Julian -= 60 * 60; |