/[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

Contents of /lib/Search/TokyoDystopia.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 14 - (show annotations)
Mon Aug 18 15:35:18 2008 UTC (15 years, 7 months ago) by dpavlin
File size: 1648 byte(s)
tcidbput
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 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
37
38 Search::TokyoDystopia - XS bindings for Tokyo Dystopia
39
40 =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
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;

  ViewVC Help
Powered by ViewVC 1.1.26