--- /dev/null
+/*
+ +----------------------------------------------------------------------+
+ | 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
--- /dev/null
+/*
+ +----------------------------------------------------------------------+
+ | 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
--- /dev/null
+#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;
+}
--- /dev/null
+#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
--- /dev/null
+#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 */
--- /dev/null
+/*
+ +----------------------------------------------------------------------+
+ | 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
--- /dev/null
+#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;
+}
--- /dev/null
+#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
--- /dev/null
+#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 */
--- /dev/null
+/*
+ +----------------------------------------------------------------------+
+ | 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
projects / php / commitdiff