--- TokyoDystopia.xs 2008/08/17 22:54:54 8 +++ TokyoDystopia.xs 2008/08/18 15:35:18 14 @@ -11,7 +11,7 @@ PROTOTYPES: DISABLE const char * -errmsg(ecode) +tcidberrmsg(ecode) int ecode CODE: RETVAL = tcidberrmsg(ecode); @@ -20,51 +20,97 @@ void * -new() +tcidbnew() PREINIT: - TCIDB *db; + TCIDB *idb; CODE: - db = tcidbnew(); - RETVAL = db; + idb = tcidbnew(); + RETVAL = idb; OUTPUT: RETVAL void -del(db) - void * db +tcidbdel(idb) + void * idb CODE: - tcidbdel(db); + tcidbdel(idb); int -ecode(db) - void * db +tcidbecode(idb) + void * idb CODE: - RETVAL = tcidbecode(db); + RETVAL = tcidbecode(idb); OUTPUT: RETVAL int -tune(db, ernum, etnum, iusiz, opts) - void * db +tcidbtune(idb, ernum, etnum, iusiz, opts) + void * idb int ernum int etnum int iusiz int opts CODE: - RETVAL = tcidbtune(db, ernum, etnum, iusiz, opts); + RETVAL = tcidbtune(idb, ernum, etnum, iusiz, opts); OUTPUT: RETVAL int -setcache(db, icsiz, lcnum) - void * db +tcidbsetcache(idb, icsiz, lcnum) + void * idb int icsiz int lcnum CODE: - RETVAL = tcidbsetcache(db, icsiz, lcnum); + RETVAL = tcidbsetcache(idb, icsiz, lcnum); OUTPUT: RETVAL + + +int +tcidbsetfwmmax(idb, fwmax) + void * idb + int fwmax +CODE: + RETVAL = tcidbsetfwmmax(idb, fwmax); +OUTPUT: + RETVAL + + +int +tcidbopen(idb, path, omode) + void * idb + char * path + int omode +CODE: + RETVAL = tcidbopen(idb, path, omode); +OUTPUT: + RETVAL + + +int +tcidbclose(idb) + void * idb +CODE: + RETVAL = tcidbclose(idb); +OUTPUT: + RETVAL + + +int +tcidbput(idb, id, val) + void * idb + int id + SV * val +PREINIT: + STRLEN vsiz; + const char *vbuf; +CODE: + vbuf = SvPV(val, vsiz); + RETVAL = tcidbput(idb, id, vbuf); +OUTPUT: + RETVAL +