Subversion Repositories Kolibri OS

Rev

Rev 8728 | Rev 9336 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8728 Rev 9073
Line 27... Line 27...
27 
TYPE
 27 
TYPE
28 
    CP = ARRAY 256 OF INTEGER;
 28 
    CP = ARRAY 256 OF INTEGER;
Line 29... Line 29...
29 
 
 29 
 
30 
VAR
 30 
VAR
- 
 
 31 
    cpW1251*, cp866*: CP;
31 
    cpW1251*, cp866*: CP;
 32 
    names*: ARRAY 4, 16 OF WCHAR;
Line 32... Line 33...
32 
    UNI*: ARRAY 65536, 2 OF INTEGER;
 33 
    UNI*: ARRAY 65536, 2 OF INTEGER;
33 
 
 34 
 
Line 119... Line 120...
119 
    END
 120 
    END
120 
END setUNI;
 121 
END setUNI;
Line 121... Line 122...
121 
 
 122 
 
- 
 
 123 
 
- 
 
 124 
BEGIN
- 
 
 125 
    names[CP866]   := "CP866";
- 
 
 126 
    names[W1251]   := "Windows-1251";
122 
 
 127 
    names[UTF8]    := "UTF-8";
123 
BEGIN
 128 
    names[UTF8BOM] := "UTF-8-BOM";
124 
    InitW1251(cpW1251);
 129 
    InitW1251(cpW1251);
125 
    InitCP866(cp866);
 130 
    InitCP866(cp866);
126 
    setUNI
 131 
    setUNI