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

  ViewVC Help
Powered by ViewVC 1.1.26