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:
parent
e8a0a89c61
commit
3dfbeca662
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=61549
@ -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-
|
||||
|
@ -1 +1 @@
|
||||
MD5 (Search-Namazu-0.91.tar.gz) = 3579d1dbc7b7336dcae7718d6be0f4f6
|
||||
MD5 (Search-Namazu-0.92.tar.gz) = facae822cc7fd9340831a13d490f7e50
|
||||
|
@ -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;
|
@ -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.
|
@ -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);
|
Loading…
Reference in New Issue
Block a user