/[Search-TokyoDystopia]/lib/Search/TokyoDystopia.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Search/TokyoDystopia.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 20 by dpavlin, Mon Aug 18 18:44:47 2008 UTC revision 28 by dpavlin, Mon Aug 18 19:18:53 2008 UTC
# Line 34  tcidbput Line 34  tcidbput
34  tcidbout  tcidbout
35  tcidbget  tcidbget
36  tcidbsearch  tcidbsearch
37    tcidbsearch2
38  IDBSSUBSTR  IDBSSUBSTR
39  IDBSPREFIX  IDBSPREFIX
40  IDBSSUFFIX  IDBSSUFFIX
# Line 43  IDBSTOKPRE Line 44  IDBSTOKPRE
44  IDBSTOKSUF  IDBSTOKSUF
45  tcidbiterinit  tcidbiterinit
46  tcidbiternext  tcidbiternext
47    tcidbsync
48    tcidboptimize
49    tcidbvanish
50    tcidbcopy
51    tcidbpath
52    tcidbrnum
53    tcidbfsiz
54  );  );
55    
56  =head1 NAME  =head1 NAME
# Line 122  use constant { Line 130  use constant {
130    
131  =head2 tcidbsearch  =head2 tcidbsearch
132    
133    my @ids = tcidbsearch( $idb, $word, IDBSSUBSTR )    my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR );
134    
135  =cut  =cut
136    
# Line 136  use constant { Line 144  use constant {
144          IDBSTOKSUF => 6,                # token suffix matching          IDBSTOKSUF => 6,                # token suffix matching
145  };  };
146    
147    =head2 tcidbsearch2
148    
149      my $ids = tcidbsearch2( $idb, $expr );
150    
151  =head2 tcidbiterinit  =head2 tcidbiterinit
152    
153    my $success = tcidbiterinit( $idb );    my $success = tcidbiterinit( $idb );
# Line 144  use constant { Line 156  use constant {
156    
157    my $id = tcidbiternext( $idb );    my $id = tcidbiternext( $idb );
158    
159    =head2 tcidbsync
160    
161      my $success = tcidbsync( $idb );
162    
163    =head2 tcidboptimize
164    
165      my $success = tcidboptimize( $idb );
166    
167    =head2 tcidbvanish
168    
169      my $success = tcidbvanish( $idb );
170    
171    =head2 tcidbcopy
172    
173      my $success = tcidbcopy( $idb, '/path/of/copy' );
174    
175    =head2 tcidbpath
176    
177      my $path = tcidbpath( $idb );
178    
179    =head2 tcidbrnum
180    
181      my $number_of_records = tcidbrnum( $idb );
182    
183    =head2 tcidbfsiz
184    
185      my $file_size = tcidbfsiz( $idb );
186    
187  =cut  =cut
188    
189  =head1 KNOWN BUGS  =head1 KNOWN BUGS
Legend:
Removed from v.20  
changed lines
  Added in v.28
  ViewVC Help
Powered by ViewVC 1.1.26