/[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 11 by dpavlin, Sun Aug 17 23:57:02 2008 UTC revision 20 by dpavlin, Mon Aug 18 18:44:47 2008 UTC
# Line 30  IDBOTRUNC Line 30  IDBOTRUNC
30  IDBONOLCK  IDBONOLCK
31  IDBOLCKNB  IDBOLCKNB
32  tcidbclose  tcidbclose
33    tcidbput
34    tcidbout
35    tcidbget
36    tcidbsearch
37    IDBSSUBSTR
38    IDBSPREFIX
39    IDBSSUFFIX
40    IDBSFULL
41    IDBSTOKEN
42    IDBSTOKPRE
43    IDBSTOKSUF
44    tcidbiterinit
45    tcidbiternext
46  );  );
47    
48  =head1 NAME  =head1 NAME
# Line 42  If you don't prevent it, it will export Line 55  If you don't prevent it, it will export
55    
56  =head2 tcidberrmsg  =head2 tcidberrmsg
57    
58    my $message = Search::TokyoDystopia::tcidberrmsg( $ecode );    my $message = tcidberrmsg( $ecode );
59    
60  =head2 tcidbnew  =head2 tcidbnew
61    
62    my $idb = Search::TokyoDystopia::tcidbnew;    my $idb = tcidbnew;
63    
64  =head2 tcidbdel  =head2 tcidbdel
65    
66    Search::TokyoDystopia::tcidbdel( $idb );    tcidbdel( $idb );
67    
68  =head2 tcidbecode  =head2 tcidbecode
69    
70    my $ecode = Search::TokyoDystopia::tcidbecode( $idb );    my $ecode = tcidbecode( $idb );
71    
72  =head2 tcidbtune  =head2 tcidbtune
73    
74    my $success = Search::TokyoDystopia::tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE || IDBTDEFLATE );    my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
75    
76  =cut  =cut
77    
# Line 70  use constant { Line 83  use constant {
83    
84  =head2 tcidbsetcache  =head2 tcidbsetcache
85    
86    my $success = Search::TokyoDystopia::tcidbsetcache( $idb, $icsiz, $lcnum );    my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
87    
88  =head2 tcidbsetfwmmax  =head2 tcidbsetfwmmax
89    
90    my $success = Search::TokyoDystopia::tcidbsetfwmmax( $idb, $fwnum );    my $success = tcidbsetfwmmax( $idb, $fwnum );
91    
92  =head2 tcidbopen  =head2 tcidbopen
93    
94    Search::TokyoDystopia::tcidbopen( $idb, 'casket', IDBOTRUNC ), 1, 'tcidbopen' );    my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
95    
96  =cut  =cut
97    
# Line 91  use constant { Line 104  use constant {
104          IDBOLCKNB => 1 << 5,          IDBOLCKNB => 1 << 5,
105  };  };
106    
107    =head2 tcidbclose
108    
109      my $success = tcidbclose( $idb );
110    
111    =head2 tcidbput
112    
113      my $success = tcidbput( $idb, $id, $text );
114    
115    =head2 tcidbout
116      
117      my $success = tcidbout( $idb, $id );
118    
119    =head2 tcidbget
120      
121      my $text = tcidbget( $idb, $id );
122    
123    =head2 tcidbsearch
124    
125      my @ids = tcidbsearch( $idb, $word, IDBSSUBSTR )
126    
127    =cut
128    
129    use constant {
130            IDBSSUBSTR => 0,                # substring matching
131            IDBSPREFIX => 1,                # prefix matching
132            IDBSSUFFIX => 2,                # suffix matching
133            IDBSFULL => 3,          # full matching
134            IDBSTOKEN => 4,         # token matching
135            IDBSTOKPRE => 5,                # token prefix matching
136            IDBSTOKSUF => 6,                # token suffix matching
137    };
138    
139    =head2 tcidbiterinit
140    
141      my $success = tcidbiterinit( $idb );
142    
143    =head2 tcidbiternext
144    
145      my $id = tcidbiternext( $idb );
146    
147    =cut
148    
149  =head1 KNOWN BUGS  =head1 KNOWN BUGS
150    
151  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.11  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.26