store/XOTclSdbm/xotclsdbm.c

175   datum key, content;
191       content = sdbm_fetch(db->db,key);
192       if (content.dptr) {
194 	Tcl_Obj *r = Tcl_NewStringObj(content.dptr, (int)(content.dsize-1));
207       content.dptr = TclObjStr(objv[2]);
208       content.dsize = objv[2]->length + 1;
209       if (sdbm_store(db->db, key, content, SDBM_REPLACE) == 0) {
210 	  /*fprintf(stderr,"setting %s to '%s'\n",key.dptr,content.dptr);*/
224   datum key, content;
238   content = sdbm_fetch(db->db,key);
239   Tcl_SetIntObj(Tcl_GetObjResult(in), content.dptr != NULL);