/[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 5 by dpavlin, Sun Aug 17 22:35:45 2008 UTC revision 27 by dpavlin, Mon Aug 18 19:07:04 2008 UTC
# Line 10  our $VERSION = '0.00'; Line 10  our $VERSION = '0.00';
10  our $debug = 0;  our $debug = 0;
11  XSLoader::load('Search::TokyoDystopia', $VERSION);  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    tcidbvanish
50    tcidbcopy
51    tcidbpath
52    tcidbrnum
53    );
54    
55  =head1 NAME  =head1 NAME
56    
57  Search::TokyoDystopia - XS bindings for Tokyo Dystopia  Search::TokyoDystopia - XS bindings for Tokyo Dystopia
58    
59  =head1 METHODS  =head1 EXPORTS
60    
61    If you don't prevent it, it will export all kind of stuff into your namespace to cut down on typing.
62    
63    =head2 tcidberrmsg
64    
65      my $message = tcidberrmsg( $ecode );
66    
67    =head2 tcidbnew
68    
69      my $idb = tcidbnew;
70    
71    =head2 tcidbdel
72    
73      tcidbdel( $idb );
74    
75    =head2 tcidbecode
76    
77      my $ecode = tcidbecode( $idb );
78    
79    =head2 tcidbtune
80    
81      my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
82    
83    =cut
84    
85    use constant {
86            IDBTLARGE => 1 << 0,
87            IDBTDEFLATE => 1 << 1,
88            IDBTTCBS => 1 << 2,
89    };
90    
91    =head2 tcidbsetcache
92    
93      my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
94    
95    =head2 tcidbsetfwmmax
96    
97      my $success = tcidbsetfwmmax( $idb, $fwnum );
98    
99    =head2 tcidbopen
100    
101      my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
102    
103    =cut
104    
105    use constant {
106            IDBOREADER => 1 << 0,
107            IDBOWRITER => 1 << 1,
108            IDBOCREAT => 1 << 2,
109            IDBOTRUNC => 1 << 3,
110            IDBONOLCK => 1 << 4,
111            IDBOLCKNB => 1 << 5,
112    };
113    
114    =head2 tcidbclose
115    
116      my $success = tcidbclose( $idb );
117    
118    =head2 tcidbput
119    
120      my $success = tcidbput( $idb, $id, $text );
121    
122    =head2 tcidbout
123      
124      my $success = tcidbout( $idb, $id );
125    
126    =head2 tcidbget
127      
128      my $text = tcidbget( $idb, $id );
129    
130    =head2 tcidbsearch
131    
132      my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR );
133    
134    =cut
135    
136    use constant {
137            IDBSSUBSTR => 0,                # substring matching
138            IDBSPREFIX => 1,                # prefix matching
139            IDBSSUFFIX => 2,                # suffix matching
140            IDBSFULL => 3,          # full matching
141            IDBSTOKEN => 4,         # token matching
142            IDBSTOKPRE => 5,                # token prefix matching
143            IDBSTOKSUF => 6,                # token suffix matching
144    };
145    
146    =head2 tcidbsearch2
147    
148      my $ids = tcidbsearch2( $idb, $expr );
149    
150    =head2 tcidbiterinit
151    
152      my $success = tcidbiterinit( $idb );
153    
154    =head2 tcidbiternext
155    
156      my $id = tcidbiternext( $idb );
157    
158    =head2 tcidbsync
159    
160      my $success = tcidbsync( $idb );
161    
162    =head2 tcidboptimize
163    
164      my $success = tcidboptimize( $idb );
165    
166    =head2 tcidbvanish
167    
168      my $success = tcidbvanish( $idb );
169    
170    =head2 tcidbcopy
171    
172      my $success = tcidbcopy( $idb, '/path/of/copy' );
173    
174    =head2 tcidbpath
175    
176      my $path = tcidbpath( $idb );
177    
178    =head2 tcidbrnum
179    
180      my $number_of_records = tcidbrnum( $idb );
181    
182  =cut  =cut
183    
Legend:
Removed from v.5  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.26