--- TokyoDystopia.xs	2008/08/18 18:57:26	24
+++ TokyoDystopia.xs	2008/08/18 19:07:04	27
@@ -237,3 +237,37 @@
 OUTPUT:
 	RETVAL
 
+
+int
+tcidbcopy(idb, path)
+	void *	idb
+	char *	path
+CODE:
+	RETVAL = tcidbcopy(idb, path);
+OUTPUT:
+	RETVAL
+
+
+void
+tcidbpath(idb)
+	void *	idb
+PREINIT:
+	const char *path;
+PPCODE:
+	path = tcidbpath(idb);
+	if(path){
+	  XPUSHs(sv_2mortal(newSVpv(path, 0)));
+	} else {
+	  XPUSHs((SV *)&PL_sv_undef);
+	}
+	XSRETURN(1);
+
+
+double
+tcidbrnum(idb)
+	void *	idb
+CODE:
+	RETVAL = tcidbrnum(idb);
+OUTPUT:
+	RETVAL
+