/[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 16 by dpavlin, Mon Aug 18 17:27:11 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    );
36    
37  =head1 NAME  =head1 NAME
38    
39  Search::TokyoDystopia - XS bindings for Tokyo Dystopia  Search::TokyoDystopia - XS bindings for Tokyo Dystopia
40    
41  =head1 METHODS  =head1 EXPORTS
42    
43    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      my $message = tcidberrmsg( $ecode );
48    
49    =head2 tcidbnew
50    
51      my $idb = tcidbnew;
52    
53    =head2 tcidbdel
54    
55      tcidbdel( $idb );
56    
57    =head2 tcidbecode
58    
59      my $ecode = tcidbecode( $idb );
60    
61    =head2 tcidbtune
62    
63      my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
64    
65    =cut
66    
67    use constant {
68            IDBTLARGE => 1 << 0,
69            IDBTDEFLATE => 1 << 1,
70            IDBTTCBS => 1 << 2,
71    };
72    
73    =head2 tcidbsetcache
74    
75      my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
76    
77    =head2 tcidbsetfwmmax
78    
79      my $success = tcidbsetfwmmax( $idb, $fwnum );
80    
81    =head2 tcidbopen
82    
83      my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
84    
85  =cut  =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    =head2 tcidbclose
97    
98      my $success = tcidbclose( $idb );
99    
100    =head2 tcidbput
101    
102      my $success = tcidbput( $idb, $id, $utf8_text );
103    
104    =head2 tcidbout
105      
106      my $success = tcidbout( $idb, $id );
107    
108    =head1 KNOWN BUGS
109    
110    Low-level functions often just die when called on invalid (or deleted) database
111    
112    =cut
113    
114  1;  1;
Legend:
Removed from v.1  
changed lines
  Added in v.16
  ViewVC Help
Powered by ViewVC 1.1.26