xref: /PHP-5.4/ext/dba/dba_dbm.c (revision c0d060f5)
1 /*
2    +----------------------------------------------------------------------+
3    | PHP Version 5                                                        |
4    +----------------------------------------------------------------------+
5    | Copyright (c) 1997-2014 The PHP Group                                |
6    +----------------------------------------------------------------------+
7    | This source file is subject to version 3.01 of the PHP license,      |
8    | that is bundled with this package in the file LICENSE, and is        |
9    | available through the world-wide-web at the following url:           |
10    | http://www.php.net/license/3_01.txt                                  |
11    | If you did not receive a copy of the PHP license and are unable to   |
12    | obtain it through the world-wide-web, please send a note to          |
13    | license@php.net so we can mail you a copy immediately.               |
14    +----------------------------------------------------------------------+
15    | Author: Sascha Schumann <sascha@schumann.cx>                         |
16    +----------------------------------------------------------------------+
17  */
18 
19 /* $Id$ */
20 
21 #ifdef HAVE_CONFIG_H
22 #include "config.h"
23 #endif
24 
25 #include "php.h"
26 
27 #if DBA_DBM
28 #include "php_dbm.h"
29 
30 #ifdef DBM_INCLUDE_FILE
31 #include DBM_INCLUDE_FILE
32 #endif
33 #if DBA_GDBM
34 #include "php_gdbm.h"
35 #endif
36 
37 #include <unistd.h>
38 #include <sys/types.h>
39 #include <sys/stat.h>
40 #include <fcntl.h>
41 
42 #define DBM_DATA dba_dbm_data *dba = info->dbf
43 #define DBM_GKEY datum gkey; gkey.dptr = (char *) key; gkey.dsize = keylen
44 
45 #define TRUNC_IT(extension, mode) \
46 	snprintf(buf, MAXPATHLEN, "%s" extension, info->path); \
47 	buf[MAXPATHLEN-1] = '\0'; \
48 	if((fd = VCWD_OPEN_MODE(buf, O_CREAT | mode | O_WRONLY, filemode)) == -1) \
49 		return FAILURE; \
50 	close(fd);
51 
52 
53 typedef struct {
54 	datum nextkey;
55 } dba_dbm_data;
56 
DBA_OPEN_FUNC(dbm)57 DBA_OPEN_FUNC(dbm)
58 {
59 	int fd;
60 	int filemode = 0644;
61 
62 	if(info->argc > 0) {
63 		convert_to_long_ex(info->argv[0]);
64 		filemode = Z_LVAL_PP(info->argv[0]);
65 	}
66 
67 	if(info->mode == DBA_TRUNC) {
68 		char buf[MAXPATHLEN];
69 
70 		/* dbm/ndbm original */
71 		TRUNC_IT(".pag", O_TRUNC);
72 		TRUNC_IT(".dir", O_TRUNC);
73 	}
74 
75 	if(info->mode == DBA_CREAT) {
76 		char buf[MAXPATHLEN];
77 
78 		TRUNC_IT(".pag", 0);
79 		TRUNC_IT(".dir", 0);
80 	}
81 
82 	if(dbminit((char *) info->path) == -1) {
83 		return FAILURE;
84 	}
85 
86 	info->dbf = pemalloc(sizeof(dba_dbm_data), info->flags&DBA_PERSISTENT);
87 	memset(info->dbf, 0, sizeof(dba_dbm_data));
88 	return SUCCESS;
89 }
90 
DBA_CLOSE_FUNC(dbm)91 DBA_CLOSE_FUNC(dbm)
92 {
93 	pefree(info->dbf, info->flags&DBA_PERSISTENT);
94 	dbmclose();
95 }
96 
DBA_FETCH_FUNC(dbm)97 DBA_FETCH_FUNC(dbm)
98 {
99 	datum gval;
100 	char *new = NULL;
101 
102 	DBM_GKEY;
103 	gval = fetch(gkey);
104 	if(gval.dptr) {
105 		if(newlen) *newlen = gval.dsize;
106 		new = estrndup(gval.dptr, gval.dsize);
107 	}
108 	return new;
109 }
110 
DBA_UPDATE_FUNC(dbm)111 DBA_UPDATE_FUNC(dbm)
112 {
113 	datum gval;
114 
115 	DBM_GKEY;
116 
117 	if (mode == 1) { /* insert */
118 		gval = fetch(gkey);
119 		if(gval.dptr) {
120 			return FAILURE;
121 		}
122 	}
123 
124 	gval.dptr = (char *) val;
125 	gval.dsize = vallen;
126 
127 	return (store(gkey, gval) == -1 ? FAILURE : SUCCESS);
128 }
129 
DBA_EXISTS_FUNC(dbm)130 DBA_EXISTS_FUNC(dbm)
131 {
132 	datum gval;
133 	DBM_GKEY;
134 
135 	gval = fetch(gkey);
136 	if(gval.dptr) {
137 		return SUCCESS;
138 	}
139 	return FAILURE;
140 }
141 
DBA_DELETE_FUNC(dbm)142 DBA_DELETE_FUNC(dbm)
143 {
144 	DBM_GKEY;
145 	return(delete(gkey) == -1 ? FAILURE : SUCCESS);
146 }
147 
DBA_FIRSTKEY_FUNC(dbm)148 DBA_FIRSTKEY_FUNC(dbm)
149 {
150 	DBM_DATA;
151 	datum gkey;
152 	char *key = NULL;
153 
154 	gkey = firstkey();
155 	if(gkey.dptr) {
156 		if(newlen) *newlen = gkey.dsize;
157 		key = estrndup(gkey.dptr, gkey.dsize);
158 		dba->nextkey = gkey;
159 	} else
160 		dba->nextkey.dptr = NULL;
161 	return key;
162 }
163 
DBA_NEXTKEY_FUNC(dbm)164 DBA_NEXTKEY_FUNC(dbm)
165 {
166 	DBM_DATA;
167 	datum gkey;
168 	char *nkey = NULL;
169 
170 	if(!dba->nextkey.dptr) return NULL;
171 
172 	gkey = nextkey(dba->nextkey);
173 	if(gkey.dptr) {
174 		if(newlen) *newlen = gkey.dsize;
175 		nkey = estrndup(gkey.dptr, gkey.dsize);
176 		dba->nextkey = gkey;
177 	} else
178 		dba->nextkey.dptr = NULL;
179 	return nkey;
180 }
181 
DBA_OPTIMIZE_FUNC(dbm)182 DBA_OPTIMIZE_FUNC(dbm)
183 {
184 	/* dummy */
185 	return SUCCESS;
186 }
187 
DBA_SYNC_FUNC(dbm)188 DBA_SYNC_FUNC(dbm)
189 {
190 	return SUCCESS;
191 }
192 
DBA_INFO_FUNC(dbm)193 DBA_INFO_FUNC(dbm)
194 {
195 #if DBA_GDBM
196 	if (!strcmp(DBM_VERSION, "GDBM"))
197 	{
198 		return dba_info_gdbm(hnd, info TSRMLS_CC);
199 	}
200 #endif
201 	return estrdup(DBM_VERSION);
202 }
203 
204 #endif
205 
206 /*
207  * Local variables:
208  * tab-width: 4
209  * c-basic-offset: 4
210  * End:
211  * vim600: sw=4 ts=4 fdm=marker
212  * vim<600: sw=4 ts=4
213  */
214