/* * VARIANT * * Copyright 1998 Jean-Claude Cote * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * 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 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 parsing of date for the VarDateFromStr is not complete. * - The date manipulations do not support dates prior to 1900. * - The parsing does not accept as many formats as the Windows implementation. */ #include "config.h" #include #include #include #include #include #include #ifdef HAVE_FLOAT_H # include #endif #define NONAMELESSUNION #define NONAMELESSSTRUCT #include "windef.h" #include "winbase.h" #include "oleauto.h" #include "winreg.h" #include "heap.h" #include "wine/debug.h" #include "wine/unicode.h" #include "winerror.h" #include "parsedt.h" #include "typelib.h" #include "winternl.h" #include "variant.h" WINE_DEFAULT_DEBUG_CHANNEL(ole); #define SYSDUPSTRING(str) SysAllocStringByteLen((LPCSTR)(str), SysStringByteLen(str)) /* Flags set in V_VT, other than the actual type value */ #define VT_EXTRA_TYPE (VT_VECTOR|VT_ARRAY|VT_BYREF|VT_RESERVED) /* Get the extra flags from a variant pointer */ #define V_EXTRA_TYPE(v) (V_VT(v) & VT_EXTRA_TYPE) /* the largest valid type */ #define VT_MAXVALIDTYPE VT_CLSID /* 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. */ /* * Use 365 days/year and a manual calculation for leap year days * to keep arithmetic simple */ static const double DAYS_IN_ONE_YEAR = 365.0; /* * Token definitions for Varient Formatting * Worked out by experimentation on a w2k machine. Doesnt appear to be * documented anywhere obviously so keeping definitions internally * */ /* Pre defined tokens */ #define TOK_COPY 0x00 #define TOK_END 0x02 #define LARGEST_TOKENID 6 /* Mapping of token name to id put into the tokenized form Note testing on W2K shows aaaa and oooo are not parsed??!! */ #define TOK_COLON 0x03 #define TOK_SLASH 0x04 #define TOK_c 0x05 #define TOK_d 0x08 #define TOK_dd 0x09 #define TOK_ddd 0x0a #define TOK_dddd 0x0b #define TOK_ddddd 0x0c #define TOK_dddddd 0x0d #define TOK_w 0x0f #define TOK_ww 0x10 #define TOK_m 0x11 #define TOK_mm 0x12 #define TOK_mmm 0x13 #define TOK_mmmm 0x14 #define TOK_q 0x06 #define TOK_y 0x15 #define TOK_yy 0x16 #define TOK_yyyy 0x18 #define TOK_h 0x1e #define TOK_Hh 0x1f #define TOK_N 0x1a #define TOK_Nn 0x1b #define TOK_S 0x1c #define TOK_Ss 0x1d #define TOK_ttttt 0x07 #define TOK_AMsPM 0x2f #define TOK_amspm 0x32 #define TOK_AsP 0x30 #define TOK_asp 0x33 #define TOK_AMPM 0x2e typedef struct tagFORMATTOKEN { const char *str; BYTE tokenSize; BYTE tokenId; int varTypeRequired; } FORMATTOKEN; typedef struct tagFORMATHDR { BYTE len; BYTE hex3; BYTE hex6; BYTE reserved[8]; } FORMATHDR; FORMATTOKEN formatTokens[] = { /* FIXME: Only date formats so far */ {":" , 1, TOK_COLON , 0}, {"/" , 1, TOK_SLASH , 0}, {"c" , 1, TOK_c , VT_DATE}, {"dddddd", 6, TOK_dddddd , VT_DATE}, {"ddddd" , 5, TOK_ddddd , VT_DATE}, {"dddd" , 4, TOK_dddd , VT_DATE}, {"ddd" , 3, TOK_ddd , VT_DATE}, {"dd" , 2, TOK_dd , VT_DATE}, {"d" , 1, TOK_d , VT_DATE}, {"ww" , 2, TOK_ww , VT_DATE}, {"w" , 1, TOK_w , VT_DATE}, {"mmmm" , 4, TOK_mmmm , VT_DATE}, {"mmm" , 3, TOK_mmm , VT_DATE}, {"mm" , 2, TOK_mm , VT_DATE}, {"m" , 1, TOK_m , VT_DATE}, {"q" , 1, TOK_q , VT_DATE}, {"yyyy" , 4, TOK_yyyy , VT_DATE}, {"yy" , 2, TOK_yy , VT_DATE}, {"y" , 1, TOK_y , VT_DATE}, {"h" , 1, TOK_h , VT_DATE}, {"Hh" , 2, TOK_Hh , VT_DATE}, {"Nn" , 2, TOK_Nn , VT_DATE}, {"N" , 1, TOK_N , VT_DATE}, {"S" , 1, TOK_S , VT_DATE}, {"Ss" , 2, TOK_Ss , VT_DATE}, {"ttttt" , 5, TOK_ttttt , VT_DATE}, {"AM/PM" , 5, TOK_AMsPM , VT_DATE}, {"am/pm" , 5, TOK_amspm , VT_DATE}, {"A/P" , 3, TOK_AsP , VT_DATE}, {"a/p" , 3, TOK_asp , VT_DATE}, {"AMPM" , 4, TOK_AMPM , VT_DATE}, {0x00 , 0, 0 , VT_NULL} }; /****************************************************************************** * 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 successful. * * 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 BOOL DateTimeStringToTm( OLECHAR* strIn, DWORD dwFlags, struct tm* pTm ) { BOOL 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( dwFlags & 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( dwFlags & 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 successful. */ static BOOL TmToDATE( struct tm* pTm, DATE *pDateOut ) { int leapYear = 0; /* Hmmm... An uninitialized Date in VB is December 30 1899 so Start at 0. This is the way DATE is defined. */ /* 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; if( (pTm->tm_year - 1900) >= 0 ) { /* 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. * Copied + reversed functionality into TmToDate */ *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. (remember tm_mon is 0..11) */ switch( pTm->tm_mon ) { case 1: *pDateOut += 31; break; case 2: *pDateOut += ( 59 + leapYear ); break; case 3: *pDateOut += ( 90 + leapYear ); break; case 4: *pDateOut += ( 120 + leapYear ); break; case 5: *pDateOut += ( 151 + leapYear ); break; case 6: *pDateOut += ( 181 + leapYear ); break; case 7: *pDateOut += ( 212 + leapYear ); break; case 8: *pDateOut += ( 243 + leapYear ); break; case 9: *pDateOut += ( 273 + leapYear ); break; case 10: *pDateOut += ( 304 + leapYear ); break; case 11: *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 fractional part * of the DATE so seconds / number of seconds in a day. */ } else { *pDateOut = 0; } *pDateOut += pTm->tm_hour / 24.0; *pDateOut += pTm->tm_min / 1440.0; *pDateOut += pTm->tm_sec / 86400.0; return TRUE; } /****************************************************************************** * DateToTm [INTERNAL] * * This function converts 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 successful. */ BOOL DateToTm( DATE dateIn, DWORD dwFlags, struct tm* pTm ) { double decimalPart = 0.0; double wholePart = 0.0; memset(pTm,0,sizeof(*pTm)); /* Because of the nature of DATE format which * 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 simplifies the processing of the DATE value. */ decimalPart = fmod( dateIn, 1.0 ); /* Do this before the -1, otherwise 0.xx goes negative */ dateIn -= 1.0; wholePart = (double) floor( dateIn ); if( !(dwFlags & VAR_TIMEVALUEONLY) ) { unsigned int nDay = 0; int leapYear = 0; double yearsSince1900 = 0; /* Hard code dates smaller than January 1, 1900. */ if( dateIn < 2.0 ) { pTm->tm_year = 1899; pTm->tm_mon = 11; /* December as tm_mon is 0..11 */ if( dateIn < 1.0 ) { pTm->tm_mday = 30; dateIn = dateIn * -1.0; /* Ensure +ve for time calculation */ decimalPart = decimalPart * -1.0; /* Ensure +ve for time calculation */ } else { pTm->tm_mday = 31; } } else { /* Start at 1900, this is 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) + 0.001 ); pTm->tm_year += yearsSince1900; /* determine if this is a leap year. */ if( isleap( pTm->tm_year ) ) { leapYear = 1; wholePart++; } /* find what day of that year the "wholePart" corresponds to. * Note: nDay is in [1-366] format */ nDay = (((unsigned int) wholePart) - ((pTm->tm_year-1900) * DAYS_IN_ONE_YEAR )); /* Remove 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. * Copied + reversed functionality from TmToDate */ nDay -= ( (pTm->tm_year - 1) / 4 ) - ( 1900 / 4 ); nDay += ( (pTm->tm_year - 1) / 100 ) - ( 1900 / 100 ); nDay -= ( (pTm->tm_year - 1) / 400 ) - ( 1900 / 400 ); /* Set the tm_yday value. * Note: The day must be converted from [1-366] to [0-365] */ /*pTm->tm_yday = nDay - 1;*/ /* find which month 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( !(dwFlags & VAR_DATEVALUEONLY) ) { /* find the number of seconds in this day. * fractional part times, hours, minutes, seconds. * Note: 0.1 is hack to ensure figures come out in whole numbers * due to floating point inaccuracies */ pTm->tm_hour = (int) ( decimalPart * 24 ); pTm->tm_min = (int) ( ( ( decimalPart * 24 ) - pTm->tm_hour ) * 60 ); /* Note: 0.1 is hack to ensure seconds come out in whole numbers due to floating point inaccuracies */ pTm->tm_sec = (int) (( ( ( decimalPart * 24 * 60 ) - ( pTm->tm_hour * 60 ) - pTm->tm_min ) * 60 ) + 0.1); } return TRUE; } /****************************************************************************** * 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( V_VT(parg) & 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 ): case( VT_DISPATCH ): case( VT_UNKNOWN ): size = sizeof(void*); break; case( VT_CY ): size = sizeof(CY); break; case( VT_DECIMAL ): /* hmm, tricky, DECIMAL is only VT_BYREF */ default: FIXME("Add size information for type vt=%d\n", V_VT(parg) & VT_TYPEMASK ); break; } return size; } /****************************************************************************** * StringDupAtoBstr [INTERNAL] * */ static BSTR StringDupAtoBstr( char* strIn ) { BSTR bstr = NULL; OLECHAR* pNewString = NULL; UNICODE_STRING usBuffer; RtlCreateUnicodeStringFromAsciiz( &usBuffer, strIn ); pNewString = usBuffer.Buffer; bstr = SysAllocString( pNewString ); RtlFreeUnicodeString( &usBuffer ); 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; BOOL 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; } /****************************************************************************** * Coerce [INTERNAL] * * This function dispatches execution to the proper conversion API * to do the necessary coercion. * * FIXME: Passing down dwFlags to the conversion functions is wrong, this * is a different flagmask. Check MSDN. */ static HRESULT Coerce( VARIANTARG* pd, LCID lcid, ULONG dwFlags, VARIANTARG* ps, VARTYPE vt ) { HRESULT res = S_OK; unsigned short vtFrom = 0; vtFrom = V_VT(ps) & 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 their unsigned versions. */ /* Trivial Case: If the coercion is from two types that are * identical then we can blindly copy from one argument to another.*/ if ((vt==vtFrom)) return VariantCopy(pd,ps); /* Cases requiring thought*/ switch( vt ) { case( VT_EMPTY ): res = VariantClear( pd ); break; case( VT_NULL ): res = VariantClear( pd ); if( res == S_OK ) { V_VT(pd) = VT_NULL; } break; case( VT_I1 ): switch( vtFrom ) { case( VT_I2 ): res = VarI1FromI2( V_UNION(ps,iVal), &V_UNION(pd,cVal) ); break; case( VT_INT ): case( VT_I4 ): res = VarI1FromI4( V_UNION(ps,lVal), &V_UNION(pd,cVal) ); break; case( VT_UI1 ): res = VarI1FromUI1( V_UNION(ps,bVal), &V_UNION(pd,cVal) ); break; case( VT_UI2 ): res = VarI1FromUI2( V_UNION(ps,uiVal), &V_UNION(pd,cVal) ); break; case( VT_UINT ): case( VT_UI4 ): res = VarI1FromUI4( V_UNION(ps,ulVal), &V_UNION(pd,cVal) ); break; case( VT_R4 ): res = VarI1FromR4( V_UNION(ps,fltVal), &V_UNION(pd,cVal) ); break; case( VT_R8 ): res = VarI1FromR8( V_UNION(ps,dblVal), &V_UNION(pd,cVal) ); break; case( VT_DATE ): res = VarI1FromDate( V_UNION(ps,date), &V_UNION(pd,cVal) ); break; case( VT_BOOL ): res = VarI1FromBool( V_UNION(ps,boolVal), &V_UNION(pd,cVal) ); break; case( VT_BSTR ): res = VarI1FromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,cVal) ); break; case( VT_CY ): res = VarI1FromCy( V_UNION(ps,cyVal), &V_UNION(pd,cVal) ); break; case( VT_DISPATCH ): /*res = VarI1FromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,cVal) );*/ case( VT_DECIMAL ): /*res = VarI1FromDec( V_UNION(ps,decVal), &V_UNION(pd,cVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_I1\n", vtFrom ); break; } break; case( VT_I2 ): switch( vtFrom ) { case( VT_I1 ): res = VarI2FromI1( V_UNION(ps,cVal), &V_UNION(pd,iVal) ); break; case( VT_INT ): case( VT_I4 ): res = VarI2FromI4( V_UNION(ps,lVal), &V_UNION(pd,iVal) ); break; case( VT_UI1 ): res = VarI2FromUI1( V_UNION(ps,bVal), &V_UNION(pd,iVal) ); break; case( VT_UI2 ): res = VarI2FromUI2( V_UNION(ps,uiVal), &V_UNION(pd,iVal) ); break; case( VT_UINT ): case( VT_UI4 ): res = VarI2FromUI4( V_UNION(ps,ulVal), &V_UNION(pd,iVal) ); break; case( VT_R4 ): res = VarI2FromR4( V_UNION(ps,fltVal), &V_UNION(pd,iVal) ); break; case( VT_R8 ): res = VarI2FromR8( V_UNION(ps,dblVal), &V_UNION(pd,iVal) ); break; case( VT_DATE ): res = VarI2FromDate( V_UNION(ps,date), &V_UNION(pd,iVal) ); break; case( VT_BOOL ): res = VarI2FromBool( V_UNION(ps,boolVal), &V_UNION(pd,iVal) ); break; case( VT_BSTR ): res = VarI2FromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,iVal) ); break; case( VT_CY ): res = VarI2FromCy( V_UNION(ps,cyVal), &V_UNION(pd,iVal) ); break; case( VT_DISPATCH ): /*res = VarI2FromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,iVal) );*/ case( VT_DECIMAL ): /*res = VarI2FromDec( V_UNION(ps,deiVal), &V_UNION(pd,iVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_I2\n", vtFrom); break; } break; case( VT_INT ): case( VT_I4 ): switch( vtFrom ) { case( VT_EMPTY ): V_UNION(pd,lVal) = 0; res = S_OK; break; case( VT_I1 ): res = VarI4FromI1( V_UNION(ps,cVal), &V_UNION(pd,lVal) ); break; case( VT_I2 ): res = VarI4FromI2( V_UNION(ps,iVal), &V_UNION(pd,lVal) ); break; case( VT_ERROR ): V_UNION(pd,lVal) = V_UNION(pd,scode); res = S_OK; break; case( VT_INT ): case( VT_I4 ): res = VariantCopy( pd, ps ); break; case( VT_UI1 ): res = VarI4FromUI1( V_UNION(ps,bVal), &V_UNION(pd,lVal) ); break; case( VT_UI2 ): res = VarI4FromUI2( V_UNION(ps,uiVal), &V_UNION(pd,lVal) ); break; case( VT_UINT ): case( VT_UI4 ): res = VarI4FromUI4( V_UNION(ps,ulVal), &V_UNION(pd,lVal) ); break; case( VT_R4 ): res = VarI4FromR4( V_UNION(ps,fltVal), &V_UNION(pd,lVal) ); break; case( VT_R8 ): res = VarI4FromR8( V_UNION(ps,dblVal), &V_UNION(pd,lVal) ); break; case( VT_DATE ): res = VarI4FromDate( V_UNION(ps,date), &V_UNION(pd,lVal) ); break; case( VT_BOOL ): res = VarI4FromBool( V_UNION(ps,boolVal), &V_UNION(pd,lVal) ); break; case( VT_BSTR ): res = VarI4FromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,lVal) ); break; case( VT_CY ): res = VarI4FromCy( V_UNION(ps,cyVal), &V_UNION(pd,lVal) ); break; case( VT_DISPATCH ): /*res = VarI4FromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,lVal) );*/ case( VT_DECIMAL ): /*res = VarI4FromDec( V_UNION(ps,deiVal), &V_UNION(pd,lVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_INT/VT_I4\n", vtFrom); break; } break; case( VT_UI1 ): switch( vtFrom ) { case( VT_I1 ): res = VarUI1FromI1( V_UNION(ps,cVal), &V_UNION(pd,bVal) ); break; case( VT_I2 ): res = VarUI1FromI2( V_UNION(ps,iVal), &V_UNION(pd,bVal) ); break; case( VT_INT ): case( VT_I4 ): res = VarUI1FromI4( V_UNION(ps,lVal), &V_UNION(pd,bVal) ); break; case( VT_UI1 ): res = VariantCopy( pd, ps ); break; case( VT_UI2 ): res = VarUI1FromUI2( V_UNION(ps,uiVal), &V_UNION(pd,bVal) ); break; case( VT_UINT ): case( VT_UI4 ): res = VarUI1FromUI4( V_UNION(ps,ulVal), &V_UNION(pd,bVal) ); break; case( VT_R4 ): res = VarUI1FromR4( V_UNION(ps,fltVal), &V_UNION(pd,bVal) ); break; case( VT_R8 ): res = VarUI1FromR8( V_UNION(ps,dblVal), &V_UNION(pd,bVal) ); break; case( VT_DATE ): res = VarUI1FromDate( V_UNION(ps,date), &V_UNION(pd,bVal) ); break; case( VT_BOOL ): res = VarUI1FromBool( V_UNION(ps,boolVal), &V_UNION(pd,bVal) ); break; case( VT_BSTR ): res = VarUI1FromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,bVal) ); break; case( VT_CY ): res = VarUI1FromCy( V_UNION(ps,cyVal), &V_UNION(pd,bVal) ); break; case( VT_DISPATCH ): /*res = VarUI1FromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,bVal) );*/ case( VT_DECIMAL ): /*res = VarUI1FromDec( V_UNION(ps,deiVal), &V_UNION(pd,bVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_UI1\n", vtFrom); break; } break; case( VT_UI2 ): switch( vtFrom ) { case( VT_I1 ): res = VarUI2FromI1( V_UNION(ps,cVal), &V_UNION(pd,uiVal) ); break; case( VT_I2 ): res = VarUI2FromI2( V_UNION(ps,iVal), &V_UNION(pd,uiVal) ); break; case( VT_INT ): case( VT_I4 ): res = VarUI2FromI4( V_UNION(ps,lVal), &V_UNION(pd,uiVal) ); break; case( VT_UI1 ): res = VarUI2FromUI1( V_UNION(ps,bVal), &V_UNION(pd,uiVal) ); break; case( VT_UI2 ): res = VariantCopy( pd, ps ); break; case( VT_UINT ): case( VT_UI4 ): res = VarUI2FromUI4( V_UNION(ps,ulVal), &V_UNION(pd,uiVal) ); break; case( VT_R4 ): res = VarUI2FromR4( V_UNION(ps,fltVal), &V_UNION(pd,uiVal) ); break; case( VT_R8 ): res = VarUI2FromR8( V_UNION(ps,dblVal), &V_UNION(pd,uiVal) ); break; case( VT_DATE ): res = VarUI2FromDate( V_UNION(ps,date), &V_UNION(pd,uiVal) ); break; case( VT_BOOL ): res = VarUI2FromBool( V_UNION(ps,boolVal), &V_UNION(pd,uiVal) ); break; case( VT_BSTR ): res = VarUI2FromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,uiVal) ); break; case( VT_CY ): res = VarUI2FromCy( V_UNION(ps,cyVal), &V_UNION(pd,uiVal) ); break; case( VT_DISPATCH ): /*res = VarUI2FromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,uiVal) );*/ case( VT_DECIMAL ): /*res = VarUI2FromDec( V_UNION(ps,deiVal), &V_UNION(pd,uiVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_UI2\n", vtFrom); break; } break; case( VT_UINT ): case( VT_UI4 ): switch( vtFrom ) { case( VT_I1 ): res = VarUI4FromI1( V_UNION(ps,cVal), &V_UNION(pd,ulVal) ); break; case( VT_I2 ): res = VarUI4FromI2( V_UNION(ps,iVal), &V_UNION(pd,ulVal) ); break; case( VT_INT ): case( VT_I4 ): res = VarUI4FromI4( V_UNION(ps,lVal), &V_UNION(pd,ulVal) ); break; case( VT_UI1 ): res = VarUI4FromUI1( V_UNION(ps,bVal), &V_UNION(pd,ulVal) ); break; case( VT_UI2 ): res = VarUI4FromUI2( V_UNION(ps,uiVal), &V_UNION(pd,ulVal) ); break; case( VT_UI4 ): res = VariantCopy( pd, ps ); break; case( VT_R4 ): res = VarUI4FromR4( V_UNION(ps,fltVal), &V_UNION(pd,ulVal) ); break; case( VT_R8 ): res = VarUI4FromR8( V_UNION(ps,dblVal), &V_UNION(pd,ulVal) ); break; case( VT_DATE ): res = VarUI4FromDate( V_UNION(ps,date), &V_UNION(pd,ulVal) ); break; case( VT_BOOL ): res = VarUI4FromBool( V_UNION(ps,boolVal), &V_UNION(pd,ulVal) ); break; case( VT_BSTR ): res = VarUI4FromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,ulVal) ); break; case( VT_CY ): res = VarUI4FromCy( V_UNION(ps,cyVal), &V_UNION(pd,ulVal) ); break; case( VT_DISPATCH ): /*res = VarUI4FromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,ulVal) );*/ case( VT_DECIMAL ): /*res = VarUI4FromDec( V_UNION(ps,deiVal), &V_UNION(pd,ulVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_UINT/VT_UI4\n", vtFrom); break; } break; case( VT_R4 ): switch( vtFrom ) { case( VT_I1 ): res = VarR4FromI1( V_UNION(ps,cVal), &V_UNION(pd,fltVal) ); break; case( VT_I2 ): res = VarR4FromI2( V_UNION(ps,iVal), &V_UNION(pd,fltVal) ); break; case( VT_INT ): case( VT_I4 ): res = VarR4FromI4( V_UNION(ps,lVal), &V_UNION(pd,fltVal) ); break; case( VT_UI1 ): res = VarR4FromUI1( V_UNION(ps,bVal), &V_UNION(pd,fltVal) ); break; case( VT_UI2 ): res = VarR4FromUI2( V_UNION(ps,uiVal), &V_UNION(pd,fltVal) ); break; case( VT_UINT ): case( VT_UI4 ): res = VarR4FromUI4( V_UNION(ps,ulVal), &V_UNION(pd,fltVal) ); break; case( VT_R4 ): res = VariantCopy( pd, ps ); break; case( VT_R8 ): res = VarR4FromR8( V_UNION(ps,dblVal), &V_UNION(pd,fltVal) ); break; case( VT_DATE ): res = VarR4FromDate( V_UNION(ps,date), &V_UNION(pd,fltVal) ); break; case( VT_BOOL ): res = VarR4FromBool( V_UNION(ps,boolVal), &V_UNION(pd,fltVal) ); break; case( VT_BSTR ): res = VarR4FromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,fltVal) ); break; case( VT_CY ): res = VarR4FromCy( V_UNION(ps,cyVal), &V_UNION(pd,fltVal) ); break; case( VT_ERROR ): V_UNION(pd,fltVal) = V_UNION(ps,scode); res = S_OK; break; case( VT_DISPATCH ): /*res = VarR4FromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,fltVal) );*/ case( VT_DECIMAL ): /*res = VarR4FromDec( V_UNION(ps,deiVal), &V_UNION(pd,fltVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_R4\n", vtFrom); break; } break; case( VT_R8 ): switch( vtFrom ) { case( VT_I1 ): res = VarR8FromI1( V_UNION(ps,cVal), &V_UNION(pd,dblVal) ); break; case( VT_I2 ): res = VarR8FromI2( V_UNION(ps,iVal), &V_UNION(pd,dblVal) ); break; case( VT_INT ): case( VT_I4 ): res = VarR8FromI4( V_UNION(ps,lVal), &V_UNION(pd,dblVal) ); break; case( VT_UI1 ): res = VarR8FromUI1( V_UNION(ps,bVal), &V_UNION(pd,dblVal) ); break; case( VT_UI2 ): res = VarR8FromUI2( V_UNION(ps,uiVal), &V_UNION(pd,dblVal) ); break; case( VT_UINT ): case( VT_UI4 ): res = VarR8FromUI4( V_UNION(ps,ulVal), &V_UNION(pd,dblVal) ); break; case( VT_R4 ): res = VarR8FromR4( V_UNION(ps,fltVal), &V_UNION(pd,dblVal) ); break; case( VT_R8 ): res = VariantCopy( pd, ps ); break; case( VT_DATE ): res = VarR8FromDate( V_UNION(ps,date), &V_UNION(pd,dblVal) ); break; case( VT_BOOL ): res = VarR8FromBool( V_UNION(ps,boolVal), &V_UNION(pd,dblVal) ); break; case( VT_BSTR ): res = VarR8FromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,dblVal) ); break; case( VT_CY ): res = VarR8FromCy( V_UNION(ps,cyVal), &V_UNION(pd,dblVal) ); break; case( VT_DISPATCH ): /*res = VarR8FromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,dblVal) );*/ case( VT_DECIMAL ): /*res = VarR8FromDec( V_UNION(ps,deiVal), &V_UNION(pd,dblVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_R8\n", vtFrom); break; } break; case( VT_DATE ): switch( vtFrom ) { case( VT_I1 ): res = VarDateFromI1( V_UNION(ps,cVal), &V_UNION(pd,date) ); break; case( VT_I2 ): res = VarDateFromI2( V_UNION(ps,iVal), &V_UNION(pd,date) ); break; case( VT_INT ): res = VarDateFromInt( V_UNION(ps,intVal), &V_UNION(pd,date) ); break; case( VT_I4 ): res = VarDateFromI4( V_UNION(ps,lVal), &V_UNION(pd,date) ); break; case( VT_UI1 ): res = VarDateFromUI1( V_UNION(ps,bVal), &V_UNION(pd,date) ); break; case( VT_UI2 ): res = VarDateFromUI2( V_UNION(ps,uiVal), &V_UNION(pd,date) ); break; case( VT_UINT ): res = VarDateFromUint( V_UNION(ps,uintVal), &V_UNION(pd,date) ); break; case( VT_UI4 ): res = VarDateFromUI4( V_UNION(ps,ulVal), &V_UNION(pd,date) ); break; case( VT_R4 ): res = VarDateFromR4( V_UNION(ps,fltVal), &V_UNION(pd,date) ); break; case( VT_R8 ): res = VarDateFromR8( V_UNION(ps,dblVal), &V_UNION(pd,date) ); break; case( VT_BOOL ): res = VarDateFromBool( V_UNION(ps,boolVal), &V_UNION(pd,date) ); break; case( VT_BSTR ): res = VarDateFromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,date) ); break; case( VT_CY ): res = VarDateFromCy( V_UNION(ps,cyVal), &V_UNION(pd,date) ); break; case( VT_DISPATCH ): /*res = VarDateFromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,date) );*/ case( VT_DECIMAL ): /*res = VarDateFromDec( V_UNION(ps,deiVal), &V_UNION(pd,date) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_DATE\n", vtFrom); break; } break; case( VT_BOOL ): switch( vtFrom ) { case( VT_NULL ): case( VT_EMPTY ): res = S_OK; V_UNION(pd,boolVal) = VARIANT_FALSE; break; case( VT_I1 ): res = VarBoolFromI1( V_UNION(ps,cVal), &V_UNION(pd,boolVal) ); break; case( VT_I2 ): res = VarBoolFromI2( V_UNION(ps,iVal), &V_UNION(pd,boolVal) ); break; case( VT_INT ): res = VarBoolFromInt( V_UNION(ps,intVal), &V_UNION(pd,boolVal) ); break; case( VT_I4 ): res = VarBoolFromI4( V_UNION(ps,lVal), &V_UNION(pd,boolVal) ); break; case( VT_UI1 ): res = VarBoolFromUI1( V_UNION(ps,bVal), &V_UNION(pd,boolVal) ); break; case( VT_UI2 ): res = VarBoolFromUI2( V_UNION(ps,uiVal), &V_UNION(pd,boolVal) ); break; case( VT_UINT ): res = VarBoolFromUint( V_UNION(ps,uintVal), &V_UNION(pd,boolVal) ); break; case( VT_UI4 ): res = VarBoolFromUI4( V_UNION(ps,ulVal), &V_UNION(pd,boolVal) ); break; case( VT_R4 ): res = VarBoolFromR4( V_UNION(ps,fltVal), &V_UNION(pd,boolVal) ); break; case( VT_R8 ): res = VarBoolFromR8( V_UNION(ps,dblVal), &V_UNION(pd,boolVal) ); break; case( VT_DATE ): res = VarBoolFromDate( V_UNION(ps,date), &V_UNION(pd,boolVal) ); break; case( VT_BSTR ): res = VarBoolFromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,boolVal) ); break; case( VT_CY ): res = VarBoolFromCy( V_UNION(ps,cyVal), &V_UNION(pd,boolVal) ); break; case( VT_DISPATCH ): /*res = VarBoolFromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,boolVal) );*/ case( VT_DECIMAL ): /*res = VarBoolFromDec( V_UNION(ps,deiVal), &V_UNION(pd,boolVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_BOOL\n", vtFrom); break; } break; case( VT_BSTR ): switch( vtFrom ) { case( VT_EMPTY ): if ((V_UNION(pd,bstrVal) = SysAllocStringLen(NULL, 0))) res = S_OK; else res = E_OUTOFMEMORY; break; case( VT_I1 ): res = VarBstrFromI1( V_UNION(ps,cVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_I2 ): res = VarBstrFromI2( V_UNION(ps,iVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_INT ): res = VarBstrFromInt( V_UNION(ps,intVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_I4 ): res = VarBstrFromI4( V_UNION(ps,lVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_UI1 ): res = VarBstrFromUI1( V_UNION(ps,bVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_UI2 ): res = VarBstrFromUI2( V_UNION(ps,uiVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_UINT ): res = VarBstrFromUint( V_UNION(ps,uintVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_UI4 ): res = VarBstrFromUI4( V_UNION(ps,ulVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_R4 ): res = VarBstrFromR4( V_UNION(ps,fltVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_R8 ): res = VarBstrFromR8( V_UNION(ps,dblVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_DATE ): res = VarBstrFromDate( V_UNION(ps,date), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_BOOL ): res = VarBstrFromBool( V_UNION(ps,boolVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_BSTR ): res = VariantCopy( pd, ps ); break; case( VT_CY ): res = VarBstrFromCy( V_UNION(ps,cyVal), lcid, 0, &V_UNION(pd,bstrVal) ); break; case( VT_DISPATCH ): /*res = VarBstrFromDisp( V_UNION(ps,pdispVal), lcid, 0, &(pd,bstrVal) );*/ case( VT_DECIMAL ): /*res = VarBstrFromDec( V_UNION(ps,deiVal), lcid, 0, &(pd,bstrVal) );*/ case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_BSTR\n", vtFrom); break; } break; case( VT_CY ): switch( vtFrom ) { case( VT_I1 ): res = VarCyFromI1( V_UNION(ps,cVal), &V_UNION(pd,cyVal) ); break; case( VT_I2 ): res = VarCyFromI2( V_UNION(ps,iVal), &V_UNION(pd,cyVal) ); break; case( VT_INT ): res = VarCyFromInt( V_UNION(ps,intVal), &V_UNION(pd,cyVal) ); break; case( VT_I4 ): res = VarCyFromI4( V_UNION(ps,lVal), &V_UNION(pd,cyVal) ); break; case( VT_UI1 ): res = VarCyFromUI1( V_UNION(ps,bVal), &V_UNION(pd,cyVal) ); break; case( VT_UI2 ): res = VarCyFromUI2( V_UNION(ps,uiVal), &V_UNION(pd,cyVal) ); break; case( VT_UINT ): res = VarCyFromUint( V_UNION(ps,uintVal), &V_UNION(pd,cyVal) ); break; case( VT_UI4 ): res = VarCyFromUI4( V_UNION(ps,ulVal), &V_UNION(pd,cyVal) ); break; case( VT_R4 ): res = VarCyFromR4( V_UNION(ps,fltVal), &V_UNION(pd,cyVal) ); break; case( VT_R8 ): res = VarCyFromR8( V_UNION(ps,dblVal), &V_UNION(pd,cyVal) ); break; case( VT_DATE ): res = VarCyFromDate( V_UNION(ps,date), &V_UNION(pd,cyVal) ); break; case( VT_BOOL ): res = VarCyFromBool( V_UNION(ps,date), &V_UNION(pd,cyVal) ); break; case( VT_CY ): res = VariantCopy( pd, ps ); break; case( VT_BSTR ): res = VarCyFromStr( V_UNION(ps,bstrVal), lcid, 0, &V_UNION(pd,cyVal) ); break; case( VT_DISPATCH ): /*res = VarCyFromDisp( V_UNION(ps,pdispVal), lcid, &V_UNION(pd,cyVal) );*/ case( VT_DECIMAL ): /*res = VarCyFromDec( V_UNION(ps,deiVal), &V_UNION(pd,cyVal) );*/ break; case( VT_UNKNOWN ): default: res = DISP_E_TYPEMISMATCH; FIXME("Coercion from %d to VT_CY\n", vtFrom); break; } break; case( VT_UNKNOWN ): switch (vtFrom) { case VT_DISPATCH: if (V_DISPATCH(ps) == NULL) { V_UNKNOWN(pd) = NULL; } else { res = IDispatch_QueryInterface(V_DISPATCH(ps), &IID_IUnknown, (LPVOID*)&V_UNKNOWN(pd)); } break; case VT_EMPTY: case VT_NULL: case VT_I2: case VT_I4: case VT_R4: case VT_R8: case VT_CY: case VT_DATE: case VT_BSTR: case VT_ERROR: case VT_BOOL: case VT_VARIANT: case VT_DECIMAL: case VT_I1: case VT_UI1: case VT_UI2: case VT_UI4: case VT_I8: case VT_UI8: case VT_INT: case VT_UINT: case VT_VOID: case VT_HRESULT: case VT_PTR: case VT_SAFEARRAY: case VT_CARRAY: case VT_USERDEFINED: case VT_LPSTR: case VT_LPWSTR: case VT_RECORD: case VT_FILETIME: case VT_BLOB: case VT_STREAM: case VT_STORAGE: case VT_STREAMED_OBJECT: case VT_STORED_OBJECT: case VT_BLOB_OBJECT: case VT_CF: case VT_CLSID: res = DISP_E_TYPEMISMATCH; break; default: FIXME("Coercion from %d to VT_UNKNOWN unhandled.\n", vtFrom); res = DISP_E_BADVARTYPE; break; } break; case( VT_DISPATCH ): switch (vtFrom) { case VT_UNKNOWN: if (V_UNION(ps,punkVal) == NULL) { V_UNION(pd,pdispVal) = NULL; } else { res = IUnknown_QueryInterface(V_UNION(ps,punkVal), &IID_IDispatch, (LPVOID*)&V_UNION(pd,pdispVal)); } break; case VT_EMPTY: case VT_NULL: case VT_I2: case VT_I4: case VT_R4: case VT_R8: case VT_CY: case VT_DATE: case VT_BSTR: case VT_ERROR: case VT_BOOL: case VT_VARIANT: case VT_DECIMAL: case VT_I1: case VT_UI1: case VT_UI2: case VT_UI4: case VT_I8: case VT_UI8: case VT_INT: case VT_UINT: case VT_VOID: case VT_HRESULT: case VT_SAFEARRAY: case VT_CARRAY: case VT_USERDEFINED: case VT_LPSTR: case VT_LPWSTR: case VT_RECORD: case VT_FILETIME: case VT_BLOB: case VT_STREAM: case VT_STORAGE: case VT_STREAMED_OBJECT: case VT_STORED_OBJECT: case VT_BLOB_OBJECT: case VT_CF: case VT_CLSID: res = DISP_E_TYPEMISMATCH; break; case VT_PTR: V_UNION(pd,pdispVal) = V_UNION(ps,pdispVal); break; default: FIXME("Coercion from %d to VT_DISPATCH unhandled.\n", vtFrom); res = DISP_E_BADVARTYPE; break; } break; default: res = DISP_E_TYPEMISMATCH; FIXME("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 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; } /* Copy data from one variant to another. */ static void VARIANT_CopyData(const VARIANT *srcVar, VARTYPE vt, void *pOut) { switch(vt) { case VT_I1: case VT_UI1: memcpy(pOut, &V_UI1(srcVar), sizeof(BYTE)); break; case VT_BOOL: case VT_I2: case VT_UI2: memcpy(pOut, &V_UI2(srcVar), sizeof(SHORT)); break; case VT_R4: case VT_I4: case VT_UI4: memcpy(pOut, &V_UI4(srcVar), sizeof (LONG)); break; case VT_R8: case VT_DATE: case VT_CY: case VT_I8: case VT_UI8: memcpy(pOut, &V_UI8(srcVar), sizeof (LONG64)); break; case VT_DECIMAL: memcpy(pOut, &V_DECIMAL(srcVar), sizeof (DECIMAL)); break; default: FIXME("VT_ type %d unhandled, please report!\n", vt); } } /* Coerce VT_DISPATCH to another type */ HRESULT VARIANT_FromDisp(IDispatch* pdispIn, LCID lcid, void* pOut, VARTYPE vt) { VARIANTARG srcVar, dstVar; HRESULT hRet; V_VT(&srcVar) = VT_DISPATCH; V_DISPATCH(&srcVar) = pdispIn; hRet = VariantChangeTypeEx(&dstVar, &srcVar, lcid, 0, vt); if (SUCCEEDED(hRet)) VARIANT_CopyData(&dstVar, vt, pOut); return hRet; } /* Coerce VT_BSTR to a numeric type */ HRESULT VARIANT_NumberFromBstr(OLECHAR* pStrIn, LCID lcid, ULONG ulFlags, void* pOut, VARTYPE vt) { VARIANTARG dstVar; HRESULT hRet; NUMPARSE np; BYTE rgb[1024]; /* Use VarParseNumFromStr/VarNumFromParseNum as MSDN indicates */ np.cDig = sizeof(rgb) / sizeof(BYTE); np.dwInFlags = NUMPRS_STD; hRet = VarParseNumFromStr(pStrIn, lcid, ulFlags, &np, rgb); if (SUCCEEDED(hRet)) { /* 1 << vt gives us the VTBIT constant for the destination number type */ hRet = VarNumFromParseNum(&np, rgb, 1 << vt, &dstVar); if (SUCCEEDED(hRet)) VARIANT_CopyData(&dstVar, vt, pOut); } return hRet; } /****************************************************************************** * ValidateVartype [INTERNAL] * * Used internally by the hi-level Variant API to determine * if the vartypes are valid. */ static HRESULT 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 = DISP_E_BADVARTYPE; } } 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 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; } /****************************************************************************** * Check if a variants type is valid. */ static inline HRESULT VARIANT_ValidateType(VARTYPE vt) { VARTYPE vtExtra = vt & VT_EXTRA_TYPE; vt &= VT_TYPEMASK; if (!(vtExtra & (VT_VECTOR|VT_RESERVED))) { if (vt < VT_VOID || vt == VT_RECORD || vt == VT_CLSID) { if ((vtExtra & (VT_BYREF|VT_ARRAY)) && vt <= VT_NULL) return DISP_E_BADVARTYPE; if (vt != (VARTYPE)15) return S_OK; } } return DISP_E_BADVARTYPE; } /****************************************************************************** * VariantInit [OLEAUT32.8] * * Initialise a variant. * * PARAMS * pVarg [O] Variant to initialise * * RETURNS * Nothing. * * NOTES * This function simply sets the type of the variant to VT_EMPTY. It does not * free any existing value, use VariantClear() for that. */ void WINAPI VariantInit(VARIANTARG* pVarg) { TRACE("(%p)\n", pVarg); V_VT(pVarg) = VT_EMPTY; /* Native doesn't set any other fields */ } /****************************************************************************** * VariantClear [OLEAUT32.9] * * Clear a variant. * * PARAMS * pVarg [I/O] Variant to clear * * RETURNS * Success: S_OK. Any previous value in pVarg is freed and its type is set to VT_EMPTY. * Failure: DISP_E_BADVARTYPE, if the variant is a not a valid variant type. */ HRESULT WINAPI VariantClear(VARIANTARG* pVarg) { HRESULT hres = S_OK; TRACE("(%p)\n", pVarg); hres = VARIANT_ValidateType(V_VT(pVarg)); if (SUCCEEDED(hres)) { if (!V_ISBYREF(pVarg)) { if (V_ISARRAY(pVarg) || V_VT(pVarg) == VT_SAFEARRAY) { if (V_ARRAY(pVarg)) hres = SafeArrayDestroy(V_ARRAY(pVarg)); } else if (V_VT(pVarg) == VT_BSTR) { if (V_BSTR(pVarg)) SysFreeString(V_BSTR(pVarg)); } else if (V_VT(pVarg) == VT_RECORD) { struct __tagBRECORD* pBr = &V_UNION(pVarg,brecVal); if (pBr->pRecInfo) { IRecordInfo_RecordClear(pBr->pRecInfo, pBr->pvRecord); IRecordInfo_Release(pBr->pRecInfo); } } else if (V_VT(pVarg) == VT_DISPATCH || V_VT(pVarg) == VT_UNKNOWN) { if (V_UNKNOWN(pVarg)) IUnknown_Release(V_UNKNOWN(pVarg)); } else if (V_VT(pVarg) == VT_VARIANT) { if (V_VARIANTREF(pVarg)) VariantClear(V_VARIANTREF(pVarg)); } } V_VT(pVarg) = VT_EMPTY; } return hres; } /****************************************************************************** * VariantCopy [OLEAUT32.10] * * Copy a variant. * * PARAMS * pvargDest [O] Destination for copy * pvargSrc [I] Source variant to copy * * RETURNS * Success: S_OK. pvargDest contains a copy of pvargSrc. * Failure: An HRESULT error code indicating the error. * * NOTES * pvargDest is always freed, and may be equal to pvargSrc. * If pvargSrc is by-reference, pvargDest is by-reference also. */ HRESULT WINAPI VariantCopy(VARIANTARG* pvargDest, VARIANTARG* pvargSrc) { HRESULT res = S_OK; TRACE("(%p, %p), vt=%d\n", pvargDest, pvargSrc, V_VT(pvargSrc)); res = ValidateVariantType( V_VT(pvargSrc) ); /* If the pointer are to the same variant we don't need * to do anything. */ if( pvargDest != pvargSrc && res == S_OK ) { VariantClear( pvargDest ); /* result is not checked */ if( V_VT(pvargSrc) & VT_BYREF ) { /* In the case of byreference we only need * to copy the pointer. */ pvargDest->n1.n2.n3 = pvargSrc->n1.n2.n3; V_VT(pvargDest) = V_VT(pvargSrc); } else { /* * The VT_ARRAY flag is another way to designate a safe array. */ if (V_VT(pvargSrc) & VT_ARRAY) { SafeArrayCopy(V_UNION(pvargSrc,parray), &V_UNION(pvargDest,parray)); } else { /* In the case of by value we need to * copy the actual value. In the case of * VT_BSTR a copy of the string is made, * if VT_DISPATCH or VT_IUNKNOWN AddRef is * called to increment the object's reference count. */ switch( V_VT(pvargSrc) & VT_TYPEMASK ) { case( VT_BSTR ): V_UNION(pvargDest,bstrVal) = SYSDUPSTRING( V_UNION(pvargSrc,bstrVal) ); break; case( VT_DISPATCH ): V_UNION(pvargDest,pdispVal) = V_UNION(pvargSrc,pdispVal); if (V_UNION(pvargDest,pdispVal)!=NULL) IDispatch_AddRef(V_UNION(pvargDest,pdispVal)); break; case( VT_VARIANT ): VariantCopy(V_UNION(pvargDest,pvarVal),V_UNION(pvargSrc,pvarVal)); break; case( VT_UNKNOWN ): V_UNION(pvargDest,punkVal) = V_UNION(pvargSrc,punkVal); if (V_UNION(pvargDest,pdispVal)!=NULL) IUnknown_AddRef(V_UNION(pvargDest,punkVal)); break; case( VT_SAFEARRAY ): SafeArrayCopy(V_UNION(pvargSrc,parray), &V_UNION(pvargDest,parray)); break; default: pvargDest->n1.n2.n3 = pvargSrc->n1.n2.n3; break; } } V_VT(pvargDest) = V_VT(pvargSrc); dump_Variant(pvargDest); } } return res; } /****************************************************************************** * VariantCopyInd [OLEAUT32.11] * * * Copy a variant, dereferencing if it is by-reference. * * PARAMS * pvargDest [O] Destination for copy * pvargSrc [I] Source variant to copy * * RETURNS * Success: S_OK. pvargDest contains a copy of pvargSrc. * Failure: An HRESULT error code indicating the error. * * NOTES * pvargDest is always freed, and may be equal to pvargSrc. * If pvargSrc is not by-reference, this function acts as VariantCopy(). */ HRESULT WINAPI VariantCopyInd(VARIANT* pvargDest, VARIANTARG* pvargSrc) { HRESULT res = S_OK; TRACE("(%p, %p)\n", pvargDest, pvargSrc); res = ValidateVariantType( V_VT(pvargSrc) ); if( res != S_OK ) return res; if( V_VT(pvargSrc) & VT_BYREF ) { VARIANTARG varg; VariantInit( &varg ); /* handle the in place copy. */ if( pvargDest == pvargSrc ) { /* we will use a copy of the source instead. */ res = VariantCopy( &varg, pvargSrc ); pvargSrc = &varg; } if( res == S_OK ) { res = VariantClear( pvargDest ); if( res == S_OK ) { /* * The VT_ARRAY flag is another way to designate a safearray variant. */ if ( V_VT(pvargSrc) & VT_ARRAY) { SafeArrayCopy(*V_UNION(pvargSrc,pparray), &V_UNION(pvargDest,parray)); } else { /* In the case of by reference we need * to copy the date pointed to by the variant. */ /* Get the variant type. */ switch( V_VT(pvargSrc) & VT_TYPEMASK ) { case( VT_BSTR ): V_UNION(pvargDest,bstrVal) = SYSDUPSTRING( *(V_UNION(pvargSrc,pbstrVal)) ); break; case( VT_DISPATCH ): V_UNION(pvargDest,pdispVal) = *V_UNION(pvargSrc,ppdispVal); if (V_UNION(pvargDest,pdispVal)!=NULL) IDispatch_AddRef(V_UNION(pvargDest,pdispVal)); 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->n1.n2.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. */ (V_UNION(pvargSrc,pvarVal))->n1.n2.wReserved1 |= PROCESSING_INNER_VARIANT; /* Dereference the inner variant. */ res = VariantCopyInd( pvargDest, V_UNION(pvargSrc,pvarVal) ); /* We must also copy its type, I think. */ V_VT(pvargSrc) = V_VT(V_UNION(pvargSrc,pvarVal)); } } break; case( VT_UNKNOWN ): V_UNION(pvargDest,punkVal) = *V_UNION(pvargSrc,ppunkVal); if (V_UNION(pvargDest,pdispVal)!=NULL) IUnknown_AddRef(V_UNION(pvargDest,punkVal)); break; case( VT_SAFEARRAY ): SafeArrayCopy(*V_UNION(pvargSrc,pparray), &V_UNION(pvargDest,parray)); 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 "V_VT(pvargSrc) & 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->n1.n2.n3, V_UNION(pvargSrc,byref), SizeOfVariantData( pvargSrc ) ); break; } } if (res == S_OK) V_VT(pvargDest) = V_VT(pvargSrc) & VT_TYPEMASK; } } /* this should not fail. */ VariantClear( &varg ); } else { res = VariantCopy( pvargDest, pvargSrc ); } return res; } /****************************************************************************** * Coerces a full safearray. Not optimal code. */ static HRESULT coerce_array( VARIANTARG* src, VARIANTARG *dst, LCID lcid, USHORT wFlags, VARTYPE vt ) { SAFEARRAY *sarr = V_ARRAY(src); HRESULT hres; LPVOID data; VARTYPE vartype; SafeArrayGetVartype(sarr,&vartype); switch (vt) { case VT_BSTR: if (sarr->cDims != 1) { FIXME("Can not coerce array with dim %d into BSTR\n", sarr->cDims); return E_FAIL; } switch (V_VT(src) & VT_TYPEMASK) { case VT_UI1: hres = SafeArrayAccessData(sarr, &data); if (FAILED(hres)) return hres; /* Yes, just memcpied apparently. */ V_BSTR(dst) = SysAllocStringByteLen(data, sarr->rgsabound[0].cElements); hres = SafeArrayUnaccessData(sarr); if (FAILED(hres)) return hres; break; default: FIXME("Cannot coerce array of %d into BSTR yet. Please report!\n", V_VT(src) & VT_TYPEMASK); return E_FAIL; } break; case VT_SAFEARRAY: V_VT(dst) = VT_SAFEARRAY; return SafeArrayCopy(sarr, &V_ARRAY(dst)); default: FIXME("Cannot coerce array of vt 0x%x/0x%x into vt 0x%x yet. Please report/implement!\n", vartype, V_VT(src), vt); return E_FAIL; } return S_OK; } /****************************************************************************** * VariantChangeType [OLEAUT32.12] * * Change the type of a variant. * * PARAMS * pvargDest [O] Destination for the converted variant * pvargSrc [O] Source variant to change the type of * wFlags [I] VARIANT_ flags from "oleauto.h" * vt [I] Variant type to change pvargSrc into * * RETURNS * Success: S_OK. pvargDest contains the converted value. * Failure: An HRESULT error code describing the failure. * * NOTES * The LCID used for the conversion is LOCALE_USER_DEFAULT. * See VariantChangeTypeEx. */ HRESULT WINAPI VariantChangeType(VARIANTARG* pvargDest, VARIANTARG* pvargSrc, USHORT wFlags, VARTYPE vt) { return VariantChangeTypeEx( pvargDest, pvargSrc, 0, wFlags, vt ); } /****************************************************************************** * VariantChangeTypeEx [OLEAUT32.147] * * Change the type of a variant. * * PARAMS * pvargDest [O] Destination for the converted variant * pvargSrc [O] Source variant to change the type of * lcid [I] LCID for the conversion * wFlags [I] VARIANT_ flags from "oleauto.h" * vt [I] Variant type to change pvargSrc into * * RETURNS * Success: S_OK. pvargDest contains the converted value. * Failure: An HRESULT error code describing the failure. * * NOTES * pvargDest and pvargSrc can point to the same variant to perform an in-place * conversion. If the conversion is successful, pvargSrc will be freed. */ HRESULT WINAPI VariantChangeTypeEx(VARIANTARG* pvargDest, VARIANTARG* pvargSrc, LCID lcid, USHORT wFlags, VARTYPE vt) { HRESULT res = S_OK; VARIANTARG varg; VariantInit( &varg ); TRACE("(%p, %p, %ld, %u, %u) vt=%d\n", pvargDest, pvargSrc, lcid, wFlags, vt, V_VT(pvargSrc)); TRACE("Src Var:\n"); dump_Variant(pvargSrc); /* validate our source argument. */ res = ValidateVariantType( V_VT(pvargSrc) ); /* 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 = VariantCopy( &varg, pvargSrc ); pvargSrc = &varg; } if( res == S_OK ) { /* free up the destination variant. */ res = VariantClear( pvargDest ); } if( res == S_OK ) { if( V_VT(pvargSrc) & VT_BYREF ) { /* Convert the source variant to a "byvalue" variant. */ VARIANTARG Variant; if ((V_VT(pvargSrc) & 0xf000) != VT_BYREF) { FIXME("VT_TYPEMASK %x is unhandled.\n",V_VT(pvargSrc) & VT_TYPEMASK); return E_FAIL; } VariantInit( &Variant ); res = VariantCopyInd( &Variant, pvargSrc ); if( res == S_OK ) { res = Coerce( pvargDest, lcid, wFlags, &Variant, vt ); /* this should not fail. */ VariantClear( &Variant ); } } else { if (V_VT(pvargSrc) & VT_ARRAY) { if ((V_VT(pvargSrc) & 0xf000) != VT_ARRAY) { FIXME("VT_TYPEMASK %x is unhandled in VT_ARRAY.\n",V_VT(pvargSrc) & VT_TYPEMASK); return E_FAIL; } V_VT(pvargDest) = VT_ARRAY | vt; res = coerce_array(pvargSrc, pvargDest, lcid, wFlags, vt); } else { if ((V_VT(pvargSrc) & 0xf000)) { FIXME("VT_TYPEMASK %x is unhandled in normal case.\n",V_VT(pvargSrc) & VT_TYPEMASK); return E_FAIL; } /* Use the current "byvalue" source variant. */ res = Coerce( pvargDest, lcid, wFlags, pvargSrc, vt ); } } } /* this should not fail. */ VariantClear( &varg ); /* set the type of the destination */ if ( res == S_OK ) V_VT(pvargDest) = vt; TRACE("Dest Var:\n"); dump_Variant(pvargDest); return res; } /****************************************************************************** * VarUI1FromI2 [OLEAUT32.130] */ HRESULT WINAPI VarUI1FromI2(short sIn, BYTE* pbOut) { TRACE("( %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; } /****************************************************************************** * VarUI1FromI4 [OLEAUT32.131] */ HRESULT WINAPI VarUI1FromI4(LONG lIn, BYTE* pbOut) { TRACE("( %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; } /****************************************************************************** * VarUI1FromR4 [OLEAUT32.132] */ HRESULT WINAPI VarUI1FromR4(FLOAT fltIn, BYTE* pbOut) { TRACE("( %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; } /****************************************************************************** * VarUI1FromR8 [OLEAUT32.133] */ HRESULT WINAPI VarUI1FromR8(double dblIn, BYTE* pbOut) { TRACE("( %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; } /****************************************************************************** * VarUI1FromDate [OLEAUT32.135] */ HRESULT WINAPI VarUI1FromDate(DATE dateIn, BYTE* pbOut) { TRACE("( %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; } /****************************************************************************** * VarUI1FromBool [OLEAUT32.138] */ HRESULT WINAPI VarUI1FromBool(VARIANT_BOOL boolIn, BYTE* pbOut) { TRACE("( %d, %p ), stub\n", boolIn, pbOut ); *pbOut = (BYTE) boolIn; return S_OK; } /****************************************************************************** * VarUI1FromI1 [OLEAUT32.237] */ HRESULT WINAPI VarUI1FromI1(signed char cIn, BYTE* pbOut) { TRACE("( %c, %p ), stub\n", cIn, pbOut ); *pbOut = cIn; return S_OK; } /****************************************************************************** * VarUI1FromUI2 [OLEAUT32.238] */ HRESULT WINAPI VarUI1FromUI2(USHORT uiIn, BYTE* pbOut) { TRACE("( %d, %p ), stub\n", uiIn, pbOut ); /* Check range of value. */ if( uiIn > UI1_MAX ) { return DISP_E_OVERFLOW; } *pbOut = (BYTE) uiIn; return S_OK; } /****************************************************************************** * VarUI1FromUI4 [OLEAUT32.239] */ HRESULT WINAPI VarUI1FromUI4(ULONG ulIn, BYTE* pbOut) { TRACE("( %ld, %p ), stub\n", ulIn, pbOut ); /* Check range of value. */ if( ulIn > UI1_MAX ) { return DISP_E_OVERFLOW; } *pbOut = (BYTE) ulIn; return S_OK; } /****************************************************************************** * VarUI1FromStr [OLEAUT32.136] */ HRESULT WINAPI VarUI1FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, BYTE* pbOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, pbOut); return _VarUI1FromStr(strIn, lcid, dwFlags, pbOut); } /********************************************************************** * VarUI1FromCy [OLEAUT32.134] * Convert currency to unsigned char */ HRESULT WINAPI VarUI1FromCy(CY cyIn, BYTE* pbOut) { double t = round((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); if (t > UI1_MAX || t < UI1_MIN) return DISP_E_OVERFLOW; *pbOut = (BYTE)t; return S_OK; } /****************************************************************************** * VarI2FromUI1 [OLEAUT32.48] */ HRESULT WINAPI VarI2FromUI1(BYTE bIn, short* psOut) { TRACE("( 0x%08x, %p ), stub\n", bIn, psOut ); *psOut = (short) bIn; return S_OK; } /****************************************************************************** * VarI2FromI4 [OLEAUT32.49] */ HRESULT WINAPI VarI2FromI4(LONG lIn, short* psOut) { TRACE("( %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; } /****************************************************************************** * VarI2FromR4 [OLEAUT32.50] */ HRESULT WINAPI VarI2FromR4(FLOAT fltIn, short* psOut) { TRACE("( %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; } /****************************************************************************** * VarI2FromR8 [OLEAUT32.51] */ HRESULT WINAPI VarI2FromR8(double dblIn, short* psOut) { TRACE("( %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; } /****************************************************************************** * VarI2FromDate [OLEAUT32.53] */ HRESULT WINAPI VarI2FromDate(DATE dateIn, short* psOut) { TRACE("( %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; } /****************************************************************************** * VarI2FromBool [OLEAUT32.56] */ HRESULT WINAPI VarI2FromBool(VARIANT_BOOL boolIn, short* psOut) { TRACE("( %d, %p ), stub\n", boolIn, psOut ); *psOut = (short) boolIn; return S_OK; } /****************************************************************************** * VarI2FromI1 [OLEAUT32.205] */ HRESULT WINAPI VarI2FromI1(signed char cIn, short* psOut) { TRACE("( %c, %p ), stub\n", cIn, psOut ); *psOut = (short) cIn; return S_OK; } /****************************************************************************** * VarI2FromUI2 [OLEAUT32.206] */ HRESULT WINAPI VarI2FromUI2(USHORT uiIn, short* psOut) { TRACE("( %d, %p ), stub\n", uiIn, psOut ); /* Check range of value. */ if( uiIn > I2_MAX ) { return DISP_E_OVERFLOW; } *psOut = (short) uiIn; return S_OK; } /****************************************************************************** * VarI2FromUI4 [OLEAUT32.207] */ HRESULT WINAPI VarI2FromUI4(ULONG ulIn, short* psOut) { TRACE("( %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; } /****************************************************************************** * VarI2FromStr [OLEAUT32.54] */ HRESULT WINAPI VarI2FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, short* psOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, psOut); return _VarI2FromStr(strIn, lcid, dwFlags, psOut); } /********************************************************************** * VarI2FromCy [OLEAUT32.52] * Convert currency to signed short */ HRESULT WINAPI VarI2FromCy(CY cyIn, short* psOut) { double t = round((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); if (t > I2_MAX || t < I2_MIN) return DISP_E_OVERFLOW; *psOut = (SHORT)t; return S_OK; } /****************************************************************************** * VarI4FromUI1 [OLEAUT32.58] */ HRESULT WINAPI VarI4FromUI1(BYTE bIn, LONG* plOut) { TRACE("( %X, %p ), stub\n", bIn, plOut ); *plOut = (LONG) bIn; return S_OK; } /****************************************************************************** * VarI4FromR4 [OLEAUT32.60] */ HRESULT WINAPI VarI4FromR4(FLOAT fltIn, LONG* plOut) { TRACE("( %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; } /****************************************************************************** * VarI4FromR8 [OLEAUT32.61] */ HRESULT WINAPI VarI4FromR8(double dblIn, LONG* plOut) { TRACE("( %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; } /****************************************************************************** * VarI4FromDate [OLEAUT32.63] */ HRESULT WINAPI VarI4FromDate(DATE dateIn, LONG* plOut) { TRACE("( %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; } /****************************************************************************** * VarI4FromBool [OLEAUT32.66] */ HRESULT WINAPI VarI4FromBool(VARIANT_BOOL boolIn, LONG* plOut) { TRACE("( %d, %p ), stub\n", boolIn, plOut ); *plOut = (LONG) boolIn; return S_OK; } /****************************************************************************** * VarI4FromI1 [OLEAUT32.209] */ HRESULT WINAPI VarI4FromI1(signed char cIn, LONG* plOut) { TRACE("( %c, %p ), stub\n", cIn, plOut ); *plOut = (LONG) cIn; return S_OK; } /****************************************************************************** * VarI4FromUI2 [OLEAUT32.210] */ HRESULT WINAPI VarI4FromUI2(USHORT uiIn, LONG* plOut) { TRACE("( %d, %p ), stub\n", uiIn, plOut ); *plOut = (LONG) uiIn; return S_OK; } /****************************************************************************** * VarI4FromUI4 [OLEAUT32.211] */ HRESULT WINAPI VarI4FromUI4(ULONG ulIn, LONG* plOut) { TRACE("( %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; } /****************************************************************************** * VarI4FromI2 [OLEAUT32.59] */ HRESULT WINAPI VarI4FromI2(short sIn, LONG* plOut) { TRACE("( %d, %p ), stub\n", sIn, plOut ); *plOut = (LONG) sIn; return S_OK; } /****************************************************************************** * VarI4FromStr [OLEAUT32.64] */ HRESULT WINAPI VarI4FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, LONG* plOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, plOut); return _VarI4FromStr(strIn, lcid, dwFlags, plOut); } /********************************************************************** * VarI4FromCy [OLEAUT32.62] * Convert currency to signed long */ HRESULT WINAPI VarI4FromCy(CY cyIn, LONG* plOut) { double t = round((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); if (t > I4_MAX || t < I4_MIN) return DISP_E_OVERFLOW; *plOut = (LONG)t; return S_OK; } /****************************************************************************** * VarR4FromUI1 [OLEAUT32.68] */ HRESULT WINAPI VarR4FromUI1(BYTE bIn, FLOAT* pfltOut) { TRACE("( %X, %p ), stub\n", bIn, pfltOut ); *pfltOut = (FLOAT) bIn; return S_OK; } /****************************************************************************** * VarR4FromI2 [OLEAUT32.69] */ HRESULT WINAPI VarR4FromI2(short sIn, FLOAT* pfltOut) { TRACE("( %d, %p ), stub\n", sIn, pfltOut ); *pfltOut = (FLOAT) sIn; return S_OK; } /****************************************************************************** * VarR4FromI4 [OLEAUT32.70] */ HRESULT WINAPI VarR4FromI4(LONG lIn, FLOAT* pfltOut) { TRACE("( %lx, %p ), stub\n", lIn, pfltOut ); *pfltOut = (FLOAT) lIn; return S_OK; } /****************************************************************************** * VarR4FromR8 [OLEAUT32.71] */ HRESULT WINAPI VarR4FromR8(double dblIn, FLOAT* pfltOut) { TRACE("( %f, %p ), stub\n", dblIn, pfltOut ); /* Check range of value. */ if( dblIn < -(R4_MAX) || dblIn > R4_MAX ) { return DISP_E_OVERFLOW; } *pfltOut = (FLOAT) dblIn; return S_OK; } /****************************************************************************** * VarR4FromDate [OLEAUT32.73] */ HRESULT WINAPI VarR4FromDate(DATE dateIn, FLOAT* pfltOut) { TRACE("( %f, %p ), stub\n", dateIn, pfltOut ); /* Check range of value. */ if( dateIn < -(R4_MAX) || dateIn > R4_MAX ) { return DISP_E_OVERFLOW; } *pfltOut = (FLOAT) dateIn; return S_OK; } /****************************************************************************** * VarR4FromBool [OLEAUT32.76] */ HRESULT WINAPI VarR4FromBool(VARIANT_BOOL boolIn, FLOAT* pfltOut) { TRACE("( %d, %p ), stub\n", boolIn, pfltOut ); *pfltOut = (FLOAT) boolIn; return S_OK; } /****************************************************************************** * VarR4FromI1 [OLEAUT32.213] */ HRESULT WINAPI VarR4FromI1(signed char cIn, FLOAT* pfltOut) { TRACE("( %c, %p ), stub\n", cIn, pfltOut ); *pfltOut = (FLOAT) cIn; return S_OK; } /****************************************************************************** * VarR4FromUI2 [OLEAUT32.214] */ HRESULT WINAPI VarR4FromUI2(USHORT uiIn, FLOAT* pfltOut) { TRACE("( %d, %p ), stub\n", uiIn, pfltOut ); *pfltOut = (FLOAT) uiIn; return S_OK; } /****************************************************************************** * VarR4FromUI4 [OLEAUT32.215] */ HRESULT WINAPI VarR4FromUI4(ULONG ulIn, FLOAT* pfltOut) { TRACE("( %ld, %p ), stub\n", ulIn, pfltOut ); *pfltOut = (FLOAT) ulIn; return S_OK; } /****************************************************************************** * VarR4FromStr [OLEAUT32.74] */ HRESULT WINAPI VarR4FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, FLOAT* pfltOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, pfltOut); return _VarR4FromStr(strIn, lcid, dwFlags, pfltOut); } /********************************************************************** * VarR4FromCy [OLEAUT32.72] * Convert currency to float */ HRESULT WINAPI VarR4FromCy(CY cyIn, FLOAT* pfltOut) { *pfltOut = (FLOAT)((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); return S_OK; } /****************************************************************************** * VarR8FromUI1 [OLEAUT32.78] */ HRESULT WINAPI VarR8FromUI1(BYTE bIn, double* pdblOut) { TRACE("( %d, %p ), stub\n", bIn, pdblOut ); *pdblOut = (double) bIn; return S_OK; } /****************************************************************************** * VarR8FromI2 [OLEAUT32.79] */ HRESULT WINAPI VarR8FromI2(short sIn, double* pdblOut) { TRACE("( %d, %p ), stub\n", sIn, pdblOut ); *pdblOut = (double) sIn; return S_OK; } /****************************************************************************** * VarR8FromI4 [OLEAUT32.80] */ HRESULT WINAPI VarR8FromI4(LONG lIn, double* pdblOut) { TRACE("( %ld, %p ), stub\n", lIn, pdblOut ); *pdblOut = (double) lIn; return S_OK; } /****************************************************************************** * VarR8FromR4 [OLEAUT32.81] */ HRESULT WINAPI VarR8FromR4(FLOAT fltIn, double* pdblOut) { TRACE("( %f, %p ), stub\n", fltIn, pdblOut ); *pdblOut = (double) fltIn; return S_OK; } /****************************************************************************** * VarR8FromDate [OLEAUT32.83] */ HRESULT WINAPI VarR8FromDate(DATE dateIn, double* pdblOut) { TRACE("( %f, %p ), stub\n", dateIn, pdblOut ); *pdblOut = (double) dateIn; return S_OK; } /****************************************************************************** * VarR8FromBool [OLEAUT32.86] */ HRESULT WINAPI VarR8FromBool(VARIANT_BOOL boolIn, double* pdblOut) { TRACE("( %d, %p ), stub\n", boolIn, pdblOut ); *pdblOut = (double) boolIn; return S_OK; } /****************************************************************************** * VarR8FromI1 [OLEAUT32.217] */ HRESULT WINAPI VarR8FromI1(signed char cIn, double* pdblOut) { TRACE("( %c, %p ), stub\n", cIn, pdblOut ); *pdblOut = (double) cIn; return S_OK; } /****************************************************************************** * VarR8FromUI2 [OLEAUT32.218] */ HRESULT WINAPI VarR8FromUI2(USHORT uiIn, double* pdblOut) { TRACE("( %d, %p ), stub\n", uiIn, pdblOut ); *pdblOut = (double) uiIn; return S_OK; } /****************************************************************************** * VarR8FromUI4 [OLEAUT32.219] */ HRESULT WINAPI VarR8FromUI4(ULONG ulIn, double* pdblOut) { TRACE("( %ld, %p ), stub\n", ulIn, pdblOut ); *pdblOut = (double) ulIn; return S_OK; } /****************************************************************************** * VarR8FromStr [OLEAUT32.84] */ HRESULT WINAPI VarR8FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, double* pdblOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, pdblOut); return _VarR8FromStr(strIn, lcid, dwFlags, pdblOut); } /********************************************************************** * VarR8FromCy [OLEAUT32.82] * Convert currency to double */ HRESULT WINAPI VarR8FromCy(CY cyIn, double* pdblOut) { *pdblOut = (double)((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); TRACE("%lu %ld -> %f\n", cyIn.s.Hi, cyIn.s.Lo, *pdblOut); return S_OK; } /****************************************************************************** * VarDateFromUI1 [OLEAUT32.88] */ HRESULT WINAPI VarDateFromUI1(BYTE bIn, DATE* pdateOut) { TRACE("( %d, %p ), stub\n", bIn, pdateOut ); *pdateOut = (DATE) bIn; return S_OK; } /****************************************************************************** * VarDateFromI2 [OLEAUT32.89] */ HRESULT WINAPI VarDateFromI2(short sIn, DATE* pdateOut) { TRACE("( %d, %p ), stub\n", sIn, pdateOut ); *pdateOut = (DATE) sIn; return S_OK; } /****************************************************************************** * VarDateFromI4 [OLEAUT32.90] */ HRESULT WINAPI VarDateFromI4(LONG lIn, DATE* pdateOut) { TRACE("( %ld, %p ), stub\n", lIn, pdateOut ); if( lIn < DATE_MIN || lIn > DATE_MAX ) { return DISP_E_OVERFLOW; } *pdateOut = (DATE) lIn; return S_OK; } /****************************************************************************** * VarDateFromR4 [OLEAUT32.91] */ HRESULT WINAPI VarDateFromR4(FLOAT fltIn, DATE* pdateOut) { TRACE("( %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; } /****************************************************************************** * VarDateFromR8 [OLEAUT32.92] */ HRESULT WINAPI VarDateFromR8(double dblIn, DATE* pdateOut) { TRACE("( %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; } /****************************************************************************** * VarDateFromStr [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 VarDateFromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, DATE* pdateOut) { HRESULT ret = S_OK; struct tm TM; memset( &TM, 0, sizeof(TM) ); TRACE("( %p, %lx, %lx, %p ), stub\n", strIn, lcid, dwFlags, pdateOut ); if( DateTimeStringToTm( strIn, dwFlags, &TM ) ) { if( TmToDATE( &TM, pdateOut ) == FALSE ) { ret = E_INVALIDARG; } } else { ret = DISP_E_TYPEMISMATCH; } TRACE("Return value %f\n", *pdateOut); return ret; } /****************************************************************************** * VarDateFromI1 [OLEAUT32.221] */ HRESULT WINAPI VarDateFromI1(signed char cIn, DATE* pdateOut) { TRACE("( %c, %p ), stub\n", cIn, pdateOut ); *pdateOut = (DATE) cIn; return S_OK; } /****************************************************************************** * VarDateFromUI2 [OLEAUT32.222] */ HRESULT WINAPI VarDateFromUI2(USHORT uiIn, DATE* pdateOut) { TRACE("( %d, %p ), stub\n", uiIn, pdateOut ); if( uiIn > DATE_MAX ) { return DISP_E_OVERFLOW; } *pdateOut = (DATE) uiIn; return S_OK; } /****************************************************************************** * VarDateFromUI4 [OLEAUT32.223] */ HRESULT WINAPI VarDateFromUI4(ULONG ulIn, DATE* pdateOut) { TRACE("( %ld, %p ), stub\n", ulIn, pdateOut ); if( ulIn < DATE_MIN || ulIn > DATE_MAX ) { return DISP_E_OVERFLOW; } *pdateOut = (DATE) ulIn; return S_OK; } /****************************************************************************** * VarDateFromBool [OLEAUT32.96] */ HRESULT WINAPI VarDateFromBool(VARIANT_BOOL boolIn, DATE* pdateOut) { TRACE("( %d, %p ), stub\n", boolIn, pdateOut ); *pdateOut = (DATE) boolIn; return S_OK; } /********************************************************************** * VarDateFromCy [OLEAUT32.93] * Convert currency to date */ HRESULT WINAPI VarDateFromCy(CY cyIn, DATE* pdateOut) { *pdateOut = (DATE)((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); if (*pdateOut > DATE_MAX || *pdateOut < DATE_MIN) return DISP_E_TYPEMISMATCH; return S_OK; } /****************************************************************************** * VarBstrFromUI1 [OLEAUT32.108] */ HRESULT WINAPI VarBstrFromUI1(BYTE bVal, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %d, %ld, %ld, %p ), stub\n", bVal, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, "%d", bVal ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromI2 [OLEAUT32.109] */ HRESULT WINAPI VarBstrFromI2(short iVal, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %d, %ld, %ld, %p ), stub\n", iVal, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, "%d", iVal ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromI4 [OLEAUT32.110] */ HRESULT WINAPI VarBstrFromI4(LONG lIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %ld, %ld, %ld, %p ), stub\n", lIn, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, "%ld", lIn ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromR4 [OLEAUT32.111] */ HRESULT WINAPI VarBstrFromR4(FLOAT fltIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %f, %ld, %ld, %p ), stub\n", fltIn, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, "%.7G", fltIn ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromR8 [OLEAUT32.112] */ HRESULT WINAPI VarBstrFromR8(double dblIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %f, %ld, %ld, %p ), stub\n", dblIn, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, "%.15G", dblIn ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromCy [OLEAUT32.113] */ HRESULT WINAPI VarBstrFromCy(CY cyIn, LCID lcid, ULONG dwFlags, BSTR *pbstrOut) { HRESULT rc = S_OK; double curVal = 0.0; TRACE("([cyIn], %08lx, %08lx, %p), partial stub (no flags handled).\n", lcid, dwFlags, pbstrOut); /* Firstly get the currency in a double, then put it in a buffer */ rc = VarR8FromCy(cyIn, &curVal); if (rc == S_OK) { sprintf(pBuffer, "%G", curVal); *pbstrOut = StringDupAtoBstr( pBuffer ); } return rc; } /****************************************************************************** * VarBstrFromDate [OLEAUT32.114] * * The date is implemented using an 8 byte floating-point number. * Days are represented by whole numbers increments starting with 0.00 as * 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 VarBstrFromDate(DATE dateIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { struct tm TM; memset( &TM, 0, sizeof(TM) ); TRACE("( %20.20f, %ld, %ld, %p ), stub\n", dateIn, lcid, dwFlags, pbstrOut ); if( DateToTm( dateIn, dwFlags, &TM ) == FALSE ) { return E_INVALIDARG; } if( dwFlags & VAR_DATEVALUEONLY ) strftime( pBuffer, BUFFER_MAX, "%x", &TM ); else if( dwFlags & VAR_TIMEVALUEONLY ) strftime( pBuffer, BUFFER_MAX, "%X", &TM ); else strftime( pBuffer, BUFFER_MAX, "%x %X", &TM ); TRACE("result: %s\n", pBuffer); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromBool [OLEAUT32.116] */ HRESULT WINAPI VarBstrFromBool(VARIANT_BOOL boolIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %d, %ld, %ld, %p ), stub\n", boolIn, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, (boolIn == VARIANT_FALSE) ? "False" : "True" ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromI1 [OLEAUT32.229] */ HRESULT WINAPI VarBstrFromI1(signed char cIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %c, %ld, %ld, %p ), stub\n", cIn, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, "%d", cIn ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromUI2 [OLEAUT32.230] */ HRESULT WINAPI VarBstrFromUI2(USHORT uiIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %d, %ld, %ld, %p ), stub\n", uiIn, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, "%d", uiIn ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromUI4 [OLEAUT32.231] */ HRESULT WINAPI VarBstrFromUI4(ULONG ulIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { TRACE("( %ld, %ld, %ld, %p ), stub\n", ulIn, lcid, dwFlags, pbstrOut ); sprintf( pBuffer, "%ld", ulIn ); *pbstrOut = StringDupAtoBstr( pBuffer ); return S_OK; } /****************************************************************************** * VarBstrFromDec [OLEAUT32.@] */ HRESULT WINAPI VarBstrFromDec(DECIMAL* pDecIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut) { if(!pDecIn->u.s.sign && !pDecIn->u.s.scale && !pDecIn->Hi32 && !pDecIn->u1.s1.Mid32) return VarBstrFromUI4(pDecIn->u1.s1.Lo32, lcid, dwFlags, pbstrOut); FIXME("%c%08lx%08lx%08lx E%02x stub\n", (pDecIn->u.s.sign == DECIMAL_NEG) ? '-' : (pDecIn->u.s.sign == 0) ? '+' : '?', pDecIn->Hi32, pDecIn->u1.s1.Mid32, pDecIn->u1.s1.Lo32, pDecIn->u.s.scale); return E_INVALIDARG; } /****************************************************************************** * VarBoolFromUI1 [OLEAUT32.118] */ HRESULT WINAPI VarBoolFromUI1(BYTE bIn, VARIANT_BOOL* pboolOut) { TRACE("( %d, %p ), stub\n", bIn, pboolOut ); if( bIn == 0 ) { *pboolOut = VARIANT_FALSE; } else { *pboolOut = VARIANT_TRUE; } return S_OK; } /****************************************************************************** * VarBoolFromI2 [OLEAUT32.119] */ HRESULT WINAPI VarBoolFromI2(short sIn, VARIANT_BOOL* pboolOut) { TRACE("( %d, %p ), stub\n", sIn, pboolOut ); *pboolOut = (sIn) ? VARIANT_TRUE : VARIANT_FALSE; return S_OK; } /****************************************************************************** * VarBoolFromI4 [OLEAUT32.120] */ HRESULT WINAPI VarBoolFromI4(LONG lIn, VARIANT_BOOL* pboolOut) { TRACE("( %ld, %p ), stub\n", lIn, pboolOut ); *pboolOut = (lIn) ? VARIANT_TRUE : VARIANT_FALSE; return S_OK; } /****************************************************************************** * VarBoolFromR4 [OLEAUT32.121] */ HRESULT WINAPI VarBoolFromR4(FLOAT fltIn, VARIANT_BOOL* pboolOut) { TRACE("( %f, %p ), stub\n", fltIn, pboolOut ); *pboolOut = (fltIn == 0.0) ? VARIANT_FALSE : VARIANT_TRUE; return S_OK; } /****************************************************************************** * VarBoolFromR8 [OLEAUT32.122] */ HRESULT WINAPI VarBoolFromR8(double dblIn, VARIANT_BOOL* pboolOut) { TRACE("( %f, %p ), stub\n", dblIn, pboolOut ); *pboolOut = (dblIn == 0.0) ? VARIANT_FALSE : VARIANT_TRUE; return S_OK; } /****************************************************************************** * VarBoolFromDate [OLEAUT32.123] */ HRESULT WINAPI VarBoolFromDate(DATE dateIn, VARIANT_BOOL* pboolOut) { TRACE("( %f, %p ), stub\n", dateIn, pboolOut ); *pboolOut = (dateIn == 0.0) ? VARIANT_FALSE : VARIANT_TRUE; return S_OK; } /****************************************************************************** * VarBoolFromStr [OLEAUT32.125] */ HRESULT WINAPI VarBoolFromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, VARIANT_BOOL* pboolOut) { static const WCHAR szTrue[] = { 'T','r','u','e','\0' }; static const WCHAR szFalse[] = { 'F','a','l','s','e','\0' }; HRESULT ret = S_OK; TRACE("( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pboolOut ); if( strIn == NULL || strlenW( strIn ) == 0 ) { ret = DISP_E_TYPEMISMATCH; } if( ret == S_OK ) { if( strcmpiW( (LPCWSTR)strIn, szTrue ) == 0 ) { *pboolOut = VARIANT_TRUE; } else if( strcmpiW( (LPCWSTR)strIn, szFalse ) == 0 ) { *pboolOut = VARIANT_FALSE; } else { /* Try converting the string to a floating point number. */ double dValue = 0.0; HRESULT res = VarR8FromStr( strIn, lcid, dwFlags, &dValue ); if( res != S_OK ) { ret = DISP_E_TYPEMISMATCH; } else *pboolOut = (dValue == 0.0) ? VARIANT_FALSE : VARIANT_TRUE; } } return ret; } /****************************************************************************** * VarBoolFromI1 [OLEAUT32.233] */ HRESULT WINAPI VarBoolFromI1(signed char cIn, VARIANT_BOOL* pboolOut) { TRACE("( %c, %p ), stub\n", cIn, pboolOut ); *pboolOut = (cIn == 0) ? VARIANT_FALSE : VARIANT_TRUE; return S_OK; } /****************************************************************************** * VarBoolFromUI2 [OLEAUT32.234] */ HRESULT WINAPI VarBoolFromUI2(USHORT uiIn, VARIANT_BOOL* pboolOut) { TRACE("( %d, %p ), stub\n", uiIn, pboolOut ); *pboolOut = (uiIn == 0) ? VARIANT_FALSE : VARIANT_TRUE; return S_OK; } /****************************************************************************** * VarBoolFromUI4 [OLEAUT32.235] */ HRESULT WINAPI VarBoolFromUI4(ULONG ulIn, VARIANT_BOOL* pboolOut) { TRACE("( %ld, %p ), stub\n", ulIn, pboolOut ); *pboolOut = (ulIn == 0) ? VARIANT_FALSE : VARIANT_TRUE; return S_OK; } /********************************************************************** * VarBoolFromCy [OLEAUT32.124] * Convert currency to boolean */ HRESULT WINAPI VarBoolFromCy(CY cyIn, VARIANT_BOOL* pboolOut) { if (cyIn.s.Hi || cyIn.s.Lo) *pboolOut = -1; else *pboolOut = 0; return S_OK; } /****************************************************************************** * VarI1FromUI1 [OLEAUT32.244] */ HRESULT WINAPI VarI1FromUI1(BYTE bIn, signed char *pcOut) { TRACE("( %d, %p ), stub\n", bIn, pcOut ); /* Check range of value. */ if( bIn > I1_MAX ) { return DISP_E_OVERFLOW; } *pcOut = (CHAR) bIn; return S_OK; } /****************************************************************************** * VarI1FromI2 [OLEAUT32.245] */ HRESULT WINAPI VarI1FromI2(short uiIn, signed char *pcOut) { TRACE("( %d, %p ), stub\n", uiIn, pcOut ); if( uiIn > I1_MAX ) { return DISP_E_OVERFLOW; } *pcOut = (CHAR) uiIn; return S_OK; } /****************************************************************************** * VarI1FromI4 [OLEAUT32.246] */ HRESULT WINAPI VarI1FromI4(LONG lIn, signed char *pcOut) { TRACE("( %ld, %p ), stub\n", lIn, pcOut ); if( lIn < I1_MIN || lIn > I1_MAX ) { return DISP_E_OVERFLOW; } *pcOut = (CHAR) lIn; return S_OK; } /****************************************************************************** * VarI1FromR4 [OLEAUT32.247] */ HRESULT WINAPI VarI1FromR4(FLOAT fltIn, signed char *pcOut) { TRACE("( %f, %p ), stub\n", fltIn, pcOut ); fltIn = round( fltIn ); if( fltIn < I1_MIN || fltIn > I1_MAX ) { return DISP_E_OVERFLOW; } *pcOut = (CHAR) fltIn; return S_OK; } /****************************************************************************** * VarI1FromR8 [OLEAUT32.248] */ HRESULT WINAPI VarI1FromR8(double dblIn, signed char *pcOut) { TRACE("( %f, %p ), stub\n", dblIn, pcOut ); dblIn = round( dblIn ); if( dblIn < I1_MIN || dblIn > I1_MAX ) { return DISP_E_OVERFLOW; } *pcOut = (CHAR) dblIn; return S_OK; } /****************************************************************************** * VarI1FromDate [OLEAUT32.249] */ HRESULT WINAPI VarI1FromDate(DATE dateIn, signed char *pcOut) { TRACE("( %f, %p ), stub\n", dateIn, pcOut ); dateIn = round( dateIn ); if( dateIn < I1_MIN || dateIn > I1_MAX ) { return DISP_E_OVERFLOW; } *pcOut = (CHAR) dateIn; return S_OK; } /****************************************************************************** * VarI1FromStr [OLEAUT32.251] */ HRESULT WINAPI VarI1FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, signed char *pcOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, pcOut); return _VarI1FromStr(strIn, lcid, dwFlags, pcOut); } /****************************************************************************** * VarI1FromBool [OLEAUT32.253] */ HRESULT WINAPI VarI1FromBool(VARIANT_BOOL boolIn, signed char *pcOut) { TRACE("( %d, %p ), stub\n", boolIn, pcOut ); *pcOut = (CHAR) boolIn; return S_OK; } /****************************************************************************** * VarI1FromUI2 [OLEAUT32.254] */ HRESULT WINAPI VarI1FromUI2(USHORT uiIn, signed char *pcOut) { TRACE("( %d, %p ), stub\n", uiIn, pcOut ); if( uiIn > I1_MAX ) { return DISP_E_OVERFLOW; } *pcOut = (CHAR) uiIn; return S_OK; } /****************************************************************************** * VarI1FromUI4 [OLEAUT32.255] */ HRESULT WINAPI VarI1FromUI4(ULONG ulIn, signed char *pcOut) { TRACE("( %ld, %p ), stub\n", ulIn, pcOut ); if( ulIn > I1_MAX ) { return DISP_E_OVERFLOW; } *pcOut = (CHAR) ulIn; return S_OK; } /********************************************************************** * VarI1FromCy [OLEAUT32.250] * Convert currency to signed char */ HRESULT WINAPI VarI1FromCy(CY cyIn, signed char *pcOut) { double t = round((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); if (t > I1_MAX || t < I1_MIN) return DISP_E_OVERFLOW; *pcOut = (CHAR)t; return S_OK; } /****************************************************************************** * VarUI2FromUI1 [OLEAUT32.257] */ HRESULT WINAPI VarUI2FromUI1(BYTE bIn, USHORT* puiOut) { TRACE("( %d, %p ), stub\n", bIn, puiOut ); *puiOut = (USHORT) bIn; return S_OK; } /****************************************************************************** * VarUI2FromI2 [OLEAUT32.258] */ HRESULT WINAPI VarUI2FromI2(short uiIn, USHORT* puiOut) { TRACE("( %d, %p ), stub\n", uiIn, puiOut ); if( uiIn < UI2_MIN ) { return DISP_E_OVERFLOW; } *puiOut = (USHORT) uiIn; return S_OK; } /****************************************************************************** * VarUI2FromI4 [OLEAUT32.259] */ HRESULT WINAPI VarUI2FromI4(LONG lIn, USHORT* puiOut) { TRACE("( %ld, %p ), stub\n", lIn, puiOut ); if( lIn < UI2_MIN || lIn > UI2_MAX ) { return DISP_E_OVERFLOW; } *puiOut = (USHORT) lIn; return S_OK; } /****************************************************************************** * VarUI2FromR4 [OLEAUT32.260] */ HRESULT WINAPI VarUI2FromR4(FLOAT fltIn, USHORT* puiOut) { TRACE("( %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; } /****************************************************************************** * VarUI2FromR8 [OLEAUT32.261] */ HRESULT WINAPI VarUI2FromR8(double dblIn, USHORT* puiOut) { TRACE("( %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; } /****************************************************************************** * VarUI2FromDate [OLEAUT32.262] */ HRESULT WINAPI VarUI2FromDate(DATE dateIn, USHORT* puiOut) { TRACE("( %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; } /****************************************************************************** * VarUI2FromStr [OLEAUT32.264] */ HRESULT WINAPI VarUI2FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, USHORT* puiOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, puiOut); return _VarUI2FromStr(strIn, lcid, dwFlags, puiOut); } /****************************************************************************** * VarUI2FromBool [OLEAUT32.266] */ HRESULT WINAPI VarUI2FromBool(VARIANT_BOOL boolIn, USHORT* puiOut) { TRACE("( %d, %p ), stub\n", boolIn, puiOut ); *puiOut = (USHORT) boolIn; return S_OK; } /****************************************************************************** * VarUI2FromI1 [OLEAUT32.267] */ HRESULT WINAPI VarUI2FromI1(signed char cIn, USHORT* puiOut) { TRACE("( %c, %p ), stub\n", cIn, puiOut ); *puiOut = (USHORT) cIn; return S_OK; } /****************************************************************************** * VarUI2FromUI4 [OLEAUT32.268] */ HRESULT WINAPI VarUI2FromUI4(ULONG ulIn, USHORT* puiOut) { TRACE("( %ld, %p ), stub\n", ulIn, puiOut ); if( ulIn > UI2_MAX ) { return DISP_E_OVERFLOW; } *puiOut = (USHORT) ulIn; return S_OK; } /****************************************************************************** * VarUI4FromStr [OLEAUT32.277] */ HRESULT WINAPI VarUI4FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, ULONG* pulOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, pulOut); return _VarUI4FromStr(strIn, lcid, dwFlags, pulOut); } /********************************************************************** * VarUI2FromCy [OLEAUT32.263] * Convert currency to unsigned short */ HRESULT WINAPI VarUI2FromCy(CY cyIn, USHORT* pusOut) { double t = round((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); if (t > UI2_MAX || t < UI2_MIN) return DISP_E_OVERFLOW; *pusOut = (USHORT)t; return S_OK; } /****************************************************************************** * VarUI4FromUI1 [OLEAUT32.270] */ HRESULT WINAPI VarUI4FromUI1(BYTE bIn, ULONG* pulOut) { TRACE("( %d, %p ), stub\n", bIn, pulOut ); *pulOut = (USHORT) bIn; return S_OK; } /****************************************************************************** * VarUI4FromI2 [OLEAUT32.271] */ HRESULT WINAPI VarUI4FromI2(short uiIn, ULONG* pulOut) { TRACE("( %d, %p ), stub\n", uiIn, pulOut ); if( uiIn < UI4_MIN ) { return DISP_E_OVERFLOW; } *pulOut = (ULONG) uiIn; return S_OK; } /****************************************************************************** * VarUI4FromI4 [OLEAUT32.272] */ HRESULT WINAPI VarUI4FromI4(LONG lIn, ULONG* pulOut) { TRACE("( %ld, %p ), stub\n", lIn, pulOut ); if( lIn < 0 ) { return DISP_E_OVERFLOW; } *pulOut = (ULONG) lIn; return S_OK; } /****************************************************************************** * VarUI4FromR4 [OLEAUT32.273] */ HRESULT WINAPI VarUI4FromR4(FLOAT fltIn, ULONG* pulOut) { fltIn = round( fltIn ); if( fltIn < UI4_MIN || fltIn > UI4_MAX ) { return DISP_E_OVERFLOW; } *pulOut = (ULONG) fltIn; return S_OK; } /****************************************************************************** * VarUI4FromR8 [OLEAUT32.274] */ HRESULT WINAPI VarUI4FromR8(double dblIn, ULONG* pulOut) { TRACE("( %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; } /****************************************************************************** * VarUI4FromDate [OLEAUT32.275] */ HRESULT WINAPI VarUI4FromDate(DATE dateIn, ULONG* pulOut) { TRACE("( %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; } /****************************************************************************** * VarUI4FromBool [OLEAUT32.279] */ HRESULT WINAPI VarUI4FromBool(VARIANT_BOOL boolIn, ULONG* pulOut) { TRACE("( %d, %p ), stub\n", boolIn, pulOut ); *pulOut = (ULONG) boolIn; return S_OK; } /****************************************************************************** * VarUI4FromI1 [OLEAUT32.280] */ HRESULT WINAPI VarUI4FromI1(signed char cIn, ULONG* pulOut) { TRACE("( %c, %p ), stub\n", cIn, pulOut ); *pulOut = (ULONG) cIn; return S_OK; } /****************************************************************************** * VarUI4FromUI2 [OLEAUT32.281] */ HRESULT WINAPI VarUI4FromUI2(USHORT uiIn, ULONG* pulOut) { TRACE("( %d, %p ), stub\n", uiIn, pulOut ); *pulOut = (ULONG) uiIn; return S_OK; } /********************************************************************** * VarUI4FromCy [OLEAUT32.276] * Convert currency to unsigned long */ HRESULT WINAPI VarUI4FromCy(CY cyIn, ULONG* pulOut) { double t = round((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000); if (t > UI4_MAX || t < UI4_MIN) return DISP_E_OVERFLOW; *pulOut = (ULONG)t; return S_OK; } /********************************************************************** * VarCyFromUI1 [OLEAUT32.98] * Convert unsigned char to currency */ HRESULT WINAPI VarCyFromUI1(BYTE bIn, CY* pcyOut) { pcyOut->s.Hi = 0; pcyOut->s.Lo = ((ULONG)bIn) * 10000; return S_OK; } /********************************************************************** * VarCyFromI2 [OLEAUT32.99] * Convert signed short to currency */ HRESULT WINAPI VarCyFromI2(short sIn, CY* pcyOut) { if (sIn < 0) pcyOut->s.Hi = -1; else pcyOut->s.Hi = 0; pcyOut->s.Lo = ((ULONG)sIn) * 10000; return S_OK; } /********************************************************************** * VarCyFromI4 [OLEAUT32.100] * Convert signed long to currency */ HRESULT WINAPI VarCyFromI4(LONG lIn, CY* pcyOut) { double t = (double)lIn * (double)10000; pcyOut->s.Hi = (LONG)(t / (double)4294967296.0); pcyOut->s.Lo = (ULONG)fmod(t, (double)4294967296.0); if (lIn < 0) pcyOut->s.Hi--; return S_OK; } /********************************************************************** * VarCyFromR4 [OLEAUT32.101] * Convert float to currency */ HRESULT WINAPI VarCyFromR4(FLOAT fltIn, CY* pcyOut) { double t = round((double)fltIn * (double)10000); pcyOut->s.Hi = (LONG)(t / (double)4294967296.0); pcyOut->s.Lo = (ULONG)fmod(t, (double)4294967296.0); if (fltIn < 0) pcyOut->s.Hi--; return S_OK; } /********************************************************************** * VarCyFromR8 [OLEAUT32.102] * Convert double to currency */ HRESULT WINAPI VarCyFromR8(double dblIn, CY* pcyOut) { double t = round(dblIn * (double)10000); pcyOut->s.Hi = (LONG)(t / (double)4294967296.0); pcyOut->s.Lo = (ULONG)fmod(t, (double)4294967296.0); if (dblIn < 0) pcyOut->s.Hi--; return S_OK; } /********************************************************************** * VarCyFromDate [OLEAUT32.103] * Convert date to currency */ HRESULT WINAPI VarCyFromDate(DATE dateIn, CY* pcyOut) { double t = round((double)dateIn * (double)10000); pcyOut->s.Hi = (LONG)(t / (double)4294967296.0); pcyOut->s.Lo = (ULONG)fmod(t, (double)4294967296.0); if (dateIn < 0) pcyOut->s.Hi--; return S_OK; } /********************************************************************** * VarCyFromStr [OLEAUT32.104] * FIXME: Never tested with decimal separator other than '.' */ HRESULT WINAPI VarCyFromStr(OLECHAR *strIn, LCID lcid, ULONG dwFlags, CY *pcyOut) { TRACE("(%s, 0x%08lx, 0x%08lx, %p)\n", debugstr_w(strIn), lcid, dwFlags, pcyOut); return _VarCyFromStr(strIn, lcid, dwFlags, pcyOut); } /********************************************************************** * VarCyFromBool [OLEAUT32.106] * Convert boolean to currency */ HRESULT WINAPI VarCyFromBool(VARIANT_BOOL boolIn, CY* pcyOut) { if (boolIn < 0) pcyOut->s.Hi = -1; else pcyOut->s.Hi = 0; pcyOut->s.Lo = (ULONG)boolIn * (ULONG)10000; return S_OK; } /********************************************************************** * VarCyFromI1 [OLEAUT32.225] * Convert signed char to currency */ HRESULT WINAPI VarCyFromI1(signed char cIn, CY* pcyOut) { if (cIn < 0) pcyOut->s.Hi = -1; else pcyOut->s.Hi = 0; pcyOut->s.Lo = (ULONG)cIn * (ULONG)10000; return S_OK; } /********************************************************************** * VarCyFromUI2 [OLEAUT32.226] * Convert unsigned short to currency */ HRESULT WINAPI VarCyFromUI2(USHORT usIn, CY* pcyOut) { pcyOut->s.Hi = 0; pcyOut->s.Lo = (ULONG)usIn * (ULONG)10000; return S_OK; } /********************************************************************** * VarCyFromUI4 [OLEAUT32.227] * Convert unsigned long to currency */ HRESULT WINAPI VarCyFromUI4(ULONG ulIn, CY* pcyOut) { double t = (double)ulIn * (double)10000; pcyOut->s.Hi = (LONG)(t / (double)4294967296.0); pcyOut->s.Lo = (ULONG)fmod(t, (double)4294967296.0); return S_OK; } /********************************************************************** * VarDecFromStr [OLEAUT32.@] */ HRESULT WINAPI VarDecFromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, DECIMAL* pdecOut) { WCHAR *p=strIn; ULONGLONG t; ULONG cy; DECIMAL_SETZERO(pdecOut); if(*p == (WCHAR)'-')pdecOut->u.s.sign= DECIMAL_NEG; if((*p == (WCHAR)'-') || (*p == (WCHAR)'+')) p++; for(;*p != (WCHAR)0; p++) { if((*p < (WCHAR)'0')||(*p > (WCHAR)'9')) goto error ; t = (ULONGLONG)pdecOut->u1.s1.Lo32 *(ULONGLONG)10 + (ULONGLONG)(*p -(WCHAR)'0'); cy = (ULONG)(t >> 32); pdecOut->u1.s1.Lo32 = (ULONG)(t & (ULONGLONG)UI4_MAX); t = (ULONGLONG)pdecOut->u1.s1.Mid32 * (ULONGLONG)10 + (ULONGLONG)cy; cy = (ULONG)(t >> 32); pdecOut->u1.s1.Mid32 = (ULONG)(t & (ULONGLONG)UI4_MAX); t = (ULONGLONG)pdecOut->Hi32 * (ULONGLONG)10 + (ULONGLONG)cy; cy = (ULONG)(t >> 32); pdecOut->Hi32 = (ULONG)(t & (ULONGLONG)UI4_MAX); if(cy) goto overflow ; } TRACE("%s -> sign %02x,hi %08lx,mid %08lx, lo%08lx, scale %08x\n", debugstr_w(strIn), pdecOut->u.s.sign, pdecOut->Hi32, pdecOut->u1.s1.Mid32, pdecOut->u1.s1.Lo32, pdecOut->u.s.scale); return S_OK; overflow: /* like NT4 SP5 */ pdecOut->Hi32 = pdecOut->u1.s1.Mid32 = pdecOut->u1.s1.Lo32 = 0xffffffff; return DISP_E_OVERFLOW; error: ERR("%s: unknown char at pos %d\n", debugstr_w(strIn), p - strIn + 1); return DISP_E_TYPEMISMATCH; } /********************************************************************** * DosDateTimeToVariantTime [OLEAUT32.14] * Convert dos representation of time to the date and time representation * stored in a variant. */ INT WINAPI DosDateTimeToVariantTime(USHORT wDosDate, USHORT wDosTime, DATE *pvtime) { struct tm t; TRACE("( 0x%x, 0x%x, %p ), stub\n", wDosDate, wDosTime, pvtime ); t.tm_sec = (wDosTime & 0x001f) * 2; t.tm_min = (wDosTime & 0x07e0) >> 5; t.tm_hour = (wDosTime & 0xf800) >> 11; t.tm_mday = (wDosDate & 0x001f); t.tm_mon = (wDosDate & 0x01e0) >> 5; t.tm_year = ((wDosDate & 0xfe00) >> 9) + 1980; return TmToDATE( &t, pvtime ); } #define GET_NUMBER_TEXT(fld,name) \ buff[0] = 0; \ if (!GetLocaleInfoW(lcid, lctype|fld, buff, sizeof(WCHAR) * 2)) \ WARN("buffer too small for " #fld "\n"); \ else \ if (buff[0]) lpChars->name = buff[0]; \ TRACE("lcid 0x%lx, " #name "=%d '%c'\n", lcid, lpChars->name, lpChars->name) /* Get the valid number characters for an lcid */ void VARIANT_GetLocalisedNumberChars(VARIANT_NUMBER_CHARS *lpChars, LCID lcid, DWORD dwFlags) { static const VARIANT_NUMBER_CHARS defaultChars = { '-','+','.',',','$',0,'.',',' }; LCTYPE lctype = 0; WCHAR buff[4]; if (dwFlags & VARIANT_NOUSEROVERRIDE) lctype |= LOCALE_NOUSEROVERRIDE; memcpy(lpChars, &defaultChars, sizeof(defaultChars)); GET_NUMBER_TEXT(LOCALE_SNEGATIVESIGN, cNegativeSymbol); GET_NUMBER_TEXT(LOCALE_SPOSITIVESIGN, cPositiveSymbol); GET_NUMBER_TEXT(LOCALE_SDECIMAL, cDecimalPoint); GET_NUMBER_TEXT(LOCALE_STHOUSAND, cDigitSeperator); GET_NUMBER_TEXT(LOCALE_SMONDECIMALSEP, cCurrencyDecimalPoint); GET_NUMBER_TEXT(LOCALE_SMONTHOUSANDSEP, cCurrencyDigitSeperator); /* Local currency symbols are often 2 characters */ lpChars->cCurrencyLocal2 = '\0'; switch(GetLocaleInfoW(lcid, lctype|LOCALE_SCURRENCY, buff, sizeof(WCHAR) * 4)) { case 3: lpChars->cCurrencyLocal2 = buff[1]; /* Fall through */ case 2: lpChars->cCurrencyLocal = buff[0]; break; default: WARN("buffer too small for LOCALE_SCURRENCY\n"); } TRACE("lcid 0x%lx, cCurrencyLocal =%d,%d '%c','%c'\n", lcid, lpChars->cCurrencyLocal, lpChars->cCurrencyLocal2, lpChars->cCurrencyLocal, lpChars->cCurrencyLocal2); } /* Number Parsing States */ #define B_PROCESSING_EXPONENT 0x1 #define B_NEGATIVE_EXPONENT 0x2 #define B_EXPONENT_START 0x4 #define B_INEXACT_ZEROS 0x8 #define B_LEADING_ZERO 0x10 /********************************************************************** * VarParseNumFromStr [OLEAUT32.46] * * Parse a string containing a number into a NUMPARSE structure. * * PARAMS * lpszStr [I] String to parse number from * lcid [I] Locale Id for the conversion * dwFlags [I] Apparently not used * pNumprs [I/O] Destination for parsed number * rgbDig [O] Destination for digits read in * * RETURNS * Success: S_OK. pNumprs and rgbDig contain the parsed representation of * the number. * Failure: E_INVALIDARG, if any parameter is invalid. * DISP_E_TYPEMISMATCH, if the string is not a number or is formatted * incorrectly. * DISP_E_OVERFLOW, if rgbDig is too small to hold the number. * * NOTES * pNumprs must have the following fields set: * cDig: Set to the size of rgbDig. * dwInFlags: Set to the allowable syntax of the number using NUMPRS_ flags * from "oleauto.h". * * FIXME * - I am unsure if this function should parse non-arabic (e.g. Thai) * numerals, so this has not been implemented. */ HRESULT WINAPI VarParseNumFromStr(OLECHAR *lpszStr, LCID lcid, ULONG dwFlags, NUMPARSE *pNumprs, BYTE *rgbDig) { VARIANT_NUMBER_CHARS chars; BYTE rgbTmp[1024]; DWORD dwState = B_EXPONENT_START|B_INEXACT_ZEROS; int iMaxDigits = sizeof(rgbTmp) / sizeof(BYTE); int cchUsed = 0; TRACE("(%s,%ld,%ld,%p,%p)\n", debugstr_w(lpszStr), lcid, dwFlags, pNumprs, rgbDig); if (pNumprs->dwInFlags & NUMPRS_HEX_OCT) FIXME("dwInFlags & NUMPRS_HEX_OCT not yet implemented!\n"); if (!pNumprs || !rgbDig) return E_INVALIDARG; if (pNumprs->cDig < iMaxDigits) iMaxDigits = pNumprs->cDig; pNumprs->cDig = 0; pNumprs->dwOutFlags = 0; pNumprs->cchUsed = 0; pNumprs->nBaseShift = 0; pNumprs->nPwr10 = 0; if (!lpszStr) return DISP_E_TYPEMISMATCH; VARIANT_GetLocalisedNumberChars(&chars, lcid, dwFlags); /* First consume all the leading symbols and space from the string */ while (1) { if (pNumprs->dwInFlags & NUMPRS_LEADING_WHITE && isspaceW(*lpszStr)) { pNumprs->dwOutFlags |= NUMPRS_LEADING_WHITE; do { cchUsed++; lpszStr++; } while (isspaceW(*lpszStr)); } else if (pNumprs->dwInFlags & NUMPRS_LEADING_PLUS && *lpszStr == chars.cPositiveSymbol && !(pNumprs->dwOutFlags & NUMPRS_LEADING_PLUS)) { pNumprs->dwOutFlags |= NUMPRS_LEADING_PLUS; cchUsed++; lpszStr++; } else if (pNumprs->dwInFlags & NUMPRS_LEADING_MINUS && *lpszStr == chars.cNegativeSymbol && !(pNumprs->dwOutFlags & NUMPRS_LEADING_MINUS)) { pNumprs->dwOutFlags |= (NUMPRS_LEADING_MINUS|NUMPRS_NEG); cchUsed++; lpszStr++; } else if (pNumprs->dwInFlags & NUMPRS_CURRENCY && !(pNumprs->dwOutFlags & NUMPRS_CURRENCY) && *lpszStr == chars.cCurrencyLocal && (!chars.cCurrencyLocal2 || lpszStr[1] == chars.cCurrencyLocal2)) { pNumprs->dwOutFlags |= NUMPRS_CURRENCY; cchUsed++; lpszStr++; /* Only accept currency characters */ chars.cDecimalPoint = chars.cCurrencyDecimalPoint; chars.cDigitSeperator = chars.cCurrencyDigitSeperator; } else if (pNumprs->dwInFlags & NUMPRS_PARENS && *lpszStr == '(' && !(pNumprs->dwOutFlags & NUMPRS_PARENS)) { pNumprs->dwOutFlags |= NUMPRS_PARENS; cchUsed++; lpszStr++; } else break; } if (!(pNumprs->dwOutFlags & NUMPRS_CURRENCY)) { /* Only accept non-currency characters */ chars.cCurrencyDecimalPoint = chars.cDecimalPoint; chars.cCurrencyDigitSeperator = chars.cDigitSeperator; } /* Strip Leading zeros */ while (*lpszStr == '0') { dwState |= B_LEADING_ZERO; cchUsed++; lpszStr++; } while (*lpszStr) { if (isdigitW(*lpszStr)) { if (dwState & B_PROCESSING_EXPONENT) { int exponentSize = 0; if (dwState & B_EXPONENT_START) { while (*lpszStr == '0') { /* Skip leading zero's in the exponent */ cchUsed++; lpszStr++; } if (!isdigitW(*lpszStr)) break; /* No exponent digits - invalid */ } while (isdigitW(*lpszStr)) { exponentSize *= 10; exponentSize += *lpszStr - '0'; cchUsed++; lpszStr++; } if (dwState & B_NEGATIVE_EXPONENT) exponentSize = -exponentSize; /* Add the exponent into the powers of 10 */ pNumprs->nPwr10 += exponentSize; dwState &= ~(B_PROCESSING_EXPONENT|B_EXPONENT_START); lpszStr--; /* back up to allow processing of next char */ } else { if (pNumprs->cDig >= iMaxDigits) { pNumprs->dwOutFlags |= NUMPRS_INEXACT; if (*lpszStr != '0') dwState &= ~B_INEXACT_ZEROS; /* Inexact number with non-trailing zeros */ /* This digit can't be represented, but count it in nPwr10 */ if (pNumprs->dwOutFlags & NUMPRS_DECIMAL) pNumprs->nPwr10--; else pNumprs->nPwr10++; } else { if (pNumprs->dwOutFlags & NUMPRS_DECIMAL) pNumprs->nPwr10--; /* Count decimal points in nPwr10 */ rgbTmp[pNumprs->cDig] = *lpszStr - '0'; } pNumprs->cDig++; cchUsed++; } } else if (*lpszStr == chars.cDigitSeperator && pNumprs->dwInFlags & NUMPRS_THOUSANDS) { pNumprs->dwOutFlags |= NUMPRS_THOUSANDS; cchUsed++; } else if (*lpszStr == chars.cDecimalPoint && pNumprs->dwInFlags & NUMPRS_DECIMAL && !(pNumprs->dwOutFlags & (NUMPRS_DECIMAL|NUMPRS_EXPONENT))) { pNumprs->dwOutFlags |= NUMPRS_DECIMAL; cchUsed++; /* Remove trailing zeros from the whole number part */ while (pNumprs->cDig > 1 && !rgbTmp[pNumprs->cDig - 1]) { pNumprs->nPwr10++; pNumprs->cDig--; } /* If we have no digits so far, skip leading zeros */ if (!pNumprs->cDig) { while (lpszStr[1] == '0') { dwState |= B_LEADING_ZERO; cchUsed++; lpszStr++; } } } else if ((*lpszStr == 'e' || *lpszStr == 'E') && pNumprs->dwInFlags & NUMPRS_EXPONENT && !(pNumprs->dwOutFlags & NUMPRS_EXPONENT)) { dwState |= B_PROCESSING_EXPONENT; pNumprs->dwOutFlags |= NUMPRS_EXPONENT; cchUsed++; } else if (dwState & B_PROCESSING_EXPONENT && *lpszStr == chars.cPositiveSymbol) { cchUsed++; /* Ignore positive exponent */ } else if (dwState & B_PROCESSING_EXPONENT && *lpszStr == chars.cNegativeSymbol) { dwState |= B_NEGATIVE_EXPONENT; cchUsed++; } else break; /* Stop at an unrecognised character */ lpszStr++; } if (!pNumprs->cDig && dwState & B_LEADING_ZERO) { /* Ensure a 0 on its own gets stored */ pNumprs->cDig = 1; rgbTmp[0] = 0; } if (pNumprs->dwOutFlags & NUMPRS_EXPONENT && dwState & B_PROCESSING_EXPONENT) { pNumprs->cchUsed = cchUsed; return DISP_E_TYPEMISMATCH; /* Failed to completely parse the exponent */ } if (pNumprs->dwOutFlags & NUMPRS_INEXACT) { if (dwState & B_INEXACT_ZEROS) pNumprs->dwOutFlags &= ~NUMPRS_INEXACT; /* All zeros doesn't set NUMPRS_INEXACT */ } else { /* Remove trailing zeros from the last (whole number or decimal) part */ while (pNumprs->cDig > 1 && !rgbTmp[pNumprs->cDig - 1]) { if (pNumprs->dwOutFlags & NUMPRS_DECIMAL) pNumprs->nPwr10--; else pNumprs->nPwr10++; pNumprs->cDig--; } } if (pNumprs->cDig <= iMaxDigits) pNumprs->dwOutFlags &= ~NUMPRS_INEXACT; /* Ignore stripped zeros for NUMPRS_INEXACT */ else pNumprs->cDig = iMaxDigits; /* Only return iMaxDigits worth of digits */ /* Copy the digits we processed into rgbDig */ memcpy(rgbDig, rgbTmp, pNumprs->cDig * sizeof(BYTE)); /* Consume any trailing symbols and space */ while (1) { if ((pNumprs->dwInFlags & NUMPRS_TRAILING_WHITE) && isspaceW(*lpszStr)) { pNumprs->dwOutFlags |= NUMPRS_TRAILING_WHITE; do { cchUsed++; lpszStr++; } while (isspaceW(*lpszStr)); } else if (pNumprs->dwInFlags & NUMPRS_TRAILING_PLUS && !(pNumprs->dwOutFlags & NUMPRS_LEADING_PLUS) && *lpszStr == chars.cPositiveSymbol) { pNumprs->dwOutFlags |= NUMPRS_TRAILING_PLUS; cchUsed++; lpszStr++; } else if (pNumprs->dwInFlags & NUMPRS_TRAILING_MINUS && !(pNumprs->dwOutFlags & NUMPRS_LEADING_MINUS) && *lpszStr == chars.cNegativeSymbol) { pNumprs->dwOutFlags |= (NUMPRS_TRAILING_MINUS|NUMPRS_NEG); cchUsed++; lpszStr++; } else if (pNumprs->dwInFlags & NUMPRS_PARENS && *lpszStr == ')' && pNumprs->dwOutFlags & NUMPRS_PARENS) { cchUsed++; lpszStr++; pNumprs->dwOutFlags |= NUMPRS_NEG; } else break; } if (pNumprs->dwOutFlags & NUMPRS_PARENS && !(pNumprs->dwOutFlags & NUMPRS_NEG)) { pNumprs->cchUsed = cchUsed; return DISP_E_TYPEMISMATCH; /* Opening parenthesis not matched */ } if (pNumprs->dwInFlags & NUMPRS_USE_ALL && *lpszStr != '\0') return DISP_E_TYPEMISMATCH; /* Not all chars were consumed */ if (!pNumprs->cDig) return DISP_E_TYPEMISMATCH; /* No Number found */ pNumprs->cchUsed = cchUsed; return S_OK; } /* VTBIT flags indicating an integer value */ #define INTEGER_VTBITS (VTBIT_I1|VTBIT_UI1|VTBIT_I2|VTBIT_UI2|VTBIT_I4|VTBIT_UI4|VTBIT_I8|VTBIT_UI8) /* VTBIT flags indicating a real number value */ #define REAL_VTBITS (VTBIT_R4|VTBIT_R8|VTBIT_CY|VTBIT_DECIMAL) /********************************************************************** * VarNumFromParseNum [OLEAUT32.47] * * Convert a NUMPARSE structure into a numeric Variant type. * * PARAMS * pNumprs [I] Source for parsed number. cDig must be set to the size of rgbDig * rgbDig [I] Source for the numbers digits * dwVtBits [I] VTBIT_ flags from "oleauto.h" indicating the acceptable dest types * pVarDst [O] Destination for the converted Variant value. * * RETURNS * Success: S_OK. pVarDst contains the converted value. * Failure: E_INVALIDARG, if any parameter is invalid. * DISP_E_OVERFLOW, if the number is too big for the types set in dwVtBits. * * NOTES * - The smallest favoured type present in dwVtBits that can represent the * number in pNumprs without losing precision is used. * - Signed types are preferrred over unsigned types of the same size. * - Preferred types in order are: integer, float, double, currency then decimal. * - Rounding (dropping of decimal points) occurs without error. See VarI8FromR8() * for details of the rounding method. * - pVarDst is not cleared before the result is stored in it. */ HRESULT WINAPI VarNumFromParseNum(NUMPARSE *pNumprs, BYTE *rgbDig, ULONG dwVtBits, VARIANT *pVarDst) { /* Scale factors and limits for double arithmetics */ static const double dblMultipliers[11] = { 1.0, 10.0, 100.0, 1000.0, 10000.0, 100000.0, 1000000.0, 10000000.0, 100000000.0, 1000000000.0, 10000000000.0 }; static const double dblMinimums[11] = { R8_MIN, R8_MIN*10.0, R8_MIN*100.0, R8_MIN*1000.0, R8_MIN*10000.0, R8_MIN*100000.0, R8_MIN*1000000.0, R8_MIN*10000000.0, R8_MIN*100000000.0, R8_MIN*1000000000.0, R8_MIN*10000000000.0 }; static const double dblMaximums[11] = { R8_MAX, R8_MAX/10.0, R8_MAX/100.0, R8_MAX/1000.0, R8_MAX/10000.0, R8_MAX/100000.0, R8_MAX/1000000.0, R8_MAX/10000000.0, R8_MAX/100000000.0, R8_MAX/1000000000.0, R8_MAX/10000000000.0 }; int wholeNumberDigits, fractionalDigits, divisor10 = 0, multiplier10 = 0; TRACE("(%p,%p,0x%lx,%p)\n", pNumprs, rgbDig, dwVtBits, pVarDst); if (pNumprs->nBaseShift) { /* nBaseShift indicates a hex or octal number */ FIXME("nBaseShift=%d not yet implemented, returning overflow\n", pNumprs->nBaseShift); return DISP_E_OVERFLOW; } /* Count the number of relevant fractional and whole digits stored, * And compute the divisor/multiplier to scale the number by. */ if (pNumprs->nPwr10 < 0) { if (-pNumprs->nPwr10 >= pNumprs->cDig) { /* A real number < +/- 1.0 e.g. 0.1024 or 0.01024 */ wholeNumberDigits = 0; fractionalDigits = pNumprs->cDig; divisor10 = -pNumprs->nPwr10; } else { /* An exactly represented real number e.g. 1.024 */ wholeNumberDigits = pNumprs->cDig + pNumprs->nPwr10; fractionalDigits = pNumprs->cDig - wholeNumberDigits; divisor10 = pNumprs->cDig - wholeNumberDigits; } } else if (pNumprs->nPwr10 == 0) { /* An exactly represented whole number e.g. 1024 */ wholeNumberDigits = pNumprs->cDig; fractionalDigits = 0; } else /* pNumprs->nPwr10 > 0 */ { /* A whole number followed by nPwr10 0's e.g. 102400 */ wholeNumberDigits = pNumprs->cDig; fractionalDigits = 0; multiplier10 = pNumprs->nPwr10; } TRACE("cDig %d; nPwr10 %d, whole %d, frac %d ", pNumprs->cDig, pNumprs->nPwr10, wholeNumberDigits, fractionalDigits); TRACE("mult %d; div %d\n", multiplier10, divisor10); if (dwVtBits & INTEGER_VTBITS && (!fractionalDigits || !(dwVtBits & (REAL_VTBITS|VTBIT_CY|VTBIT_DECIMAL)))) { /* We have one or more integer output choices, and either: * 1) An integer input value, or * 2) A real number input value but no floating output choices. * So, place the integer value into pVarDst, using the smallest type * possible and preferring signed over unsigned types. */ BOOL bOverflow = FALSE, bNegative; ULONG64 ul64 = 0; int i; /* Convert the integer part of the number into a UI8 */ for (i = 0; i < wholeNumberDigits; i++) { if (ul64 > (UI8_MAX / 10 - rgbDig[i])) { TRACE("Overflow multiplying digits\n"); bOverflow = TRUE; break; } ul64 = ul64 * 10 + rgbDig[i]; } /* Account for the scale of the number */ if (!bOverflow && multiplier10) { for (i = 0; i < multiplier10; i++) { if (ul64 > (UI8_MAX / 10)) { TRACE("Overflow scaling number\n"); bOverflow = TRUE; break; } ul64 = ul64 * 10; } } /* If we have any fractional digits, round the value. * Note we dont have to do this if divisor10 is < 1, * because this means the fractional part must be < 0.5 */ if (!bOverflow && fractionalDigits && divisor10 > 0) { const BYTE* fracDig = rgbDig + wholeNumberDigits; BOOL bAdjust = FALSE; TRACE("first decimal value is %d\n", *fracDig); if (*fracDig > 5) bAdjust = TRUE; /* > 0.5 */ else if (*fracDig == 5) { for (i = 1; i < fractionalDigits; i++) { if (fracDig[i]) { bAdjust = TRUE; /* > 0.5 */ break; } } /* If exactly 0.5, round only odd values */ if (i == fractionalDigits && (ul64 & 1)) bAdjust = TRUE; } if (bAdjust) { if (ul64 == UI8_MAX) { TRACE("Overflow after rounding\n"); bOverflow = TRUE; } ul64++; } } /* Zero is not a negative number */ bNegative = pNumprs->dwOutFlags & NUMPRS_NEG && ul64 ? TRUE : FALSE; TRACE("Integer value is %lld, bNeg %d\n", ul64, bNegative); /* For negative integers, try the signed types in size order */ if (!bOverflow && bNegative) { if (dwVtBits & (VTBIT_I1|VTBIT_I2|VTBIT_I4|VTBIT_I8)) { if (dwVtBits & VTBIT_I1 && ul64 <= -I1_MIN) { V_VT(pVarDst) = VT_I1; V_I1(pVarDst) = -ul64; return S_OK; } else if (dwVtBits & VTBIT_I2 && ul64 <= -I2_MIN) { V_VT(pVarDst) = VT_I2; V_I2(pVarDst) = -ul64; return S_OK; } else if (dwVtBits & VTBIT_I4 && ul64 <= -((LONGLONG)I4_MIN)) { V_VT(pVarDst) = VT_I4; V_I4(pVarDst) = -ul64; return S_OK; } else if (dwVtBits & VTBIT_I8 && ul64 <= (ULONGLONG)I8_MAX + 1) { V_VT(pVarDst) = VT_I8; V_I8(pVarDst) = -ul64; return S_OK; } } } else if (!bOverflow) { /* For positive integers, try signed then unsigned types in size order */ if (dwVtBits & VTBIT_I1 && ul64 <= I1_MAX) { V_VT(pVarDst) = VT_I1; V_I1(pVarDst) = ul64; return S_OK; } if (dwVtBits & VTBIT_UI1 && ul64 <= UI1_MAX) { V_VT(pVarDst) = VT_UI1; V_UI1(pVarDst) = ul64; return S_OK; } if (dwVtBits & VTBIT_I2 && ul64 <= I2_MAX) { V_VT(pVarDst) = VT_I2; V_I2(pVarDst) = ul64; return S_OK; } if (dwVtBits & VTBIT_UI2 && ul64 <= UI2_MAX) { V_VT(pVarDst) = VT_UI2; V_UI2(pVarDst) = ul64; return S_OK; } if (dwVtBits & VTBIT_I4 && ul64 <= I4_MAX) { V_VT(pVarDst) = VT_I4; V_I4(pVarDst) = ul64; return S_OK; } if (dwVtBits & VTBIT_UI4 && ul64 <= UI4_MAX) { V_VT(pVarDst) = VT_UI4; V_UI4(pVarDst) = ul64; return S_OK; } if (dwVtBits & VTBIT_I8 && ul64 <= I8_MAX) { V_VT(pVarDst) = VT_I8; V_I8(pVarDst) = ul64; return S_OK; } if (dwVtBits & VTBIT_UI8) { V_VT(pVarDst) = VT_UI8; V_UI8(pVarDst) = ul64; return S_OK; } } } if (dwVtBits & REAL_VTBITS) { /* Try to put the number into a float or real */ BOOL bOverflow = FALSE, bNegative = pNumprs->dwOutFlags & NUMPRS_NEG; double whole = 0.0; int i; /* Convert the number into a double */ for (i = 0; i < pNumprs->cDig; i++) whole = whole * 10.0 + rgbDig[i]; TRACE("Whole double value is %16.16g\n", whole); /* Account for the scale */ while (multiplier10 > 10) { if (whole > dblMaximums[10]) { dwVtBits &= ~(VTBIT_R4|VTBIT_R8|VTBIT_CY); bOverflow = TRUE; break; } whole = whole * dblMultipliers[10]; multiplier10 -= 10; } if (multiplier10) { if (whole > dblMaximums[multiplier10]) { dwVtBits &= ~(VTBIT_R4|VTBIT_R8|VTBIT_CY); bOverflow = TRUE; } else whole = whole * dblMultipliers[multiplier10]; } TRACE("Scaled double value is %16.16g\n", whole); while (divisor10 > 10) { if (whole < dblMinimums[10]) { dwVtBits &= ~(VTBIT_R4|VTBIT_R8|VTBIT_CY); /* Underflow */ bOverflow = TRUE; break; } whole = whole / dblMultipliers[10]; divisor10 -= 10; } if (divisor10) { if (whole < dblMinimums[divisor10]) { dwVtBits &= ~(VTBIT_R4|VTBIT_R8|VTBIT_CY); /* Underflow */ bOverflow = TRUE; } else whole = whole / dblMultipliers[divisor10]; } if (!bOverflow) TRACE("Final double value is %16.16g\n", whole); if (dwVtBits & VTBIT_R4 && ((whole <= R4_MAX && whole >= R4_MIN) || whole == 0.0)) { TRACE("Set R4 to final value\n"); V_VT(pVarDst) = VT_R4; /* Fits into a float */ V_R4(pVarDst) = pNumprs->dwOutFlags & NUMPRS_NEG ? -whole : whole; return S_OK; } if (dwVtBits & VTBIT_R8) { TRACE("Set R8 to final value\n"); V_VT(pVarDst) = VT_R8; /* Fits into a double */ V_R8(pVarDst) = pNumprs->dwOutFlags & NUMPRS_NEG ? -whole : whole; return S_OK; } if (dwVtBits & VTBIT_CY) { if (SUCCEEDED(VarCyFromR8(bNegative ? -whole : whole, &V_CY(pVarDst)))) { V_VT(pVarDst) = VT_CY; /* Fits into a currency */ TRACE("Set CY to final value\n"); return S_OK; } TRACE("Value Overflows CY\n"); } if (!bOverflow && dwVtBits & VTBIT_DECIMAL) { WARN("VTBIT_DECIMAL not yet implemented\n"); #if 0 if (SUCCEEDED(VarDecFromR8(bNegative ? -whole : whole, &V_DECIMAL(pVarDst)))) { V_VT(pVarDst) = VT_DECIMAL; /* Fits into a decimal */ TRACE("Set DECIMAL to final value\n"); return S_OK; } #endif } } if (dwVtBits & VTBIT_DECIMAL) { FIXME("VT_DECIMAL > R8 not yet supported, returning overflow\n"); } return DISP_E_OVERFLOW; /* No more output choices */ } /********************************************************************** * VarFormatDateTime [OLEAUT32.97] */ HRESULT WINAPI VarFormatDateTime(LPVARIANT var, INT format, ULONG dwFlags, BSTR *out) { FIXME("%p %d %lx %p\n", var, format, dwFlags, out); return E_NOTIMPL; } /********************************************************************** * VarFormatCurrency [OLEAUT32.127] */ HRESULT WINAPI VarFormatCurrency(LPVARIANT var, INT digits, INT lead, INT paren, INT group, ULONG dwFlags, BSTR *out) { FIXME("%p %d %d %d %d %lx %p\n", var, digits, lead, paren, group, dwFlags, out); return E_NOTIMPL; } /********************************************************************** * VariantTimeToDosDateTime [OLEAUT32.13] * Convert variant representation of time to the date and time representation * stored in dos. */ INT WINAPI VariantTimeToDosDateTime(DATE pvtime, USHORT *wDosDate, USHORT *wDosTime) { struct tm t; *wDosTime = 0; *wDosDate = 0; TRACE("( 0x%x, 0x%x, %p ), stub\n", *wDosDate, *wDosTime, &pvtime ); if (DateToTm(pvtime, 0, &t) < 0) return 0; *wDosTime = *wDosTime | (t.tm_sec / 2); *wDosTime = *wDosTime | (t.tm_min << 5); *wDosTime = *wDosTime | (t.tm_hour << 11); *wDosDate = *wDosDate | t.tm_mday ; *wDosDate = *wDosDate | t.tm_mon << 5; *wDosDate = *wDosDate | ((t.tm_year - 1980) << 9) ; return 1; } /*********************************************************************** * SystemTimeToVariantTime [OLEAUT32.184] */ HRESULT WINAPI SystemTimeToVariantTime( LPSYSTEMTIME lpSystemTime, double *pvtime ) { struct tm t; TRACE(" %d/%d/%d %d:%d:%d\n", lpSystemTime->wMonth, lpSystemTime->wDay, lpSystemTime->wYear, lpSystemTime->wHour, lpSystemTime->wMinute, lpSystemTime->wSecond); if (lpSystemTime->wYear >= 1900) { t.tm_sec = lpSystemTime->wSecond; t.tm_min = lpSystemTime->wMinute; t.tm_hour = lpSystemTime->wHour; t.tm_mday = lpSystemTime->wDay; t.tm_mon = lpSystemTime->wMonth - 1; /* tm_mon is 0..11, wMonth is 1..12 */ t.tm_year = lpSystemTime->wYear; return TmToDATE( &t, pvtime ); } else { double tmpDate; long firstDayOfNextYear; long thisDay; long leftInYear; long result; double decimalPart = 0.0; t.tm_sec = lpSystemTime->wSecond; t.tm_min = lpSystemTime->wMinute; t.tm_hour = lpSystemTime->wHour; /* Step year forward the same number of years before 1900 */ t.tm_year = 1900 + 1899 - lpSystemTime->wYear; t.tm_mon = lpSystemTime->wMonth - 1; t.tm_mday = lpSystemTime->wDay; /* Calculate date */ TmToDATE( &t, pvtime ); thisDay = (double) floor( *pvtime ); decimalPart = fmod( *pvtime, thisDay ); /* Now, calculate the same time for the first of Jan that year */ t.tm_mon = 0; t.tm_mday = 1; t.tm_sec = 0; t.tm_min = 0; t.tm_hour = 0; t.tm_year = t.tm_year+1; TmToDATE( &t, &tmpDate ); firstDayOfNextYear = (long) floor(tmpDate); /* Finally since we know the size of the year, subtract the two to get remaining time in the year */ leftInYear = firstDayOfNextYear - thisDay; /* Now we want full years up to the year in question, and remainder of year of the year in question */ if (isleap(lpSystemTime->wYear) ) { TRACE("Extra day due to leap year\n"); result = 2.0 - ((firstDayOfNextYear - 366) + leftInYear - 2.0); } else { result = 2.0 - ((firstDayOfNextYear - 365) + leftInYear - 2.0); } *pvtime = (double) result + decimalPart; TRACE("<1899 support: returned %f, 1st day %ld, thisday %ld, left %ld\n", *pvtime, firstDayOfNextYear, thisDay, leftInYear); return 1; } return 0; } /*********************************************************************** * VariantTimeToSystemTime [OLEAUT32.185] */ HRESULT WINAPI VariantTimeToSystemTime( double vtime, LPSYSTEMTIME lpSystemTime ) { double t = 0, timeofday = 0; static const BYTE Days_Per_Month[] = {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}; static const BYTE Days_Per_Month_LY[] = {0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}; /* The Month_Code is used to find the Day of the Week (LY = LeapYear)*/ static const BYTE Month_Code[] = {0, 1, 4, 4, 0, 2, 5, 0, 3, 6, 1, 4, 6}; static const BYTE Month_Code_LY[] = {0, 0, 3, 4, 0, 2, 5, 0, 3, 6, 1, 4, 6}; /* The Century_Code is used to find the Day of the Week */ static const BYTE Century_Code[] = {0, 6, 4, 2}; struct tm r; TRACE(" Variant = %f SYSTEMTIME ptr %p\n", vtime, lpSystemTime); if (vtime >= 0) { if (DateToTm(vtime, 0, &r ) <= 0) return 0; lpSystemTime->wSecond = r.tm_sec; lpSystemTime->wMinute = r.tm_min; lpSystemTime->wHour = r.tm_hour; lpSystemTime->wDay = r.tm_mday; lpSystemTime->wMonth = r.tm_mon; if (lpSystemTime->wMonth == 12) lpSystemTime->wMonth = 1; else lpSystemTime->wMonth++; lpSystemTime->wYear = r.tm_year; } else { vtime = -1*vtime; if (DateToTm(vtime, 0, &r ) <= 0) return 0; lpSystemTime->wSecond = r.tm_sec; lpSystemTime->wMinute = r.tm_min; lpSystemTime->wHour = r.tm_hour; lpSystemTime->wMonth = 13 - r.tm_mon; if (lpSystemTime->wMonth == 1) lpSystemTime->wMonth = 12; else lpSystemTime->wMonth--; lpSystemTime->wYear = 1899 - (r.tm_year - 1900); if (!isleap(lpSystemTime->wYear) ) lpSystemTime->wDay = Days_Per_Month[13 - lpSystemTime->wMonth] - r.tm_mday; else lpSystemTime->wDay = Days_Per_Month_LY[13 - lpSystemTime->wMonth] - r.tm_mday; } if (!isleap(lpSystemTime->wYear)) { /* (Century_Code+Month_Code+Year_Code+Day) % 7 The century code repeats every 400 years , so the array works out like this, Century_Code[0] is for 16th/20th Centry Century_Code[1] is for 17th/21th Centry Century_Code[2] is for 18th/22th Centry Century_Code[3] is for 19th/23th Centry The year code is found with the formula (year + (year / 4)) the "year" must be between 0 and 99 . The Month Code (Month_Code[1]) starts with January and ends with December. */ lpSystemTime->wDayOfWeek = ( Century_Code[(( (lpSystemTime->wYear+100) - lpSystemTime->wYear%100) /100) %4]+ ((lpSystemTime->wYear%100)+(lpSystemTime->wYear%100)/4)+ Month_Code[lpSystemTime->wMonth]+ lpSystemTime->wDay) % 7; if (lpSystemTime->wDayOfWeek == 0) lpSystemTime->wDayOfWeek = 7; else lpSystemTime->wDayOfWeek -= 1; } else { lpSystemTime->wDayOfWeek = ( Century_Code[(((lpSystemTime->wYear+100) - lpSystemTime->wYear%100)/100)%4]+ ((lpSystemTime->wYear%100)+(lpSystemTime->wYear%100)/4)+ Month_Code_LY[lpSystemTime->wMonth]+ lpSystemTime->wDay) % 7; if (lpSystemTime->wDayOfWeek == 0) lpSystemTime->wDayOfWeek = 7; else lpSystemTime->wDayOfWeek -= 1; } t = floor(vtime); timeofday = vtime - t; lpSystemTime->wMilliseconds = (timeofday - lpSystemTime->wHour*(1/24) - lpSystemTime->wMinute*(1/1440) - lpSystemTime->wSecond*(1/86400) )*(1/5184000); return 1; } /*********************************************************************** * VarUdateFromDate [OLEAUT32.331] */ HRESULT WINAPI VarUdateFromDate( DATE datein, ULONG dwFlags, UDATE *pudateout) { HRESULT i = 0; static const BYTE Days_Per_Month[] = {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}; static const BYTE Days_Per_Month_LY[] = {0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}; TRACE("DATE = %f\n", (double)datein); i = VariantTimeToSystemTime(datein, &(pudateout->st) ); if (i) { pudateout->wDayOfYear = 0; if (isleap(pudateout->st.wYear)) { for (i =1; ist.wMonth; i++) pudateout->wDayOfYear += Days_Per_Month[i]; } else { for (i =1; ist.wMonth; i++) pudateout->wDayOfYear += Days_Per_Month_LY[i]; } pudateout->wDayOfYear += pudateout->st.wDay; dwFlags = 0; /*VAR_VALIDDATE*/ } else dwFlags = 0; return i; } /*********************************************************************** * VarDateFromUdate [OLEAUT32.330] */ HRESULT WINAPI VarDateFromUdate(UDATE *pudateout, ULONG dwFlags, DATE *datein) { HRESULT i; double t = 0; TRACE(" %d/%d/%d %d:%d:%d\n", pudateout->st.wMonth, pudateout->st.wDay, pudateout->st.wYear, pudateout->st.wHour, pudateout->st.wMinute, pudateout->st.wSecond); i = SystemTimeToVariantTime(&(pudateout->st), &t); *datein = t; if (i) return S_OK; else return E_INVALIDARG; } /********************************************************************** * VarBstrCmp [OLEAUT32.314] * * flags can be: * NORM_IGNORECASE, NORM_IGNORENONSPACE, NORM_IGNORESYMBOLS * NORM_IGNORESTRINGWIDTH, NORM_IGNOREKANATYPE, NORM_IGNOREKASHIDA * */ HRESULT WINAPI VarBstrCmp(BSTR left, BSTR right, LCID lcid, DWORD flags) { INT r; TRACE("( %s %s %ld %lx ) partial stub\n", debugstr_w(left), debugstr_w(right), lcid, flags); /* Contrary to the MSDN, this returns eq for null vs null, null vs L"" and L"" vs NULL */ if((!left) || (!right)) { if (!left && (!right || *right==0)) return VARCMP_EQ; else if (!right && (!left || *left==0)) return VARCMP_EQ; else return VARCMP_NULL; } if(flags&NORM_IGNORECASE) r = lstrcmpiW(left,right); else r = lstrcmpW(left,right); if(r<0) return VARCMP_LT; if(r>0) return VARCMP_GT; return VARCMP_EQ; } /********************************************************************** * VarBstrCat [OLEAUT32.313] */ HRESULT WINAPI VarBstrCat(BSTR left, BSTR right, BSTR *out) { BSTR result; int size = 0; TRACE("( %s %s %p )\n", debugstr_w(left), debugstr_w(right), out); /* On Windows, NULL parms are still handled (as empty strings) */ if (left) size=size + lstrlenW(left); if (right) size=size + lstrlenW(right); if (out) { result = SysAllocStringLen(NULL, size); *out = result; if (left) lstrcatW(result,left); if (right) lstrcatW(result,right); TRACE("result = %s, [%p]\n", debugstr_w(result), result); } return S_OK; } /********************************************************************** * VarCat [OLEAUT32.318] */ HRESULT WINAPI VarCat(LPVARIANT left, LPVARIANT right, LPVARIANT out) { /* Should we VariantClear out? */ /* Can we handle array, vector, by ref etc. */ if ((V_VT(left)&VT_TYPEMASK) == VT_NULL && (V_VT(right)&VT_TYPEMASK) == VT_NULL) { V_VT(out) = VT_NULL; return S_OK; } if (V_VT(left) == VT_BSTR && V_VT(right) == VT_BSTR) { V_VT(out) = VT_BSTR; VarBstrCat (V_BSTR(left), V_BSTR(right), &V_BSTR(out)); return S_OK; } if (V_VT(left) == VT_BSTR) { VARIANT bstrvar; HRESULT hres; V_VT(out) = VT_BSTR; hres = VariantChangeTypeEx(&bstrvar,right,0,0,VT_BSTR); if (hres) { FIXME("Failed to convert right side from vt %d to VT_BSTR?\n",V_VT(right)); return hres; } VarBstrCat (V_BSTR(left), V_BSTR(&bstrvar), &V_BSTR(out)); return S_OK; } if (V_VT(right) == VT_BSTR) { VARIANT bstrvar; HRESULT hres; V_VT(out) = VT_BSTR; hres = VariantChangeTypeEx(&bstrvar,left,0,0,VT_BSTR); if (hres) { FIXME("Failed to convert right side from vt %d to VT_BSTR?\n",V_VT(right)); return hres; } VarBstrCat (V_BSTR(&bstrvar), V_BSTR(right), &V_BSTR(out)); return S_OK; } FIXME ("types %d / %d not supported\n",V_VT(left)&VT_TYPEMASK, V_VT(right)&VT_TYPEMASK); return S_OK; } /********************************************************************** * VarCmp [OLEAUT32.176] * * flags can be: * NORM_IGNORECASE, NORM_IGNORENONSPACE, NORM_IGNORESYMBOLS * NORM_IGNOREWIDTH, NORM_IGNOREKANATYPE, NORM_IGNOREKASHIDA * */ HRESULT WINAPI VarCmp(LPVARIANT left, LPVARIANT right, LCID lcid, DWORD flags) { BOOL lOk = TRUE; BOOL rOk = TRUE; LONGLONG lVal = -1; LONGLONG rVal = -1; VARIANT rv,lv; DWORD xmask; HRESULT rc; VariantInit(&lv);VariantInit(&rv); V_VT(right) &= ~0x8000; /* hack since we sometime get this flag. */ V_VT(left) &= ~0x8000; /* hack since we sometime get this flag. */ TRACE("Left Var:\n"); dump_Variant(left); TRACE("Right Var:\n"); dump_Variant(right); /* If either are null, then return VARCMP_NULL */ if ((V_VT(left)&VT_TYPEMASK) == VT_NULL || (V_VT(right)&VT_TYPEMASK) == VT_NULL) return VARCMP_NULL; /* Strings - use VarBstrCmp */ if ((V_VT(left)&VT_TYPEMASK) == VT_BSTR && (V_VT(right)&VT_TYPEMASK) == VT_BSTR) { return VarBstrCmp(V_BSTR(left), V_BSTR(right), lcid, flags); } xmask = (1<<(V_VT(left)&VT_TYPEMASK))|(1<<(V_VT(right)&VT_TYPEMASK)); if (xmask & (1< V_R8(&rv)) return VARCMP_GT; return E_FAIL; /* can't get here */ } if (xmask & (1< V_R4(&rv)) return VARCMP_GT; return E_FAIL; /* can't get here */ } /* Integers - Ideally like to use VarDecCmp, but no Dec support yet Use LONGLONG to maximize ranges */ lOk = TRUE; switch (V_VT(left)&VT_TYPEMASK) { case VT_I1 : lVal = V_UNION(left,cVal); break; case VT_I2 : lVal = V_UNION(left,iVal); break; case VT_I4 : lVal = V_UNION(left,lVal); break; case VT_INT : lVal = V_UNION(left,lVal); break; case VT_UI1 : lVal = V_UNION(left,bVal); break; case VT_UI2 : lVal = V_UNION(left,uiVal); break; case VT_UI4 : lVal = V_UNION(left,ulVal); break; case VT_UINT : lVal = V_UNION(left,ulVal); break; case VT_BOOL : lVal = V_UNION(left,boolVal); break; default: lOk = FALSE; } rOk = TRUE; switch (V_VT(right)&VT_TYPEMASK) { case VT_I1 : rVal = V_UNION(right,cVal); break; case VT_I2 : rVal = V_UNION(right,iVal); break; case VT_I4 : rVal = V_UNION(right,lVal); break; case VT_INT : rVal = V_UNION(right,lVal); break; case VT_UI1 : rVal = V_UNION(right,bVal); break; case VT_UI2 : rVal = V_UNION(right,uiVal); break; case VT_UI4 : rVal = V_UNION(right,ulVal); break; case VT_UINT : rVal = V_UNION(right,ulVal); break; case VT_BOOL : rVal = V_UNION(right,boolVal); break; default: rOk = FALSE; } if (lOk && rOk) { if (lVal < rVal) { return VARCMP_LT; } else if (lVal > rVal) { return VARCMP_GT; } else { return VARCMP_EQ; } } /* Strings - use VarBstrCmp */ if ((V_VT(left)&VT_TYPEMASK) == VT_DATE && (V_VT(right)&VT_TYPEMASK) == VT_DATE) { if (floor(V_UNION(left,date)) == floor(V_UNION(right,date))) { /* Due to floating point rounding errors, calculate varDate in whole numbers) */ double wholePart = 0.0; double leftR; double rightR; /* Get the fraction * 24*60*60 to make it into whole seconds */ wholePart = (double) floor( V_UNION(left,date) ); if (wholePart == 0) wholePart = 1; leftR = floor(fmod( V_UNION(left,date), wholePart ) * (24*60*60)); wholePart = (double) floor( V_UNION(right,date) ); if (wholePart == 0) wholePart = 1; rightR = floor(fmod( V_UNION(right,date), wholePart ) * (24*60*60)); if (leftR < rightR) { return VARCMP_LT; } else if (leftR > rightR) { return VARCMP_GT; } else { return VARCMP_EQ; } } else if (V_UNION(left,date) < V_UNION(right,date)) { return VARCMP_LT; } else if (V_UNION(left,date) > V_UNION(right,date)) { return VARCMP_GT; } } FIXME("VarCmp partial implementation, doesnt support vt 0x%x / 0x%x\n",V_VT(left), V_VT(right)); return E_FAIL; } /********************************************************************** * VarAnd [OLEAUT32.142] * */ HRESULT WINAPI VarAnd(LPVARIANT left, LPVARIANT right, LPVARIANT result) { HRESULT rc = E_FAIL; TRACE("Left Var:\n"); dump_Variant(left); TRACE("Right Var:\n"); dump_Variant(right); if ((V_VT(left)&VT_TYPEMASK) == VT_BOOL && (V_VT(right)&VT_TYPEMASK) == VT_BOOL) { V_VT(result) = VT_BOOL; if (V_BOOL(left) && V_BOOL(right)) { V_BOOL(result) = VARIANT_TRUE; } else { V_BOOL(result) = VARIANT_FALSE; } rc = S_OK; } else { /* Integers */ BOOL lOk = TRUE; BOOL rOk = TRUE; LONGLONG lVal = -1; LONGLONG rVal = -1; LONGLONG res = -1; int resT = 0; /* Testing has shown I2 & I2 == I2, all else becomes I4, even unsigned ints (incl. UI2) */ lOk = TRUE; switch (V_VT(left)&VT_TYPEMASK) { case VT_I1 : lVal = V_UNION(left,cVal); resT=VT_I4; break; case VT_I2 : lVal = V_UNION(left,iVal); resT=VT_I2; break; case VT_I4 : lVal = V_UNION(left,lVal); resT=VT_I4; break; case VT_INT : lVal = V_UNION(left,lVal); resT=VT_I4; break; case VT_UI1 : lVal = V_UNION(left,bVal); resT=VT_I4; break; case VT_UI2 : lVal = V_UNION(left,uiVal); resT=VT_I4; break; case VT_UI4 : lVal = V_UNION(left,ulVal); resT=VT_I4; break; case VT_UINT : lVal = V_UNION(left,ulVal); resT=VT_I4; break; default: lOk = FALSE; } rOk = TRUE; switch (V_VT(right)&VT_TYPEMASK) { case VT_I1 : rVal = V_UNION(right,cVal); resT=VT_I4; break; case VT_I2 : rVal = V_UNION(right,iVal); resT=max(VT_I2, resT); break; case VT_I4 : rVal = V_UNION(right,lVal); resT=VT_I4; break; case VT_INT : rVal = V_UNION(right,lVal); resT=VT_I4; break; case VT_UI1 : rVal = V_UNION(right,bVal); resT=VT_I4; break; case VT_UI2 : rVal = V_UNION(right,uiVal); resT=VT_I4; break; case VT_UI4 : rVal = V_UNION(right,ulVal); resT=VT_I4; break; case VT_UINT : rVal = V_UNION(right,ulVal); resT=VT_I4; break; default: rOk = FALSE; } if (lOk && rOk) { res = (lVal & rVal); V_VT(result) = resT; switch (resT) { case VT_I2 : V_UNION(result,iVal) = res; break; case VT_I4 : V_UNION(result,lVal) = res; break; default: FIXME("Unexpected result variant type %x\n", resT); V_UNION(result,lVal) = res; } rc = S_OK; } else { FIXME("VarAnd stub\n"); } } TRACE("rc=%d, Result:\n", (int) rc); dump_Variant(result); return rc; } /********************************************************************** * VarAdd [OLEAUT32.141] * FIXME: From MSDN: If ... Then * Both expressions are of the string type Concatenated. * One expression is a string type and the other a character Addition. * One expression is numeric and the other is a string Addition. * Both expressions are numeric Addition. * Either expression is NULL NULL is returned. * Both expressions are empty Integer subtype is returned. * */ HRESULT WINAPI VarAdd(LPVARIANT left, LPVARIANT right, LPVARIANT result) { HRESULT rc = E_FAIL; TRACE("Left Var:\n"); dump_Variant(left); TRACE("Right Var:\n"); dump_Variant(right); if ((V_VT(left)&VT_TYPEMASK) == VT_EMPTY) return VariantCopy(result,right); if ((V_VT(right)&VT_TYPEMASK) == VT_EMPTY) return VariantCopy(result,left); if (((V_VT(left)&VT_TYPEMASK) == VT_R8) || ((V_VT(right)&VT_TYPEMASK) == VT_R8)) { BOOL lOk = TRUE; BOOL rOk = TRUE; double lVal = -1; double rVal = -1; double res = -1; lOk = TRUE; switch (V_VT(left)&VT_TYPEMASK) { case VT_I1 : lVal = V_UNION(left,cVal); break; case VT_I2 : lVal = V_UNION(left,iVal); break; case VT_I4 : lVal = V_UNION(left,lVal); break; case VT_INT : lVal = V_UNION(left,lVal); break; case VT_UI1 : lVal = V_UNION(left,bVal); break; case VT_UI2 : lVal = V_UNION(left,uiVal); break; case VT_UI4 : lVal = V_UNION(left,ulVal); break; case VT_UINT : lVal = V_UNION(left,ulVal); break; case VT_R4 : lVal = V_UNION(left,fltVal); break; case VT_R8 : lVal = V_UNION(left,dblVal); break; case VT_NULL : lVal = 0.0; break; default: lOk = FALSE; } rOk = TRUE; switch (V_VT(right)&VT_TYPEMASK) { case VT_I1 : rVal = V_UNION(right,cVal); break; case VT_I2 : rVal = V_UNION(right,iVal); break; case VT_I4 : rVal = V_UNION(right,lVal); break; case VT_INT : rVal = V_UNION(right,lVal); break; case VT_UI1 : rVal = V_UNION(right,bVal); break; case VT_UI2 : rVal = V_UNION(right,uiVal); break; case VT_UI4 : rVal = V_UNION(right,ulVal); break; case VT_UINT : rVal = V_UNION(right,ulVal); break; case VT_R4 : rVal = V_UNION(right,fltVal);break; case VT_R8 : rVal = V_UNION(right,dblVal);break; case VT_NULL : rVal = 0.0; break; default: rOk = FALSE; } if (lOk && rOk) { res = (lVal + rVal); V_VT(result) = VT_R8; V_UNION(result,dblVal) = res; rc = S_OK; } else { FIXME("Unhandled type pair %d / %d in double addition.\n", (V_VT(left)&VT_TYPEMASK), (V_VT(right)&VT_TYPEMASK) ); } return rc; } /* Handle strings as concat */ if ((V_VT(left)&VT_TYPEMASK) == VT_BSTR && (V_VT(right)&VT_TYPEMASK) == VT_BSTR) { V_VT(result) = VT_BSTR; rc = VarBstrCat(V_BSTR(left), V_BSTR(right), &V_BSTR(result)); } else { /* Integers */ BOOL lOk = TRUE; BOOL rOk = TRUE; LONGLONG lVal = -1; LONGLONG rVal = -1; LONGLONG res = -1; int resT = 0; /* Testing has shown I2 + I2 == I2, all else becomes I4 */ lOk = TRUE; switch (V_VT(left)&VT_TYPEMASK) { case VT_I1 : lVal = V_UNION(left,cVal); resT=VT_I4; break; case VT_I2 : lVal = V_UNION(left,iVal); resT=VT_I2; break; case VT_I4 : lVal = V_UNION(left,lVal); resT=VT_I4; break; case VT_INT : lVal = V_UNION(left,lVal); resT=VT_I4; break; case VT_UI1 : lVal = V_UNION(left,bVal); resT=VT_I4; break; case VT_UI2 : lVal = V_UNION(left,uiVal); resT=VT_I4; break; case VT_UI4 : lVal = V_UNION(left,ulVal); resT=VT_I4; break; case VT_UINT : lVal = V_UNION(left,ulVal); resT=VT_I4; break; case VT_NULL : lVal = 0; resT = VT_I4; break; default: lOk = FALSE; } rOk = TRUE; switch (V_VT(right)&VT_TYPEMASK) { case VT_I1 : rVal = V_UNION(right,cVal); resT=VT_I4; break; case VT_I2 : rVal = V_UNION(right,iVal); resT=max(VT_I2, resT); break; case VT_I4 : rVal = V_UNION(right,lVal); resT=VT_I4; break; case VT_INT : rVal = V_UNION(right,lVal); resT=VT_I4; break; case VT_UI1 : rVal = V_UNION(right,bVal); resT=VT_I4; break; case VT_UI2 : rVal = V_UNION(right,uiVal); resT=VT_I4; break; case VT_UI4 : rVal = V_UNION(right,ulVal); resT=VT_I4; break; case VT_UINT : rVal = V_UNION(right,ulVal); resT=VT_I4; break; case VT_NULL : rVal = 0; resT=VT_I4; break; default: rOk = FALSE; } if (lOk && rOk) { res = (lVal + rVal); V_VT(result) = resT; switch (resT) { case VT_I2 : V_UNION(result,iVal) = res; break; case VT_I4 : V_UNION(result,lVal) = res; break; default: FIXME("Unexpected result variant type %x\n", resT); V_UNION(result,lVal) = res; } rc = S_OK; } else { FIXME("unimplemented part (0x%x + 0x%x)\n",V_VT(left), V_VT(right)); } } TRACE("rc=%d, Result:\n", (int) rc); dump_Variant(result); return rc; } /********************************************************************** * VarMul [OLEAUT32.156] * */ HRESULT WINAPI VarMul(LPVARIANT left, LPVARIANT right, LPVARIANT result) { HRESULT rc = E_FAIL; VARTYPE lvt,rvt,resvt; VARIANT lv,rv; BOOL found; TRACE("left: ");dump_Variant(left); TRACE("right: ");dump_Variant(right); VariantInit(&lv);VariantInit(&rv); lvt = V_VT(left)&VT_TYPEMASK; rvt = V_VT(right)&VT_TYPEMASK; found = FALSE;resvt=VT_VOID; if (((1< AA BB - Copy from AA for BB chars (Note 1 byte with wrap!) * - Insert appropriate token * */ HRESULT WINAPI VarTokenizeFormatString(LPOLESTR format, LPBYTE rgbTok, int cbTok, int iFirstDay, int iFirstWeek, LCID lcid, int *pcbActual) { FORMATHDR *hdr; int realLen, formatLeft; BYTE *pData; LPSTR pFormatA, pStart; int checkStr; BOOL insertCopy = FALSE; LPSTR copyFrom = NULL; TRACE("'%s', %p %d %d %d only date support\n", debugstr_w(format), rgbTok, cbTok, iFirstDay, iFirstWeek); /* Big enough for header? */ if (cbTok < sizeof(FORMATHDR)) { return TYPE_E_BUFFERTOOSMALL; } /* Insert header */ hdr = (FORMATHDR *) rgbTok; memset(hdr, 0x00, sizeof(FORMATHDR)); hdr->hex3 = 0x03; /* No idea what these are */ hdr->hex6 = 0x06; /* Start parsing string */ realLen = sizeof(FORMATHDR); pData = rgbTok + realLen; pFormatA = HEAP_strdupWtoA( GetProcessHeap(), 0, format ); pStart = pFormatA; formatLeft = strlen(pFormatA); /* Work through the format */ while (*pFormatA != 0x00) { checkStr = 0; while (checkStr>=0 && (formatTokens[checkStr].tokenSize != 0x00)) { if (formatLeft >= formatTokens[checkStr].tokenSize && strncmp(formatTokens[checkStr].str, pFormatA, formatTokens[checkStr].tokenSize) == 0) { TRACE("match on '%s'\n", formatTokens[checkStr].str); /* Found Match! */ /* If we have skipped chars, insert the copy */ if (insertCopy == TRUE) { if ((realLen + 3) > cbTok) { HeapFree( GetProcessHeap(), 0, pFormatA ); return TYPE_E_BUFFERTOOSMALL; } insertCopy = FALSE; *pData = TOK_COPY; pData++; *pData = (BYTE)(copyFrom - pStart); pData++; *pData = (BYTE)(pFormatA - copyFrom); pData++; realLen = realLen + 3; } /* Now insert the token itself */ if ((realLen + 1) > cbTok) { HeapFree( GetProcessHeap(), 0, pFormatA ); return TYPE_E_BUFFERTOOSMALL; } *pData = formatTokens[checkStr].tokenId; pData = pData + 1; realLen = realLen + 1; pFormatA = pFormatA + formatTokens[checkStr].tokenSize; formatLeft = formatLeft - formatTokens[checkStr].tokenSize; checkStr = -1; /* Flag as found and break out of while loop */ } else { checkStr++; } } /* Did we ever match a token? */ if (checkStr != -1 && insertCopy == FALSE) { TRACE("No match - need to insert copy from %p [%p]\n", pFormatA, pStart); insertCopy = TRUE; copyFrom = pFormatA; } else if (checkStr != -1) { pFormatA = pFormatA + 1; } } /* Finally, if we have skipped chars, insert the copy */ if (insertCopy == TRUE) { TRACE("Chars left over, so still copy %p,%p,%p\n", copyFrom, pStart, pFormatA); if ((realLen + 3) > cbTok) { HeapFree( GetProcessHeap(), 0, pFormatA ); return TYPE_E_BUFFERTOOSMALL; } insertCopy = FALSE; *pData = TOK_COPY; pData++; *pData = (BYTE)(copyFrom - pStart); pData++; *pData = (BYTE)(pFormatA - copyFrom); pData++; realLen = realLen + 3; } /* Finally insert the terminator */ if ((realLen + 1) > cbTok) { HeapFree( GetProcessHeap(), 0, pFormatA ); return TYPE_E_BUFFERTOOSMALL; } *pData++ = TOK_END; realLen = realLen + 1; /* Finally fill in the length */ hdr->len = realLen; *pcbActual = realLen; #if 0 { int i,j; for (i=0; ilen))) { TRACE("Output looks like : '%s'\n", output); /* Convert varient to appropriate data type */ whichToken = 0; while ((formatTokens[whichToken].tokenSize != 0x00) && (formatTokens[whichToken].tokenId != *pData)) { whichToken++; } /* Use Variant local from here downwards as always correct type */ if (formatTokens[whichToken].tokenSize > 0 && formatTokens[whichToken].varTypeRequired != 0) { VariantInit( &Variant ); if (Coerce( &Variant, lcid, dwFlags, varIn, formatTokens[whichToken].varTypeRequired ) != S_OK) { HeapFree( GetProcessHeap(), 0, pFormatA ); return DISP_E_TYPEMISMATCH; } else if (formatTokens[whichToken].varTypeRequired == VT_DATE) { if( DateToTm( V_UNION(&Variant,date), dwFlags, &TM ) == FALSE ) { HeapFree( GetProcessHeap(), 0, pFormatA ); return E_INVALIDARG; } } } TRACE("Looking for match on token '%x'\n", *pData); switch (*pData) { case TOK_COPY: TRACE("Copy from %d for %d bytes\n", *(pData+1), *(pData+2)); memcpy(pNextPos, &pFormatA[*(pData+1)], *(pData+2)); pNextPos = pNextPos + *(pData+2); pData = pData + 3; break; case TOK_COLON : /* Get locale information - Time Separator */ size = GetLocaleInfoA(lcid, LOCALE_STIME, NULL, 0); GetLocaleInfoA(lcid, LOCALE_STIME, pNextPos, size); TRACE("TOK_COLON Time separator is '%s'\n", pNextPos); pNextPos = pNextPos + size; pData = pData + 1; break; case TOK_SLASH : /* Get locale information - Date Separator */ size = GetLocaleInfoA(lcid, LOCALE_SDATE, NULL, 0); GetLocaleInfoA(lcid, LOCALE_SDATE, pNextPos, size); TRACE("TOK_COLON Time separator is '%s'\n", pNextPos); pNextPos = pNextPos + size; pData = pData + 1; break; case TOK_d : sprintf(pNextPos, "%d", TM.tm_mday); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_dd : sprintf(pNextPos, "%2.2d", TM.tm_mday); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_w : sprintf(pNextPos, "%d", TM.tm_wday+1); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_m : sprintf(pNextPos, "%d", TM.tm_mon+1); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_mm : sprintf(pNextPos, "%2.2d", TM.tm_mon+1); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_q : sprintf(pNextPos, "%d", ((TM.tm_mon+1)/4)+1); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_y : sprintf(pNextPos, "%2.2d", TM.tm_yday+1); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_yy : sprintf(pNextPos, "%2.2d", TM.tm_year); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_yyyy : sprintf(pNextPos, "%4.4d", TM.tm_year); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_h : sprintf(pNextPos, "%d", TM.tm_hour); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_Hh : sprintf(pNextPos, "%2.2d", TM.tm_hour); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_N : sprintf(pNextPos, "%d", TM.tm_min); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_Nn : sprintf(pNextPos, "%2.2d", TM.tm_min); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_S : sprintf(pNextPos, "%d", TM.tm_sec); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; case TOK_Ss : sprintf(pNextPos, "%2.2d", TM.tm_sec); pNextPos = pNextPos + strlen(pNextPos); pData = pData + 1; break; /* FIXME: To Do! */ case TOK_ttttt : case TOK_AMsPM : case TOK_amspm : case TOK_AsP : case TOK_asp : case TOK_AMPM : case TOK_c : case TOK_ddd : case TOK_dddd : case TOK_ddddd : case TOK_dddddd : case TOK_ww : case TOK_mmm : case TOK_mmmm : default: FIXME("Unhandled token for VarFormat %d\n", *pData); HeapFree( GetProcessHeap(), 0, pFormatA ); return E_INVALIDARG; } } *pbstrOut = StringDupAtoBstr( output ); HeapFree( GetProcessHeap(), 0, pFormatA ); return S_OK; } /********************************************************************** * VarFormat [OLEAUT32.87] * */ HRESULT WINAPI VarFormat(LPVARIANT varIn, LPOLESTR format, int firstDay, int firstWeek, ULONG dwFlags, BSTR *pbstrOut) { LPSTR pNewString = NULL; HRESULT rc = S_OK; TRACE("mostly stub! format='%s' day=%d, wk=%d, flags=%ld\n", debugstr_w(format), firstDay, firstWeek, dwFlags); TRACE("varIn:\n"); dump_Variant(varIn); /* Note: Must Handle references type Variants (contain ptrs to values rather than values */ /* Get format string */ pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, format ); /* FIXME: Handle some simple pre-definted format strings : */ if (((V_VT(varIn)&VT_TYPEMASK) == VT_CY) && (lstrcmpiA(pNewString, "Currency") == 0)) { /* Can't use VarBstrFromCy as it does not put currency sign on nor decimal places */ double curVal; /* Handle references type Variants (contain ptrs to values rather than values */ if (V_VT(varIn)&VT_BYREF) { rc = VarR8FromCy(*(CY *)V_UNION(varIn,byref), &curVal); } else { rc = VarR8FromCy(V_UNION(varIn,cyVal), &curVal); } if (rc == S_OK) { char tmpStr[BUFFER_MAX]; sprintf(tmpStr, "%f", curVal); if (GetCurrencyFormatA(GetUserDefaultLCID(), dwFlags, tmpStr, NULL, pBuffer, BUFFER_MAX) == 0) { return E_FAIL; } else { *pbstrOut = StringDupAtoBstr( pBuffer ); } } } else if ((V_VT(varIn)&VT_TYPEMASK) == VT_DATE) { /* Attempt to do proper formatting! */ int firstToken = -1; rc = VarTokenizeFormatString(format, pBuffer, sizeof(pBuffer), firstDay, firstWeek, GetUserDefaultLCID(), &firstToken); if (rc==S_OK) { rc = VarFormatFromTokens(varIn, format, pBuffer, dwFlags, pbstrOut, GetUserDefaultLCID()); } } else if ((V_VT(varIn)&VT_TYPEMASK) == VT_R8) { if (V_VT(varIn)&VT_BYREF) { sprintf(pBuffer, "%f", *V_UNION(varIn,pdblVal)); } else { sprintf(pBuffer, "%f", V_UNION(varIn,dblVal)); } *pbstrOut = StringDupAtoBstr( pBuffer ); } else if ((V_VT(varIn)&VT_TYPEMASK) == VT_I2) { if (V_VT(varIn)&VT_BYREF) { sprintf(pBuffer, "%d", *V_UNION(varIn,piVal)); } else { sprintf(pBuffer, "%d", V_UNION(varIn,iVal)); } *pbstrOut = StringDupAtoBstr( pBuffer ); } else if ((V_VT(varIn)&VT_TYPEMASK) == VT_BSTR) { if (V_VT(varIn)&VT_BYREF) *pbstrOut = SysAllocString( *V_UNION(varIn,pbstrVal) ); else *pbstrOut = SysAllocString( V_UNION(varIn,bstrVal) ); } else { FIXME("VarFormat: Unsupported format %d!\n", V_VT(varIn)&VT_TYPEMASK); *pbstrOut = StringDupAtoBstr( "??" ); } /* Free allocated storage */ HeapFree( GetProcessHeap(), 0, pNewString ); TRACE("result: '%s'\n", debugstr_w(*pbstrOut)); return rc; } /********************************************************************** * VarCyMulI4 [OLEAUT32.304] * Multiply currency value by integer */ HRESULT WINAPI VarCyMulI4(CY cyIn, LONG mulBy, CY *pcyOut) { double cyVal = 0; HRESULT rc = S_OK; rc = VarR8FromCy(cyIn, &cyVal); if (rc == S_OK) { rc = VarCyFromR8((cyVal * (double) mulBy), pcyOut); TRACE("Multiply %f by %ld = %f [%ld,%lu]\n", cyVal, mulBy, (cyVal * (double) mulBy), pcyOut->s.Hi, pcyOut->s.Lo); } return rc; } /********************************************************************** * VarMod [OLEAUT32.154] * */ HRESULT WINAPI VarMod(LPVARIANT left, LPVARIANT right, LPVARIANT result) { FIXME("%p %p %p\n", left, right, result); return E_FAIL; }