--- TokyoDystopia.xs	2008/08/17 22:17:40	1
+++ TokyoDystopia.xs	2008/08/17 22:35:45	5
@@ -17,3 +17,44 @@
 	RETVAL = tchdberrmsg(ecode);
 OUTPUT:
 	RETVAL
+
+
+void *
+tcidbnew()
+PREINIT:
+	TCIDB *db;
+CODE:
+	db = tcidbnew();
+	RETVAL = db;
+OUTPUT:
+	RETVAL
+
+
+void
+tcidbdel(db)
+	void *	db
+CODE:
+	tcidbdel(db);
+
+
+int
+tcidbecode(db)
+	void *	db
+CODE:
+	RETVAL = tcidbecode(db);
+OUTPUT:
+	RETVAL
+
+
+int
+tcidbtune(db, ernum, etnum, iusiz, opts)
+	void *	db
+	int	ernum
+	int	etnum
+	int	iusiz
+	int	opts
+CODE:
+	RETVAL = tcidbtune(db, ernum, etnum, iusiz, opts);
+OUTPUT:
+	RETVAL
+