(*
    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.