| 0,0 → 1,76 |
|---|
| (* |
| Copyright 2013, 2017, 2018, 2020 Anton Krotov |
| |
| This program is free software: you can redistribute it and/or modify |
| it under the terms of the GNU Lesser General Public License as published by |
| the Free Software Foundation, either version 3 of the License, or |
| (at your option) any later version. |
| |
| This program is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU Lesser General Public License for more details. |
| |
| You should have received a copy of the GNU Lesser General Public License |
| along with this program. If not, see <http://www.gnu.org/licenses/>. |
| *) |
| |
| MODULE Utils; |
| |
| IMPORT WINAPI; |
| |
| PROCEDURE PutSeed*(seed: INTEGER); |
| BEGIN |
| WINAPI.srand(seed) |
| END PutSeed; |
| |
| PROCEDURE Rnd*(range : INTEGER): INTEGER; |
| RETURN WINAPI.rand() MOD range |
| END Rnd; |
| |
| PROCEDURE Utf8To16*(source: ARRAY OF CHAR; VAR dest: ARRAY OF CHAR): INTEGER; |
| VAR i, j, L, u, N: INTEGER; |
| BEGIN |
| L := LEN(source); |
| N := LEN(dest); |
| N := N - N MOD 2 - 1; |
| i := 0; |
| j := 0; |
| WHILE (i < L) & (j < N) & (source[i] # 0X) DO |
| CASE source[i] OF |
| |00X..7FX: u := ORD(source[i]); |
| |0C1X..0DFX: |
| u := LSL(ORD(source[i]) - 0C0H, 6); |
| IF i + 1 < L THEN |
| u := u + ROR(LSL(ORD(source[i + 1]), 26), 26); |
| INC(i) |
| END |
| |0E1X..0EFX: |
| u := LSL(ORD(source[i]) - 0E0H, 12); |
| IF i + 1 < L THEN |
| u := u + ROR(LSL(ORD(source[i + 1]), 26), 20); |
| INC(i) |
| END; |
| IF i + 1 < L THEN |
| u := u + ROR(LSL(ORD(source[i + 1]), 26), 26); |
| INC(i) |
| END |
| (* |0F1X..0F7X: |
| |0F9X..0FBX: |
| |0FDX:*) |
| ELSE |
| END; |
| INC(i); |
| dest[j] := CHR(u MOD 256); |
| INC(j); |
| dest[j] := CHR(u DIV 256); |
| INC(j); |
| END; |
| IF j < N THEN |
| dest[j] := 0X; |
| dest[j + 1] := 0X |
| END |
| RETURN j DIV 2 |
| END Utf8To16; |
| |
| END Utils. |