Context Navigation

Changeset 211 for Search-Namazu

Timestamp:

03/24/06 11:48:53 (6 years ago)

Author:

knok

Message:

Return status info.

Location:

Search-Namazu/trunk

Files:

r210	r211
	1	2006-03-24 NOKUBI Takatsugu <knok@daionet.gr.jp>
	2
	3	* Namazu.{xs,pm}: Removed errono.
	4	Added a global variable "status".
	5	Added nmz_getstatus() func.
	6
1	7	2006-03-23 NOKUBI Takatsugu <knok@daionet.gr.jp>
2	8

r210	r211
213	213	sub NMZ_ERR_RESULT_EXCEEDED { return -4; }
214	214
215		# errno
216		sub ERR_TOO_MUCH_HIT { return 6; }
	215	# nmz_stat
	216	sub NMZ_SUCCESS { return 0; }
	217	sub NMZ_ERR_TOO_MUCH_HIT { return 6; }
217	218
218	219	sub Search {
…	…
283	284	my @hlists = call_search_main($query);
284	285
285		my $~~errno = nmz_geterrno~~();
286		if ($~~errno == ERR_TOO_MUCH_HIT~~) {
287		return ~~NMZ_ERR_RESULT_EXCEEDED~~;
	286	my $status = nmz_getstatus();
	287	if ($status != NMZ_SUCCESS) {
	288	return $status;
288	289	}
289	290

r210	r211
43	43	#include <namazu/util.h>
44	44	#include <namazu/wakati.h>
45		~~#include <errno.h>~~
46	45	#ifdef __cplusplus
47	46	}
…	…
57	56
58	57	#define SEARCH_NAMAZU_FIELDS 5
	58
	59	static int status = 0;
59	60
60	61	MODULE = Search::Namazu PACKAGE = Search::Namazu
…	…
74	75	char result[SEARCH_NAMAZU_FIELDS][BUFSIZE];
75	76
	77	status = 0;
76	78	qstr = SvPV(query, PL_na);
77	79	nmz_codeconv_query(qstr);
…	…
79	81	retar = newAV();
80	82	hlist = nmz_search(cqstr);
	83	status = hlist.stat;
81	84	for (i = 0; i < hlist.num; i ++) {
82	85	SV *ohlist = perl_eval_pv("new Search::Namazu::Result", TRUE);
…	…
176	179
177	180	int
178		nmz_get~~errno~~()
	181	nmz_getstatus()
179	182	CODE:
180		RETVAL = ~~errno~~
	183	RETVAL = status;
181	184	OUTPUT:
182	185	RETVAL