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

  ViewVC Help
Powered by ViewVC 1.1.26