/[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

Annotation of /lib/Search/TokyoDystopia.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 23 - (hide annotations)
Mon Aug 18 18:55:38 2008 UTC (15 years, 7 months ago) by dpavlin
File size: 2597 byte(s)
tcidboptimize
1 dpavlin 1 package Search::TokyoDystopia;
2    
3     use strict;
4     use warnings;
5    
6     require Exporter;
7     require XSLoader;
8     use base qw(Exporter);
9     our $VERSION = '0.00';
10     our $debug = 0;
11     XSLoader::load('Search::TokyoDystopia', $VERSION);
12    
13 dpavlin 10 our @EXPORT = qw(
14     tcidberrmsg
15     tcidbnew
16     tcidbdel
17     tcidbnew
18     tcidbecode
19     tcidbtune
20     IDBTLARGE
21     IDBTDEFLATE
22     IDBTTCBS
23     tcidbsetcache
24     tcidbsetfwmmax
25     tcidbopen
26     IDBOREADER
27     IDBOWRITER
28     IDBOCREAT
29     IDBOTRUNC
30     IDBONOLCK
31     IDBOLCKNB
32 dpavlin 11 tcidbclose
33 dpavlin 14 tcidbput
34 dpavlin 15 tcidbout
35 dpavlin 17 tcidbget
36 dpavlin 18 tcidbsearch
37 dpavlin 22 tcidbsearch2
38 dpavlin 18 IDBSSUBSTR
39     IDBSPREFIX
40     IDBSSUFFIX
41     IDBSFULL
42     IDBSTOKEN
43     IDBSTOKPRE
44     IDBSTOKSUF
45 dpavlin 19 tcidbiterinit
46 dpavlin 20 tcidbiternext
47 dpavlin 21 tcidbsync
48 dpavlin 23 tcidboptimize
49 dpavlin 10 );
50    
51 dpavlin 1 =head1 NAME
52    
53     Search::TokyoDystopia - XS bindings for Tokyo Dystopia
54    
55 dpavlin 10 =head1 EXPORTS
56 dpavlin 1
57 dpavlin 10 If you don't prevent it, it will export all kind of stuff into your namespace to cut down on typing.
58    
59     =head2 tcidberrmsg
60    
61 dpavlin 12 my $message = tcidberrmsg( $ecode );
62 dpavlin 10
63     =head2 tcidbnew
64    
65 dpavlin 12 my $idb = tcidbnew;
66 dpavlin 10
67     =head2 tcidbdel
68    
69 dpavlin 12 tcidbdel( $idb );
70 dpavlin 10
71     =head2 tcidbecode
72    
73 dpavlin 12 my $ecode = tcidbecode( $idb );
74 dpavlin 10
75     =head2 tcidbtune
76    
77 dpavlin 13 my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
78 dpavlin 10
79 dpavlin 1 =cut
80    
81 dpavlin 10 use constant {
82     IDBTLARGE => 1 << 0,
83     IDBTDEFLATE => 1 << 1,
84     IDBTTCBS => 1 << 2,
85     };
86    
87     =head2 tcidbsetcache
88    
89 dpavlin 12 my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
90 dpavlin 10
91     =head2 tcidbsetfwmmax
92    
93 dpavlin 12 my $success = tcidbsetfwmmax( $idb, $fwnum );
94 dpavlin 10
95     =head2 tcidbopen
96    
97 dpavlin 13 my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
98 dpavlin 10
99     =cut
100    
101     use constant {
102     IDBOREADER => 1 << 0,
103     IDBOWRITER => 1 << 1,
104     IDBOCREAT => 1 << 2,
105     IDBOTRUNC => 1 << 3,
106     IDBONOLCK => 1 << 4,
107     IDBOLCKNB => 1 << 5,
108     };
109    
110 dpavlin 12 =head2 tcidbclose
111    
112     my $success = tcidbclose( $idb );
113    
114 dpavlin 14 =head2 tcidbput
115    
116 dpavlin 17 my $success = tcidbput( $idb, $id, $text );
117 dpavlin 14
118 dpavlin 16 =head2 tcidbout
119    
120     my $success = tcidbout( $idb, $id );
121    
122 dpavlin 17 =head2 tcidbget
123    
124     my $text = tcidbget( $idb, $id );
125    
126 dpavlin 18 =head2 tcidbsearch
127    
128 dpavlin 22 my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR );
129 dpavlin 18
130     =cut
131    
132     use constant {
133     IDBSSUBSTR => 0, # substring matching
134     IDBSPREFIX => 1, # prefix matching
135     IDBSSUFFIX => 2, # suffix matching
136     IDBSFULL => 3, # full matching
137     IDBSTOKEN => 4, # token matching
138     IDBSTOKPRE => 5, # token prefix matching
139     IDBSTOKSUF => 6, # token suffix matching
140     };
141    
142 dpavlin 22 =head2 tcidbsearch2
143    
144     my $ids = tcidbsearch2( $idb, $expr );
145    
146 dpavlin 19 =head2 tcidbiterinit
147    
148 dpavlin 20 my $success = tcidbiterinit( $idb );
149 dpavlin 19
150 dpavlin 20 =head2 tcidbiternext
151    
152     my $id = tcidbiternext( $idb );
153    
154 dpavlin 21 =head2 tcidbsync
155    
156     my $success = tcidbsync( $idb );
157    
158 dpavlin 23 =head2 tcidboptimize
159    
160     my $success = tcidboptimize( $idb );
161    
162 dpavlin 19 =cut
163    
164 dpavlin 5 =head1 KNOWN BUGS
165 dpavlin 1
166 dpavlin 5 Low-level functions often just die when called on invalid (or deleted) database
167    
168     =cut
169    
170 dpavlin 1 1;

  ViewVC Help
Powered by ViewVC 1.1.26