diff options
| -rw-r--r-- | ext/com/COM.c | 875 | ||||
| -rw-r--r-- | ext/com/VARIANT.c | 413 | ||||
| -rw-r--r-- | ext/com/conversion.c | 497 | ||||
| -rw-r--r-- | ext/com/conversion.h | 18 | ||||
| -rw-r--r-- | ext/com/php_VARIANT.h | 20 | ||||
| -rw-r--r-- | ext/rpc/com/com_wrapper.c | 875 | ||||
| -rw-r--r-- | ext/rpc/com/conversion.c | 497 | ||||
| -rw-r--r-- | ext/rpc/com/conversion.h | 18 | ||||
| -rw-r--r-- | ext/rpc/com/php_variant.h | 20 | ||||
| -rw-r--r-- | ext/rpc/com/variant.c | 413 |
10 files changed, 3646 insertions, 0 deletions
diff --git a/ext/com/COM.c b/ext/com/COM.c new file mode 100644 index 0000000000..943ed14a0d --- /dev/null +++ b/ext/com/COM.c @@ -0,0 +1,875 @@ +/* + +----------------------------------------------------------------------+ + | PHP version 4.0 | + +----------------------------------------------------------------------+ + | Copyright (c) 1997, 1998, 1999, 2000 The PHP Group | + +----------------------------------------------------------------------+ + | This source file is subject to version 2.02 of the PHP license, | + | that is bundled with this package in the file LICENSE, and is | + | available at through the world-wide-web at | + | http://www.php.net/license/2_02.txt. | + | If you did not receive a copy of the PHP license and are unable to | + | obtain it through the world-wide-web, please send a note to | + | license@php.net so we can mail you a copy immediately. | + +----------------------------------------------------------------------+ + | Author: Zeev Suraski <zeev@zend.com> | + | Harald Radi <h.radi@nme.at> + +----------------------------------------------------------------------+ + */ + + +/* + * This module implements support for COM components that support the IDispatch + * interface. Both local (COM) and remote (DCOM) components can be accessed. + * + * Type libraries can be loaded (in order for PHP to recognize automation constants) + * by specifying a typelib_file in the PHP .ini file. That file should contain + * paths to type libraries, one in every line. By default, constants are registered + * as case-sensitive. If you want them to be defined as case-insensitive, add + * #case_insensitive or #cis at the end of the type library path. + * + * This is also the first module to demonstrate Zend's OO syntax overloading + * capabilities. CORBA coders are invited to write a CORBA module as well! + * + * Zeev + */ + +/* + * 28.12.2000 + * unicode conversion fixed by Harald Radi <h.radi@nme.at> + * + * now all these strange '?'s should be disapeared + */ + +/* + * 28.1.2001 + * VARIANT datatype and pass_by_reference support + */ + +#ifdef PHP_WIN32 + +#define _WIN32_DCOM + +#ifdef CP_THREAD_ACP +#define PHP_COM_CODEPAGE CP_THREAD_ACP +#else +#define PHP_COM_CODEPAGE CP_ACP +#endif + +#include <iostream.h> +#include <math.h> + +extern "C" { + +#include "php.h" +#include "php_ini.h" + +} + +#include "conversion.h" +#include "php_COM.h" +#include "unknwn.h" + +static int le_idispatch; + +static zend_class_entry com_class_entry; + +function_entry COM_functions[] = { + PHP_FE(COM_load, NULL) + PHP_FE(COM_invoke, NULL) + + PHP_FE(com_propget, NULL) + PHP_FE(com_propput, NULL) + + PHP_FALIAS(com_get, com_propget, NULL) + PHP_FALIAS(com_propset, com_propput, NULL) + PHP_FALIAS(com_set, com_propput, NULL) + + {NULL, NULL, NULL} +}; + +__declspec(dllexport) +int php_COM_get_le_idispatch() { + return le_idispatch; +} + +static PHP_MINFO_FUNCTION(COM) +{ + DISPLAY_INI_ENTRIES(); +} + +static int php_COM_load_typelib(char *typelib_name, int mode); + +__declspec(dllexport) +char *php_COM_error_message(HRESULT hr) +{ + char *pMsgBuf; + + if (!FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM, NULL, + hr, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPTSTR) &pMsgBuf, 0, NULL)) { + char error_string[] = "No description available"; + + pMsgBuf = (char *) LocalAlloc(LMEM_FIXED, sizeof(error_string)); + memcpy(pMsgBuf, error_string, sizeof(error_string)); + } + + return pMsgBuf; +} + +static char *php_string_from_clsid(const CLSID clsid) +{ + LPOLESTR ole_clsid; + char *clsid_str; + + StringFromCLSID(clsid, &ole_clsid); + clsid_str = php_OLECHAR_to_char(ole_clsid, NULL, 0); + LocalFree(ole_clsid); + + return clsid_str; +} + +static void php_idispatch_destructor(zend_rsrc_list_entry *rsrc) +{ + IDispatch *i_dispatch = (IDispatch *)rsrc->ptr; + i_dispatch->Release(); +} + + +static PHP_INI_MH(OnTypelibFileChange) +{ + FILE *typelib_file; + char *typelib_name_buffer; + char *strtok_buf = NULL; +#if SUPPORT_INTERACTIVE + int interactive; + ELS_FETCH(); + + interactive = EG(interactive); +#endif + + + if (!new_value || (typelib_file=V_FOPEN(new_value, "r"))==NULL) { + return FAILURE; + } + +#if SUPPORT_INTERACTIVE + if (interactive) { + printf("Loading type libraries..."); + fflush(stdout); + } +#endif + + typelib_name_buffer = (char *) malloc(sizeof(char)*1024); + + while (fgets(typelib_name_buffer, 1024, typelib_file)) { + char *typelib_name; + char *modifier; + int mode = CONST_PERSISTENT|CONST_CS; + + if (typelib_name_buffer[0]==';') { + continue; + } + typelib_name = php_strtok_r(typelib_name_buffer, "\r\n", &strtok_buf); /* get rid of newlines */ + typelib_name = php_strtok_r(typelib_name, "#", &strtok_buf); + modifier = php_strtok_r(NULL, "#", &strtok_buf); + if (modifier) { + if (!strcmp(modifier, "cis") || !strcmp(modifier, "case_insensitive")) { + mode &= ~CONST_CS; + } + } +#if SUPPORT_INTERACTIVE + if (interactive) { + printf("\rLoading %-60s\r", typelib_name); + } +#endif + php_COM_load_typelib(typelib_name, mode); + } + + free(typelib_name_buffer); + fclose(typelib_file); + +#if SUPPORT_INTERACTIVE + if (interactive) { + printf("\r%70s\r", ""); + } +#endif + + return SUCCESS; +} + + +PHP_INI_BEGIN() + PHP_INI_ENTRY1_EX("allow_dcom", "0", PHP_INI_SYSTEM, NULL, NULL, php_ini_boolean_displayer_cb) + PHP_INI_ENTRY1("typelib_file", NULL, PHP_INI_SYSTEM, OnTypelibFileChange, NULL) +PHP_INI_END() + + +/* {{{ proto int com_load(string module_name) + Loads a COM module */ +PHP_FUNCTION(COM_load) +{ + pval *module_name, *server_name=NULL; + CLSID clsid; + HRESULT hr; + OLECHAR *ProgID; + IDispatch *i_dispatch; + char *error_message; + char *clsid_str; + + switch (ZEND_NUM_ARGS()) { + case 1: + getParameters(ht, 1, &module_name); + break; + case 2: + if (!INI_INT("allow_dcom")) { + php_error(E_WARNING, "DCOM is disabled"); + RETURN_FALSE; + } + getParameters(ht, 2, &module_name, &server_name); + convert_to_string(server_name); + break; + default: + WRONG_PARAM_COUNT; + break; + } + + convert_to_string(module_name); + ProgID = php_char_to_OLECHAR(module_name->value.str.val, module_name->value.str.len); + hr = CLSIDFromProgID(ProgID, &clsid); + efree(ProgID); + + /* obtain CLSID */ + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Invalid ProgID: %s\n", error_message); + LocalFree(error_message); + RETURN_FALSE; + } + + /* obtain IDispatch */ + if (!server_name) { + hr = CoCreateInstance(clsid, NULL, CLSCTX_SERVER, IID_IDispatch, (LPVOID *) &i_dispatch); + } else { + COSERVERINFO server_info; + MULTI_QI pResults; + + server_info.dwReserved1=0; + server_info.dwReserved2=0; + server_info.pwszName = php_char_to_OLECHAR(server_name->value.str.val, server_name->value.str.len); + server_info.pAuthInfo=NULL; + + pResults.pIID = &IID_IDispatch; + pResults.pItf = NULL; + pResults.hr = S_OK; + hr=CoCreateInstanceEx(clsid, NULL, CLSCTX_SERVER, &server_info, 1, &pResults); + if (SUCCEEDED(hr)) { + hr = pResults.hr; + i_dispatch = (IDispatch *) pResults.pItf; + } + efree(server_info.pwszName); + } + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + clsid_str = php_string_from_clsid(clsid); + php_error(E_WARNING,"Unable to obtain IDispatch interface for CLSID %s: %s",clsid_str,error_message); + LocalFree(error_message); + efree(clsid_str); + RETURN_FALSE; + } + + + RETURN_LONG(zend_list_insert(i_dispatch,le_idispatch)); +} +/* }}} */ + + +int do_COM_invoke(IDispatch *i_dispatch, pval *function_name, VARIANTARG *var_result, pval **arguments, int arg_count) +{ + DISPID dispid; + HRESULT hr; + OLECHAR *funcname; + char *error_message; + VARIANTARG *variant_args; + int current_arg, current_variant; + DISPPARAMS dispparams; + + funcname = php_char_to_OLECHAR(function_name->value.str.val, function_name->value.str.len); + + hr = i_dispatch->GetIDsOfNames(IID_NULL, &funcname, 1, LOCALE_SYSTEM_DEFAULT, &dispid); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Unable to lookup %s: %s\n", function_name->value.str.val, error_message); + LocalFree(error_message); + efree(funcname); + return FAILURE; + } + + variant_args = (VARIANTARG *) emalloc(sizeof(VARIANTARG)*arg_count); + + for (current_arg=0; current_arg<arg_count; current_arg++) { + current_variant = arg_count - current_arg - 1; + php_pval_to_variant(arguments[current_arg], &variant_args[current_variant]); + } + + dispparams.rgvarg = variant_args; + dispparams.rgdispidNamedArgs = NULL; + dispparams.cArgs = arg_count; + dispparams.cNamedArgs = 0; + + hr = i_dispatch->Invoke(dispid, IID_NULL, + LOCALE_SYSTEM_DEFAULT, DISPATCH_METHOD|DISPATCH_PROPERTYGET, + &dispparams, var_result, NULL, NULL); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Invoke() failed: %s\n", error_message); + LocalFree(error_message); + efree(funcname); + efree(variant_args); + return FAILURE; + } + + efree(variant_args); + efree(funcname); + return SUCCESS; +} + + +/* {{{ proto mixed com_invoke(int module, string handler_name [, mixed arg [, ...]]) + Invokes a COM module */ +PHP_FUNCTION(COM_invoke) +{ + pval **arguments; + pval *object, *function_name; + IDispatch *i_dispatch; + int type; + int arg_count = ZEND_NUM_ARGS(); + VARIANTARG var_result; + + if (arg_count<2) { + WRONG_PARAM_COUNT; + } + arguments = (pval **) emalloc(sizeof(pval *)*arg_count); + if (getParametersArray(ht, arg_count, arguments)==FAILURE) { + RETURN_FALSE; + } + + object = arguments[0]; + function_name = arguments[1]; + + /* obtain i_dispatch interface */ + convert_to_long(object); + i_dispatch = (IDispatch *)zend_list_find(object->value.lval, &type); + if (!i_dispatch || (type!=le_idispatch)) { + php_error(E_WARNING,"%d is not a COM object handler", function_name->value.str.val); + RETURN_FALSE; + } + + /* obtain property/method handler */ + convert_to_string(function_name); + + if (do_COM_invoke(i_dispatch, function_name, &var_result, arguments+2, arg_count-2)==FAILURE) { + RETURN_FALSE; + } + efree(arguments); + + php_variant_to_pval(&var_result, return_value, 0); +} +/* }}} */ + +static int do_COM_offget(VARIANTARG *var_result, VARIANTARG *array, pval *arg_property, int cleanup) +{ + switch (array->vt) { + case VT_DISPATCH: { /* a Collection, possibly */ + pval function_name; + IDispatch *i_dispatch = array->pdispVal; + int retval; + + function_name.value.str.val = "Item"; + function_name.value.str.len = 4; + function_name.type = IS_STRING; + retval = do_COM_invoke(i_dispatch, &function_name, var_result, &arg_property, 1); + if (cleanup) { + i_dispatch->Release(); + } + return retval; + } + } + return FAILURE; +} + + +static int do_COM_propget(VARIANTARG *var_result, IDispatch *i_dispatch, pval *arg_property, int cleanup) +{ + DISPID dispid; + HRESULT hr; + OLECHAR *propname; + char *error_message; + DISPPARAMS dispparams; + + + /* obtain property handler */ + propname = php_char_to_OLECHAR(arg_property->value.str.val, arg_property->value.str.len); + + hr = i_dispatch->GetIDsOfNames(IID_NULL, &propname, 1, LOCALE_SYSTEM_DEFAULT, &dispid); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Unable to lookup %s: %s\n", arg_property->value.str.val, error_message); + LocalFree(error_message); + efree(propname); + if (cleanup) { + i_dispatch->Release(); + } + return FAILURE; + } + + dispparams.cArgs = 0; + dispparams.cNamedArgs = 0; + + hr = i_dispatch->Invoke(dispid, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &dispparams, var_result, NULL, 0); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"PropGet() failed: %s\n", error_message); + LocalFree(error_message); + efree(propname); + if (cleanup) { + i_dispatch->Release(); + } + return FAILURE; + } + + efree(propname); + if (cleanup) { + i_dispatch->Release(); + } + return SUCCESS; +} + + +static void do_COM_propput(pval *return_value, IDispatch *i_dispatch, pval *arg_property, pval *value) +{ + DISPID dispid; + HRESULT hr; + OLECHAR *propname; + char *error_message; + VARIANTARG var_result; + DISPPARAMS dispparams; + VARIANTARG new_value; + DISPID mydispid = DISPID_PROPERTYPUT; + + + /* obtain property handler */ + propname = php_char_to_OLECHAR(arg_property->value.str.val, arg_property->value.str.len); + + hr = i_dispatch->GetIDsOfNames(IID_NULL, &propname, 1, LOCALE_SYSTEM_DEFAULT, &dispid); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Unable to lookup %s: %s\n", arg_property->value.str.val, error_message); + LocalFree(error_message); + efree(propname); + RETURN_FALSE; + } + + + php_pval_to_variant(value, &new_value); + dispparams.rgvarg = &new_value; + dispparams.rgdispidNamedArgs = &mydispid; + dispparams.cArgs = 1; + dispparams.cNamedArgs = 1; + + hr = i_dispatch->Invoke(dispid, IID_NULL, + LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYPUT, + &dispparams, NULL, NULL, 0); + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"PropPut() failed: %s\n", error_message); + LocalFree(error_message); + efree(propname); + RETURN_FALSE; + } + + dispparams.cArgs = 0; + dispparams.cNamedArgs = 0; + + hr = i_dispatch->Invoke(dispid, IID_NULL, + LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, + &dispparams, &var_result, NULL, 0); + + + if (SUCCEEDED(hr)) { + php_variant_to_pval(&var_result, return_value, 0); + } else { + *return_value = *value; + zval_copy_ctor(return_value); + } + + efree(propname); +} + + +/* {{{ proto mixed com_propget(int module, string property_name) + Gets properties from a COM module */ +PHP_FUNCTION(com_propget) +{ + pval *arg_idispatch, *arg_property; + int type; + IDispatch *i_dispatch; + VARIANTARG var_result; + + if (ZEND_NUM_ARGS()!=2 || getParameters(ht, 2, &arg_idispatch, &arg_property)==FAILURE) { + WRONG_PARAM_COUNT; + } + + /* obtain i_dispatch interface */ + convert_to_long(arg_idispatch); + /* obtain i_dispatch interface */ + i_dispatch = (IDispatch *)zend_list_find(arg_idispatch->value.lval,&type); + if (!i_dispatch || (type!=le_idispatch)) { + php_error(E_WARNING,"%d is not a COM object handler", arg_idispatch->value.lval); + } + convert_to_string(arg_property); + + if (do_COM_propget(&var_result, i_dispatch, arg_property, 0)==FAILURE) { + RETURN_FALSE; + } + php_variant_to_pval(&var_result, return_value, 0); +} +/* }}} */ + + +/* {{{ proto bool com_propput(int module, string property_name, mixed value) + Puts the properties for a module */ +PHP_FUNCTION(com_propput) +{ + pval *arg_idispatch, *arg_property, *arg_value; + int type; + IDispatch *i_dispatch; + + if (ZEND_NUM_ARGS()!=3 || getParameters(ht, 3, &arg_idispatch, &arg_property, &arg_value)==FAILURE) { + WRONG_PARAM_COUNT; + } + + /* obtain i_dispatch interface */ + convert_to_long(arg_idispatch); + /* obtain i_dispatch interface */ + i_dispatch = (IDispatch *)zend_list_find(arg_idispatch->value.lval,&type); + if (!i_dispatch || (type!=le_idispatch)) { + php_error(E_WARNING,"%d is not a COM object handler", arg_idispatch->value.lval); + } + convert_to_string(arg_property); + + do_COM_propput(return_value, i_dispatch, arg_property, arg_value); +} +/* }}} */ + + +VARIANTARG _php_COM_get_property_handler(zend_property_reference *property_reference) +{ + zend_overloaded_element *overloaded_property; + zend_llist_element *element; + pval **idispatch_handle; + pval *object = property_reference->object; + IDispatch *i_dispatch; + int type; + VARIANTARG var_result; + + + /* fetch the IDispatch interface */ + zend_hash_index_find(object->value.obj.properties, 0, (void **) &idispatch_handle); + i_dispatch = (IDispatch *)zend_list_find((*idispatch_handle)->value.lval,&type); + if (!i_dispatch || (type!=le_idispatch)) { + var_result.vt = VT_EMPTY; + return var_result; + } + + var_result.vt = VT_DISPATCH; + var_result.pdispVal = i_dispatch; + + for (element=property_reference->elements_list->head; element; element=element->next) { + overloaded_property = (zend_overloaded_element *) element->data; + switch (overloaded_property->type) { + case OE_IS_ARRAY: + if (do_COM_offget(&var_result, &var_result, &overloaded_property->element, element!=property_reference->elements_list->head)==FAILURE) { + var_result.vt = VT_EMPTY; + return var_result; + } + /*printf("Array offset: ");*/ + break; + case OE_IS_OBJECT: + if (var_result.vt != VT_DISPATCH) { + var_result.vt = VT_EMPTY; + return var_result; + } else { + if (do_COM_propget(&var_result, var_result.pdispVal, &overloaded_property->element, element!=property_reference->elements_list->head)==FAILURE) { + var_result.vt = VT_EMPTY; + return var_result; + } + /*printf("Object property: ");*/ + } + break; + case OE_IS_METHOD: + return var_result; + break; + } + /* + switch (overloaded_property->element.type) { + case IS_LONG: + printf("%d (numeric)\n", overloaded_property->element.value.lval); + break; + case IS_STRING: + printf("'%s'\n", overloaded_property->element.value.str.val); + break; + } + */ + pval_destructor(&overloaded_property->element); + } + return var_result; +} + + +__declspec(dllexport) +pval php_COM_get_property_handler(zend_property_reference *property_reference) +{ + pval result; + VARIANTARG var_result = _php_COM_get_property_handler(property_reference); + + php_variant_to_pval(&var_result, &result, 0); + return result; +} + + +__declspec(dllexport) +int php_COM_set_property_handler(zend_property_reference *property_reference, pval *value) +{ + pval result; + zend_overloaded_element *overloaded_property; + zend_llist_element *element; + pval **idispatch_handle; + pval *object = property_reference->object; + IDispatch *i_dispatch; + int type; + VARIANTARG var_result; + + + /* fetch the IDispatch interface */ + zend_hash_index_find(object->value.obj.properties, 0, (void **) &idispatch_handle); + i_dispatch = (IDispatch *)zend_list_find((*idispatch_handle)->value.lval,&type); + if (!i_dispatch || (type!=le_idispatch)) { + return FAILURE; + } + var_result.vt = VT_DISPATCH; + var_result.pdispVal = i_dispatch; + + for (element=property_reference->elements_list->head; element && element!=property_reference->elements_list->tail; element=element->next) { + overloaded_property = (zend_overloaded_element *) element->data; + switch (overloaded_property->type) { + case OE_IS_ARRAY: + /*printf("Array offset: ");*/ + break; + case OE_IS_OBJECT: + if (var_result.vt != VT_DISPATCH) { + return FAILURE; + } else { + do_COM_propget(&var_result, i_dispatch, &overloaded_property->element, element!=property_reference->elements_list->head); + /*printf("Object property: ");*/ + } + break; + case OE_IS_METHOD: + /* this shouldn't happen */ + return FAILURE; + } + /* + switch (overloaded_property->element.type) { + case IS_LONG: + printf("%d (numeric)\n", overloaded_property->element.valuepval_arglval); + break; + case IS_STRING: + printf("'%s'\n", overloaded_property->element.value.str.val); + break; + } + */ + pval_destructor(&overloaded_property->element); + } + + if (var_result.vt != VT_DISPATCH) { + return FAILURE; + } + overloaded_property = (zend_overloaded_element *) element->data; + do_COM_propput(&result, var_result.pdispVal, &overloaded_property->element, value); + pval_destructor(&overloaded_property->element); + return SUCCESS; +} + + + +__declspec(dllexport) +void php_COM_call_function_handler(INTERNAL_FUNCTION_PARAMETERS, zend_property_reference *property_reference) +{ + zend_overloaded_element *overloaded_property; + pval *object = property_reference->object; + zend_overloaded_element *function_name = (zend_overloaded_element *) property_reference->elements_list->tail->data; + + if (zend_llist_count(property_reference->elements_list)==1 + && !strcmp(function_name->element.value.str.val, "com")) { /* constructor */ + pval *object_handle; + + PHP_FN(COM_load)(INTERNAL_FUNCTION_PARAM_PASSTHRU); + if (!zend_is_true(return_value)) { + var_reset(object); + return; + } + ALLOC_ZVAL(object_handle); + *object_handle = *return_value; + pval_copy_constructor(object_handle); + INIT_PZVAL(object_handle); + zend_hash_index_update(object->value.obj.properties, 0, &object_handle, sizeof(pval *), NULL); + pval_destructor(&function_name->element); + } else { + VARIANTARG object_handle = _php_COM_get_property_handler(property_reference); + pval **arguments; + int arg_count = ZEND_NUM_ARGS(); + VARIANTARG var_result; + + var_result.vt = VT_EMPTY; + + if (object_handle.vt != VT_DISPATCH) { + /* that shouldn't happen */ + return; + } + arguments = (pval **) emalloc(sizeof(pval *)*arg_count); + getParametersArray(ht, arg_count, arguments); + + if (do_COM_invoke((IDispatch *) object_handle.pdispVal, &function_name->element, &var_result, arguments, arg_count)==FAILURE) { + RETVAL_FALSE; + } + pval_destructor(&function_name->element); + efree(arguments); + php_variant_to_pval(&var_result, return_value, 0); + } + + for (overloaded_property = (zend_overloaded_element *) zend_llist_get_first(property_reference->elements_list); + overloaded_property; + overloaded_property = (zend_overloaded_element *) zend_llist_get_next(property_reference->elements_list)) { + switch (overloaded_property->type) { + case OE_IS_ARRAY: + break; + case OE_IS_OBJECT: + break; + case OE_IS_METHOD: + + break; + } + } +} + + +static int php_COM_load_typelib(char *typelib_name, int mode) +{ + ITypeLib *TypeLib; + ITypeComp *TypeComp; + OLECHAR *p; + int i; + int interfaces; + ELS_FETCH(); + + p = php_char_to_OLECHAR(typelib_name, strlen(typelib_name)); + + if (FAILED(LoadTypeLib(p, &TypeLib))) { + efree(p); + return FAILURE; + } + + interfaces = TypeLib->GetTypeInfoCount(); + + TypeLib->GetTypeComp(&TypeComp); + for (i=0; i<interfaces; i++) { + TYPEKIND pTKind; + + TypeLib->GetTypeInfoType(i, &pTKind); + if (pTKind==TKIND_ENUM) { + ITypeInfo *TypeInfo; + VARDESC *pVarDesc; + UINT NameCount; + int j; +#if 0 + BSTR bstr_EnumId; + char *EnumId; + + TypeLib->lpVtbl->GetDocumentation(TypeLib, i, &bstr_EnumId, NULL, NULL, NULL); + EnumId = php_OLECHAR_to_char(bstr_EnumId, NULL, 0); + printf("Enumeration %d - %s:\n", i, EnumId); + efree(EnumId); +#endif + + TypeLib->GetTypeInfo(i, &TypeInfo); + + j=0; + while (TypeInfo->GetVarDesc(j, &pVarDesc)==S_OK) { + BSTR bstr_ids; + char *ids; + zend_constant c; + + TypeInfo->GetNames(pVarDesc->memid, &bstr_ids, 1, &NameCount); + if (NameCount!=1) { + j++; + continue; + } + LocalFree(bstr_ids); + ids = php_OLECHAR_to_char(bstr_ids, NULL, 1); + c.name_len = strlen(ids)+1; + c.name = ids; + php_variant_to_pval(pVarDesc->lpvarValue, &c.value, 1); + c.flags = mode; + + zend_register_constant(&c ELS_CC); + /*printf("%s -> %ld\n", ids, pVarDesc->lpvarValue->lVal);*/ + j++; + } + TypeInfo->Release(); + } + } + + + TypeLib->Release(); + efree(p); + return SUCCESS; +} + +void php_register_COM_class() +{ + INIT_OVERLOADED_CLASS_ENTRY(com_class_entry, "COM", NULL, + php_COM_call_function_handler, + php_COM_get_property_handler, + php_COM_set_property_handler); + + zend_register_internal_class(&com_class_entry); +} + + +PHP_MINIT_FUNCTION(COM) +{ + CoInitialize(NULL); + le_idispatch = zend_register_list_destructors_ex(php_idispatch_destructor, NULL, "COM", module_number); + php_register_COM_class(); + REGISTER_INI_ENTRIES(); + return SUCCESS; +} + + +PHP_MSHUTDOWN_FUNCTION(COM) +{ + CoUninitialize(); + UNREGISTER_INI_ENTRIES(); + return SUCCESS; +} + +zend_module_entry COM_module_entry = { + "com", COM_functions, PHP_MINIT(COM), PHP_MSHUTDOWN(COM), NULL, NULL, PHP_MINFO(COM), STANDARD_MODULE_PROPERTIES +}; + +#endif diff --git a/ext/com/VARIANT.c b/ext/com/VARIANT.c new file mode 100644 index 0000000000..5afd1bdac6 --- /dev/null +++ b/ext/com/VARIANT.c @@ -0,0 +1,413 @@ +/* + +----------------------------------------------------------------------+ + | PHP version 4.0 | + +----------------------------------------------------------------------+ + | Copyright (c) 1997, 1998, 1999, 2000 The PHP Group | + +----------------------------------------------------------------------+ + | This source file is subject to version 2.02 of the PHP license, | + | that is bundled with this package in the file LICENSE, and is | + | available at through the world-wide-web at | + | http://www.php.net/license/2_02.txt. | + | If you did not receive a copy of the PHP license and are unable to | + | obtain it through the world-wide-web, please send a note to | + | license@php.net so we can mail you a copy immediately. | + +----------------------------------------------------------------------+ + | Author: Harald Radi <h.radi@nme.at> | + +----------------------------------------------------------------------+ + */ + + +/* + * This module maps the VARIANT datastructure into PHP so that it can be used to + * pass values to COM and DOTNET Objects by reference and not only by value. + * + * harald + */ + +#ifdef PHP_WIN32 + +#include "php.h" +#include "php_ini.h" +#include "php_typedef_VARIANT.h" +#include "conversion.h" + +#include <unknwn.h> + +void php_VARIANT_call_function_handler(INTERNAL_FUNCTION_PARAMETERS, zend_property_reference *property_reference); +pval php_VARIANT_get_property_handler(zend_property_reference *property_reference); +static int do_VARIANT_propset(VARIANT *var_arg, pval *arg_property, pval *value); +void php_register_VARIANT_class(); +static void php_variant_destructor(zend_rsrc_list_entry *rsrc); +void php_register_VARIANT_class(); + +static int le_variant; + +static zend_class_entry VARIANT_class_entry; + +function_entry VARIANT_functions[] = { + {NULL, NULL, NULL} +}; + +static PHP_MINFO_FUNCTION(VARIANT) +{ + DISPLAY_INI_ENTRIES(); +} + +zend_module_entry VARIANT_module_entry = { + "variant", VARIANT_functions, PHP_MINIT(VARIANT), PHP_MSHUTDOWN(VARIANT), NULL, NULL, PHP_MINFO(VARIANT), STANDARD_MODULE_PROPERTIES +}; + +PHP_MINIT_FUNCTION(VARIANT) +{ + le_variant = zend_register_list_destructors_ex(php_variant_destructor, NULL, "VARIANT", module_number); + + php_register_VARIANT_class(); + return SUCCESS; +} + + +PHP_MSHUTDOWN_FUNCTION(VARIANT) +{ + return SUCCESS; +} + +void php_VARIANT_call_function_handler(INTERNAL_FUNCTION_PARAMETERS, zend_property_reference *property_reference) +{ + pval *object = property_reference->object; + zend_overloaded_element *function_name = (zend_overloaded_element *) property_reference->elements_list->tail->data; + VARIANT *pVar; + + if ((zend_llist_count(property_reference->elements_list)==1) && !strcmp(function_name->element.value.str.val, "variant")) + { + /* constructor */ + pval *object_handle, *data, *type; + + pVar = emalloc(sizeof(VARIANT)); + VariantInit(pVar); + + switch (ZEND_NUM_ARGS()) + { + case 0: + /* nothing to do */ + break; + case 1: + getParameters(ht, 1, &data); + php_pval_to_variant(data, pVar); + break; + case 2: + getParameters(ht, 2, &data, &type); + php_pval_to_variant_ex(data, pVar, type); + break; + default: + WRONG_PARAM_COUNT; + break; + } + + return_value->type = IS_LONG; + return_value->value.lval = zend_list_insert(pVar, le_variant); + + if (!zend_is_true(return_value)) { + var_reset(object); + return; + } + + ALLOC_ZVAL(object_handle); + *object_handle = *return_value; + pval_copy_constructor(object_handle); + INIT_PZVAL(object_handle); + zend_hash_index_update(object->value.obj.properties, 0, &object_handle, sizeof(pval *), NULL); + pval_destructor(&function_name->element); + } +} + + +pval php_VARIANT_get_property_handler(zend_property_reference *property_reference) +{ + zend_overloaded_element *overloaded_property; + int type; + + pval result, **var_handle, *object = property_reference->object; + VARIANT *var_arg; + + /* fetch the VARIANT structure */ + zend_hash_index_find(object->value.obj.properties, 0, (void **) &var_handle); + var_arg = zend_list_find((*var_handle)->value.lval, &type); + + if (!var_arg || (type != le_variant)) + var_reset(&result); + else + { + overloaded_property = (zend_overloaded_element *) property_reference->elements_list->head->data; + switch (overloaded_property->type) + { + case OE_IS_ARRAY: + var_reset(&result); + break; + + case OE_IS_OBJECT: + if(strstr(overloaded_property->element.value.str.val, "value")) + php_variant_to_pval(var_arg, &result, 0); + else + { + var_reset(&result); + php_error(E_WARNING, "Unknown member."); + } + break; + case OE_IS_METHOD: + var_reset(&result); + php_error(E_WARNING, "Unknown method."); + break; + + pval_destructor(&overloaded_property->element); + } + } + + return result; +} + +int php_VARIANT_set_property_handler(zend_property_reference *property_reference, pval *value) +{ + zend_overloaded_element *overloaded_property; + int type; + + pval **var_handle, *object = property_reference->object; + VARIANT *var_arg; + + /* fetch the VARIANT structure */ + zend_hash_index_find(object->value.obj.properties, 0, (void **) &var_handle); + var_arg = zend_list_find((*var_handle)->value.lval, &type); + + if (!var_arg || (type != le_variant)) + return FAILURE; + + overloaded_property = (zend_overloaded_element *) property_reference->elements_list->head->data; + do_VARIANT_propset(var_arg, &overloaded_property->element, value); + pval_destructor(&overloaded_property->element); + return SUCCESS; +} + +static int do_VARIANT_propset(VARIANT *var_arg, pval *arg_property, pval *value) +{ + pval type; + + type.type = IS_STRING; + + if(strstr(arg_property->value.str.val, "bVal")) + { + type.value.str.val = "VT_UI1"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "iVal")) + { + type.value.str.val = "VT_I2"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "lVal")) + { + type.value.str.val = "VT_I4"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "fltVal")) + { + type.value.str.val = "VT_R4"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "dblVal")) + { + type.value.str.val = "VT_R8"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "boolVal")) + { + type.value.str.val = "VT_BOOL"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "scode")) + { + type.value.str.val = "VT_ERROR"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "cyVal")) + { + type.value.str.val = "VT_CY"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "date")) + { + type.value.str.val = "VT_DATE"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "bstrVal")) + { + type.value.str.val = "VT_BSTR"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pdecVal")) + { + type.value.str.val = "VT_DECIMAL|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "punkVal")) + { + type.value.str.val = "VT_UNKNOWN"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pdispVal")) + { + type.value.str.val = "VT_DISPATCH"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "parray")) + { + type.value.str.val = "VT_ARRAY"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pbVal")) + { + type.value.str.val = "VT_UI1|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "piVal")) + { + type.value.str.val = "VT_I2|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "plVal")) + { + type.value.str.val = "VT_I4|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pfltVal")) + { + type.value.str.val = "VT_R4|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pdblVal")) + { + type.value.str.val = "VT_R8|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pboolVal")) + { + type.value.str.val = "VT_BOOL|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pscode")) + { + type.value.str.val = "VT_ERROR|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pcyVal")) + { + type.value.str.val = "VT_CY|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pdate")) + { + type.value.str.val = "VT_DATE|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pbstrVal")) + { + type.value.str.val = "VT_BSTR|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "ppunkVal")) + { + type.value.str.val = "VT_UNKNOWN|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "ppdispVal")) + { + type.value.str.val = "VT_DISPATCH|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pparray")) + { + type.value.str.val = "VT_ARRAY|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pvarVal")) + { + type.value.str.val = "VT_VARIANT|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "byref")) + { + type.value.str.val = "VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "cVal")) + { + type.value.str.val = "VT_I1"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "uiVal")) + { + type.value.str.val = "VT_UI2"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "ulVal")) + { + type.value.str.val = "VT_UI4"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "intVal")) + { + type.value.str.val = "VT_INT"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "uintVal")) + { + type.value.str.val = "VT_UINT|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pcVal")) + { + type.value.str.val = "VT_I1|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "puiVal")) + { + type.value.str.val = "VT_UI2|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pulVal")) + { + type.value.str.val = "VT_UI4|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pintVal")) + { + type.value.str.val = "VT_INT|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "puintVal")) + { + type.value.str.val = "VT_UINT|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else + { + php_error(E_WARNING, "Unknown member."); + return FAILURE; + } + return SUCCESS; +} + +static void php_variant_destructor(zend_rsrc_list_entry *rsrc) +{ + efree(rsrc); +} + +void php_register_VARIANT_class() +{ + INIT_OVERLOADED_CLASS_ENTRY(VARIANT_class_entry, "VARIANT", NULL, + php_VARIANT_call_function_handler, + php_VARIANT_get_property_handler, + php_VARIANT_set_property_handler); + + zend_register_internal_class(&VARIANT_class_entry); +} + +#endif 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; +} diff --git a/ext/com/conversion.h b/ext/com/conversion.h new file mode 100644 index 0000000000..fc98827199 --- /dev/null +++ b/ext/com/conversion.h @@ -0,0 +1,18 @@ +#ifndef CONVERSION_H +#define CONVERSION_H + +#ifdef __cplusplus +extern "C" { +#endif + +void php_pval_to_variant(pval *pval_arg, VARIANT *var_arg); +void php_pval_to_variant_ex(pval *pval_arg, VARIANT *var_arg, pval *pval_type); +void php_variant_to_pval(VARIANT *var_arg, pval *pval_arg, int persistent); +OLECHAR *php_char_to_OLECHAR(char *C_str, uint strlen); +char *php_OLECHAR_to_char(OLECHAR *unicode_str, uint *out_length, int persistent); + +#ifdef __cplusplus +} +#endif + +#endif
\ No newline at end of file diff --git a/ext/com/php_VARIANT.h b/ext/com/php_VARIANT.h new file mode 100644 index 0000000000..2bb5fc1d62 --- /dev/null +++ b/ext/com/php_VARIANT.h @@ -0,0 +1,20 @@ +#ifndef PHP_TYPEDEF_VARIANT_H +#define PHP_TYPEDEF_VARIANT_H + +#if WIN32|WINNT + +extern PHP_MINIT_FUNCTION(VARIANT); +extern PHP_MSHUTDOWN_FUNCTION(VARIANT); + +extern zend_module_entry VARIANT_module_entry; +#define VARIANT_module_ptr &VARIANT_module_entry + +#else + +#define VARIANT_module_ptr NULL + +#endif /* Win32|WINNT */ + +#define phpext_VARIANT_ptr VARIANT_module_ptr + +#endif /* PHP_TYPEDEF_VARIANT_H */ diff --git a/ext/rpc/com/com_wrapper.c b/ext/rpc/com/com_wrapper.c new file mode 100644 index 0000000000..943ed14a0d --- /dev/null +++ b/ext/rpc/com/com_wrapper.c @@ -0,0 +1,875 @@ +/* + +----------------------------------------------------------------------+ + | PHP version 4.0 | + +----------------------------------------------------------------------+ + | Copyright (c) 1997, 1998, 1999, 2000 The PHP Group | + +----------------------------------------------------------------------+ + | This source file is subject to version 2.02 of the PHP license, | + | that is bundled with this package in the file LICENSE, and is | + | available at through the world-wide-web at | + | http://www.php.net/license/2_02.txt. | + | If you did not receive a copy of the PHP license and are unable to | + | obtain it through the world-wide-web, please send a note to | + | license@php.net so we can mail you a copy immediately. | + +----------------------------------------------------------------------+ + | Author: Zeev Suraski <zeev@zend.com> | + | Harald Radi <h.radi@nme.at> + +----------------------------------------------------------------------+ + */ + + +/* + * This module implements support for COM components that support the IDispatch + * interface. Both local (COM) and remote (DCOM) components can be accessed. + * + * Type libraries can be loaded (in order for PHP to recognize automation constants) + * by specifying a typelib_file in the PHP .ini file. That file should contain + * paths to type libraries, one in every line. By default, constants are registered + * as case-sensitive. If you want them to be defined as case-insensitive, add + * #case_insensitive or #cis at the end of the type library path. + * + * This is also the first module to demonstrate Zend's OO syntax overloading + * capabilities. CORBA coders are invited to write a CORBA module as well! + * + * Zeev + */ + +/* + * 28.12.2000 + * unicode conversion fixed by Harald Radi <h.radi@nme.at> + * + * now all these strange '?'s should be disapeared + */ + +/* + * 28.1.2001 + * VARIANT datatype and pass_by_reference support + */ + +#ifdef PHP_WIN32 + +#define _WIN32_DCOM + +#ifdef CP_THREAD_ACP +#define PHP_COM_CODEPAGE CP_THREAD_ACP +#else +#define PHP_COM_CODEPAGE CP_ACP +#endif + +#include <iostream.h> +#include <math.h> + +extern "C" { + +#include "php.h" +#include "php_ini.h" + +} + +#include "conversion.h" +#include "php_COM.h" +#include "unknwn.h" + +static int le_idispatch; + +static zend_class_entry com_class_entry; + +function_entry COM_functions[] = { + PHP_FE(COM_load, NULL) + PHP_FE(COM_invoke, NULL) + + PHP_FE(com_propget, NULL) + PHP_FE(com_propput, NULL) + + PHP_FALIAS(com_get, com_propget, NULL) + PHP_FALIAS(com_propset, com_propput, NULL) + PHP_FALIAS(com_set, com_propput, NULL) + + {NULL, NULL, NULL} +}; + +__declspec(dllexport) +int php_COM_get_le_idispatch() { + return le_idispatch; +} + +static PHP_MINFO_FUNCTION(COM) +{ + DISPLAY_INI_ENTRIES(); +} + +static int php_COM_load_typelib(char *typelib_name, int mode); + +__declspec(dllexport) +char *php_COM_error_message(HRESULT hr) +{ + char *pMsgBuf; + + if (!FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM, NULL, + hr, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPTSTR) &pMsgBuf, 0, NULL)) { + char error_string[] = "No description available"; + + pMsgBuf = (char *) LocalAlloc(LMEM_FIXED, sizeof(error_string)); + memcpy(pMsgBuf, error_string, sizeof(error_string)); + } + + return pMsgBuf; +} + +static char *php_string_from_clsid(const CLSID clsid) +{ + LPOLESTR ole_clsid; + char *clsid_str; + + StringFromCLSID(clsid, &ole_clsid); + clsid_str = php_OLECHAR_to_char(ole_clsid, NULL, 0); + LocalFree(ole_clsid); + + return clsid_str; +} + +static void php_idispatch_destructor(zend_rsrc_list_entry *rsrc) +{ + IDispatch *i_dispatch = (IDispatch *)rsrc->ptr; + i_dispatch->Release(); +} + + +static PHP_INI_MH(OnTypelibFileChange) +{ + FILE *typelib_file; + char *typelib_name_buffer; + char *strtok_buf = NULL; +#if SUPPORT_INTERACTIVE + int interactive; + ELS_FETCH(); + + interactive = EG(interactive); +#endif + + + if (!new_value || (typelib_file=V_FOPEN(new_value, "r"))==NULL) { + return FAILURE; + } + +#if SUPPORT_INTERACTIVE + if (interactive) { + printf("Loading type libraries..."); + fflush(stdout); + } +#endif + + typelib_name_buffer = (char *) malloc(sizeof(char)*1024); + + while (fgets(typelib_name_buffer, 1024, typelib_file)) { + char *typelib_name; + char *modifier; + int mode = CONST_PERSISTENT|CONST_CS; + + if (typelib_name_buffer[0]==';') { + continue; + } + typelib_name = php_strtok_r(typelib_name_buffer, "\r\n", &strtok_buf); /* get rid of newlines */ + typelib_name = php_strtok_r(typelib_name, "#", &strtok_buf); + modifier = php_strtok_r(NULL, "#", &strtok_buf); + if (modifier) { + if (!strcmp(modifier, "cis") || !strcmp(modifier, "case_insensitive")) { + mode &= ~CONST_CS; + } + } +#if SUPPORT_INTERACTIVE + if (interactive) { + printf("\rLoading %-60s\r", typelib_name); + } +#endif + php_COM_load_typelib(typelib_name, mode); + } + + free(typelib_name_buffer); + fclose(typelib_file); + +#if SUPPORT_INTERACTIVE + if (interactive) { + printf("\r%70s\r", ""); + } +#endif + + return SUCCESS; +} + + +PHP_INI_BEGIN() + PHP_INI_ENTRY1_EX("allow_dcom", "0", PHP_INI_SYSTEM, NULL, NULL, php_ini_boolean_displayer_cb) + PHP_INI_ENTRY1("typelib_file", NULL, PHP_INI_SYSTEM, OnTypelibFileChange, NULL) +PHP_INI_END() + + +/* {{{ proto int com_load(string module_name) + Loads a COM module */ +PHP_FUNCTION(COM_load) +{ + pval *module_name, *server_name=NULL; + CLSID clsid; + HRESULT hr; + OLECHAR *ProgID; + IDispatch *i_dispatch; + char *error_message; + char *clsid_str; + + switch (ZEND_NUM_ARGS()) { + case 1: + getParameters(ht, 1, &module_name); + break; + case 2: + if (!INI_INT("allow_dcom")) { + php_error(E_WARNING, "DCOM is disabled"); + RETURN_FALSE; + } + getParameters(ht, 2, &module_name, &server_name); + convert_to_string(server_name); + break; + default: + WRONG_PARAM_COUNT; + break; + } + + convert_to_string(module_name); + ProgID = php_char_to_OLECHAR(module_name->value.str.val, module_name->value.str.len); + hr = CLSIDFromProgID(ProgID, &clsid); + efree(ProgID); + + /* obtain CLSID */ + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Invalid ProgID: %s\n", error_message); + LocalFree(error_message); + RETURN_FALSE; + } + + /* obtain IDispatch */ + if (!server_name) { + hr = CoCreateInstance(clsid, NULL, CLSCTX_SERVER, IID_IDispatch, (LPVOID *) &i_dispatch); + } else { + COSERVERINFO server_info; + MULTI_QI pResults; + + server_info.dwReserved1=0; + server_info.dwReserved2=0; + server_info.pwszName = php_char_to_OLECHAR(server_name->value.str.val, server_name->value.str.len); + server_info.pAuthInfo=NULL; + + pResults.pIID = &IID_IDispatch; + pResults.pItf = NULL; + pResults.hr = S_OK; + hr=CoCreateInstanceEx(clsid, NULL, CLSCTX_SERVER, &server_info, 1, &pResults); + if (SUCCEEDED(hr)) { + hr = pResults.hr; + i_dispatch = (IDispatch *) pResults.pItf; + } + efree(server_info.pwszName); + } + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + clsid_str = php_string_from_clsid(clsid); + php_error(E_WARNING,"Unable to obtain IDispatch interface for CLSID %s: %s",clsid_str,error_message); + LocalFree(error_message); + efree(clsid_str); + RETURN_FALSE; + } + + + RETURN_LONG(zend_list_insert(i_dispatch,le_idispatch)); +} +/* }}} */ + + +int do_COM_invoke(IDispatch *i_dispatch, pval *function_name, VARIANTARG *var_result, pval **arguments, int arg_count) +{ + DISPID dispid; + HRESULT hr; + OLECHAR *funcname; + char *error_message; + VARIANTARG *variant_args; + int current_arg, current_variant; + DISPPARAMS dispparams; + + funcname = php_char_to_OLECHAR(function_name->value.str.val, function_name->value.str.len); + + hr = i_dispatch->GetIDsOfNames(IID_NULL, &funcname, 1, LOCALE_SYSTEM_DEFAULT, &dispid); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Unable to lookup %s: %s\n", function_name->value.str.val, error_message); + LocalFree(error_message); + efree(funcname); + return FAILURE; + } + + variant_args = (VARIANTARG *) emalloc(sizeof(VARIANTARG)*arg_count); + + for (current_arg=0; current_arg<arg_count; current_arg++) { + current_variant = arg_count - current_arg - 1; + php_pval_to_variant(arguments[current_arg], &variant_args[current_variant]); + } + + dispparams.rgvarg = variant_args; + dispparams.rgdispidNamedArgs = NULL; + dispparams.cArgs = arg_count; + dispparams.cNamedArgs = 0; + + hr = i_dispatch->Invoke(dispid, IID_NULL, + LOCALE_SYSTEM_DEFAULT, DISPATCH_METHOD|DISPATCH_PROPERTYGET, + &dispparams, var_result, NULL, NULL); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Invoke() failed: %s\n", error_message); + LocalFree(error_message); + efree(funcname); + efree(variant_args); + return FAILURE; + } + + efree(variant_args); + efree(funcname); + return SUCCESS; +} + + +/* {{{ proto mixed com_invoke(int module, string handler_name [, mixed arg [, ...]]) + Invokes a COM module */ +PHP_FUNCTION(COM_invoke) +{ + pval **arguments; + pval *object, *function_name; + IDispatch *i_dispatch; + int type; + int arg_count = ZEND_NUM_ARGS(); + VARIANTARG var_result; + + if (arg_count<2) { + WRONG_PARAM_COUNT; + } + arguments = (pval **) emalloc(sizeof(pval *)*arg_count); + if (getParametersArray(ht, arg_count, arguments)==FAILURE) { + RETURN_FALSE; + } + + object = arguments[0]; + function_name = arguments[1]; + + /* obtain i_dispatch interface */ + convert_to_long(object); + i_dispatch = (IDispatch *)zend_list_find(object->value.lval, &type); + if (!i_dispatch || (type!=le_idispatch)) { + php_error(E_WARNING,"%d is not a COM object handler", function_name->value.str.val); + RETURN_FALSE; + } + + /* obtain property/method handler */ + convert_to_string(function_name); + + if (do_COM_invoke(i_dispatch, function_name, &var_result, arguments+2, arg_count-2)==FAILURE) { + RETURN_FALSE; + } + efree(arguments); + + php_variant_to_pval(&var_result, return_value, 0); +} +/* }}} */ + +static int do_COM_offget(VARIANTARG *var_result, VARIANTARG *array, pval *arg_property, int cleanup) +{ + switch (array->vt) { + case VT_DISPATCH: { /* a Collection, possibly */ + pval function_name; + IDispatch *i_dispatch = array->pdispVal; + int retval; + + function_name.value.str.val = "Item"; + function_name.value.str.len = 4; + function_name.type = IS_STRING; + retval = do_COM_invoke(i_dispatch, &function_name, var_result, &arg_property, 1); + if (cleanup) { + i_dispatch->Release(); + } + return retval; + } + } + return FAILURE; +} + + +static int do_COM_propget(VARIANTARG *var_result, IDispatch *i_dispatch, pval *arg_property, int cleanup) +{ + DISPID dispid; + HRESULT hr; + OLECHAR *propname; + char *error_message; + DISPPARAMS dispparams; + + + /* obtain property handler */ + propname = php_char_to_OLECHAR(arg_property->value.str.val, arg_property->value.str.len); + + hr = i_dispatch->GetIDsOfNames(IID_NULL, &propname, 1, LOCALE_SYSTEM_DEFAULT, &dispid); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Unable to lookup %s: %s\n", arg_property->value.str.val, error_message); + LocalFree(error_message); + efree(propname); + if (cleanup) { + i_dispatch->Release(); + } + return FAILURE; + } + + dispparams.cArgs = 0; + dispparams.cNamedArgs = 0; + + hr = i_dispatch->Invoke(dispid, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &dispparams, var_result, NULL, 0); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"PropGet() failed: %s\n", error_message); + LocalFree(error_message); + efree(propname); + if (cleanup) { + i_dispatch->Release(); + } + return FAILURE; + } + + efree(propname); + if (cleanup) { + i_dispatch->Release(); + } + return SUCCESS; +} + + +static void do_COM_propput(pval *return_value, IDispatch *i_dispatch, pval *arg_property, pval *value) +{ + DISPID dispid; + HRESULT hr; + OLECHAR *propname; + char *error_message; + VARIANTARG var_result; + DISPPARAMS dispparams; + VARIANTARG new_value; + DISPID mydispid = DISPID_PROPERTYPUT; + + + /* obtain property handler */ + propname = php_char_to_OLECHAR(arg_property->value.str.val, arg_property->value.str.len); + + hr = i_dispatch->GetIDsOfNames(IID_NULL, &propname, 1, LOCALE_SYSTEM_DEFAULT, &dispid); + + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"Unable to lookup %s: %s\n", arg_property->value.str.val, error_message); + LocalFree(error_message); + efree(propname); + RETURN_FALSE; + } + + + php_pval_to_variant(value, &new_value); + dispparams.rgvarg = &new_value; + dispparams.rgdispidNamedArgs = &mydispid; + dispparams.cArgs = 1; + dispparams.cNamedArgs = 1; + + hr = i_dispatch->Invoke(dispid, IID_NULL, + LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYPUT, + &dispparams, NULL, NULL, 0); + if (FAILED(hr)) { + error_message = php_COM_error_message(hr); + php_error(E_WARNING,"PropPut() failed: %s\n", error_message); + LocalFree(error_message); + efree(propname); + RETURN_FALSE; + } + + dispparams.cArgs = 0; + dispparams.cNamedArgs = 0; + + hr = i_dispatch->Invoke(dispid, IID_NULL, + LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, + &dispparams, &var_result, NULL, 0); + + + if (SUCCEEDED(hr)) { + php_variant_to_pval(&var_result, return_value, 0); + } else { + *return_value = *value; + zval_copy_ctor(return_value); + } + + efree(propname); +} + + +/* {{{ proto mixed com_propget(int module, string property_name) + Gets properties from a COM module */ +PHP_FUNCTION(com_propget) +{ + pval *arg_idispatch, *arg_property; + int type; + IDispatch *i_dispatch; + VARIANTARG var_result; + + if (ZEND_NUM_ARGS()!=2 || getParameters(ht, 2, &arg_idispatch, &arg_property)==FAILURE) { + WRONG_PARAM_COUNT; + } + + /* obtain i_dispatch interface */ + convert_to_long(arg_idispatch); + /* obtain i_dispatch interface */ + i_dispatch = (IDispatch *)zend_list_find(arg_idispatch->value.lval,&type); + if (!i_dispatch || (type!=le_idispatch)) { + php_error(E_WARNING,"%d is not a COM object handler", arg_idispatch->value.lval); + } + convert_to_string(arg_property); + + if (do_COM_propget(&var_result, i_dispatch, arg_property, 0)==FAILURE) { + RETURN_FALSE; + } + php_variant_to_pval(&var_result, return_value, 0); +} +/* }}} */ + + +/* {{{ proto bool com_propput(int module, string property_name, mixed value) + Puts the properties for a module */ +PHP_FUNCTION(com_propput) +{ + pval *arg_idispatch, *arg_property, *arg_value; + int type; + IDispatch *i_dispatch; + + if (ZEND_NUM_ARGS()!=3 || getParameters(ht, 3, &arg_idispatch, &arg_property, &arg_value)==FAILURE) { + WRONG_PARAM_COUNT; + } + + /* obtain i_dispatch interface */ + convert_to_long(arg_idispatch); + /* obtain i_dispatch interface */ + i_dispatch = (IDispatch *)zend_list_find(arg_idispatch->value.lval,&type); + if (!i_dispatch || (type!=le_idispatch)) { + php_error(E_WARNING,"%d is not a COM object handler", arg_idispatch->value.lval); + } + convert_to_string(arg_property); + + do_COM_propput(return_value, i_dispatch, arg_property, arg_value); +} +/* }}} */ + + +VARIANTARG _php_COM_get_property_handler(zend_property_reference *property_reference) +{ + zend_overloaded_element *overloaded_property; + zend_llist_element *element; + pval **idispatch_handle; + pval *object = property_reference->object; + IDispatch *i_dispatch; + int type; + VARIANTARG var_result; + + + /* fetch the IDispatch interface */ + zend_hash_index_find(object->value.obj.properties, 0, (void **) &idispatch_handle); + i_dispatch = (IDispatch *)zend_list_find((*idispatch_handle)->value.lval,&type); + if (!i_dispatch || (type!=le_idispatch)) { + var_result.vt = VT_EMPTY; + return var_result; + } + + var_result.vt = VT_DISPATCH; + var_result.pdispVal = i_dispatch; + + for (element=property_reference->elements_list->head; element; element=element->next) { + overloaded_property = (zend_overloaded_element *) element->data; + switch (overloaded_property->type) { + case OE_IS_ARRAY: + if (do_COM_offget(&var_result, &var_result, &overloaded_property->element, element!=property_reference->elements_list->head)==FAILURE) { + var_result.vt = VT_EMPTY; + return var_result; + } + /*printf("Array offset: ");*/ + break; + case OE_IS_OBJECT: + if (var_result.vt != VT_DISPATCH) { + var_result.vt = VT_EMPTY; + return var_result; + } else { + if (do_COM_propget(&var_result, var_result.pdispVal, &overloaded_property->element, element!=property_reference->elements_list->head)==FAILURE) { + var_result.vt = VT_EMPTY; + return var_result; + } + /*printf("Object property: ");*/ + } + break; + case OE_IS_METHOD: + return var_result; + break; + } + /* + switch (overloaded_property->element.type) { + case IS_LONG: + printf("%d (numeric)\n", overloaded_property->element.value.lval); + break; + case IS_STRING: + printf("'%s'\n", overloaded_property->element.value.str.val); + break; + } + */ + pval_destructor(&overloaded_property->element); + } + return var_result; +} + + +__declspec(dllexport) +pval php_COM_get_property_handler(zend_property_reference *property_reference) +{ + pval result; + VARIANTARG var_result = _php_COM_get_property_handler(property_reference); + + php_variant_to_pval(&var_result, &result, 0); + return result; +} + + +__declspec(dllexport) +int php_COM_set_property_handler(zend_property_reference *property_reference, pval *value) +{ + pval result; + zend_overloaded_element *overloaded_property; + zend_llist_element *element; + pval **idispatch_handle; + pval *object = property_reference->object; + IDispatch *i_dispatch; + int type; + VARIANTARG var_result; + + + /* fetch the IDispatch interface */ + zend_hash_index_find(object->value.obj.properties, 0, (void **) &idispatch_handle); + i_dispatch = (IDispatch *)zend_list_find((*idispatch_handle)->value.lval,&type); + if (!i_dispatch || (type!=le_idispatch)) { + return FAILURE; + } + var_result.vt = VT_DISPATCH; + var_result.pdispVal = i_dispatch; + + for (element=property_reference->elements_list->head; element && element!=property_reference->elements_list->tail; element=element->next) { + overloaded_property = (zend_overloaded_element *) element->data; + switch (overloaded_property->type) { + case OE_IS_ARRAY: + /*printf("Array offset: ");*/ + break; + case OE_IS_OBJECT: + if (var_result.vt != VT_DISPATCH) { + return FAILURE; + } else { + do_COM_propget(&var_result, i_dispatch, &overloaded_property->element, element!=property_reference->elements_list->head); + /*printf("Object property: ");*/ + } + break; + case OE_IS_METHOD: + /* this shouldn't happen */ + return FAILURE; + } + /* + switch (overloaded_property->element.type) { + case IS_LONG: + printf("%d (numeric)\n", overloaded_property->element.valuepval_arglval); + break; + case IS_STRING: + printf("'%s'\n", overloaded_property->element.value.str.val); + break; + } + */ + pval_destructor(&overloaded_property->element); + } + + if (var_result.vt != VT_DISPATCH) { + return FAILURE; + } + overloaded_property = (zend_overloaded_element *) element->data; + do_COM_propput(&result, var_result.pdispVal, &overloaded_property->element, value); + pval_destructor(&overloaded_property->element); + return SUCCESS; +} + + + +__declspec(dllexport) +void php_COM_call_function_handler(INTERNAL_FUNCTION_PARAMETERS, zend_property_reference *property_reference) +{ + zend_overloaded_element *overloaded_property; + pval *object = property_reference->object; + zend_overloaded_element *function_name = (zend_overloaded_element *) property_reference->elements_list->tail->data; + + if (zend_llist_count(property_reference->elements_list)==1 + && !strcmp(function_name->element.value.str.val, "com")) { /* constructor */ + pval *object_handle; + + PHP_FN(COM_load)(INTERNAL_FUNCTION_PARAM_PASSTHRU); + if (!zend_is_true(return_value)) { + var_reset(object); + return; + } + ALLOC_ZVAL(object_handle); + *object_handle = *return_value; + pval_copy_constructor(object_handle); + INIT_PZVAL(object_handle); + zend_hash_index_update(object->value.obj.properties, 0, &object_handle, sizeof(pval *), NULL); + pval_destructor(&function_name->element); + } else { + VARIANTARG object_handle = _php_COM_get_property_handler(property_reference); + pval **arguments; + int arg_count = ZEND_NUM_ARGS(); + VARIANTARG var_result; + + var_result.vt = VT_EMPTY; + + if (object_handle.vt != VT_DISPATCH) { + /* that shouldn't happen */ + return; + } + arguments = (pval **) emalloc(sizeof(pval *)*arg_count); + getParametersArray(ht, arg_count, arguments); + + if (do_COM_invoke((IDispatch *) object_handle.pdispVal, &function_name->element, &var_result, arguments, arg_count)==FAILURE) { + RETVAL_FALSE; + } + pval_destructor(&function_name->element); + efree(arguments); + php_variant_to_pval(&var_result, return_value, 0); + } + + for (overloaded_property = (zend_overloaded_element *) zend_llist_get_first(property_reference->elements_list); + overloaded_property; + overloaded_property = (zend_overloaded_element *) zend_llist_get_next(property_reference->elements_list)) { + switch (overloaded_property->type) { + case OE_IS_ARRAY: + break; + case OE_IS_OBJECT: + break; + case OE_IS_METHOD: + + break; + } + } +} + + +static int php_COM_load_typelib(char *typelib_name, int mode) +{ + ITypeLib *TypeLib; + ITypeComp *TypeComp; + OLECHAR *p; + int i; + int interfaces; + ELS_FETCH(); + + p = php_char_to_OLECHAR(typelib_name, strlen(typelib_name)); + + if (FAILED(LoadTypeLib(p, &TypeLib))) { + efree(p); + return FAILURE; + } + + interfaces = TypeLib->GetTypeInfoCount(); + + TypeLib->GetTypeComp(&TypeComp); + for (i=0; i<interfaces; i++) { + TYPEKIND pTKind; + + TypeLib->GetTypeInfoType(i, &pTKind); + if (pTKind==TKIND_ENUM) { + ITypeInfo *TypeInfo; + VARDESC *pVarDesc; + UINT NameCount; + int j; +#if 0 + BSTR bstr_EnumId; + char *EnumId; + + TypeLib->lpVtbl->GetDocumentation(TypeLib, i, &bstr_EnumId, NULL, NULL, NULL); + EnumId = php_OLECHAR_to_char(bstr_EnumId, NULL, 0); + printf("Enumeration %d - %s:\n", i, EnumId); + efree(EnumId); +#endif + + TypeLib->GetTypeInfo(i, &TypeInfo); + + j=0; + while (TypeInfo->GetVarDesc(j, &pVarDesc)==S_OK) { + BSTR bstr_ids; + char *ids; + zend_constant c; + + TypeInfo->GetNames(pVarDesc->memid, &bstr_ids, 1, &NameCount); + if (NameCount!=1) { + j++; + continue; + } + LocalFree(bstr_ids); + ids = php_OLECHAR_to_char(bstr_ids, NULL, 1); + c.name_len = strlen(ids)+1; + c.name = ids; + php_variant_to_pval(pVarDesc->lpvarValue, &c.value, 1); + c.flags = mode; + + zend_register_constant(&c ELS_CC); + /*printf("%s -> %ld\n", ids, pVarDesc->lpvarValue->lVal);*/ + j++; + } + TypeInfo->Release(); + } + } + + + TypeLib->Release(); + efree(p); + return SUCCESS; +} + +void php_register_COM_class() +{ + INIT_OVERLOADED_CLASS_ENTRY(com_class_entry, "COM", NULL, + php_COM_call_function_handler, + php_COM_get_property_handler, + php_COM_set_property_handler); + + zend_register_internal_class(&com_class_entry); +} + + +PHP_MINIT_FUNCTION(COM) +{ + CoInitialize(NULL); + le_idispatch = zend_register_list_destructors_ex(php_idispatch_destructor, NULL, "COM", module_number); + php_register_COM_class(); + REGISTER_INI_ENTRIES(); + return SUCCESS; +} + + +PHP_MSHUTDOWN_FUNCTION(COM) +{ + CoUninitialize(); + UNREGISTER_INI_ENTRIES(); + return SUCCESS; +} + +zend_module_entry COM_module_entry = { + "com", COM_functions, PHP_MINIT(COM), PHP_MSHUTDOWN(COM), NULL, NULL, PHP_MINFO(COM), STANDARD_MODULE_PROPERTIES +}; + +#endif diff --git a/ext/rpc/com/conversion.c b/ext/rpc/com/conversion.c new file mode 100644 index 0000000000..aa3af99d21 --- /dev/null +++ b/ext/rpc/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; +} diff --git a/ext/rpc/com/conversion.h b/ext/rpc/com/conversion.h new file mode 100644 index 0000000000..fc98827199 --- /dev/null +++ b/ext/rpc/com/conversion.h @@ -0,0 +1,18 @@ +#ifndef CONVERSION_H +#define CONVERSION_H + +#ifdef __cplusplus +extern "C" { +#endif + +void php_pval_to_variant(pval *pval_arg, VARIANT *var_arg); +void php_pval_to_variant_ex(pval *pval_arg, VARIANT *var_arg, pval *pval_type); +void php_variant_to_pval(VARIANT *var_arg, pval *pval_arg, int persistent); +OLECHAR *php_char_to_OLECHAR(char *C_str, uint strlen); +char *php_OLECHAR_to_char(OLECHAR *unicode_str, uint *out_length, int persistent); + +#ifdef __cplusplus +} +#endif + +#endif
\ No newline at end of file diff --git a/ext/rpc/com/php_variant.h b/ext/rpc/com/php_variant.h new file mode 100644 index 0000000000..2bb5fc1d62 --- /dev/null +++ b/ext/rpc/com/php_variant.h @@ -0,0 +1,20 @@ +#ifndef PHP_TYPEDEF_VARIANT_H +#define PHP_TYPEDEF_VARIANT_H + +#if WIN32|WINNT + +extern PHP_MINIT_FUNCTION(VARIANT); +extern PHP_MSHUTDOWN_FUNCTION(VARIANT); + +extern zend_module_entry VARIANT_module_entry; +#define VARIANT_module_ptr &VARIANT_module_entry + +#else + +#define VARIANT_module_ptr NULL + +#endif /* Win32|WINNT */ + +#define phpext_VARIANT_ptr VARIANT_module_ptr + +#endif /* PHP_TYPEDEF_VARIANT_H */ diff --git a/ext/rpc/com/variant.c b/ext/rpc/com/variant.c new file mode 100644 index 0000000000..5afd1bdac6 --- /dev/null +++ b/ext/rpc/com/variant.c @@ -0,0 +1,413 @@ +/* + +----------------------------------------------------------------------+ + | PHP version 4.0 | + +----------------------------------------------------------------------+ + | Copyright (c) 1997, 1998, 1999, 2000 The PHP Group | + +----------------------------------------------------------------------+ + | This source file is subject to version 2.02 of the PHP license, | + | that is bundled with this package in the file LICENSE, and is | + | available at through the world-wide-web at | + | http://www.php.net/license/2_02.txt. | + | If you did not receive a copy of the PHP license and are unable to | + | obtain it through the world-wide-web, please send a note to | + | license@php.net so we can mail you a copy immediately. | + +----------------------------------------------------------------------+ + | Author: Harald Radi <h.radi@nme.at> | + +----------------------------------------------------------------------+ + */ + + +/* + * This module maps the VARIANT datastructure into PHP so that it can be used to + * pass values to COM and DOTNET Objects by reference and not only by value. + * + * harald + */ + +#ifdef PHP_WIN32 + +#include "php.h" +#include "php_ini.h" +#include "php_typedef_VARIANT.h" +#include "conversion.h" + +#include <unknwn.h> + +void php_VARIANT_call_function_handler(INTERNAL_FUNCTION_PARAMETERS, zend_property_reference *property_reference); +pval php_VARIANT_get_property_handler(zend_property_reference *property_reference); +static int do_VARIANT_propset(VARIANT *var_arg, pval *arg_property, pval *value); +void php_register_VARIANT_class(); +static void php_variant_destructor(zend_rsrc_list_entry *rsrc); +void php_register_VARIANT_class(); + +static int le_variant; + +static zend_class_entry VARIANT_class_entry; + +function_entry VARIANT_functions[] = { + {NULL, NULL, NULL} +}; + +static PHP_MINFO_FUNCTION(VARIANT) +{ + DISPLAY_INI_ENTRIES(); +} + +zend_module_entry VARIANT_module_entry = { + "variant", VARIANT_functions, PHP_MINIT(VARIANT), PHP_MSHUTDOWN(VARIANT), NULL, NULL, PHP_MINFO(VARIANT), STANDARD_MODULE_PROPERTIES +}; + +PHP_MINIT_FUNCTION(VARIANT) +{ + le_variant = zend_register_list_destructors_ex(php_variant_destructor, NULL, "VARIANT", module_number); + + php_register_VARIANT_class(); + return SUCCESS; +} + + +PHP_MSHUTDOWN_FUNCTION(VARIANT) +{ + return SUCCESS; +} + +void php_VARIANT_call_function_handler(INTERNAL_FUNCTION_PARAMETERS, zend_property_reference *property_reference) +{ + pval *object = property_reference->object; + zend_overloaded_element *function_name = (zend_overloaded_element *) property_reference->elements_list->tail->data; + VARIANT *pVar; + + if ((zend_llist_count(property_reference->elements_list)==1) && !strcmp(function_name->element.value.str.val, "variant")) + { + /* constructor */ + pval *object_handle, *data, *type; + + pVar = emalloc(sizeof(VARIANT)); + VariantInit(pVar); + + switch (ZEND_NUM_ARGS()) + { + case 0: + /* nothing to do */ + break; + case 1: + getParameters(ht, 1, &data); + php_pval_to_variant(data, pVar); + break; + case 2: + getParameters(ht, 2, &data, &type); + php_pval_to_variant_ex(data, pVar, type); + break; + default: + WRONG_PARAM_COUNT; + break; + } + + return_value->type = IS_LONG; + return_value->value.lval = zend_list_insert(pVar, le_variant); + + if (!zend_is_true(return_value)) { + var_reset(object); + return; + } + + ALLOC_ZVAL(object_handle); + *object_handle = *return_value; + pval_copy_constructor(object_handle); + INIT_PZVAL(object_handle); + zend_hash_index_update(object->value.obj.properties, 0, &object_handle, sizeof(pval *), NULL); + pval_destructor(&function_name->element); + } +} + + +pval php_VARIANT_get_property_handler(zend_property_reference *property_reference) +{ + zend_overloaded_element *overloaded_property; + int type; + + pval result, **var_handle, *object = property_reference->object; + VARIANT *var_arg; + + /* fetch the VARIANT structure */ + zend_hash_index_find(object->value.obj.properties, 0, (void **) &var_handle); + var_arg = zend_list_find((*var_handle)->value.lval, &type); + + if (!var_arg || (type != le_variant)) + var_reset(&result); + else + { + overloaded_property = (zend_overloaded_element *) property_reference->elements_list->head->data; + switch (overloaded_property->type) + { + case OE_IS_ARRAY: + var_reset(&result); + break; + + case OE_IS_OBJECT: + if(strstr(overloaded_property->element.value.str.val, "value")) + php_variant_to_pval(var_arg, &result, 0); + else + { + var_reset(&result); + php_error(E_WARNING, "Unknown member."); + } + break; + case OE_IS_METHOD: + var_reset(&result); + php_error(E_WARNING, "Unknown method."); + break; + + pval_destructor(&overloaded_property->element); + } + } + + return result; +} + +int php_VARIANT_set_property_handler(zend_property_reference *property_reference, pval *value) +{ + zend_overloaded_element *overloaded_property; + int type; + + pval **var_handle, *object = property_reference->object; + VARIANT *var_arg; + + /* fetch the VARIANT structure */ + zend_hash_index_find(object->value.obj.properties, 0, (void **) &var_handle); + var_arg = zend_list_find((*var_handle)->value.lval, &type); + + if (!var_arg || (type != le_variant)) + return FAILURE; + + overloaded_property = (zend_overloaded_element *) property_reference->elements_list->head->data; + do_VARIANT_propset(var_arg, &overloaded_property->element, value); + pval_destructor(&overloaded_property->element); + return SUCCESS; +} + +static int do_VARIANT_propset(VARIANT *var_arg, pval *arg_property, pval *value) +{ + pval type; + + type.type = IS_STRING; + + if(strstr(arg_property->value.str.val, "bVal")) + { + type.value.str.val = "VT_UI1"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "iVal")) + { + type.value.str.val = "VT_I2"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "lVal")) + { + type.value.str.val = "VT_I4"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "fltVal")) + { + type.value.str.val = "VT_R4"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "dblVal")) + { + type.value.str.val = "VT_R8"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "boolVal")) + { + type.value.str.val = "VT_BOOL"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "scode")) + { + type.value.str.val = "VT_ERROR"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "cyVal")) + { + type.value.str.val = "VT_CY"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "date")) + { + type.value.str.val = "VT_DATE"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "bstrVal")) + { + type.value.str.val = "VT_BSTR"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pdecVal")) + { + type.value.str.val = "VT_DECIMAL|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "punkVal")) + { + type.value.str.val = "VT_UNKNOWN"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pdispVal")) + { + type.value.str.val = "VT_DISPATCH"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "parray")) + { + type.value.str.val = "VT_ARRAY"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pbVal")) + { + type.value.str.val = "VT_UI1|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "piVal")) + { + type.value.str.val = "VT_I2|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "plVal")) + { + type.value.str.val = "VT_I4|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pfltVal")) + { + type.value.str.val = "VT_R4|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pdblVal")) + { + type.value.str.val = "VT_R8|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pboolVal")) + { + type.value.str.val = "VT_BOOL|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pscode")) + { + type.value.str.val = "VT_ERROR|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pcyVal")) + { + type.value.str.val = "VT_CY|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pdate")) + { + type.value.str.val = "VT_DATE|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pbstrVal")) + { + type.value.str.val = "VT_BSTR|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "ppunkVal")) + { + type.value.str.val = "VT_UNKNOWN|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "ppdispVal")) + { + type.value.str.val = "VT_DISPATCH|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pparray")) + { + type.value.str.val = "VT_ARRAY|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pvarVal")) + { + type.value.str.val = "VT_VARIANT|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "byref")) + { + type.value.str.val = "VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "cVal")) + { + type.value.str.val = "VT_I1"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "uiVal")) + { + type.value.str.val = "VT_UI2"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "ulVal")) + { + type.value.str.val = "VT_UI4"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "intVal")) + { + type.value.str.val = "VT_INT"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "uintVal")) + { + type.value.str.val = "VT_UINT|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pcVal")) + { + type.value.str.val = "VT_I1|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "puiVal")) + { + type.value.str.val = "VT_UI2|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pulVal")) + { + type.value.str.val = "VT_UI4|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "pintVal")) + { + type.value.str.val = "VT_INT|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else if(strstr(arg_property->value.str.val, "puintVal")) + { + type.value.str.val = "VT_UINT|VT_BYREF"; + php_pval_to_variant_ex(value, var_arg, &type); + } + else + { + php_error(E_WARNING, "Unknown member."); + return FAILURE; + } + return SUCCESS; +} + +static void php_variant_destructor(zend_rsrc_list_entry *rsrc) +{ + efree(rsrc); +} + +void php_register_VARIANT_class() +{ + INIT_OVERLOADED_CLASS_ENTRY(VARIANT_class_entry, "VARIANT", NULL, + php_VARIANT_call_function_handler, + php_VARIANT_get_property_handler, + php_VARIANT_set_property_handler); + + zend_register_internal_class(&VARIANT_class_entry); +} + +#endif |