2001-01-28 03:24:51 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
2001-12-11 15:32:16 +00:00
|
|
|
| PHP Version 4 |
|
2001-01-28 03:24:51 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2001-12-11 15:32:16 +00:00
|
|
|
| Copyright (c) 1997-2002 The PHP Group |
|
2001-01-28 03:24:51 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| 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> |
|
2002-07-18 18:31:37 +00:00
|
|
|
| Alan Brown <abrown@pobox.com> |
|
2001-01-28 03:24:51 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* 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"
|
2001-02-05 21:59:17 +00:00
|
|
|
#include "ext/standard/info.h"
|
2002-07-18 18:31:37 +00:00
|
|
|
#include "conversion.h"
|
|
|
|
#include "variant.h"
|
2001-01-28 03:24:51 +00:00
|
|
|
|
|
|
|
#include <unknwn.h>
|
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
static zend_object_value variant_objects_new(zend_class_entry * TSRMLS_DC);
|
|
|
|
static void variant_objects_delete(void *, zend_object_handle TSRMLS_DC);
|
|
|
|
|
|
|
|
/* object handler */
|
|
|
|
static zval* variant_read(zval *, zval *, int TSRMLS_DC);
|
|
|
|
static void variant_write(zval *, zval *, zval * TSRMLS_DC);
|
|
|
|
static union _zend_function* variant_get_constructor(zval * TSRMLS_DC);
|
|
|
|
static zend_class_entry* variant_get_class_entry(zval * TSRMLS_DC);
|
|
|
|
/**/
|
|
|
|
|
|
|
|
static HashTable types;
|
|
|
|
static zend_class_entry *variant_class_entry;
|
|
|
|
static zend_function *variant_ctor;
|
|
|
|
static zend_object_handlers variant_handlers = {
|
|
|
|
ZEND_OBJECTS_STORE_HANDLERS,
|
|
|
|
|
|
|
|
variant_read,
|
|
|
|
variant_write,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
NULL,
|
|
|
|
variant_get_constructor,
|
|
|
|
variant_get_class_entry,
|
|
|
|
NULL,
|
|
|
|
NULL
|
|
|
|
};
|
|
|
|
|
|
|
|
/**/
|
|
|
|
void php_variant_init(int module_number TSRMLS_DC)
|
2001-01-28 03:24:51 +00:00
|
|
|
{
|
2002-07-18 18:31:37 +00:00
|
|
|
zend_internal_function *zif;
|
|
|
|
zend_class_entry ce;
|
|
|
|
int type;
|
2001-01-28 03:24:51 +00:00
|
|
|
|
2001-02-17 02:16:29 +00:00
|
|
|
/* variant datatypes */
|
2001-03-20 22:35:30 +00:00
|
|
|
REGISTER_LONG_CONSTANT("VT_NULL", VT_NULL, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_EMPTY", VT_EMPTY, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_UI1", VT_UI1, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_I2", VT_I2, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_I4", VT_I4, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_R4", VT_R4, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_R8", VT_R8, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_BOOL", VT_BOOL, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_ERROR", VT_ERROR, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_CY", VT_CY, CONST_CS | CONST_PERSISTENT);
|
2001-10-18 08:25:39 +00:00
|
|
|
REGISTER_LONG_CONSTANT("VT_DATE", VT_DATE, CONST_CS | CONST_PERSISTENT);
|
2001-03-20 22:35:30 +00:00
|
|
|
REGISTER_LONG_CONSTANT("VT_BSTR", VT_BSTR, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_DECIMAL", VT_DECIMAL, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_UNKNOWN", VT_UNKNOWN, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_DISPATCH", VT_DISPATCH, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_VARIANT", VT_VARIANT, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_I1", VT_I1, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_UI2", VT_UI2, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_UI4", VT_UI4, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_INT", VT_INT, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_UINT", VT_UINT, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_ARRAY", VT_ARRAY, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("VT_BYREF", VT_BYREF, CONST_CS | CONST_PERSISTENT);
|
2001-05-13 14:22:19 +00:00
|
|
|
|
2001-02-17 02:16:29 +00:00
|
|
|
/* codepages */
|
2001-03-20 22:35:30 +00:00
|
|
|
REGISTER_LONG_CONSTANT("CP_ACP", CP_ACP, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("CP_MACCP", CP_MACCP, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("CP_OEMCP", CP_OEMCP, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("CP_UTF7", CP_UTF7, CONST_CS | CONST_PERSISTENT);
|
|
|
|
REGISTER_LONG_CONSTANT("CP_UTF8", CP_UTF8, CONST_CS | CONST_PERSISTENT);
|
2001-09-24 15:56:18 +00:00
|
|
|
|
2001-08-13 23:39:11 +00:00
|
|
|
#ifdef CP_SYMBOL
|
|
|
|
REGISTER_LONG_CONSTANT("CP_SYMBOL", CP_SYMBOL, CONST_CS | CONST_PERSISTENT);
|
|
|
|
#else
|
2002-07-18 18:31:37 +00:00
|
|
|
#error "CP_SYMBOL undefined"
|
2001-08-13 23:39:11 +00:00
|
|
|
#endif
|
|
|
|
#ifdef CP_THREAD_ACP
|
|
|
|
REGISTER_LONG_CONSTANT("CP_THREAD_ACP", CP_THREAD_ACP, CONST_CS | CONST_PERSISTENT);
|
|
|
|
#else
|
2002-07-18 18:31:37 +00:00
|
|
|
#error "CP_THREAD_ACP undefined"
|
2001-08-13 23:39:11 +00:00
|
|
|
#endif
|
2001-02-17 02:16:29 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
INIT_CLASS_ENTRY(ce, "variant", NULL);
|
|
|
|
ce.create_object = variant_objects_new;
|
|
|
|
variant_class_entry = zend_register_internal_class(&ce TSRMLS_CC);
|
|
|
|
|
|
|
|
zif = (zend_internal_function *) emalloc(sizeof(zend_internal_function));
|
|
|
|
|
|
|
|
zif->type = ZEND_INTERNAL_FUNCTION;
|
|
|
|
zif->function_name = variant_class_entry->name;
|
|
|
|
zif->scope = variant_class_entry;
|
|
|
|
zif->arg_types = NULL;
|
|
|
|
zif->handler = ZEND_FN(variant_load);
|
|
|
|
|
|
|
|
/* add new constructor to the method table */
|
|
|
|
zend_hash_add(&(variant_class_entry->function_table), variant_class_entry->name,
|
|
|
|
variant_class_entry->name_length + 1, zif, sizeof(zend_function), &variant_ctor);
|
|
|
|
efree(zif);
|
|
|
|
|
|
|
|
zend_hash_init(&types, 0, NULL, NULL, TRUE);
|
|
|
|
|
|
|
|
type = VT_UI1;
|
|
|
|
zend_hash_add(&types, "bVal", 5, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_UI2;
|
|
|
|
zend_hash_add(&types, "uiVal", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_UI4;
|
|
|
|
zend_hash_add(&types, "ulVal", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_UINT;
|
|
|
|
zend_hash_add(&types, "uintVal", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_I1;
|
|
|
|
zend_hash_add(&types, "cVal", 5, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_I2;
|
|
|
|
zend_hash_add(&types, "iVal", 5, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_I4;
|
|
|
|
zend_hash_add(&types, "lVal", 5, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_INT;
|
|
|
|
zend_hash_add(&types, "intVal", 7, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_R4;
|
|
|
|
zend_hash_add(&types, "fltVal", 7, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_R8;
|
|
|
|
zend_hash_add(&types, "dblVal", 7, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BOOL;
|
|
|
|
zend_hash_add(&types, "boolVal", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_ERROR;
|
|
|
|
zend_hash_add(&types, "scode", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_CY;
|
|
|
|
zend_hash_add(&types, "cyVal", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_DATE;
|
|
|
|
zend_hash_add(&types, "date", 5, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BSTR;
|
|
|
|
zend_hash_add(&types, "bstrVal", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_UNKNOWN;
|
|
|
|
zend_hash_add(&types, "punkVal", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_DISPATCH;
|
|
|
|
zend_hash_add(&types, "pdispVal", 9, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_ARRAY;
|
|
|
|
zend_hash_add(&types, "parray", 7, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF;
|
|
|
|
zend_hash_add(&types, "byref", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_UI1;
|
|
|
|
zend_hash_add(&types, "pbVal", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_UI2;
|
|
|
|
zend_hash_add(&types, "puiVal", 7, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_UI4;
|
|
|
|
zend_hash_add(&types, "pulVal", 7, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_UINT;
|
|
|
|
zend_hash_add(&types, "puintVal", 9, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_I1;
|
|
|
|
zend_hash_add(&types, "pcVal", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_I2;
|
|
|
|
zend_hash_add(&types, "piVal", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_I4;
|
|
|
|
zend_hash_add(&types, "plVal", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_INT;
|
|
|
|
zend_hash_add(&types, "pintVal", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_R4;
|
|
|
|
zend_hash_add(&types, "pfltVal", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_R8;
|
|
|
|
zend_hash_add(&types, "pdblVal", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_BOOL;
|
|
|
|
zend_hash_add(&types, "pboolVal", 9, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_ERROR;
|
|
|
|
zend_hash_add(&types, "pscode", 7, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_CY;
|
|
|
|
zend_hash_add(&types, "pcyVal", 7, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_DATE;
|
|
|
|
zend_hash_add(&types, "pdate", 6, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_BSTR;
|
|
|
|
zend_hash_add(&types, "pbstrVal", 9, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_DECIMAL;
|
|
|
|
zend_hash_add(&types, "pdecVal", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_UNKNOWN;
|
|
|
|
zend_hash_add(&types, "ppunkVal", 9, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_DISPATCH;
|
|
|
|
zend_hash_add(&types, "ppdispVal", 10, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_ARRAY;
|
|
|
|
zend_hash_add(&types, "pparray", 8, (void *) &type, sizeof(int), NULL);
|
|
|
|
type = VT_BYREF|VT_VARIANT;
|
|
|
|
zend_hash_add(&types, "pvarVal", 8, (void *) &type, sizeof(int), NULL);
|
2001-01-28 03:24:51 +00:00
|
|
|
}
|
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
void php_variant_shutdown(TSRMLS_D)
|
2001-06-24 21:09:32 +00:00
|
|
|
{
|
2002-07-18 18:31:37 +00:00
|
|
|
zend_hash_destroy(&types);
|
2001-06-24 21:09:32 +00:00
|
|
|
}
|
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
static zend_object_value variant_objects_new(zend_class_entry *ce TSRMLS_DC)
|
2001-01-28 03:24:51 +00:00
|
|
|
{
|
2002-07-18 18:31:37 +00:00
|
|
|
zend_object_value *zov;
|
|
|
|
variantval *var;
|
2001-01-28 03:24:51 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
ALLOC_VARIANT(var);
|
|
|
|
|
|
|
|
/* set up the object value struct */
|
|
|
|
zov = (zend_object_value*) emalloc(sizeof(zend_object_value));
|
|
|
|
zov->handlers = &variant_handlers;
|
|
|
|
zov->handle = zend_objects_store_put(var, variant_objects_delete, NULL TSRMLS_CC);
|
2001-01-28 03:24:51 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
return *zov;
|
2001-01-28 03:24:51 +00:00
|
|
|
}
|
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
static void variant_objects_delete(void *object, zend_object_handle handle TSRMLS_DC)
|
|
|
|
{
|
|
|
|
FREE_VARIANT((variantval *)object);
|
|
|
|
}
|
2001-08-14 10:13:35 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
static zval* variant_read(zval *object, zval *member, int type TSRMLS_DC)
|
2001-01-28 03:24:51 +00:00
|
|
|
{
|
2002-07-18 18:31:37 +00:00
|
|
|
variantval *var;
|
|
|
|
zval *result;
|
2001-08-19 22:02:46 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
ALLOC_ZVAL(result);
|
2001-01-28 03:24:51 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
if ((var = zend_object_store_get_object(object TSRMLS_CC)) == NULL) {
|
|
|
|
/* exception */
|
|
|
|
}
|
2001-01-28 03:24:51 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
if (!strcmp(Z_STRVAL_P(member), "value")) {
|
|
|
|
/* var_arg can't be an idispatch, so we don't care for the implicit AddRef() call here */
|
|
|
|
php_variant_to_zval(var->var, result, var->codepage);
|
|
|
|
} else if (!strcmp(Z_STRVAL_P(member), "type")) {
|
|
|
|
ZVAL_LONG(result, V_VT(var->var));
|
2001-08-14 10:13:35 +00:00
|
|
|
} else {
|
2002-07-18 18:31:37 +00:00
|
|
|
ZVAL_FALSE(result);
|
|
|
|
php_error(E_WARNING, "Unknown member.");
|
2001-01-28 03:24:51 +00:00
|
|
|
}
|
2001-05-13 14:22:19 +00:00
|
|
|
|
2001-01-28 03:24:51 +00:00
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
static void variant_write(zval *object, zval *member, zval *value TSRMLS_DC)
|
2001-01-28 03:24:51 +00:00
|
|
|
{
|
2002-07-18 18:31:37 +00:00
|
|
|
int *type;
|
|
|
|
variantval *var;
|
2001-08-19 22:02:46 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
if ((var = zend_object_store_get_object(object TSRMLS_CC)) == NULL) {
|
|
|
|
/* exception */
|
2001-08-14 10:13:35 +00:00
|
|
|
}
|
2001-05-13 14:22:19 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
if (!strcmp(Z_STRVAL_P(member), "value")) {
|
|
|
|
php_zval_to_variant(value, var->var, var->codepage);
|
|
|
|
} else if (zend_hash_find(&types, Z_STRVAL_P(member), Z_STRLEN_P(member) + 1, (void **) &type) == SUCCESS) {
|
|
|
|
php_zval_to_variant_ex(value, var->var, *type, var->codepage);
|
2001-08-14 10:13:35 +00:00
|
|
|
} else {
|
2001-01-28 03:24:51 +00:00
|
|
|
php_error(E_WARNING, "Unknown member.");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
static union _zend_function* variant_get_constructor(zval *object TSRMLS_DC)
|
|
|
|
{
|
|
|
|
return variant_ctor;
|
|
|
|
}
|
2001-08-14 10:13:35 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
static zend_class_entry* variant_get_class_entry(zval *object TSRMLS_DC)
|
2001-01-28 03:24:51 +00:00
|
|
|
{
|
2002-07-18 18:31:37 +00:00
|
|
|
return variant_class_entry;
|
2001-01-28 03:24:51 +00:00
|
|
|
}
|
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
/**/
|
|
|
|
/* constructor */
|
|
|
|
ZEND_FUNCTION(variant_load)
|
2001-01-28 03:24:51 +00:00
|
|
|
{
|
2002-07-18 18:31:37 +00:00
|
|
|
zval *value = NULL, *object = getThis();
|
|
|
|
variantval *var;
|
|
|
|
long type = 0;
|
|
|
|
|
|
|
|
if (!object || ((var = zend_object_store_get_object(object TSRMLS_CC)) == NULL)) {
|
|
|
|
/*TODO exception */
|
|
|
|
}
|
|
|
|
|
|
|
|
zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|zll", &value, &type, &(var->codepage));
|
2001-01-28 03:24:51 +00:00
|
|
|
|
2002-07-18 18:31:37 +00:00
|
|
|
if (value) {
|
|
|
|
if (type) {
|
|
|
|
php_zval_to_variant_ex(value, var->var, type, var->codepage);
|
|
|
|
} else {
|
|
|
|
php_zval_to_variant(value, var->var, var->codepage);
|
|
|
|
}
|
|
|
|
}
|
2001-01-28 03:24:51 +00:00
|
|
|
}
|
|
|
|
|
2001-01-29 21:54:46 +00:00
|
|
|
#endif /* PHP_WIN32 */
|