Lines Matching +defs:cl +defs:key
95 datum del, key;
107 key = gdbm_firstkey(db->db);
108 if (!key.dptr) {
114 * copy key to result and go to next key
118 Tcl_ListObjAppendElement(in,list,Tcl_NewStringObj(key.dptr,key.dsize-1));
119 del.dptr = key.dptr;
120 key = gdbm_nextkey(db->db, key);
122 } while (key.dptr);
132 datum key, content;
136 return XOTclObjErrArgCnt(in, obj->cmdName, "set key ?value?");
143 key.dptr = TclObjStr(objv[1]);
144 key.dsize = objv[1]->length + 1;
148 content = gdbm_fetch(db->db, key);
155 /* key not found */
156 return XOTclVarErrMsg(in, "no such variable '", key.dptr,
163 if (gdbm_store(db->db, key, content, GDBM_REPLACE) == 0) {
164 /*fprintf(stderr,"setting %s to '%s'\n",key.dptr,content.dptr);*/
178 datum key;
189 key.dptr = TclObjStr(objv[1]);
190 key.dsize = objv[1]->length + 1;
192 if (gdbm_exists(db->db, key))
204 datum key;
209 return XOTclObjErrArgCnt(in, obj->cmdName, "unset key");
216 key.dptr = TclObjStr(objv[1]);
217 key.dsize = objv[1]->length + 1;
219 ret = gdbm_delete(db->db, key);
225 "' but key does not exist.", 0);
233 datum key;
250 key = gdbm_firstkey(db->db);
251 if (!key.dptr) {
258 Tcl_AppendResult (in, key.dptr, (char*)0);
261 db->lastSearchKey->dptr = key.dptr;
262 db->lastSearchKey->dsize = key.dsize;
317 XOTcl_Class* cl;
350 cl = XOTclGetClass(in, "Storage=Gdbm");
351 XOTclAddIMethod(in, cl, "open", XOTclGdbmOpenMethod, 0, 0);
352 XOTclAddIMethod(in, cl, "close", XOTclGdbmCloseMethod, 0, 0);
353 XOTclAddIMethod(in, cl, "set", XOTclGdbmSetMethod, 0, 0);
354 XOTclAddIMethod(in, cl, "exists", XOTclGdbmExistsMethod, 0, 0);
355 XOTclAddIMethod(in, cl, "names", XOTclGdbmNamesMethod, 0, 0);
356 XOTclAddIMethod(in, cl, "unset", XOTclGdbmUnsetMethod, 0, 0);
357 XOTclAddIMethod(in, cl, "firstkey", XOTclGdbmFirstKeyMethod, 0, 0);
358 XOTclAddIMethod(in, cl, "nextkey", XOTclGdbmNextKeyMethod, 0, 0);