diff options
Diffstat (limited to 'ext/com/conversion.c')
| -rw-r--r-- | ext/com/conversion.c | 497 |
1 files changed, 497 insertions, 0 deletions
diff --git a/ext/com/conversion.c b/ext/com/conversion.c new file mode 100644 index 0000000000..aa3af99d21 --- /dev/null +++ b/ext/com/conversion.c @@ -0,0 +1,497 @@ +#include "php.h" + +#ifdef CP_THREAD_ACP +#define PHP_UNICODE_CODEPAGE CP_THREAD_ACP +#else +#define PHP_UNICODE_CODEPAGE CP_ACP +#endif + + +__declspec(dllexport) void php_pval_to_variant(pval *pval_arg, VARIANT *var_arg); +__declspec(dllexport) void php_pval_to_variant_ex(pval *pval_arg, VARIANT *var_arg, pval *pval_type); +__declspec(dllexport) void php_variant_to_pval(VARIANT *var_arg, pval *pval_arg, int persistent); +__declspec(dllexport) OLECHAR *php_char_to_OLECHAR(char *C_str, uint strlen); +__declspec(dllexport) char *php_OLECHAR_to_char(OLECHAR *unicode_str, uint *out_length, int persistent); + + +__declspec(dllexport) +void php_pval_to_variant(pval *pval_arg, VARIANT *var_arg) +{ + OLECHAR *unicode_str; + + switch (pval_arg->type) + { + case IS_NULL: + var_arg->vt = VT_EMPTY; + break; + + case IS_BOOL: + var_arg->vt = VT_BOOL; + var_arg->boolVal = (short)pval_arg->value.lval; + break; + + case IS_OBJECT: + if(strstr(pval_arg->value.obj.ce->name, "VARIANT")) + { + int type; + pval **var_handle; + + /* fetch the VARIANT structure */ + zend_hash_index_find(pval_arg->value.obj.properties, 0, (void **) &var_handle); + var_arg->pvarVal = (VARIANT FAR*) zend_list_find((*var_handle)->value.lval, &type); + var_arg->vt = VT_VARIANT|VT_BYREF; + } + break; + + case IS_RESOURCE: + case IS_CONSTANT: + case IS_CONSTANT_ARRAY: + case IS_ARRAY: + var_arg->vt = VT_EMPTY; + break; + + case IS_LONG: + var_arg->vt = VT_I4; /* assuming 32-bit platform */ + var_arg->lVal = pval_arg->value.lval; + break; + + case IS_DOUBLE: + var_arg->vt = VT_R8; /* assuming 64-bit double precision */ + var_arg->dblVal = pval_arg->value.dval; + break; + + case IS_STRING: + var_arg->vt = VT_BSTR; + unicode_str = php_char_to_OLECHAR(pval_arg->value.str.val, pval_arg->value.str.len); + var_arg->bstrVal = SysAllocString(unicode_str); + efree(unicode_str); + } +} + +__declspec(dllexport) void php_pval_to_variant_ex(pval *pval_arg, VARIANT *var_arg, pval *pval_type) +{ + if(pval_type->type != IS_STRING) + { + php_error(E_WARNING, "Assuming string as parameter type for parameter 3."); + php_pval_to_variant(pval_arg, var_arg); + } + else + { + OLECHAR *unicode_str; + + // set type + if(strstr(pval_type->value.str.val, "VT_UI1")) + var_arg->vt = VT_UI1; + else if(strstr(pval_type->value.str.val, "VT_I2")) + var_arg->vt = VT_I4; + else if(strstr(pval_type->value.str.val, "VT_R4")) + var_arg->vt = VT_R4; + else if(strstr(pval_type->value.str.val, "VT_R8")) + var_arg->vt = VT_R8; + else if(strstr(pval_type->value.str.val, "VT_BOOL")) + var_arg->vt = VT_BOOL; + else if(strstr(pval_type->value.str.val, "VT_ERROR")) + var_arg->vt = VT_ERROR; + else if(strstr(pval_type->value.str.val, "VT_CY")) + var_arg->vt = VT_CY; + else if(strstr(pval_type->value.str.val, "VT_DATE")) + var_arg->vt = VT_DATE; + else if(strstr(pval_type->value.str.val, "VT_BSTR")) + var_arg->vt = VT_BSTR; + else if(strstr(pval_type->value.str.val, "VT_DECIMAL")) + var_arg->vt = VT_DECIMAL; + else if(strstr(pval_type->value.str.val, "VT_UNKNOWN")) + var_arg->vt = VT_UNKNOWN; + else if(strstr(pval_type->value.str.val, "VT_DISPATCH")) + var_arg->vt = VT_DISPATCH; + else if(strstr(pval_type->value.str.val, "VT_VARIANT")) + var_arg->vt = VT_VARIANT; + else if(strstr(pval_type->value.str.val, "VT_I1")) + var_arg->vt = VT_I1; + else if(strstr(pval_type->value.str.val, "VT_UI2")) + var_arg->vt = VT_UI2; + else if(strstr(pval_type->value.str.val, "VT_UI4")) + var_arg->vt = VT_UI4; + else if(strstr(pval_type->value.str.val, "VT_INT")) + var_arg->vt = VT_INT; + else if(strstr(pval_type->value.str.val, "VT_UINT")) + var_arg->vt = VT_UINT; + + // is safearray + if(strstr(pval_type->value.str.val, "VT_ARRAY")) + var_arg->vt |= VT_ARRAY; + + // by reference + if(strstr(pval_type->value.str.val, "VT_BYREF")) + var_arg->vt |= VT_BYREF; + + switch(var_arg->vt) + { + case VT_UI1: + convert_to_long_ex(&pval_arg); + var_arg->bVal = (unsigned char)pval_arg->value.lval; + break; + + case VT_I2: + convert_to_long_ex(&pval_arg); + var_arg->iVal = (short)pval_arg->value.lval; + break; + + case VT_I4: + convert_to_long_ex(&pval_arg); + var_arg->lVal = pval_arg->value.lval; + break; + + case VT_R4: + convert_to_double_ex(&pval_arg); + var_arg->fltVal = (float)pval_arg->value.dval; + break; + + case VT_R8: + convert_to_double_ex(&pval_arg); + var_arg->dblVal = pval_arg->value.dval; + break; + + case VT_BOOL: + convert_to_boolean_ex(&pval_arg); + var_arg->boolVal = (short)pval_arg->value.lval; + break; + + case VT_ERROR: + convert_to_long_ex(&pval_arg); + var_arg->scode = pval_arg->value.lval; + break; + + /* case VT_CY: not yet implemented, no idea what this is */ + + /* case DATE: not yet implemented, strange format */ + + case VT_BSTR: + convert_to_string_ex(&pval_arg); + unicode_str = php_char_to_OLECHAR(pval_arg->value.str.val, pval_arg->value.str.len); + var_arg->bstrVal = SysAllocString(unicode_str); + efree(unicode_str); + break; + + /* case VT_DECIMAL|VT_BYREF: not yet implemented, solution for 96-bit numbers needed + - perhaps use a string */ + + /* case VT_UNKNOWN: not yet implemented, get IUnknown from IDispatch ? */ + + /* case VT_DISPATCH: not yet implemented, pass IDispatch from another COM Object + - should be no problem */ + + case VT_UI1|VT_BYREF: + convert_to_long(pval_arg); + var_arg->pbVal = (unsigned char FAR*) &(pval_arg->value.lval); + break; + + case VT_I2|VT_BYREF: + convert_to_long(pval_arg); + var_arg->piVal = (short FAR*) &(pval_arg->value.lval); + break; + + case VT_I4|VT_BYREF: + convert_to_long(pval_arg); + var_arg->plVal = (long FAR*) &(pval_arg->value.lval); + break; + + case VT_R4|VT_BYREF: + convert_to_double(pval_arg); + var_arg->pfltVal = (float FAR*) &(pval_arg->value.lval); + break; + + case VT_R8|VT_BYREF: + convert_to_double(pval_arg); + var_arg->pdblVal = (double FAR*) &(pval_arg->value.lval); + break; + + case VT_BOOL|VT_BYREF: + convert_to_boolean(pval_arg); + var_arg->pboolVal = (short FAR*) &(pval_arg->value.lval); + break; + + case VT_ERROR|VT_BYREF: + convert_to_long(pval_arg); + var_arg->pscode = (long FAR*) &(pval_arg->value.lval); + break; + + /* case VT_CY|VT_BYREF */ + + /* case VT_DATE|VT_BYREF */ + + case VT_BSTR|VT_BYREF: + convert_to_string(pval_arg); + var_arg->pbstrVal = (BSTR FAR*) emalloc(sizeof(BSTR FAR*)); + unicode_str = php_char_to_OLECHAR(pval_arg->value.str.val, pval_arg->value.str.len); + *(var_arg->pbstrVal) = SysAllocString(unicode_str); + efree(unicode_str); + break; + + /* case VT_UNKNOWN|VT_BYREF: */ + + /* case VT_DISPATCH|VT_BYREF: */ + + /* case VT_VARIANT|VT_BYREF: not yet implemented, pass a VARIANT object */ + + /* case VT_BYREF: not yet implemented, what should be passed here ? */ + + case VT_I1: + convert_to_long_ex(&pval_arg); + var_arg->cVal = (char)pval_arg->value.lval; + break; + + case VT_UI2: + convert_to_long_ex(&pval_arg); + var_arg->uiVal = (unsigned short)pval_arg->value.lval; + break; + + case VT_UI4: + convert_to_long_ex(&pval_arg); + var_arg->ulVal = (unsigned long)pval_arg->value.lval; + break; + + case VT_INT: + convert_to_long_ex(&pval_arg); + var_arg->intVal = (int)pval_arg->value.lval; + break; + + case VT_UINT: + convert_to_long_ex(&pval_arg); + var_arg->intVal = (unsigned int)pval_arg->value.lval; + break; + + case VT_I1|VT_BYREF: + convert_to_long(pval_arg); + var_arg->pcVal = (char FAR*) &pval_arg->value.lval; + break; + + case VT_UI2|VT_BYREF: + convert_to_long(pval_arg); + var_arg->puiVal = (unsigned short FAR*) &pval_arg->value.lval; + break; + + case VT_UI4|VT_BYREF: + convert_to_long(pval_arg); + var_arg->pulVal = (unsigned long FAR*) &pval_arg->value.lval; + break; + + case VT_INT|VT_BYREF: + convert_to_long(pval_arg); + var_arg->pintVal = (int FAR*) &pval_arg->value.lval; + break; + + case VT_UINT|VT_BYREF: + convert_to_long(pval_arg); + var_arg->pintVal = (unsigned int FAR*) &pval_arg->value.lval; + break; + + default: + php_error(E_WARNING, "Type not supportet or not yet implemented."); + } + } +} + +__declspec(dllexport) +void php_variant_to_pval(VARIANT *var_arg, pval *pval_arg, int persistent) +{ + + switch (var_arg->vt & ~VT_BYREF) { + case VT_EMPTY: + var_uninit(pval_arg); + break; + case VT_UI1: + if (pval_arg->is_ref == 0 || (var_arg->vt & VT_BYREF) != VT_BYREF) { + pval_arg->value.lval = (long) var_arg->bVal; + } else { + pval_arg->value.lval = (long)*(var_arg->pbVal); + } + pval_arg->type = IS_LONG; + break; + case VT_I2: + if (pval_arg->is_ref == 0 || (var_arg->vt & VT_BYREF) != VT_BYREF) { + pval_arg->value.lval = (long) var_arg->iVal; + } else { + pval_arg->value.lval = (long )*(var_arg->piVal); + } + pval_arg->type = IS_LONG; + break; + case VT_I4: + if (pval_arg->is_ref == 0 || (var_arg->vt & VT_BYREF) != VT_BYREF) { + pval_arg->value.lval = var_arg->lVal; + } else { + pval_arg->value.lval = *(var_arg->plVal); + } + pval_arg->type = IS_LONG; + break; + case VT_R4: + if (pval_arg->is_ref == 0 || (var_arg->vt & VT_BYREF) != VT_BYREF) { + pval_arg->value.dval = (double) var_arg->fltVal; + } else { + pval_arg->value.dval = (double)*(var_arg->pfltVal); + } + pval_arg->type = IS_DOUBLE; + break; + case VT_R8: + if (pval_arg->is_ref == 0 || (var_arg->vt & VT_BYREF) != VT_BYREF) { + pval_arg->value.dval = var_arg->dblVal; + } else { + pval_arg->value.dval = *(var_arg->pdblVal); + } + pval_arg->type = IS_DOUBLE; + break; + case VT_DECIMAL: + switch (VarR8FromDec(&var_arg->decVal, &pval_arg->value.dval)) { + case DISP_E_OVERFLOW: + php_error(E_WARNING, "Overflow converting DECIMAL value to PHP floating point - number truncated"); + pval_arg->value.dval = DBL_MAX; + /* break missing intentionally */ + case S_OK: + pval_arg->type = IS_DOUBLE; + break; + default: + php_error(E_WARNING, "Error converting DECIMAL value to PHP floating point"); + break; + } + break; + case VT_BOOL: + if (pval_arg->is_ref == 0 || (var_arg->vt & VT_BYREF) != VT_BYREF) { + if (var_arg->boolVal & 0xFFFF) { + pval_arg->value.lval = 1; + } else { + pval_arg->value.lval = 0; + } + } else { + if (*(var_arg->pboolVal) & 0xFFFF) { + pval_arg->value.lval = 1; + } else { + pval_arg->value.lval = 0; + } + } + pval_arg->type = IS_BOOL; + break; + case VT_VOID: + pval_arg->type = IS_NULL; + break; + case VT_VARIANT: + php_variant_to_pval(var_arg->pvarVal, pval_arg, 0); + break; + case VT_BSTR: + if (pval_arg->is_ref == 0 || (var_arg->vt & VT_BYREF) != VT_BYREF) { + pval_arg->value.str.val = php_OLECHAR_to_char(var_arg->bstrVal, &pval_arg->value.str.len, persistent); + SysFreeString(var_arg->bstrVal); + } else { + pval_arg->value.str.val = php_OLECHAR_to_char(*(var_arg->pbstrVal), &pval_arg->value.str.len, persistent); + SysFreeString(*(var_arg->pbstrVal)); + efree(var_arg->pbstrVal); + } + pval_arg->type = IS_STRING; + break; + case VT_DATE: { + SYSTEMTIME wintime; + struct tm phptime; + + VariantTimeToSystemTime(var_arg->date, &wintime); + phptime.tm_year = wintime.wYear-1900; + phptime.tm_mon = wintime.wMonth-1; + phptime.tm_mday = wintime.wDay; + phptime.tm_hour = wintime.wHour; + phptime.tm_min = wintime.wMinute; + phptime.tm_sec = wintime.wSecond; + phptime.tm_isdst= -1; + + tzset(); + pval_arg->value.lval = mktime(&phptime); + pval_arg->type = IS_LONG; + } + break; + case VT_DISPATCH: { + pval *handle; + + pval_arg->type=IS_OBJECT; +// pval_arg->value.obj.ce=&VARIANT_class_entry; + pval_arg->value.obj.properties = (HashTable *) emalloc(sizeof(HashTable)); + pval_arg->is_ref=1; + pval_arg->refcount=1; + zend_hash_init(pval_arg->value.obj.properties, 0, NULL, ZVAL_PTR_DTOR, 0); + + ALLOC_ZVAL(handle); + handle->type = IS_LONG; +// handle->value.lval = zend_list_insert(var_arg->pdispVal, le_variant); + pval_copy_constructor(handle); + INIT_PZVAL(handle); + zend_hash_index_update(pval_arg->value.obj.properties, 0, &handle, sizeof(pval *), NULL); + } + break; + case VT_UNKNOWN: + var_arg->pdispVal->lpVtbl->Release(var_arg->pdispVal); + /* break missing intentionally */ + default: + php_error(E_WARNING,"Unsupported variant type: %d (0x%X)", var_arg->vt, var_arg->vt); + var_reset(pval_arg); + break; + } +} + +__declspec(dllexport) +OLECHAR *php_char_to_OLECHAR(char *C_str, uint strlen) +{ + OLECHAR *unicode_str; + + //request needed buffersize + uint reqSize = MultiByteToWideChar(PHP_UNICODE_CODEPAGE, MB_PRECOMPOSED | MB_ERR_INVALID_CHARS, C_str, -1, NULL, 0); + + if(reqSize) + { + unicode_str = (OLECHAR *) emalloc(sizeof(OLECHAR) * reqSize); + + //convert string + MultiByteToWideChar(PHP_UNICODE_CODEPAGE, MB_PRECOMPOSED | MB_ERR_INVALID_CHARS, C_str, -1, unicode_str, reqSize); + } + else + { + unicode_str = (OLECHAR *) emalloc(sizeof(OLECHAR)); + *unicode_str = 0; + + switch(GetLastError()) + { + case ERROR_NO_UNICODE_TRANSLATION: + php_error(E_WARNING,"No unicode translation available for the specified string"); + break; + default: + php_error(E_WARNING,"Error in php_char_to_OLECHAR()"); + } + } + + return unicode_str; +} + +__declspec(dllexport) +char *php_OLECHAR_to_char(OLECHAR *unicode_str, uint *out_length, int persistent) +{ + char *C_str; + uint length = 0; + + //request needed buffersize + uint reqSize = WideCharToMultiByte(PHP_UNICODE_CODEPAGE, WC_COMPOSITECHECK, unicode_str, -1, NULL, 0, NULL, NULL); + + if(reqSize) + { + C_str = (char *) pemalloc(sizeof(char) * reqSize, persistent); + + //convert string + length = WideCharToMultiByte(PHP_UNICODE_CODEPAGE, WC_COMPOSITECHECK, unicode_str, -1, C_str, reqSize, NULL, NULL) - 1; + } + else + { + C_str = (char *) pemalloc(sizeof(char), persistent); + *C_str = 0; + + php_error(E_WARNING,"Error in php_OLECHAR_to_char()"); + } + + if(out_length) + *out_length = length; + + return C_str; +} |