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

Contents of /lib/Search/TokyoDystopia.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 23 - (show annotations)
Mon Aug 18 18:55:38 2008 UTC (15 years, 7 months ago) by dpavlin
File size: 2597 byte(s)
tcidboptimize
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 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 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 );
50
51 =head1 NAME
52
53 Search::TokyoDystopia - XS bindings for Tokyo Dystopia
54
55 =head1 EXPORTS
56
57 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 my $message = tcidberrmsg( $ecode );
62
63 =head2 tcidbnew
64
65 my $idb = tcidbnew;
66
67 =head2 tcidbdel
68
69 tcidbdel( $idb );
70
71 =head2 tcidbecode
72
73 my $ecode = tcidbecode( $idb );
74
75 =head2 tcidbtune
76
77 my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
78
79 =cut
80
81 use constant {
82 IDBTLARGE => 1 << 0,
83 IDBTDEFLATE => 1 << 1,
84 IDBTTCBS => 1 << 2,
85 };
86
87 =head2 tcidbsetcache
88
89 my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
90
91 =head2 tcidbsetfwmmax
92
93 my $success = tcidbsetfwmmax( $idb, $fwnum );
94
95 =head2 tcidbopen
96
97 my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
98
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 =head2 tcidbclose
111
112 my $success = tcidbclose( $idb );
113
114 =head2 tcidbput
115
116 my $success = tcidbput( $idb, $id, $text );
117
118 =head2 tcidbout
119
120 my $success = tcidbout( $idb, $id );
121
122 =head2 tcidbget
123
124 my $text = tcidbget( $idb, $id );
125
126 =head2 tcidbsearch
127
128 my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR );
129
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 =head2 tcidbsearch2
143
144 my $ids = tcidbsearch2( $idb, $expr );
145
146 =head2 tcidbiterinit
147
148 my $success = tcidbiterinit( $idb );
149
150 =head2 tcidbiternext
151
152 my $id = tcidbiternext( $idb );
153
154 =head2 tcidbsync
155
156 my $success = tcidbsync( $idb );
157
158 =head2 tcidboptimize
159
160 my $success = tcidboptimize( $idb );
161
162 =cut
163
164 =head1 KNOWN BUGS
165
166 Low-level functions often just die when called on invalid (or deleted) database
167
168 =cut
169
170 1;

  ViewVC Help
Powered by ViewVC 1.1.26