/[Search-Estraier]/trunk/Estraier.pm

This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!

Diff of /trunk/Estraier.pm

Parent Directory | Revision Log | View Patch Patch

-revision 14 by dpavlin,
Wed Jan  4 21:51:01 2006 UTC
+revision 24 by dpavlin,
Thu Jan  5 14:33:05 2006 UTC
 Line 4 
 use 5.008;
  use strict;
  use warnings;
- require Exporter;
- our @ISA = qw(Exporter);
- our %EXPORT_TAGS = ( 'all' => [ qw(
- ) ] );
- our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
- our @EXPORT = qw(
- );
  our $VERSION = '0.00';
- use Carp;
  =head1 NAME
  Search::Estraier - pure perl module to use Hyper Estraier search engine
-Line 41 
 implementation. It also includes methods
+Line 27 
 implementation. It also includes methods
  =cut
+ =head2 _s
+ Remove multiple whitespaces from string, as well as whitespaces at beginning or end
+  my $text = $self->_s(" this  is a text  ");
+  $text = 'this is a text';
+ =cut
+ sub _s {
+         my $text = $_[1] || return;
+         $text =~ s/\s\s+/ /gs;
+         $text =~ s/^\s+//;
+         $text =~ s/\s+$//;
+         return $text;
+ }
  package Search::Estraier::Document;
  use Carp qw/croak confess/;
+ use Search::Estraier;
+ our @ISA = qw/Search::Estraier/;
  =head1 Search::Estraier::Document
  This class implements Document which is collection of attributes
  (key=value), vectors (also key value) display text and hidden text.
- Document for HyperEstraier
  =head2 new
  Create new document, empty or from draft.
