6203 lines
167 KiB
C
6203 lines
167 KiB
C
/*
|
|
* 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 prototypes for these are commented out in the oleauto.h file. They need
|
|
* to be implemented and cases need to be added to the switches of the existing APIs.
|
|
* - The parsing of date for the VarDateFromStr is not complete.
|
|
* - The date manipulations do not support dates prior to 1900.
|
|
* - The parsing does not accept as many formats as the Windows implementation.
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <math.h>
|
|
#include <time.h>
|
|
|
|
#ifdef HAVE_FLOAT_H
|
|
# include <float.h>
|
|
#endif
|
|
|
|
#define NONAMELESSUNION
|
|
#define NONAMELESSSTRUCT
|
|
#include "windef.h"
|
|
#include "oleauto.h"
|
|
#include "heap.h"
|
|
#include "wine/debug.h"
|
|
#include "winerror.h"
|
|
#include "parsedt.h"
|
|
#include "typelib.h"
|
|
#include "winternl.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(ole);
|
|
|
|
#define SYSDUPSTRING(str) SysAllocStringLen((str), SysStringLen(str))
|
|
|
|
#ifndef FLT_MAX
|
|
# ifdef MAXFLOAT
|
|
# define FLT_MAX MAXFLOAT
|
|
# else
|
|
# error "Can't find #define for MAXFLOAT/FLT_MAX"
|
|
# endif
|
|
#endif
|
|
|
|
#undef CHAR_MAX
|
|
#undef CHAR_MIN
|
|
static const char CHAR_MAX = 127;
|
|
static const char CHAR_MIN = -128;
|
|
static const BYTE UI1_MAX = 255;
|
|
static const BYTE UI1_MIN = 0;
|
|
static const unsigned short UI2_MAX = 65535;
|
|
static const unsigned short UI2_MIN = 0;
|
|
static const short I2_MAX = 32767;
|
|
static const short I2_MIN = -32768;
|
|
static const unsigned long UI4_MAX = 4294967295U;
|
|
static const unsigned long UI4_MIN = 0;
|
|
static const long I4_MAX = 2147483647;
|
|
static const long I4_MIN = -(2147483648U);
|
|
static const DATE DATE_MIN = -657434;
|
|
static const DATE DATE_MAX = 2958465;
|
|
|
|
/* 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 {
|
|
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 fracionnal 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;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* RemoveCharacterFromString [INTERNAL]
|
|
*
|
|
* Removes any of the characters in "strOfCharToRemove" from the "str" argument.
|
|
*/
|
|
static void RemoveCharacterFromString( LPSTR str, LPSTR strOfCharToRemove )
|
|
{
|
|
LPSTR pNewString = NULL;
|
|
LPSTR strToken = NULL;
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
if( str != NULL )
|
|
{
|
|
pNewString = strdup( str );
|
|
str[0] = '\0';
|
|
strToken = strtok( pNewString, strOfCharToRemove );
|
|
while( strToken != NULL ) {
|
|
strcat( str, strToken );
|
|
strToken = strtok( NULL, strOfCharToRemove );
|
|
}
|
|
free( pNewString );
|
|
}
|
|
return;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* GetValidRealString [INTERNAL]
|
|
*
|
|
* Checks if the string is of proper format to be converted to a real value.
|
|
*/
|
|
static BOOL IsValidRealString( LPSTR strRealString )
|
|
{
|
|
/* Real values that have a decimal point are required to either have
|
|
* digits before or after the decimal point. We will assume that
|
|
* we do not have any digits at either position. If we do encounter
|
|
* some we will disable this flag.
|
|
*/
|
|
BOOL bDigitsRequired = TRUE;
|
|
/* Processed fields in the string representation of the real number.
|
|
*/
|
|
BOOL bWhiteSpaceProcessed = FALSE;
|
|
BOOL bFirstSignProcessed = FALSE;
|
|
BOOL bFirstDigitsProcessed = FALSE;
|
|
BOOL bDecimalPointProcessed = FALSE;
|
|
BOOL bSecondDigitsProcessed = FALSE;
|
|
BOOL bExponentProcessed = FALSE;
|
|
BOOL bSecondSignProcessed = FALSE;
|
|
BOOL bThirdDigitsProcessed = FALSE;
|
|
/* Assume string parameter "strRealString" is valid and try to disprove it.
|
|
*/
|
|
BOOL bValidRealString = TRUE;
|
|
|
|
/* Used to count the number of tokens in the "strRealString".
|
|
*/
|
|
LPSTR strToken = NULL;
|
|
int nTokens = 0;
|
|
LPSTR pChar = NULL;
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
if( strRealString == NULL )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
|
|
if( bValidRealString == TRUE )
|
|
{
|
|
/* Make sure we only have ONE token in the string.
|
|
*/
|
|
strToken = strtok( strRealString, " " );
|
|
while( strToken != NULL ) {
|
|
nTokens++;
|
|
strToken = strtok( NULL, " " );
|
|
}
|
|
|
|
if( nTokens != 1 )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
}
|
|
|
|
|
|
/* Make sure this token contains only valid characters.
|
|
* The string argument to atof has the following form:
|
|
* [whitespace] [sign] [digits] [.digits] [ {d | D | e | E }[sign]digits]
|
|
* Whitespace consists of space and|or <TAB> characters, which are ignored.
|
|
* Sign is either plus '+' or minus '-'.
|
|
* Digits are one or more decimal digits.
|
|
* Note: If no digits appear before the decimal point, at least one must
|
|
* appear after the decimal point.
|
|
* The decimal digits may be followed by an exponent.
|
|
* An Exponent consists of an introductory letter ( D, d, E, or e) and
|
|
* an optionally signed decimal integer.
|
|
*/
|
|
pChar = strRealString;
|
|
while( bValidRealString == TRUE && *pChar != '\0' )
|
|
{
|
|
switch( *pChar )
|
|
{
|
|
/* If whitespace...
|
|
*/
|
|
case ' ':
|
|
case '\t':
|
|
if( bWhiteSpaceProcessed ||
|
|
bFirstSignProcessed ||
|
|
bFirstDigitsProcessed ||
|
|
bDecimalPointProcessed ||
|
|
bSecondDigitsProcessed ||
|
|
bExponentProcessed ||
|
|
bSecondSignProcessed ||
|
|
bThirdDigitsProcessed )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
break;
|
|
/* If sign...
|
|
*/
|
|
case '+':
|
|
case '-':
|
|
if( bFirstSignProcessed == FALSE )
|
|
{
|
|
if( bFirstDigitsProcessed ||
|
|
bDecimalPointProcessed ||
|
|
bSecondDigitsProcessed ||
|
|
bExponentProcessed ||
|
|
bSecondSignProcessed ||
|
|
bThirdDigitsProcessed )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
bWhiteSpaceProcessed = TRUE;
|
|
bFirstSignProcessed = TRUE;
|
|
}
|
|
else if( bSecondSignProcessed == FALSE )
|
|
{
|
|
/* Note: The exponent must be present in
|
|
* order to accept the second sign...
|
|
*/
|
|
if( bExponentProcessed == FALSE ||
|
|
bThirdDigitsProcessed ||
|
|
bDigitsRequired )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
bFirstSignProcessed = TRUE;
|
|
bWhiteSpaceProcessed = TRUE;
|
|
bFirstDigitsProcessed = TRUE;
|
|
bDecimalPointProcessed = TRUE;
|
|
bSecondDigitsProcessed = TRUE;
|
|
bSecondSignProcessed = TRUE;
|
|
}
|
|
break;
|
|
|
|
/* If decimals...
|
|
*/
|
|
case '0':
|
|
case '1':
|
|
case '2':
|
|
case '3':
|
|
case '4':
|
|
case '5':
|
|
case '6':
|
|
case '7':
|
|
case '8':
|
|
case '9':
|
|
if( bFirstDigitsProcessed == FALSE )
|
|
{
|
|
if( bDecimalPointProcessed ||
|
|
bSecondDigitsProcessed ||
|
|
bExponentProcessed ||
|
|
bSecondSignProcessed ||
|
|
bThirdDigitsProcessed )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
bFirstSignProcessed = TRUE;
|
|
bWhiteSpaceProcessed = TRUE;
|
|
/* We have found some digits before the decimal point
|
|
* so disable the "Digits required" flag.
|
|
*/
|
|
bDigitsRequired = FALSE;
|
|
}
|
|
else if( bSecondDigitsProcessed == FALSE )
|
|
{
|
|
if( bExponentProcessed ||
|
|
bSecondSignProcessed ||
|
|
bThirdDigitsProcessed )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
bFirstSignProcessed = TRUE;
|
|
bWhiteSpaceProcessed = TRUE;
|
|
bFirstDigitsProcessed = TRUE;
|
|
bDecimalPointProcessed = TRUE;
|
|
/* We have found some digits after the decimal point
|
|
* so disable the "Digits required" flag.
|
|
*/
|
|
bDigitsRequired = FALSE;
|
|
}
|
|
else if( bThirdDigitsProcessed == FALSE )
|
|
{
|
|
/* Getting here means everything else should be processed.
|
|
* If we get anything else than a decimal following this
|
|
* digit it will be flagged by the other cases, so
|
|
* we do not really need to do anything in here.
|
|
*/
|
|
}
|
|
break;
|
|
/* If DecimalPoint...
|
|
*/
|
|
case '.':
|
|
if( bDecimalPointProcessed ||
|
|
bSecondDigitsProcessed ||
|
|
bExponentProcessed ||
|
|
bSecondSignProcessed ||
|
|
bThirdDigitsProcessed )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
bFirstSignProcessed = TRUE;
|
|
bWhiteSpaceProcessed = TRUE;
|
|
bFirstDigitsProcessed = TRUE;
|
|
bDecimalPointProcessed = TRUE;
|
|
break;
|
|
/* If Exponent...
|
|
*/
|
|
case 'e':
|
|
case 'E':
|
|
case 'd':
|
|
case 'D':
|
|
if( bExponentProcessed ||
|
|
bSecondSignProcessed ||
|
|
bThirdDigitsProcessed ||
|
|
bDigitsRequired )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
bFirstSignProcessed = TRUE;
|
|
bWhiteSpaceProcessed = TRUE;
|
|
bFirstDigitsProcessed = TRUE;
|
|
bDecimalPointProcessed = TRUE;
|
|
bSecondDigitsProcessed = TRUE;
|
|
bExponentProcessed = TRUE;
|
|
break;
|
|
default:
|
|
bValidRealString = FALSE;
|
|
break;
|
|
}
|
|
/* Process next character.
|
|
*/
|
|
pChar++;
|
|
}
|
|
|
|
/* If the required digits were not present we have an invalid
|
|
* string representation of a real number.
|
|
*/
|
|
if( bDigitsRequired == TRUE )
|
|
{
|
|
bValidRealString = FALSE;
|
|
}
|
|
|
|
return bValidRealString;
|
|
}
|
|
|
|
|
|
/******************************************************************************
|
|
* Coerce [INTERNAL]
|
|
*
|
|
* This function dispatches execution to the proper conversion API
|
|
* to do the necessary coercion.
|
|
*
|
|
* 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_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 WINAPI ValidateVtRange( VARTYPE vt )
|
|
{
|
|
/* if by value we must make sure it is in the
|
|
* range of the valid types.
|
|
*/
|
|
if( ( vt & VT_TYPEMASK ) > VT_MAXVALIDTYPE )
|
|
{
|
|
return DISP_E_BADVARTYPE;
|
|
}
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
/******************************************************************************
|
|
* ValidateVartype [INTERNAL]
|
|
*
|
|
* Used internally by the hi-level Variant API to determine
|
|
* if the vartypes are valid.
|
|
*/
|
|
static HRESULT WINAPI ValidateVariantType( VARTYPE vt )
|
|
{
|
|
HRESULT res = S_OK;
|
|
|
|
/* check if we have a valid argument.
|
|
*/
|
|
if( vt & VT_BYREF )
|
|
{
|
|
/* if by reference check that the type is in
|
|
* the valid range and that it is not of empty or null type
|
|
*/
|
|
if( ( vt & VT_TYPEMASK ) == VT_EMPTY ||
|
|
( vt & VT_TYPEMASK ) == VT_NULL ||
|
|
( vt & VT_TYPEMASK ) > VT_MAXVALIDTYPE )
|
|
{
|
|
res = 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 WINAPI ValidateVt( VARTYPE vt )
|
|
{
|
|
HRESULT res = S_OK;
|
|
|
|
/* check if we have a valid argument.
|
|
*/
|
|
if( vt & VT_BYREF )
|
|
{
|
|
/* if by reference check that the type is in
|
|
* the valid range and that it is not of empty or null type
|
|
*/
|
|
if( ( vt & VT_TYPEMASK ) == VT_EMPTY ||
|
|
( vt & VT_TYPEMASK ) == VT_NULL ||
|
|
( vt & VT_TYPEMASK ) > VT_MAXVALIDTYPE )
|
|
{
|
|
res = DISP_E_BADVARTYPE;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
res = ValidateVtRange( vt );
|
|
}
|
|
|
|
return res;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/******************************************************************************
|
|
* VariantInit [OLEAUT32.8]
|
|
*
|
|
* Initializes the Variant. Unlike VariantClear it does not interpret
|
|
* the current contents of the Variant.
|
|
*/
|
|
void WINAPI VariantInit(VARIANTARG* pvarg)
|
|
{
|
|
TRACE("(%p)\n",pvarg);
|
|
|
|
memset(pvarg, 0, sizeof (VARIANTARG));
|
|
V_VT(pvarg) = VT_EMPTY;
|
|
|
|
return;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VariantClear [OLEAUT32.9]
|
|
*
|
|
* This function clears the VARIANT by setting the vt field to VT_EMPTY. It also
|
|
* sets the wReservedX field to 0. The current contents of the VARIANT are
|
|
* freed. If the vt is VT_BSTR the string is freed. If VT_DISPATCH the object is
|
|
* released. If VT_ARRAY the array is freed.
|
|
*/
|
|
HRESULT WINAPI VariantClear(VARIANTARG* pvarg)
|
|
{
|
|
HRESULT res = S_OK;
|
|
TRACE("(%p)\n",pvarg);
|
|
|
|
res = ValidateVariantType( V_VT(pvarg) );
|
|
if( res == S_OK )
|
|
{
|
|
if( !( V_VT(pvarg) & VT_BYREF ) )
|
|
{
|
|
/*
|
|
* The VT_ARRAY flag is a special case of a safe array.
|
|
*/
|
|
if ( (V_VT(pvarg) & VT_ARRAY) != 0)
|
|
{
|
|
SafeArrayDestroy(V_UNION(pvarg,parray));
|
|
}
|
|
else
|
|
{
|
|
switch( V_VT(pvarg) & VT_TYPEMASK )
|
|
{
|
|
case( VT_BSTR ):
|
|
SysFreeString( V_UNION(pvarg,bstrVal) );
|
|
break;
|
|
case( VT_DISPATCH ):
|
|
if(V_UNION(pvarg,pdispVal)!=NULL)
|
|
IDispatch_Release(V_UNION(pvarg,pdispVal));
|
|
break;
|
|
case( VT_VARIANT ):
|
|
VariantClear(V_UNION(pvarg,pvarVal));
|
|
break;
|
|
case( VT_UNKNOWN ):
|
|
if(V_UNION(pvarg,punkVal)!=NULL)
|
|
IUnknown_Release(V_UNION(pvarg,punkVal));
|
|
break;
|
|
case( VT_SAFEARRAY ):
|
|
SafeArrayDestroy(V_UNION(pvarg,parray));
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Empty all the fields and mark the type as empty.
|
|
*/
|
|
memset(pvarg, 0, sizeof (VARIANTARG));
|
|
V_VT(pvarg) = VT_EMPTY;
|
|
}
|
|
|
|
return res;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VariantCopy [OLEAUT32.10]
|
|
*
|
|
* Frees up the designation variant and makes a copy of the source.
|
|
*/
|
|
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]
|
|
*
|
|
* Frees up the destination variant and makes a copy of the source. If
|
|
* the source is of type VT_BYREF it performs the necessary indirections.
|
|
*/
|
|
HRESULT WINAPI 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]
|
|
*/
|
|
HRESULT WINAPI VariantChangeType(VARIANTARG* pvargDest, VARIANTARG* pvargSrc,
|
|
USHORT wFlags, VARTYPE vt)
|
|
{
|
|
return VariantChangeTypeEx( pvargDest, pvargSrc, 0, wFlags, vt );
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VariantChangeTypeEx [OLEAUT32.147]
|
|
*/
|
|
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(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)
|
|
{
|
|
double dValue = 0.0;
|
|
LPSTR pNewString = NULL;
|
|
|
|
TRACE("( %p, 0x%08lx, 0x%08lx, %p ), stub\n", strIn, lcid, dwFlags, pbOut );
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
RemoveCharacterFromString( pNewString, "," );
|
|
if( IsValidRealString( pNewString ) == FALSE )
|
|
{
|
|
return DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
/* Convert the valid string to a floating point number.
|
|
*/
|
|
dValue = atof( pNewString );
|
|
|
|
/* We don't need the string anymore so free it.
|
|
*/
|
|
HeapFree( GetProcessHeap(), 0 , pNewString );
|
|
|
|
/* Check range of value.
|
|
*/
|
|
dValue = round( dValue );
|
|
if( dValue < UI1_MIN || dValue > UI1_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pbOut = (BYTE) dValue;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* 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(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)
|
|
{
|
|
double dValue = 0.0;
|
|
LPSTR pNewString = NULL;
|
|
|
|
TRACE("( %s, 0x%08lx, 0x%08lx, %p ), stub\n", debugstr_w(strIn), lcid, dwFlags, psOut );
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
RemoveCharacterFromString( pNewString, "," );
|
|
if( IsValidRealString( pNewString ) == FALSE )
|
|
{
|
|
return DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
/* Convert the valid string to a floating point number.
|
|
*/
|
|
dValue = atof( pNewString );
|
|
|
|
/* We don't need the string anymore so free it.
|
|
*/
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
|
|
/* Check range of value.
|
|
*/
|
|
dValue = round( dValue );
|
|
if( dValue < I2_MIN || dValue > I2_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*psOut = (short) dValue;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* 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(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)
|
|
{
|
|
double dValue = 0.0;
|
|
LPSTR pNewString = NULL;
|
|
|
|
TRACE("( %p, 0x%08lx, 0x%08lx, %p ), stub\n", strIn, lcid, dwFlags, plOut );
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
RemoveCharacterFromString( pNewString, "," );
|
|
if( IsValidRealString( pNewString ) == FALSE )
|
|
{
|
|
return DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
/* Convert the valid string to a floating point number.
|
|
*/
|
|
dValue = atof( pNewString );
|
|
|
|
/* We don't need the string anymore so free it.
|
|
*/
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
|
|
/* Check range of value.
|
|
*/
|
|
dValue = round( dValue );
|
|
if( dValue < I4_MIN || dValue > I4_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*plOut = (LONG) dValue;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* 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 < -(FLT_MAX) || dblIn > FLT_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 < -(FLT_MAX) || dateIn > FLT_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(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)
|
|
{
|
|
double dValue = 0.0;
|
|
LPSTR pNewString = NULL;
|
|
|
|
TRACE("( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pfltOut );
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
RemoveCharacterFromString( pNewString, "," );
|
|
if( IsValidRealString( pNewString ) == FALSE )
|
|
{
|
|
return DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
/* Convert the valid string to a floating point number.
|
|
*/
|
|
dValue = atof( pNewString );
|
|
|
|
/* We don't need the string anymore so free it.
|
|
*/
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
|
|
/* Check range of value.
|
|
*/
|
|
if( dValue < -(FLT_MAX) || dValue > FLT_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pfltOut = (FLOAT) dValue;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* 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(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)
|
|
{
|
|
double dValue = 0.0;
|
|
LPSTR pNewString = NULL;
|
|
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
TRACE("( %s, %ld, %ld, %p ), stub\n", pNewString, lcid, dwFlags, pdblOut );
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
RemoveCharacterFromString( pNewString, "," );
|
|
if( IsValidRealString( pNewString ) == FALSE )
|
|
{
|
|
return DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
/* Convert the valid string to a floating point number.
|
|
*/
|
|
dValue = atof( pNewString );
|
|
|
|
/* We don't need the string anymore so free it.
|
|
*/
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
|
|
*pdblOut = dValue;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* 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(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(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)
|
|
{
|
|
HRESULT ret = S_OK;
|
|
char* pNewString = NULL;
|
|
|
|
TRACE("( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pboolOut );
|
|
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
|
|
if( pNewString == NULL || strlen( pNewString ) == 0 )
|
|
{
|
|
ret = DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
if( ret == S_OK )
|
|
{
|
|
if( strncasecmp( pNewString, "True", strlen( pNewString ) ) == 0 )
|
|
{
|
|
*pboolOut = VARIANT_TRUE;
|
|
}
|
|
else if( strncasecmp( pNewString, "False", strlen( pNewString ) ) == 0 )
|
|
{
|
|
*pboolOut = VARIANT_FALSE;
|
|
}
|
|
else
|
|
{
|
|
/* Try converting the string to a floating point number.
|
|
*/
|
|
double dValue = 0.0;
|
|
HRESULT res = VarR8FromStr( strIn, lcid, dwFlags, &dValue );
|
|
if( res != S_OK )
|
|
{
|
|
ret = DISP_E_TYPEMISMATCH;
|
|
}
|
|
else
|
|
*pboolOut = (dValue == 0.0) ?
|
|
VARIANT_FALSE : VARIANT_TRUE;
|
|
}
|
|
}
|
|
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
|
|
return ret;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarBoolFromI1 [OLEAUT32.233]
|
|
*/
|
|
HRESULT WINAPI VarBoolFromI1(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, CHAR* pcOut)
|
|
{
|
|
TRACE("( %d, %p ), stub\n", bIn, pcOut );
|
|
|
|
/* Check range of value.
|
|
*/
|
|
if( bIn > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) bIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromI2 [OLEAUT32.245]
|
|
*/
|
|
HRESULT WINAPI VarI1FromI2(short uiIn, CHAR* pcOut)
|
|
{
|
|
TRACE("( %d, %p ), stub\n", uiIn, pcOut );
|
|
|
|
if( uiIn > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) uiIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromI4 [OLEAUT32.246]
|
|
*/
|
|
HRESULT WINAPI VarI1FromI4(LONG lIn, CHAR* pcOut)
|
|
{
|
|
TRACE("( %ld, %p ), stub\n", lIn, pcOut );
|
|
|
|
if( lIn < CHAR_MIN || lIn > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) lIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromR4 [OLEAUT32.247]
|
|
*/
|
|
HRESULT WINAPI VarI1FromR4(FLOAT fltIn, CHAR* pcOut)
|
|
{
|
|
TRACE("( %f, %p ), stub\n", fltIn, pcOut );
|
|
|
|
fltIn = round( fltIn );
|
|
if( fltIn < CHAR_MIN || fltIn > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) fltIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromR8 [OLEAUT32.248]
|
|
*/
|
|
HRESULT WINAPI VarI1FromR8(double dblIn, CHAR* pcOut)
|
|
{
|
|
TRACE("( %f, %p ), stub\n", dblIn, pcOut );
|
|
|
|
dblIn = round( dblIn );
|
|
if( dblIn < CHAR_MIN || dblIn > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) dblIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromDate [OLEAUT32.249]
|
|
*/
|
|
HRESULT WINAPI VarI1FromDate(DATE dateIn, CHAR* pcOut)
|
|
{
|
|
TRACE("( %f, %p ), stub\n", dateIn, pcOut );
|
|
|
|
dateIn = round( dateIn );
|
|
if( dateIn < CHAR_MIN || dateIn > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) dateIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromStr [OLEAUT32.251]
|
|
*/
|
|
HRESULT WINAPI VarI1FromStr(OLECHAR* strIn, LCID lcid, ULONG dwFlags, CHAR* pcOut)
|
|
{
|
|
double dValue = 0.0;
|
|
LPSTR pNewString = NULL;
|
|
|
|
TRACE("( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pcOut );
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
RemoveCharacterFromString( pNewString, "," );
|
|
if( IsValidRealString( pNewString ) == FALSE )
|
|
{
|
|
return DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
/* Convert the valid string to a floating point number.
|
|
*/
|
|
dValue = atof( pNewString );
|
|
|
|
/* We don't need the string anymore so free it.
|
|
*/
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
|
|
/* Check range of value.
|
|
*/
|
|
dValue = round( dValue );
|
|
if( dValue < CHAR_MIN || dValue > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) dValue;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromBool [OLEAUT32.253]
|
|
*/
|
|
HRESULT WINAPI VarI1FromBool(VARIANT_BOOL boolIn, CHAR* pcOut)
|
|
{
|
|
TRACE("( %d, %p ), stub\n", boolIn, pcOut );
|
|
|
|
*pcOut = (CHAR) boolIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromUI2 [OLEAUT32.254]
|
|
*/
|
|
HRESULT WINAPI VarI1FromUI2(USHORT uiIn, CHAR* pcOut)
|
|
{
|
|
TRACE("( %d, %p ), stub\n", uiIn, pcOut );
|
|
|
|
if( uiIn > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) uiIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* VarI1FromUI4 [OLEAUT32.255]
|
|
*/
|
|
HRESULT WINAPI VarI1FromUI4(ULONG ulIn, CHAR* pcOut)
|
|
{
|
|
TRACE("( %ld, %p ), stub\n", ulIn, pcOut );
|
|
|
|
if( ulIn > CHAR_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pcOut = (CHAR) ulIn;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VarI1FromCy [OLEAUT32.250]
|
|
* Convert currency to signed char
|
|
*/
|
|
HRESULT WINAPI VarI1FromCy(CY cyIn, CHAR* pcOut) {
|
|
double t = round((((double)cyIn.s.Hi * 4294967296.0) + (double)cyIn.s.Lo) / 10000);
|
|
|
|
if (t > CHAR_MAX || t < CHAR_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)
|
|
{
|
|
double dValue = 0.0;
|
|
LPSTR pNewString = NULL;
|
|
|
|
TRACE("( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, puiOut );
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
RemoveCharacterFromString( pNewString, "," );
|
|
if( IsValidRealString( pNewString ) == FALSE )
|
|
{
|
|
return DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
/* Convert the valid string to a floating point number.
|
|
*/
|
|
dValue = atof( pNewString );
|
|
|
|
/* We don't need the string anymore so free it.
|
|
*/
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
|
|
/* Check range of value.
|
|
*/
|
|
dValue = round( dValue );
|
|
if( dValue < UI2_MIN || dValue > UI2_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*puiOut = (USHORT) dValue;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* 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(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)
|
|
{
|
|
double dValue = 0.0;
|
|
LPSTR pNewString = NULL;
|
|
|
|
TRACE("( %p, %ld, %ld, %p ), stub\n", strIn, lcid, dwFlags, pulOut );
|
|
|
|
/* Check if we have a valid argument
|
|
*/
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
RemoveCharacterFromString( pNewString, "," );
|
|
if( IsValidRealString( pNewString ) == FALSE )
|
|
{
|
|
return DISP_E_TYPEMISMATCH;
|
|
}
|
|
|
|
/* Convert the valid string to a floating point number.
|
|
*/
|
|
dValue = atof( pNewString );
|
|
|
|
/* We don't need the string anymore so free it.
|
|
*/
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
|
|
/* Check range of value.
|
|
*/
|
|
dValue = round( dValue );
|
|
if( dValue < UI4_MIN || dValue > UI4_MAX )
|
|
{
|
|
return DISP_E_OVERFLOW;
|
|
}
|
|
|
|
*pulOut = (ULONG) dValue;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* 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(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 seperator other than '.'
|
|
*/
|
|
HRESULT WINAPI VarCyFromStr(OLECHAR *strIn, LCID lcid, ULONG dwFlags, CY *pcyOut) {
|
|
|
|
LPSTR pNewString = NULL;
|
|
char *decSep = NULL;
|
|
char *strPtr,*curPtr = NULL;
|
|
int size, rc;
|
|
double currencyVal = 0.0;
|
|
|
|
|
|
pNewString = HEAP_strdupWtoA( GetProcessHeap(), 0, strIn );
|
|
TRACE("( '%s', 0x%08lx, 0x%08lx, %p )\n", pNewString, lcid, dwFlags, pcyOut );
|
|
|
|
/* Get locale information - Decimal Seperator (size includes 0x00) */
|
|
size = GetLocaleInfoA(lcid, LOCALE_SDECIMAL, NULL, 0);
|
|
decSep = (char *) malloc(size);
|
|
rc = GetLocaleInfoA(lcid, LOCALE_SDECIMAL, decSep, size);
|
|
TRACE("Decimal Seperator is '%s'\n", decSep);
|
|
|
|
/* Now copy to temporary buffer, skipping any character except 0-9 and
|
|
the decimal seperator */
|
|
curPtr = pBuffer; /* Current position in string being built */
|
|
strPtr = pNewString; /* Current position in supplied currenct string */
|
|
|
|
while (*strPtr) {
|
|
/* If decimal seperator, skip it and put '.' in string */
|
|
if (strncmp(strPtr, decSep, (size-1)) == 0) {
|
|
strPtr = strPtr + (size-1);
|
|
*curPtr = '.';
|
|
curPtr++;
|
|
} else if ((*strPtr == '+' || *strPtr == '-') ||
|
|
(*strPtr >= '0' && *strPtr <= '9')) {
|
|
*curPtr = *strPtr;
|
|
strPtr++;
|
|
curPtr++;
|
|
} else strPtr++;
|
|
}
|
|
*curPtr = 0x00;
|
|
|
|
/* Try to get currency into a double */
|
|
currencyVal = atof(pBuffer);
|
|
TRACE("Converted string '%s' to %f\n", pBuffer, currencyVal);
|
|
|
|
/* Free allocated storage */
|
|
HeapFree( GetProcessHeap(), 0, pNewString );
|
|
free(decSep);
|
|
|
|
/* Convert double -> currency using internal routine */
|
|
return VarCyFromR8(currencyVal, 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 );
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* VarParseNumFromStr [OLEAUT32.46]
|
|
*/
|
|
HRESULT WINAPI VarParseNumFromStr(OLECHAR * strIn, LCID lcid, ULONG dwFlags,
|
|
NUMPARSE * pnumprs, BYTE * rgbDig)
|
|
{
|
|
int i,lastent=0;
|
|
int cDig;
|
|
BOOL foundNum=FALSE;
|
|
|
|
FIXME("(%s,flags=%lx,....), partial stub!\n",debugstr_w(strIn),dwFlags);
|
|
FIXME("numparse: cDig=%d, InFlags=%lx\n",pnumprs->cDig,pnumprs->dwInFlags);
|
|
|
|
/* The other struct components are to be set by us */
|
|
memset(rgbDig,0,pnumprs->cDig);
|
|
|
|
/* FIXME: Just patching some values in */
|
|
pnumprs->nPwr10 = 0;
|
|
pnumprs->nBaseShift = 0;
|
|
pnumprs->cchUsed = lastent;
|
|
pnumprs->dwOutFlags = NUMPRS_DECIMAL;
|
|
|
|
cDig = 0;
|
|
for (i=0; strIn[i] ;i++) {
|
|
if ((strIn[i]>='0') && (strIn[i]<='9')) {
|
|
foundNum = TRUE;
|
|
if (pnumprs->cDig > cDig) {
|
|
*(rgbDig++)=strIn[i]-'0';
|
|
cDig++;
|
|
lastent = i;
|
|
}
|
|
} else if ((strIn[i]=='-') && (foundNum==FALSE)) {
|
|
pnumprs->dwOutFlags |= NUMPRS_NEG;
|
|
}
|
|
}
|
|
pnumprs->cDig = cDig;
|
|
TRACE("numparse out: cDig=%d, OutFlags=%lx\n",pnumprs->cDig,pnumprs->dwOutFlags);
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* VarNumFromParseNum [OLEAUT32.47]
|
|
*/
|
|
HRESULT WINAPI VarNumFromParseNum(NUMPARSE * pnumprs, BYTE * rgbDig,
|
|
ULONG dwVtBits, VARIANT * pvar)
|
|
{
|
|
DWORD xint;
|
|
int i;
|
|
FIXME("(..,dwVtBits=%lx,....), partial stub!\n",dwVtBits);
|
|
|
|
xint = 0;
|
|
for (i=0;i<pnumprs->cDig;i++)
|
|
xint = xint*10 + rgbDig[i];
|
|
|
|
if (pnumprs->dwOutFlags & NUMPRS_NEG) {
|
|
xint = xint * -1;
|
|
}
|
|
|
|
VariantInit(pvar);
|
|
if (dwVtBits & VTBIT_I4) {
|
|
V_VT(pvar) = VT_I4;
|
|
V_UNION(pvar,intVal) = xint;
|
|
return S_OK;
|
|
}
|
|
if (dwVtBits & VTBIT_R8) {
|
|
V_VT(pvar) = VT_R8;
|
|
V_UNION(pvar,dblVal) = xint;
|
|
return S_OK;
|
|
}
|
|
if (dwVtBits & VTBIT_R4) {
|
|
V_VT(pvar) = VT_R4;
|
|
V_UNION(pvar,fltVal) = xint;
|
|
return S_OK;
|
|
}
|
|
if (dwVtBits & VTBIT_I2) {
|
|
V_VT(pvar) = VT_I2;
|
|
V_UNION(pvar,iVal) = xint;
|
|
return S_OK;
|
|
}
|
|
/* FIXME: Currency should be from a double */
|
|
if (dwVtBits & VTBIT_CY) {
|
|
V_VT(pvar) = VT_CY;
|
|
TRACE("Calculated currency is xint=%ld\n", xint);
|
|
VarCyFromInt( (int) xint, &V_UNION(pvar,cyVal) );
|
|
TRACE("Calculated cy is %ld,%lu\n", V_UNION(pvar,cyVal).s.Hi, V_UNION(pvar,cyVal).s.Lo);
|
|
return VarCyFromInt( (int) xint, &V_UNION(pvar,cyVal) );
|
|
}
|
|
|
|
FIXME("vtbitmask is unsupported %lx, int=%d\n",dwVtBits, (int) xint);
|
|
return E_FAIL;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* 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; i<pudateout->st.wMonth; i++)
|
|
pudateout->wDayOfYear += Days_Per_Month[i];
|
|
}
|
|
else
|
|
{
|
|
for (i =1; i<pudateout->st.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<<VT_R8)) {
|
|
rc = VariantChangeType(&lv,left,0,VT_R8);
|
|
if (FAILED(rc)) return rc;
|
|
rc = VariantChangeType(&rv,right,0,VT_R8);
|
|
if (FAILED(rc)) return rc;
|
|
|
|
if (V_R8(&lv) == V_R8(&rv)) return VARCMP_EQ;
|
|
if (V_R8(&lv) < V_R8(&rv)) return VARCMP_LT;
|
|
if (V_R8(&lv) > V_R8(&rv)) return VARCMP_GT;
|
|
return E_FAIL; /* can't get here */
|
|
}
|
|
if (xmask & (1<<VT_R4)) {
|
|
rc = VariantChangeType(&lv,left,0,VT_R4);
|
|
if (FAILED(rc)) return rc;
|
|
rc = VariantChangeType(&rv,right,0,VT_R4);
|
|
if (FAILED(rc)) return rc;
|
|
|
|
if (V_R4(&lv) == V_R4(&rv)) return VARCMP_EQ;
|
|
if (V_R4(&lv) < V_R4(&rv)) return VARCMP_LT;
|
|
if (V_R4(&lv) > 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);
|
|
|
|
/* 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;
|
|
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("unimplemented part\n");
|
|
}
|
|
}
|
|
|
|
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<<lvt) | (1<<rvt)) & ((1<<VT_R4)|(1<<VT_R8))) {
|
|
found = TRUE;
|
|
resvt = VT_R8;
|
|
}
|
|
if (!found && (((1<<lvt) | (1<<rvt)) & ((1<<VT_I1)|(1<<VT_I2)|(1<<VT_UI1)|(1<<VT_UI2)|(1<<VT_I4)|(1<<VT_UI4)|(1<<VT_INT)|(1<<VT_UINT)))) {
|
|
found = TRUE;
|
|
resvt = VT_I4;
|
|
}
|
|
if (!found) {
|
|
FIXME("can't expand vt %d vs %d to a target type.\n",lvt,rvt);
|
|
return E_FAIL;
|
|
}
|
|
rc = VariantChangeType(&lv, left, 0, resvt);
|
|
if (FAILED(rc)) {
|
|
FIXME("Could not convert 0x%x to %d?\n",V_VT(left),resvt);
|
|
return rc;
|
|
}
|
|
rc = VariantChangeType(&rv, right, 0, resvt);
|
|
if (FAILED(rc)) {
|
|
FIXME("Could not convert 0x%x to %d?\n",V_VT(right),resvt);
|
|
return rc;
|
|
}
|
|
switch (resvt) {
|
|
case VT_R8:
|
|
V_VT(result) = resvt;
|
|
V_R8(result) = V_R8(&lv) * V_R8(&rv);
|
|
rc = S_OK;
|
|
break;
|
|
case VT_I4:
|
|
V_VT(result) = resvt;
|
|
V_I4(result) = V_I4(&lv) * V_I4(&rv);
|
|
rc = S_OK;
|
|
break;
|
|
}
|
|
TRACE("rc=%d, Result:\n", (int) rc);
|
|
dump_Variant(result);
|
|
return rc;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VarDiv [OLEAUT32.143]
|
|
*
|
|
*/
|
|
HRESULT WINAPI VarDiv(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<<lvt) | (1<<rvt)) & ((1<<VT_R4)|(1<<VT_R8))) {
|
|
found = TRUE;
|
|
resvt = VT_R8;
|
|
}
|
|
if (!found && (((1<<lvt) | (1<<rvt)) & ((1<<VT_I1)|(1<<VT_I2)|(1<<VT_UI1)|(1<<VT_UI2)|(1<<VT_I4)|(1<<VT_UI4)|(1<<VT_INT)|(1<<VT_UINT)))) {
|
|
found = TRUE;
|
|
resvt = VT_I4;
|
|
}
|
|
if (!found) {
|
|
FIXME("can't expand vt %d vs %d to a target type.\n",lvt,rvt);
|
|
return E_FAIL;
|
|
}
|
|
rc = VariantChangeType(&lv, left, 0, resvt);
|
|
if (FAILED(rc)) {
|
|
FIXME("Could not convert 0x%x to %d?\n",V_VT(left),resvt);
|
|
return rc;
|
|
}
|
|
rc = VariantChangeType(&rv, right, 0, resvt);
|
|
if (FAILED(rc)) {
|
|
FIXME("Could not convert 0x%x to %d?\n",V_VT(right),resvt);
|
|
return rc;
|
|
}
|
|
switch (resvt) {
|
|
case VT_R8:
|
|
V_VT(result) = resvt;
|
|
V_R8(result) = V_R8(&lv) / V_R8(&rv);
|
|
rc = S_OK;
|
|
break;
|
|
case VT_I4:
|
|
V_VT(result) = resvt;
|
|
V_I4(result) = V_I4(&lv) / V_I4(&rv);
|
|
rc = S_OK;
|
|
break;
|
|
}
|
|
TRACE("rc=%d, Result:\n", (int) rc);
|
|
dump_Variant(result);
|
|
return rc;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VarSub [OLEAUT32.159]
|
|
*
|
|
*/
|
|
HRESULT WINAPI VarSub(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<<lvt) | (1<<rvt)) & ((1<<VT_R4)|(1<<VT_R8))) {
|
|
found = TRUE;
|
|
resvt = VT_R8;
|
|
}
|
|
if (!found && (((1<<lvt) | (1<<rvt)) & ((1<<VT_I1)|(1<<VT_I2)|(1<<VT_UI1)|(1<<VT_UI2)|(1<<VT_I4)|(1<<VT_UI4)|(1<<VT_INT)|(1<<VT_UINT)))) {
|
|
found = TRUE;
|
|
resvt = VT_I4;
|
|
}
|
|
if (!found) {
|
|
FIXME("can't expand vt %d vs %d to a target type.\n",lvt,rvt);
|
|
return E_FAIL;
|
|
}
|
|
rc = VariantChangeType(&lv, left, 0, resvt);
|
|
if (FAILED(rc)) {
|
|
FIXME("Could not convert 0x%x to %d?\n",V_VT(left),resvt);
|
|
return rc;
|
|
}
|
|
rc = VariantChangeType(&rv, right, 0, resvt);
|
|
if (FAILED(rc)) {
|
|
FIXME("Could not convert 0x%x to %d?\n",V_VT(right),resvt);
|
|
return rc;
|
|
}
|
|
switch (resvt) {
|
|
case VT_R8:
|
|
V_VT(result) = resvt;
|
|
V_R8(result) = V_R8(&lv) - V_R8(&rv);
|
|
rc = S_OK;
|
|
break;
|
|
case VT_I4:
|
|
V_VT(result) = resvt;
|
|
V_I4(result) = V_I4(&lv) - V_I4(&rv);
|
|
rc = S_OK;
|
|
break;
|
|
}
|
|
TRACE("rc=%d, Result:\n", (int) rc);
|
|
dump_Variant(result);
|
|
return rc;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VarOr [OLEAUT32.157]
|
|
*
|
|
*/
|
|
HRESULT WINAPI VarOr(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("unimplemented part\n");
|
|
}
|
|
}
|
|
|
|
TRACE("rc=%d, Result:\n", (int) rc);
|
|
dump_Variant(result);
|
|
return rc;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VarNot [OLEAUT32.174]
|
|
*
|
|
*/
|
|
HRESULT WINAPI VarNot(LPVARIANT in, LPVARIANT result)
|
|
{
|
|
HRESULT rc = E_FAIL;
|
|
|
|
TRACE("Var In:\n");
|
|
dump_Variant(in);
|
|
|
|
if ((V_VT(in)&VT_TYPEMASK) == VT_BOOL) {
|
|
|
|
V_VT(result) = VT_BOOL;
|
|
if (V_BOOL(in)) {
|
|
V_BOOL(result) = VARIANT_FALSE;
|
|
} else {
|
|
V_BOOL(result) = VARIANT_TRUE;
|
|
}
|
|
rc = S_OK;
|
|
|
|
} else {
|
|
FIXME("VarNot stub\n");
|
|
}
|
|
|
|
TRACE("rc=%d, Result:\n", (int) rc);
|
|
dump_Variant(result);
|
|
return rc;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VarTokenizeFormatString [OLEAUT32.140]
|
|
*
|
|
* From investigation on W2K, a list is built up which is:
|
|
*
|
|
* <0x00> AA BB - Copy from AA for BB chars (Note 1 byte with wrap!)
|
|
* <token> - 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; i<realLen; i=i+0x10) {
|
|
printf(" %4.4x : ", i);
|
|
for (j=0; j<0x10 && (i+j < realLen); j++) {
|
|
printf("%2.2x ", rgbTok[i+j]);
|
|
}
|
|
printf("\n");
|
|
}
|
|
}
|
|
#endif
|
|
HeapFree( GetProcessHeap(), 0, pFormatA );
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* VarFormatFromTokens [OLEAUT32.139]
|
|
* FIXME: No account of flags or iFirstDay etc
|
|
*/
|
|
HRESULT WINAPI VarFormatFromTokens(LPVARIANT varIn, LPOLESTR format,
|
|
LPBYTE pbTokCur, ULONG dwFlags, BSTR *pbstrOut,
|
|
LCID lcid) {
|
|
|
|
FORMATHDR *hdr = (FORMATHDR *)pbTokCur;
|
|
BYTE *pData = pbTokCur + sizeof (FORMATHDR);
|
|
LPSTR pFormatA = HEAP_strdupWtoA( GetProcessHeap(), 0, format );
|
|
char output[BUFFER_MAX];
|
|
char *pNextPos;
|
|
int size, whichToken;
|
|
VARIANTARG Variant;
|
|
struct tm TM;
|
|
|
|
|
|
|
|
TRACE("'%s', %p %lx %p only date support\n", pFormatA, pbTokCur, dwFlags, pbstrOut);
|
|
TRACE("varIn:\n");
|
|
dump_Variant(varIn);
|
|
|
|
memset(output, 0x00, BUFFER_MAX);
|
|
pNextPos = output;
|
|
|
|
while (*pData != TOK_END && ((pData - pbTokCur) <= (hdr->len))) {
|
|
|
|
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 Seperator */
|
|
size = GetLocaleInfoA(lcid, LOCALE_STIME, NULL, 0);
|
|
GetLocaleInfoA(lcid, LOCALE_STIME, pNextPos, size);
|
|
TRACE("TOK_COLON Time seperator is '%s'\n", pNextPos);
|
|
pNextPos = pNextPos + size;
|
|
pData = pData + 1;
|
|
break;
|
|
|
|
case TOK_SLASH :
|
|
/* Get locale information - Date Seperator */
|
|
size = GetLocaleInfoA(lcid, LOCALE_SDATE, NULL, 0);
|
|
GetLocaleInfoA(lcid, LOCALE_SDATE, pNextPos, size);
|
|
TRACE("TOK_COLON Time seperator 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;
|
|
}
|