Imported from /home/lorry/working-area/delta_php2/php-5.4.13.tar.bz2.HEADphp-5.4.13master

1 files changed, 520 insertions, 0 deletions

diff --git a/ext/com_dotnet/com_extension.c b/ext/com_dotnet/com_extension.c
new file mode 100644
index 0000000..1257974
--- /dev/null
+++ b/ext/com_dotnet/com_extension.c
@@ -0,0 +1,520 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 5                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2013 The PHP Group                                |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 3.01 of the PHP license,      |
+   | that is bundled with this package in the file LICENSE, and is        |
+   | available through the world-wide-web at the following url:           |
+   | http://www.php.net/license/3_01.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: Wez Furlong  <wez@thebrainroom.com>                          |
+   +----------------------------------------------------------------------+
+ */
+
+/* $Id$ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include "php.h"
+#include "php_ini.h"
+#include "ext/standard/info.h"
+#include "php_com_dotnet.h"
+#include "php_com_dotnet_internal.h"
+#include "Zend/zend_exceptions.h"
+
+ZEND_DECLARE_MODULE_GLOBALS(com_dotnet)
+static PHP_GINIT_FUNCTION(com_dotnet);
+
+TsHashTable php_com_typelibraries;
+
+zend_class_entry
+	*php_com_variant_class_entry,
+   	*php_com_exception_class_entry,
+	*php_com_saproxy_class_entry;
+
+/* {{{ arginfo */
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_set, 0, 0, 2)
+	ZEND_ARG_INFO(0, variant)
+	ZEND_ARG_INFO(0, value)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_add, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_cat, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_sub, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_mul, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_and, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_div, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_eqv, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_idiv, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_imp, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_mod, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_or, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_pow, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_xor, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_abs, 0, 0, 1)
+	ZEND_ARG_INFO(0, left)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_fix, 0, 0, 1)
+	ZEND_ARG_INFO(0, left)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_int, 0, 0, 1)
+	ZEND_ARG_INFO(0, left)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_neg, 0, 0, 1)
+	ZEND_ARG_INFO(0, left)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_not, 0, 0, 1)
+	ZEND_ARG_INFO(0, left)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_round, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, decimals)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_cmp, 0, 0, 2)
+	ZEND_ARG_INFO(0, left)
+	ZEND_ARG_INFO(0, right)
+	ZEND_ARG_INFO(0, lcid)
+	ZEND_ARG_INFO(0, flags)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_date_to_timestamp, 0, 0, 1)
+	ZEND_ARG_INFO(0, variant)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_date_from_timestamp, 0, 0, 1)
+	ZEND_ARG_INFO(0, timestamp)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_get_type, 0, 0, 1)
+	ZEND_ARG_INFO(0, variant)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_set_type, 0, 0, 2)
+	ZEND_ARG_INFO(0, variant)
+	ZEND_ARG_INFO(0, type)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_variant_cast, 0, 0, 2)
+	ZEND_ARG_INFO(0, variant)
+	ZEND_ARG_INFO(0, type)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_com_get_active_object, 0, 0, 1)
+	ZEND_ARG_INFO(0, progid)
+	ZEND_ARG_INFO(0, code_page)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO(arginfo_com_create_guid, 0)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_com_event_sink, 0, 0, 2)
+	ZEND_ARG_INFO(0, comobject)
+	ZEND_ARG_INFO(0, sinkobject)
+	ZEND_ARG_INFO(0, sinkinterface)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_com_print_typeinfo, 0, 0, 1)
+	ZEND_ARG_INFO(0, comobject)
+	ZEND_ARG_INFO(0, dispinterface)
+	ZEND_ARG_INFO(0, wantsink)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_com_message_pump, 0, 0, 0)
+	ZEND_ARG_INFO(0, timeoutms)
+ZEND_END_ARG_INFO()
+
+ZEND_BEGIN_ARG_INFO_EX(arginfo_com_load_typelib, 0, 0, 1)
+	ZEND_ARG_INFO(0, typelib_name)
+	ZEND_ARG_INFO(0, case_insensitive)
+ZEND_END_ARG_INFO()
+/* }}} */
+
+const zend_function_entry com_dotnet_functions[] = {
+	PHP_FE(variant_set, arginfo_variant_set)
+	PHP_FE(variant_add, arginfo_variant_add)
+	PHP_FE(variant_cat, arginfo_variant_cat)
+	PHP_FE(variant_sub, arginfo_variant_sub)
+	PHP_FE(variant_mul, arginfo_variant_mul)
+	PHP_FE(variant_and, arginfo_variant_and)
+	PHP_FE(variant_div, arginfo_variant_div)
+	PHP_FE(variant_eqv, arginfo_variant_eqv)
+	PHP_FE(variant_idiv, arginfo_variant_idiv)
+	PHP_FE(variant_imp, arginfo_variant_imp)
+	PHP_FE(variant_mod, arginfo_variant_mod)
+	PHP_FE(variant_or, arginfo_variant_or)
+	PHP_FE(variant_pow, arginfo_variant_pow)
+	PHP_FE(variant_xor, arginfo_variant_xor)
+	PHP_FE(variant_abs, arginfo_variant_abs)
+	PHP_FE(variant_fix, arginfo_variant_fix)
+	PHP_FE(variant_int, arginfo_variant_int)
+	PHP_FE(variant_neg, arginfo_variant_neg)
+	PHP_FE(variant_not, arginfo_variant_not)
+	PHP_FE(variant_round, arginfo_variant_round)
+	PHP_FE(variant_cmp, arginfo_variant_cmp)
+	PHP_FE(variant_date_to_timestamp, arginfo_variant_date_to_timestamp)
+	PHP_FE(variant_date_from_timestamp, arginfo_variant_date_from_timestamp)
+	PHP_FE(variant_get_type, arginfo_variant_get_type)
+	PHP_FE(variant_set_type, arginfo_variant_set_type)
+	PHP_FE(variant_cast, arginfo_variant_cast)
+	/* com_com.c */
+	PHP_FE(com_create_guid, arginfo_com_create_guid)
+	PHP_FE(com_event_sink, arginfo_com_event_sink)
+	PHP_FE(com_print_typeinfo, arginfo_com_print_typeinfo)
+	PHP_FE(com_message_pump, arginfo_com_message_pump)
+	PHP_FE(com_load_typelib, arginfo_com_load_typelib)
+	PHP_FE(com_get_active_object, arginfo_com_get_active_object)
+	PHP_FE_END
+};
+
+/* {{{ com_dotnet_module_entry
+ */
+zend_module_entry com_dotnet_module_entry = {
+	STANDARD_MODULE_HEADER,
+	"com_dotnet",
+	com_dotnet_functions,
+	PHP_MINIT(com_dotnet),
+	PHP_MSHUTDOWN(com_dotnet),
+	PHP_RINIT(com_dotnet),
+	PHP_RSHUTDOWN(com_dotnet),
+	PHP_MINFO(com_dotnet),
+	"0.1",
+	PHP_MODULE_GLOBALS(com_dotnet),
+	PHP_GINIT(com_dotnet),
+	NULL,
+	NULL,
+	STANDARD_MODULE_PROPERTIES_EX
+};
+/* }}} */
+
+#ifdef COMPILE_DL_COM_DOTNET
+ZEND_GET_MODULE(com_dotnet)
+#endif
+
+/* {{{ PHP_INI
+ */
+
+/* com.typelib_file is the path to a file containing a
+ * list of typelibraries to register *persistently*.
+ * lines starting with ; are comments
+ * append #cis to end of typelib name to cause its constants
+ * to be loaded case insensitively */
+static PHP_INI_MH(OnTypeLibFileUpdate)
+{
+	FILE *typelib_file;
+	char *typelib_name_buffer;
+	char *strtok_buf = NULL;
+	int cached;
+
+	if (!new_value || !new_value[0] || (typelib_file = VCWD_FOPEN(new_value, "r"))==NULL) {
+		return FAILURE;
+	}
+
+	typelib_name_buffer = (char *) emalloc(sizeof(char)*1024);
+
+	while (fgets(typelib_name_buffer, 1024, typelib_file)) {
+		ITypeLib *pTL;
+		char *typelib_name;
+		char *modifier, *ptr;
+		int mode = CONST_CS | CONST_PERSISTENT;	/* CONST_PERSISTENT is ok here */
+
+		if (typelib_name_buffer[0]==';') {
+			continue;
+		}
+		typelib_name = php_strtok_r(typelib_name_buffer, "\r\n", &strtok_buf); /* get rid of newlines */
+		if (typelib_name == NULL) {
+			continue;
+		}
+		typelib_name = php_strtok_r(typelib_name, "#", &strtok_buf);
+		modifier = php_strtok_r(NULL, "#", &strtok_buf);
+		if (modifier != NULL) {
+			if (!strcmp(modifier, "cis") || !strcmp(modifier, "case_insensitive")) {
+				mode &= ~CONST_CS;
+			}
+		}
+
+		/* Remove leading/training white spaces on search_string */
+		while (isspace(*typelib_name)) {/* Ends on '\0' in worst case */
+			typelib_name ++;
+		}
+		ptr = typelib_name + strlen(typelib_name) - 1;
+		while ((ptr != typelib_name) && isspace(*ptr)) {
+			*ptr = '\0';
+			ptr--;
+		}
+
+		if ((pTL = php_com_load_typelib_via_cache(typelib_name, COMG(code_page), &cached TSRMLS_CC)) != NULL) {
+			if (!cached) {
+				php_com_import_typelib(pTL, mode, COMG(code_page) TSRMLS_CC);
+			}
+			ITypeLib_Release(pTL);
+		}
+	}
+
+	efree(typelib_name_buffer);
+	fclose(typelib_file);
+
+	return SUCCESS;
+}
+
+PHP_INI_BEGIN()
+    STD_PHP_INI_ENTRY("com.allow_dcom",				"0", PHP_INI_SYSTEM, OnUpdateBool, allow_dcom, zend_com_dotnet_globals, com_dotnet_globals)
+    STD_PHP_INI_ENTRY("com.autoregister_verbose",	"0", PHP_INI_ALL, OnUpdateBool, autoreg_verbose, zend_com_dotnet_globals, com_dotnet_globals)
+    STD_PHP_INI_ENTRY("com.autoregister_typelib",	"0", PHP_INI_ALL, OnUpdateBool, autoreg_on, zend_com_dotnet_globals, com_dotnet_globals)
+    STD_PHP_INI_ENTRY("com.autoregister_casesensitive",	"1", PHP_INI_ALL, OnUpdateBool, autoreg_case_sensitive, zend_com_dotnet_globals, com_dotnet_globals)
+	STD_PHP_INI_ENTRY("com.code_page", "", PHP_INI_ALL, OnUpdateLong, code_page, zend_com_dotnet_globals, com_dotnet_globals)
+	PHP_INI_ENTRY("com.typelib_file", "", PHP_INI_SYSTEM, OnTypeLibFileUpdate)
+PHP_INI_END()
+/* }}} */
+
+/* {{{ PHP_GINIT_FUNCTION
+ */
+static PHP_GINIT_FUNCTION(com_dotnet)
+{
+	memset(com_dotnet_globals, 0, sizeof(*com_dotnet_globals));
+	com_dotnet_globals->code_page = CP_ACP;
+}
+/* }}} */
+
+/* {{{ PHP_MINIT_FUNCTION
+ */
+PHP_MINIT_FUNCTION(com_dotnet)
+{
+	zend_class_entry ce, *tmp;
+
+	php_com_wrapper_minit(INIT_FUNC_ARGS_PASSTHRU);
+	php_com_persist_minit(INIT_FUNC_ARGS_PASSTHRU);
+
+	INIT_CLASS_ENTRY(ce, "com_exception", NULL);
+	php_com_exception_class_entry = zend_register_internal_class_ex(&ce, zend_exception_get_default(TSRMLS_C), NULL TSRMLS_CC);
+	php_com_exception_class_entry->ce_flags |= ZEND_ACC_FINAL;
+/*	php_com_exception_class_entry->constructor->common.fn_flags |= ZEND_ACC_PROTECTED; */
+
+	INIT_CLASS_ENTRY(ce, "com_safearray_proxy", NULL);
+	php_com_saproxy_class_entry = zend_register_internal_class(&ce TSRMLS_CC);
+	php_com_saproxy_class_entry->ce_flags |= ZEND_ACC_FINAL;
+/*	php_com_saproxy_class_entry->constructor->common.fn_flags |= ZEND_ACC_PROTECTED; */
+	php_com_saproxy_class_entry->get_iterator = php_com_saproxy_iter_get;
+	
+	INIT_CLASS_ENTRY(ce, "variant", NULL);
+	ce.create_object = php_com_object_new;
+	php_com_variant_class_entry = zend_register_internal_class(&ce TSRMLS_CC);
+	php_com_variant_class_entry->get_iterator = php_com_iter_get;
+
+	INIT_CLASS_ENTRY(ce, "com", NULL);
+	ce.create_object = php_com_object_new;
+	tmp = zend_register_internal_class_ex(&ce, php_com_variant_class_entry, "variant" TSRMLS_CC);
+	tmp->get_iterator = php_com_iter_get;
+
+	zend_ts_hash_init(&php_com_typelibraries, 0, NULL, php_com_typelibrary_dtor, 1);
+
+#if HAVE_MSCOREE_H
+	INIT_CLASS_ENTRY(ce, "dotnet", NULL);
+	ce.create_object = php_com_object_new;
+	tmp = zend_register_internal_class_ex(&ce, php_com_variant_class_entry, "variant" TSRMLS_CC);
+	tmp->get_iterator = php_com_iter_get;
+#endif
+
+	REGISTER_INI_ENTRIES();
+
+#define COM_CONST(x) REGISTER_LONG_CONSTANT(#x, x, CONST_CS|CONST_PERSISTENT)
+	
+	COM_CONST(CLSCTX_INPROC_SERVER);
+	COM_CONST(CLSCTX_INPROC_HANDLER);
+	COM_CONST(CLSCTX_LOCAL_SERVER);
+	COM_CONST(CLSCTX_REMOTE_SERVER);
+	COM_CONST(CLSCTX_SERVER);
+	COM_CONST(CLSCTX_ALL);
+
+#if 0
+	COM_CONST(DISPATCH_METHOD);
+	COM_CONST(DISPATCH_PROPERTYGET);
+	COM_CONST(DISPATCH_PROPERTYPUT);
+#endif
+
+	COM_CONST(VT_NULL);
+	COM_CONST(VT_EMPTY);
+	COM_CONST(VT_UI1);
+	COM_CONST(VT_I1);
+	COM_CONST(VT_UI2);
+	COM_CONST(VT_I2);
+	COM_CONST(VT_UI4);
+	COM_CONST(VT_I4);
+	COM_CONST(VT_R4);
+	COM_CONST(VT_R8);
+	COM_CONST(VT_BOOL);
+	COM_CONST(VT_ERROR);
+	COM_CONST(VT_CY);
+	COM_CONST(VT_DATE);
+	COM_CONST(VT_BSTR);
+	COM_CONST(VT_DECIMAL);
+	COM_CONST(VT_UNKNOWN);
+	COM_CONST(VT_DISPATCH);
+	COM_CONST(VT_VARIANT);
+	COM_CONST(VT_INT);
+	COM_CONST(VT_UINT);
+	COM_CONST(VT_ARRAY);
+	COM_CONST(VT_BYREF);
+
+	COM_CONST(CP_ACP);
+	COM_CONST(CP_MACCP);
+	COM_CONST(CP_OEMCP);
+	COM_CONST(CP_UTF7);
+	COM_CONST(CP_UTF8);
+	COM_CONST(CP_SYMBOL);
+	COM_CONST(CP_THREAD_ACP);
+
+	COM_CONST(VARCMP_LT);
+	COM_CONST(VARCMP_EQ);
+	COM_CONST(VARCMP_GT);
+	COM_CONST(VARCMP_NULL);
+
+	COM_CONST(NORM_IGNORECASE);
+	COM_CONST(NORM_IGNORENONSPACE);
+	COM_CONST(NORM_IGNORESYMBOLS);
+	COM_CONST(NORM_IGNOREWIDTH);
+	COM_CONST(NORM_IGNOREKANATYPE);
+#ifdef NORM_IGNOREKASHIDA
+	COM_CONST(NORM_IGNOREKASHIDA);
+#endif
+	COM_CONST(DISP_E_DIVBYZERO);
+	COM_CONST(DISP_E_OVERFLOW);
+	COM_CONST(DISP_E_BADINDEX);
+	COM_CONST(MK_E_UNAVAILABLE);
+
+	return SUCCESS;
+}
+/* }}} */
+
+/* {{{ PHP_MSHUTDOWN_FUNCTION
+ */
+PHP_MSHUTDOWN_FUNCTION(com_dotnet)
+{
+	UNREGISTER_INI_ENTRIES();
+#if HAVE_MSCOREE_H
+	if (COMG(dotnet_runtime_stuff)) {
+		php_com_dotnet_mshutdown(TSRMLS_C);
+	}
+#endif
+
+	zend_ts_hash_destroy(&php_com_typelibraries);
+	return SUCCESS;
+}
+/* }}} */
+
+/* {{{ PHP_RINIT_FUNCTION
+ */
+PHP_RINIT_FUNCTION(com_dotnet)
+{
+	COMG(rshutdown_started) = 0;
+	return SUCCESS;
+}
+/* }}} */
+
+/* {{{ PHP_RSHUTDOWN_FUNCTION
+ */
+PHP_RSHUTDOWN_FUNCTION(com_dotnet)
+{
+#if HAVE_MSCOREE_H
+	if (COMG(dotnet_runtime_stuff)) {
+		php_com_dotnet_rshutdown(TSRMLS_C);
+	}
+#endif
+	COMG(rshutdown_started) = 1;
+	return SUCCESS;
+}
+/* }}} */
+
+/* {{{ PHP_MINFO_FUNCTION
+ */
+PHP_MINFO_FUNCTION(com_dotnet)
+{
+	php_info_print_table_start();
+
+	php_info_print_table_header(2, "COM support", "enabled");
+	php_info_print_table_header(2, "DCOM support", COMG(allow_dcom) ? "enabled" : "disabled");
+
+#if HAVE_MSCOREE_H
+	php_info_print_table_header(2, ".Net support", "enabled");
+#else
+	php_info_print_table_header(2, ".Net support", "not present in this build");
+#endif
+
+	php_info_print_table_end();
+
+	DISPLAY_INI_ENTRIES();
+}
+/* }}} */
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ * vim600: noet sw=4 ts=4 fdm=marker
+ * vim<600: noet sw=4 ts=4
+ */