--- lib/Search/TokyoDystopia.pm 2008/08/18 18:32:55 19 +++ lib/Search/TokyoDystopia.pm 2008/08/18 19:04:10 26 @@ -34,6 +34,7 @@ tcidbout tcidbget tcidbsearch +tcidbsearch2 IDBSSUBSTR IDBSPREFIX IDBSSUFFIX @@ -42,6 +43,12 @@ IDBSTOKPRE IDBSTOKSUF tcidbiterinit +tcidbiternext +tcidbsync +tcidboptimize +tcidbvanish +tcidbcopy +tcidbpath ); =head1 NAME @@ -121,7 +128,7 @@ =head2 tcidbsearch - my @ids = tcidbsearch( $idb, $word, IDBSSUBSTR ) + my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR ); =cut @@ -135,9 +142,37 @@ IDBSTOKSUF => 6, # token suffix matching }; +=head2 tcidbsearch2 + + my $ids = tcidbsearch2( $idb, $expr ); + =head2 tcidbiterinit - my $success = tcidbiterinit; + my $success = tcidbiterinit( $idb ); + +=head2 tcidbiternext + + my $id = tcidbiternext( $idb ); + +=head2 tcidbsync + + my $success = tcidbsync( $idb ); + +=head2 tcidboptimize + + my $success = tcidboptimize( $idb ); + +=head2 tcidbvanish + + my $success = tcidbvanish( $idb ); + +=head2 tcidbcopy + + my $success = tcidbcopy( $idb, '/path/of/copy' ); + +=head2 tcidbpath + + my $path = tcidbpath( $idb ); =cut