kolibrios/programs/other/fb2reader/SRC/ReadFile.ob07

(*
    Copyright 2016, 2022, 2023 Anton Krotov

    This file is part of fb2read.

    fb2read is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    fb2read 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 General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with fb2read. If not, see <http://www.gnu.org/licenses/>.
*)

MODULE ReadFile;

IMPORT sys := SYSTEM, K := KOSAPI, S := Strings, File, SU := SysUtils, Encoding;


VAR

  Mem, Pos, Size, FSize*: INTEGER;

  Error*: BOOLEAN;


PROCEDURE Adr*(): INTEGER;
  RETURN Mem + Pos
END Adr;


PROCEDURE Next*(VAR ch: CHAR);
BEGIN
  INC(Pos);
  sys.GET(Mem + Pos, ch)
END Next;


PROCEDURE Progress*(): REAL;
VAR res: REAL;
BEGIN
  res := FLT(Pos) / FLT(Size);
  IF res < 0.0 THEN
    res := 0.0
  END;
  IF res > 1.0 THEN
    res := 1.0
  END
  RETURN res
END Progress;


PROCEDURE Load*(FileName: S.STRING);
VAR F: File.FS; pos, FileSize: INTEGER;
BEGIN
  Error := TRUE;
  Mem := 0;
  F := File.Open(FileName);
  SU.ErrorIf(F = NIL, 1);
  FileSize := File.Seek(F, 0, File.SEEK_END);
  Size := FileSize;
  SU.ErrorIf(FileSize <= 0, 1);
  pos := File.Seek(F, 0, File.SEEK_BEG);
  SU.ErrorIf(pos # 0, 1);
  Mem := K.malloc(FileSize + 1024);
  SU.MemError(Mem = 0);
  pos := File.Read(F, Mem, FileSize);
  SU.ErrorIf(pos # FileSize, 1);
  sys.PUT(Mem + FileSize, 0X);
  File.Close(F);
  Pos := -1;
  Error := FALSE;
  FSize := FileSize
END Load;


PROCEDURE Free*;
BEGIN
  IF Mem # 0 THEN
    Mem := K.free(Mem)
  END
END Free;


PROCEDURE Conv*(cp: Encoding.tCodePage);
VAR m, nov, mem2, k: INTEGER; c: CHAR;
BEGIN
  m := Mem;
  k := 0;
  REPEAT
    sys.GET(m, c); INC(m);
    k := k + cp[ORD(c)].len
  UNTIL c = 0X;
  nov := K.malloc(k + 1024);
  SU.MemError(nov = 0);
  Size := k;
  mem2 := nov;
  m := Mem;
  REPEAT
    sys.GET(m, c); INC(m);
    sys.MOVE(sys.ADR(cp[ORD(c)].utf8), nov, cp[ORD(c)].len);
    nov := nov + cp[ORD(c)].len
  UNTIL c = 0X;
  Pos := -1;
  Mem := K.free(Mem);
  Mem := mem2;
END Conv;


PROCEDURE SeekBeg*;
BEGIN
  Pos := -1
END SeekBeg;


PROCEDURE Int*(): INTEGER;
VAR i: INTEGER;
BEGIN
  sys.GET(Mem + Pos, i)
  RETURN i
END Int;


PROCEDURE FileSize*(name: S.STRING): INTEGER;
VAR F: File.FS; res: INTEGER;
BEGIN
  F := File.Open(name);
  res := File.Seek(F, 0, 2);
  File.Close(F)
  RETURN res
END FileSize;


PROCEDURE ChkSum* (name: S.STRING): INTEGER;
VAR
	ptr, size, res: INTEGER;
	b: BYTE;
BEGIN
	res := 0;
	ptr := File.Load(name, size);
	IF ptr # 0 THEN
		WHILE size > 0 DO
			sys.GET(ptr, b);
			INC(res, b);
			INC(ptr);
			DEC(size)
		END;
		ptr := K.free(ptr)
	END
	RETURN res
END ChkSum;


END ReadFile.