/[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 32 by dpavlin, Tue Sep 2 16:13:06 2008 UTC revision 42 by dpavlin, Sat Feb 14 17:56:02 2009 UTC
# Line 91  tcqdboptimize Line 91  tcqdboptimize
91  tcqdbvanish  tcqdbvanish
92  tcqdbcopy  tcqdbcopy
93  tcqdbpath  tcqdbpath
94  tcqdbrnum  tcqdbtnum
95  tcqdbfsiz  tcqdbfsiz
96    
97    tcjdberrmsg
98    tcjdbnew
99    tcjdbdel
100    tcjdbnew
101    tcjdbecode
102    tcjdbtune
103    JDBTLARGE
104    JDBTDEFLATE
105    JDBTTCBS
106    tcjdbsetcache
107    tcjdbsetfwmmax
108    tcjdbopen
109    JDBOREADER
110    JDBOWRITER
111    JDBOCREAT
112    JDBOTRUNC
113    JDBONOLCK
114    JDBOLCKNB
115    tcjdbclose
116    tcjdbput
117    tcjdbput2
118    tcjdbout
119    tcjdbget
120    tcjdbget2
121    tcjdbsearch
122    tcjdbsearch2
123    JDBSSUBSTR
124    JDBSPREFIX
125    JDBSSUFFIX
126    JDBSFULL
127    tcjdbiterinit
128    tcjdbiternext
129    tcjdbsync
130    tcjdboptimize
131    tcjdbvanish
132    tcjdbcopy
133    tcjdbpath
134    tcjdbrnum
135    tcjdbfsiz
136  );  );
137    
138  =head1 NAME  =head1 NAME
# Line 155  use constant { Line 194  use constant {
194    
195  =head2 tcidbsetfwmmax  =head2 tcidbsetfwmmax
196    
197    my $success = tcidbsetfwmmax( $idb, $fwnum );    my $success = tcidbsetfwmmax( $idb, $fwmax );
198    
199  =head2 tcidbopen  =head2 tcidbopen
200    
# Line 246  use constant { Line 285  use constant {
285    
286  =cut  =cut
287    
288    
289  =head1 Q-gram API  =head1 Q-gram API
290    
291  =head2 tcqdberrmsg  =head2 tcqdberrmsg
# Line 282  use constant { Line 322  use constant {
322    
323  =head2 tcqdbsetfwmmax  =head2 tcqdbsetfwmmax
324    
325    my $success = tcqdbsetfwmmax( $qdb, $fwnum );    my $success = tcqdbsetfwmmax( $qdb, $fwmax );
326    
327  =head2 tcqdbopen  =head2 tcqdbopen
328    
# Line 355  use constant { Line 395  use constant {
395    
396    my $file_size = tcqdbtsiz( $qdb );    my $file_size = tcqdbtsiz( $qdb );
397    
398    
399    =head1 Simple API
400    
401    =head2 tcjdberrmsg
402    
403      my $message = tcjdberrmsg( $ecode );
404    
405    =head2 tcjdbnew
406    
407      my $jdb = tcjdbnew;
408    
409    =head2 tcjdbdel
410    
411      tcjdbdel( $jdb );
412    
413    =head2 tcjdbecode
414    
415      my $ecode = tcjdbecode( $jdb );
416    
417    =head2 tcjdbtune
418    
419      my $success = tcjdbtune( $jdb, $ernum, $etnum, $iusiz, JDBTLARGE | JDBTDEFLATE );
420    
421    =cut
422    
423    use constant {
424            JDBTLARGE => 1 << 0,
425            JDBTDEFLATE => 1 << 1,
426            JDBTTCBS => 1 << 2,
427    };
428    
429    =head2 tcjdbsetcache
430    
431      my $success = tcjdbsetcache( $jdb, $icsiz, $lcnum );
432    
433    =head2 tcjdbsetfwmmax
434    
435      my $success = tcjdbsetfwmmax( $jdb, $fwmax );
436    
437    =head2 tcjdbopen
438    
439      my $success = tcjdbopen( $jdb, 'casket', JDBOWRITER | JDBOCREAT );
440    
441    =cut
442    
443    use constant {
444            JDBOREADER => 1 << 0,
445            JDBOWRITER => 1 << 1,
446            JDBOCREAT => 1 << 2,
447            JDBOTRUNC => 1 << 3,
448            JDBONOLCK => 1 << 4,
449            JDBOLCKNB => 1 << 5,
450    };
451    
452    =head2 tcjdbclose
453    
454      my $success = tcjdbclose( $jdb );
455    
456    =head2 tcjdbput
457    
458      my $success = tcjdbput( $jdb, $id, [ 'word', 'word2' ] );
459    
460    =head2 tcjdbput2
461    
462      my $success = tcjdbput2( $jdb, $id, $text );
463    
464    =head2 tcjdbout
465      
466      my $success = tcjdbout( $jdb, $id );
467    
468    =head2 tcjdbsearch
469    
470      my $ids = tcjdbsearch( $jdb, $word, JDBSSUBSTR );
471    
472    =head2 tcjdbsearch2
473    
474      my $ids = tcjdbsearch2( $jdb, $word );
475    
476    =cut
477    
478    use constant {
479            JDBSSUBSTR => 0,        # substring matching
480            JDBSPREFIX => 1,        # prefix matching
481            JDBSSUFFIX => 2,        # suffix matching
482            JDBSFULL   => 3,        # full matching
483    };
484    
485    =head2 tcjdbsync
486    
487      my $success = tcjdbsync( $jdb );
488    
489    =head2 tcjdboptimize
490    
491      my $success = tcjdboptimize( $jdb );
492    
493    =head2 tcjdbvanish
494    
495      my $success = tcjdbvanish( $jdb );
496    
497    =head2 tcjdbcopy
498    
499      my $success = tcjdbcopy( $jdb, '/path/of/copy' );
500    
501    =head2 tcjdbpath
502    
503      my $path = tcjdbpath( $jdb );
504    
505    =head2 tcjdbrnum
506    
507      my $number_of_records = tcjdbrnum( $jdb );
508    
509    =head2 tcjdbfsiz
510    
511      my $file_size = tcjdbtsiz( $jdb );
512    
513  =cut  =cut
514    
515  =head1 KNOWN BUGS  =head1 KNOWN BUGS
Legend:
Removed from v.32  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26