windows-nt/Source/XPSP1/NT/admin/wmi/wbem/scripting/datetime.cpp
2020-09-26 16:20:57 +08:00

1317 lines
32 KiB
C++

//***************************************************************************
//
// Copyright (c) 2000 Microsoft Corporation
//
// DATETIME.CPP
//
// alanbos 20-Jan-00 Created.
//
// Defines the implementation of ISWbemDateTime
//
//***************************************************************************
#include <sys/timeb.h>
#include <math.h>
#include <time.h>
#include <float.h>
#include "precomp.h"
#ifdef UTILLIB
#include <assertbreak.h>
#else
#define ASSERT_BREAK(a)
#endif //UTILLIB
#define ISWILD(c) (L'*' == c)
#define ISINTERVAL(c) (L':' == c)
#define ISMINUS(c) (L'-' == c)
#define ISPLUS(c) (L'+' == c)
#define ISDOT(c) (L'.' == c)
#define WILD2 L"**"
#define WILD3 L"***"
#define WILD4 L"****"
#define WILD6 L"******"
static void ui64ToFileTime(const ULONGLONG *p64,FILETIME *pft);
//***************************************************************************
//
// CSWbemDateTime::CSWbemDateTime
//
// DESCRIPTION:
//
// Constructor.
//
//***************************************************************************
CSWbemDateTime::CSWbemDateTime() :
m_dwSafetyOptions (INTERFACESAFE_FOR_UNTRUSTED_DATA|
INTERFACESAFE_FOR_UNTRUSTED_CALLER),
m_bYearSpecified (VARIANT_TRUE),
m_bMonthSpecified (VARIANT_TRUE),
m_bDaySpecified (VARIANT_TRUE),
m_bHoursSpecified (VARIANT_TRUE),
m_bMinutesSpecified (VARIANT_TRUE),
m_bSecondsSpecified (VARIANT_TRUE),
m_bMicrosecondsSpecified (VARIANT_TRUE),
m_bUTCSpecified (VARIANT_TRUE),
m_bIsInterval (VARIANT_FALSE),
m_iYear (0),
m_iMonth (1),
m_iDay (1),
m_iHours (0),
m_iMinutes (0),
m_iSeconds (0),
m_iMicroseconds (0),
m_iUTC (0),
m_dw100nsOverflow (0)
{
InterlockedIncrement(&g_cObj);
m_Dispatch.SetObj (this, IID_ISWbemDateTime,
CLSID_SWbemDateTime, L"SWbemDateTime");
m_cRef=0;
}
//***************************************************************************
//
// CSWbemDateTime::~CSWbemDateTime
//
// DESCRIPTION:
//
// Destructor.
//
//***************************************************************************
CSWbemDateTime::~CSWbemDateTime(void)
{
InterlockedDecrement(&g_cObj);
}
//***************************************************************************
// HRESULT CSWbemDateTime::QueryInterface
// long CSWbemDateTime::AddRef
// long CSWbemDateTime::Release
//
// DESCRIPTION:
//
// Standard Com IUNKNOWN functions.
//
//***************************************************************************
STDMETHODIMP CSWbemDateTime::QueryInterface (
IN REFIID riid,
OUT LPVOID *ppv
)
{
*ppv=NULL;
if (IID_IUnknown==riid)
*ppv = reinterpret_cast<IUnknown*>(this);
else if (IID_ISWbemDateTime==riid)
*ppv = (ISWbemDateTime *)this;
else if (IID_IDispatch==riid)
*ppv= (IDispatch *)this;
else if (IID_IObjectSafety==riid)
*ppv = (IObjectSafety *)this;
else if (IID_ISupportErrorInfo==riid)
*ppv = (ISupportErrorInfo *)this;
else if (IID_IProvideClassInfo==riid)
*ppv = (IProvideClassInfo *)this;
if (NULL!=*ppv)
{
((LPUNKNOWN)*ppv)->AddRef();
return NOERROR;
}
return ResultFromScode(E_NOINTERFACE);
}
STDMETHODIMP_(ULONG) CSWbemDateTime::AddRef(void)
{
InterlockedIncrement(&m_cRef);
return m_cRef;
}
STDMETHODIMP_(ULONG) CSWbemDateTime::Release(void)
{
InterlockedDecrement(&m_cRef);
if (0L!=m_cRef)
return m_cRef;
delete this;
return 0;
}
//***************************************************************************
//
// SCODE CSWbemDateTime::get_Value
//
// DESCRIPTION:
//
// Retrieve the DMTF datetime value
//
// PARAMETERS:
//
// pbsValue pointer to BSTR to hold value on return
//
// RETURN VALUES:
//
// WBEM_S_NO_ERROR success
// WBEM_E_INVALID_PARAMETER bad input parameters
// WBEM_E_FAILED otherwise
//
//***************************************************************************
STDMETHODIMP CSWbemDateTime::get_Value(
OUT BSTR *pbsValue)
{
HRESULT hr = WBEM_E_FAILED;
ResetLastErrors ();
if (NULL == pbsValue)
hr = WBEM_E_INVALID_PARAMETER;
else
{
wchar_t dmtfValue [WBEMDT_DMTF_LEN + 1];
dmtfValue [WBEMDT_DMTF_LEN] = NULL;
if (m_bIsInterval)
{
// Intervals are easy
swprintf (dmtfValue, L"%08d%02d%02d%02d.%06d:000", m_iDay,
m_iHours, m_iMinutes, m_iSeconds, m_iMicroseconds);
}
else
{
if (m_bYearSpecified)
swprintf (dmtfValue, L"%04d", m_iYear);
else
wcscpy (dmtfValue, WILD4);
if (m_bMonthSpecified)
swprintf (dmtfValue + 4, L"%02d", m_iMonth);
else
wcscat (dmtfValue + 4, WILD2);
if (m_bDaySpecified)
swprintf (dmtfValue + 6, L"%02d", m_iDay);
else
wcscat (dmtfValue + 6, WILD2);
if (m_bHoursSpecified)
swprintf (dmtfValue + 8, L"%02d", m_iHours);
else
wcscat (dmtfValue + 8, WILD2);
if (m_bMinutesSpecified)
swprintf (dmtfValue + 10, L"%02d", m_iMinutes);
else
wcscat (dmtfValue + 10, WILD2);
if (m_bSecondsSpecified)
swprintf (dmtfValue + 12, L"%02d.", m_iSeconds);
else
{
wcscat (dmtfValue + 12, WILD2);
wcscat (dmtfValue + 14, L".");
}
if (m_bMicrosecondsSpecified)
swprintf (dmtfValue + 15, L"%06d", m_iMicroseconds);
else
wcscat (dmtfValue + 15, WILD6);
if (m_bUTCSpecified)
swprintf (dmtfValue + 21, L"%C%03d", (0 <= m_iUTC) ? L'+' : L'-',
(0 <= m_iUTC) ? m_iUTC : -m_iUTC);
else
{
wcscat (dmtfValue + 21, L"+");
wcscat (dmtfValue + 22, WILD3);
}
}
*pbsValue = SysAllocString (dmtfValue);
hr = WBEM_S_NO_ERROR;
}
if (FAILED(hr))
m_Dispatch.RaiseException (hr);
return hr;
}
//***************************************************************************
//
// SCODE CSWbemDateTime::put_Value
//
// DESCRIPTION:
//
// Retrieve the DMTF datetime value
//
// PARAMETERS:
//
// bsValue new value
//
// RETURN VALUES:
//
// WBEM_S_NO_ERROR success
// WBEM_E_INVALID_PARAMETER bad input parameters
// WBEM_E_FAILED otherwise
//
//***************************************************************************
STDMETHODIMP CSWbemDateTime::put_Value(
IN BSTR bsValue)
{
HRESULT hr = wbemErrInvalidSyntax;
ResetLastErrors ();
// First check that the value is the right length
if (bsValue && (WBEMDT_DMTF_LEN == wcslen (bsValue)))
{
bool err = false;
long iYear = 0, iMonth = 1, iDay = 1, iHours = 0, iMinutes = 0,
iSeconds = 0, iMicroseconds = 0, iUTC = 0;
VARIANT_BOOL bYearSpecified = VARIANT_TRUE,
bMonthSpecified = VARIANT_TRUE,
bDaySpecified = VARIANT_TRUE,
bHoursSpecified = VARIANT_TRUE,
bMinutesSpecified = VARIANT_TRUE,
bSecondsSpecified = VARIANT_TRUE,
bMicrosecondsSpecified = VARIANT_TRUE,
bUTCSpecified = VARIANT_TRUE,
bIsInterval = VARIANT_TRUE;
LPWSTR pValue = (LPWSTR) bsValue;
// Check whether its an interval
if (ISINTERVAL(pValue [WBEMDT_DMTF_UPOS]))
{
// Check that everything is a digit apart from
// the interval separator
for (int i = 0; i < WBEMDT_DMTF_LEN; i++)
{
if ((WBEMDT_DMTF_UPOS != i) &&
(WBEMDT_DMTF_SPOS != i) && !iswdigit (pValue [i]))
{
err = true;
break;
}
}
if (!err)
{
// Now check all is within bounds
err = !(CheckField (pValue, 8, bDaySpecified, iDay, WBEMDT_MAX_DAYINT, WBEMDT_MIN_DAYINT) &&
(VARIANT_TRUE == bDaySpecified) &&
CheckField (pValue+8, 2, bHoursSpecified, iHours, WBEMDT_MAX_HOURS, WBEMDT_MIN_HOURS) &&
(VARIANT_TRUE == bHoursSpecified) &&
CheckField (pValue+10, 2, bMinutesSpecified, iMinutes, WBEMDT_MAX_MINUTES, WBEMDT_MIN_MINUTES) &&
(VARIANT_TRUE == bMinutesSpecified) &&
CheckField (pValue+12, 2, bSecondsSpecified, iSeconds, WBEMDT_MAX_SECONDS, WBEMDT_MIN_SECONDS) &&
(VARIANT_TRUE == bSecondsSpecified) &&
(ISDOT(pValue [WBEMDT_DMTF_SPOS])) &&
CheckField (pValue+15, 6, bMicrosecondsSpecified, iMicroseconds, WBEMDT_MAX_MICROSEC, WBEMDT_MIN_MICROSEC) &&
(VARIANT_TRUE == bMicrosecondsSpecified) &&
CheckUTC (pValue+21, bUTCSpecified, iUTC, false));
}
}
else
{
// assume it's a datetime
bIsInterval = VARIANT_FALSE;
err = !(CheckField (pValue, 4, bYearSpecified, iYear, WBEMDT_MAX_YEAR, WBEMDT_MIN_YEAR) &&
CheckField (pValue+4, 2, bMonthSpecified, iMonth, WBEMDT_MAX_MONTH, WBEMDT_MIN_MONTH) &&
CheckField (pValue+6, 2, bDaySpecified, iDay, WBEMDT_MAX_DAY, WBEMDT_MIN_DAY) &&
CheckField (pValue+8, 2, bHoursSpecified, iHours, WBEMDT_MAX_HOURS, WBEMDT_MIN_HOURS) &&
CheckField (pValue+10, 2, bMinutesSpecified, iMinutes, WBEMDT_MAX_MINUTES, WBEMDT_MIN_MINUTES) &&
CheckField (pValue+12, 2, bSecondsSpecified, iSeconds, WBEMDT_MAX_SECONDS, WBEMDT_MIN_SECONDS) &&
(ISDOT(pValue [WBEMDT_DMTF_SPOS])) &&
CheckField (pValue+15, 6, bMicrosecondsSpecified, iMicroseconds, WBEMDT_MAX_MICROSEC, WBEMDT_MIN_MICROSEC) &&
CheckUTC (pValue+21, bUTCSpecified, iUTC));
}
if (!err)
{
m_iYear = iYear;
m_iMonth = iMonth;
m_iDay = iDay;
m_iHours = iHours;
m_iMinutes = iMinutes;
m_iSeconds = iSeconds;
m_iMicroseconds = iMicroseconds;
m_iUTC = iUTC;
m_bYearSpecified = bYearSpecified;
m_bMonthSpecified = bMonthSpecified;
m_bDaySpecified = bDaySpecified;
m_bHoursSpecified = bHoursSpecified;
m_bMinutesSpecified = bMinutesSpecified;
m_bSecondsSpecified = bSecondsSpecified;
m_bMicrosecondsSpecified = bMicrosecondsSpecified;
m_bUTCSpecified = bUTCSpecified;
m_bIsInterval = bIsInterval;
m_dw100nsOverflow = 0;
hr = S_OK;
}
}
if (FAILED(hr))
m_Dispatch.RaiseException (hr);
return hr;
}
//***************************************************************************
//
// SCODE CSWbemDateTime::CheckField
//
// DESCRIPTION:
//
// Check a string-based datetime field for correctness
//
// PARAMETERS:
//
// pValue pointer to the value to check
// len number of characters in the value
// bIsSpecified on return defines whether value is wildcard
// iValue on return specifies integer value (if not wildcard)
// maxValue maximum numeric value allowed for this field
// minValue minimum numeric value allowed for this field
//
// RETURN VALUES:
//
// true if value parsed ok, false otherwise
//
//***************************************************************************
bool CSWbemDateTime::CheckField (
LPWSTR pValue,
ULONG len,
VARIANT_BOOL &bIsSpecified,
long &iValue,
long maxValue,
long minValue
)
{
bool status = true;
bIsSpecified = VARIANT_FALSE;
for (int i = 0; i < len; i++)
{
if (ISWILD(pValue [i]))
{
if (VARIANT_TRUE == bIsSpecified)
{
status = false;
break;
}
}
else if (!iswdigit (pValue [i]))
{
status = false;
break;
}
else
bIsSpecified = VARIANT_TRUE;
}
if (status)
{
if (VARIANT_TRUE == bIsSpecified)
{
wchar_t *dummy = NULL;
wchar_t temp [9];
wcsncpy (temp, pValue, len);
temp [len] = NULL;
iValue = wcstol (temp, &dummy, 10);
}
}
return status;
}
//***************************************************************************
//
// SCODE CSWbemDateTime::CheckUTC
//
// DESCRIPTION:
//
// Check a string-based UTC field for correctness
//
// PARAMETERS:
//
// pValue pointer to the value to check
// bIsSpecified on return defines whether value is wildcard
// iValue on return specifies integer value (if not wildcard)
// bParseSign whether first character should be a sign (+/-) or
// a : (for intervals)
//
// RETURN VALUES:
//
// true if value parsed ok, false otherwise
//
//***************************************************************************
bool CSWbemDateTime::CheckUTC (
LPWSTR pValue,
VARIANT_BOOL &bIsSpecified,
long &iValue,
bool bParseSign
)
{
bool status = true;
bool lessThanZero = false;
bIsSpecified = VARIANT_FALSE;
// Check if we have a signed offset
if (bParseSign)
{
if (ISMINUS(pValue [0]))
lessThanZero = true;
else if (!ISPLUS(pValue [0]))
status = false;
}
else
{
if (!ISINTERVAL(pValue[0]))
status = false;
}
if (status)
{
// Check remaining are digits or wildcars
for (int i = 1; i < 4; i++)
{
if (ISWILD(pValue [i]))
{
if (VARIANT_TRUE == bIsSpecified)
{
status = false;
break;
}
}
else if (!iswdigit (pValue [i]))
{
status = false;
break;
}
else
bIsSpecified = VARIANT_TRUE;
}
}
if (status)
{
if (VARIANT_TRUE == bIsSpecified)
{
wchar_t *dummy = NULL;
wchar_t temp [4];
wcsncpy (temp, pValue+1, 3);
temp [3] = NULL;
iValue = wcstol (temp, &dummy, 10);
if (lessThanZero)
iValue = -iValue;
}
}
return status;
}
//***************************************************************************
//
// SCODE CSWbemDateTime::GetVarDate
//
// DESCRIPTION:
//
// Retrieve the value in Variant form
//
// PARAMETERS:
//
// bIsLocal whether to return a local or UTC value
// pVarDate holds result on successful return
//
// RETURN VALUES:
//
// WBEM_S_NO_ERROR success
// WBEM_E_INVALID_SYNTAX input value is bad
// WBEM_E_FAILED otherwise
//
//***************************************************************************
STDMETHODIMP CSWbemDateTime::GetVarDate(
IN VARIANT_BOOL bIsLocal,
OUT DATE *pVarDate)
{
HRESULT hr = wbemErrInvalidSyntax;
ResetLastErrors ();
if (NULL == pVarDate)
hr = wbemErrInvalidParameter;
else
{
// We cannot perform this operation for interval
// or wildcarded values
if ((VARIANT_TRUE == m_bIsInterval) ||
(VARIANT_FALSE == m_bYearSpecified) ||
(VARIANT_FALSE == m_bMonthSpecified) ||
(VARIANT_FALSE == m_bDaySpecified) ||
(VARIANT_FALSE == m_bHoursSpecified) ||
(VARIANT_FALSE == m_bMinutesSpecified) ||
(VARIANT_FALSE == m_bSecondsSpecified) ||
(VARIANT_FALSE == m_bMicrosecondsSpecified) ||
(VARIANT_FALSE == m_bUTCSpecified))
{
hr = wbemErrFailed;
}
else
{
SYSTEMTIME sysTime;
sysTime.wYear = m_iYear;
sysTime.wMonth = m_iMonth;
sysTime.wDay = m_iDay;
sysTime.wHour = m_iHours;
sysTime.wMinute = m_iMinutes;
sysTime.wSecond = m_iSeconds;
sysTime.wMilliseconds = m_iMicroseconds/1000;
if (VARIANT_TRUE == bIsLocal)
{
// Need to convert this to a local DATE value
// This requires that we switch the currently stored
// time to one for the appropriate timezone, lop off
// the UTC and set the rest in a variant.
// Coerce the time to GMT first
WBEMTime wbemTime (sysTime);
if (!wbemTime.GetDMTF (sysTime))
return wbemErrInvalidSyntax;
}
double dVarDate;
if (SystemTimeToVariantTime (&sysTime, &dVarDate))
{
*pVarDate = dVarDate;
hr = S_OK;
}
}
}
if (FAILED(hr))
m_Dispatch.RaiseException (hr);
return hr;
}
//***************************************************************************
//
// SCODE CSWbemDateTime::GetFileTime
//
// DESCRIPTION:
//
// Retrieve the value in FILETIME form
//
// PARAMETERS:
//
// bIsLocal whether to return a local or UTC value
// pbsFileTime holds result on successful return
//
// RETURN VALUES:
//
// WBEM_S_NO_ERROR success
// WBEM_E_INVALID_SYNTAX input value is bad
// WBEM_E_FAILED otherwise
//
//***************************************************************************
STDMETHODIMP CSWbemDateTime::GetFileTime(
IN VARIANT_BOOL bIsLocal,
OUT BSTR *pbsFileTime)
{
HRESULT hr = wbemErrInvalidSyntax;
ResetLastErrors ();
if (NULL == pbsFileTime)
hr = wbemErrInvalidParameter;
else
{
// We cannot perform this operation for interval
// or wildcarded values
if ((VARIANT_TRUE == m_bIsInterval) ||
(VARIANT_FALSE == m_bYearSpecified) ||
(VARIANT_FALSE == m_bMonthSpecified) ||
(VARIANT_FALSE == m_bDaySpecified) ||
(VARIANT_FALSE == m_bHoursSpecified) ||
(VARIANT_FALSE == m_bMinutesSpecified) ||
(VARIANT_FALSE == m_bSecondsSpecified) ||
(VARIANT_FALSE == m_bMicrosecondsSpecified) ||
(VARIANT_FALSE == m_bUTCSpecified))
{
hr = wbemErrFailed;
}
else
{
SYSTEMTIME sysTime;
sysTime.wYear = m_iYear;
sysTime.wMonth = m_iMonth;
sysTime.wDay = m_iDay;
sysTime.wHour = m_iHours;
sysTime.wMinute = m_iMinutes;
sysTime.wSecond = m_iSeconds;
sysTime.wMilliseconds = m_iMicroseconds/1000;
if (VARIANT_TRUE == bIsLocal)
{
// Need to convert this to a local DATE value
// This requires that we switch the currently stored
// time to one for the appropriate timezone, lop off
// the UTC and set the rest in a variant.
// Coerce the time to GMT first
WBEMTime wbemTime (sysTime);
if (!wbemTime.GetDMTF (sysTime))
return wbemErrInvalidSyntax;
}
FILETIME fileTime;
if (SystemTimeToFileTime (&sysTime, &fileTime))
{
wchar_t wcBuf [30];
unsigned __int64 ui64 = fileTime.dwHighDateTime;
ui64 = ui64 << 32;
ui64 += fileTime.dwLowDateTime;
/*
* In converting to SYSTEMTIME we lost sub-millisecond
* precision from our DMTF value, so let's add it back,
* remembering that FILETIME is in 10ns units.
*/
ui64 += ((m_iMicroseconds % 1000) * 10);
// Finally add the LSB
ui64 += m_dw100nsOverflow;
_ui64tow (ui64, wcBuf, 10);
*pbsFileTime = SysAllocString (wcBuf);
hr = S_OK;
}
}
}
if (FAILED(hr))
m_Dispatch.RaiseException (hr);
return hr;
}
//***************************************************************************
//
// SCODE CSWbemDateTime::SetVarDate
//
// DESCRIPTION:
//
// Set the value in Variant form
//
// PARAMETERS:
//
// dVarDate the new value
// bIsLocal whether to treat as local or UTC value
//
// RETURN VALUES:
//
// WBEM_S_NO_ERROR success
// WBEM_E_INVALID_SYNTAX input value is bad
//
//***************************************************************************
STDMETHODIMP CSWbemDateTime::SetVarDate(
/*[in]*/ DATE dVarDate,
/*[in, optional]*/ VARIANT_BOOL bIsLocal)
{
HRESULT hr = wbemErrInvalidSyntax;
ResetLastErrors ();
SYSTEMTIME sysTime;
if (TRUE == VariantTimeToSystemTime (dVarDate, &sysTime))
{
long offset = 0;
if (VARIANT_TRUE == bIsLocal)
{
WBEMTime wbemTime (sysTime);
if (!wbemTime.GetDMTF (sysTime, offset))
return wbemErrInvalidSyntax;
}
m_iYear = sysTime.wYear;
m_iMonth = sysTime.wMonth;
m_iDay = sysTime.wDay;
m_iHours = sysTime.wHour;
m_iMinutes = sysTime.wMinute;
m_iSeconds = sysTime.wSecond;
m_iMicroseconds = sysTime.wMilliseconds * 1000;
m_iUTC = offset;
m_dw100nsOverflow = 0;
m_bYearSpecified = VARIANT_TRUE,
m_bMonthSpecified = VARIANT_TRUE,
m_bDaySpecified = VARIANT_TRUE,
m_bHoursSpecified = VARIANT_TRUE,
m_bMinutesSpecified = VARIANT_TRUE,
m_bSecondsSpecified = VARIANT_TRUE,
m_bMicrosecondsSpecified = VARIANT_TRUE,
m_bUTCSpecified = VARIANT_TRUE,
m_bIsInterval = VARIANT_FALSE;
hr = S_OK;
}
if (FAILED(hr))
m_Dispatch.RaiseException (hr);
return hr;
}
//***************************************************************************
//
// SCODE CSWbemDateTime::SetFileTime
//
// DESCRIPTION:
//
// Set the value from a string representation of a FILETIME
//
// PARAMETERS:
//
// bsFileTime the new value
// bIsLocal whether to treat as local or UTC value
//
// RETURN VALUES:
//
// WBEM_S_NO_ERROR success
// WBEM_E_INVALID_SYNTAX input value is bad
//
//***************************************************************************
STDMETHODIMP CSWbemDateTime::SetFileTime(
/*[in]*/ BSTR bsFileTime,
/*[in, optional]*/ VARIANT_BOOL bIsLocal)
{
HRESULT hr = wbemErrInvalidSyntax;
ResetLastErrors ();
// Convert string to 64-bit
unsigned __int64 ri64;
if (ReadUI64(bsFileTime, ri64))
{
// Now convert 64-bit to FILETIME
FILETIME fileTime;
fileTime.dwHighDateTime = (DWORD)(ri64 >> 32);
fileTime.dwLowDateTime = (DWORD)(ri64 & 0xFFFFFFFF);
// Now turn it into a SYSTEMTIME
SYSTEMTIME sysTime;
if (TRUE == FileTimeToSystemTime (&fileTime, &sysTime))
{
long offset = 0;
if (VARIANT_TRUE == bIsLocal)
{
WBEMTime wbemTime (sysTime);
if (!wbemTime.GetDMTF (sysTime, offset))
return wbemErrInvalidSyntax;
}
m_iYear = sysTime.wYear;
m_iMonth = sysTime.wMonth;
m_iDay = sysTime.wDay;
m_iHours = sysTime.wHour;
m_iMinutes = sysTime.wMinute;
m_iSeconds = sysTime.wSecond;
/*
* SYSTEMTIME has only 1 millisecond precision. Since
* a FILETIME has 100 nanosecond precision and a DMTF
* datetime has 1 microsecond, you can see the point
* of the following.
*/
m_iMicroseconds = sysTime.wMilliseconds * 1000 +
((ri64 % (10000)) / 10);
// Record our LSB in case we need it later
m_dw100nsOverflow = ri64 % 10;
// The FILETIME hs 1ns precision
m_iUTC = offset;
m_bYearSpecified = VARIANT_TRUE,
m_bMonthSpecified = VARIANT_TRUE,
m_bDaySpecified = VARIANT_TRUE,
m_bHoursSpecified = VARIANT_TRUE,
m_bMinutesSpecified = VARIANT_TRUE,
m_bSecondsSpecified = VARIANT_TRUE,
m_bMicrosecondsSpecified = VARIANT_TRUE,
m_bUTCSpecified = VARIANT_TRUE,
m_bIsInterval = VARIANT_FALSE;
hr = S_OK;
}
}
if (FAILED(hr))
m_Dispatch.RaiseException (hr);
return hr;
}
// These are here rather than wbemtime.h so we don't have to doc/support
#define INVALID_TIME_FORMAT 0
#define INVALID_TIME_ARITHMETIC 0
#define BAD_TIMEZONE 0
//***************************************************************************
//
// FileTimeToui64
// ui64ToFileTime
//
// Description: Conversion routines for going between FILETIME structures
// and __int64.
//
//***************************************************************************
static void FileTimeToui64(const FILETIME *pft, ULONGLONG *p64)
{
*p64 = pft->dwHighDateTime;
*p64 = *p64 << 32;
*p64 |= pft->dwLowDateTime;
}
static void ui64ToFileTime(const ULONGLONG *p64,FILETIME *pft)
{
unsigned __int64 uTemp = *p64;
pft->dwLowDateTime = (DWORD)uTemp;
uTemp = uTemp >> 32;
pft->dwHighDateTime = (DWORD)uTemp;
}
static int CompareSYSTEMTIME(const SYSTEMTIME *pst1, const SYSTEMTIME *pst2)
{
FILETIME ft1, ft2;
SystemTimeToFileTime(pst1, &ft1);
SystemTimeToFileTime(pst2, &ft2);
return CompareFileTime(&ft1, &ft2);
}
// This function is used to convert the relative values that come
// back from GetTimeZoneInformation into an actual date for the year
// in question. The system time structure that is passed in is updated
// to contain the absolute values.
static void DayInMonthToAbsolute(SYSTEMTIME *pst, const WORD wYear)
{
const static int _lpdays[] = {
-1, 30, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365
};
const static int _days[] = {
-1, 30, 58, 89, 119, 150, 180, 211, 242, 272, 303, 333, 364
};
SHORT shYearDay;
// If this is not 0, this is not a relative date
if (pst->wYear == 0)
{
// Was that year a leap year?
BOOL bLeap = ( (( wYear % 400) == 0) || ((( wYear % 4) == 0) && (( wYear % 100) != 0)));
// Figure out the day of the year for the first day of the month in question
if (bLeap)
shYearDay = 1 + _lpdays[pst->wMonth - 1];
else
shYearDay = 1 + _days[pst->wMonth - 1];
// Now, figure out how many leap days there have been since 1/1/1601
WORD yc = wYear - 1601;
WORD y4 = (yc) / 4;
WORD y100 = (yc) / 100;
WORD y400 = (yc) / 400;
// This will tell us the day of the week for the first day of the month in question.
// The '1 +' reflects the fact that 1/1/1601 was a monday (figures). You might ask,
// 'why do we care what day of the week this is?' Well, I'll tell you. The way
// daylight savings time is defined is with things like 'the last sunday of the month
// of october.' Kinda helps to know what day that is.
SHORT monthdow = (1 + (yc * 365 + y4 + y400 - y100) + shYearDay) % 7;
if ( monthdow < pst->wDayOfWeek )
shYearDay += (pst->wDayOfWeek - monthdow) + (pst->wDay - 1) * 7;
else
shYearDay += (pst->wDayOfWeek - monthdow) + pst->wDay * 7;
/*
* May have to adjust the calculation above if week == 5 (meaning
* the last instance of the day in the month). Check if yearday falls
* beyond month and adjust accordingly.
*/
if ( (pst->wDay == 5) &&
(shYearDay > (bLeap ? _lpdays[pst->wMonth] :
_days[pst->wMonth])) )
{
shYearDay -= 7;
}
// Now update the structure.
pst->wYear = wYear;
pst->wDay = shYearDay - (bLeap ? _lpdays[pst->wMonth - 1] :
_days[pst->wMonth - 1]);
}
}
// **************************************************************************
// These are static to WBEMTIME, which means they CAN be called from outside
// wbemtime
LONG CSWbemDateTime::WBEMTime::GetLocalOffsetForDate(const SYSTEMTIME *pst)
{
TIME_ZONE_INFORMATION tzTime;
DWORD dwRes = GetTimeZoneInformation(&tzTime);
LONG lRes = 0xffffffff;
switch (dwRes)
{
case TIME_ZONE_ID_UNKNOWN:
{
// Read tz, but no dst defined in this zone
lRes = tzTime.Bias * -1;
break;
}
case TIME_ZONE_ID_STANDARD:
case TIME_ZONE_ID_DAYLIGHT:
{
// Convert the relative dates to absolute dates
DayInMonthToAbsolute(&tzTime.DaylightDate, pst->wYear);
DayInMonthToAbsolute(&tzTime.StandardDate, pst->wYear);
if ( CompareSYSTEMTIME(&tzTime.DaylightDate, &tzTime.StandardDate) < 0 )
{
/*
* Northern hemisphere ordering
*/
if ( CompareSYSTEMTIME(pst, &tzTime.DaylightDate) < 0 || CompareSYSTEMTIME(pst, &tzTime.StandardDate) > 0)
{
lRes = tzTime.Bias * -1;
}
else
{
lRes = (tzTime.Bias + tzTime.DaylightBias) * -1;
}
}
else
{
/*
* Southern hemisphere ordering
*/
if ( CompareSYSTEMTIME(pst, &tzTime.StandardDate) < 0 || CompareSYSTEMTIME(pst, &tzTime.DaylightDate) > 0)
{
lRes = (tzTime.Bias + tzTime.DaylightBias) * -1;
}
else
{
lRes = tzTime.Bias * -1;
}
}
break;
}
case TIME_ZONE_ID_INVALID:
default:
{
// Can't read the timezone info
ASSERT_BREAK(BAD_TIMEZONE);
break;
}
}
return lRes;
}
///////////////////////////////////////////////////////////////////////////
// WBEMTime - This class holds time values.
//***************************************************************************
//
// WBEMTime::operator+(const WBEMTimeSpan &uAdd)
//
// Description: dummy function for adding two WBEMTime. It doesnt really
// make sense to add two date, but this is here for Tomas's template.
//
// Return: WBEMTime object.
//
//***************************************************************************
CSWbemDateTime::WBEMTime CSWbemDateTime::WBEMTime::operator+(const WBEMTimeSpan &uAdd) const
{
WBEMTime ret;
if (IsOk())
{
ret.m_uTime = m_uTime + uAdd.m_Time;
}
else
{
ASSERT_BREAK(INVALID_TIME_ARITHMETIC);
}
return ret;
}
//***************************************************************************
//
// WBEMTime::operator=(const SYSTEMTIME)
//
// Description: Assignment operator which is also used by the constructor.
// This takes a standard WIN32 SYSTEMTIME stucture.
//
// Return: WBEMTime object.
//
//***************************************************************************
const CSWbemDateTime::WBEMTime & CSWbemDateTime::WBEMTime::operator=(const SYSTEMTIME & st)
{
Clear(); // set when properly assigned
FILETIME t_ft;
if ( SystemTimeToFileTime(&st, &t_ft) )
{
// now assign using a FILETIME.
*this = t_ft;
}
else
{
ASSERT_BREAK(INVALID_TIME_FORMAT);
}
return *this;
}
//***************************************************************************
//
// WBEMTime::operator=(const FILETIME)
//
// Description: Assignment operator which is also used by the constructor.
// This takes a standard WIN32 FILETIME stucture.
//
// Return: WBEMTime object.
//
//***************************************************************************
const CSWbemDateTime::WBEMTime & CSWbemDateTime::WBEMTime::operator=(const FILETIME & ft)
{
FileTimeToui64(&ft, &m_uTime);
return *this;
}
//***************************************************************************
//
// WBEMTime::operator-(const WBEMTime & sub)
//
// Description: returns a WBEMTimeSpan object as the difference between
// two WBEMTime objects.
//
// Return: WBEMTimeSpan object.
//
//***************************************************************************
CSWbemDateTime::WBEMTime CSWbemDateTime::WBEMTime::operator-(const WBEMTimeSpan & sub) const
{
WBEMTime ret;
if (IsOk() && (m_uTime >= sub.m_Time))
{
ret.m_uTime = m_uTime - sub.m_Time;
}
else
{
ASSERT_BREAK(INVALID_TIME_ARITHMETIC);
}
return ret;
}
//***************************************************************************
//
// WBEMTime::GetSYSTEMTIME(SYSTEMTIME * pst)
//
// Return: TRUE if OK.
//
//***************************************************************************
BOOL CSWbemDateTime::WBEMTime::GetSYSTEMTIME(SYSTEMTIME * pst) const
{
if ((pst == NULL) || (!IsOk()))
{
ASSERT_BREAK(INVALID_TIME_ARITHMETIC);
return FALSE;
}
FILETIME t_ft;
if (GetFILETIME(&t_ft))
{
if (!FileTimeToSystemTime(&t_ft, pst))
{
ASSERT_BREAK(INVALID_TIME_ARITHMETIC);
return FALSE;
}
}
else
{
return FALSE;
}
return TRUE;
}
//***************************************************************************
//
// WBEMTime::GetFILETIME(FILETIME * pst)
//
// Return: TRUE if OK.
//
//***************************************************************************
BOOL CSWbemDateTime::WBEMTime::GetFILETIME(FILETIME * pft) const
{
if ((pft == NULL) || (!IsOk()))
{
ASSERT_BREAK(INVALID_TIME_ARITHMETIC);
return FALSE;
}
ui64ToFileTime(&m_uTime, pft);
return TRUE;
}
//***************************************************************************
//
// BSTR WBEMTime::GetDMTF(SYSTEMTIME &st, long &offset)
//
// Description: Gets the time in DMTF string local datetime format as a
// SYSTEMTIME.
//
// Return: NULL if not OK.
//
//***************************************************************************
BOOL CSWbemDateTime::WBEMTime::GetDMTF(SYSTEMTIME &st, long &offset) const
{
if (!IsOk())
{
ASSERT_BREAK(INVALID_TIME_ARITHMETIC);
return FALSE;
}
// If the date to be converted is within 12 hours of
// 1/1/1601, return the greenwich time
ULONGLONG t_ConversionZone = 12L * 60L * 60L ;
t_ConversionZone = t_ConversionZone * 10000000L ;
if ( m_uTime < t_ConversionZone )
{
if(!GetSYSTEMTIME(&st))
return FALSE;
}
else
{
if (GetSYSTEMTIME(&st))
{
offset = GetLocalOffsetForDate(&st);
WBEMTime wt;
if (offset >= 0)
wt = *this - WBEMTimeSpan(offset);
else
wt = *this + WBEMTimeSpan(-offset);
wt.GetSYSTEMTIME(&st);
}
else
return FALSE;
}
return TRUE ;
}
//***************************************************************************
//
// BSTR WBEMTime::GetDMTF(SYSTEMTIME &st)
//
// Description: Gets the time in as local SYSTEMTIME.
//
// Return: NULL if not OK.
//
//***************************************************************************
BOOL CSWbemDateTime::WBEMTime::GetDMTF(SYSTEMTIME &st) const
{
if (!IsOk())
{
ASSERT_BREAK(INVALID_TIME_ARITHMETIC);
return FALSE;
}
// If the date to be converted is within 12 hours of
// 1/1/1601, return the greenwich time
ULONGLONG t_ConversionZone = 12L * 60L * 60L ;
t_ConversionZone = t_ConversionZone * 10000000L ;
if ( m_uTime < t_ConversionZone )
{
if(!GetSYSTEMTIME(&st))
return FALSE;
}
else
{
if (GetSYSTEMTIME(&st))
{
long offset = GetLocalOffsetForDate(&st);
WBEMTime wt;
if (offset >= 0)
wt = *this + WBEMTimeSpan(offset);
else
wt = *this - WBEMTimeSpan(-offset);
wt.GetSYSTEMTIME(&st);
}
else
return FALSE;
}
return TRUE ;
}