1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-24 04:33:24 +00:00

Upgrade to 0.92 (this upgrade includes my patches).

This commit is contained in:
Jun Kuriyama 2002-06-19 10:29:35 +00:00
parent e8a0a89c61
commit 3dfbeca662
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=61549
5 changed files with 2 additions and 129 deletions

View File

@ -6,7 +6,7 @@
#
PORTNAME= Search-Namazu
PORTVERSION= 0.91
PORTVERSION= 0.92
CATEGORIES= databases perl5
MASTER_SITES= http://www.namazu.org/~knok/
PKGNAMEPREFIX= p5-

View File

@ -1 +1 @@
MD5 (Search-Namazu-0.91.tar.gz) = 3579d1dbc7b7336dcae7718d6be0f4f6
MD5 (Search-Namazu-0.92.tar.gz) = facae822cc7fd9340831a13d490f7e50

View File

@ -1,75 +0,0 @@
--- Namazu.pm.orig Tue Feb 19 14:02:48 2002
+++ Namazu.pm Tue Jun 18 17:53:11 2002
@@ -142,6 +142,18 @@
It returns ranking number.
+=head3 summary
+
+It returns summary.
+
+=head3 title
+
+It returns title.
+
+=head3 author
+
+It returns author.
+
=head1 COPYRIGHT
Copyright 1999,2000,2001,2002 NOKUBI Takatsugu All rights reserved.
@@ -277,15 +289,14 @@
}
sub set {
- my $self = shift;
- my $score = shift;
- my $uri = shift;
- my $date = shift;
- my $rank = shift;
+ my ($self, $score, $uri, $date, $rank, $summary, $title, $author) = @_;
$self->{score} = $score;
$self->{uri} = $uri;
$self->{date} = $date;
$self->{rank} = $rank;
+ $self->{summary} = $summary;
+ $self->{title} = $title;
+ $self->{author} = $author;
}
sub score {
@@ -322,6 +333,33 @@
$self->{'rank'} = $rank;
}
$self->{'rank'};
+}
+
+sub summary {
+ my $self = shift;
+ if (@_) {
+ my $summary = shift;
+ $self->{'summary'} = $summary;
+ }
+ $self->{'summary'};
+}
+
+sub title {
+ my $self = shift;
+ if (@_) {
+ my $title = shift;
+ $self->{'title'} = $title;
+ }
+ $self->{'title'};
+}
+
+sub author {
+ my $self = shift;
+ if (@_) {
+ my $author = shift;
+ $self->{'author'} = $author;
+ }
+ $self->{'author'};
}
1;

View File

@ -1,17 +0,0 @@
--- Namazu.pod.ja.orig Mon Feb 18 14:04:54 2002
+++ Namazu.pod.ja Tue Jun 18 16:24:02 2002
@@ -119,6 +119,14 @@
ランクを返します。
+=head3 summary
+
+サマリを返します。
+
+=head3 title
+
+タイトルを返します。
+
=head1 著作権 (COPYRIGHT)
Copyright 1999,2000,2001,2002 NOKUBI Takatsugu All rights reserved.

View File

@ -1,35 +0,0 @@
--- Namazu.xs.orig Tue Feb 19 14:01:26 2002
+++ Namazu.xs Tue Jun 18 17:56:53 2002
@@ -68,7 +68,7 @@
int i;
AV *retar;
NmzResult hlist;
- char result[BUFSIZE];
+ char result[4][BUFSIZE];
qstr = SvPV(query, PL_na);
strcpy(cqstr, qstr);
@@ -77,15 +77,21 @@
for (i = 0; i < hlist.num; i ++) {
SV *ohlist = perl_eval_pv("new Search::Namazu::Result", TRUE);
dSP;
- nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "uri", result);
+ nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "uri", result[0]);
+ nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "summary", result[1]);
+ nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "title", result[2]);
+ nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "author", result[3]);
ENTER;
SAVETMPS;
PUSHMARK(SP);
PUSHs(ohlist);
PUSHs(sv_2mortal(newSViv(hlist.data[i].score)));
- PUSHs(sv_2mortal(newSVpv(result, strlen(result))));
+ PUSHs(sv_2mortal(newSVpv(result[0], strlen(result[0]))));
PUSHs(sv_2mortal(newSViv(hlist.data[i].date)));
PUSHs(sv_2mortal(newSViv(hlist.data[i].rank)));
+ PUSHs(sv_2mortal(newSVpv(result[1], strlen(result[1]))));
+ PUSHs(sv_2mortal(newSVpv(result[2], strlen(result[2]))));
+ PUSHs(sv_2mortal(newSVpv(result[3], strlen(result[3]))));
PUTBACK;
perl_call_method("set", G_DISCARD);
av_push(retar, ohlist);