Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

259 lines
9.7 KiB

//+-------------------------------------------------------------------------
//
// Microsoft Windows
//
// Copyright (C) Microsoft Corporation, 1999 - 1999
//
// File: iso8601.c
//
//--------------------------------------------------------------------------
#include <windows.h>
#include "iso8601.h"
// This code implements a parser & generater for the ISO 8601 date format.
// This table defines different "types" of characters for use as the columns
// of the state table
unsigned char iso8601chartable[256] = {
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, 2, 0x82, 0,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 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, 3, 0, 0, 0, 0, 0, 5, 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, 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, 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, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
};
// State table
// 0x80 bit = Error
// 0x20 = Add character & advance to next field
// 0x40 = Add character & advance to next field + skip one (for day of week)
// 0x1f = Mask to determine next state #
// Columns = input character type: unknown, number, "-", "T", ":", "Z"
unsigned char iso8601StateTable[][6] =
{
0x80, 0x01, 0x25, 0x80, 0x80, 0x80, // year
0x80, 0x02, 0x80, 0x80, 0x80, 0x80,
0x80, 0x03, 0x80, 0x80, 0x80, 0x80,
0x80, 0x24, 0x80, 0x80, 0x80, 0x80,
0x80, 0x06, 0x05, 0x85, 0x85, 0x05, //0x04 month
0x80, 0x06, 0x48, 0x80, 0x80, 0x80,
0x80, 0x47, 0x80, 0x80, 0x80, 0x80,
0x80, 0x09, 0x08, 0x88, 0x88, 0x08, //0x07 day
0x80, 0x09, 0x8b, 0x2b, 0x8b, 0x80,
0x80, 0x2a, 0x80, 0x80, 0x80, 0x80,
0x80, 0x0c, 0x8b, 0x0b, 0x8b, 0x08, //0x0a hour
0x80, 0x0c, 0x80, 0x80, 0x80, 0x80,
0x80, 0x2d, 0x80, 0x80, 0x80, 0x80,
0x80, 0x0f, 0x8e, 0x8e, 0x0e, 0x08, //0x0d min
0x80, 0x0f, 0x80, 0x80, 0x80, 0x80,
0x80, 0x30, 0x80, 0x80, 0x80, 0x80,
0x80, 0x12, 0x91, 0x91, 0x11, 0x08, //0x10 sec
0x80, 0x12, 0x80, 0x80, 0x80, 0x80,
0x80, 0x30, 0x80, 0x80, 0x80, 0x80,
};
DWORD iso8601ToFileTime(char *pszisoDate, FILETIME *pftTime, BOOL fLenient, BOOL fPartial)
{
SYSTEMTIME stTime;
DWORD hr;
hr = iso8601ToSysTime(pszisoDate, &stTime, fLenient, fPartial);
if (0 == hr)
{
if (SystemTimeToFileTime( &stTime, pftTime))
return 0;
else
return GetLastError();
}
return hr;
}
// Convert a character string formatted as iso8601 into a SYSTEMTIME structure
// Supports both basic & extended forms of iso8601.
// isoDate: Input string. It can be null or space terminated.
// pSysTime: Output SYSTEMTIME structure
// fLenient: true for normal operation. "false" if you want to detect incorrectly
// formatted iso8601. Will still return the "best guess" value.
// fPartial: Set to true if you will accept partial results. Note that this just fills
// in zeros where data is missing, which strictly speaking can't be distinguished
// from real zeros in this implementation. An improvement would have a second
// structure to fill in with validity bits.
DWORD iso8601ToSysTime(char *pszisoDate, SYSTEMTIME *pSysTime, BOOL fLenient, BOOL fPartial)
{
DWORD hr = 0;
WORD *dateWords = (WORD *) pSysTime;
WORD *endWord = dateWords + 7; // To detect the end of the date
int state = 0;
int pos = 0;
unsigned char action;
*dateWords = 0;
// Main state machine loop. Loop until a space or null.
while(*pszisoDate && *pszisoDate != ' ')
{
char code = iso8601chartable[*pszisoDate];
if(code & 0x80)
{
if(!fLenient)
hr = ERROR_INVALID_DATA; // Illegal character only when lenient
code = code & 0x7f;
}
action = iso8601StateTable[state][code];
state = action&0x1f; // Calculate the next state
if(code == 1) // The character code 1 is always a number which gets accumulated
*dateWords = *dateWords * 10 + *pszisoDate - '0';
switch(action >> 5)
{
case 0x1:
if(!fPartial && !*dateWords)
hr = ERROR_INVALID_DATA; // Only partial, error
if(dateWords == endWord) // Prevent an overflow
return 0;
dateWords++;
*dateWords = 0;
break;
case 0x2: // Finish piece & advance twice (past day of week)
if(!fPartial && !*dateWords)
hr = ERROR_INVALID_DATA; // Only partial, error
// We don't need to check for an overflow here since the state machine
// only calls this to skip "dayofweek" in the SYSTEMTIME structure.
// We could do dateWords+=2 instead of the following if leaving random
// values in dayofweek is acceptable.
dateWords++;
*dateWords = 0;
dateWords++;
*dateWords = 0;
break;
}
if((action & 0x80) && !fLenient)
hr = ERROR_INVALID_DATA;
pszisoDate++;
}
// Zero out the rest of the SYSTEMTIME structure
while(dateWords < endWord)
*(++dateWords) = 0;
return hr;
}
// The function toExtended accepts a FILETIME and converts it into the ISO8601 extended
// form, placeing it in the character buffer 'buf'. The buffer 'buf' must have room for
// a minimum of 40 characters to support the longest forms of 8601 (currently only 21 are used).
DWORD FileTimeToiso8601(FILETIME *pftTime, char *pszBuf)
{
SYSTEMTIME stTime;
if (FileTimeToSystemTime( pftTime, &stTime))
{
return SysTimeToiso8601(&stTime, pszBuf);
}
else
return GetLastError();
}
// The function toExtended accepts a SYSTEMTIME and converts it into the ISO8601 extended
// form, placeing it in the character buffer 'buf'. The buffer 'buf' must have room for
// a minimum of 40 characters to support the longest forms of 8601 (currently only 21 are used).
DWORD SysTimeToiso8601(SYSTEMTIME *pstTime, char *pszBuf)
{
pszBuf[0] = pstTime->wYear / 1000 + '0';
pszBuf[1] = ((pstTime->wYear / 100) % 10) + '0';
pszBuf[2] = ((pstTime->wYear / 10) % 10) + '0';
pszBuf[3] = ((pstTime->wYear) % 10) + '0';
pszBuf[4] = '.';
pszBuf[5] = pstTime->wMonth / 10 + '0';
pszBuf[6] = (pstTime->wMonth % 10) + '0';
pszBuf[7] = '.';
pszBuf[8] = pstTime->wDay / 10 + '0';
pszBuf[9] = (pstTime->wDay % 10) + '0';
pszBuf[10] = 'T';
pszBuf[11] = pstTime->wHour / 10 + '0';
pszBuf[12] = (pstTime->wHour % 10) + '0';
pszBuf[13] = ':';
pszBuf[14] = pstTime->wMinute / 10 + '0';
pszBuf[15] = (pstTime->wMinute % 10) + '0';
pszBuf[16] = ':';
pszBuf[17] = pstTime->wSecond / 10 + '0';
pszBuf[18] = (pstTime->wSecond % 10) + '0';
pszBuf[19] = 'Z';
pszBuf[20] = 0;
return 0;
}
#ifdef STANDALONETEST8601
// This code does some simple tests.
int main(int argc, char **argv)
{
char *isoDate;
SYSTEMTIME sysTime;
char outBuf[256];
DWORD hr;
isoDate = "1997.01.01T14:23:53Z";
hr = iso8601::toSysTime(isoDate, &sysTime, FALSE);
if(hr != 0)
printf("error.\n");
iso8601::toExtended(&sysTime, outBuf);
printf("%s\n", outBuf);
isoDate = "19970101T142353Z";
hr = iso8601::toSysTime(isoDate, &sysTime, FALSE);
if(hr != 0)
printf("error.\n");
iso8601::toExtended(&sysTime, outBuf);
printf("%s\n", outBuf);
isoDate = "1997:01.01T14:23:53Z";
hr = iso8601::toSysTime(isoDate, &sysTime, FALSE);
if(hr != 0)
printf("error (correct).\n");
iso8601::toExtended(&sysTime, outBuf);
printf("%s\n", outBuf);
isoDate = ".01.01T14:23:53Z";
hr = iso8601::toSysTime(isoDate, &sysTime, FALSE);
if(hr != 0)
printf("error.\n");
iso8601::toExtended(&sysTime, outBuf);
printf("%s\n", outBuf);
isoDate = "..01T14:23:53Z";
hr = iso8601::toSysTime(isoDate, &sysTime, FALSE);
if(hr != 0)
printf("error.\n");
iso8601::toExtended(&sysTime, outBuf);
printf("%s\n", outBuf);
isoDate = "..T14:23:53Z";
hr = iso8601::toSysTime(isoDate, &sysTime, FALSE);
if(hr != 0)
printf("error.\n");
iso8601::toExtended(&sysTime, outBuf);
printf("%s\n", outBuf);
return 0;
}
#endif // STANDALONETEST8601