Subversion Repositories Kolibri OS

Rev

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

Rev 7597 Rev 7667
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2018, Anton Krotov
 4 
    Copyright (c) 2018, 2019, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 253... Line 253...
253 
            u := ORD(c)
 253 
            u := ORD(c)
Line 254... Line 254...
254 
 
 254 
 
255 
        |0C1X..0DFX:
 255 
        |0C1X..0DFX:
256 
            u := LSL(ORD(c) - 0C0H, 6);
 256 
            u := LSL(ORD(c) - 0C0H, 6);
257 
            IF i + 1 < srclen THEN
 - 
 
258 
                u := u + ROR(LSL(ORD(src[i + 1]), 26), 26);
 257 
            IF i + 1 < srclen THEN
- 
 
 258 
                INC(i);
259 
                INC(i)
 259 
                INC(u, ORD(BITS(ORD(src[i])) * {0..5}))
Line 260... Line 260...
260 
            END
 260 
            END
261 
 
 261 
 
262 
        |0E1X..0EFX:
 262 
        |0E1X..0EFX:
263 
            u := LSL(ORD(c) - 0E0H, 12);
 - 
 
264 
            IF i + 1 < srclen THEN
 263 
            u := LSL(ORD(c) - 0E0H, 12);
- 
 
 264 
            IF i + 1 < srclen THEN
265 
                u := u + ROR(LSL(ORD(src[i + 1]), 26), 20);
 265 
                INC(i);
266 
                INC(i)
 266 
                INC(u, ORD(BITS(ORD(src[i])) * {0..5}) * 64)
267 
            END;
 - 
 
268 
            IF i + 1 < srclen THEN
 267 
            END;
- 
 
 268 
            IF i + 1 < srclen THEN
269 
                u := u + ROR(LSL(ORD(src[i + 1]), 26), 26);
 269 
                INC(i);
270 
                INC(i)
 270 
                INC(u, ORD(BITS(ORD(src[i])) * {0..5}))
271 
            END
 271 
            END
272 
(*
 272 
(*
273 
        |0F1X..0F7X:
 273 
        |0F1X..0F7X: