/[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 1 by dpavlin, Sun Aug 17 22:17:40 2008 UTC revision 14 by dpavlin, Mon Aug 18 15:35:18 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    );
35    
36  =head1 NAME  =head1 NAME
37    
38  Search::TokyoDystopia - XS bindings for Tokyo Dystopia  Search::TokyoDystopia - XS bindings for Tokyo Dystopia
39    
40  =head1 METHODS  =head1 EXPORTS
41    
42    If you don't prevent it, it will export all kind of stuff into your namespace to cut down on typing.
43    
44    =head2 tcidberrmsg
45    
46      my $message = tcidberrmsg( $ecode );
47    
48    =head2 tcidbnew
49    
50      my $idb = tcidbnew;
51    
52    =head2 tcidbdel
53    
54      tcidbdel( $idb );
55    
56    =head2 tcidbecode
57    
58      my $ecode = tcidbecode( $idb );
59    
60    =head2 tcidbtune
61    
62      my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
63    
64  =cut  =cut
65    
66    use constant {
67            IDBTLARGE => 1 << 0,
68            IDBTDEFLATE => 1 << 1,
69            IDBTTCBS => 1 << 2,
70    };
71    
72    =head2 tcidbsetcache
73    
74      my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
75    
76    =head2 tcidbsetfwmmax
77    
78      my $success = tcidbsetfwmmax( $idb, $fwnum );
79    
80    =head2 tcidbopen
81    
82      my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
83    
84    =cut
85    
86    use constant {
87            IDBOREADER => 1 << 0,
88            IDBOWRITER => 1 << 1,
89            IDBOCREAT => 1 << 2,
90            IDBOTRUNC => 1 << 3,
91            IDBONOLCK => 1 << 4,
92            IDBOLCKNB => 1 << 5,
93    };
94    
95    =head2 tcidbclose
96    
97      my $success = tcidbclose( $idb );
98    
99    =head2 tcidbput
100    
101      my $success = tcidbput( $idb, $id, $utf8_text );
102    
103    =head1 KNOWN BUGS
104    
105    Low-level functions often just die when called on invalid (or deleted) database
106    
107    =cut
108    
109  1;  1;
Legend:
Removed from v.1  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.26