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