Subversion Repositories Kolibri OS

Rev

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

Rev 9448 Rev 9560
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2021 Anton Krotov
 2 
    Copyright 2021, 2022 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 22... Line 22...
22 
IMPORT SYSTEM, KOSAPI, E := Encodings, Lines, K := KolibriOS;
 22 
IMPORT SYSTEM, KOSAPI, E := Encodings, Lines, K := KolibriOS;
Line 23... Line 23...
23 
 
 23 
 
24 
CONST
 24 
CONST
25 
    TTEXT = 0;
 25 
    TTEXT = 0;
26 
    lenEOL* = 2;
 - 
 
Line 27... Line 26...
27 
    TAB = 9X;
 26 
    lenEOL* = 2;
28 
 
 27 
 
29 
TYPE
 28 
TYPE
30 
    tBuffer* = POINTER TO RECORD
 29 
    tBuffer* = POINTER TO RECORD
Line 58... Line 57...
58 
    SYSTEM.PUT32(a + 8, 1);
 57 
    SYSTEM.PUT32(a + 8, 1);
59 
    pchar := a + 12;
 58 
    pchar := a + 12;
60 
    ptr := buffer.dataPtr;
 59 
    ptr := buffer.dataPtr;
61 
    WHILE cnt > 0 DO
 60 
    WHILE cnt > 0 DO
62 
        SYSTEM.GET(ptr, wch);
 61 
        SYSTEM.GET(ptr, wch);
63 
        IF wch # Lines.TAB1 THEN
 62 
        IF wch = Lines.TAB1 THEN
- 
 
 63 
        	DEC(size)
- 
 
 64 
        ELSIF wch = Lines.NUL THEN
64 
            SYSTEM.PUT(pchar, CHR(E.UNI[ORD(wch), E.CP866] MOD 256));
 65 
            SYSTEM.PUT(pchar, 0X);
65 
            INC(pchar)
 66 
            INC(pchar)
66 
        ELSE
 67 
        ELSE
- 
 
 68 
            SYSTEM.PUT(pchar, CHR(E.UNI[ORD(wch), E.CP866] MOD 256));
67 
            DEC(size);
 69 
            INC(pchar)
68 
        END;
 70 
        END;
69 
        INC(ptr, 2);
 71 
        INC(ptr, 2);
70 
        DEC(cnt)
 72 
        DEC(cnt)
71 
    END;
 73 
    END;
72 
    SYSTEM.PUT32(a, size);
 74 
    SYSTEM.PUT32(a, size);