/[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 25 by dpavlin, Mon Aug 18 19:01:00 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    tcidbsearch2
38    IDBSSUBSTR
39    IDBSPREFIX
40    IDBSSUFFIX
41    IDBSFULL
42    IDBSTOKEN
43    IDBSTOKPRE
44    IDBSTOKSUF
45    tcidbiterinit
46    tcidbiternext
47    tcidbsync
48    tcidboptimize
49    tcidbvanish
50    tcidbcopy
51  );  );
52    
53  =head1 NAME  =head1 NAME
# Line 42  If you don't prevent it, it will export Line 60  If you don't prevent it, it will export
60    
61  =head2 tcidberrmsg  =head2 tcidberrmsg
62    
63    my $message = Search::TokyoDystopia::tcidberrmsg( $ecode );    my $message = tcidberrmsg( $ecode );
64    
65  =head2 tcidbnew  =head2 tcidbnew
66    
67    my $idb = Search::TokyoDystopia::tcidbnew;    my $idb = tcidbnew;
68    
69  =head2 tcidbdel  =head2 tcidbdel
70    
71    Search::TokyoDystopia::tcidbdel( $idb );    tcidbdel( $idb );
72    
73  =head2 tcidbecode  =head2 tcidbecode
74    
75    my $ecode = Search::TokyoDystopia::tcidbecode( $idb );    my $ecode = tcidbecode( $idb );
76    
77  =head2 tcidbtune  =head2 tcidbtune
78    
79    my $success = Search::TokyoDystopia::tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE || IDBTDEFLATE );    my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
80    
81  =cut  =cut
82    
# Line 70  use constant { Line 88  use constant {
88    
89  =head2 tcidbsetcache  =head2 tcidbsetcache
90    
91    my $success = Search::TokyoDystopia::tcidbsetcache( $idb, $icsiz, $lcnum );    my $success = tcidbsetcache( $idb, $icsiz, $lcnum );
92    
93  =head2 tcidbsetfwmmax  =head2 tcidbsetfwmmax
94    
95    my $success = Search::TokyoDystopia::tcidbsetfwmmax( $idb, $fwnum );    my $success = tcidbsetfwmmax( $idb, $fwnum );
96    
97  =head2 tcidbopen  =head2 tcidbopen
98    
99    Search::TokyoDystopia::tcidbopen( $idb, 'casket', IDBOTRUNC ), 1, 'tcidbopen' );    my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
100    
101  =cut  =cut
102    
# Line 91  use constant { Line 109  use constant {
109          IDBOLCKNB => 1 << 5,          IDBOLCKNB => 1 << 5,
110  };  };
111    
112    =head2 tcidbclose
113    
114      my $success = tcidbclose( $idb );
115    
116    =head2 tcidbput
117    
118      my $success = tcidbput( $idb, $id, $text );
119    
120    =head2 tcidbout
121      
122      my $success = tcidbout( $idb, $id );
123    
124    =head2 tcidbget
125      
126      my $text = tcidbget( $idb, $id );
127    
128    =head2 tcidbsearch
129    
130      my $ids = tcidbsearch( $idb, $word, IDBSSUBSTR );
131    
132    =cut
133    
134    use constant {
135            IDBSSUBSTR => 0,                # substring matching
136            IDBSPREFIX => 1,                # prefix matching
137            IDBSSUFFIX => 2,                # suffix matching
138            IDBSFULL => 3,          # full matching
139            IDBSTOKEN => 4,         # token matching
140            IDBSTOKPRE => 5,                # token prefix matching
141            IDBSTOKSUF => 6,                # token suffix matching
142    };
143    
144    =head2 tcidbsearch2
145    
146      my $ids = tcidbsearch2( $idb, $expr );
147    
148    =head2 tcidbiterinit
149    
150      my $success = tcidbiterinit( $idb );
151    
152    =head2 tcidbiternext
153    
154      my $id = tcidbiternext( $idb );
155    
156    =head2 tcidbsync
157    
158      my $success = tcidbsync( $idb );
159    
160    =head2 tcidboptimize
161    
162      my $success = tcidboptimize( $idb );
163    
164    =head2 tcidbvanish
165    
166      my $success = tcidbvanish( $idb );
167    
168    =head2 tcidbcopy
169    
170      my $success = tcidbcopy( $idb, '/path/of/copy' );
171    
172    =cut
173    
174  =head1 KNOWN BUGS  =head1 KNOWN BUGS
175    
176  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.25
  ViewVC Help
Powered by ViewVC 1.1.26