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