mgdm                                     Wed, 24 Mar 2010 23:38:59 +0000

Revision: http://svn.php.net/viewvc?view=revision&revision=296760

Log:
Add Tokyo Cabinet abstract DB support to ext/dba

Changed paths:
    U   php/php-src/trunk/NEWS
    U   php/php-src/trunk/ext/dba/config.m4
    U   php/php-src/trunk/ext/dba/dba.c
    A   php/php-src/trunk/ext/dba/dba_tcadb.c
    A   php/php-src/trunk/ext/dba/php_tcadb.h
    A   php/php-src/trunk/ext/dba/tests/dba_tcadb.phpt

Modified: php/php-src/trunk/NEWS
===================================================================
--- php/php-src/trunk/NEWS	2010-03-24 23:05:22 UTC (rev 296759)
+++ php/php-src/trunk/NEWS	2010-03-24 23:38:59 UTC (rev 296760)
@@ -1,6 +1,7 @@
 PHP                                                                        NEWS
 |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 ?? ??? 201?, PHP 5.3.99
+- Added Tokyo Cabinet abstract DB support to ext/dba. (Michael Maclean)
 - Added Jenkins's one-at-a-time hash support to ext/hash. (Martin Jansen)
 - Added FNV-1 hash support to ext/hash. (Michael Maclean)
 - default_charset if not specified is now UTF-8 instead of ISO-8859-1. (Rasmus)

Modified: php/php-src/trunk/ext/dba/config.m4
===================================================================
--- php/php-src/trunk/ext/dba/config.m4	2010-03-24 23:05:22 UTC (rev 296759)
+++ php/php-src/trunk/ext/dba/config.m4	2010-03-24 23:38:59 UTC (rev 296760)
@@ -97,6 +97,10 @@
 PHP_ARG_WITH(dbm,,
 [  --with-dbm[=DIR]          DBA: DBM support], no, no)

+PHP_ARG_WITH(tcadb,,
+[  --with-tcadb[=DIR]        DBA: Tokyo Cabinet abstract DB support], no, no)
+
+
 dnl
 dnl Library checks
 dnl
@@ -193,6 +197,37 @@
 fi
 PHP_DBA_STD_RESULT(ndbm)

