Changeset 26 for Search-Namazu
- Timestamp:
- 01/24/00 14:35:23 (12 years ago)
- Location:
- Search-Namazu/trunk
- Files:
-
- 3 modified
Legend:
- Unmodified
- Added
- Removed
-
Search-Namazu/trunk/ChangeLog
r21 r26 1 2000-01-24 NOKUBI Takatsugu <knok@daionet.gr.jp> 2 3 * Version 0.20. 4 * Namazu.{pm,xs}: Adapted to new library symbols (nmz_ prefix). 5 1 6 1999-12-08 NOKUBI Takatsugu <knok@daionet.gr.jp> 2 7 -
Search-Namazu/trunk/Namazu.pm
r21 r26 78 78 # %EXPORT_TAGS = (all => [qw()]); 79 79 80 $VERSION = '0. 02';80 $VERSION = '0.10'; 81 81 82 82 bootstrap Search::Namazu $VERSION; … … 98 98 my $sortmeth = $args{'sortMethod'}; 99 99 my $sortord = $args{'sortOrder'}; 100 my $config = $args{'config'};101 100 my $lang = $args{'lang'}; 102 101 my $query = $args{'query'}; 103 102 104 # initialize libnamazu... (not implemented yet.) 105 106 if (defined $config) { 107 load_conf($config); 108 } 103 # initialize 109 104 110 105 if (! defined $index) { … … 171 166 } 172 167 173 package Search::Namazu:: HList;168 package Search::Namazu::Result; 174 169 175 170 sub new { -
Search-Namazu/trunk/Namazu.xs
r21 r26 34 34 #include "libnamazu.h" 35 35 #include "codeconv.h" 36 #include "conf.h"37 36 #include "field.h" 38 37 #include "hlist.h" … … 64 63 char result[BUFSIZE]; 65 64 66 uniq_idxnames();67 expand_idxname_aliases();68 complete_idxnames();65 nmz_uniq_idxnames(); 66 nmz_expand_idxname_aliases(); 67 nmz_complete_idxnames(); 69 68 70 69 qstr = SvPV(query, na); 71 70 strcpy(cqstr, qstr); 72 codeconv_query(cqstr);71 nmz_codeconv_query(cqstr); 73 72 retar = newAV(); 74 73 hlist = nmz_search(cqstr); 75 74 for (i = 0; i < hlist.num; i ++) { 76 SV *ohlist = perl_eval_pv("new Search::Namazu:: HList", TRUE);75 SV *ohlist = perl_eval_pv("new Search::Namazu::Result", TRUE); 77 76 SV *tmp; 78 get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "uri", result);77 nmz_get_field_data(hlist.data[i].idxid, hlist.data[i].docid, "uri", result); 79 78 PUSHMARK(SP); 80 79 XPUSHs(ohlist); … … 92 91 av_push(retar, ohlist); 93 92 } 94 free_hlist(hlist);93 nmz_free_hlist(hlist); 95 94 EXTEND(SP, hlist.num); 96 95 for (i = 0; i < hlist.num; i ++) { 97 96 XPUSHs(av_pop(retar)); 98 97 } 99 free_idxnames(); 100 free_aliases(); 101 free_replaces(); 98 nmz_free_internal(); 102 99 103 100 int … … 110 107 CODE: 111 108 tmp = SvPV(index, na); 112 RETVAL = add_index(tmp);109 RETVAL = nmz_add_index(tmp); 113 110 114 111 OUTPUT: … … 118 115 nmz_sortbydate() 119 116 CODE: 120 set_sortmethod(SORT_BY_SCORE);117 nmz_set_sortmethod(SORT_BY_SCORE); 121 118 122 119 void 123 120 nmz_sortbyscore() 124 121 CODE: 125 set_sortmethod(SORT_BY_DATE);122 nmz_set_sortmethod(SORT_BY_DATE); 126 123 127 124 void 128 125 nmz_sortbyfield() 129 126 CODE: 130 set_sortmethod(SORT_BY_FIELD);127 nmz_set_sortmethod(SORT_BY_FIELD); 131 128 132 129 void 133 130 nmz_descendingsort() 134 131 CODE: 135 set_sortorder(ASCENDING);132 nmz_set_sortorder(ASCENDING); 136 133 137 134 void 138 135 nmz_ascendingsort() 139 136 CODE: 140 set_sortorder(DESCENDING); 141 142 int 143 nmz_setconfig(conf) 144 SV *conf 145 146 PREINIT: 147 char *tmp; 148 149 CODE: 150 tmp = SvPV(conf, na); 151 RETVAL = load_conf(tmp); 152 153 OUTPUT: 154 RETVAL 137 nmz_set_sortorder(DESCENDING); 155 138 156 139 int … … 163 146 CODE: 164 147 tmp = SvPV(lang, na); 165 RETVAL = set_lang(tmp);148 RETVAL = nmz_set_lang(tmp); 166 149 167 150 OUTPUT:
