mirror of
https://github.com/php/php-src.git
synced 2024-10-01 06:46:08 +00:00
69 lines
2.5 KiB
C
69 lines
2.5 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 4 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997-2002 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> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
|
|
#ifndef VARIANT_H
|
|
#define VARIANT_H
|
|
|
|
#if PHP_WIN32
|
|
|
|
#define ALLOC_VARIANT(v) (v) = (variantval *) emalloc(sizeof(variantval)); \
|
|
(v)->var = (VARIANT *) emalloc(sizeof(VARIANT)); \
|
|
(v)->codepage = CP_ACP; \
|
|
VariantInit((v)->var);
|
|
|
|
#define FREE_VARIANT(v) VariantClear((v)->var); \
|
|
efree((v)->var); \
|
|
efree((v));
|
|
|
|
#define ZVAL_VARIANT(z, v, cp) \
|
|
if (V_VT(v) == VT_DISPATCH) { \
|
|
rpc_internal *intern; \
|
|
comval *obj; \
|
|
ALLOC_COM(obj); \
|
|
Z_TYPE_P(z) = IS_OBJECT; \
|
|
(z)->value.obj = rpc_objects_new(com_class_entry TSRMLS_CC); \
|
|
if (GET_INTERNAL_EX(intern, (z)) != SUCCESS) { \
|
|
/* TODO: exception */ \
|
|
} \
|
|
php_COM_set(obj, &V_DISPATCH(v), TRUE); \
|
|
intern->data = obj; \
|
|
} else { \
|
|
php_variant_to_zval((v), (z), cp); \
|
|
VariantClear(v); \
|
|
efree(v); \
|
|
}
|
|
|
|
#define RETVAL_VARIANT(v, cp) ZVAL_VARIANT(return_value, v, cp)
|
|
#define RETURN_VARIANT(v, cp) RETVAL_VARIANT(v, cp) \
|
|
return;
|
|
|
|
typedef struct variantval_ {
|
|
VARIANT* var;
|
|
long codepage;
|
|
} variantval;
|
|
|
|
void php_variant_init(int module_number TSRMLS_DC);
|
|
void php_variant_shutdown(TSRMLS_D);
|
|
|
|
ZEND_FUNCTION(variant_load);
|
|
|
|
#endif /* PHP_WIN32 */
|
|
|
|
#endif /* VARIANT_H */
|