/[wait]/cvs-head/lib/WAIT/Wais.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 /cvs-head/lib/WAIT/Wais.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 10 by ulpfr, Fri Apr 28 15:40:52 2000 UTC revision 20 by cvs2svn, Tue May 9 11:29:45 2000 UTC
# Line 1  Line 1 
 #!/usr/bin/perl  
1  #                              -*- Mode: Perl -*-  #                              -*- Mode: Perl -*-
2  # $Basename: Wais.pm $  # $Basename: Wais.pm $
3  # $Revision: 1.3 $  # $Revision: 1.5 $
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
5  # Created On      : Mon Sep 16 11:08:04 1996  # Created On      : Mon Sep 16 11:08:04 1996
6  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
7  # Last Modified On: Wed Nov  5 17:34:02 1997  # Last Modified On: Sat Apr 15 15:51:49 2000
8  # Language        : CPerl  # Language        : CPerl
 # Update Count    : 156  
 # Status          : Unknown, Use with caution!  
 #  
 # (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.  
9  #  #
10    # (C) Copyright 1997-2000, Ulrich Pfeifer
11  #  #
12    
13  package WAIT::Wais;  package WAIT::Wais;
# Line 90  sub Retrieve { Line 86  sub Retrieve {
86    my %parm = @_;    my %parm = @_;
87    my $result = new WAIT::Wais::Result;    my $result = new WAIT::Wais::Result;
88    my $tb = _table($parm{database});    my $tb = _table($parm{database});
89      
90    unless (defined $tb) {    unless (defined $tb) {
91      $result->add(Tag => 'document', Error => 'Could not open database');      $result->add(Tag => 'document', Error => 'Could not open database');
92      return $result;      return $result;
# Line 190  sub new { Line 186  sub new {
186    my $type = shift;    my $type = shift;
187    my %par  = @_;    my %par  = @_;
188    my $self = {'header' => [], 'diagnostics' => [], 'text' => ''};    my $self = {'header' => [], 'diagnostics' => [], 'text' => ''};
189      
190    bless $self, $type;    bless $self, $type;
191  }  }
192    
# Line 213  sub _header { Line 209  sub _header {
209    } else {    } else {
210      $types = [keys %FORMATTER];      $types = [keys %FORMATTER];
211    }    }
212      
213    [$score, $lines, $length, $headline, $types,    [$score, $lines, $length, $headline, $types,
214     WAIT::Wais::Docid->new('wait',$database, $did)];     WAIT::Wais::Docid->new('wait',$database, $did)];
215  }  }
# Line 223  sub add { Line 219  sub add {
219    my %parm = @_;    my %parm = @_;
220    my $tag  = $parm{Tag};    my $tag  = $parm{Tag};
221    my $docid;    my $docid;
222      
223    if ($parm{Postings}) {    if ($parm{Postings}) {
224      my @result;      my @result;
225      my @left  = @{$self->{'header'}};      my @left  = @{$self->{'header'}};
# Line 266  sub add { Line 262  sub add {
262    
263  sub diagnostics {  sub diagnostics {
264    my $self = shift;    my $self = shift;
265      
266    @{$self->{'diagnostics'}};    @{$self->{'diagnostics'}};
267  }  }
268    
269  sub header {  sub header {
270    my $self = shift;    my $self = shift;
271      
272    @{$self->{'header'}};    @{$self->{'header'}};
273  }  }
274    
275  sub text {  sub text {
276    my $self = shift;    my $self = shift;
277      
278    $self->{'text'};    $self->{'text'};
279  }  }
280    
Legend:
Removed from v.10  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.26