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 |