/[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 12 by dpavlin, Sun Aug 17 23:59:46 2008 UTC revision 27 by dpavlin, Mon Aug 18 19:07:04 2008 UTC
# Line 30  IDBOTRUNC Line 30  IDBOTRUNC
30  IDBONOLCK  IDBONOLCK
31  IDBOLCKNB  IDBOLCKNB
32  tcidbclose  tcidbclose
33    tcidbput
34    tcidbout
35    tcidbget
36    tcidbsearch
37    tcidbsearch2
38    IDBSSUBSTR
39    IDBSPREFIX
40    IDBSSUFFIX
41    IDBSFULL
42    IDBSTOKEN
43    IDBSTOKPRE
44    IDBSTOKSUF
45    tcidbiterinit
46    tcidbiternext
47    tcidbsync
48    tcidboptimize
49    tcidbvanish
50    tcidbcopy
51    tcidbpath
52    tcidbrnum
53  );  );
54    
55  =head1 NAME  =head1 NAME
# Line 58  If you don't prevent it, it will export Line 78  If you don't prevent it, it will export
78    
79  =head2 tcidbtune  =head2 tcidbtune
80    
81    my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE || IDBTDEFLATE );    my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
82    
83  =cut  =cut
84    
# Line 78  use constant { Line 98  use constant {
98    
99  =head2 tcidbopen  =head2 tcidbopen
100    
101    my $success = tcidbopen( $idb, 'casket', IDBOWRITER || IDBOCREAT );    my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
102    
103  =cut  =cut
104    
# Line 95  use constant { Line 115  use constant {
115    
116    my $success = tcidbclose( $idb );    my $success = tcidbclose( $idb );
117    
118    =head2 tcidbput
119    
120      my $success = tcidbput( $idb, $id, $text );
121    
122    =head2 tcidbout
123      
124      my $success = tcidbout( $idb, $id );
125    
126    =head2 tcidbget
127      
128      my $text = tcidbget( $idb, $id );
129    
130    =head2 tcidbsearch
131    
132      my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR );
133    
134    =cut
135    
136    use constant {
137            IDBSSUBSTR => 0,                # substring matching
138            IDBSPREFIX => 1,                # prefix matching
139            IDBSSUFFIX => 2,                # suffix matching
140            IDBSFULL => 3,          # full matching
141            IDBSTOKEN => 4,         # token matching
142            IDBSTOKPRE => 5,                # token prefix matching
143            IDBSTOKSUF => 6,                # token suffix matching
144    };
145    
146    =head2 tcidbsearch2
147    
148      my $ids = tcidbsearch2( $idb, $expr );
149    
150    =head2 tcidbiterinit
151    
152      my $success = tcidbiterinit( $idb );
153    
154    =head2 tcidbiternext
155    
156      my $id = tcidbiternext( $idb );
157    
158    =head2 tcidbsync
159    
160      my $success = tcidbsync( $idb );
161    
162    =head2 tcidboptimize
163    
164      my $success = tcidboptimize( $idb );
165    
166    =head2 tcidbvanish
167    
168      my $success = tcidbvanish( $idb );
169    
170    =head2 tcidbcopy
171    
172      my $success = tcidbcopy( $idb, '/path/of/copy' );
173    
174    =head2 tcidbpath
175    
176      my $path = tcidbpath( $idb );
177    
178    =head2 tcidbrnum
179    
180      my $number_of_records = tcidbrnum( $idb );
181    
182    =cut
183    
184  =head1 KNOWN BUGS  =head1 KNOWN BUGS
185    
186  Low-level functions often just die when called on invalid (or deleted) database  Low-level functions often just die when called on invalid (or deleted) database
Legend:
Removed from v.12  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.26