--- TokyoDystopia.xs	2008/08/18 15:35:18	14
+++ TokyoDystopia.xs	2008/08/18 17:45:56	17
@@ -114,3 +114,30 @@
 OUTPUT:
 	RETVAL
 
+
+int
+tcidbout(idb, id)
+	void *	idb
+	int	id
+CODE:
+	RETVAL = tcidbout(idb, id);
+OUTPUT:
+	RETVAL
+
+
+void
+tcidbget(idb, id)
+	void *	idb
+	int	id
+PREINIT:
+	char *vbuf;
+PPCODE:
+	vbuf = tcidbget(idb, id);
+	if(vbuf){
+	  XPUSHs(sv_2mortal(newSVpvn(vbuf, strlen(vbuf))));
+	  tcfree(vbuf);
+	} else {
+	  XPUSHs((SV *)&PL_sv_undef);
+	}
+	XSRETURN(1);
+