/[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 11 by dpavlin, Sun Aug 17 23:57:02 2008 UTC revision 28 by dpavlin, Mon Aug 18 19:18:53 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    tcidbfsiz
54  );  );
55    
56  =head1 NAME  =head1 NAME
# Line 42  If you don't prevent it, it will export Line 63  If you don't prevent it, it will export
63    
64  =head2 tcidberrmsg  =head2 tcidberrmsg
65    
66    my $message = Search::TokyoDystopia::tcidberrmsg( $ecode );    my $message = tcidberrmsg( $ecode );
67    
68  =head2 tcidbnew  =head2 tcidbnew
69    
70    my $idb = Search::TokyoDystopia::tcidbnew;    my $idb = tcidbnew;
71    
72  =head2 tcidbdel  =head2 tcidbdel
73    
74    Search::TokyoDystopia::tcidbdel( $idb );    tcidbdel( $idb );
75    
76  =head2 tcidbecode  =head2 tcidbecode
77    
78    my $ecode = Search::TokyoDystopia::tcidbecode( $idb );    my $ecode = tcidbecode( $idb );
79    
80  =head2 tcidbtune  =head2 tcidbtune
81    
82    my $success = Search::TokyoDystopia::tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE || IDBTDEFLATE );    my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
83    
84  =cut  =cut
85    
# Line 70  use constant { Line 91  use constant {
91    
92  =head2 tcidbsetcache  =head2 tcidbsetcache
93    
94    my $success = Search::TokyoDystopia::tcidbsetcache( $idb, $icsiz, $lcnum );    my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
95    
96  =head2 tcidbsetfwmmax  =head2 tcidbsetfwmmax
97    
98    my $success = Search::TokyoDystopia::tcidbsetfwmmax( $idb, $fwnum );    my $success = tcidbsetfwmmax( $idb, $fwnum );
99    
100  =head2 tcidbopen  =head2 tcidbopen
101    
102    Search::TokyoDystopia::tcidbopen( $idb, 'casket', IDBOTRUNC ), 1, 'tcidbopen' );    my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
103    
104  =cut  =cut
105    
# Line 91  use constant { Line 112  use constant {
112          IDBOLCKNB => 1 << 5,          IDBOLCKNB => 1 << 5,
113  };  };
114    
115    =head2 tcidbclose
116    
117      my $success = tcidbclose( $idb );
118    
119    =head2 tcidbput
120    
121      my $success = tcidbput( $idb, $id, $text );
122    
123    =head2 tcidbout
124      
125      my $success = tcidbout( $idb, $id );
126    
127    =head2 tcidbget
128      
129      my $text = tcidbget( $idb, $id );
130    
131    =head2 tcidbsearch
132    
133      my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR );
134    
135    =cut
136    
137    use constant {
138            IDBSSUBSTR => 0,                # substring matching
139            IDBSPREFIX => 1,                # prefix matching
140            IDBSSUFFIX => 2,                # suffix matching
141            IDBSFULL => 3,          # full matching
142            IDBSTOKEN => 4,         # token matching
143            IDBSTOKPRE => 5,                # token prefix matching
144            IDBSTOKSUF => 6,                # token suffix matching
145    };
146    
147    =head2 tcidbsearch2
148    
149      my $ids = tcidbsearch2( $idb, $expr );
150    
151    =head2 tcidbiterinit
152    
153      my $success = tcidbiterinit( $idb );
154    
155    =head2 tcidbiternext
156    
157      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
188    
189  =head1 KNOWN BUGS  =head1 KNOWN BUGS
190    
191  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.11  
changed lines
  Added in v.28
  ViewVC Help
Powered by ViewVC 1.1.26