add user-level callbacks

1 files changed, 188 insertions, 0 deletions

diff --git a/ext/session/mod_user.c b/ext/session/mod_user.c
new file mode 100644
index 0000000000..2647766d33
--- /dev/null
+++ b/ext/session/mod_user.c
@@ -0,0 +1,188 @@
+/* 
+   +----------------------------------------------------------------------+
+   | PHP version 4.0                                                      |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997, 1998, 1999 The PHP Group                         |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 2.0 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_0.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.               |
+   +----------------------------------------------------------------------+
+   | Authors: Sascha Schumann <ss@2ns.de>                                 |
+   +----------------------------------------------------------------------+
+ */
+
+#include "php.h"
+#include "php_session.h"
+#include "mod_user.h"
+
+ps_module ps_mod_user = {
+	PS_MOD(user)
+};
+
+#define ZVAL_LONG(val, a) 					\
+{											\
+	MAKE_STD_ZVAL(a); 						\
+	a->type = IS_LONG; 						\
+	a->value.lval = val; 					\
+}
+
+#define ZVAL_STRING(vl, a) 					\
+{											\
+	int len = strlen(vl); 					\
+	MAKE_STD_ZVAL(a); 						\
+	a->type = IS_STRING; 					\
+	a->value.str.len = len; 				\
+	a->value.str.val = estrndup(vl, len); 	\
+}
+
+#define ZVAL_STRINGN(vl, ln, a) 			\
+{											\
+	MAKE_STD_ZVAL(a); 						\
+	a->type = IS_STRING; 					\
+	a->value.str.len = ln; 					\
+	a->value.str.val = estrndup(vl, ln); 	\
+}
+
+
+static zval *ps_call_handler(char *name, int argc, zval **argv)
+{
+	int i;
+	zval *retval = NULL;
+	ELS_FETCH();
+	
+	printf("calling %s (argc=%d)\n", name, argc);
+	
+	if(name) {
+		zval *func;
+
+		ZVAL_STRING(name, func);
+		MAKE_STD_ZVAL(retval);
+
+		if(call_user_function(EG(function_table), NULL, func, retval, 
+					argc, argv) == FAILURE) {
+			zval_dtor(retval);
+			efree(retval);
+			retval = NULL;
+		}
+		zval_dtor(func);
+		efree(func);
+	}
+
+	for(i = 0; i < argc; i++) {
+		zval_dtor(argv[i]);
+		efree(argv[i]);
+	}
+
+	return retval;
+}
+
+#define STDVARS 							\
+	zval *retval; 							\
+	int ret = FAILURE; 						\
+	ps_user *mdata = PS_GET_MOD_DATA();		\
+	if(!mdata) return FAILURE
+
+#define PSF(a) mdata->name.ps_##a
+
+#define FINISH 								\
+	if(retval) {							\
+		convert_to_long(retval);			\
+		ret = retval->value.lval;			\
+		zval_dtor(retval);					\
+		efree(retval);						\
+	} 										\
+	return ret
+
+PS_OPEN_FUNC(user)
+{
+	zval *args[2];
+	STDVARS;
+	
+	ZVAL_STRING(save_path, args[0]);
+	ZVAL_STRING(session_name, args[1]);
+	
+	retval = ps_call_handler(PSF(open), 2, args);
+	
+	FINISH;
+}
+
+PS_CLOSE_FUNC(user)
+{
+	int i;
+	STDVARS;
+
+	retval = ps_call_handler(PSF(close), 0, NULL);
+
+	for(i = 0; i < 6; i++) {
+		efree(mdata->names[i]);
+	}
+	efree(mdata);
+
+	PS_SET_MOD_DATA(NULL);
+
+	FINISH;
+}
+
+PS_READ_FUNC(user)
+{
+	zval *args[1];
+	STDVARS;
+
+	ZVAL_STRING(key, args[0]);
+
+	retval = ps_call_handler(PSF(read), 1, args);
+	
+	if(retval) {
+		if(retval->type == IS_STRING) {
+			*val = estrndup(retval->value.str.val, retval->value.str.len);
+			*vallen = retval->value.str.len;
+			ret = SUCCESS;
+		}
+		zval_dtor(retval);
+		efree(retval);
+	}
+
+	return ret;
+}
+
+PS_WRITE_FUNC(user)
+{
+	zval *args[2];
+	STDVARS;
+	
+	ZVAL_STRING(key, args[0]);
+	ZVAL_STRINGN(val, vallen, args[1]);
+
+	retval = ps_call_handler(PSF(write), 2, args);
+
+	FINISH;
+}
+
+PS_DESTROY_FUNC(user)
+{
+	zval *args[1];
+	STDVARS;
+
+	ZVAL_STRING(key, args[0]);
+
+	retval = ps_call_handler(PSF(destroy), 1, args);
+
+	FINISH;
+}
+
+PS_GC_FUNC(user)
+{
+	zval *args[1];
+	STDVARS;
+
+	ZVAL_LONG(maxlifetime, args[0]);
+
+	retval = ps_call_handler(PSF(gc), 1, args);
+
+	FINISH;
+}