Namazu library module for perl.

9 files changed, 163 insertions, 0 deletions

diff --git a/databases/Makefile b/databases/Makefile
index adb4823d825a..90ebc877a23f 100644
--- a/databases/Makefile
+++ b/databases/Makefile
@@ -100,6 +100,7 @@
     SUBDIR += p5-Mysql
     SUBDIR += p5-Pg
     SUBDIR += p5-SQL-Statement
+    SUBDIR += p5-Search-Namazu
     SUBDIR += p5-Tangram
     SUBDIR += p5-Text-Query-SQL
     SUBDIR += p5-Tie-DBI
diff --git a/databases/p5-Search-Namazu/Makefile b/databases/p5-Search-Namazu/Makefile
new file mode 100644
index 000000000000..7384a34df9f6
--- /dev/null
+++ b/databases/p5-Search-Namazu/Makefile
@@ -0,0 +1,24 @@
+# New ports collection makefile for:	Search::Namazu
+# Date created:		18 Jun 2002
+# Whom:			kuriyama
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Search-Namazu
+PORTVERSION=	0.91
+CATEGORIES=	databases perl5
+MASTER_SITES=	http://www.namazu.org/~knok/
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	ports@FreeBSD.org
+
+LIB_DEPENDS=	intl.2:${PORTSDIR}/devel/gettext \
+		nmz.5:${PORTSDIR}/databases/namazu2
+
+PERL_CONFIGURE=	YES
+CONFIGURE_ENV=	PREFIX=${PREFIX}
+MANPREFIX=	${PREFIX}/lib/perl5/${PERL_VERSION}
+MAN3=		Search::Namazu.3
+
+.include <bsd.port.mk>
diff --git a/databases/p5-Search-Namazu/distinfo b/databases/p5-Search-Namazu/distinfo
new file mode 100644
index 000000000000..935849ce6346
--- /dev/null
+++ b/databases/p5-Search-Namazu/distinfo
@@ -0,0 +1 @@
+MD5 (Search-Namazu-0.91.tar.gz) = 3579d1dbc7b7336dcae7718d6be0f4f6
diff --git a/databases/p5-Search-Namazu/files/patch-Namazu.pm b/databases/p5-Search-Namazu/files/patch-Namazu.pm
new file mode 100644
index 000000000000..e1734e90fd9a
--- /dev/null
+++ b/databases/p5-Search-Namazu/files/patch-Namazu.pm
@@ -0,0 +1,75 @@
+--- 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;
diff --git a/databases/p5-Search-Namazu/files/patch-Namazu.pod.ja b/databases/p5-Search-Namazu/files/patch-Namazu.pod.ja
new file mode 100644
index 000000000000..20c3c7f03e72
--- /dev/null
+++ b/databases/p5-Search-Namazu/files/patch-Namazu.pod.ja
@@ -0,0 +1,17 @@
+--- 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.
diff --git a/databases/p5-Search-Namazu/files/patch-Namazu.xs b/databases/p5-Search-Namazu/files/patch-Namazu.xs
new file mode 100644
index 000000000000..deda6f12cfb5
--- /dev/null
+++ b/databases/p5-Search-Namazu/files/patch-Namazu.xs
@@ -0,0 +1,35 @@
+--- 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);
diff --git a/databases/p5-Search-Namazu/pkg-comment b/databases/p5-Search-Namazu/pkg-comment
new file mode 100644
index 000000000000..a8d5b5fa998d
--- /dev/null
+++ b/databases/p5-Search-Namazu/pkg-comment
@@ -0,0 +1 @@
+Namazu library module for perl
diff --git a/databases/p5-Search-Namazu/pkg-descr b/databases/p5-Search-Namazu/pkg-descr
new file mode 100644
index 000000000000..3f629c50e520
--- /dev/null
+++ b/databases/p5-Search-Namazu/pkg-descr
@@ -0,0 +1,2 @@
+This module is an interface for Namazu library. Namazu is an implement
+of full text retrieval search system.
diff --git a/databases/p5-Search-Namazu/pkg-plist b/databases/p5-Search-Namazu/pkg-plist
new file mode 100644
index 000000000000..16166779a1b6
--- /dev/null
+++ b/databases/p5-Search-Namazu/pkg-plist
@@ -0,0 +1,7 @@
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Search/Namazu.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Search/Namazu/.packlist
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Search/Namazu/Namazu.bs
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Search/Namazu/Namazu.so
+@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Search/Namazu
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Search 2>/dev/null || true
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Search 2>/dev/null || true