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

  ViewVC Help
Powered by ViewVC 1.1.26