1999-07-21 15:12:32 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
2019-01-30 09:03:12 +00:00
|
|
|
| Copyright (c) The PHP Group |
|
1999-07-21 15:12:32 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2006-01-01 12:51:34 +00:00
|
|
|
| This source file is subject to version 3.01 of the PHP license, |
|
2001-06-06 13:06:12 +00:00
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
2003-06-10 20:04:29 +00:00
|
|
|
| available through the world-wide-web at the following url: |
|
2021-05-06 10:16:35 +00:00
|
|
|
| https://www.php.net/license/3_01.txt |
|
2001-06-06 13:06:12 +00:00
|
|
|
| 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. |
|
1999-07-21 15:12:32 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2002-02-28 08:29:35 +00:00
|
|
|
| Author: Sascha Schumann <sascha@schumann.cx> |
|
1999-07-21 15:12:32 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
2002-04-18 12:30:18 +00:00
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
#include "config.h"
|
|
|
|
#endif
|
|
|
|
|
1999-07-21 15:12:32 +00:00
|
|
|
#include "php.h"
|
|
|
|
|
2020-08-07 18:15:38 +00:00
|
|
|
#ifdef DBA_GDBM
|
1999-12-04 19:19:57 +00:00
|
|
|
#include "php_gdbm.h"
|
1999-07-21 15:12:32 +00:00
|
|
|
|
2003-02-01 18:59:59 +00:00
|
|
|
#ifdef GDBM_INCLUDE_FILE
|
|
|
|
#include GDBM_INCLUDE_FILE
|
|
|
|
#endif
|
1999-07-21 15:12:32 +00:00
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
GDBM_FILE dbf;
|
|
|
|
datum nextkey;
|
|
|
|
} dba_gdbm_data;
|
|
|
|
|
|
|
|
DBA_OPEN_FUNC(gdbm)
|
|
|
|
{
|
|
|
|
GDBM_FILE dbf;
|
|
|
|
int gmode = 0;
|
2021-11-06 23:09:40 +00:00
|
|
|
int filemode = info->file_permission;
|
1999-07-21 15:12:32 +00:00
|
|
|
|
|
|
|
gmode = info->mode == DBA_READER ? GDBM_READER :
|
2015-01-03 09:22:58 +00:00
|
|
|
info->mode == DBA_WRITER ? GDBM_WRITER :
|
|
|
|
info->mode == DBA_CREAT ? GDBM_WRCREAT :
|
1999-07-21 15:12:32 +00:00
|
|
|
info->mode == DBA_TRUNC ? GDBM_NEWDB : -1;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
|
|
if(gmode == -1)
|
2002-11-05 14:46:36 +00:00
|
|
|
return FAILURE; /* not possible */
|
1999-07-21 15:12:32 +00:00
|
|
|
|
|
|
|
dbf = gdbm_open(info->path, 0, gmode, filemode, NULL);
|
2015-01-03 09:22:58 +00:00
|
|
|
|
1999-07-21 15:12:32 +00:00
|
|
|
if(dbf) {
|
2002-12-20 17:47:58 +00:00
|
|
|
info->dbf = pemalloc(sizeof(dba_gdbm_data), info->flags&DBA_PERSISTENT);
|
2002-11-06 17:59:03 +00:00
|
|
|
memset(info->dbf, 0, sizeof(dba_gdbm_data));
|
1999-07-21 15:12:32 +00:00
|
|
|
((dba_gdbm_data *) info->dbf)->dbf = dbf;
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
2017-09-26 23:07:52 +00:00
|
|
|
*error = (char *)gdbm_strerror(gdbm_errno);
|
1999-07-21 15:12:32 +00:00
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_CLOSE_FUNC(gdbm)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
1999-07-21 15:12:32 +00:00
|
|
|
if(dba->nextkey.dptr) free(dba->nextkey.dptr);
|
|
|
|
gdbm_close(dba->dbf);
|
2002-12-20 17:47:58 +00:00
|
|
|
pefree(dba, info->flags&DBA_PERSISTENT);
|
1999-07-21 15:12:32 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
DBA_FETCH_FUNC(gdbm)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
1999-07-21 15:12:32 +00:00
|
|
|
datum gval;
|
2021-10-25 20:26:03 +00:00
|
|
|
datum gkey;
|
2021-11-07 00:52:27 +00:00
|
|
|
zend_string *fetched_val = NULL;
|
|
|
|
|
|
|
|
gkey.dptr = ZSTR_VAL(key);
|
|
|
|
gkey.dsize = ZSTR_LEN(key);
|
1999-07-21 15:12:32 +00:00
|
|
|
|
|
|
|
gval = gdbm_fetch(dba->dbf, gkey);
|
2021-11-07 00:52:27 +00:00
|
|
|
if (gval.dptr) {
|
|
|
|
fetched_val = zend_string_init(gval.dptr, gval.dsize, /* persistent */ false);
|
1999-07-21 15:12:32 +00:00
|
|
|
free(gval.dptr);
|
|
|
|
}
|
2021-11-07 00:52:27 +00:00
|
|
|
return fetched_val;
|
1999-07-21 15:12:32 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
DBA_UPDATE_FUNC(gdbm)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
1999-07-21 15:12:32 +00:00
|
|
|
datum gval;
|
2021-10-25 20:26:03 +00:00
|
|
|
datum gkey;
|
1999-07-21 15:12:32 +00:00
|
|
|
|
2021-11-07 01:10:38 +00:00
|
|
|
gkey.dptr = ZSTR_VAL(key);
|
|
|
|
gkey.dsize = ZSTR_LEN(key);
|
|
|
|
gval.dptr = ZSTR_VAL(val);
|
|
|
|
gval.dsize = ZSTR_LEN(val);
|
1999-07-21 15:12:32 +00:00
|
|
|
|
2013-01-15 08:30:44 +00:00
|
|
|
switch (gdbm_store(dba->dbf, gkey, gval, mode == 1 ? GDBM_INSERT : GDBM_REPLACE)) {
|
|
|
|
case 0:
|
|
|
|
return SUCCESS;
|
|
|
|
case 1:
|
|
|
|
return FAILURE;
|
|
|
|
case -1:
|
2021-11-07 01:10:38 +00:00
|
|
|
// TODO Check when this happens and confirm this can even happen
|
|
|
|
php_error_docref(NULL, E_WARNING, "%s", gdbm_strerror(gdbm_errno));
|
2013-01-15 08:30:44 +00:00
|
|
|
return FAILURE;
|
|
|
|
default:
|
2021-11-07 01:10:38 +00:00
|
|
|
// TODO Convert this to an assertion failure
|
|
|
|
php_error_docref(NULL, E_WARNING, "Unknown return value");
|
2013-01-15 08:30:44 +00:00
|
|
|
return FAILURE;
|
|
|
|
}
|
1999-07-21 15:12:32 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
DBA_EXISTS_FUNC(gdbm)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
|
|
|
datum gkey;
|
|
|
|
|
2021-11-07 01:20:06 +00:00
|
|
|
gkey.dptr = ZSTR_VAL(key);
|
|
|
|
gkey.dsize = ZSTR_LEN(key);
|
1999-07-21 15:12:32 +00:00
|
|
|
|
|
|
|
return gdbm_exists(dba->dbf, gkey) ? SUCCESS : FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_DELETE_FUNC(gdbm)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
|
|
|
datum gkey;
|
|
|
|
|
2021-11-07 01:24:32 +00:00
|
|
|
gkey.dptr = ZSTR_VAL(key);
|
|
|
|
gkey.dsize = ZSTR_LEN(key);
|
2015-01-03 09:22:58 +00:00
|
|
|
|
1999-07-21 15:12:32 +00:00
|
|
|
return gdbm_delete(dba->dbf, gkey) == -1 ? FAILURE : SUCCESS;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_FIRSTKEY_FUNC(gdbm)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
1999-07-21 15:12:32 +00:00
|
|
|
datum gkey;
|
2021-11-07 20:15:54 +00:00
|
|
|
zend_string *key = NULL;
|
1999-07-21 15:12:32 +00:00
|
|
|
|
2021-11-07 20:15:54 +00:00
|
|
|
if (dba->nextkey.dptr) {
|
1999-07-21 15:12:32 +00:00
|
|
|
free(dba->nextkey.dptr);
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
1999-07-21 15:12:32 +00:00
|
|
|
gkey = gdbm_firstkey(dba->dbf);
|
2021-11-07 20:15:54 +00:00
|
|
|
if (gkey.dptr) {
|
|
|
|
key = zend_string_init(gkey.dptr, gkey.dsize, /* persistent */ false);
|
1999-07-21 15:12:32 +00:00
|
|
|
dba->nextkey = gkey;
|
|
|
|
} else {
|
|
|
|
dba->nextkey.dptr = NULL;
|
|
|
|
}
|
|
|
|
return key;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_NEXTKEY_FUNC(gdbm)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
2021-11-07 20:15:54 +00:00
|
|
|
zend_string *key = NULL;
|
1999-07-21 15:12:32 +00:00
|
|
|
datum gkey;
|
|
|
|
|
2021-11-07 20:15:54 +00:00
|
|
|
if(!dba->nextkey.dptr) { return NULL; }
|
2015-01-03 09:22:58 +00:00
|
|
|
|
1999-07-21 15:12:32 +00:00
|
|
|
gkey = gdbm_nextkey(dba->dbf, dba->nextkey);
|
|
|
|
free(dba->nextkey.dptr);
|
2021-11-07 20:15:54 +00:00
|
|
|
if (gkey.dptr) {
|
|
|
|
key = zend_string_init(gkey.dptr, gkey.dsize, /* persistent */ false);
|
1999-07-21 15:12:32 +00:00
|
|
|
dba->nextkey = gkey;
|
|
|
|
} else {
|
|
|
|
dba->nextkey.dptr = NULL;
|
|
|
|
}
|
2021-11-07 20:15:54 +00:00
|
|
|
return key;
|
1999-07-21 15:12:32 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
DBA_OPTIMIZE_FUNC(gdbm)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
|
|
|
|
1999-07-21 15:12:32 +00:00
|
|
|
gdbm_reorganize(dba->dbf);
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
|
2015-01-03 09:22:58 +00:00
|
|
|
DBA_SYNC_FUNC(gdbm)
|
1999-07-21 15:12:32 +00:00
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_gdbm_data *dba = info->dbf;
|
1999-07-21 15:12:32 +00:00
|
|
|
|
|
|
|
gdbm_sync(dba->dbf);
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
2002-12-30 13:07:30 +00:00
|
|
|
|
|
|
|
DBA_INFO_FUNC(gdbm)
|
|
|
|
{
|
|
|
|
return estrdup(gdbm_version);
|
|
|
|
}
|
|
|
|
|
1999-07-21 15:12:32 +00:00
|
|
|
#endif
|