1467 lines
47 KiB
C
1467 lines
47 KiB
C
/* $Id$
|
||
* Author: Roger A. Cole
|
||
* Date: 08-09-90
|
||
*
|
||
* Experimental Physics and Industrial Control System (EPICS)
|
||
*
|
||
* Copyright 1991-92, the Regents of the University of California,
|
||
* and the University of Chicago Board of Governors.
|
||
*
|
||
* This software was produced under U.S. Government contracts:
|
||
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
|
||
* and (W-31-109-ENG-38) at Argonne National Laboratory.
|
||
*
|
||
* Initial development by:
|
||
* The Controls and Automation Group (AT-8)
|
||
* Ground Test Accelerator
|
||
* Accelerator Technology Division
|
||
* Los Alamos National Laboratory
|
||
*
|
||
* Co-developed with
|
||
* The Controls and Computing Group
|
||
* Accelerator Systems Division
|
||
* Advanced Photon Source
|
||
* Argonne National Laboratory
|
||
*
|
||
* Modification Log:
|
||
* -----------------
|
||
* .00 08-09-90 rac initial version
|
||
* .01 06-18-91 rac installed in SCCS
|
||
* .02 07-20-91 rac use EPICS_TS_MIN_WEST to override TS_MIN_WEST
|
||
* .03 08-16-91 rac use envGetLongConfigParam
|
||
* .04 09-05-91 joh updated for v5 vxWorks
|
||
* .05 01-27-92 rac fixed off-by-1 bug for leap years in tsTextToStamp
|
||
* .06 08-03-92 rac added tsRound... routines
|
||
* .07 10-06-92 rac minor fixes to the documentation
|
||
* .08 04-02-92 joh fixed number of days in a year uninitialized
|
||
* .09 02-09-94 jbk tsLocalTime() now calls TScurrentTimeStamp() vxWorks
|
||
* for the EPOCH year
|
||
* .10 05-04-94 pg HPUX cpp changes. (elif to else and if)
|
||
*
|
||
* make options
|
||
* -DvxWorks makes a version for VxWorks
|
||
* -DNDEBUG don't compile assert() checking
|
||
* -DDEBUG compile various debug code, including checks on
|
||
* malloc'd memory
|
||
*/
|
||
/*+/mod***********************************************************************
|
||
* TITLE tsSubr.c - time stamp routines
|
||
*
|
||
* DESCRIPTION
|
||
* This module contains routines relating to time stamps. Capabilities
|
||
* provided include: converting from time stamp to text; converting
|
||
* from text to time stamp; computing the difference between two time
|
||
* stamps; and getting system time in the form of a time stamp.
|
||
*
|
||
* A time stamp is a pair of `unsigned long' quantities: the number
|
||
* of seconds past an epoch; and the number of nanoseconds within
|
||
* the second. Time stamps always reference GMT. Except as noted in
|
||
* individual routines, the nanosecond part of the time stamp is assumed
|
||
* always to be between 0 and 999999999; these routines always produce
|
||
* time stamps which follow the rule.
|
||
*
|
||
* These routines handle leap year issues and daylight savings time
|
||
* issues, and properly handle dates after 1999. The tsDefs.h header
|
||
* file contains definitions which must be customized for the local
|
||
* time zone.
|
||
*
|
||
* QUICK REFERENCE
|
||
* #include <tsDefs.h>
|
||
* TS_STAMP timeStamp;
|
||
* void date( )
|
||
* void tsAddDouble( >pStampSum, pStamp, secAsDouble )
|
||
* void TsAddDouble( >pStampSum, pStamp, secAsDouble )
|
||
* void TsAddStamps( >pStampSum, pStamp1, pStamp2 )
|
||
* int tsCmpStamps( pStamp1, pStamp2 )
|
||
* int TsCmpStampsEQ( pStamp1, pStamp2 )
|
||
* int TsCmpStampsNE( pStamp1, pStamp2 )
|
||
* int TsCmpStampsGT( pStamp1, pStamp2 )
|
||
* int TsCmpStampsGE( pStamp1, pStamp2 )
|
||
* int TsCmpStampsLT( pStamp1, pStamp2 )
|
||
* int TsCmpStampsLE( pStamp1, pStamp2 )
|
||
* void TsDiffAsDouble( >pSecAsDouble, pStamp1, pStamp2 )
|
||
* void TsDiffAsStamp( >pStampDiff, pStamp1, pStamp2 )
|
||
* long tsLocalTime( >pStamp )
|
||
* long tsRoundDownLocal(<>pStamp, intervalUL )
|
||
* long tsRoundUpLocal( <>pStamp, intervalUL )
|
||
* char *tsStampToText( pStamp, textType, >textBuffer )
|
||
* TS_TEXT_MONDDYYYY buf[32]
|
||
* TS_TEXT_MMDDYY buf[28]
|
||
* long tsTextToStamp( >pStamp, <>pTextPointer )
|
||
* long tsTimeTextToStamp(>pStamp, <>pTextPointer )
|
||
*
|
||
* BUGS
|
||
* o time stamps on the first day of the epoch are taken to be `delta
|
||
* times', thus making it impossible to represent times on the first
|
||
* day of the epoch as a time stamp.
|
||
*
|
||
* NOTES
|
||
* 1. The environment variable EPICS_TS_MIN_WEST overrides the default
|
||
* time zone established by TS_MIN_WEST in tsDefs.h
|
||
*
|
||
* SEE ALSO
|
||
* tsDefs.h contains definitions needed to use these routines,
|
||
* as well as configuration information
|
||
*
|
||
* (Some of the code here is based somewhat on time-related routines from
|
||
* 4.2 BSD.)
|
||
*-***************************************************************************/
|
||
|
||
#ifdef vxWorks
|
||
# include <vxWorks.h>
|
||
# include <stdioLib.h>
|
||
# include <strLib.h>
|
||
# include <ctype.h>
|
||
#else
|
||
#if VMS
|
||
#else
|
||
# include <sys/time.h>
|
||
# include <stdio.h>
|
||
# include <string.h>
|
||
# include <strings.h>
|
||
# include <ctype.h>
|
||
#endif
|
||
#endif
|
||
|
||
#ifndef INC_genDefs_h
|
||
# include <genDefs.h> /* provides assert() */
|
||
#endif
|
||
#include <envDefs.h>
|
||
#define TS_PRIVATE_DATA
|
||
#include <tsDefs.h>
|
||
|
||
static void tsStampFromLocal();
|
||
static void tsStampToLocal();
|
||
static void tsStampToLocalZone();
|
||
static void tsInitMinWest();
|
||
|
||
static int needToInitMinWest=1;
|
||
static long tsMinWest=TS_MIN_WEST;
|
||
|
||
static int daysInMonth[] = {31,28,31,30, 31, 30, 31, 31, 30, 31, 30, 31};
|
||
static int dayYear1stOfMon[] = {0,31,59,90,120,151,181,212,243,273,304,334};
|
||
static char monthText[] = "JanFebMarAprMayJunJulAugSepOctNovDec";
|
||
|
||
|
||
/*/subhead tsTest-------------------------------------------------------------
|
||
* some test code.
|
||
*----------------------------------------------------------------------------*/
|
||
#if TS_TEST || LINT
|
||
|
||
# ifndef vxWorks
|
||
main()
|
||
{
|
||
return tsTest();
|
||
}
|
||
# endif
|
||
tsTest()
|
||
{
|
||
long stat;
|
||
double dbl;
|
||
TS_STAMP stamp1;
|
||
char stamp1Txt[32];
|
||
TS_STAMP stamp2;
|
||
char stamp2Txt[32];
|
||
TS_STAMP stamp3;
|
||
char stamp3Txt[32];
|
||
TS_STAMP stampD;
|
||
char stampDTxt[32];
|
||
TS_STAMP stampDbl;
|
||
char stampDblTxt[32];
|
||
TS_STAMP stampDblD;
|
||
char stampDblDTxt[32];
|
||
TS_STAMP inStamp;
|
||
char inStampTxt[80];
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* get current date and print in the various ways possible
|
||
*----------------------------------------------------------------------------*/
|
||
(void)printf("Getting current date:\n");
|
||
if ((stat = tsLocalTime(&stamp1)) != S_ts_OK) {
|
||
(void)printf("%s\n", TsStatusToText(stat));
|
||
return 1;
|
||
}
|
||
(void)printf(" %s\n",
|
||
tsStampToText(&stamp1, TS_TEXT_MONDDYYYY, stamp1Txt));
|
||
(void)printf(" %s\n",
|
||
tsStampToText(&stamp1, TS_TEXT_MMDDYY, stamp1Txt));
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* now, play around a bit with other routines
|
||
*----------------------------------------------------------------------------*/
|
||
stamp2.secPastEpoch = 80432;
|
||
stamp2.nsec = 900000000;
|
||
|
||
TsAddStamps(&stamp3, &stamp1, &stamp2);
|
||
(void)printf("%s plus %s is %s\n",
|
||
stamp1Txt,
|
||
tsStampToText(&stamp2, TS_TEXT_MMDDYY, stamp2Txt),
|
||
tsStampToText(&stamp3, TS_TEXT_MMDDYY, stamp3Txt));
|
||
TsDiffAsStamp(&stampD, &stamp3, &stamp1);
|
||
(void)printf("%s minus %s is %s\n",
|
||
stamp3Txt, stamp1Txt,
|
||
tsStampToText(&stampD, TS_TEXT_MMDDYY, stampDTxt));
|
||
TsDiffAsDouble(&dbl, &stamp3, &stamp1);
|
||
(void)printf("%s Minus %s is %.9f\n", stamp3Txt, stamp1Txt, dbl);
|
||
TsDiffAsDouble(&dbl, &stamp1, &stamp3);
|
||
(void)printf("%s Minus %s is %.9f\n", stamp1Txt, stamp3Txt, dbl);
|
||
|
||
tsAddDouble(&stampDbl, &stamp1, 80432.9);
|
||
(void)printf("%s plus %.9f is %s\n",
|
||
stamp1Txt, 80432.9,
|
||
tsStampToText(&stampDbl, TS_TEXT_MMDDYY, stampDblTxt));
|
||
TsAddDouble(&stampDbl, &stamp1, 80432.9);
|
||
(void)printf("%s Plus %.9f is %s\n",
|
||
stamp1Txt, 80432.9,
|
||
tsStampToText(&stampDbl, TS_TEXT_MMDDYY, stampDblTxt));
|
||
tsAddDouble(&stampDblD, &stampDbl, -80432.9);
|
||
(void)printf("%s plus %.9f is %s\n",
|
||
stampDblTxt, -80432.9,
|
||
tsStampToText(&stampDblD,TS_TEXT_MMDDYY, stampDblDTxt));
|
||
TsAddDouble(&stampDblD, &stampDbl, -80432.9);
|
||
(void)printf("%s Plus %.9f is %s\n",
|
||
stampDblTxt, -80432.9,
|
||
tsStampToText(&stampDblD,TS_TEXT_MMDDYY, stampDblDTxt));
|
||
|
||
stamp2.nsec = 100000000;
|
||
TsAddStamps(&stamp3, &stamp1, &stamp2);
|
||
(void)printf("%s plus %s is %s\n",
|
||
stamp1Txt,
|
||
tsStampToText(&stamp2, TS_TEXT_MMDDYY, stamp2Txt),
|
||
tsStampToText(&stamp3, TS_TEXT_MMDDYY, stamp3Txt));
|
||
TsDiffAsStamp(&stampD, &stamp3, &stamp1);
|
||
(void)printf("%s minus %s is %s\n",
|
||
stamp3Txt, stamp1Txt,
|
||
tsStampToText(&stampD, TS_TEXT_MMDDYY, stampDTxt));
|
||
TsDiffAsDouble(&dbl, &stamp3, &stamp1);
|
||
(void)printf("%s Minus %s is %.9f\n", stamp3Txt, stamp1Txt, dbl);
|
||
TsDiffAsDouble(&dbl, &stamp1, &stamp3);
|
||
(void)printf("%s Minus %s is %.9f\n", stamp1Txt, stamp3Txt, dbl);
|
||
|
||
tsAddDouble(&stampDbl, &stamp1, 80432.1);
|
||
(void)printf("%s plus %.9f is %s\n",
|
||
stamp1Txt, 80432.1,
|
||
tsStampToText(&stampDbl, TS_TEXT_MMDDYY, stampDblTxt));
|
||
TsAddDouble(&stampDbl, &stamp1, 80432.1);
|
||
(void)printf("%s Plus %.9f is %s\n",
|
||
stamp1Txt, 80432.1,
|
||
tsStampToText(&stampDbl, TS_TEXT_MMDDYY, stampDblTxt));
|
||
tsAddDouble(&stampDblD, &stampDbl, -80432.1);
|
||
(void)printf("%s plus %.9f is %s\n",
|
||
stampDblTxt, -80432.1,
|
||
tsStampToText(&stampDblD,TS_TEXT_MMDDYY, stampDblDTxt));
|
||
TsAddDouble(&stampDblD, &stampDbl, -80432.1);
|
||
(void)printf("%s Plus %.9f is %s\n",
|
||
stampDblTxt, -80432.1,
|
||
tsStampToText(&stampDblD,TS_TEXT_MMDDYY, stampDblDTxt));
|
||
|
||
(void)printf("comparisons for %s vs %s\n", stamp1Txt, stamp3Txt);
|
||
(void)printf(" tsCmpStamps: A,B %2d B,A %2d A,A %2d\n",
|
||
tsCmpStamps(&stamp1, &stamp3), tsCmpStamps(&stamp3, &stamp1),
|
||
tsCmpStamps(&stamp1, &stamp1));
|
||
(void)printf(
|
||
" macro A vs B: EQ %d NE %d GT %d GE %d LT %d LE %d\n",
|
||
TsCmpStampsEQ(&stamp1, &stamp3), TsCmpStampsNE(&stamp1, &stamp3),
|
||
TsCmpStampsGT(&stamp1, &stamp3), TsCmpStampsGE(&stamp1, &stamp3),
|
||
TsCmpStampsLT(&stamp1, &stamp3), TsCmpStampsLE(&stamp1, &stamp3));
|
||
(void)printf(
|
||
" macro B vs A: EQ %d NE %d GT %d GE %d LT %d LE %d\n",
|
||
TsCmpStampsEQ(&stamp3, &stamp1), TsCmpStampsNE(&stamp3, &stamp1),
|
||
TsCmpStampsGT(&stamp3, &stamp1), TsCmpStampsGE(&stamp3, &stamp1),
|
||
TsCmpStampsLT(&stamp3, &stamp1), TsCmpStampsLE(&stamp3, &stamp1));
|
||
(void)printf(
|
||
" macro A vs A: EQ %d NE %d GT %d GE %d LT %d LE %d\n",
|
||
TsCmpStampsEQ(&stamp1, &stamp1), TsCmpStampsNE(&stamp1, &stamp1),
|
||
TsCmpStampsGT(&stamp1, &stamp1), TsCmpStampsGE(&stamp1, &stamp1),
|
||
TsCmpStampsLT(&stamp1, &stamp1), TsCmpStampsLE(&stamp1, &stamp1));
|
||
|
||
stamp2.secPastEpoch = 0;
|
||
stamp2.nsec = 10000000;
|
||
TsAddStamps(&stamp3, &stamp1, &stamp2);
|
||
(void)printf("comparisons for %s vs %s\n", stamp1Txt,
|
||
tsStampToText(&stamp3, TS_TEXT_MMDDYY, stamp3Txt));
|
||
(void)printf(" tsCmpStamps: A,B %2d B,A %2d A,A %2d\n",
|
||
tsCmpStamps(&stamp1, &stamp3), tsCmpStamps(&stamp3, &stamp1),
|
||
tsCmpStamps(&stamp1, &stamp1));
|
||
(void)printf(
|
||
" macro A vs B: EQ %d NE %d GT %d GE %d LT %d LE %d\n",
|
||
TsCmpStampsEQ(&stamp1, &stamp3), TsCmpStampsNE(&stamp1, &stamp3),
|
||
TsCmpStampsGT(&stamp1, &stamp3), TsCmpStampsGE(&stamp1, &stamp3),
|
||
TsCmpStampsLT(&stamp1, &stamp3), TsCmpStampsLE(&stamp1, &stamp3));
|
||
(void)printf(
|
||
" macro B vs A: EQ %d NE %d GT %d GE %d LT %d LE %d\n",
|
||
TsCmpStampsEQ(&stamp3, &stamp1), TsCmpStampsNE(&stamp3, &stamp1),
|
||
TsCmpStampsGT(&stamp3, &stamp1), TsCmpStampsGE(&stamp3, &stamp1),
|
||
TsCmpStampsLT(&stamp3, &stamp1), TsCmpStampsLE(&stamp3, &stamp1));
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* exercise tsTextToStamp
|
||
*----------------------------------------------------------------------------*/
|
||
inStampTxt[0] = '\0';
|
||
while (strncmp(inStampTxt, "quit", 4) != 0) {
|
||
(void)printf("type text date/time or quit: ");
|
||
if (fgets(inStampTxt, 80, stdin) == NULL) {
|
||
(void)strcpy(inStampTxt, "quit");
|
||
(void)printf("\n");
|
||
clearerr(stdin);
|
||
}
|
||
else if (strncmp(inStampTxt, "quit", 4) == 0)
|
||
; /* no action */
|
||
else {
|
||
char *pText;
|
||
pText = inStampTxt;
|
||
if ((stat = tsTextToStamp(&inStamp, &pText)) != S_ts_OK) {
|
||
(void)printf("%s\n", TsStatusToText(stat));
|
||
}
|
||
else {
|
||
(void)printf("stamp is: %lu %lu %s\n", inStamp.secPastEpoch,
|
||
inStamp.nsec,
|
||
tsStampToText(&inStamp, TS_TEXT_MMDDYY, inStampTxt));
|
||
}
|
||
}
|
||
}
|
||
|
||
clearerr(stdin);
|
||
return 0;
|
||
}
|
||
#endif
|
||
|
||
#ifdef vxWorks
|
||
/*+/subr**********************************************************************
|
||
* NAME date - print present time and date
|
||
*
|
||
* DESCRIPTION
|
||
* Prints the present date and time when running under VxWorks.
|
||
*
|
||
* RETURNS
|
||
* void
|
||
*
|
||
*-*/
|
||
void
|
||
date()
|
||
{
|
||
TS_STAMP now;
|
||
char nowText[32];
|
||
|
||
(void)tsLocalTime(&now);
|
||
(void)printf("%s\n", tsStampToText(&now, TS_TEXT_MONDDYYYY, nowText));
|
||
}
|
||
#endif
|
||
|
||
/*+/internal******************************************************************
|
||
* NAME sunday - find closest Sunday
|
||
*
|
||
* DESCRIPTION
|
||
* Finds the day of the year for the closest Sunday to the specified
|
||
* day of the year; caller can specify whether the preceding or
|
||
* following Sunday is desired.
|
||
*
|
||
* RETURNS
|
||
* day of year for the desired Sunday
|
||
*
|
||
*-*/
|
||
static
|
||
sunday(day, leap, dayYear, dayOfWeek)
|
||
int day; /* I day of year to find closest Sunday */
|
||
int leap; /* I 0, 1 for not leap year, leap year, respectively */
|
||
int dayYear; /* I known day of year */
|
||
int dayOfWeek; /* I day of week for dayYear */
|
||
{
|
||
int offset; /* controls direction of offset */
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* The principle of this routine is: if I know the day of the week for a
|
||
* particular day in this year, then the day of the week for the caller's
|
||
* day is (myDOW - (myDay - callersDay) % 7) . (This needs to be
|
||
* elaborated a little, since it can generate numbers outside 0 to 6 .)
|
||
* Once the day of the week is known for the caller's day, the previous
|
||
* Sunday is obtained by subtracting the caller's day of week from the
|
||
* caller's day; if the following Sunday is desired, then finish up by
|
||
* adding 7 to the date for the prior Sunday.
|
||
*
|
||
* 'offset' takes care of the 'outside 0 to 6' issue and also takes care
|
||
* of the direction for 'prior' or 'following'. There isn't any magic
|
||
* about the choice of 700 as the value--it must be a multiple of 7 and
|
||
* must be larger than the number of days in a year.
|
||
*----------------------------------------------------------------------------*/
|
||
if (day < 0) { /* look for prior Sunday */
|
||
offset = -700;
|
||
day = -day;
|
||
assert(day > 5); /* day can't be too early in year */
|
||
}
|
||
else { /* look for following Sunday */
|
||
offset = 700;
|
||
assert(day < 360); /* day can't be too late in year */
|
||
}
|
||
/*----------------------------------------------------------------------------
|
||
* adjust caller's day of year to compensate for leap year. If the day is
|
||
* after Feb 28, add 1 in leap years. If the day is Feb 28, then also add
|
||
* 1, so that the day stays "last day in Feb".
|
||
*----------------------------------------------------------------------------*/
|
||
if (day >= 58)
|
||
day += leap;
|
||
|
||
return (day - (day - dayYear + dayOfWeek + offset) % 7 );
|
||
}
|
||
|
||
/*+/macro*********************************************************************
|
||
* NAME TsAddXxx - addition for time stamps
|
||
*
|
||
* DESCRIPTION
|
||
* These routines and macros produce a time stamp which is the sum of a
|
||
* time stamp and another quantity. For xxAddDouble(), the `other
|
||
* quantity' is a positive or negative double precision value. For
|
||
* TsAddStamps, the `other quantity' is another time stamp.
|
||
*
|
||
* tsAddDouble(pStampSum, pStamp1, secAsDouble) function
|
||
* TsAddDouble(pStampSum, pStamp1, secAsDouble) macro
|
||
* TsAddStamps(pStampSum, pStamp1, pStamp2) macro
|
||
*
|
||
* pStampSum can be the same as one of the other pStamp arguments.
|
||
*
|
||
* RETURNS
|
||
* void
|
||
*
|
||
* NOTES
|
||
* 1. These tools properly handle the case where pStamp1->nsec and/or
|
||
* pStamp2->nsec are greater then 1000000000, so long as the sum is
|
||
* less than 4294967295 (i.e., 0xffffffff).
|
||
* 2. For xxAddDouble(), if secAsDouble is negative, its absolute value
|
||
* is assumed to be smaller than pStamp, so that the sum will be positive.
|
||
* 3. Using xxAddDouble() can produce time stamps whose resolution differs
|
||
* from the resolution of the addend time stamp; this can be confusing
|
||
* for comparisons and for tsStampToText(). For example,
|
||
* 9/10/90 10:23:06.940 plus 80432.9 (equivalent to 22:20:32.900)
|
||
* produces 9/11/90 8:43:39.839999999 rather than ...840, as desired.
|
||
*
|
||
* EXAMPLE
|
||
* 1. Compute the time stamp corresponding to 2 hours past the present
|
||
* time and date.
|
||
*
|
||
* TS_STAMP now, later;
|
||
* double twoHours=7200.;
|
||
*
|
||
* tsLocalTime(&now);
|
||
* TsAddDouble(&later, &now, twoHours);
|
||
*
|
||
*-*/
|
||
void
|
||
tsAddDouble(pSum, pStamp, dbl)
|
||
TS_STAMP *pSum; /* O sum time stamp */
|
||
TS_STAMP *pStamp; /* I addend time stamp */
|
||
double dbl; /* I number of seconds to add */
|
||
{
|
||
TS_STAMP stamp; /* stamp equivalent of the double */
|
||
|
||
if (dbl >= 0.) {
|
||
stamp.secPastEpoch = (unsigned long)dbl;
|
||
stamp.nsec = (unsigned long)
|
||
((dbl - (double)stamp.secPastEpoch) * 1000000000.);
|
||
TsAddStamps(pSum, pStamp, &stamp);
|
||
}
|
||
else {
|
||
dbl = -dbl;
|
||
stamp.secPastEpoch = (unsigned long)dbl;
|
||
stamp.nsec = (unsigned long)
|
||
((dbl - (double)stamp.secPastEpoch) * 1000000000.);
|
||
TsDiffAsStamp(pSum, pStamp, &stamp);
|
||
}
|
||
}
|
||
|
||
/*+/subr**********************************************************************
|
||
* NAME tsCmpStamps - compare two time stamps
|
||
*
|
||
* DESCRIPTION
|
||
* Compare two time stamps and return (similar to strcmp() ) negative,
|
||
* zero, or positive if the first time stamp is, respectively, less
|
||
* than, equal to, or greater than the second.
|
||
*
|
||
* Several comparison macros are also available in tsDefs.h . These
|
||
* macros return a true condition if the comparison test succeeds:
|
||
*
|
||
* TsCmpStampsEQ(pStamp1, pStamp2) is true if stamp1 == stamp2
|
||
* TsCmpStampsNE(pStamp1, pStamp2) is true if stamp1 != stamp2
|
||
* TsCmpStampsGT(pStamp1, pStamp2) is true if stamp1 > stamp2
|
||
* TsCmpStampsGE(pStamp1, pStamp2) is true if stamp1 >= stamp2
|
||
* TsCmpStampsLT(pStamp1, pStamp2) is true if stamp1 < stamp2
|
||
* TsCmpStampsLE(pStamp1, pStamp2) is true if stamp1 <= stamp2
|
||
*
|
||
* RETURNS
|
||
* see description above
|
||
*
|
||
* EXAMPLES
|
||
* 1. Compare two time stamps.
|
||
* TS_STAMP stamp1, stamp2;
|
||
*
|
||
* if ((i=tsCmpStamps(&stamp1, &stamp2)) == 0)
|
||
* printf("stamps are equal\n");
|
||
* else if (i < 0)
|
||
* printf("first stamp is earlier\n");
|
||
* else
|
||
* printf("first stamp is later\n");
|
||
*
|
||
* 2. Compare two time stamps.
|
||
* TS_STAMP stamp1, stamp2;
|
||
*
|
||
* if (TsCmpStampsEQ(&stamp1, &stamp2))
|
||
* printf("stamps are equal\n");
|
||
* else if (TsCmpStampsLT(&stamp1, &stamp2))
|
||
* printf("first stamp is earlier\n");
|
||
* else
|
||
* printf("first stamp is later\n");
|
||
*
|
||
*-*/
|
||
int
|
||
tsCmpStamps(pStamp1, pStamp2)
|
||
TS_STAMP *pStamp1; /* pointer to first stamp */
|
||
TS_STAMP *pStamp2; /* pointer to second stamp */
|
||
{
|
||
if (pStamp1->secPastEpoch < pStamp2->secPastEpoch)
|
||
return -1;
|
||
else if (pStamp1->secPastEpoch == pStamp2->secPastEpoch) {
|
||
if (pStamp1->nsec < pStamp2->nsec)
|
||
return -1;
|
||
else if (pStamp1->nsec == pStamp2->nsec)
|
||
return 0;
|
||
else
|
||
return 1;
|
||
}
|
||
else
|
||
return 1;
|
||
}
|
||
|
||
/*+/macro*********************************************************************
|
||
* NAME TsDiffAsXxx - difference between two time stamps
|
||
*
|
||
* DESCRIPTION
|
||
* These macros produce the result of subtracting two
|
||
* time stamps, i.e.,
|
||
*
|
||
* result = *pStamp1 - *pStamp2;
|
||
*
|
||
* The form the result depends on the macro used. For TsDiffAsDouble(),
|
||
* the result is floating point seconds, represented as double. For
|
||
* TsDiffAsStamp(), the result is a time stamp.
|
||
*
|
||
* TsDiffAsDouble(pSecAsDouble, pStamp1, pStamp2)
|
||
* TsDiffAsStamp(pStampDiff, pStamp1, pStamp2)
|
||
*
|
||
* RETURNS
|
||
* void
|
||
*
|
||
* NOTES
|
||
* 1. Because time stamps are represented as unsigned quantities, care
|
||
* must be taken that *pStamp1 is >= *pStamp2 for TsDiffAsStamp(). (For
|
||
* TsDiffAsDouble(), this restriction doesn't apply.)
|
||
*
|
||
* EXAMPLES
|
||
* 1. Compute the difference in seconds between two time stamps.
|
||
* TS_STAMP stamp1, stamp2;
|
||
*
|
||
* printf("difference is %f sec.\n", TsDiffAsDouble(&stamp1, &stamp2);
|
||
*
|
||
*-*/
|
||
|
||
/*+/subr**********************************************************************
|
||
* NAME tsLocalTime - get local time as a time stamp
|
||
*
|
||
* DESCRIPTION
|
||
* The local system time is obtained, converted to the reference time
|
||
* used by time stamps, and then converted into the form used for
|
||
* time stamps.
|
||
*
|
||
* RETURNS
|
||
* S_ts_OK, or
|
||
* S_ts_sysTimeError if error occurred getting time of day
|
||
*
|
||
* BUGS
|
||
* o For SunOS, local system time is truncated at milli-seconds--i.e.,
|
||
* micro-seconds are ignored.
|
||
*
|
||
* EXAMPLES
|
||
* 1. Get the local time as a time stamp.
|
||
* TS_STAMP now;
|
||
*
|
||
* tsLocalTime(&now);
|
||
*
|
||
*-*/
|
||
long
|
||
tsLocalTime(pStamp)
|
||
TS_STAMP *pStamp; /* O pointer to time stamp buffer */
|
||
{
|
||
long retStat=S_ts_OK;/* return status to caller */
|
||
|
||
#ifdef vxWorks
|
||
# if 0 /* 'test' code, for ioc core without time of day service */
|
||
assert(pStamp != NULL);
|
||
pStamp->nsec = 987000000;
|
||
pStamp->secPastEpoch = 30 * 86400 + 495; /* 0815 Jan 31 of epoch year */
|
||
# else
|
||
return TScurrentTimeStamp((struct timespec*)pStamp);
|
||
# endif
|
||
#else
|
||
#if VMS
|
||
assert(0); /* not available on VMS */
|
||
assert(pStamp != NULL);
|
||
#else /* SunOS */
|
||
struct timeval curtime;
|
||
|
||
assert(pStamp != NULL);
|
||
if (gettimeofday(&curtime, (struct timezone *)NULL) == -1)
|
||
retStat = S_ts_sysTimeError;
|
||
else {
|
||
pStamp->nsec = ( curtime.tv_usec/1000 ) * 1000000;
|
||
pStamp->secPastEpoch = curtime.tv_sec - TS_EPOCH_SEC_PAST_1970;
|
||
}
|
||
#endif
|
||
#endif
|
||
|
||
pStamp->nsec = pStamp->nsec - (pStamp->nsec % TS_TRUNC);
|
||
return retStat;
|
||
}
|
||
|
||
/*+/subr**********************************************************************
|
||
* NAME tsRoundDownLocal - round stamp down to interval, based on local time
|
||
*
|
||
* DESCRIPTION
|
||
* The time stamp is rounded down to the prior interval, based on
|
||
* local time. The rounding interval must be between 1 second and
|
||
* 86400 seconds (a full day).
|
||
*
|
||
* RETURNS
|
||
* S_ts_OK, or
|
||
* S_ts_badRoundInterval if the rounding interval is invalid
|
||
*
|
||
* EXAMPLES
|
||
* 1. Round a time stamp back to 0000 hours, at the beginning of the day.
|
||
* TS_STAMP now;
|
||
*
|
||
* tsRoundDownLocal(&now, 86400);
|
||
*
|
||
*-*/
|
||
long
|
||
tsRoundDownLocal(pStamp, interval)
|
||
TS_STAMP *pStamp; /* IO pointer to time stamp buffer */
|
||
unsigned long interval; /* I rounding interval, in seconds */
|
||
{
|
||
long retStat=S_ts_OK;/* return status to caller */
|
||
struct tsDetail detail;
|
||
unsigned long seconds;
|
||
|
||
tsStampToLocal(*pStamp, &detail);
|
||
if (interval < 1. || interval > 86400.)
|
||
retStat = S_ts_badRoundInterval;
|
||
else {
|
||
seconds = detail.seconds + 60*detail.minutes + 3600*detail.hours;
|
||
seconds -= seconds % interval;
|
||
detail.hours = seconds / 3600;
|
||
detail.minutes = (seconds % 3600) / 60;
|
||
detail.seconds = seconds % 60;
|
||
tsStampFromLocal(pStamp, &detail);
|
||
pStamp->nsec = 0;
|
||
}
|
||
|
||
return retStat;
|
||
}
|
||
|
||
/*+/subr**********************************************************************
|
||
* NAME tsRoundUpLocal - round stamp up to interval, based on local time
|
||
*
|
||
* DESCRIPTION
|
||
* The time stamp is rounded up to the following interval, based on
|
||
* local time. The rounding interval must be between 1 second and
|
||
* 86400 seconds (a full day).
|
||
*
|
||
* RETURNS
|
||
* S_ts_OK, or
|
||
* S_ts_badRoundInterval if the rounding interval is invalid
|
||
*
|
||
* EXAMPLES
|
||
* 1. Round a time stamp forward to 0000 hours, at the beginning of the
|
||
* following day.
|
||
* TS_STAMP now;
|
||
*
|
||
* tsRoundUpLocal(&now, 86400);
|
||
*
|
||
*-*/
|
||
long
|
||
tsRoundUpLocal(pStamp, interval)
|
||
TS_STAMP *pStamp; /* IO pointer to time stamp buffer */
|
||
unsigned long interval; /* I rounding interval, in seconds */
|
||
{
|
||
long retStat=S_ts_OK;/* return status to caller */
|
||
struct tsDetail detail;
|
||
unsigned long seconds;
|
||
|
||
tsStampToLocal(*pStamp, &detail);
|
||
if (interval < 1. || interval > 86400.)
|
||
retStat = S_ts_badRoundInterval;
|
||
else {
|
||
seconds = detail.seconds + 60*detail.minutes + 3600*detail.hours;
|
||
if (pStamp->nsec > 0)
|
||
seconds++;
|
||
seconds += interval - 1;
|
||
seconds -= seconds % interval;
|
||
detail.hours = seconds / 3600;
|
||
detail.minutes = (seconds % 3600) / 60;
|
||
detail.seconds = seconds % 60;
|
||
tsStampFromLocal(pStamp, &detail);
|
||
pStamp->nsec = 0;
|
||
}
|
||
|
||
return retStat;
|
||
}
|
||
|
||
/*+/internal******************************************************************
|
||
* NAME tsStampFromLocal - convert time stamp to local time
|
||
*
|
||
* DESCRIPTION
|
||
* Converts a tsDetail structure for local time into an EPICS time
|
||
* stamp, taking daylight savings time into consideration.
|
||
*
|
||
* RETURNS
|
||
* void
|
||
*
|
||
* BUGS
|
||
* o doesn't handle 0 time stamps for time zones west of Greenwich
|
||
*
|
||
*-*/
|
||
static void
|
||
tsStampFromLocal(pStamp, pT)
|
||
TS_STAMP *pStamp;/* O EPICS time stamp resulting from conversion */
|
||
struct tsDetail *pT; /* I pointer to time structure to convert */
|
||
{
|
||
long retStat=S_ts_OK;/* return status to caller */
|
||
|
||
TS_STAMP stamp; /* temp for building time stamp */
|
||
int year; /* temp for year number */
|
||
int days; /* temp for days since epoch */
|
||
int dstBegin; /* day DST begins */
|
||
int dstEnd; /* day DST ends */
|
||
int dst; /* (0, 1) for DST (isn't, is) in effect */
|
||
|
||
if (needToInitMinWest)
|
||
tsInitMinWest();
|
||
|
||
year = TS_EPOCH_YEAR;
|
||
days = pT->dayYear;
|
||
while (year < pT->year) {
|
||
if (year % 400 == 0 || (year % 4 == 0 && year % 100 != 0))
|
||
days += 366;
|
||
else
|
||
days += 365;
|
||
year++;
|
||
}
|
||
pT->dayOfWeek = (days + TS_EPOCH_WDAY_NUM) % 7;
|
||
stamp.secPastEpoch = days * 86400; /* converted to seconds */
|
||
stamp.secPastEpoch += pT->hours*3600 + pT->minutes*60 + pT->seconds;
|
||
/*----------------------------------------------------------------------------
|
||
* we now have a stamp which corresponds to the text time, BUT with
|
||
* the assumption that the text time is standard time. Three daylight
|
||
* time issues must be dealt with: was the text time during DST; was
|
||
* the text time during the `skipped' time when standard ends and DST
|
||
* begins; and was it during the `limbo' time when DST ends and standard
|
||
* begins.
|
||
*
|
||
* If, for example, DST ends at 2 a.m., and 1 hour is added during DST,
|
||
* then the limbo time begins at 1 a.m. DST and ends at 2 a.m. standard.
|
||
*----------------------------------------------------------------------------*/
|
||
dstBegin = sunday(TS_DST_BEGIN, pT->leapYear, pT->dayYear, pT->dayOfWeek);
|
||
dstEnd = sunday(TS_DST_END, pT->leapYear, pT->dayYear, pT->dayOfWeek);
|
||
assert(dstBegin != dstEnd);
|
||
dst = 0;
|
||
if (dstBegin < dstEnd && (pT->dayYear < dstBegin || pT->dayYear > dstEnd))
|
||
; /* not DST; no action */
|
||
else if (dstBegin > dstEnd && pT->dayYear < dstBegin && pT->dayYear>dstEnd)
|
||
; /* not DST; no action */
|
||
else if (pT->dayYear == dstBegin) {
|
||
if (pT->hours < TS_DST_HOUR_ON)
|
||
; /* not DST; no action */
|
||
else if (pT->hours < TS_DST_HOUR_ON + TS_DST_HRS_ADD)
|
||
retStat = S_ts_timeSkippedDST;
|
||
else
|
||
dst = 1;
|
||
}
|
||
else if (pT->dayYear != dstEnd)
|
||
dst = 1;
|
||
else {
|
||
if (pT->hours >= TS_DST_HOUR_OFF + TS_DST_HRS_ADD)
|
||
; /* not DST */
|
||
else if (pT->hours < TS_DST_HOUR_OFF)
|
||
dst = 1;
|
||
else if (pT->dstOverlapChar == 'd')
|
||
dst = 1;
|
||
}
|
||
if (dst)
|
||
stamp.secPastEpoch -= TS_DST_HRS_ADD * 3600;
|
||
stamp.secPastEpoch += tsMinWest*60;
|
||
*pStamp = stamp;
|
||
}
|
||
|
||
/*+/internal******************************************************************
|
||
* NAME tsStampToLocal - convert time stamp to local time
|
||
*
|
||
* DESCRIPTION
|
||
* Converts an EPICS time stamp into a tsDetail structure for local
|
||
* time, taking daylight savings time into consideration.
|
||
*
|
||
* RETURNS
|
||
* void
|
||
*
|
||
* BUGS
|
||
* o doesn't handle 0 time stamps for time zones west of Greenwich
|
||
*
|
||
*-*/
|
||
static void
|
||
tsStampToLocal(stamp, pT)
|
||
TS_STAMP stamp; /* I EPICS time stamp to convert */
|
||
struct tsDetail *pT; /* O pointer to time structure for conversion */
|
||
{
|
||
int dstBegin; /* day DST begins */
|
||
int dstEnd; /* day DST ends */
|
||
int dst; /* (0, 1) for DST (isn't, is) in effect */
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* convert stamp to local time. Since no dst compensation has been
|
||
* done, this is local STANDARD time. All dst compensation uses standard
|
||
* time for the tests and adjustments.
|
||
*----------------------------------------------------------------------------*/
|
||
tsStampToLocalZone(&stamp, pT);
|
||
|
||
dstBegin = sunday(TS_DST_BEGIN, pT->leapYear, pT->dayYear, pT->dayOfWeek);
|
||
dstEnd = sunday(TS_DST_END, pT->leapYear, pT->dayYear, pT->dayOfWeek);
|
||
dst = 0;
|
||
pT->dstOverlapChar = ':';
|
||
if (dstBegin < dstEnd && (pT->dayYear < dstBegin || pT->dayYear > dstEnd))
|
||
; /* not DST; no action */
|
||
else if (dstBegin > dstEnd && pT->dayYear < dstBegin && pT->dayYear>dstEnd)
|
||
; /* not DST; no action */
|
||
else if (pT->dayYear == dstBegin && pT->hours < TS_DST_HOUR_ON)
|
||
; /* not DST; no action */
|
||
else if (pT->dayYear != dstEnd)
|
||
dst = 1;
|
||
else {
|
||
if (pT->hours >= TS_DST_HOUR_OFF) {
|
||
; /* not DST; may be 'limbo' time */
|
||
if (pT->hours < TS_DST_HOUR_OFF + TS_DST_HRS_ADD)
|
||
pT->dstOverlapChar = 's';/* standard time, in 'limbo' */
|
||
}
|
||
else if (pT->hours >= TS_DST_HOUR_OFF - TS_DST_HRS_ADD) {
|
||
dst = 1;
|
||
pT->dstOverlapChar = 'd';/* daylight time, in 'limbo' */
|
||
}
|
||
else
|
||
dst = 1;
|
||
}
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* now, if necessary, change the time stamp to daylight and then convert
|
||
* the resultant stamp to local time.
|
||
*----------------------------------------------------------------------------*/
|
||
if (dst) {
|
||
stamp.secPastEpoch += TS_DST_HRS_ADD * 3600;
|
||
tsStampToLocalZone(&stamp, pT);
|
||
}
|
||
|
||
return;
|
||
}
|
||
|
||
static void
|
||
tsInitMinWest()
|
||
{
|
||
int error=0;
|
||
|
||
if (envGetLongConfigParam(&EPICS_TS_MIN_WEST, &tsMinWest) != 0)
|
||
error = 1;
|
||
else
|
||
if (tsMinWest > 1380 && tsMinWest < -1380)
|
||
error = 1;
|
||
if (error) {
|
||
(void)printf(
|
||
"tsSubr: illegal value for %s\n\
|
||
tsSubr: default value of %d will be used\n",
|
||
EPICS_TS_MIN_WEST.name, tsMinWest);
|
||
}
|
||
needToInitMinWest = 0;
|
||
}
|
||
|
||
static void
|
||
tsStampToLocalZone(pStamp, pT)
|
||
TS_STAMP *pStamp;/* pointer to EPICS time stamp to convert */
|
||
struct tsDetail *pT; /* pointer to time structure for conversion */
|
||
{
|
||
int ndays; /* number of days in this month or year */
|
||
unsigned long secPastEpoch; /* time from stamp, in local zone */
|
||
int days; /* temp for count of days */
|
||
int hms; /* left over hours, min, sec in stamp */
|
||
|
||
if (needToInitMinWest)
|
||
tsInitMinWest();
|
||
|
||
assert(pStamp != NULL);
|
||
assert(pStamp->secPastEpoch >= tsMinWest * 60);
|
||
assert(pT != NULL);
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* move the time stamp from GMT to local time, then break it down into its
|
||
* component parts
|
||
*----------------------------------------------------------------------------*/
|
||
secPastEpoch = pStamp->secPastEpoch - tsMinWest * 60;
|
||
hms = secPastEpoch % 86400;
|
||
days = secPastEpoch / 86400;
|
||
pT->seconds = hms % 60;
|
||
pT->minutes = (hms/60) % 60;
|
||
pT->hours = hms / 3600;
|
||
pT->dayOfWeek = (days + TS_EPOCH_WDAY_NUM) % 7;
|
||
|
||
pT->year=TS_EPOCH_YEAR;
|
||
if (pT->year % 400 == 0 || (pT->year % 4 == 0 && pT->year % 100 != 0))
|
||
ndays = 366;
|
||
else
|
||
ndays = 365;
|
||
while (days > 0) {
|
||
if (pT->year % 400 == 0 || (pT->year % 4 == 0 && pT->year % 100 != 0))
|
||
ndays = 366;
|
||
else
|
||
ndays = 365;
|
||
if (days >= ndays)
|
||
pT->year++;
|
||
days -= ndays;
|
||
}
|
||
if (days < 0)
|
||
days += ndays;
|
||
if (ndays == 366)
|
||
pT->leapYear = 1;
|
||
else
|
||
pT->leapYear = 0;
|
||
pT->dayYear = days;
|
||
|
||
pT->monthNum = 0;
|
||
pT->dayMonth = days;
|
||
while (pT->dayMonth > 0) {
|
||
ndays = daysInMonth[pT->monthNum];
|
||
if (pT->monthNum==1 && pT->leapYear)
|
||
ndays++;
|
||
if (pT->dayMonth >= ndays)
|
||
pT->monthNum++;
|
||
pT->dayMonth -= ndays;
|
||
}
|
||
if (pT->dayMonth < 0)
|
||
pT->dayMonth += ndays;
|
||
|
||
return;
|
||
}
|
||
|
||
/*+/subr**********************************************************************
|
||
* NAME tsStampToText - convert a time stamp to text
|
||
*
|
||
* DESCRIPTION
|
||
* A EPICS standard time stamp is converted to text. The text
|
||
* contains the time stamp's representation in the local time zone,
|
||
* taking daylight savings time into account.
|
||
*
|
||
* The required size of the caller's text buffer depends on the type
|
||
* of conversion being requested. The conversion types, buffer sizes,
|
||
* and conversion formats are:
|
||
*
|
||
* TS_TEXT_MONDDYYYY 32 Mon dd, yyyy hh:mm:ss.nano-secs
|
||
* TS_TEXT_MMDDYY 28 mm/dd/yy hh:mm:ss.nano-secs
|
||
*
|
||
* If the time in the time stamp is less than or equal to the number
|
||
* of seconds in the day, then the time stamp is assumed to be a
|
||
* delta time. In this case, only time is stored in the buffer,
|
||
* omitting the date.
|
||
*
|
||
* For any of the formats, the fractional part of the time (represented
|
||
* as `nano-secs' above) is variable length. If the usec and nsec part
|
||
* of the time are both zero, only milli-seconds will be printed; or
|
||
* else if the nsec part is zero, only milli-seconds and micro-seconds
|
||
* will be printed.
|
||
*
|
||
* During the period when "time repeats itself" at the switch from
|
||
* daylight time to standard time, the ':' following the "hh" will be
|
||
* replaced with either 'd' or 's' before or after the switch,
|
||
* respectively.
|
||
*
|
||
* RETURNS
|
||
* pointer to buffer
|
||
*
|
||
* NOTES
|
||
* 1. There were several motivations for writing this routine: First, the
|
||
* UNIX routine wasn't particularly portable to VxWorks. Second, the
|
||
* UNIX routine wasn't re-entrant. And, last, the UNIX routine didn't
|
||
* provide special handling for "time repeating itself".
|
||
*
|
||
* EXAMPLES
|
||
* 1. Get the local time as a time stamp and print it.
|
||
* TS_STAMP now;
|
||
* char nowText[28];
|
||
*
|
||
* tsLocalTime(&now);
|
||
* printf("time is %s\n", tsStampToText(&now, TS_TEXT_MMDDYY, nowText));
|
||
*
|
||
*-*/
|
||
char *
|
||
tsStampToText(pStamp, textType, textBuffer)
|
||
TS_STAMP *pStamp; /* I pointer to time stamp */
|
||
enum tsTextType textType;/* I type of conversion desired; one of TS_TEXT_xxx */
|
||
char *textBuffer; /* O buffer to receive text */
|
||
{
|
||
|
||
struct tsDetail t; /* detailed breakdown of time stamp */
|
||
char fracPart[10]; /* fractional part of time */
|
||
|
||
assert(textBuffer != NULL);
|
||
|
||
(void)sprintf(fracPart, "%09d", pStamp->nsec);
|
||
if (pStamp->nsec % 1000000 == 0)
|
||
fracPart[3] = '\0';
|
||
else if (pStamp->nsec % 1000 == 0)
|
||
fracPart[6] = '\0';
|
||
|
||
if (pStamp->secPastEpoch <= 86400) {
|
||
t.hours = pStamp->secPastEpoch / 3600;
|
||
t.minutes = (pStamp->secPastEpoch / 60) % 60;
|
||
t.seconds = pStamp->secPastEpoch % 60;
|
||
(void)sprintf(textBuffer, "%02d:%02d:%02d.%s",
|
||
t.hours, t.minutes, t.seconds,
|
||
fracPart);
|
||
}
|
||
else {
|
||
tsStampToLocal(*pStamp, &t);
|
||
|
||
switch (textType) {
|
||
case TS_TEXT_MMDDYY:
|
||
(void)sprintf(textBuffer, "%02d/%02d/%02d %02d%c%02d:%02d.%s",
|
||
t.monthNum+1, t.dayMonth+1, t.year%100,
|
||
t.hours, t.dstOverlapChar, t.minutes,
|
||
t.seconds, fracPart);
|
||
break;
|
||
case TS_TEXT_MONDDYYYY:
|
||
(void)sprintf(textBuffer, "%3.3s %02d, %4d %02d%c%02d:%02d.%s",
|
||
&monthText[t.monthNum*3], t.dayMonth+1,
|
||
t.year,
|
||
t.hours, t.dstOverlapChar, t.minutes,
|
||
t.seconds, fracPart);
|
||
break;
|
||
default:
|
||
return NULL;
|
||
}
|
||
}
|
||
|
||
return textBuffer;
|
||
}
|
||
|
||
/*+/subr**********************************************************************
|
||
* NAME tsTextToStamp - convert text time and date into a time stamp
|
||
*
|
||
* DESCRIPTION
|
||
* A text string is scanned to produce an EPICS standard time stamp.
|
||
* The text can contain either a time and date (in the local time zone)
|
||
* or a `delta' time from the present local time and date.
|
||
*
|
||
* Several different forms of dates and times are accepted by this
|
||
* routine, as outlined below. In general, this routine accepts
|
||
* strings of the form:
|
||
*
|
||
* date time
|
||
*
|
||
* If the date is omitted, then today's date is assumed. (See the
|
||
* exception for times beginning with `-'.)
|
||
*
|
||
* Date representations:
|
||
*
|
||
* Dates may appear in several variations. In the forms where the
|
||
* month is represented by letters, case is ignored; only the first
|
||
* 3 letters are checked if the month name is spelled out. In the
|
||
* forms where year is shown as yy, either 2 or 4 digit year can be
|
||
* specified.
|
||
*
|
||
* mm/dd/yy (yy less than epoch is taken as 20yy)
|
||
* mon dd, yyyy (3 or more letters of month)
|
||
* dd-mon-yy (3 or more letters of month; yy<epoch is 20yy)
|
||
*
|
||
* Time representations:
|
||
*
|
||
* Times may appear in several variations on a single form. One type of
|
||
* variation controls the units for fractional seconds. Other
|
||
* variations include:
|
||
*
|
||
* a '-' in front of a time indicates a delta time, to be subtracted
|
||
* from the present time and date. A date isn't allowed to
|
||
* appear with this form of time.
|
||
* a 'd' before or after a time indicates that the time is to be taken
|
||
* as `daylight savings time'. This is generally not needed,
|
||
* but is useful for times during the switchover FROM daylight
|
||
* savings time; during the switchover, there is a period when
|
||
* clock times repeat. (The 'd' can also appear following
|
||
* the "hh", either before the ':' or in place of the ':'.)
|
||
* an 's' can be similarly used to indicate that the time is to
|
||
* be taken as standard time. If neither 'd' nor 's' is used
|
||
* for times during the switchover, then 's' is assumed.
|
||
*
|
||
* hh:mm:ss.nano-secs (9 trailing digits give nano-seconds)
|
||
* hh:mm:ss.micros (6 trailing digits give micro-seconds)
|
||
* hh:mm:ss.mse (3 trailing digits give milli-seconds)
|
||
* hh:mm:ss
|
||
*
|
||
* RETURNS
|
||
* S_ts_OK, or
|
||
* S_ts_inputTextError if the text doesn't match one of the forms
|
||
* outlined above
|
||
*
|
||
* BUGS
|
||
* o -time isn't implemented yet
|
||
* o only a single daylight savings time `rule' can be specified
|
||
*
|
||
* EXAMPLES
|
||
* 1. Get the time stamp equivalent of a text time
|
||
* char text[]="7/4/91 8:15:30";
|
||
* TS_STAMP equiv;
|
||
*
|
||
* tsTextToStamp(&equiv, &text);
|
||
*
|
||
*-*/
|
||
long
|
||
tsTextToStamp(pStamp, pText)
|
||
TS_STAMP *pStamp; /* O time stamp corresponding to text */
|
||
char **pText; /* IO ptr to ptr to string containing time and date */
|
||
{
|
||
long retStat=S_ts_OK;/* status return to caller */
|
||
long stat; /* status from calls */
|
||
struct tsDetail t; /* detailed breakdown of text */
|
||
TS_STAMP stamp; /* temp for building time stamp */
|
||
char *pField; /* pointer to field */
|
||
char delim; /* delimiter character */
|
||
long nsec; /* temp for nano-seconds */
|
||
int count; /* count from scan of next field */
|
||
|
||
if (needToInitMinWest)
|
||
tsInitMinWest();
|
||
|
||
assert(pStamp != NULL);
|
||
assert(pText != NULL);
|
||
assert(*pText != NULL);
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* skip over leading white space
|
||
*----------------------------------------------------------------------------*/
|
||
while (isspace(**pText))
|
||
(*pText)++;
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* date -- first, figure out which format of date is present. Process each
|
||
* format mostly on its own--final validation of day of month and
|
||
* computing dayYear is done in common for all formats.
|
||
*----------------------------------------------------------------------------*/
|
||
if (**pText == '-') { /* no date--delta time */
|
||
|
||
}
|
||
else if (strchr(*pText, '/') != 0) { /* mm/dd/yy[yy] */
|
||
count = nextIntFieldAsInt(pText, &t.monthNum, &delim);
|
||
if (count <= 1 || delim != '/' || t.monthNum <=0 || t.monthNum > 12)
|
||
retStat = S_ts_inputTextError;
|
||
else
|
||
t.monthNum--;
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.dayMonth, &delim);
|
||
if (count <= 1 || delim != '/' || t.dayMonth <= 0)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.year, &delim);
|
||
if (count <= 1 || t.year <= 0)
|
||
retStat = S_ts_inputTextError;
|
||
else if (!isspace(delim))
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
}
|
||
else if (strchr(*pText, ',') != 0) { /* mon[th] dd, yyyy */
|
||
count = nextAlph1UCField(pText, &pField, &delim);
|
||
if (count < 4 || delim != ' ')
|
||
retStat = S_ts_inputTextError;
|
||
else {
|
||
for (t.monthNum=0; t.monthNum<12; t.monthNum++) {
|
||
if (strncmp(pField, monthText+3*t.monthNum, 3) == 0)
|
||
break;
|
||
}
|
||
if (t.monthNum > 11)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.dayMonth, &delim);
|
||
if (count <= 1 || delim != ',' || t.dayMonth <= 0)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.year, &delim);
|
||
if (count < 5 || t.year < TS_EPOCH_YEAR)
|
||
retStat = S_ts_inputTextError;
|
||
else if (!isspace(delim))
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
}
|
||
else if (strchr(*pText, '-') != 0) { /* dd-mon-yy[yy] */
|
||
count = nextIntFieldAsInt(pText, &t.dayMonth, &delim);
|
||
if (count <= 1 || delim != '-' || t.dayMonth <= 0)
|
||
retStat = S_ts_inputTextError;
|
||
if (retStat == S_ts_OK) {
|
||
count = nextAlph1UCField(pText, &pField, &delim);
|
||
if (count < 4 || delim != '-')
|
||
retStat = S_ts_inputTextError;
|
||
else {
|
||
for (t.monthNum=0; t.monthNum<12; t.monthNum++) {
|
||
if (strncmp(pField, monthText+3*t.monthNum, 3) == 0)
|
||
break;
|
||
}
|
||
if (t.monthNum > 11)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.year, &delim);
|
||
if (count <= 1 || t.year <= 0)
|
||
retStat = S_ts_inputTextError;
|
||
else if (!isspace(delim))
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
}
|
||
else { /* assume date omitted */
|
||
if ((stat = tsLocalTime(&stamp)) != S_ts_OK)
|
||
retStat = stat;
|
||
else {
|
||
tsStampToLocal(stamp, &t);
|
||
t.dayMonth++;
|
||
}
|
||
}
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* finish processing on date. t.year has 2 or 4 digit year, t.monthNum
|
||
* has month (0-11), and t.dayMonth has day of month, beginning with 1.
|
||
*----------------------------------------------------------------------------*/
|
||
if (retStat == S_ts_OK) {
|
||
if (t.year < 100) {
|
||
t.year += 1900;
|
||
if (t.year < TS_EPOCH_YEAR)
|
||
t.year += 100;
|
||
}
|
||
else if (t.year < TS_EPOCH_YEAR)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
if (t.year > TS_MAX_YEAR)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
if (t.year % 400 == 0 || (t.year % 4 == 0 && t.year % 100 != 0))
|
||
t.leapYear = 1;
|
||
else
|
||
t.leapYear = 0;
|
||
if (t.dayMonth <= daysInMonth[t.monthNum] ||
|
||
(t.monthNum == 1 && t.dayMonth <= daysInMonth[1] + t.leapYear)) {
|
||
t.dayMonth--;
|
||
t.dayYear = dayYear1stOfMon[t.monthNum] + t.dayMonth;
|
||
if (t.monthNum > 1)
|
||
t.dayYear += t.leapYear;
|
||
}
|
||
else
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* time -- first, suppress leading white space and then check for 'd' or 's'
|
||
* as the initial character.
|
||
*----------------------------------------------------------------------------*/
|
||
nsec = 0;
|
||
if (retStat == S_ts_OK) {
|
||
while (isspace(**pText))
|
||
(*pText)++;
|
||
t.dstOverlapChar = ':';
|
||
if (**pText == 'd' || **pText == 's') {
|
||
t.dstOverlapChar = **pText;
|
||
(*pText)++;
|
||
}
|
||
count = nextIntFieldAsInt(pText, &t.hours, &delim);
|
||
if (count <= 1 || t.hours < 0 || t.hours > 23)
|
||
retStat = S_ts_inputTextError;
|
||
else if (delim == 'd' || delim == 's') {
|
||
t.dstOverlapChar = delim;
|
||
if (**pText == ':')
|
||
(*pText)++; /* skip the 'extra' delimiter */
|
||
}
|
||
else if (delim != ':')
|
||
retStat = S_ts_inputTextError;
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.minutes, &delim);
|
||
if (count <= 1 || t.minutes < 0 || t.minutes > 59)
|
||
retStat = S_ts_inputTextError;
|
||
else if (delim != ':')
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.seconds, &delim);
|
||
if (count <= 1 || t.seconds < 0 || t.seconds > 59)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK && delim == '.') {
|
||
count = nextIntFieldAsLong(pText, &nsec, &delim);
|
||
if (count <= 1 || nsec < 0)
|
||
retStat = S_ts_inputTextError;
|
||
else if (count == 4) {
|
||
if (nsec > 999)
|
||
retStat = S_ts_inputTextError;
|
||
else
|
||
nsec *= 1000000;
|
||
}
|
||
else if (count == 7) {
|
||
if (nsec > 999999)
|
||
retStat = S_ts_inputTextError;
|
||
else
|
||
nsec *= 1000;
|
||
}
|
||
else if (count == 10) {
|
||
if (nsec > 999999999)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
else
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
if (delim == 'd' || delim == 's')
|
||
t.dstOverlapChar = delim;
|
||
}
|
||
}
|
||
|
||
if (retStat == S_ts_OK) {
|
||
tsStampFromLocal(&stamp, &t);
|
||
stamp.nsec = nsec;
|
||
}
|
||
else {
|
||
stamp.secPastEpoch = 0;
|
||
stamp.nsec = nsec;
|
||
}
|
||
|
||
*pStamp = stamp;
|
||
return retStat;
|
||
}
|
||
|
||
/*+/subr**********************************************************************
|
||
* NAME tsTimeTextToStamp - convert text time into a time stamp
|
||
*
|
||
* DESCRIPTION
|
||
* A text string is scanned to produce an EPICS standard time stamp.
|
||
* The text must contain a time representation as described for
|
||
* tsTextToStamp(). (If either 'd' or 's' occurs in the text time,
|
||
* it is ignored.) (Since EPICS time stamps are unsigned, the text
|
||
* may not be signed.)
|
||
*
|
||
* RETURNS
|
||
* S_ts_OK, or
|
||
* S_ts_inputTextError if the text isn't in a legal form
|
||
*
|
||
* EXAMPLES
|
||
* 1. Get the time stamp equivalent for an elapsed time.
|
||
* char text[]="15:31:22.888";
|
||
* TS_STAMP equiv;
|
||
*
|
||
* tsTimeTextToStamp(&equiv, &text);
|
||
*
|
||
*-*/
|
||
long
|
||
tsTimeTextToStamp(pStamp, pText)
|
||
TS_STAMP *pStamp; /* O time stamp corresponding to text */
|
||
char **pText; /* IO ptr to ptr to string containing time and date */
|
||
{
|
||
long retStat=S_ts_OK;/* status return to caller */
|
||
long stat; /* status from calls */
|
||
struct tsDetail t; /* detailed breakdown of text */
|
||
TS_STAMP stamp; /* temp for building time stamp */
|
||
char *pField; /* pointer to field */
|
||
char delim; /* delimiter character */
|
||
int count; /* count from scan of next field */
|
||
long nsec; /* temp for nano-seconds */
|
||
|
||
assert(pStamp != NULL);
|
||
assert(pText != NULL);
|
||
assert(*pText != NULL);
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* skip over leading white space
|
||
*----------------------------------------------------------------------------*/
|
||
while (isspace(**pText))
|
||
(*pText)++;
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* time -- first, suppress leading white space and then check for 'd' or 's'
|
||
* as the initial character.
|
||
*----------------------------------------------------------------------------*/
|
||
stamp.secPastEpoch = 0;
|
||
nsec = 0;
|
||
if (retStat == S_ts_OK) {
|
||
while (isspace(**pText))
|
||
(*pText)++;
|
||
t.dstOverlapChar = ':';
|
||
if (**pText == 'd' || **pText == 's') {
|
||
t.dstOverlapChar = **pText;
|
||
(*pText)++;
|
||
}
|
||
count = nextIntFieldAsInt(pText, &t.hours, &delim);
|
||
if (count <= 1 || t.hours < 0 || t.hours > 23)
|
||
retStat = S_ts_inputTextError;
|
||
else if (delim == 'd' || delim == 's') {
|
||
t.dstOverlapChar = delim;
|
||
if (**pText == ':')
|
||
(*pText)++; /* skip the 'extra' delimiter */
|
||
}
|
||
else if (delim != ':')
|
||
retStat = S_ts_inputTextError;
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.minutes, &delim);
|
||
if (count <= 1 || t.minutes < 0 || t.minutes > 59)
|
||
retStat = S_ts_inputTextError;
|
||
else if (delim != ':')
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK) {
|
||
count = nextIntFieldAsInt(pText, &t.seconds, &delim);
|
||
if (count <= 1 || t.seconds < 0 || t.seconds > 59)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
if (retStat == S_ts_OK && delim == '.') {
|
||
count = nextIntFieldAsLong(pText, &nsec, &delim);
|
||
if (count <= 1 || nsec < 0)
|
||
retStat = S_ts_inputTextError;
|
||
else if (count == 4) {
|
||
if (nsec > 999)
|
||
retStat = S_ts_inputTextError;
|
||
else
|
||
nsec *= 1000000;
|
||
}
|
||
else if (count == 7) {
|
||
if (nsec > 999999)
|
||
retStat = S_ts_inputTextError;
|
||
else
|
||
nsec *= 1000;
|
||
}
|
||
else if (count == 10) {
|
||
if (nsec > 999999999)
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
else
|
||
retStat = S_ts_inputTextError;
|
||
}
|
||
}
|
||
|
||
/*----------------------------------------------------------------------------
|
||
* convert tsDetail structure into a time stamp, after doing a little more
|
||
* refinement of the tsDetail structure
|
||
*----------------------------------------------------------------------------*/
|
||
if (retStat == S_ts_OK) {
|
||
stamp.secPastEpoch += t.hours*3600 + t.minutes*60 + t.seconds;
|
||
stamp.nsec = nsec;
|
||
}
|
||
|
||
*pStamp = stamp;
|
||
return retStat;
|
||
}
|