Subversion Repositories Kolibri OS

Rev

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

Rev 9659 Rev 9674
Line 26... Line 26...
26 
 
 26 
 
27 
    EOL_CRLF* = 0; EOL_LF* = 1; EOL_CR* = 2;
 27 
    EOL_CRLF* = 0; EOL_LF* = 1; EOL_CR* = 2;
Line 28... Line 28...
28 
    CR = 0DX; LF = 0AX;
 28 
    CR = 0DX; LF = 0AX;
29 
 
 29 
 
Line 30... Line 30...
30 
TYPE
 30 
TYPE
Line 31... Line 31...
31 
    CP = ARRAY 256 OF INTEGER;
 31 
    CP* = ARRAY 256 OF INTEGER;
32 
 
 32 
 
33 
    tEOL* = ARRAY 3 OF WCHAR;
 33 
    tEOL* = ARRAY 3 OF WCHAR;
34 
 
 34 
 
Line 35... Line 35...
35 
VAR
 35 
VAR
36 
    cpW1251*, cp866*: CP;
 36 
    cp1251*, cp866*: CP;
Line 115... Line 115...
115 
    FOR i := 0 TO 65535 DO
 115 
    FOR i := 0 TO 65535 DO
116 
        UNI[i, CP866] := UNDEF;
 116 
        UNI[i, CP866] := UNDEF;
117 
        UNI[i, W1251] := UNDEF
 117 
        UNI[i, W1251] := UNDEF
118 
    END;
 118 
    END;
119 
    FOR i := 0 TO 255 DO
 119 
    FOR i := 0 TO 255 DO
120 
        IF cpW1251[i] # UNDEF THEN
 120 
        IF cp1251[i] # UNDEF THEN
121 
            UNI[cpW1251[i], W1251] := i
 121 
            UNI[cp1251[i], W1251] := i
122 
        END;
 122 
        END;
123 
        IF cp866[i] # UNDEF THEN
 123 
        IF cp866[i] # UNDEF THEN
124 
            UNI[cp866[i], CP866] := i
 124 
            UNI[cp866[i], CP866] := i
125 
        END
 125 
        END
126 
    END
 126 
    END
Line 136... Line 136...
136 
    eolNames[EOL_CR]   := "CR";
 136 
    eolNames[EOL_CR]   := "CR";
137 
    names[CP866]   := "CP866";
 137 
    names[CP866]   := "CP866";
138 
    names[W1251]   := "Windows-1251";
 138 
    names[W1251]   := "Windows-1251";
139 
    names[UTF8]    := "UTF-8";
 139 
    names[UTF8]    := "UTF-8";
140 
    names[UTF8BOM] := "UTF-8-BOM";
 140 
    names[UTF8BOM] := "UTF-8-BOM";
141 
    InitW1251(cpW1251);
 141 
    InitW1251(cp1251);
142 
    InitCP866(cp866);
 142 
    InitCP866(cp866);
143 
    setUNI
 143 
    setUNI
144 
END Encodings.
 144 
END Encodings.
145 

            145