-Line 128 
 sub add_attr {
+Line 132 
 sub add_attr {
          while (my ($name, $value) = each %{ $attrs }) {
                  if (! defined($value)) {
-                         delete( $self->{attrs}->{_s($name)} );
+                         delete( $self->{attrs}->{ $self->_s($name) } );
                  } else {
-                         $self->{attrs}->{_s($name)} = _s($value);
+                         $self->{attrs}->{ $self->_s($name) } = $self->_s($value);
                  }
          }
-Line 151 
 sub add_text {
+Line 155 
 sub add_text {
          my $text = shift;
          return unless defined($text);
-         push @{ $self->{dtexts} }, _s($text);
+         push @{ $self->{dtexts} }, $self->_s($text);
  }
-Line 168 
 sub add_hidden_text {
+Line 172 
 sub add_hidden_text {
          my $text = shift;
          return unless defined($text);
-         push @{ $self->{htexts} }, _s($text);
+         push @{ $self->{htexts} }, $self->_s($text);
  }
  =head2 id
-Line 280 
 Empty document object
+Line 284 
 Empty document object
    $doc->delete;
+ This function is addition to original Ruby API, and since it was included in C wrappers it's here as a
+ convinience. Document objects which go out of scope will be destroyed
+ automatically.
  =cut
  sub delete {
-Line 295 
 sub delete {
+Line 303 
 sub delete {
  }
- =head2 _s
- Remove multiple whitespaces from string, as well as whitespaces at beginning or end
+ package Search::Estraier::Condition;
-  my $text = _s(" this  is a text  ");
+ use Carp qw/confess croak/;
-  $text = 'this is a text';
+ use Search::Estraier;
+ our @ISA = qw/Search::Estraier/;
+ =head1 Search::Estraier::Condition
+ =head2 new
+   my $cond = new Search::HyperEstraier::Condition;
  =cut
- sub _s {
+ sub new {
-         my $text = shift || return;
+         my $class = shift;
-         $text =~ s/\s\s+/ /gs;
+         my $self = {};
-         $text =~ s/^\s+//;
+         bless($self, $class);
-         $text =~ s/\s+$//;
-         return $text;
+         $self->{max} = -1;
+         $self->{options} = 0;
+         $self ? return $self : return undef;
  }
+ =head2 set_phrase
+   $cond->set_phrase('search phrase');
+ =cut
+ sub set_phrase {
+         my $self = shift;
+         $self->{phrase} = $self->_s( shift );
+ }
+ =head2 add_attr
+   $cond->add_attr('@URI STRINC /~dpavlin/');
+ =cut
+ sub add_attr {
+         my $self = shift;
+         my $attr = shift || return;
+         push @{ $self->{attrs} }, $self->_s( $attr );
+ }
+ =head2 set_order
+   $cond->set_order('@mdate NUMD');
+ =cut
+ sub set_order {
+         my $self = shift;
+         $self->{order} = shift;
+ }
+ =head2 set_max
+   $cond->set_max(42);
+ =cut
+ sub set_max {
+         my $self = shift;
+         my $max = shift;
+         croak "set_max needs number" unless ($max =~ m/^\d+$/);
+         $self->{max} = $max;
+ }
+ =head2 set_options
+   $cond->set_options( SURE => 1 );
+ =cut
+ my $options = {
+         # check N-gram keys skipping by three
+         SURE => 1 << 0,
+         # check N-gram keys skipping by two
+         USUAL => 1 << 1,
+         # without TF-IDF tuning
+         FAST => 1 << 2,
+         # with the simplified phrase
+         AGITO => 1 << 3,
+         # check every N-gram key
+         NOIDF => 1 << 4,
+         # check N-gram keys skipping by one
+         SIMPLE => 1 << 10,
+ };
+ sub set_options {
+         my $self = shift;
+         my $option = shift;
+         confess "unknown option" unless ($options->{$option});
+         $self->{options} ||= $options->{$option};
+ }
+ =head2 phrase
+ Return search phrase.
+   print $cond->phrase;
+ =cut
+ sub phrase {
+         my $self = shift;
+         return $self->{phrase};
+ }
+ =head2 order
+ Return search result order.
+   print $cond->order;
+ =cut
+ sub order {
+         my $self = shift;
+         return $self->{order};
+ }
+ =head2 attrs
+ Return search result attrs.
+   my @cond_attrs = $cond->attrs;
+ =cut
+ sub attrs {
+         my $self = shift;
+         #croak "attrs return array, not scalar" if (! wantarray);
+         return @{ $self->{attrs} };
+ }
+ =head2 max
+ Return maximum number of results.
+   print $cond->max;
+ C<-1> is returned for unitialized value, C<0> is unlimited.
+ =cut
+ sub max {
+         my $self = shift;
+         return $self->{max};
+ }
+ =head2 options
+ Return options for this condition.
+   print $cond->options;
+ Options are returned in numerical form.
+ =cut
+ sub options {
+         my $self = shift;
+         return $self->{options};
+ }
+ package Search::Estraier::ResultDocument;
+ use Carp qw/croak/;
+ #use Search::Estraier;
+ #our @ISA = qw/Search::Estraier/;
+ =head1 Search::Estraier::ResultDocument
+ =head2 new
+   my $rdoc = new Search::HyperEstraier::ResultDocument(
+         uri => 'http://localhost/document/uri/42',
+         attrs => {
+                 foo => 1,
+                 bar => 2,
+         },
+         snippet => 'this is a text of snippet'
+         keywords => 'this\tare\tkeywords'
+   );
+ =cut
+ sub new {
+         my $class = shift;
+         my $self = {@_};
+         bless($self, $class);
+         foreach my $f (qw/uri attrs snippet keywords/) {
+                 croak "missing $f for ResultDocument" unless defined($self->{$f});
+         }
+         $self ? return $self : return undef;
+ }
+ =head2 uri
+ Return URI of result document
+   print $rdoc->uri;
+ =cut
+ sub uri {
+         my $self = shift;
+         return $self->{uri};
+ }
+ =head2 attr_names
+ Returns array with attribute names from result document object.
+   my @attrs = $rdoc->attr_names;
+ =cut
+ sub attr_names {
+         my $self = shift;
+         croak "attr_names return array, not scalar" if (! wantarray);
+         return sort keys %{ $self->{attrs} };
+ }
+ =head2 attr
+ Returns value of an attribute.
+   my $value = $rdoc->attr( 'attribute' );
+ =cut
+ sub attr {
+         my $self = shift;
+         my $name = shift || return;
+         return $self->{attrs}->{ $name };
+ }
+ =head2 snippet
+ Return snippet from result document
+   print $rdoc->snippet;
+ =cut
+ sub snippet {
+         my $self = shift;
+         return $self->{snippet};
+ }
+ =head2 keywords
+ Return keywords from result document
+   print $rdoc->keywords;
+ =cut
+ sub keywords {
+         my $self = shift;
+         return $self->{keywords};
+ }
  package Search::Estraier::Master;
-Line 326 
 Controll node master. This requires user
+Line 592 
 Controll node master. This requires user
  {
          package RequestAgent;
-         @ISA = qw(LWP::UserAgent);
+         our @ISA = qw(LWP::UserAgent);
          sub new {
                  my $self = LWP::UserAgent::new(@_);
-Line 387 
 Dobrica Pavlinusic, E<lt>dpavlin@rot13.o
+Line 653 
 Dobrica Pavlinusic, E<lt>dpavlin@rot13.o
  =head1 COPYRIGHT AND LICENSE
- Copyright (C) 2005 by Dobrica Pavlinusic
+ Copyright (C) 2005-2006 by Dobrica Pavlinusic
  This library is free software; you can redistribute it and/or modify
  it under the GPL v2 or later.

 Legend:



Removed from v.14
 


changed lines


 
Added in v.24
 Legend:



Removed from v.14
 


changed lines


 
Added in v.24
-Removed from v.14
+Added in v.24

	ViewVC Help
Powered by ViewVC 1.1.26