/[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 22 by dpavlin, Mon Aug 18 18:53:39 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    );
49    
50  =head1 NAME  =head1 NAME
51    
52  Search::TokyoDystopia - XS bindings for Tokyo Dystopia  Search::TokyoDystopia - XS bindings for Tokyo Dystopia
53    
54  =head1 METHODS  =head1 EXPORTS
55    
56    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      my $message = tcidberrmsg( $ecode );
61    
62    =head2 tcidbnew
63    
64      my $idb = tcidbnew;
65    
66    =head2 tcidbdel
67    
68      tcidbdel( $idb );
69    
70    =head2 tcidbecode
71    
72      my $ecode = tcidbecode( $idb );
73    
74    =head2 tcidbtune
75    
76      my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
77    
78    =cut
79    
80    use constant {
81            IDBTLARGE => 1 << 0,
82            IDBTDEFLATE => 1 << 1,
83            IDBTTCBS => 1 << 2,
84    };
85    
86    =head2 tcidbsetcache
87    
88      my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
89    
90    =head2 tcidbsetfwmmax
91    
92      my $success = tcidbsetfwmmax( $idb, $fwnum );
93    
94    =head2 tcidbopen
95    
96      my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
97    
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    =head2 tcidbclose
110    
111      my $success = tcidbclose( $idb );
112    
113    =head2 tcidbput
114    
115      my $success = tcidbput( $idb, $id, $text );
116    
117    =head2 tcidbout
118      
119      my $success = tcidbout( $idb, $id );
120    
121    =head2 tcidbget
122      
123      my $text = tcidbget( $idb, $id );
124    
125    =head2 tcidbsearch
126    
127      my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR );
128    
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    =head2 tcidbsearch2
142    
143      my $ids = tcidbsearch2( $idb, $expr );
144    
145    =head2 tcidbiterinit
146    
147      my $success = tcidbiterinit( $idb );
148    
149    =head2 tcidbiternext
150    
151      my $id = tcidbiternext( $idb );
152    
153    =head2 tcidbsync
154    
155      my $success = tcidbsync( $idb );
156    
157  =cut  =cut
158    
Legend:
Removed from v.5  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.26