Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 1 | /* GDBM module, hacked from the still-breathing corpse of the |
| 2 | DBM module by anthony.baxter@aaii.oz.au. Original copyright |
| 3 | follows: |
| 4 | */ |
| 5 | /*********************************************************** |
Guido van Rossum | 524b588 | 1995-01-04 19:10:35 +0000 | [diff] [blame] | 6 | Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam, |
| 7 | The Netherlands. |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 8 | |
| 9 | All Rights Reserved |
| 10 | |
Guido van Rossum | d266eb4 | 1996-10-25 14:44:06 +0000 | [diff] [blame] | 11 | Permission to use, copy, modify, and distribute this software and its |
| 12 | documentation for any purpose and without fee is hereby granted, |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 13 | provided that the above copyright notice appear in all copies and that |
Guido van Rossum | d266eb4 | 1996-10-25 14:44:06 +0000 | [diff] [blame] | 14 | both that copyright notice and this permission notice appear in |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 15 | supporting documentation, and that the names of Stichting Mathematisch |
Guido van Rossum | d266eb4 | 1996-10-25 14:44:06 +0000 | [diff] [blame] | 16 | Centrum or CWI or Corporation for National Research Initiatives or |
| 17 | CNRI not be used in advertising or publicity pertaining to |
| 18 | distribution of the software without specific, written prior |
| 19 | permission. |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 20 | |
Guido van Rossum | d266eb4 | 1996-10-25 14:44:06 +0000 | [diff] [blame] | 21 | While CWI is the initial source for this software, a modified version |
| 22 | is made available by the Corporation for National Research Initiatives |
| 23 | (CNRI) at the Internet address ftp://ftp.python.org. |
| 24 | |
| 25 | STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH |
| 26 | REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF |
| 27 | MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH |
| 28 | CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL |
| 29 | DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR |
| 30 | PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER |
| 31 | TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR |
| 32 | PERFORMANCE OF THIS SOFTWARE. |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 33 | |
| 34 | ******************************************************************/ |
| 35 | |
| 36 | /* DBM module using dictionary interface */ |
| 37 | |
| 38 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 39 | #include "Python.h" |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 40 | |
| 41 | #include <sys/types.h> |
| 42 | #include <sys/stat.h> |
| 43 | #include <fcntl.h> |
| 44 | #include "gdbm.h" |
| 45 | |
| 46 | typedef struct { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 47 | PyObject_HEAD |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 48 | int di_size; /* -1 means recompute */ |
| 49 | GDBM_FILE di_dbm; |
| 50 | } dbmobject; |
| 51 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 52 | staticforward PyTypeObject Dbmtype; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 53 | |
| 54 | #define is_dbmobject(v) ((v)->ob_type == &Dbmtype) |
| 55 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 56 | static PyObject *DbmError; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 57 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 58 | static PyObject * |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 59 | newdbmobject(file, flags, mode) |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 60 | char *file; |
| 61 | int flags; |
| 62 | int mode; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 63 | { |
| 64 | dbmobject *dp; |
| 65 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 66 | dp = PyObject_NEW(dbmobject, &Dbmtype); |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 67 | if (dp == NULL) |
| 68 | return NULL; |
| 69 | dp->di_size = -1; |
Guido van Rossum | b045afc | 1995-03-14 15:04:40 +0000 | [diff] [blame] | 70 | errno = 0; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 71 | if ( (dp->di_dbm = gdbm_open(file, 0, flags, mode, NULL)) == 0 ) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 72 | if (errno != 0) |
| 73 | PyErr_SetFromErrno(DbmError); |
| 74 | else |
| 75 | PyErr_SetString(DbmError, |
| 76 | (char *) gdbm_strerror(gdbm_errno)); |
| 77 | Py_DECREF(dp); |
| 78 | return NULL; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 79 | } |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 80 | return (PyObject *)dp; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 81 | } |
| 82 | |
| 83 | /* Methods */ |
| 84 | |
| 85 | static void |
| 86 | dbm_dealloc(dp) |
| 87 | register dbmobject *dp; |
| 88 | { |
| 89 | if ( dp->di_dbm ) |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 90 | gdbm_close(dp->di_dbm); |
| 91 | PyMem_DEL(dp); |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 92 | } |
| 93 | |
| 94 | static int |
| 95 | dbm_length(dp) |
| 96 | dbmobject *dp; |
| 97 | { |
| 98 | if ( dp->di_size < 0 ) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 99 | datum key,okey; |
| 100 | int size; |
| 101 | okey.dsize=0; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 102 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 103 | size = 0; |
| 104 | for ( key=gdbm_firstkey(dp->di_dbm); key.dptr; |
| 105 | key = gdbm_nextkey(dp->di_dbm,okey)) { |
| 106 | size++; |
| 107 | if(okey.dsize) free(okey.dptr); |
| 108 | okey=key; |
| 109 | } |
| 110 | dp->di_size = size; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 111 | } |
| 112 | return dp->di_size; |
| 113 | } |
| 114 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 115 | static PyObject * |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 116 | dbm_subscript(dp, key) |
| 117 | dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 118 | register PyObject *key; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 119 | { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 120 | PyObject *v; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 121 | datum drec, krec; |
| 122 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 123 | if (!PyArg_Parse(key, "s#", &krec.dptr, &krec.dsize) ) |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 124 | return NULL; |
| 125 | |
| 126 | drec = gdbm_fetch(dp->di_dbm, krec); |
| 127 | if ( drec.dptr == 0 ) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 128 | PyErr_SetString(PyExc_KeyError, |
| 129 | PyString_AS_STRING((PyStringObject *)key)); |
| 130 | return NULL; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 131 | } |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 132 | v = PyString_FromStringAndSize(drec.dptr, drec.dsize); |
Guido van Rossum | b045afc | 1995-03-14 15:04:40 +0000 | [diff] [blame] | 133 | free(drec.dptr); |
| 134 | return v; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 135 | } |
| 136 | |
| 137 | static int |
| 138 | dbm_ass_sub(dp, v, w) |
| 139 | dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 140 | PyObject *v, *w; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 141 | { |
| 142 | datum krec, drec; |
| 143 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 144 | if ( !PyArg_Parse(v, "s#", &krec.dptr, &krec.dsize) ) { |
| 145 | PyErr_SetString(PyExc_TypeError, |
| 146 | "gdbm mappings have string indices only"); |
| 147 | return -1; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 148 | } |
| 149 | dp->di_size = -1; |
| 150 | if (w == NULL) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 151 | if ( gdbm_delete(dp->di_dbm, krec) < 0 ) { |
| 152 | PyErr_SetString(PyExc_KeyError, |
| 153 | PyString_AS_STRING((PyStringObject *)v)); |
| 154 | return -1; |
| 155 | } |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 156 | } else { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 157 | if ( !PyArg_Parse(w, "s#", &drec.dptr, &drec.dsize) ) { |
| 158 | PyErr_SetString(PyExc_TypeError, |
| 159 | "gdbm mappings have string elements only"); |
| 160 | return -1; |
| 161 | } |
| 162 | errno = 0; |
| 163 | if ( gdbm_store(dp->di_dbm, krec, drec, GDBM_REPLACE) < 0 ) { |
| 164 | if (errno != 0) |
| 165 | PyErr_SetFromErrno(DbmError); |
| 166 | else |
| 167 | PyErr_SetString(DbmError, |
| 168 | (char *) gdbm_strerror(gdbm_errno)); |
| 169 | return -1; |
| 170 | } |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 171 | } |
| 172 | return 0; |
| 173 | } |
| 174 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 175 | static PyMappingMethods dbm_as_mapping = { |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 176 | (inquiry)dbm_length, /*mp_length*/ |
| 177 | (binaryfunc)dbm_subscript, /*mp_subscript*/ |
| 178 | (objobjargproc)dbm_ass_sub, /*mp_ass_subscript*/ |
| 179 | }; |
| 180 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 181 | static PyObject * |
Guido van Rossum | 807b7be | 1995-07-07 22:37:11 +0000 | [diff] [blame] | 182 | dbm_close(dp, args) |
| 183 | register dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 184 | PyObject *args; |
Guido van Rossum | 807b7be | 1995-07-07 22:37:11 +0000 | [diff] [blame] | 185 | { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 186 | if ( !PyArg_NoArgs(args) ) |
Guido van Rossum | 807b7be | 1995-07-07 22:37:11 +0000 | [diff] [blame] | 187 | return NULL; |
| 188 | if ( dp->di_dbm ) |
| 189 | gdbm_close(dp->di_dbm); |
| 190 | dp->di_dbm = NULL; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 191 | Py_INCREF(Py_None); |
| 192 | return Py_None; |
Guido van Rossum | 807b7be | 1995-07-07 22:37:11 +0000 | [diff] [blame] | 193 | } |
| 194 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 195 | static PyObject * |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 196 | dbm_keys(dp, args) |
| 197 | register dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 198 | PyObject *args; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 199 | { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 200 | register PyObject *v, *item; |
Guido van Rossum | 3be7140 | 1996-07-21 02:32:44 +0000 | [diff] [blame] | 201 | datum key, nextkey; |
Guido van Rossum | 66017aa | 1995-08-28 02:58:00 +0000 | [diff] [blame] | 202 | int err; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 203 | |
| 204 | if (dp == NULL || !is_dbmobject(dp)) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 205 | PyErr_BadInternalCall(); |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 206 | return NULL; |
| 207 | } |
Guido van Rossum | 3be7140 | 1996-07-21 02:32:44 +0000 | [diff] [blame] | 208 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 209 | if (!PyArg_NoArgs(args)) |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 210 | return NULL; |
Guido van Rossum | 3be7140 | 1996-07-21 02:32:44 +0000 | [diff] [blame] | 211 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 212 | v = PyList_New(0); |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 213 | if (v == NULL) |
| 214 | return NULL; |
Guido van Rossum | 3be7140 | 1996-07-21 02:32:44 +0000 | [diff] [blame] | 215 | |
| 216 | key = gdbm_firstkey(dp->di_dbm); |
| 217 | while (key.dptr) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 218 | item = PyString_FromStringAndSize(key.dptr, key.dsize); |
| 219 | if (item == NULL) { |
| 220 | free(key.dptr); |
| 221 | Py_DECREF(v); |
| 222 | return NULL; |
| 223 | } |
| 224 | err = PyList_Append(v, item); |
| 225 | Py_DECREF(item); |
| 226 | if (err != 0) { |
| 227 | free(key.dptr); |
| 228 | Py_DECREF(v); |
| 229 | return NULL; |
| 230 | } |
| 231 | nextkey = gdbm_nextkey(dp->di_dbm, key); |
Guido van Rossum | 3be7140 | 1996-07-21 02:32:44 +0000 | [diff] [blame] | 232 | free(key.dptr); |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 233 | key = nextkey; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 234 | } |
Guido van Rossum | 3be7140 | 1996-07-21 02:32:44 +0000 | [diff] [blame] | 235 | |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 236 | return v; |
| 237 | } |
| 238 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 239 | static PyObject * |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 240 | dbm_has_key(dp, args) |
| 241 | register dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 242 | PyObject *args; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 243 | { |
Guido van Rossum | b045afc | 1995-03-14 15:04:40 +0000 | [diff] [blame] | 244 | datum key; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 245 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 246 | if (!PyArg_Parse(args, "s#", &key.dptr, &key.dsize)) |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 247 | return NULL; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 248 | return PyInt_FromLong((long) gdbm_exists(dp->di_dbm, key)); |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 249 | } |
| 250 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 251 | static PyObject * |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 252 | dbm_firstkey(dp, args) |
| 253 | register dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 254 | PyObject *args; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 255 | { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 256 | register PyObject *v; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 257 | datum key; |
| 258 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 259 | if (!PyArg_NoArgs(args)) |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 260 | return NULL; |
| 261 | key = gdbm_firstkey(dp->di_dbm); |
| 262 | if (key.dptr) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 263 | v = PyString_FromStringAndSize(key.dptr, key.dsize); |
| 264 | free(key.dptr); |
| 265 | return v; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 266 | } else { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 267 | Py_INCREF(Py_None); |
| 268 | return Py_None; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 269 | } |
| 270 | } |
| 271 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 272 | static PyObject * |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 273 | dbm_nextkey(dp, args) |
| 274 | register dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 275 | PyObject *args; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 276 | { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 277 | register PyObject *v; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 278 | datum key, nextkey; |
| 279 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 280 | if (!PyArg_Parse(args, "s#", &key.dptr, &key.dsize)) |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 281 | return NULL; |
| 282 | nextkey = gdbm_nextkey(dp->di_dbm, key); |
| 283 | if (nextkey.dptr) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 284 | v = PyString_FromStringAndSize(nextkey.dptr, nextkey.dsize); |
| 285 | free(nextkey.dptr); |
| 286 | return v; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 287 | } else { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 288 | Py_INCREF(Py_None); |
| 289 | return Py_None; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 290 | } |
| 291 | } |
| 292 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 293 | static PyObject * |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 294 | dbm_reorganize(dp, args) |
| 295 | register dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 296 | PyObject *args; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 297 | { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 298 | if (!PyArg_NoArgs(args)) |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 299 | return NULL; |
| 300 | errno = 0; |
| 301 | if (gdbm_reorganize(dp->di_dbm) < 0) { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 302 | if (errno != 0) |
| 303 | PyErr_SetFromErrno(DbmError); |
| 304 | else |
| 305 | PyErr_SetString(DbmError, |
| 306 | (char *) gdbm_strerror(gdbm_errno)); |
| 307 | return NULL; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 308 | } |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 309 | Py_INCREF(Py_None); |
| 310 | return Py_None; |
Guido van Rossum | fbd30e9 | 1995-03-16 16:07:34 +0000 | [diff] [blame] | 311 | } |
| 312 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 313 | static PyMethodDef dbm_methods[] = { |
| 314 | {"close", (PyCFunction)dbm_close}, |
| 315 | {"keys", (PyCFunction)dbm_keys}, |
| 316 | {"has_key", (PyCFunction)dbm_has_key}, |
| 317 | {"firstkey", (PyCFunction)dbm_firstkey}, |
| 318 | {"nextkey", (PyCFunction)dbm_nextkey}, |
| 319 | {"reorganize", (PyCFunction)dbm_reorganize}, |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 320 | {NULL, NULL} /* sentinel */ |
| 321 | }; |
| 322 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 323 | static PyObject * |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 324 | dbm_getattr(dp, name) |
| 325 | dbmobject *dp; |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 326 | char *name; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 327 | { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 328 | return Py_FindMethod(dbm_methods, (PyObject *)dp, name); |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 329 | } |
| 330 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 331 | static PyTypeObject Dbmtype = { |
| 332 | PyObject_HEAD_INIT(&PyType_Type) |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 333 | 0, |
Guido van Rossum | 807b7be | 1995-07-07 22:37:11 +0000 | [diff] [blame] | 334 | "gdbm", |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 335 | sizeof(dbmobject), |
| 336 | 0, |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 337 | (destructor)dbm_dealloc, /*tp_dealloc*/ |
| 338 | 0, /*tp_print*/ |
| 339 | (getattrfunc)dbm_getattr, /*tp_getattr*/ |
| 340 | 0, /*tp_setattr*/ |
| 341 | 0, /*tp_compare*/ |
| 342 | 0, /*tp_repr*/ |
| 343 | 0, /*tp_as_number*/ |
| 344 | 0, /*tp_as_sequence*/ |
| 345 | &dbm_as_mapping, /*tp_as_mapping*/ |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 346 | }; |
| 347 | |
| 348 | /* ----------------------------------------------------------------- */ |
| 349 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 350 | static PyObject * |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 351 | dbmopen(self, args) |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 352 | PyObject *self; |
| 353 | PyObject *args; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 354 | { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 355 | char *name; |
| 356 | char *flags = "r "; |
| 357 | int iflags; |
| 358 | int mode = 0666; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 359 | |
Guido van Rossum | e36e1fe | 1996-01-26 21:08:01 +0000 | [diff] [blame] | 360 | /* XXXX add other flags. 2nd character can be "f" meaning open in fast mode. */ |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 361 | if ( !PyArg_ParseTuple(args, "s|si", &name, &flags, &mode) ) |
| 362 | return NULL; |
Guido van Rossum | e36e1fe | 1996-01-26 21:08:01 +0000 | [diff] [blame] | 363 | switch (flags[0]) { |
| 364 | case 'r': |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 365 | iflags = GDBM_READER; |
| 366 | break; |
Guido van Rossum | e36e1fe | 1996-01-26 21:08:01 +0000 | [diff] [blame] | 367 | case 'w': |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 368 | iflags = GDBM_WRITER; |
| 369 | break; |
Guido van Rossum | e36e1fe | 1996-01-26 21:08:01 +0000 | [diff] [blame] | 370 | case 'c': |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 371 | iflags = GDBM_WRCREAT; |
| 372 | break; |
Guido van Rossum | e36e1fe | 1996-01-26 21:08:01 +0000 | [diff] [blame] | 373 | case 'n': |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 374 | iflags = GDBM_NEWDB; |
| 375 | break; |
| 376 | default: |
| 377 | PyErr_SetString(DbmError, |
| 378 | "Flags should be one of 'r', 'w', 'c' or 'n'"); |
| 379 | return NULL; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 380 | } |
Guido van Rossum | e36e1fe | 1996-01-26 21:08:01 +0000 | [diff] [blame] | 381 | if (flags[1] == 'f') |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 382 | iflags |= GDBM_FAST; |
| 383 | return newdbmobject(name, iflags, mode); |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 384 | } |
| 385 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 386 | static PyMethodDef dbmmodule_methods[] = { |
| 387 | { "open", (PyCFunction)dbmopen, 1 }, |
| 388 | { 0, 0 }, |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 389 | }; |
| 390 | |
| 391 | void |
| 392 | initgdbm() { |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 393 | PyObject *m, *d; |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 394 | |
Roger E. Masse | b15bef8 | 1996-12-17 19:55:33 +0000 | [diff] [blame^] | 395 | m = Py_InitModule("gdbm", dbmmodule_methods); |
| 396 | d = PyModule_GetDict(m); |
| 397 | DbmError = PyString_FromString("gdbm.error"); |
| 398 | if ( DbmError == NULL || PyDict_SetItemString(d, "error", DbmError) ) |
| 399 | Py_FatalError("can't define gdbm.error"); |
Guido van Rossum | 4b4c664 | 1994-08-08 08:06:37 +0000 | [diff] [blame] | 400 | } |