1%%
2%%  Initializes upper/lowercase lookup tables for ISO Latin 2
3%%
4if (_slang_utf8_ok == 0)
5{
6.   0  64 1 { dup define_case } _for
7.  65  90 1 { dup 32 + define_case } _for
8.  91  96 1 { dup define_case } _for
9. 123 160 1 { dup define_case } _for
10. 161 177 define_case
11. 162 162 define_case
12. 163 179 define_case
13. 164 164 define_case
14. 165 166 1 { dup 16 + define_case } _for
15. 167 168 1 { dup define_case } _for
16. 169 172 1 { dup 16 + define_case } _for
17. 173 173 define_case
18. 174 175 1 { dup 16 + define_case } _for
19. 176 176 define_case
20. 178 178 define_case
21. 180 180 define_case
22. 183 183 define_case
23. 184 184 define_case
24. 189 189 define_case
25. 192 222 1 { dup 32 + define_case } _for
26. 215 215 define_case
27. 223 223 define_case
28. 247 247 define_case
29. 255 255 define_case
30
31define_word (strcat ("0-9a-zA-Z\d161\d163\d165-\d166\d169-\d172",
32		      "\d174\d175\d177\d179\d181\d182\d185-\d188",
33		      "\d190-\d214\d216-\d222\d224-\d246\d248-\d254"));
34}
35