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