--- lib/Search/TokyoDystopia.pm 2008/08/18 17:27:11 16 +++ lib/Search/TokyoDystopia.pm 2008/08/18 18:55:38 23 @@ -32,6 +32,20 @@ tcidbclose tcidbput tcidbout +tcidbget +tcidbsearch +tcidbsearch2 +IDBSSUBSTR +IDBSPREFIX +IDBSSUFFIX +IDBSFULL +IDBSTOKEN +IDBSTOKPRE +IDBSTOKSUF +tcidbiterinit +tcidbiternext +tcidbsync +tcidboptimize ); =head1 NAME @@ -99,12 +113,54 @@ =head2 tcidbput - my $success = tcidbput( $idb, $id, $utf8_text ); + 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 tcidbsearch2 + + my $ids = tcidbsearch2( $idb, $expr ); + +=head2 tcidbiterinit + + my $success = tcidbiterinit( $idb ); + +=head2 tcidbiternext + + my $id = tcidbiternext( $idb ); + +=head2 tcidbsync + + my $success = tcidbsync( $idb ); + +=head2 tcidboptimize + + my $success = tcidboptimize( $idb ); + +=cut + =head1 KNOWN BUGS Low-level functions often just die when called on invalid (or deleted) database