+dnl TCADB
+if test "$PHP_TCADB" != "no"; then
+  PHP_DBA_STD_BEGIN
+  for i in $PHP_TCADB /usr/local /usr; do
+	if test -f "$i/include/tcadb.h"; then
+	  THIS_PREFIX=$i
+	  PHP_ADD_INCLUDE($THIS_PREFIX/include)
+	  THIS_INCLUDE=$i/include/tcadb.h
+	  break
+	fi
+  done
+
+  if test -n "$THIS_INCLUDE"; then
+	for LIB in tokyocabinet; do
+	  PHP_CHECK_LIBRARY($LIB, tcadbopen, [
+		AC_DEFINE_UNQUOTED(TCADB_INCLUDE_FILE, "$THIS_INCLUDE", [ ])
+		AC_DEFINE(DBA_TCADB, 1, [ ])
+		THIS_LIBS=$LIB
+	  ], [], [-L$THIS_PREFIX/$PHP_LIBDIR])
+	  if test -n "$THIS_LIBS"; then
+		break
+	  fi
+	done
+  fi
+
+  PHP_DBA_STD_ASSIGN
+  PHP_DBA_STD_CHECK
+  PHP_DBA_STD_ATTACH
+fi
+PHP_DBA_STD_RESULT(tcadb)
+
 dnl Berkeley specific (library and version test)
 dnl parameters(version, library list, function)
 AC_DEFUN([PHP_DBA_DB_CHECK],[
@@ -577,7 +612,7 @@
     AC_MSG_RESULT([yes])
   fi
   AC_DEFINE(HAVE_DBA, 1, [ ])
-  PHP_NEW_EXTENSION(dba, dba.c dba_cdb.c dba_dbm.c dba_gdbm.c dba_ndbm.c dba_db1.c dba_db2.c dba_db3.c dba_db4.c dba_flatfile.c dba_inifile.c dba_qdbm.c $cdb_sources $flat_sources $ini_sources, $ext_shared)
+  PHP_NEW_EXTENSION(dba, dba.c dba_cdb.c dba_dbm.c dba_gdbm.c dba_ndbm.c dba_db1.c dba_db2.c dba_db3.c dba_db4.c dba_flatfile.c dba_inifile.c dba_qdbm.c dba_tcadb.c $cdb_sources $flat_sources $ini_sources, $ext_shared)
   PHP_ADD_BUILD_DIR($ext_builddir/libinifile)
   PHP_ADD_BUILD_DIR($ext_builddir/libcdb)
   PHP_ADD_BUILD_DIR($ext_builddir/libflatfile)

Modified: php/php-src/trunk/ext/dba/dba.c
===================================================================
--- php/php-src/trunk/ext/dba/dba.c	2010-03-24 23:05:22 UTC (rev 296759)
+++ php/php-src/trunk/ext/dba/dba.c	2010-03-24 23:38:59 UTC (rev 296760)
@@ -50,6 +50,7 @@
 #include "php_flatfile.h"
 #include "php_inifile.h"
 #include "php_qdbm.h"
+#include "php_tcadb.h"

 /* {{{ arginfo */
 ZEND_BEGIN_ARG_INFO_EX(arginfo_dba_popen, 0, 0, 2)
@@ -337,6 +338,9 @@
 #if DBA_QDBM
 	DBA_HND(qdbm, DBA_LOCK_EXT)
 #endif
+#if DBA_TCADB
+	DBA_HND(tcadb, DBA_LOCK_ALL)
+#endif
 	{ NULL, 0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL }
 };

@@ -358,6 +362,8 @@
 #define DBA_DEFAULT "dbm"
 #elif DBA_QDBM
 #define DBA_DEFAULT "qdbm"
+#elif DBA_TCADB
+#define DBA_DEFAULT "tcadb"
 #else
 #define DBA_DEFAULT ""
 #endif

Added: php/php-src/trunk/ext/dba/dba_tcadb.c
===================================================================
--- php/php-src/trunk/ext/dba/dba_tcadb.c	                        (rev 0)
+++ php/php-src/trunk/ext/dba/dba_tcadb.c	2010-03-24 23:38:59 UTC (rev 296760)
@@ -0,0 +1,221 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 5                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2010 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          |
+   | lice...@php.net so we can mail you a copy immediately.               |
+   +----------------------------------------------------------------------+
+   | Author:  Michael Maclean <m...@php.net>                              |
+   +----------------------------------------------------------------------+
+ */
+
+/* $Id$ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include "php.h"
+
+#if DBA_TCADB
+#include "php_tcadb.h"
+
+#ifdef TCADB_INCLUDE_FILE
+#include TCADB_INCLUDE_FILE
+#endif
+
+#define TCADB_DATA dba_tcadb_data *dba = info->dbf
+
+typedef struct {
+	TCADB *tcadb;
+} dba_tcadb_data;
+
+DBA_OPEN_FUNC(tcadb)
+{
+	char *path_string;
+	TCADB *tcadb = tcadbnew();
+
+	if (tcadb) {
+		switch(info->mode) {
+			case DBA_READER:
+				spprintf(&path_string, 0, "%s#mode=r", info->path);
+				break;
+			case DBA_WRITER:
+				spprintf(&path_string, 0, "%s#mode=w", info->path);
+				break;
+			case DBA_CREAT:
+				spprintf(&path_string, 0, "%s#mode=wc", info->path);
+				break;
+			case DBA_TRUNC:
+				spprintf(&path_string, 0, "%s#mode=wct", info->path);
+				break;
+			default:
+				tcadbdel(tcadb);
+				return FAILURE;
+		}
+
+		if (!tcadbopen(tcadb, path_string)) {
+			efree(path_string);
+			tcadbdel(tcadb);
+			return FAILURE;
+		}
+
+		efree(path_string);
+
+		info->dbf = pemalloc(sizeof(dba_tcadb_data), info->flags & DBA_PERSISTENT);
+		memset(info->dbf, 0, sizeof(dba_tcadb_data));
+		((dba_tcadb_data *) info->dbf)->tcadb = tcadb;
+		return SUCCESS;
+	}
+
+	return FAILURE;
+}
+
+DBA_CLOSE_FUNC(tcadb)
+{
+	TCADB_DATA;
+
+	tcadbclose(dba->tcadb);
+	pefree(dba, info->flags & DBA_PERSISTENT);
+}
+
+DBA_FETCH_FUNC(tcadb)
+{
+	TCADB_DATA;
+	char *value, *new = NULL;
+	int value_size;
+
+	value = tcadbget(dba->tcadb, key, keylen, &value_size);
+	if (value) {
+		if (newlen) {
+			*newlen = value_size;
+		}
+		new = estrndup(value, value_size);
+		tcfree(value);
+	}
+
+	return new;
+}
+
+DBA_UPDATE_FUNC(tcadb)
+{
+	TCADB_DATA;
+	int result;
+
+	if (mode == 1) {
+		/* Insert */
+		if (tcadbvsiz(dba->tcadb, key, keylen) > -1) {
+			return FAILURE;
+		}
+	}
+
+	result = tcadbput(dba->tcadb, key, keylen, val, vallen);
+
+	if (result) {
+		return SUCCESS;
+	}
+
+	php_error_docref2(NULL TSRMLS_CC, key, val, E_WARNING, "Error updating data");
+	return FAILURE;
+}
+
+DBA_EXISTS_FUNC(tcadb)
+{
+	TCADB_DATA;
+	char *value;
+	int value_len;
+
+	value = tcadbget(dba->tcadb, key, keylen, &value_len);
+	if (value) {
+		tcfree(value);
+		return SUCCESS;
+	}
+
+	return FAILURE;
+}
+
+DBA_DELETE_FUNC(tcadb)
+{
+	TCADB_DATA;
+
+	return tcadbout(dba->tcadb, key, keylen) ? SUCCESS : FAILURE;
+}
+
+DBA_FIRSTKEY_FUNC(tcadb)
+{
+	TCADB_DATA;
+	int value_size;
+	char *value, *new = NULL;
+
+	tcadbiterinit(dba->tcadb);
+
+	value = tcadbiternext(dba->tcadb, &value_size);
+	if (value) {
+		if (newlen) {
+			*newlen = value_size;
+		}
+		new = estrndup(value, value_size);
+		tcfree(value);
+	}
+
+	return new;
+}
+
+DBA_NEXTKEY_FUNC(tcadb)
+{
+	TCADB_DATA;
+	int value_size;
+	char *value, *new = NULL;
+
+	value = tcadbiternext(dba->tcadb, &value_size);
+	if (value) {
+		if (newlen) {
+			*newlen = value_size;
+		}
+		new = estrndup(value, value_size);
+		tcfree(value);
+	}
+
+	return new;
+}
+
+DBA_OPTIMIZE_FUNC(tcadb)
+{
+	TCADB_DATA;
+
+#if _TC_LIBVER >= 811
+	return tcadboptimize(dba->tcadb, NULL) ? SUCCESS : FAILURE;
+#else
+	return FAILURE;
+#endif
+}
+
+DBA_SYNC_FUNC(tcadb)
+{
+	TCADB_DATA;
+
+	return tcadbsync(dba->tcadb) ? SUCCESS : FAILURE;
+}
+
+DBA_INFO_FUNC(tcadb)
+{
+	return estrdup(tcversion);
+}
+
+#endif
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ * vim600: sw=4 ts=4 fdm=marker
+ * vim<600: sw=4 ts=4
+ */


