/[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 34 by dpavlin, Tue Sep 9 13:17:16 2008 UTC revision 37 by dpavlin, Sun Sep 21 20:16:39 2008 UTC
# Line 94  tcqdbpath Line 94  tcqdbpath
94  tcqdbtnum  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    JDBSTOKEN
128    JDBSTOKPRE
129    JDBSTOKSUF
130    tcjdbiterinit
131    tcjdbiternext
132    tcjdbsync
133    tcjdboptimize
134    tcjdbvanish
135    tcjdbcopy
136    tcjdbpath
137    tcjdbtnum
138    tcjdbfsiz
139  );  );
140    
141  =head1 NAME  =head1 NAME
# Line 155  use constant { Line 197  use constant {
197    
198  =head2 tcidbsetfwmmax  =head2 tcidbsetfwmmax
199    
200    my $success = tcidbsetfwmmax( $idb, $fwnum );    my $success = tcidbsetfwmmax( $idb, $fwmax );
201    
202  =head2 tcidbopen  =head2 tcidbopen
203    
# Line 246  use constant { Line 288  use constant {
288    
289  =cut  =cut
290    
291    
292  =head1 Q-gram API  =head1 Q-gram API
293    
294  =head2 tcqdberrmsg  =head2 tcqdberrmsg
# Line 282  use constant { Line 325  use constant {
325    
326  =head2 tcqdbsetfwmmax  =head2 tcqdbsetfwmmax
327    
328    my $success = tcqdbsetfwmmax( $qdb, $fwnum );    my $success = tcqdbsetfwmmax( $qdb, $fwmax );
329    
330  =head2 tcqdbopen  =head2 tcqdbopen
331    
# Line 355  use constant { Line 398  use constant {
398    
399    my $file_size = tcqdbtsiz( $qdb );    my $file_size = tcqdbtsiz( $qdb );
400    
401    
402    =head1 Simple API
403    
404    =head2 tcjdberrmsg
405    
406      my $message = tcjdberrmsg( $ecode );
407    
408    =head2 tcjdbnew
409    
410      my $jdb = tcjdbnew;
411    
412    =head2 tcjdbdel
413    
414      tcjdbdel( $jdb );
415    
416    =head2 tcjdbecode
417    
418      my $ecode = tcjdbecode( $jdb );
419    
420    =head2 tcjdbtune
421    
422      my $success = tcjdbtune( $jdb, $ernum, $etnum, $iusiz, JDBTLARGE | JDBTDEFLATE );
423    
424    =cut
425    
426    use constant {
427            JDBTLARGE => 1 << 0,
428            JDBTDEFLATE => 1 << 1,
429            JDBTTCBS => 1 << 2,
430    };
431    
432    =head2 tcjdbsetcache
433    
434      my $success = tcjdbsetcache( $jdb, $icsiz, $lcnum );
435    
436    =head2 tcjdbsetfwmmax
437    
438      my $success = tcjdbsetfwmmax( $jdb, $fwmax );
439    
440    =head2 tcjdbopen
441    
442      my $success = tcjdbopen( $jdb, 'casket', JDBOWRITER | JDBOCREAT );
443    
444    =cut
445    
446    use constant {
447            JDBOREADER => 1 << 0,
448            JDBOWRITER => 1 << 1,
449            JDBOCREAT => 1 << 2,
450            JDBOTRUNC => 1 << 3,
451            JDBONOLCK => 1 << 4,
452            JDBOLCKNB => 1 << 5,
453    };
454    
455    =head2 tcjdbclose
456    
457      my $success = tcjdbclose( $jdb );
458    
459    =head2 tcjdbput
460    
461      my $success = tcjdbput( $jdb, $id, $text );
462    
463    =head2 tcjdbput2
464    
465      my $success = tcjdbput2( $jdb, $id, $text );
466    
467    =head2 tcjdbout
468      
469      my $success = tcjdbout( $jdb, $id );
470    
471    =head2 tcjdbsearch
472    
473      my $ids = tcjdbsearch( $jdb, $word, JDBSSUBSTR );
474    
475    =cut
476    
477    use constant {
478            JDBSSUBSTR => 0,        # substring matching
479            JDBSPREFIX => 1,        # prefix matching
480            JDBSUFFIX => 2,         # suffix matching
481            JDBFULL => 3,           # full matching
482            JDBTOKEN => 4,          # token matching
483            JDBTOKPRE => 5,         # token prefix matching
484            JDBTOKSUF => 6,         # token suffix matching
485    };
486    
487    =head2 tcjdbsync
488    
489      my $success = tcjdbsync( $jdb );
490    
491    =head2 tcjdboptimize
492    
493      my $success = tcjdboptimize( $jdb );
494    
495    =head2 tcjdbvanish
496    
497      my $success = tcjdbvanish( $jdb );
498    
499    =head2 tcjdbcopy
500    
501      my $success = tcjdbcopy( $jdb, '/path/of/copy' );
502    
503    =head2 tcjdbpath
504    
505      my $path = tcjdbpath( $jdb );
506    
507    =head2 tcjdbtnum
508    
509      my $number_of_records = tcjdbtnum( $jdb );
510    
511    =head2 tcjdbfsiz
512    
513      my $file_size = tcjdbtsiz( $jdb );
514    
515  =cut  =cut
516    
517  =head1 KNOWN BUGS  =head1 KNOWN BUGS

Legend:
Removed from v.34  
changed lines
  Added in v.37

  ViewVC Help
Powered by ViewVC 1.1.26