wine/ole/variant.c
Alexandre Julliard 638f169b1e Recovery of release 990110 after disk crash.
See Changelog for changes between 990103 and 990110.
1999-01-17 16:32:32 +00:00

4199 lines
102 KiB
C

/*
* VARIANT
*
* Copyright 1998 Jean-Claude Cote
*
* NOTES
* This implements the low-level and hi-level APIs for manipulating VARIANTs.
* The low-level APIs are used to do data coercion between different data types.
* The hi-level APIs are built on top of these low-level APIs and handle
* initialization, copying, destroying and changing the type of VARIANTs.
*
* TODO:
* - The Variant APIs are do not support international languages, currency
* types, number formating and calendar. They only support U.S. English format.
* - The Variant APIs do not the following types: IUknown, IDispatch, DECIMAL and SafeArray.
* The prototypes for these are commented out in the oleauto.h file. They need
* to be implemented and cases need to be added to the switches of the existing APIs.
* - The parsing of date for the VarDateFromStr is not complete.
* - The date manipulations do not support date prior to 1900.
* - The parsing does not accept has many formats has the Windows implementation.
*/
#include "wintypes.h"
#include "oleauto.h"
#include "heap.h"
#include "debug.h"
#include "winerror.h"
#include "mapidefs.h"
#include "parsedt.h"
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>
#ifdef HAVE_FLOAT_H
# include <float.h>
#endif
#ifndef FLT_MAX
# ifdef MAXFLOAT
# define FLT_MAX MAXFLOAT
# else
# error "Can't find #define for MAXFLOAT/FLT_MAX"
# endif
#endif
#undef CHAR_MAX
#undef CHAR_MIN
static const char CHAR_MAX = 127;
static const char CHAR_MIN = -128;
static const BYTE UI1_MAX = 255;
static const BYTE UI1_MIN = 0;
static const unsigned short UI2_MAX = 65535;
static const unsigned short UI2_MIN = 0;
static const short I2_MAX = 32767;
static const short I2_MIN = -32768;
static const unsigned long UI4_MAX = 4294967295U;
static const unsigned long UI4_MIN = 0;
static const long I4_MAX = 2147483647;
static const long I4_MIN = -(2147483648U);
static const DATE DATE_MIN = -657434;
static const DATE DATE_MAX = 2958465;
/* This mask is used to set a flag in wReserved1 of
* the VARIANTARG structure. The flag indicates if
* the API function is using an inner variant or not.
*/
#define PROCESSING_INNER_VARIANT 0x0001
/* General use buffer.
*/
#define BUFFER_MAX 1024
static char pBuffer[BUFFER_MAX];
/*
* Note a leap year is one that is a multiple of 4
* but not of a 100. Except if it is a multiple of
* 400 then it is a leap year.
*/
/* According to postgeSQL date parsing functions there is
* a leap year when this expression is true.
* (((y % 4) == 0) && (((y % 100) != 0) || ((y % 400) == 0)))
* So according to this there is 365.2515 days in one year.
* One + every four years: 1/4 -> 365.25
* One - every 100 years: 1/100 -> 365.001
* One + every 400 years: 1/400 -> 365.0025
*/
static const double DAYS_IN_ONE_YEAR = 365.2515;
/******************************************************************************
* DateTimeStringToTm [INTERNAL]
*
* Converts a string representation of a date and/or time to a tm structure.
*
* Note this function uses the postgresql date parsing functions found
* in the parsedt.c file.
*
* Returns TRUE if successfull.
*
* Note: This function does not parse the day of the week,
* daylight savings time. It will only fill the followin fields in
* the tm struct, tm_sec, tm_min, tm_hour, tm_year, tm_day, tm_mon.
*
******************************************************************************/
static BOOL32 DateTimeStringToTm( OLECHAR32* strIn, LCID lcid, struct tm* pTm )
{
BOOL32 res = FALSE;
double fsec;
int tzp;
int dtype;
int nf;
char *field[MAXDATEFIELDS];
int ftype[MAXDATEFIELDS];
char lowstr[MAXDATELEN + 1];
char* strDateTime = NULL;
/* Convert the string to ASCII since this is the only format
* postgesql can handle.
*/
strDateTime = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
if( strDateTime != NULL )
{
/* Make sure we don't go over the maximum length
* accepted by postgesql.
*/
if( strlen( strDateTime ) <= MAXDATELEN )
{
if( ParseDateTime( strDateTime, lowstr, field, ftype, MAXDATEFIELDS, &nf) == 0 )
{
if( lcid & VAR_DATEVALUEONLY )
{
/* Get the date information.
* It returns 0 if date information was
* present and 1 if only time information was present.
* -1 if an error occures.
*/
if( DecodeDateTime(field, ftype, nf, &dtype, pTm, &fsec, &tzp) == 0 )
{
/* Eliminate the time information since we
* were asked to get date information only.
*/
pTm->tm_sec = 0;
pTm->tm_min = 0;
pTm->tm_hour = 0;
res = TRUE;
}
}
if( lcid & VAR_TIMEVALUEONLY )
{
/* Get time information only.
*/
if( DecodeTimeOnly(field, ftype, nf, &dtype, pTm, &fsec) == 0 )
{
res = TRUE;
}
}
else
{
/* Get both date and time information.
* It returns 0 if date information was
* present and 1 if only time information was present.
* -1 if an error occures.
*/
if( DecodeDateTime(field, ftype, nf, &dtype, pTm, &fsec, &tzp) != -1 )
{
res = TRUE;
}
}
}
}
HeapFree( GetProcessHeap(), 0, strDateTime );
}
return res;
}
/******************************************************************************
* TmToDATE [INTERNAL]
*
* The date is implemented using an 8 byte floating-point number.
* Days are represented by whole numbers increments starting with 0.00 has
* being December 30 1899, midnight.
* The hours are expressed as the fractional part of the number.
* December 30 1899 at midnight = 0.00
* January 1 1900 at midnight = 2.00
* January 4 1900 at 6 AM = 5.25
* January 4 1900 at noon = 5.50
* December 29 1899 at midnight = -1.00
* December 18 1899 at midnight = -12.00
* December 18 1899 at 6AM = -12.25
* December 18 1899 at 6PM = -12.75
* December 19 1899 at midnight = -11.00
* The tm structure is as follows:
* struct tm {
* int tm_sec; seconds after the minute - [0,59]
* int tm_min; minutes after the hour - [0,59]
* int tm_hour; hours since midnight - [0,23]
* int tm_mday; day of the month - [1,31]
* int tm_mon; months since January - [0,11]
* int tm_year; years
* int tm_wday; days since Sunday - [0,6]
* int tm_yday; days since January 1 - [0,365]
* int tm_isdst; daylight savings time flag
* };
*
* Note: This function does not use the tm_wday, tm_yday, tm_wday,
* and tm_isdst fields of the tm structure. And only converts years
* after 1900.
*
* Returns TRUE if successfull.
*/
static BOOL32 TmToDATE( struct tm* pTm, DATE *pDateOut )
{
if( (pTm->tm_year - 1900) >= 0 )
{
int leapYear = 0;
/* Start at 1. This is the way DATE is defined.
* January 1, 1900 at Midnight is 1.00.
* January 1, 1900 at 6AM is 1.25.
* and so on.
*/
*pDateOut = 1;
/* Add the number of days corresponding to
* tm_year.
*/
*pDateOut += (pTm->tm_year - 1900) * 365;
/* Add the leap days in the previous years between now and 1900.
* Note a leap year is one that is a multiple of 4
* but not of a 100. Except if it is a multiple of
* 400 then it is a leap year.
*/
*pDateOut += ( (pTm->tm_year - 1) / 4 ) - ( 1900 / 4 );
*pDateOut -= ( (pTm->tm_year - 1) / 100 ) - ( 1900 / 100 );
*pDateOut += ( (pTm->tm_year - 1) / 400 ) - ( 1900 / 400 );
/* Set the leap year flag if the
* current year specified by tm_year is a
* leap year. This will be used to add a day
* to the day count.
*/
if( isleap( pTm->tm_year ) )
leapYear = 1;
/* Add the number of days corresponding to
* the month.
*/
switch( pTm->tm_mon )
{
case 2:
*pDateOut += 31;
break;
case 3:
*pDateOut += ( 59 + leapYear );
break;
case 4:
*pDateOut += ( 90 + leapYear );
break;
case 5:
*pDateOut += ( 120 + leapYear );
break;
case 6:
*pDateOut += ( 151 + leapYear );
break;
case 7:
*pDateOut += ( 181 + leapYear );
break;
case 8:
*pDateOut += ( 212 + leapYear );
break;
case 9:
*pDateOut += ( 243 + leapYear );
break;
case 10:
*pDateOut += ( 273 + leapYear );
break;
case 11:
*pDateOut += ( 304 + leapYear );
break;
case 12:
*pDateOut += ( 334 + leapYear );
break;
}
/* Add the number of days in this month.
*/
*pDateOut += pTm->tm_mday;
/* Add the number of seconds, minutes, and hours
* to the DATE. Note these are the fracionnal part
* of the DATE so seconds / number of seconds in a day.
*/
*pDateOut += pTm->tm_hour / 24.0;
*pDateOut += pTm->tm_min / 1440.0;
*pDateOut += pTm->tm_sec / 86400.0;
return TRUE;
}
return FALSE;
}
/******************************************************************************
* DateToTm [INTERNAL]
*
* This function converst a windows DATE to a tm structure.
*
* It does not fill all the fields of the tm structure.
* Here is a list of the fields that are filled:
* tm_sec, tm_min, tm_hour, tm_year, tm_day, tm_mon.
*
* Note this function does not support dates before the January 1, 1900
* or ( dateIn < 2.0 ).
*
* Returns TRUE if successfull.
*/
static BOOL32 DateToTm( DATE dateIn, LCID lcid, struct tm* pTm )
{
/* Do not process dates smaller than January 1, 1900.
* Which corresponds to 2.0 in the windows DATE format.
*/
if( dateIn >= 2.0 )
{
double decimalPart = 0.0;
double wholePart = 0.0;
memset(pTm,0,sizeof(*pTm));
/* Because of the nature of DATE format witch
* associates 2.0 to January 1, 1900. We will
* remove 1.0 from the whole part of the DATE
* so that in the following code 1.0
* will correspond to January 1, 1900.
* This simplyfies the processing of the DATE value.
*/
dateIn -= 1.0;
wholePart = (double) floor( dateIn );
decimalPart = fmod( dateIn, wholePart );
if( !(lcid & VAR_TIMEVALUEONLY) )
{
int nDay = 0;
int leapYear = 0;
double yearsSince1900 = 0;
/* Start at 1900, this where the DATE time 0.0 starts.
*/
pTm->tm_year = 1900;
/* find in what year the day in the "wholePart" falls into.
* add the value to the year field.
*/
yearsSince1900 = floor( wholePart / DAYS_IN_ONE_YEAR );
pTm->tm_year += yearsSince1900;
/* determine if this is a leap year.
*/
if( isleap( pTm->tm_year ) )
leapYear = 1;
/* find what day of that year does the "wholePart" corresponds to.
* Note: nDay is in [1-366] format
*/
nDay = (int) ( wholePart - floor( yearsSince1900 * DAYS_IN_ONE_YEAR ) );
/* Set the tm_yday value.
* Note: The day is must be converted from [1-366] to [0-365]
*/
/*pTm->tm_yday = nDay - 1;*/
/* find which mount this day corresponds to.
*/
if( nDay <= 31 )
{
pTm->tm_mday = nDay;
pTm->tm_mon = 0;
}
else if( nDay <= ( 59 + leapYear ) )
{
pTm->tm_mday = nDay - 31;
pTm->tm_mon = 1;
}
else if( nDay <= ( 90 + leapYear ) )
{
pTm->tm_mday = nDay - ( 59 + leapYear );
pTm->tm_mon = 2;
}
else if( nDay <= ( 120 + leapYear ) )
{
pTm->tm_mday = nDay - ( 90 + leapYear );
pTm->tm_mon = 3;
}
else if( nDay <= ( 151 + leapYear ) )
{
pTm->tm_mday = nDay - ( 120 + leapYear );
pTm->tm_mon = 4;
}
else if( nDay <= ( 181 + leapYear ) )
{
pTm->tm_mday = nDay - ( 151 + leapYear );
pTm->tm_mon = 5;
}
else if( nDay <= ( 212 + leapYear ) )
{
pTm->tm_mday = nDay - ( 181 + leapYear );
pTm->tm_mon = 6;
}
else if( nDay <= ( 243 + leapYear ) )
{
pTm->tm_mday = nDay - ( 212 + leapYear );
pTm->tm_mon = 7;
}
else if( nDay <= ( 273 + leapYear ) )
{
pTm->tm_mday = nDay - ( 243 + leapYear );
pTm->tm_mon = 8;
}
else if( nDay <= ( 304 + leapYear ) )
{
pTm->tm_mday = nDay - ( 273 + leapYear );
pTm->tm_mon = 9;
}
else if( nDay <= ( 334 + leapYear ) )
{
pTm->tm_mday = nDay - ( 304 + leapYear );
pTm->tm_mon = 10;
}
else if( nDay <= ( 365 + leapYear ) )
{
pTm->tm_mday = nDay - ( 334 + leapYear );
pTm->tm_mon = 11;
}
}
if( !(lcid & VAR_DATEVALUEONLY) )
{
/* find the number of seconds in this day.
* fractional part times, hours, minutes, seconds.
*/
pTm->tm_hour = (int) ( decimalPart * 24 );
pTm->tm_min = (int) ( ( ( decimalPart * 24 ) - pTm->tm_hour ) * 60 );
pTm->tm_sec = (int) ( ( ( decimalPart * 24 * 60 ) - ( pTm->tm_hour * 60 ) - pTm->tm_min ) * 60 );
}
return TRUE;
}
return FALSE;
}
/******************************************************************************
* SizeOfVariantData [INTERNAL]
*
* This function finds the size of the data referenced by a Variant based
* the type "vt" of the Variant.
*/
static int SizeOfVariantData( VARIANT* parg )
{
int size = 0;
switch( parg->vt & VT_TYPEMASK )
{
case( VT_I2 ):
size = sizeof(short);
break;
case( VT_INT ):
size = sizeof(int);
break;
case( VT_I4 ):
size = sizeof(long);
break;
case( VT_UI1 ):
size = sizeof(BYTE);
break;
case( VT_UI2 ):
size = sizeof(unsigned short);
break;
case( VT_UINT ):
size = sizeof(unsigned int);
break;
case( VT_UI4 ):
size = sizeof(unsigned long);
break;
case( VT_R4 ):
size = sizeof(float);
break;
case( VT_R8 ):
size = sizeof(double);
break;
case( VT_DATE ):
size = sizeof(DATE);
break;
case( VT_BOOL ):
size = sizeof(VARIANT_BOOL);
break;
case( VT_BSTR ):
size = sizeof(void*);
break;
case( VT_CY ):
case( VT_DISPATCH ):
case( VT_UNKNOWN ):
case( VT_DECIMAL ):
default:
FIXME(ole,"Add size information for type vt=%d\n", parg->vt & VT_TYPEMASK );
break;
}
return size;
}
/******************************************************************************
* StringDupAtoBstr [INTERNAL]
*
*/
static BSTR32 StringDupAtoBstr( char* strIn )
{
BSTR32 bstr = NULL;
OLECHAR32* pNewString = NULL;
pNewString = HEAP_strdupAtoW( GetProcessHeap(), 0, strIn );
bstr = SysAllocString32( pNewString );
HeapFree( GetProcessHeap(), 0, pNewString );
return bstr;
}
/******************************************************************************
* round [INTERNAL]
*
* Round the double value to the nearest integer value.
*/
static double round( double d )
{
double decimals = 0.0, integerValue = 0.0, roundedValue = 0.0;
BOOL32 bEvenNumber = FALSE;
int nSign = 0;
/* Save the sign of the number
*/
nSign = (d >= 0.0) ? 1 : -1;
d = fabs( d );
/* Remove the decimals.
*/
integerValue = floor( d );
/* Set the Even flag. This is used to round the number when
* the decimals are exactly 1/2. If the integer part is
* odd the number is rounded up. If the integer part
* is even the number is rounded down. Using this method
* numbers are rounded up|down half the time.
*/
bEvenNumber = (((short)fmod(integerValue, 2)) == 0) ? TRUE : FALSE;
/* Remove the integral part of the number.
*/
decimals = d - integerValue;
/* Note: Ceil returns the smallest integer that is greater that x.
* and floor returns the largest integer that is less than or equal to x.
*/
if( decimals > 0.5 )
{
/* If the decimal part is greater than 1/2
*/
roundedValue = ceil( d );
}
else if( decimals < 0.5 )
{
/* If the decimal part is smaller than 1/2
*/
roundedValue = floor( d );
}
else
{
/* the decimals are exactly 1/2 so round according to
* the bEvenNumber flag.
*/
if( bEvenNumber )
{
roundedValue = floor( d );
}
else
{
roundedValue = ceil( d );
}
}
return roundedValue * nSign;
}
/******************************************************************************
* RemoveCharacterFromString [INTERNAL]
*
* Removes any of the characters in "strOfCharToRemove" from the "str" argument.
*/
static void RemoveCharacterFromString( LPSTR str, LPSTR strOfCharToRemove )
{
LPSTR pNewString = NULL;
LPSTR strToken = NULL;
/* Check if we have a valid argument
*/
if( str != NULL )
{
pNewString = strdup( str );
str[0] = '\0';
strToken = strtok( pNewString, strOfCharToRemove );
while( strToken != NULL ) {
strcat( str, strToken );
strToken = strtok( NULL, strOfCharToRemove );
}
free( pNewString );
}
return;
}
/******************************************************************************
* GetValidRealString [INTERNAL]
*
* Checks if the string is of proper format to be converted to a real value.
*/
static BOOL32 IsValidRealString( LPSTR strRealString )
{
/* Real values that have a decimal point are required to either have
* digits before or after the decimal point. We will assume that
* we do not have any digits at either position. If we do encounter
* some we will disable this flag.
*/
BOOL32 bDigitsRequired = TRUE;
/* Processed fields in the string representation of the real number.
*/
BOOL32 bWhiteSpaceProcessed = FALSE;
BOOL32 bFirstSignProcessed = FALSE;
BOOL32 bFirstDigitsProcessed = FALSE;
BOOL32 bDecimalPointProcessed = FALSE;
BOOL32 bSecondDigitsProcessed = FALSE;
BOOL32 bExponentProcessed = FALSE;
BOOL32 bSecondSignProcessed = FALSE;
BOOL32 bThirdDigitsProcessed = FALSE;
/* Assume string parameter "strRealString" is valid and try to disprove it.
*/
BOOL32 bValidRealString = TRUE;
/* Used to count the number of tokens in the "strRealString".
*/
LPSTR strToken = NULL;
int nTokens = 0;
LPSTR pChar = NULL;
/* Check if we have a valid argument
*/
if( strRealString == NULL )
{
bValidRealString = FALSE;
}
if( bValidRealString == TRUE )
{
/* Make sure we only have ONE token in the string.
*/
strToken = strtok( strRealString, " " );
while( strToken != NULL ) {
nTokens++;
strToken = strtok( NULL, " " );
}
if( nTokens != 1 )
{
bValidRealString = FALSE;
}
}
/* Make sure this token contains only valid characters.
* The string argument to atof has the following form:
* [whitespace] [sign] [digits] [.digits] [ {d | D | e | E }[sign]digits]
* Whitespace consists of space and|or <TAB> characters, which are ignored.
* Sign is either plus '+' or minus '-'.
* Digits are one or more decimal digits.
* Note: If no digits appear before the decimal point, at least one must
* appear after the decimal point.
* The decimal digits may be followed by an exponent.
* An Exponent consists of an introductory letter ( D, d, E, or e) and
* an optionally signed decimal integer.
*/
pChar = strRealString;
while( bValidRealString == TRUE && *pChar != '\0' )
{
switch( *pChar )
{
/* If whitespace...
*/
case ' ':
case '\t':
if( bWhiteSpaceProcessed ||
bFirstSignProcessed ||
bFirstDigitsProcessed ||
bDecimalPointProcessed ||
bSecondDigitsProcessed ||
bExponentProcessed ||
bSecondSignProcessed ||
bThirdDigitsProcessed )
{
bValidRealString = FALSE;
}
break;
/* If sign...
*/
case '+':
case '-':
if( bFirstSignProcessed == FALSE )
{
if( bFirstDigitsProcessed ||
bDecimalPointProcessed ||
bSecondDigitsProcessed ||
bExponentProcessed ||
bSecondSignProcessed ||
bThirdDigitsProcessed )
{
bValidRealString = FALSE;
}
bWhiteSpaceProcessed = TRUE;
bFirstSignProcessed = TRUE;
}
else if( bSecondSignProcessed == FALSE )
{
/* Note: The exponent must be present in
* order to accept the second sign...
*/
if( bExponentProcessed == FALSE ||
bThirdDigitsProcessed ||
bDigitsRequired )
{
bValidRealString = FALSE;
}
bFirstSignProcessed = TRUE;
bWhiteSpaceProcessed = TRUE;
bFirstDigitsProcessed = TRUE;
bDecimalPointProcessed = TRUE;
bSecondDigitsProcessed = TRUE;
bSecondSignProcessed = TRUE;
}
break;
/* If decimals...
*/
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
if( bFirstDigitsProcessed == FALSE )
{
if( bDecimalPointProcessed ||
bSecondDigitsProcessed ||
bExponentProcessed ||
bSecondSignProcessed ||
bThirdDigitsProcessed )
{
bValidRealString = FALSE;
}
bFirstSignProcessed = TRUE;
bWhiteSpaceProcessed = TRUE;
/* We have found some digits before the decimal point
* so disable the "Digits required" flag.
*/
bDigitsRequired = FALSE;
}
else if( bSecondDigitsProcessed == FALSE )
{
if( bExponentProcessed ||
bSecondSignProcessed ||
bThirdDigitsProcessed )
{
bValidRealString = FALSE;
}
bFirstSignProcessed = TRUE;
bWhiteSpaceProcessed = TRUE;
bFirstDigitsProcessed = TRUE;
bDecimalPointProcessed = TRUE;
/* We have found some digits after the decimal point
* so disable the "Digits required" flag.
*/
bDigitsRequired = FALSE;
}
else if( bThirdDigitsProcessed == FALSE )
{
/* Getting here means everything else should be processed.
* If we get anything else than a decimal following this
* digit it will be flagged by the other cases, so
* we do not really need to do anything in here.
*/
}
break;
/* If DecimalPoint...
*/
case '.':
if( bDecimalPointProcessed ||
bSecondDigitsProcessed ||
bExponentProcessed ||
bSecondSignProcessed ||
bThirdDigitsProcessed )
{
bValidRealString = FALSE;
}
bFirstSignProcessed = TRUE;
bWhiteSpaceProcessed = TRUE;
bFirstDigitsProcessed = TRUE;
bDecimalPointProcessed = TRUE;
break;
/* If Exponent...
*/
case 'e':
case 'E':
case 'd':
case 'D':
if( bExponentProcessed ||
bSecondSignProcessed ||
bThirdDigitsProcessed ||
bDigitsRequired )
{
bValidRealString = FALSE;
}
bFirstSignProcessed = TRUE;
bWhiteSpaceProcessed = TRUE;
bFirstDigitsProcessed = TRUE;
bDecimalPointProcessed = TRUE;
bSecondDigitsProcessed = TRUE;
bExponentProcessed = TRUE;
break;
default:
bValidRealString = FALSE;
break;
}
/* Process next character.
*/
pChar++;
}
/* If the required digits were not present we have an invalid
* string representation of a real number.
*/
if( bDigitsRequired == TRUE )
{
bValidRealString = FALSE;
}
return bValidRealString;
}
/******************************************************************************
* Coerce [INTERNAL]
*
* This function dispatches execution to the proper conversion API
* to do the necessary coercion.
*/
static HRESULT Coerce( VARIANTARG* pd, LCID lcid, ULONG dwFlags, VARIANTARG* ps, VARTYPE vt )
{
HRESULT res = S_OK;
unsigned short vtFrom = 0;
vtFrom = ps->vt & VT_TYPEMASK;
/* Note: Since "long" and "int" values both have 4 bytes and are both signed integers
* "int" will be treated as "long" in the following code.
* The same goes for there unsigned versions.
*/
switch( vt )
{
case( VT_EMPTY ):
res = VariantClear32( pd );
break;
case( VT_NULL ):
res = VariantClear32( pd );
if( res == S_OK )
{
pd->vt = VT_NULL;
}
break;
case( VT_I1 ):
switch( vtFrom )
{
case( VT_I1 ):
res = VariantCopy32( pd, ps );
break;
case( VT_I2 ):
res = VarI1FromI232( ps->u.iVal, &(pd->u.cVal) );
break;
case( VT_INT ):
case( VT_I4 ):
res = VarI1FromI432( ps->u.lVal, &(pd->u.cVal) );
break;
case( VT_UI1 ):
res = VarI1FromUI132( ps->u.bVal, &(pd->u.cVal) );
break;
case( VT_UI2 ):
res = VarI1FromUI232( ps->u.uiVal, &(pd->u.cVal) );
break;
case( VT_UINT ):
case( VT_UI4 ):
res = VarI1FromUI432( ps->u.ulVal, &(pd->u.cVal) );
break;
case( VT_R4 ):
res = VarI1FromR432( ps->u.fltVal, &(pd->u.cVal) );
break;
case( VT_R8 ):
res = VarI1FromR832( ps->u.dblVal, &(pd->u.cVal) );
break;
case( VT_DATE ):
res = VarI1FromDate32( ps->u.date, &(pd->u.cVal) );
break;
case( VT_BOOL ):
res = VarI1FromBool32( ps->u.boolVal, &(pd->u.cVal) );
break;
case( VT_BSTR ):
res = VarI1FromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.cVal) );
break;
case( VT_CY ):
res = VarI1FromCy32( ps->u.cyVal, &(pd->u.cVal) );
case( VT_DISPATCH ):
/*res = VarI1FromDisp32( ps->u.pdispVal, lcid, &(pd->u.cVal) );*/
case( VT_UNKNOWN ):
/*res = VarI1From32( ps->u.lVal, &(pd->u.cVal) );*/
case( VT_DECIMAL ):
/*res = VarI1FromDec32( ps->u.decVal, &(pd->u.cVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_I2 ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarI2FromI132( ps->u.cVal, &(pd->u.iVal) );
break;
case( VT_I2 ):
res = VariantCopy32( pd, ps );
break;
case( VT_INT ):
case( VT_I4 ):
res = VarI2FromI432( ps->u.lVal, &(pd->u.iVal) );
break;
case( VT_UI1 ):
res = VarI2FromUI132( ps->u.bVal, &(pd->u.iVal) );
break;
case( VT_UI2 ):
res = VarI2FromUI232( ps->u.uiVal, &(pd->u.iVal) );
break;
case( VT_UINT ):
case( VT_UI4 ):
res = VarI2FromUI432( ps->u.ulVal, &(pd->u.iVal) );
break;
case( VT_R4 ):
res = VarI2FromR432( ps->u.fltVal, &(pd->u.iVal) );
break;
case( VT_R8 ):
res = VarI2FromR832( ps->u.dblVal, &(pd->u.iVal) );
break;
case( VT_DATE ):
res = VarI2FromDate32( ps->u.date, &(pd->u.iVal) );
break;
case( VT_BOOL ):
res = VarI2FromBool32( ps->u.boolVal, &(pd->u.iVal) );
break;
case( VT_BSTR ):
res = VarI2FromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.iVal) );
break;
case( VT_CY ):
res = VarI2FromCy32( ps->u.cyVal, &(pd->u.iVal) );
case( VT_DISPATCH ):
/*res = VarI2FromDisp32( ps->u.pdispVal, lcid, &(pd->u.iVal) );*/
case( VT_UNKNOWN ):
/*res = VarI2From32( ps->u.lVal, &(pd->u.iVal) );*/
case( VT_DECIMAL ):
/*res = VarI2FromDec32( ps->u.deiVal, &(pd->u.iVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_INT ):
case( VT_I4 ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarI4FromI132( ps->u.cVal, &(pd->u.lVal) );
break;
case( VT_I2 ):
res = VarI4FromI232( ps->u.iVal, &(pd->u.lVal) );
break;
case( VT_INT ):
case( VT_I4 ):
res = VariantCopy32( pd, ps );
break;
case( VT_UI1 ):
res = VarI4FromUI132( ps->u.bVal, &(pd->u.lVal) );
break;
case( VT_UI2 ):
res = VarI4FromUI232( ps->u.uiVal, &(pd->u.lVal) );
break;
case( VT_UINT ):
case( VT_UI4 ):
res = VarI4FromUI432( ps->u.ulVal, &(pd->u.lVal) );
break;
case( VT_R4 ):
res = VarI4FromR432( ps->u.fltVal, &(pd->u.lVal) );
break;
case( VT_R8 ):
res = VarI4FromR832( ps->u.dblVal, &(pd->u.lVal) );
break;
case( VT_DATE ):
res = VarI4FromDate32( ps->u.date, &(pd->u.lVal) );
break;
case( VT_BOOL ):
res = VarI4FromBool32( ps->u.boolVal, &(pd->u.lVal) );
break;
case( VT_BSTR ):
res = VarI4FromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.lVal) );
break;
case( VT_CY ):
res = VarI4FromCy32( ps->u.cyVal, &(pd->u.lVal) );
case( VT_DISPATCH ):
/*res = VarI4FromDisp32( ps->u.pdispVal, lcid, &(pd->u.lVal) );*/
case( VT_UNKNOWN ):
/*res = VarI4From32( ps->u.lVal, &(pd->u.lVal) );*/
case( VT_DECIMAL ):
/*res = VarI4FromDec32( ps->u.deiVal, &(pd->u.lVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_UI1 ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarUI1FromI132( ps->u.cVal, &(pd->u.bVal) );
break;
case( VT_I2 ):
res = VarUI1FromI232( ps->u.iVal, &(pd->u.bVal) );
break;
case( VT_INT ):
case( VT_I4 ):
res = VarUI1FromI432( ps->u.lVal, &(pd->u.bVal) );
break;
case( VT_UI1 ):
res = VariantCopy32( pd, ps );
break;
case( VT_UI2 ):
res = VarUI1FromUI232( ps->u.uiVal, &(pd->u.bVal) );
break;
case( VT_UINT ):
case( VT_UI4 ):
res = VarUI1FromUI432( ps->u.ulVal, &(pd->u.bVal) );
break;
case( VT_R4 ):
res = VarUI1FromR432( ps->u.fltVal, &(pd->u.bVal) );
break;
case( VT_R8 ):
res = VarUI1FromR832( ps->u.dblVal, &(pd->u.bVal) );
break;
case( VT_DATE ):
res = VarUI1FromDate32( ps->u.date, &(pd->u.bVal) );
break;
case( VT_BOOL ):
res = VarUI1FromBool32( ps->u.boolVal, &(pd->u.bVal) );
break;
case( VT_BSTR ):
res = VarUI1FromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.bVal) );
break;
case( VT_CY ):
res = VarUI1FromCy32( ps->u.cyVal, &(pd->u.bVal) );
case( VT_DISPATCH ):
/*res = VarUI1FromDisp32( ps->u.pdispVal, lcid, &(pd->u.bVal) );*/
case( VT_UNKNOWN ):
/*res = VarUI1From32( ps->u.lVal, &(pd->u.bVal) );*/
case( VT_DECIMAL ):
/*res = VarUI1FromDec32( ps->u.deiVal, &(pd->u.bVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_UI2 ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarUI2FromI132( ps->u.cVal, &(pd->u.uiVal) );
break;
case( VT_I2 ):
res = VarUI2FromI232( ps->u.iVal, &(pd->u.uiVal) );
break;
case( VT_INT ):
case( VT_I4 ):
res = VarUI2FromI432( ps->u.lVal, &(pd->u.uiVal) );
break;
case( VT_UI1 ):
res = VarUI2FromUI132( ps->u.bVal, &(pd->u.uiVal) );
break;
case( VT_UI2 ):
res = VariantCopy32( pd, ps );
break;
case( VT_UINT ):
case( VT_UI4 ):
res = VarUI2FromUI432( ps->u.ulVal, &(pd->u.uiVal) );
break;
case( VT_R4 ):
res = VarUI2FromR432( ps->u.fltVal, &(pd->u.uiVal) );
break;
case( VT_R8 ):
res = VarUI2FromR832( ps->u.dblVal, &(pd->u.uiVal) );
break;
case( VT_DATE ):
res = VarUI2FromDate32( ps->u.date, &(pd->u.uiVal) );
break;
case( VT_BOOL ):
res = VarUI2FromBool32( ps->u.boolVal, &(pd->u.uiVal) );
break;
case( VT_BSTR ):
res = VarUI2FromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.uiVal) );
break;
case( VT_CY ):
res = VarUI2FromCy32( ps->u.cyVal, &(pd->u.uiVal) );
case( VT_DISPATCH ):
/*res = VarUI2FromDisp32( ps->u.pdispVal, lcid, &(pd->u.uiVal) );*/
case( VT_UNKNOWN ):
/*res = VarUI2From32( ps->u.lVal, &(pd->u.uiVal) );*/
case( VT_DECIMAL ):
/*res = VarUI2FromDec32( ps->u.deiVal, &(pd->u.uiVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_UINT ):
case( VT_UI4 ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarUI4FromI132( ps->u.cVal, &(pd->u.ulVal) );
break;
case( VT_I2 ):
res = VarUI4FromI232( ps->u.iVal, &(pd->u.ulVal) );
break;
case( VT_INT ):
case( VT_I4 ):
res = VarUI4FromI432( ps->u.lVal, &(pd->u.ulVal) );
break;
case( VT_UI1 ):
res = VarUI4FromUI132( ps->u.bVal, &(pd->u.ulVal) );
break;
case( VT_UI2 ):
res = VarUI4FromUI232( ps->u.uiVal, &(pd->u.ulVal) );
break;
case( VT_UI4 ):
res = VariantCopy32( pd, ps );
break;
case( VT_R4 ):
res = VarUI4FromR432( ps->u.fltVal, &(pd->u.ulVal) );
break;
case( VT_R8 ):
res = VarUI4FromR832( ps->u.dblVal, &(pd->u.ulVal) );
break;
case( VT_DATE ):
res = VarUI4FromDate32( ps->u.date, &(pd->u.ulVal) );
break;
case( VT_BOOL ):
res = VarUI4FromBool32( ps->u.boolVal, &(pd->u.ulVal) );
break;
case( VT_BSTR ):
res = VarUI4FromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.ulVal) );
break;
case( VT_CY ):
res = VarUI4FromCy32( ps->u.cyVal, &(pd->u.ulVal) );
case( VT_DISPATCH ):
/*res = VarUI4FromDisp32( ps->u.pdispVal, lcid, &(pd->u.ulVal) );*/
case( VT_UNKNOWN ):
/*res = VarUI4From32( ps->u.lVal, &(pd->u.ulVal) );*/
case( VT_DECIMAL ):
/*res = VarUI4FromDec32( ps->u.deiVal, &(pd->u.ulVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_R4 ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarR4FromI132( ps->u.cVal, &(pd->u.fltVal) );
break;
case( VT_I2 ):
res = VarR4FromI232( ps->u.iVal, &(pd->u.fltVal) );
break;
case( VT_INT ):
case( VT_I4 ):
res = VarR4FromI432( ps->u.lVal, &(pd->u.fltVal) );
break;
case( VT_UI1 ):
res = VarR4FromUI132( ps->u.bVal, &(pd->u.fltVal) );
break;
case( VT_UI2 ):
res = VarR4FromUI232( ps->u.uiVal, &(pd->u.fltVal) );
break;
case( VT_UINT ):
case( VT_UI4 ):
res = VarR4FromUI432( ps->u.ulVal, &(pd->u.fltVal) );
break;
case( VT_R4 ):
res = VariantCopy32( pd, ps );
break;
case( VT_R8 ):
res = VarR4FromR832( ps->u.dblVal, &(pd->u.fltVal) );
break;
case( VT_DATE ):
res = VarR4FromDate32( ps->u.date, &(pd->u.fltVal) );
break;
case( VT_BOOL ):
res = VarR4FromBool32( ps->u.boolVal, &(pd->u.fltVal) );
break;
case( VT_BSTR ):
res = VarR4FromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.fltVal) );
break;
case( VT_CY ):
res = VarR4FromCy32( ps->u.cyVal, &(pd->u.fltVal) );
case( VT_DISPATCH ):
/*res = VarR4FromDisp32( ps->u.pdispVal, lcid, &(pd->u.fltVal) );*/
case( VT_UNKNOWN ):
/*res = VarR4From32( ps->u.lVal, &(pd->u.fltVal) );*/
case( VT_DECIMAL ):
/*res = VarR4FromDec32( ps->u.deiVal, &(pd->u.fltVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_R8 ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarR8FromI132( ps->u.cVal, &(pd->u.dblVal) );
break;
case( VT_I2 ):
res = VarR8FromI232( ps->u.iVal, &(pd->u.dblVal) );
break;
case( VT_INT ):
case( VT_I4 ):
res = VarR8FromI432( ps->u.lVal, &(pd->u.dblVal) );
break;
case( VT_UI1 ):
res = VarR8FromUI132( ps->u.bVal, &(pd->u.dblVal) );
break;
case( VT_UI2 ):
res = VarR8FromUI232( ps->u.uiVal, &(pd->u.dblVal) );
break;
case( VT_UINT ):
case( VT_UI4 ):
res = VarR8FromUI432( ps->u.ulVal, &(pd->u.dblVal) );
break;
case( VT_R4 ):
res = VarR8FromR432( ps->u.fltVal, &(pd->u.dblVal) );
break;
case( VT_R8 ):
res = VariantCopy32( pd, ps );
break;
case( VT_DATE ):
res = VarR8FromDate32( ps->u.date, &(pd->u.dblVal) );
break;
case( VT_BOOL ):
res = VarR8FromBool32( ps->u.boolVal, &(pd->u.dblVal) );
break;
case( VT_BSTR ):
res = VarR8FromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.dblVal) );
break;
case( VT_CY ):
res = VarR8FromCy32( ps->u.cyVal, &(pd->u.dblVal) );
case( VT_DISPATCH ):
/*res = VarR8FromDisp32( ps->u.pdispVal, lcid, &(pd->u.dblVal) );*/
case( VT_UNKNOWN ):
/*res = VarR8From32( ps->u.lVal, &(pd->u.dblVal) );*/
case( VT_DECIMAL ):
/*res = VarR8FromDec32( ps->u.deiVal, &(pd->u.dblVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_DATE ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarDateFromI132( ps->u.cVal, &(pd->u.date) );
break;
case( VT_I2 ):
res = VarDateFromI232( ps->u.iVal, &(pd->u.date) );
break;
case( VT_INT ):
res = VarDateFromInt32( ps->u.intVal, &(pd->u.date) );
break;
case( VT_I4 ):
res = VarDateFromI432( ps->u.lVal, &(pd->u.date) );
break;
case( VT_UI1 ):
res = VarDateFromUI132( ps->u.bVal, &(pd->u.date) );
break;
case( VT_UI2 ):
res = VarDateFromUI232( ps->u.uiVal, &(pd->u.date) );
break;
case( VT_UINT ):
res = VarDateFromUint32( ps->u.uintVal, &(pd->u.date) );
break;
case( VT_UI4 ):
res = VarDateFromUI432( ps->u.ulVal, &(pd->u.date) );
break;
case( VT_R4 ):
res = VarDateFromR432( ps->u.fltVal, &(pd->u.date) );
break;
case( VT_R8 ):
res = VarDateFromR832( ps->u.dblVal, &(pd->u.date) );
break;
case( VT_DATE ):
res = VariantCopy32( pd, ps );
break;
case( VT_BOOL ):
res = VarDateFromBool32( ps->u.boolVal, &(pd->u.date) );
break;
case( VT_BSTR ):
res = VarDateFromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.date) );
break;
case( VT_CY ):
res = VarDateFromCy32( ps->u.cyVal, &(pd->u.date) );
case( VT_DISPATCH ):
/*res = VarDateFromDisp32( ps->u.pdispVal, lcid, &(pd->u.date) );*/
case( VT_UNKNOWN ):
/*res = VarDateFrom32( ps->u.lVal, &(pd->u.date) );*/
case( VT_DECIMAL ):
/*res = VarDateFromDec32( ps->u.deiVal, &(pd->u.date) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_BOOL ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarBoolFromI132( ps->u.cVal, &(pd->u.boolVal) );
break;
case( VT_I2 ):
res = VarBoolFromI232( ps->u.iVal, &(pd->u.boolVal) );
break;
case( VT_INT ):
res = VarBoolFromInt32( ps->u.intVal, &(pd->u.boolVal) );
break;
case( VT_I4 ):
res = VarBoolFromI432( ps->u.lVal, &(pd->u.boolVal) );
break;
case( VT_UI1 ):
res = VarBoolFromUI132( ps->u.bVal, &(pd->u.boolVal) );
break;
case( VT_UI2 ):
res = VarBoolFromUI232( ps->u.uiVal, &(pd->u.boolVal) );
break;
case( VT_UINT ):
res = VarBoolFromUint32( ps->u.uintVal, &(pd->u.boolVal) );
break;
case( VT_UI4 ):
res = VarBoolFromUI432( ps->u.ulVal, &(pd->u.boolVal) );
break;
case( VT_R4 ):
res = VarBoolFromR432( ps->u.fltVal, &(pd->u.boolVal) );
break;
case( VT_R8 ):
res = VarBoolFromR832( ps->u.dblVal, &(pd->u.boolVal) );
break;
case( VT_DATE ):
res = VarBoolFromDate32( ps->u.date, &(pd->u.boolVal) );
break;
case( VT_BOOL ):
res = VariantCopy32( pd, ps );
break;
case( VT_BSTR ):
res = VarBoolFromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.boolVal) );
break;
case( VT_CY ):
res = VarBoolFromCy32( ps->u.cyVal, &(pd->u.boolVal) );
case( VT_DISPATCH ):
/*res = VarBoolFromDisp32( ps->u.pdispVal, lcid, &(pd->u.boolVal) );*/
case( VT_UNKNOWN ):
/*res = VarBoolFrom32( ps->u.lVal, &(pd->u.boolVal) );*/
case( VT_DECIMAL ):
/*res = VarBoolFromDec32( ps->u.deiVal, &(pd->u.boolVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_BSTR ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarBstrFromI132( ps->u.cVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_I2 ):
res = VarBstrFromI232( ps->u.iVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_INT ):
res = VarBstrFromInt32( ps->u.intVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_I4 ):
res = VarBstrFromI432( ps->u.lVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_UI1 ):
res = VarBstrFromUI132( ps->u.bVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_UI2 ):
res = VarBstrFromUI232( ps->u.uiVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_UINT ):
res = VarBstrFromUint32( ps->u.uintVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_UI4 ):
res = VarBstrFromUI432( ps->u.ulVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_R4 ):
res = VarBstrFromR432( ps->u.fltVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_R8 ):
res = VarBstrFromR832( ps->u.dblVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_DATE ):
res = VarBstrFromDate32( ps->u.date, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_BOOL ):
res = VarBstrFromBool32( ps->u.boolVal, lcid, dwFlags, &(pd->u.bstrVal) );
break;
case( VT_BSTR ):
res = VariantCopy32( pd, ps );
break;
case( VT_CY ):
/*res = VarBstrFromCy32( ps->u.cyVal, lcid, dwFlags, &(pd->u.bstrVal) );*/
case( VT_DISPATCH ):
/*res = VarBstrFromDisp32( ps->u.pdispVal, lcid, lcid, dwFlags, &(pd->u.bstrVal) );*/
case( VT_UNKNOWN ):
/*res = VarBstrFrom32( ps->u.lVal, lcid, dwFlags, &(pd->u.bstrVal) );*/
case( VT_DECIMAL ):
/*res = VarBstrFromDec32( ps->u.deiVal, lcid, dwFlags, &(pd->u.bstrVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
case( VT_CY ):
switch( vtFrom )
{
case( VT_I1 ):
res = VarCyFromI132( ps->u.cVal, &(pd->u.cyVal) );
break;
case( VT_I2 ):
res = VarCyFromI232( ps->u.iVal, &(pd->u.cyVal) );
break;
case( VT_INT ):
res = VarCyFromInt32( ps->u.intVal, &(pd->u.cyVal) );
break;
case( VT_I4 ):
res = VarCyFromI432( ps->u.lVal, &(pd->u.cyVal) );
break;
case( VT_UI1 ):
res = VarCyFromUI132( ps->u.bVal, &(pd->u.cyVal) );
break;
case( VT_UI2 ):
res = VarCyFromUI232( ps->u.uiVal, &(pd->u.cyVal) );
break;
case( VT_UINT ):
res = VarCyFromUint32( ps->u.uintVal, &(pd->u.cyVal) );
break;
case( VT_UI4 ):
res = VarCyFromUI432( ps->u.ulVal, &(pd->u.cyVal) );
break;
case( VT_R4 ):
res = VarCyFromR432( ps->u.fltVal, &(pd->u.cyVal) );
break;
case( VT_R8 ):
res = VarCyFromR832( ps->u.dblVal, &(pd->u.cyVal) );
break;
case( VT_DATE ):
res = VarCyFromDate32( ps->u.date, &(pd->u.cyVal) );
break;
case( VT_BOOL ):
res = VarCyFromBool32( ps->u.date, &(pd->u.cyVal) );
break;
case( VT_CY ):
res = VariantCopy32( pd, ps );
break;
case( VT_BSTR ):
/*res = VarCyFromStr32( ps->u.bstrVal, lcid, dwFlags, &(pd->u.cyVal) );*/
case( VT_DISPATCH ):
/*res = VarCyFromDisp32( ps->u.pdispVal, lcid, &(pd->u.boolVal) );*/
case( VT_UNKNOWN ):
/*res = VarCyFrom32( ps->u.lVal, &(pd->u.boolVal) );*/
case( VT_DECIMAL ):
/*res = VarCyFromDec32( ps->u.deiVal, &(pd->u.boolVal) );*/
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
break;
default:
res = DISP_E_TYPEMISMATCH;
FIXME(ole,"Coercion from %d to %d\n", vtFrom, vt );
break;
}
return res;
}
/******************************************************************************
* ValidateVtRange [INTERNAL]
*
* Used internally by the hi-level Variant API to determine
* if the vartypes are valid.
*/
static HRESULT WINAPI ValidateVtRange( VARTYPE vt )
{
/* if by value we must make sure it is in the
* range of the valid types.
*/
if( ( vt & VT_TYPEMASK ) > VT_MAXVALIDTYPE )
{
return DISP_E_BADVARTYPE;
}
return S_OK;
}
/******************************************************************************
* ValidateVartype [INTERNAL]
*
* Used internally by the hi-level Variant API to determine
* if the vartypes are valid.
*/
static HRESULT WINAPI ValidateVariantType( VARTYPE vt )
{
HRESULT res = S_OK;
/* check if we have a valid argument.
*/
if( vt & VT_BYREF )
{
/* if by reference check that the type is in
* the valid range and that it is not of empty or null type
*/
if( ( vt & VT_TYPEMASK ) == VT_EMPTY ||
( vt & VT_TYPEMASK ) == VT_NULL ||
( vt & VT_TYPEMASK ) > VT_MAXVALIDTYPE )
{
res = E_INVALIDARG;
}
}
else
{
res = ValidateVtRange( vt );
}
return res;
}
/******************************************************************************
* ValidateVt [INTERNAL]
*
* Used internally by the hi-level Variant API to determine
* if the vartypes are valid.
*/
static HRESULT WINAPI ValidateVt( VARTYPE vt )
{
HRESULT res = S_OK;
/* check if we have a valid argument.
*/
if( vt & VT_BYREF )
{
/* if by reference check that the type is in
* the valid range and that it is not of empty or null type
*/
if( ( vt & VT_TYPEMASK ) == VT_EMPTY ||
( vt & VT_TYPEMASK ) == VT_NULL ||
( vt & VT_TYPEMASK ) > VT_MAXVALIDTYPE )
{
res = DISP_E_BADVARTYPE;
}
}
else
{
res = ValidateVtRange( vt );
}
return res;
}
/******************************************************************************
* VariantInit32 [OLEAUT32.8]
*
* Initializes the Variant. Unlike VariantClear it does not interpret the current
* contents of the Variant.
*/
void WINAPI VariantInit32(VARIANTARG* pvarg)
{
TRACE(ole,"(%p),stub\n",pvarg);
pvarg->vt = VT_EMPTY;
pvarg->wReserved1 = 0;
pvarg->wReserved2= 0;
pvarg->wReserved3= 0;
return;
}
/******************************************************************************
* VariantClear32 [OLEAUT32.9]
*
* This function clears the VARIANT by setting the vt field to VT_EMPTY. It also
* sets the wReservedX field to 0. The current contents of the VARIANT are
* freed. If the vt is VT_BSTR the string is freed. If VT_DISPATCH the object is
* released. If VT_ARRAY the array is freed.
*/
HRESULT WINAPI VariantClear32(VARIANTARG* pvarg)
{
HRESULT res = S_OK;
TRACE(ole,"(%p),stub\n",pvarg);
res = ValidateVariantType( pvarg->vt );
if( res == S_OK )
{
if( !( pvarg->vt & VT_BYREF ) )
{
switch( pvarg->vt & VT_TYPEMASK )
{
case( VT_BSTR ):
SysFreeString32( pvarg->u.bstrVal );
break;
case( VT_DISPATCH ):
break;
case( VT_VARIANT ):
break;
case( VT_UNKNOWN ):
break;
case( VT_SAFEARRAY ):
break;
default:
break;
}
}
/* Set the fields to empty.
*/
pvarg->wReserved1 = 0;
pvarg->wReserved2 = 0;
pvarg->wReserved3 = 0;
pvarg->vt = VT_EMPTY;
}
return res;
}
/******************************************************************************
* VariantCopy32 [OLEAUT32.10]
*
* Frees up the designation variant and makes a copy of the source.
*/
HRESULT WINAPI VariantCopy32(VARIANTARG* pvargDest, VARIANTARG* pvargSrc)
{
HRESULT res = S_OK;
TRACE(ole,"(%p, %p),stub\n", pvargDest, pvargSrc);
res = ValidateVariantType( pvargSrc->vt );
/* If the pointer are to the same variant we don't need
* to do anything.
*/
if( pvargDest != pvargSrc && res == S_OK )
{
res = VariantClear32( pvargDest );
if( res == S_OK )
{
if( pvargSrc->vt & VT_BYREF )
{
/* In the case of byreference we only need
* to copy the pointer.
*/
pvargDest->u = pvargSrc->u;
pvargDest->vt = pvargSrc->vt;
}
else
{
/* In the case of by value we need to
* copy the actuall value. In the case of
* VT_BSTR a copy of the string is made,
* if VT_ARRAY the entire array is copied
* if VT_DISPATCH or VT_IUNKNOWN AddReff is
* called to increment the object's reference count.
*/
switch( pvargSrc->vt & VT_TYPEMASK )
{
case( VT_BSTR ):
pvargDest->u.bstrVal = SysAllocString32( pvargSrc->u.bstrVal );
break;
case( VT_DISPATCH ):
break;
case( VT_VARIANT ):
break;
case( VT_UNKNOWN ):
break;
case( VT_SAFEARRAY ):
break;
default:
pvargDest->u = pvargSrc->u;
break;
}
pvargDest->vt = pvargSrc->vt;
}
}
}
return res;
}
/******************************************************************************
* VariantCopyInd32 [OLEAUT32.11]
*
* Frees up the destination variant and makes a copy of the source. If
* the source is of type VT_BYREF it performs the necessary indirections.
*/
HRESULT WINAPI VariantCopyInd32(VARIANT* pvargDest, VARIANTARG* pvargSrc)
{
HRESULT res = S_OK;
TRACE(ole,"(%p, %p),stub\n", pvargDest, pvargSrc);
res = ValidateVariantType( pvargSrc->vt );
if( res != S_OK )
return res;
if( pvargSrc->vt & VT_BYREF )
{
VARIANTARG varg;
VariantInit32( &varg );
/* handle the in place copy.
*/
if( pvargDest == pvargSrc )
{
/* we will use a copy of the source instead.
*/
res = VariantCopy32( &varg, pvargSrc );
pvargSrc = &varg;
}
if( res == S_OK )
{
res = VariantClear32( pvargDest );
if( res == S_OK )
{
/* In the case of by reference we need
* to copy the date pointed to by the variant.
*/
/* Get the variant type.
*/
switch( pvargSrc->vt & VT_TYPEMASK )
{
case( VT_BSTR ):
pvargDest->u.bstrVal = SysAllocString32( *(pvargSrc->u.pbstrVal) );
break;
case( VT_DISPATCH ):
break;
case( VT_VARIANT ):
{
/* Prevent from cycling. According to tests on
* VariantCopyInd in Windows and the documentation
* this API dereferences the inner Variants to only one depth.
* If the inner Variant itself contains an
* other inner variant the E_INVALIDARG error is
* returned.
*/
if( pvargSrc->wReserved1 & PROCESSING_INNER_VARIANT )
{
/* If we get here we are attempting to deference
* an inner variant that that is itself contained
* in an inner variant so report E_INVALIDARG error.
*/
res = E_INVALIDARG;
}
else
{
/* Set the processing inner variant flag.
* We will set this flag in the inner variant
* that will be passed to the VariantCopyInd function.
*/
(pvargSrc->u.pvarVal)->wReserved1 |= PROCESSING_INNER_VARIANT;
/* Dereference the inner variant.
*/
res = VariantCopyInd32( pvargDest, pvargSrc->u.pvarVal );
}
}
break;
case( VT_UNKNOWN ):
break;
case( VT_SAFEARRAY ):
break;
default:
/* This is a by reference Variant which means that the union
* part of the Variant contains a pointer to some data of
* type "pvargSrc->vt & VT_TYPEMASK".
* We will deference this data in a generic fashion using
* the void pointer "Variant.u.byref".
* We will copy this data into the union of the destination
* Variant.
*/
memcpy( &pvargDest->u, pvargSrc->u.byref, SizeOfVariantData( pvargSrc ) );
break;
}
pvargDest->vt = pvargSrc->vt & VT_TYPEMASK;
}
}
/* this should not fail.
*/
VariantClear32( &varg );
}
else
{
res = VariantCopy32( pvargDest, pvargSrc );
}
return res;
}
/******************************************************************************
* VariantChangeType32 [OLEAUT32.12]
*/
HRESULT WINAPI VariantChangeType32(VARIANTARG* pvargDest, VARIANTARG* pvargSrc,
USHORT wFlags, VARTYPE vt)
{
return VariantChangeTypeEx32( pvargDest, pvargSrc, 0, wFlags, vt );
}
/******************************************************************************
* VariantChangeTypeEx32 [OLEAUT32.147]
*/
HRESULT WINAPI VariantChangeTypeEx32(VARIANTARG* pvargDest, VARIANTARG* pvargSrc,
LCID lcid, USHORT wFlags, VARTYPE vt)
{
HRESULT res = S_OK;
VARIANTARG varg;
VariantInit32( &varg );
TRACE(ole,"(%p, %p, %ld, %u, %u),stub\n", pvargDest, pvargSrc, lcid, wFlags, vt);
/* validate our source argument.
*/
res = ValidateVariantType( pvargSrc->vt );
/* validate the vartype.
*/
if( res == S_OK )
{
res = ValidateVt( vt );
}
/* if we are doing an in-place conversion make a copy of the source.
*/
if( res == S_OK && pvargDest == pvargSrc )
{
res = VariantCopy32( &varg, pvargSrc );
pvargSrc = &varg;
}
if( res == S_OK )
{
/* free up the destination variant.
*/
res = VariantClear32( pvargDest );
}
if( res == S_OK )
{
if( pvargSrc->vt & VT_BYREF )
{
/* Convert the source variant to a "byvalue" variant.
*/
VARIANTARG Variant;
VariantInit32( &Variant );
res = VariantCopyInd32( &Variant, pvargSrc );
if( res == S_OK )
{
res = Coerce( pvargDest, lcid, wFlags, &Variant, vt );
/* this should not fail.
*/
VariantClear32( &Variant );
}
}
else
{
/* Use the current "byvalue" source variant.
*/
res = Coerce( pvargDest, lcid, wFlags, pvargSrc, vt );
}
}
/* this should not fail.
*/
VariantClear32( &varg );
return res;
}
/******************************************************************************
* VarUI1FromI232 [OLEAUT32.130]
*/
HRESULT WINAPI VarUI1FromI232(short sIn, BYTE* pbOut)
{
TRACE( ole, "( %d, %p ), stub\n", sIn, pbOut );
/* Check range of value.
*/
if( sIn < UI1_MIN || sIn > UI1_MAX )
{
return DISP_E_OVERFLOW;
}
*pbOut = (BYTE) sIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromI432 [OLEAUT32.131]
*/
HRESULT WINAPI VarUI1FromI432(LONG lIn, BYTE* pbOut)
{
TRACE( ole, "( %ld, %p ), stub\n", lIn, pbOut );
/* Check range of value.
*/
if( lIn < UI1_MIN || lIn > UI1_MAX )
{
return DISP_E_OVERFLOW;
}
*pbOut = (BYTE) lIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromR432 [OLEAUT32.132]
*/
HRESULT WINAPI VarUI1FromR432(FLOAT fltIn, BYTE* pbOut)
{
TRACE( ole, "( %f, %p ), stub\n", fltIn, pbOut );
/* Check range of value.
*/
fltIn = round( fltIn );
if( fltIn < UI1_MIN || fltIn > UI1_MAX )
{
return DISP_E_OVERFLOW;
}
*pbOut = (BYTE) fltIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromR832 [OLEAUT32.133]
*/
HRESULT WINAPI VarUI1FromR832(double dblIn, BYTE* pbOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, pbOut );
/* Check range of value.
*/
dblIn = round( dblIn );
if( dblIn < UI1_MIN || dblIn > UI1_MAX )
{
return DISP_E_OVERFLOW;
}
*pbOut = (BYTE) dblIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromDate32 [OLEAUT32.135]
*/
HRESULT WINAPI VarUI1FromDate32(DATE dateIn, BYTE* pbOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, pbOut );
/* Check range of value.
*/
dateIn = round( dateIn );
if( dateIn < UI1_MIN || dateIn > UI1_MAX )
{
return DISP_E_OVERFLOW;
}
*pbOut = (BYTE) dateIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromBool32 [OLEAUT32.138]
*/
HRESULT WINAPI VarUI1FromBool32(VARIANT_BOOL boolIn, BYTE* pbOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, pbOut );
*pbOut = (BYTE) boolIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromI132 [OLEAUT32.237]
*/
HRESULT WINAPI VarUI1FromI132(CHAR cIn, BYTE* pbOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, pbOut );
*pbOut = cIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromUI232 [OLEAUT32.238]
*/
HRESULT WINAPI VarUI1FromUI232(USHORT uiIn, BYTE* pbOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pbOut );
/* Check range of value.
*/
if( uiIn > UI1_MAX )
{
return DISP_E_OVERFLOW;
}
*pbOut = (BYTE) uiIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromUI432 [OLEAUT32.239]
*/
HRESULT WINAPI VarUI1FromUI432(ULONG ulIn, BYTE* pbOut)
{
TRACE( ole, "( %ld, %p ), stub\n", ulIn, pbOut );
/* Check range of value.
*/
if( ulIn > UI1_MAX )
{
return DISP_E_OVERFLOW;
}
*pbOut = (BYTE) ulIn;
return S_OK;
}
/******************************************************************************
* VarUI1FromStr32 [OLEAUT32.54]
*/
HRESULT WINAPI VarUI1FromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, BYTE* pbOut)
{
double dValue = 0.0;
LPSTR pNewString = NULL;
TRACE( ole, "( %p, 0x%08lx, 0x%08lx, %p ), stub\n", strIn, lcid, dwFlags, pbOut );
/* Check if we have a valid argument
*/
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
RemoveCharacterFromString( pNewString, "," );
if( IsValidRealString( pNewString ) == FALSE )
{
return DISP_E_TYPEMISMATCH;
}
/* Convert the valid string to a floating point number.
*/
dValue = atof( pNewString );
/* We don't need the string anymore so free it.
*/
HeapFree( GetProcessHeap(), 0 , pNewString );
/* Check range of value.
*/
dValue = round( dValue );
if( dValue < UI1_MIN || dValue > UI1_MAX )
{
return DISP_E_OVERFLOW;
}
*pbOut = (BYTE) dValue;
return S_OK;
}
/**********************************************************************
* VarUI1FromCy32 [OLEAUT32.134]
* Convert currency to unsigned char
*/
HRESULT WINAPI VarUI1FromCy32(CY cyIn, BYTE* pbOut) {
double t = round((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
if (t > UI1_MAX || t < UI1_MIN) return DISP_E_OVERFLOW;
*pbOut = (BYTE)t;
return S_OK;
}
/******************************************************************************
* VarI2FromUI132 [OLEAUT32.48]
*/
HRESULT WINAPI VarI2FromUI132(BYTE bIn, short* psOut)
{
TRACE( ole, "( 0x%08x, %p ), stub\n", bIn, psOut );
*psOut = (short) bIn;
return S_OK;
}
/******************************************************************************
* VarI2FromI432 [OLEAUT32.49]
*/
HRESULT WINAPI VarI2FromI432(LONG lIn, short* psOut)
{
TRACE( ole, "( %lx, %p ), stub\n", lIn, psOut );
/* Check range of value.
*/
if( lIn < I2_MIN || lIn > I2_MAX )
{
return DISP_E_OVERFLOW;
}
*psOut = (short) lIn;
return S_OK;
}
/******************************************************************************
* VarI2FromR432 [OLEAUT32.50]
*/
HRESULT WINAPI VarI2FromR432(FLOAT fltIn, short* psOut)
{
TRACE( ole, "( %f, %p ), stub\n", fltIn, psOut );
/* Check range of value.
*/
fltIn = round( fltIn );
if( fltIn < I2_MIN || fltIn > I2_MAX )
{
return DISP_E_OVERFLOW;
}
*psOut = (short) fltIn;
return S_OK;
}
/******************************************************************************
* VarI2FromR832 [OLEAUT32.51]
*/
HRESULT WINAPI VarI2FromR832(double dblIn, short* psOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, psOut );
/* Check range of value.
*/
dblIn = round( dblIn );
if( dblIn < I2_MIN || dblIn > I2_MAX )
{
return DISP_E_OVERFLOW;
}
*psOut = (short) dblIn;
return S_OK;
}
/******************************************************************************
* VarI2FromDate32 [OLEAUT32.53]
*/
HRESULT WINAPI VarI2FromDate32(DATE dateIn, short* psOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, psOut );
/* Check range of value.
*/
dateIn = round( dateIn );
if( dateIn < I2_MIN || dateIn > I2_MAX )
{
return DISP_E_OVERFLOW;
}
*psOut = (short) dateIn;
return S_OK;
}
/******************************************************************************
* VarI2FromBool32 [OLEAUT32.56]
*/
HRESULT WINAPI VarI2FromBool32(VARIANT_BOOL boolIn, short* psOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, psOut );
*psOut = (short) boolIn;
return S_OK;
}
/******************************************************************************
* VarI2FromI132 [OLEAUT32.48]
*/
HRESULT WINAPI VarI2FromI132(CHAR cIn, short* psOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, psOut );
*psOut = (short) cIn;
return S_OK;
}
/******************************************************************************
* VarI2FromUI232 [OLEAUT32.206]
*/
HRESULT WINAPI VarI2FromUI232(USHORT uiIn, short* psOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, psOut );
/* Check range of value.
*/
if( uiIn > I2_MAX )
{
return DISP_E_OVERFLOW;
}
*psOut = (short) uiIn;
return S_OK;
}
/******************************************************************************
* VarI2FromUI432 [OLEAUT32.49]
*/
HRESULT WINAPI VarI2FromUI432(ULONG ulIn, short* psOut)
{
TRACE( ole, "( %lx, %p ), stub\n", ulIn, psOut );
/* Check range of value.
*/
if( ulIn < I2_MIN || ulIn > I2_MAX )
{
return DISP_E_OVERFLOW;
}
*psOut = (short) ulIn;
return S_OK;
}
/******************************************************************************
* VarI2FromStr32 [OLEAUT32.54]
*/
HRESULT WINAPI VarI2FromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, short* psOut)
{
double dValue = 0.0;
LPSTR pNewString = NULL;
TRACE( ole, "( %p, 0x%08lx, 0x%08lx, %p ), stub\n", strIn, lcid, dwFlags, psOut );
/* Check if we have a valid argument
*/
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
RemoveCharacterFromString( pNewString, "," );
if( IsValidRealString( pNewString ) == FALSE )
{
return DISP_E_TYPEMISMATCH;
}
/* Convert the valid string to a floating point number.
*/
dValue = atof( pNewString );
/* We don't need the string anymore so free it.
*/
HeapFree( GetProcessHeap(), 0, pNewString );
/* Check range of value.
*/
dValue = round( dValue );
if( dValue < I2_MIN || dValue > I2_MAX )
{
return DISP_E_OVERFLOW;
}
*psOut = (short) dValue;
return S_OK;
}
/**********************************************************************
* VarI2FromCy32 [OLEAUT32.52]
* Convert currency to signed short
*/
HRESULT WINAPI VarI2FromCy32(CY cyIn, short* psOut) {
double t = round((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
if (t > I2_MAX || t < I2_MIN) return DISP_E_OVERFLOW;
*psOut = (SHORT)t;
return S_OK;
}
/******************************************************************************
* VarI4FromUI132 [OLEAUT32.58]
*/
HRESULT WINAPI VarI4FromUI132(BYTE bIn, LONG* plOut)
{
TRACE( ole, "( %X, %p ), stub\n", bIn, plOut );
*plOut = (LONG) bIn;
return S_OK;
}
/******************************************************************************
* VarI4FromR432 [OLEAUT32.60]
*/
HRESULT WINAPI VarI4FromR432(FLOAT fltIn, LONG* plOut)
{
TRACE( ole, "( %f, %p ), stub\n", fltIn, plOut );
/* Check range of value.
*/
fltIn = round( fltIn );
if( fltIn < I4_MIN || fltIn > I4_MAX )
{
return DISP_E_OVERFLOW;
}
*plOut = (LONG) fltIn;
return S_OK;
}
/******************************************************************************
* VarI4FromR832 [OLEAUT32.61]
*/
HRESULT WINAPI VarI4FromR832(double dblIn, LONG* plOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, plOut );
/* Check range of value.
*/
dblIn = round( dblIn );
if( dblIn < I4_MIN || dblIn > I4_MAX )
{
return DISP_E_OVERFLOW;
}
*plOut = (LONG) dblIn;
return S_OK;
}
/******************************************************************************
* VarI4FromDate32 [OLEAUT32.63]
*/
HRESULT WINAPI VarI4FromDate32(DATE dateIn, LONG* plOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, plOut );
/* Check range of value.
*/
dateIn = round( dateIn );
if( dateIn < I4_MIN || dateIn > I4_MAX )
{
return DISP_E_OVERFLOW;
}
*plOut = (LONG) dateIn;
return S_OK;
}
/******************************************************************************
* VarI4FromBool32 [OLEAUT32.66]
*/
HRESULT WINAPI VarI4FromBool32(VARIANT_BOOL boolIn, LONG* plOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, plOut );
*plOut = (LONG) boolIn;
return S_OK;
}
/******************************************************************************
* VarI4FromI132 [OLEAUT32.209]
*/
HRESULT WINAPI VarI4FromI132(CHAR cIn, LONG* plOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, plOut );
*plOut = (LONG) cIn;
return S_OK;
}
/******************************************************************************
* VarI4FromUI232 [OLEAUT32.210]
*/
HRESULT WINAPI VarI4FromUI232(USHORT uiIn, LONG* plOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, plOut );
*plOut = (LONG) uiIn;
return S_OK;
}
/******************************************************************************
* VarI4FromUI432 [OLEAUT32.211]
*/
HRESULT WINAPI VarI4FromUI432(ULONG ulIn, LONG* plOut)
{
TRACE( ole, "( %lx, %p ), stub\n", ulIn, plOut );
/* Check range of value.
*/
if( ulIn < I4_MIN || ulIn > I4_MAX )
{
return DISP_E_OVERFLOW;
}
*plOut = (LONG) ulIn;
return S_OK;
}
/******************************************************************************
* VarI4FromI232 [OLEAUT32.59]
*/
HRESULT WINAPI VarI4FromI232(short sIn, LONG* plOut)
{
TRACE( ole, "( %d, %p ), stub\n", sIn, plOut );
*plOut = (LONG) sIn;
return S_OK;
}
/******************************************************************************
* VarI4FromStr32 [OLEAUT32.64]
*/
HRESULT WINAPI VarI4FromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, LONG* plOut)
{
double dValue = 0.0;
LPSTR pNewString = NULL;
TRACE( ole, "( %p, 0x%08lx, 0x%08lx, %p ), stub\n", strIn, lcid, dwFlags, plOut );
/* Check if we have a valid argument
*/
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
RemoveCharacterFromString( pNewString, "," );
if( IsValidRealString( pNewString ) == FALSE )
{
return DISP_E_TYPEMISMATCH;
}
/* Convert the valid string to a floating point number.
*/
dValue = atof( pNewString );
/* We don't need the string anymore so free it.
*/
HeapFree( GetProcessHeap(), 0, pNewString );
/* Check range of value.
*/
dValue = round( dValue );
if( dValue < I4_MIN || dValue > I4_MAX )
{
return DISP_E_OVERFLOW;
}
*plOut = (LONG) dValue;
return S_OK;
}
/**********************************************************************
* VarI4FromCy32 [OLEAUT32.62]
* Convert currency to signed long
*/
HRESULT WINAPI VarI4FromCy32(CY cyIn, LONG* plOut) {
double t = round((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
if (t > I4_MAX || t < I4_MIN) return DISP_E_OVERFLOW;
*plOut = (LONG)t;
return S_OK;
}
/******************************************************************************
* VarR4FromUI132 [OLEAUT32.68]
*/
HRESULT WINAPI VarR4FromUI132(BYTE bIn, FLOAT* pfltOut)
{
TRACE( ole, "( %X, %p ), stub\n", bIn, pfltOut );
*pfltOut = (FLOAT) bIn;
return S_OK;
}
/******************************************************************************
* VarR4FromI232 [OLEAUT32.69]
*/
HRESULT WINAPI VarR4FromI232(short sIn, FLOAT* pfltOut)
{
TRACE( ole, "( %d, %p ), stub\n", sIn, pfltOut );
*pfltOut = (FLOAT) sIn;
return S_OK;
}
/******************************************************************************
* VarR4FromI432 [OLEAUT32.70]
*/
HRESULT WINAPI VarR4FromI432(LONG lIn, FLOAT* pfltOut)
{
TRACE( ole, "( %lx, %p ), stub\n", lIn, pfltOut );
*pfltOut = (FLOAT) lIn;
return S_OK;
}
/******************************************************************************
* VarR4FromR832 [OLEAUT32.71]
*/
HRESULT WINAPI VarR4FromR832(double dblIn, FLOAT* pfltOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, pfltOut );
/* Check range of value.
*/
if( dblIn < -(FLT_MAX) || dblIn > FLT_MAX )
{
return DISP_E_OVERFLOW;
}
*pfltOut = (FLOAT) dblIn;
return S_OK;
}
/******************************************************************************
* VarR4FromDate32 [OLEAUT32.73]
*/
HRESULT WINAPI VarR4FromDate32(DATE dateIn, FLOAT* pfltOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, pfltOut );
/* Check range of value.
*/
if( dateIn < -(FLT_MAX) || dateIn > FLT_MAX )
{
return DISP_E_OVERFLOW;
}
*pfltOut = (FLOAT) dateIn;
return S_OK;
}
/******************************************************************************
* VarR4FromBool32 [OLEAUT32.76]
*/
HRESULT WINAPI VarR4FromBool32(VARIANT_BOOL boolIn, FLOAT* pfltOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, pfltOut );
*pfltOut = (FLOAT) boolIn;
return S_OK;
}
/******************************************************************************
* VarR4FromI132 [OLEAUT32.213]
*/
HRESULT WINAPI VarR4FromI132(CHAR cIn, FLOAT* pfltOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, pfltOut );
*pfltOut = (FLOAT) cIn;
return S_OK;
}
/******************************************************************************
* VarR4FromUI232 [OLEAUT32.214]
*/
HRESULT WINAPI VarR4FromUI232(USHORT uiIn, FLOAT* pfltOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pfltOut );
*pfltOut = (FLOAT) uiIn;
return S_OK;
}
/******************************************************************************
* VarR4FromUI432 [OLEAUT32.215]
*/
HRESULT WINAPI VarR4FromUI432(ULONG ulIn, FLOAT* pfltOut)
{
TRACE( ole, "( %ld, %p ), stub\n", ulIn, pfltOut );
*pfltOut = (FLOAT) ulIn;
return S_OK;
}
/******************************************************************************
* VarR4FromStr32 [OLEAUT32.74]
*/
HRESULT WINAPI VarR4FromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, FLOAT* pfltOut)
{
double dValue = 0.0;
LPSTR pNewString = NULL;
TRACE( ole, "( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pfltOut );
/* Check if we have a valid argument
*/
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
RemoveCharacterFromString( pNewString, "," );
if( IsValidRealString( pNewString ) == FALSE )
{
return DISP_E_TYPEMISMATCH;
}
/* Convert the valid string to a floating point number.
*/
dValue = atof( pNewString );
/* We don't need the string anymore so free it.
*/
HeapFree( GetProcessHeap(), 0, pNewString );
/* Check range of value.
*/
if( dValue < -(FLT_MAX) || dValue > FLT_MAX )
{
return DISP_E_OVERFLOW;
}
*pfltOut = (FLOAT) dValue;
return S_OK;
}
/**********************************************************************
* VarR4FromCy32 [OLEAUT32.72]
* Convert currency to float
*/
HRESULT WINAPI VarR4FromCy32(CY cyIn, FLOAT* pfltOut) {
*pfltOut = (FLOAT)((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
return S_OK;
}
/******************************************************************************
* VarR8FromUI132 [OLEAUT32.68]
*/
HRESULT WINAPI VarR8FromUI132(BYTE bIn, double* pdblOut)
{
TRACE( ole, "( %d, %p ), stub\n", bIn, pdblOut );
*pdblOut = (double) bIn;
return S_OK;
}
/******************************************************************************
* VarR8FromI232 [OLEAUT32.69]
*/
HRESULT WINAPI VarR8FromI232(short sIn, double* pdblOut)
{
TRACE( ole, "( %d, %p ), stub\n", sIn, pdblOut );
*pdblOut = (double) sIn;
return S_OK;
}
/******************************************************************************
* VarR8FromI432 [OLEAUT32.70]
*/
HRESULT WINAPI VarR8FromI432(LONG lIn, double* pdblOut)
{
TRACE( ole, "( %ld, %p ), stub\n", lIn, pdblOut );
*pdblOut = (double) lIn;
return S_OK;
}
/******************************************************************************
* VarR8FromR432 [OLEAUT32.81]
*/
HRESULT WINAPI VarR8FromR432(FLOAT fltIn, double* pdblOut)
{
TRACE( ole, "( %f, %p ), stub\n", fltIn, pdblOut );
*pdblOut = (double) fltIn;
return S_OK;
}
/******************************************************************************
* VarR8FromDate32 [OLEAUT32.83]
*/
HRESULT WINAPI VarR8FromDate32(DATE dateIn, double* pdblOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, pdblOut );
*pdblOut = (double) dateIn;
return S_OK;
}
/******************************************************************************
* VarR8FromBool32 [OLEAUT32.86]
*/
HRESULT WINAPI VarR8FromBool32(VARIANT_BOOL boolIn, double* pdblOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, pdblOut );
*pdblOut = (double) boolIn;
return S_OK;
}
/******************************************************************************
* VarR8FromI132 [OLEAUT32.217]
*/
HRESULT WINAPI VarR8FromI132(CHAR cIn, double* pdblOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, pdblOut );
*pdblOut = (double) cIn;
return S_OK;
}
/******************************************************************************
* VarR8FromUI232 [OLEAUT32.218]
*/
HRESULT WINAPI VarR8FromUI232(USHORT uiIn, double* pdblOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pdblOut );
*pdblOut = (double) uiIn;
return S_OK;
}
/******************************************************************************
* VarR8FromUI432 [OLEAUT32.219]
*/
HRESULT WINAPI VarR8FromUI432(ULONG ulIn, double* pdblOut)
{
TRACE( ole, "( %ld, %p ), stub\n", ulIn, pdblOut );
*pdblOut = (double) ulIn;
return S_OK;
}
/******************************************************************************
* VarR8FromStr32 [OLEAUT32.84]
*/
HRESULT WINAPI VarR8FromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, double* pdblOut)
{
double dValue = 0.0;
LPSTR pNewString = NULL;
TRACE( ole, "( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pdblOut );
/* Check if we have a valid argument
*/
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
RemoveCharacterFromString( pNewString, "," );
if( IsValidRealString( pNewString ) == FALSE )
{
return DISP_E_TYPEMISMATCH;
}
/* Convert the valid string to a floating point number.
*/
dValue = atof( pNewString );
/* We don't need the string anymore so free it.
*/
HeapFree( GetProcessHeap(), 0, pNewString );
*pdblOut = dValue;
return S_OK;
}
/**********************************************************************
* VarR8FromCy32 [OLEAUT32.82]
* Convert currency to double
*/
HRESULT WINAPI VarR8FromCy32(CY cyIn, double* pdblOut) {
*pdblOut = (double)((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
return S_OK;
}
/******************************************************************************
* VarDateFromUI132 [OLEAUT32.]
*/
HRESULT WINAPI VarDateFromUI132(BYTE bIn, DATE* pdateOut)
{
TRACE( ole, "( %d, %p ), stub\n", bIn, pdateOut );
*pdateOut = (DATE) bIn;
return S_OK;
}
/******************************************************************************
* VarDateFromI232 [OLEAUT32.222]
*/
HRESULT WINAPI VarDateFromI232(short sIn, DATE* pdateOut)
{
TRACE( ole, "( %d, %p ), stub\n", sIn, pdateOut );
*pdateOut = (DATE) sIn;
return S_OK;
}
/******************************************************************************
* VarDateFromI432 [OLEAUT32.90]
*/
HRESULT WINAPI VarDateFromI432(LONG lIn, DATE* pdateOut)
{
TRACE( ole, "( %ld, %p ), stub\n", lIn, pdateOut );
if( lIn < DATE_MIN || lIn > DATE_MAX )
{
return DISP_E_OVERFLOW;
}
*pdateOut = (DATE) lIn;
return S_OK;
}
/******************************************************************************
* VarDateFromR432 [OLEAUT32.91]
*/
HRESULT WINAPI VarDateFromR432(FLOAT fltIn, DATE* pdateOut)
{
TRACE( ole, "( %f, %p ), stub\n", fltIn, pdateOut );
if( ceil(fltIn) < DATE_MIN || floor(fltIn) > DATE_MAX )
{
return DISP_E_OVERFLOW;
}
*pdateOut = (DATE) fltIn;
return S_OK;
}
/******************************************************************************
* VarDateFromR832 [OLEAUT32.92]
*/
HRESULT WINAPI VarDateFromR832(double dblIn, DATE* pdateOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, pdateOut );
if( ceil(dblIn) < DATE_MIN || floor(dblIn) > DATE_MAX )
{
return DISP_E_OVERFLOW;
}
*pdateOut = (DATE) dblIn;
return S_OK;
}
/******************************************************************************
* VarDateFromStr32 [OLEAUT32.94]
* The string representing the date is composed of two parts, a date and time.
*
* The format of the time is has follows:
* hh[:mm][:ss][AM|PM]
* Whitespace can be inserted anywhere between these tokens. A whitespace consists
* of space and/or tab characters, which are ignored.
*
* The formats for the date part are has follows:
* mm/[dd/][yy]yy
* [dd/]mm/[yy]yy
* [yy]yy/mm/dd
* January dd[,] [yy]yy
* dd January [yy]yy
* [yy]yy January dd
* Whitespace can be inserted anywhere between these tokens.
*
* The formats for the date and time string are has follows.
* date[whitespace][time]
* [time][whitespace]date
*
* These are the only characters allowed in a string representing a date and time:
* [A-Z] [a-z] [0-9] ':' '-' '/' ',' ' ' '\t'
*/
HRESULT WINAPI VarDateFromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, DATE* pdateOut)
{
HRESULT ret = S_OK;
struct tm TM = { 0,0,0,0,0,0,0,0,0 };
TRACE( ole, "( %p, %lx, %lx, %p ), stub\n", strIn, lcid, dwFlags, pdateOut );
if( DateTimeStringToTm( strIn, lcid, &TM ) )
{
if( TmToDATE( &TM, pdateOut ) == FALSE )
{
ret = E_INVALIDARG;
}
}
else
{
ret = DISP_E_TYPEMISMATCH;
}
return ret;
}
/******************************************************************************
* VarDateFromI132 [OLEAUT32.221]
*/
HRESULT WINAPI VarDateFromI132(CHAR cIn, DATE* pdateOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, pdateOut );
*pdateOut = (DATE) cIn;
return S_OK;
}
/******************************************************************************
* VarDateFromUI232 [OLEAUT32.222]
*/
HRESULT WINAPI VarDateFromUI232(USHORT uiIn, DATE* pdateOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pdateOut );
if( uiIn > DATE_MAX )
{
return DISP_E_OVERFLOW;
}
*pdateOut = (DATE) uiIn;
return S_OK;
}
/******************************************************************************
* VarDateFromUI432 [OLEAUT32.223]
*/
HRESULT WINAPI VarDateFromUI432(ULONG ulIn, DATE* pdateOut)
{
TRACE( ole, "( %ld, %p ), stub\n", ulIn, pdateOut );
if( ulIn < DATE_MIN || ulIn > DATE_MAX )
{
return DISP_E_OVERFLOW;
}
*pdateOut = (DATE) ulIn;
return S_OK;
}
/******************************************************************************
* VarDateFromBool32 [OLEAUT32.96]
*/
HRESULT WINAPI VarDateFromBool32(VARIANT_BOOL boolIn, DATE* pdateOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, pdateOut );
*pdateOut = (DATE) boolIn;
return S_OK;
}
/**********************************************************************
* VarDateFromCy32 [OLEAUT32.93]
* Convert currency to date
*/
HRESULT WINAPI VarDateFromCy32(CY cyIn, DATE* pdateOut) {
*pdateOut = (DATE)((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
if (*pdateOut > DATE_MAX || *pdateOut < DATE_MIN) return DISP_E_TYPEMISMATCH;
return S_OK;
}
/******************************************************************************
* VarBstrFromUI132 [OLEAUT32.108]
*/
HRESULT WINAPI VarBstrFromUI132(BYTE bVal, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %d, %ld, %ld, %p ), stub\n", bVal, lcid, dwFlags, pbstrOut );
sprintf( pBuffer, "%d", bVal );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromI232 [OLEAUT32.109]
*/
HRESULT WINAPI VarBstrFromI232(short iVal, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %d, %ld, %ld, %p ), stub\n", iVal, lcid, dwFlags, pbstrOut );
sprintf( pBuffer, "%d", iVal );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromI432 [OLEAUT32.110]
*/
HRESULT WINAPI VarBstrFromI432(LONG lIn, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %ld, %ld, %ld, %p ), stub\n", lIn, lcid, dwFlags, pbstrOut );
sprintf( pBuffer, "%ld", lIn );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromR432 [OLEAUT32.111]
*/
HRESULT WINAPI VarBstrFromR432(FLOAT fltIn, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %f, %ld, %ld, %p ), stub\n", fltIn, lcid, dwFlags, pbstrOut );
sprintf( pBuffer, "%.7g", fltIn );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromR832 [OLEAUT32.112]
*/
HRESULT WINAPI VarBstrFromR832(double dblIn, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %f, %ld, %ld, %p ), stub\n", dblIn, lcid, dwFlags, pbstrOut );
sprintf( pBuffer, "%.15g", dblIn );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromDate32 [OLEAUT32.114]
*
* The date is implemented using an 8 byte floating-point number.
* Days are represented by whole numbers increments starting with 0.00 has
* being December 30 1899, midnight.
* The hours are expressed as the fractional part of the number.
* December 30 1899 at midnight = 0.00
* January 1 1900 at midnight = 2.00
* January 4 1900 at 6 AM = 5.25
* January 4 1900 at noon = 5.50
* December 29 1899 at midnight = -1.00
* December 18 1899 at midnight = -12.00
* December 18 1899 at 6AM = -12.25
* December 18 1899 at 6PM = -12.75
* December 19 1899 at midnight = -11.00
* The tm structure is as follows:
* struct tm {
* int tm_sec; seconds after the minute - [0,59]
* int tm_min; minutes after the hour - [0,59]
* int tm_hour; hours since midnight - [0,23]
* int tm_mday; day of the month - [1,31]
* int tm_mon; months since January - [0,11]
* int tm_year; years
* int tm_wday; days since Sunday - [0,6]
* int tm_yday; days since January 1 - [0,365]
* int tm_isdst; daylight savings time flag
* };
*/
HRESULT WINAPI VarBstrFromDate32(DATE dateIn, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
struct tm TM = {0,0,0,0,0,0,0,0,0};
TRACE( ole, "( %f, %ld, %ld, %p ), stub\n", dateIn, lcid, dwFlags, pbstrOut );
if( DateToTm( dateIn, lcid, &TM ) == FALSE )
{
return E_INVALIDARG;
}
if( lcid & VAR_DATEVALUEONLY )
strftime( pBuffer, BUFFER_MAX, "%x", &TM );
else if( lcid & VAR_TIMEVALUEONLY )
strftime( pBuffer, BUFFER_MAX, "%X", &TM );
else
strftime( pBuffer, BUFFER_MAX, "%x %X", &TM );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromBool32 [OLEAUT32.116]
*/
HRESULT WINAPI VarBstrFromBool32(VARIANT_BOOL boolIn, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %d, %ld, %ld, %p ), stub\n", boolIn, lcid, dwFlags, pbstrOut );
if( boolIn == VARIANT_FALSE )
{
sprintf( pBuffer, "False" );
}
else
{
sprintf( pBuffer, "True" );
}
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromI132 [OLEAUT32.229]
*/
HRESULT WINAPI VarBstrFromI132(CHAR cIn, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %c, %ld, %ld, %p ), stub\n", cIn, lcid, dwFlags, pbstrOut );
sprintf( pBuffer, "%d", cIn );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromUI232 [OLEAUT32.230]
*/
HRESULT WINAPI VarBstrFromUI232(USHORT uiIn, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %d, %ld, %ld, %p ), stub\n", uiIn, lcid, dwFlags, pbstrOut );
sprintf( pBuffer, "%d", uiIn );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBstrFromUI432 [OLEAUT32.231]
*/
HRESULT WINAPI VarBstrFromUI432(ULONG ulIn, LCID lcid, ULONG dwFlags, BSTR32* pbstrOut)
{
TRACE( ole, "( %ld, %ld, %ld, %p ), stub\n", ulIn, lcid, dwFlags, pbstrOut );
sprintf( pBuffer, "%ld", ulIn );
*pbstrOut = StringDupAtoBstr( pBuffer );
return S_OK;
}
/******************************************************************************
* VarBoolFromUI132 [OLEAUT32.118]
*/
HRESULT WINAPI VarBoolFromUI132(BYTE bIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %d, %p ), stub\n", bIn, pboolOut );
if( bIn == 0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/******************************************************************************
* VarBoolFromI232 [OLEAUT32.119]
*/
HRESULT WINAPI VarBoolFromI232(short sIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %d, %p ), stub\n", sIn, pboolOut );
if( sIn == 0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/******************************************************************************
* VarBoolFromI432 [OLEAUT32.120]
*/
HRESULT WINAPI VarBoolFromI432(LONG lIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %ld, %p ), stub\n", lIn, pboolOut );
if( lIn == 0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/******************************************************************************
* VarBoolFromR432 [OLEAUT32.121]
*/
HRESULT WINAPI VarBoolFromR432(FLOAT fltIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %f, %p ), stub\n", fltIn, pboolOut );
if( fltIn == 0.0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/******************************************************************************
* VarBoolFromR832 [OLEAUT32.122]
*/
HRESULT WINAPI VarBoolFromR832(double dblIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, pboolOut );
if( dblIn == 0.0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/******************************************************************************
* VarBoolFromDate32 [OLEAUT32.123]
*/
HRESULT WINAPI VarBoolFromDate32(DATE dateIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, pboolOut );
if( dateIn == 0.0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/******************************************************************************
* VarBoolFromStr32 [OLEAUT32.125]
*/
HRESULT WINAPI VarBoolFromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, VARIANT_BOOL* pboolOut)
{
HRESULT ret = S_OK;
char* pNewString = NULL;
TRACE( ole, "( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pboolOut );
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
if( pNewString == NULL || strlen( pNewString ) == 0 )
{
ret = DISP_E_TYPEMISMATCH;
}
if( ret == S_OK )
{
if( strncasecmp( pNewString, "True", strlen( pNewString ) ) == 0 )
{
*pboolOut = VARIANT_TRUE;
}
else if( strncasecmp( pNewString, "False", strlen( pNewString ) ) == 0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
/* Try converting the string to a floating point number.
*/
double dValue = 0.0;
HRESULT res = VarR8FromStr32( strIn, lcid, dwFlags, &dValue );
if( res != S_OK )
{
ret = DISP_E_TYPEMISMATCH;
}
else if( dValue == 0.0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
}
}
HeapFree( GetProcessHeap(), 0, pNewString );
return ret;
}
/******************************************************************************
* VarBoolFromI132 [OLEAUT32.233]
*/
HRESULT WINAPI VarBoolFromI132(CHAR cIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, pboolOut );
if( cIn == 0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/******************************************************************************
* VarBoolFromUI232 [OLEAUT32.234]
*/
HRESULT WINAPI VarBoolFromUI232(USHORT uiIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pboolOut );
if( uiIn == 0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/******************************************************************************
* VarBoolFromUI432 [OLEAUT32.235]
*/
HRESULT WINAPI VarBoolFromUI432(ULONG ulIn, VARIANT_BOOL* pboolOut)
{
TRACE( ole, "( %ld, %p ), stub\n", ulIn, pboolOut );
if( ulIn == 0 )
{
*pboolOut = VARIANT_FALSE;
}
else
{
*pboolOut = VARIANT_TRUE;
}
return S_OK;
}
/**********************************************************************
* VarBoolFromCy32 [OLEAUT32.124]
* Convert currency to boolean
*/
HRESULT WINAPI VarBoolFromCy32(CY cyIn, VARIANT_BOOL* pboolOut) {
if (cyIn.u.Hi || cyIn.u.Lo) *pboolOut = -1;
else *pboolOut = 0;
return S_OK;
}
/******************************************************************************
* VarI1FromUI132 [OLEAUT32.244]
*/
HRESULT WINAPI VarI1FromUI132(BYTE bIn, CHAR* pcOut)
{
TRACE( ole, "( %d, %p ), stub\n", bIn, pcOut );
/* Check range of value.
*/
if( bIn > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) bIn;
return S_OK;
}
/******************************************************************************
* VarI1FromI232 [OLEAUT32.245]
*/
HRESULT WINAPI VarI1FromI232(short uiIn, CHAR* pcOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pcOut );
if( uiIn > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) uiIn;
return S_OK;
}
/******************************************************************************
* VarI1FromI432 [OLEAUT32.246]
*/
HRESULT WINAPI VarI1FromI432(LONG lIn, CHAR* pcOut)
{
TRACE( ole, "( %ld, %p ), stub\n", lIn, pcOut );
if( lIn < CHAR_MIN || lIn > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) lIn;
return S_OK;
}
/******************************************************************************
* VarI1FromR432 [OLEAUT32.247]
*/
HRESULT WINAPI VarI1FromR432(FLOAT fltIn, CHAR* pcOut)
{
TRACE( ole, "( %f, %p ), stub\n", fltIn, pcOut );
fltIn = round( fltIn );
if( fltIn < CHAR_MIN || fltIn > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) fltIn;
return S_OK;
}
/******************************************************************************
* VarI1FromR832 [OLEAUT32.248]
*/
HRESULT WINAPI VarI1FromR832(double dblIn, CHAR* pcOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, pcOut );
dblIn = round( dblIn );
if( dblIn < CHAR_MIN || dblIn > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) dblIn;
return S_OK;
}
/******************************************************************************
* VarI1FromDate32 [OLEAUT32.249]
*/
HRESULT WINAPI VarI1FromDate32(DATE dateIn, CHAR* pcOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, pcOut );
dateIn = round( dateIn );
if( dateIn < CHAR_MIN || dateIn > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) dateIn;
return S_OK;
}
/******************************************************************************
* VarI1FromStr32 [OLEAUT32.251]
*/
HRESULT WINAPI VarI1FromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, CHAR* pcOut)
{
double dValue = 0.0;
LPSTR pNewString = NULL;
TRACE( ole, "( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pcOut );
/* Check if we have a valid argument
*/
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
RemoveCharacterFromString( pNewString, "," );
if( IsValidRealString( pNewString ) == FALSE )
{
return DISP_E_TYPEMISMATCH;
}
/* Convert the valid string to a floating point number.
*/
dValue = atof( pNewString );
/* We don't need the string anymore so free it.
*/
HeapFree( GetProcessHeap(), 0, pNewString );
/* Check range of value.
*/
dValue = round( dValue );
if( dValue < CHAR_MIN || dValue > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) dValue;
return S_OK;
}
/******************************************************************************
* VarI1FromBool32 [OLEAUT32.253]
*/
HRESULT WINAPI VarI1FromBool32(VARIANT_BOOL boolIn, CHAR* pcOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, pcOut );
*pcOut = (CHAR) boolIn;
return S_OK;
}
/******************************************************************************
* VarI1FromUI232 [OLEAUT32.254]
*/
HRESULT WINAPI VarI1FromUI232(USHORT uiIn, CHAR* pcOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pcOut );
if( uiIn > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) uiIn;
return S_OK;
}
/******************************************************************************
* VarI1FromUI432 [OLEAUT32.255]
*/
HRESULT WINAPI VarI1FromUI432(ULONG ulIn, CHAR* pcOut)
{
TRACE( ole, "( %ld, %p ), stub\n", ulIn, pcOut );
if( ulIn > CHAR_MAX )
{
return DISP_E_OVERFLOW;
}
*pcOut = (CHAR) ulIn;
return S_OK;
}
/**********************************************************************
* VarI1FromCy32 [OLEAUT32.250]
* Convert currency to signed char
*/
HRESULT WINAPI VarI1FromCy32(CY cyIn, CHAR* pcOut) {
double t = round((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
if (t > CHAR_MAX || t < CHAR_MIN) return DISP_E_OVERFLOW;
*pcOut = (CHAR)t;
return S_OK;
}
/******************************************************************************
* VarUI2FromUI132 [OLEAUT32.257]
*/
HRESULT WINAPI VarUI2FromUI132(BYTE bIn, USHORT* puiOut)
{
TRACE( ole, "( %d, %p ), stub\n", bIn, puiOut );
*puiOut = (USHORT) bIn;
return S_OK;
}
/******************************************************************************
* VarUI2FromI232 [OLEAUT32.258]
*/
HRESULT WINAPI VarUI2FromI232(short uiIn, USHORT* puiOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, puiOut );
if( uiIn < UI2_MIN )
{
return DISP_E_OVERFLOW;
}
*puiOut = (USHORT) uiIn;
return S_OK;
}
/******************************************************************************
* VarUI2FromI432 [OLEAUT32.259]
*/
HRESULT WINAPI VarUI2FromI432(LONG lIn, USHORT* puiOut)
{
TRACE( ole, "( %ld, %p ), stub\n", lIn, puiOut );
if( lIn < UI2_MIN || lIn > UI2_MAX )
{
return DISP_E_OVERFLOW;
}
*puiOut = (USHORT) lIn;
return S_OK;
}
/******************************************************************************
* VarUI2FromR432 [OLEAUT32.260]
*/
HRESULT WINAPI VarUI2FromR432(FLOAT fltIn, USHORT* puiOut)
{
TRACE( ole, "( %f, %p ), stub\n", fltIn, puiOut );
fltIn = round( fltIn );
if( fltIn < UI2_MIN || fltIn > UI2_MAX )
{
return DISP_E_OVERFLOW;
}
*puiOut = (USHORT) fltIn;
return S_OK;
}
/******************************************************************************
* VarUI2FromR832 [OLEAUT32.261]
*/
HRESULT WINAPI VarUI2FromR832(double dblIn, USHORT* puiOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, puiOut );
dblIn = round( dblIn );
if( dblIn < UI2_MIN || dblIn > UI2_MAX )
{
return DISP_E_OVERFLOW;
}
*puiOut = (USHORT) dblIn;
return S_OK;
}
/******************************************************************************
* VarUI2FromDate32 [OLEAUT32.262]
*/
HRESULT WINAPI VarUI2FromDate32(DATE dateIn, USHORT* puiOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, puiOut );
dateIn = round( dateIn );
if( dateIn < UI2_MIN || dateIn > UI2_MAX )
{
return DISP_E_OVERFLOW;
}
*puiOut = (USHORT) dateIn;
return S_OK;
}
/******************************************************************************
* VarUI2FromStr32 [OLEAUT32.264]
*/
HRESULT WINAPI VarUI2FromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, USHORT* puiOut)
{
double dValue = 0.0;
LPSTR pNewString = NULL;
TRACE( ole, "( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, puiOut );
/* Check if we have a valid argument
*/
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
RemoveCharacterFromString( pNewString, "," );
if( IsValidRealString( pNewString ) == FALSE )
{
return DISP_E_TYPEMISMATCH;
}
/* Convert the valid string to a floating point number.
*/
dValue = atof( pNewString );
/* We don't need the string anymore so free it.
*/
HeapFree( GetProcessHeap(), 0, pNewString );
/* Check range of value.
*/
dValue = round( dValue );
if( dValue < UI2_MIN || dValue > UI2_MAX )
{
return DISP_E_OVERFLOW;
}
*puiOut = (USHORT) dValue;
return S_OK;
}
/******************************************************************************
* VarUI2FromBool32 [OLEAUT32.266]
*/
HRESULT WINAPI VarUI2FromBool32(VARIANT_BOOL boolIn, USHORT* puiOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, puiOut );
*puiOut = (USHORT) boolIn;
return S_OK;
}
/******************************************************************************
* VarUI2FromI132 [OLEAUT32.267]
*/
HRESULT WINAPI VarUI2FromI132(CHAR cIn, USHORT* puiOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, puiOut );
*puiOut = (USHORT) cIn;
return S_OK;
}
/******************************************************************************
* VarUI2FromUI432 [OLEAUT32.268]
*/
HRESULT WINAPI VarUI2FromUI432(ULONG ulIn, USHORT* puiOut)
{
TRACE( ole, "( %ld, %p ), stub\n", ulIn, puiOut );
if( ulIn < UI2_MIN || ulIn > UI2_MAX )
{
return DISP_E_OVERFLOW;
}
*puiOut = (USHORT) ulIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromStr32 [OLEAUT32.277]
*/
HRESULT WINAPI VarUI4FromStr32(OLECHAR32* strIn, LCID lcid, ULONG dwFlags, ULONG* pulOut)
{
double dValue = 0.0;
LPSTR pNewString = NULL;
TRACE( ole, "( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pulOut );
/* Check if we have a valid argument
*/
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
RemoveCharacterFromString( pNewString, "," );
if( IsValidRealString( pNewString ) == FALSE )
{
return DISP_E_TYPEMISMATCH;
}
/* Convert the valid string to a floating point number.
*/
dValue = atof( pNewString );
/* We don't need the string anymore so free it.
*/
HeapFree( GetProcessHeap(), 0, pNewString );
/* Check range of value.
*/
dValue = round( dValue );
if( dValue < UI4_MIN || dValue > UI4_MAX )
{
return DISP_E_OVERFLOW;
}
*pulOut = (ULONG) dValue;
return S_OK;
}
/**********************************************************************
* VarUI2FromCy32 [OLEAUT32.263]
* Convert currency to unsigned short
*/
HRESULT WINAPI VarUI2FromCy32(CY cyIn, USHORT* pusOut) {
double t = round((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
if (t > UI2_MAX || t < UI2_MIN) return DISP_E_OVERFLOW;
*pusOut = (USHORT)t;
return S_OK;
}
/******************************************************************************
* VarUI4FromUI132 [OLEAUT32.270]
*/
HRESULT WINAPI VarUI4FromUI132(BYTE bIn, ULONG* pulOut)
{
TRACE( ole, "( %d, %p ), stub\n", bIn, pulOut );
*pulOut = (USHORT) bIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromI232 [OLEAUT32.271]
*/
HRESULT WINAPI VarUI4FromI232(short uiIn, ULONG* pulOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pulOut );
if( uiIn < UI4_MIN )
{
return DISP_E_OVERFLOW;
}
*pulOut = (ULONG) uiIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromI432 [OLEAUT32.272]
*/
HRESULT WINAPI VarUI4FromI432(LONG lIn, ULONG* pulOut)
{
TRACE( ole, "( %ld, %p ), stub\n", lIn, pulOut );
if( lIn < UI4_MIN )
{
return DISP_E_OVERFLOW;
}
*pulOut = (ULONG) lIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromR432 [OLEAUT32.273]
*/
HRESULT WINAPI VarUI4FromR432(FLOAT fltIn, ULONG* pulOut)
{
fltIn = round( fltIn );
if( fltIn < UI4_MIN || fltIn > UI4_MAX )
{
return DISP_E_OVERFLOW;
}
*pulOut = (ULONG) fltIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromR832 [OLEAUT32.274]
*/
HRESULT WINAPI VarUI4FromR832(double dblIn, ULONG* pulOut)
{
TRACE( ole, "( %f, %p ), stub\n", dblIn, pulOut );
dblIn = round( dblIn );
if( dblIn < UI4_MIN || dblIn > UI4_MAX )
{
return DISP_E_OVERFLOW;
}
*pulOut = (ULONG) dblIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromDate32 [OLEAUT32.275]
*/
HRESULT WINAPI VarUI4FromDate32(DATE dateIn, ULONG* pulOut)
{
TRACE( ole, "( %f, %p ), stub\n", dateIn, pulOut );
dateIn = round( dateIn );
if( dateIn < UI4_MIN || dateIn > UI4_MAX )
{
return DISP_E_OVERFLOW;
}
*pulOut = (ULONG) dateIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromBool32 [OLEAUT32.279]
*/
HRESULT WINAPI VarUI4FromBool32(VARIANT_BOOL boolIn, ULONG* pulOut)
{
TRACE( ole, "( %d, %p ), stub\n", boolIn, pulOut );
*pulOut = (ULONG) boolIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromI132 [OLEAUT32.280]
*/
HRESULT WINAPI VarUI4FromI132(CHAR cIn, ULONG* pulOut)
{
TRACE( ole, "( %c, %p ), stub\n", cIn, pulOut );
*pulOut = (ULONG) cIn;
return S_OK;
}
/******************************************************************************
* VarUI4FromUI232 [OLEAUT32.281]
*/
HRESULT WINAPI VarUI4FromUI232(USHORT uiIn, ULONG* pulOut)
{
TRACE( ole, "( %d, %p ), stub\n", uiIn, pulOut );
*pulOut = (ULONG) uiIn;
return S_OK;
}
/**********************************************************************
* VarUI4FromCy32 [OLEAUT32.276]
* Convert currency to unsigned long
*/
HRESULT WINAPI VarUI4FromCy32(CY cyIn, ULONG* pulOut) {
double t = round((((double)cyIn.u.Hi * 4294967296.0) + (double)cyIn.u.Lo) / 10000);
if (t > UI4_MAX || t < UI4_MIN) return DISP_E_OVERFLOW;
*pulOut = (ULONG)t;
return S_OK;
}
/**********************************************************************
* VarCyFromUI132 [OLEAUT32.98]
* Convert unsigned char to currency
*/
HRESULT WINAPI VarCyFromUI132(BYTE bIn, CY* pcyOut) {
pcyOut->u.Hi = 0;
pcyOut->u.Lo = ((ULONG)bIn) * 10000;
return S_OK;
}
/**********************************************************************
* VarCyFromI232 [OLEAUT32.99]
* Convert signed short to currency
*/
HRESULT WINAPI VarCyFromI232(short sIn, CY* pcyOut) {
if (sIn < 0) pcyOut->u.Hi = -1;
else pcyOut->u.Hi = 0;
pcyOut->u.Lo = ((ULONG)sIn) * 10000;
return S_OK;
}
/**********************************************************************
* VarCyFromI432 [OLEAUT32.100]
* Convert signed long to currency
*/
HRESULT WINAPI VarCyFromI432(LONG lIn, CY* pcyOut) {
double t = (double)lIn * (double)10000;
pcyOut->u.Hi = (LONG)(t / (double)4294967296.0);
pcyOut->u.Lo = (ULONG)fmod(t, (double)4294967296.0);
if (lIn < 0) pcyOut->u.Hi--;
return S_OK;
}
/**********************************************************************
* VarCyFromR432 [OLEAUT32.101]
* Convert float to currency
*/
HRESULT WINAPI VarCyFromR432(FLOAT fltIn, CY* pcyOut) {
double t = round((double)fltIn * (double)10000);
pcyOut->u.Hi = (LONG)(t / (double)4294967296.0);
pcyOut->u.Lo = (ULONG)fmod(t, (double)4294967296.0);
if (fltIn < 0) pcyOut->u.Hi--;
return S_OK;
}
/**********************************************************************
* VarCyFromR832 [OLEAUT32.102]
* Convert double to currency
*/
HRESULT WINAPI VarCyFromR832(double dblIn, CY* pcyOut) {
double t = round(dblIn * (double)10000);
pcyOut->u.Hi = (LONG)(t / (double)4294967296.0);
pcyOut->u.Lo = (ULONG)fmod(t, (double)4294967296.0);
if (dblIn < 0) pcyOut->u.Hi--;
return S_OK;
}
/**********************************************************************
* VarCyFromDate32 [OLEAUT32.103]
* Convert date to currency
*/
HRESULT WINAPI VarCyFromDate32(DATE dateIn, CY* pcyOut) {
double t = round((double)dateIn * (double)10000);
pcyOut->u.Hi = (LONG)(t / (double)4294967296.0);
pcyOut->u.Lo = (ULONG)fmod(t, (double)4294967296.0);
if (dateIn < 0) pcyOut->u.Hi--;
return S_OK;
}
/**********************************************************************
* VarCyFromBool32 [OLEAUT32.106]
* Convert boolean to currency
*/
HRESULT WINAPI VarCyFromBool32(VARIANT_BOOL boolIn, CY* pcyOut) {
if (boolIn < 0) pcyOut->u.Hi = -1;
else pcyOut->u.Hi = 0;
pcyOut->u.Lo = (ULONG)boolIn * (ULONG)10000;
return S_OK;
}
/**********************************************************************
* VarCyFromI132 [OLEAUT32.225]
* Convert signed char to currency
*/
HRESULT WINAPI VarCyFromI132(CHAR cIn, CY* pcyOut) {
if (cIn < 0) pcyOut->u.Hi = -1;
else pcyOut->u.Hi = 0;
pcyOut->u.Lo = (ULONG)cIn * (ULONG)10000;
return S_OK;
}
/**********************************************************************
* VarCyFromUI232 [OLEAUT32.226]
* Convert unsigned short to currency
*/
HRESULT WINAPI VarCyFromUI232(USHORT usIn, CY* pcyOut) {
pcyOut->u.Hi = 0;
pcyOut->u.Lo = (ULONG)usIn * (ULONG)10000;
return S_OK;
}
/**********************************************************************
* VarCyFromUI432 [OLEAUT32.227]
* Convert unsigned long to currency
*/
HRESULT WINAPI VarCyFromUI432(ULONG ulIn, CY* pcyOut) {
double t = (double)ulIn * (double)10000;
pcyOut->u.Hi = (LONG)(t / (double)4294967296.0);
pcyOut->u.Lo = (ULONG)fmod(t, (double)4294967296.0);
return S_OK;
}