Property changes on: php/php-src/trunk/ext/dba/dba_tcadb.c
___________________________________________________________________
Added: svn:keywords
   + Id Rev Revision
Added: svn:eol-style
   + native

Added: php/php-src/trunk/ext/dba/php_tcadb.h
===================================================================
--- php/php-src/trunk/ext/dba/php_tcadb.h	                        (rev 0)
+++ php/php-src/trunk/ext/dba/php_tcadb.h	2010-03-24 23:38:59 UTC (rev 296760)
@@ -0,0 +1,41 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 5                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2010 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          |
+   | lice...@php.net so we can mail you a copy immediately.               |
+   +----------------------------------------------------------------------+
+   | Author: Michael Maclean <m...@php.net>                               |
+   +----------------------------------------------------------------------+
+ */
+
+/* $Id$ */
+
+#ifndef PHP_TCADB_H
+#define PHP_TCADB_H
+
+#if DBA_TCADB
+
+#include "php_dba.h"
+
+DBA_FUNCS(tcadb);
+
+#endif
+
+#endif
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ * vim600: sw=4 ts=4 fdm=marker
+ * vim<600: sw=4 ts=4
+ */


Property changes on: php/php-src/trunk/ext/dba/php_tcadb.h
___________________________________________________________________
Added: svn:keywords
   + Id Rev Revision
Added: svn:eol-style
   + native

Added: php/php-src/trunk/ext/dba/tests/dba_tcadb.phpt
===================================================================
--- php/php-src/trunk/ext/dba/tests/dba_tcadb.phpt	                        (rev 0)
+++ php/php-src/trunk/ext/dba/tests/dba_tcadb.phpt	2010-03-24 23:38:59 UTC (rev 296760)
@@ -0,0 +1,50 @@
+--TEST--
+DBA TCADB handler test
+--SKIPIF--
+<?php
+	$handler = 'tcadb';
+	require_once dirname(__FILE__) .'/skipif.inc';
+?>
+--FILE--
+<?php
+	$handler = 'tcadb';
+    require_once dirname(__FILE__) .'/skipif.inc';
+    $lock_flag = 'l';
+    $db_filename = $db_file = dirname(__FILE__) .'/test0.tch';
+    @unlink($db_filename);
+    @unlink($db_filename.'.lck');
+	require_once dirname(__FILE__) .'/dba_handler.inc';
+?>
+===DONE===
+--EXPECT--
+database handler: tcadb
+3NYNYY
+Content String 2
+Content 2 replaced
+Read during write: not allowed
+Content 2 replaced 2nd time
+The 6th value
+array(3) {
+  ["key number 6"]=>
+  string(13) "The 6th value"
+  ["key2"]=>
+  string(27) "Content 2 replaced 2nd time"
+  ["key5"]=>
+  string(23) "The last content string"
+}
+--NO-LOCK--
+3NYNYY
+Content String 2
+Content 2 replaced
+Read during write: not allowed
+Content 2 replaced 2nd time
+The 6th value
+array(3) {
+  ["key number 6"]=>
+  string(13) "The 6th value"
+  ["key2"]=>
+  string(27) "Content 2 replaced 2nd time"
+  ["key5"]=>
+  string(23) "The last content string"
+}
+===DONE===


Property changes on: php/php-src/trunk/ext/dba/tests/dba_tcadb.phpt
___________________________________________________________________
Added: svn:keywords
   + Id Rev Revision
Added: svn:eol-style
   + native
-- 
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php

Reply via email to