Subversion Repositories Kolibri OS

Rev

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

Rev 9708 Rev 9902
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2021, 2022 Anton Krotov
 2 
    Copyright 2021-2023 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
Line 4... Line 4...
4 
    This file is part of CEdit.
 4 
    This file is part of CEdit.
5 
 
 5 
 
Line 20... Line 20...
20 
MODULE Encodings;
 20 
MODULE Encodings;
Line 21... Line 21...
21 
 
 21 
 
22 
CONST
 22 
CONST
Line 23... Line 23...
23 
    CP866* = 0; CP1251* = 1; UTF8* = 2; UTF8BOM* = 3; (*UTF16LE* = 4;*)
 23 
    CP866* = 0; CP1251* = 1; UTF8* = 2; UTF8BOM* = 3; (*UTF16LE* = 4;*)
Line 24... Line 24...
24 
 
 24 
 
25 
    UNDEF* = -1;
 25 
    UNDEF* = ORD("?");
Line 26... Line 26...
26 
 
 26 
 
Line 33... Line 33...
33 
    tEOL* = ARRAY 3 OF WCHAR;
 33 
    tEOL* = ARRAY 3 OF WCHAR;
Line 34... Line 34...
34 
 
 34 
 
35 
VAR
 35 
VAR
36 
    cp1251*, cp866*: CP;
 36 
    cp1251*, cp866*: CP;
37 
    names*: ARRAY 4, 16 OF WCHAR;
 37 
    names*: ARRAY 4, 16 OF WCHAR;
Line 38... Line 38...
38 
    UNI*: ARRAY 65536, 2 OF INTEGER;
 38 
    UNI*: ARRAY 65536, 2 OF BYTE;
39 
 
 39 
 
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, CP1251] := UNDEF
 117 
        UNI[i, CP1251] := UNDEF
118 
    END;
 118 
    END;
119 
    FOR i := 0 TO 255 DO
 119 
    FOR i := 0 TO 255 DO
120 
        IF cp1251[i] # UNDEF THEN
 - 
 
121 
            UNI[cp1251[i], CP1251] := i
 120 
        UNI[cp1251[i], CP1251] := i;
122 
        END;
 - 
 
123 
        IF cp866[i] # UNDEF THEN
 - 
 
124 
            UNI[cp866[i], CP866] := i
 121 
        UNI[cp866[i], CP866] := i
125 
        END
 122 
    END
126 
    END
 - 
 
127 
END setUNI;
 123 
END setUNI;
Line 128... Line 124...
128 
 
 124 
 
129 
 
 125