- Initial submission of CORBA extension for PHP: Satellite

1 files changed, 180 insertions, 0 deletions

diff --git a/ext/satellite/class.c b/ext/satellite/class.c
new file mode 100644
index 0000000000..2ad1332909
--- /dev/null
+++ b/ext/satellite/class.c
@@ -0,0 +1,180 @@
+/*
+   +----------------------------------------------------------------------+
+   | 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: David Eriksson <eriksson@php.net>                            |
+   +----------------------------------------------------------------------+
+ */
+
+/*
+ * $Id$
+ * vim: syntax=c tabstop=2 shiftwidth=2
+ */
+
+
+/*
+ * Helper function for making PHP classes
+ */
+
+#include <php.h>
+#include "common.h"
+#include "class.h"
+
+void orbit_class_function_call(
+		zend_class_entry * pClass,
+		int dataType,
+		zend_property_reference *pPropertyReference, 
+		Class_Constructor pConstructor, 
+		Class_CallFunction pCallFunction,
+		INTERNAL_FUNCTION_PARAMETERS)
+{
+	/* get object */
+	zval * object = pPropertyReference->object;
+
+	/* get function name */
+	zend_overloaded_element * function_name =
+		(zend_overloaded_element *)pPropertyReference->elements_list->tail->data;
+
+	/* handle parameters */
+	zval ** arguments = orbit_new_n(zval *, ZEND_NUM_ARGS());
+		/*(zval **)emalloc(sizeof(zval *) * ZEND_NUM_ARGS());*/
+	if (getParametersArray(ht, ZEND_NUM_ARGS(), arguments) == FAILURE)
+	{
+		/* TODO: handle error */
+	}
+
+	/* constructor or normal function? */
+	if (zend_llist_count(pPropertyReference->elements_list) == 1
+			&& !strcasecmp(function_name->element.value.str.val, pClass->name))
+	{
+		/* constructor */
+		if (pConstructor)
+		{
+			void * p_data = NULL;
+			zend_bool success = (*pConstructor)(&p_data, ZEND_NUM_ARGS(), arguments);
+
+			if (success)
+				orbit_save_data(object, dataType, p_data);
+		}
+		else
+		{
+			zend_error(E_ERROR, "(Satellite) This class has no constructor");\
+		}
+	}
+	else
+	{
+		/* normal function */
+		if (pCallFunction)
+		{
+			void * p_data = orbit_retrieve_data(object, dataType);
+
+			if (p_data == NULL)
+			{
+				/* 
+				 * this means that the constructor has failed earlier! 
+				 * -- or should NULL be allowed here? 
+				 */
+				php_error(E_ERROR, "(Satellite) Class has no data!");
+				RETVAL_NULL();
+				goto orbit_class_function_call_exit;
+			}
+			
+			/* pval * return_value is a part of INTERNAL_FUNCTION_PARAMETERS */
+			(*pCallFunction)(p_data, function_name->element.value.str.val,
+											 ZEND_NUM_ARGS(), arguments, return_value);
+		}
+		else
+		{
+			zend_error(E_ERROR, "(Satellite) Can't call functions in this class");\
+		}
+	}
+
+orbit_class_function_call_exit:
+	satellite_delete(arguments);
+	
+	/* seems to be required! */
+	zval_dtor(&function_name->element);
+}
+
+/*
+ * save a corba object to a php object
+ */
+void orbit_save_data(zval * php_object, int type, void * data)
+{
+	pval * orbit_data_handle = NULL;
+	long id = zend_list_insert(
+			data, 										/* data */
+			type								/* type */
+			);
+	
+
+	/* 
+	 * do it like they do in php_COM_call_function_handler 
+	 * (insert into some magic hash index)
+	 */
+	ALLOC_ZVAL(orbit_data_handle);	/* allocate memory for value */
+	
+	orbit_data_handle->type = IS_LONG;
+	orbit_data_handle->value.lval = id;
+	
+	pval_copy_constructor(orbit_data_handle);	/* why? */
+	
+	INIT_PZVAL(orbit_data_handle);	/* set reference count */
+
+	zend_hash_index_update(
+			php_object->value.obj.properties, /* hashtable */
+			0, 																/* hash??? */
+			&orbit_data_handle,								/* data */
+			sizeof(pval *),										/* data size */
+			NULL															/* destination */
+			);
+}
+
+/*
+ * retrieve a corba object from a php object
+ */
+void * orbit_retrieve_data(const zval * php_object, int wanted_type)
+{
+	void * data = NULL;
+	pval ** orbit_data_handle = NULL;
+	int type = 0;
+
+	/* get handle to corba data */
+	zend_hash_index_find(										
+			php_object->value.obj.properties,		/* hash table */	
+			0, 																	/* hash??? */
+			(void **)&orbit_data_handle					/* data */
+			);
+
+	if (orbit_data_handle == NULL || *orbit_data_handle == NULL)
+	{
+		return NULL;
+	}
+
+	/* get corba data */
+	data = zend_list_find(
+			(*orbit_data_handle)->value.lval, 	/* id */
+			&type																/* type */
+			);
+
+	/* verify corba object */
+	if (!data || (type != wanted_type))
+	{
+		/* TODO: handle error */
+		return NULL;
+	}
+	
+	return data;
+}
+
+