Rev 6465 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6465 | Rev 6470 | ||
---|---|---|---|
Line 127... | Line 127... | ||
127 | !endif |
127 | !endif |
128 | srch=!translate internal `'".+-_()[]{};: to $ $ in $search_keywords |
128 | srch=!translate internal `'".+-_()[]{};: to $ $ in $search_keywords |
129 | srch=!replace , by , $ in $srch |
129 | srch=!replace , by , $ in $srch |
130 | srch=!deaccent $srch |
130 | srch=!deaccent $srch |
131 | srch=!lower $srch |
131 | srch=!lower $srch |
132 | !!do not want to use the misprints and suffix |
132 | !!do not want to use the misprints and suffix for the moment |
133 | 133 | Gotcnt=0 |
|
134 | !if $search_category |
134 | !if $search_category iswordof A C |
135 | !read search.C |
135 | !read search.C |
- | 136 | dictionary=bases/sys/words.$search_lang |
|
- | 137 | translator_unknown=leave |
|
- | 138 | srch=!exec translator $srch |
|
- | 139 | srch=!trim $srch |
|
136 | gotmC=$gotm |
140 | gotmC=$gotm |
137 | gotwC=$gotw |
141 | gotwC=$gotw |
138 | gotcntC=$gotcnt |
142 | gotcntC=$gotcnt |
139 | gottC=$gott |
143 | gottC=$gott |
140 | gotdC=$gotd |
144 | gotdC=$gotd |
- | 145 | Gotcnt=$[$Gotcnt + $gotcnt] |
|
141 | !endif |
146 | !endif |
142 | 147 | ||
143 | !! correct misprints in the search words |
148 | !! correct misprints in the search words |
144 | dictionary=bases/sys/words.$search_lang |
149 | dictionary=bases/sys/words.$search_lang |
145 | suffix_dictionary=bases/sys/suffix.$search_lang |
150 | suffix_dictionary=bases/sys/suffix.$search_lang |
Line 155... | Line 160... | ||
155 | package=$search_package\ |
160 | package=$search_package\ |
156 | search_lang=$search_lang |
161 | search_lang=$search_lang |
157 | 162 | ||
158 | !if $search_category isin LPS |
163 | !if $search_category isin LPS |
159 | !changeto search.$search_category |
164 | !changeto search.$search_category |
160 | !endif |
165 | !endif |
161 | 166 | ||
162 | !if $search_category isin A |
167 | !if $search_category isin A |
163 | !read search.S |
168 | !read search.S |
164 | gotmS=$gotm |
169 | gotmS=$gotm |
165 | gotwS=$gotw |
170 | gotwS=$gotw |
166 | gotcntS=$gotcnt |
171 | gotcntS=$gotcnt |
167 | gottS=$gott |
172 | gottS=$gott |
168 | gotdS=$gotd |
173 | gotdS=$gotd |
- | 174 | Gotcnt=$[$Gotcnt + $gotcnt] |
|
169 | !endif |
175 | !endif |
170 | 176 | ||
171 | !read search.ker $search_lang |
177 | !read search.ker $search_lang |
- | 178 | Gotcnt=$[$Gotcnt + $gotcnt] |
|
172 | :bailout |
179 | :bailout |
173 | 180 | ||
174 | translator_switch=leaveline |
181 | translator_switch=leaveline |
175 | !bound list_start between integer 0 and 10000 default 0 |
182 | !bound list_start between integer 0 and 10000 default 0 |
176 | list_start=$[$list_batch*floor($list_start/$list_batch)] |
183 | list_start=$[$list_batch*floor($list_start/$list_batch)] |
- | 184 | ||
177 | !if |
185 | !if $Gotcnt=0 |
178 | gottype=popular |
186 | gottype=popular |
179 | # sp=!replace internal wimshome/public_html/ by $ in $search_package1 |
187 | # sp=!replace internal wimshome/public_html/ by $ in $search_package1 |
180 | # gotM=!sh head -c 10000 $sp/pop/$search_category.$search_lang |
188 | # gotM=!sh head -c 10000 $sp/pop/$search_category.$search_lang |
181 | gotM=!record 0 of $search_package1/pop/$search_category.$search_lang |
189 | gotM=!record 0 of $search_package1/pop/$search_category.$search_lang |
182 | gotM=!line 1 to $gotlim of $gotM |
190 | gotM=!line 1 to $gotlim of $gotM |