"Fossies" - the Fresh Open Source Software Archive

Member "jed-0.99-19/lib/dos852.sl" (14 Dec 2009, 1169 Bytes) of package /linux/misc/jed-0.99-19.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 %  Initializes upper/lowercase lookup tables for DOS code page 852.
    2 %  852 is the default code page for Czech, ...
    3 %  not complete! - Czech only (Petr Peringer <peringer@dcse.fee.vutbr.cz>)
    4 %
    5 .   0  64 1 { dup define_case } _for
    6 .  65  90 1 { dup 32 + define_case } _for
    7 .  91  96 1 { dup define_case } _for
    8 . 123 255 1 { dup define_case } _for
    9 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   10 . 0xB5 0xA0 define_case  % \'A   --> \'a
   11 . 0xAC 0x9F define_case  % \v{C} --> etc. in TeX sequences
   12 . 0xD2 0xD4 define_case  % \v{D}
   13 . 0xB7 0xD8 define_case  % \v{E}
   14 . 0x90 0x82 define_case  % \'E
   15 . 0xD6 0xA1 define_case  % \'I  
   16 . 0xD5 0xE5 define_case  % \v{N}
   17 . 0xE0 0xA2 define_case  % \'O
   18 . 0xFC 0xFD define_case  % \v{R}
   19 . 0xE6 0xE7 define_case  % \v{S}
   20 . 0x9B 0x9C define_case  % \v{T}
   21 . 0xDE 0x85 define_case  % \r{U}
   22 . 0xE9 0xA3 define_case  % \'U
   23 . 0xED 0xEC define_case  % \'Y
   24 . 0xA6 0xA7 define_case  % \v{Z}
   25 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   26 . "0-9a-zA-Z_\xB5\xA0\xAC\x9F\xD2\xD4\xB7\xD8\x90\x82\xD6\xA1\xD5\xE5\xE0\xA2\xFC\xFD\xE6\xE7\x9B\x9C\xDE\x85\xE9\xA3\xED\xEC\xA6\xA7"
   27 . define_word