pike.git / src / modules / Gdbm / gdbmmod.c

version» Context lines:

pike.git/src/modules/Gdbm/gdbmmod.c:159:   static void gdbmmod_create(INT32 args)   {    struct gdbm_glue *this=THIS;    do_free();    if(args)    {    GDBM_FILE tmp;    struct pike_string *tmp2;    int rwmode = GDBM_WRCREAT|GDBM_NOLOCK;    -  if(sp[-args].type != T_STRING) +  if(TYPEOF(sp[-args]) != T_STRING)    Pike_error("Bad argument 1 to gdbm->create()\n");       if(args>1)    { -  if(sp[1-args].type != T_STRING) +  if(TYPEOF(sp[1-args]) != T_STRING)    Pike_error("Bad argument 2 to gdbm->create()\n");       rwmode=fixmods(sp[1-args].u.string->str);    }       if (this->dbf) {    do_free();    }       tmp2=sp[-args].u.string;
pike.git/src/modules/Gdbm/gdbmmod.c:214:    */      static void gdbmmod_fetch(INT32 args)   {    struct gdbm_glue *this=THIS;    datum key,ret;       if(!args)    Pike_error("Too few arguments to gdbm->fetch()\n");    -  if(sp[-args].type != T_STRING) +  if(TYPEOF(sp[-args]) != T_STRING)    Pike_error("Bad argument 1 to gdbm->fetch()\n");       if(!THIS->dbf)    Pike_error("GDBM database not open.\n");       STRING_TO_DATUM(key, sp[-args].u.string);       THREADS_ALLOW();    mt_lock(& gdbm_lock);    ret=gdbm_fetch(this->dbf, key);
pike.git/src/modules/Gdbm/gdbmmod.c:253:    */      static void gdbmmod_delete(INT32 args)   {    struct gdbm_glue *this=THIS;    datum key;    int ret;    if(!args)    Pike_error("Too few arguments to gdbm->delete()\n");    -  if(sp[-args].type != T_STRING) +  if(TYPEOF(sp[-args]) != T_STRING)    Pike_error("Bad argument 1 to gdbm->delete()\n");       if(!this->dbf)    Pike_error("GDBM database not open.\n");       STRING_TO_DATUM(key, sp[-args].u.string);       THREADS_ALLOW();    mt_lock(& gdbm_lock);    ret=gdbm_delete(this->dbf, key);
pike.git/src/modules/Gdbm/gdbmmod.c:318:    *! write(k+":"+gdbm->fetch(k)+"\n");    */      static void gdbmmod_nextkey(INT32 args)   {    struct gdbm_glue *this=THIS;    datum key,ret;    if(!args)    Pike_error("Too few arguments to gdbm->nextkey()\n");    -  if(sp[-args].type != T_STRING) +  if(TYPEOF(sp[-args]) != T_STRING)    Pike_error("Bad argument 1 to gdbm->nextkey()\n");       if(!THIS->dbf)    Pike_error("GDBM database not open.\n");       STRING_TO_DATUM(key, sp[-args].u.string);       THREADS_ALLOW();    mt_lock(& gdbm_lock);    ret=gdbm_nextkey(this->dbf, key);
pike.git/src/modules/Gdbm/gdbmmod.c:388:      static void gdbmmod_store(INT32 args)   {    struct gdbm_glue *this=THIS;    datum key,data;    int method = GDBM_REPLACE;    int ret;    if(args<2)    Pike_error("Too few arguments to gdbm->store()\n");    -  if(sp[-args].type != T_STRING) +  if(TYPEOF(sp[-args]) != T_STRING)    Pike_error("Bad argument 1 to gdbm->store()\n");    -  if(sp[1-args].type != T_STRING) +  if(TYPEOF(sp[1-args]) != T_STRING)    Pike_error("Bad argument 2 to gdbm->store()\n");       if (args > 2) { -  if (sp[2-args].type != T_INT) { +  if (TYPEOF(sp[2-args]) != T_INT) {    Pike_error("Bad argument 3 to gdbm->store()\n");    }    if (sp[2-args].u.integer) {    method = GDBM_INSERT;    }    }       if(!THIS->dbf)    Pike_error("GDBM database not open.\n");