--- lib/Search/TokyoDystopia.pm 2008/08/18 18:44:47 20 +++ lib/Search/TokyoDystopia.pm 2008/08/18 18:53:39 22 @@ -34,6 +34,7 @@ tcidbout tcidbget tcidbsearch +tcidbsearch2 IDBSSUBSTR IDBSPREFIX IDBSSUFFIX @@ -43,6 +44,7 @@ IDBSTOKSUF tcidbiterinit tcidbiternext +tcidbsync ); =head1 NAME @@ -122,7 +124,7 @@ =head2 tcidbsearch - my @ids = tcidbsearch( $idb, $word, IDBSSUBSTR ) + my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR ); =cut @@ -136,6 +138,10 @@ IDBSTOKSUF => 6, # token suffix matching }; +=head2 tcidbsearch2 + + my $ids = tcidbsearch2( $idb, $expr ); + =head2 tcidbiterinit my $success = tcidbiterinit( $idb ); @@ -144,6 +150,10 @@ my $id = tcidbiternext( $idb ); +=head2 tcidbsync + + my $success = tcidbsync( $idb ); + =cut =head1 KNOWN BUGS