--- lib/Search/TokyoDystopia.pm	2008/08/17 23:59:46	12
+++ lib/Search/TokyoDystopia.pm	2008/08/18 18:48:33	21
@@ -30,6 +30,20 @@
 IDBONOLCK
 IDBOLCKNB
 tcidbclose
+tcidbput
+tcidbout
+tcidbget
+tcidbsearch
+IDBSSUBSTR
+IDBSPREFIX
+IDBSSUFFIX
+IDBSFULL
+IDBSTOKEN
+IDBSTOKPRE
+IDBSTOKSUF
+tcidbiterinit
+tcidbiternext
+tcidbsync
 );
 
 =head1 NAME
@@ -58,7 +72,7 @@
 
 =head2 tcidbtune
 
-  my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE || IDBTDEFLATE );
+  my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
 
 =cut
 
@@ -78,7 +92,7 @@
 
 =head2 tcidbopen
 
-  my $success = tcidbopen( $idb, 'casket', IDBOWRITER || IDBOCREAT );
+  my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
 
 =cut
 
@@ -95,6 +109,48 @@
 
   my $success = tcidbclose( $idb );
 
+=head2 tcidbput
+
+  my $success = tcidbput( $idb, $id, $text );
+
+=head2 tcidbout
+  
+  my $success = tcidbout( $idb, $id );
+
+=head2 tcidbget
+  
+  my $text = tcidbget( $idb, $id );
+
+=head2 tcidbsearch
+
+  my @ids = tcidbsearch( $idb, $word, IDBSSUBSTR )
+
+=cut
+
+use constant {
+	IDBSSUBSTR => 0,		# substring matching
+	IDBSPREFIX => 1,		# prefix matching
+	IDBSSUFFIX => 2,		# suffix matching
+	IDBSFULL => 3,		# full matching
+	IDBSTOKEN => 4,		# token matching
+	IDBSTOKPRE => 5,		# token prefix matching
+	IDBSTOKSUF => 6,		# token suffix matching
+};
+
+=head2 tcidbiterinit
+
+  my $success = tcidbiterinit( $idb );
+
+=head2 tcidbiternext
+
+  my $id = tcidbiternext( $idb );
+
+=head2 tcidbsync
+
+  my $success = tcidbsync( $idb );
+
+=cut
+
 =head1 KNOWN BUGS
 
 Low-level functions often just die when called on invalid (or deleted) database