111 lines
1.7 KiB
Plaintext
111 lines
1.7 KiB
Plaintext
(*
|
|
BSD 2-Clause License
|
|
|
|
Copyright (c) 2018-2019, Anton Krotov
|
|
All rights reserved.
|
|
*)
|
|
|
|
MODULE WRITER;
|
|
|
|
IMPORT FILES, ERRORS, UTILS;
|
|
|
|
|
|
TYPE
|
|
|
|
FILE* = FILES.FILE;
|
|
|
|
|
|
VAR
|
|
|
|
counter*: INTEGER;
|
|
|
|
|
|
PROCEDURE align (n, _align: INTEGER): INTEGER;
|
|
BEGIN
|
|
IF n MOD _align # 0 THEN
|
|
n := n + _align - (n MOD _align)
|
|
END
|
|
|
|
RETURN n
|
|
END align;
|
|
|
|
|
|
PROCEDURE WriteByte* (file: FILE; n: BYTE);
|
|
BEGIN
|
|
IF FILES.WriteByte(file, n) THEN
|
|
INC(counter)
|
|
ELSE
|
|
ERRORS.Error(201)
|
|
END
|
|
END WriteByte;
|
|
|
|
|
|
PROCEDURE Write* (file: FILE; chunk: ARRAY OF BYTE; bytes: INTEGER);
|
|
VAR
|
|
n: INTEGER;
|
|
|
|
BEGIN
|
|
n := FILES.write(file, chunk, bytes);
|
|
IF n # bytes THEN
|
|
ERRORS.Error(201)
|
|
END;
|
|
INC(counter, n)
|
|
END Write;
|
|
|
|
|
|
PROCEDURE Write64LE* (file: FILE; n: INTEGER);
|
|
VAR
|
|
i: INTEGER;
|
|
|
|
BEGIN
|
|
FOR i := 0 TO 7 DO
|
|
WriteByte(file, UTILS.Byte(n, i))
|
|
END
|
|
END Write64LE;
|
|
|
|
|
|
PROCEDURE Write32LE* (file: FILE; n: INTEGER);
|
|
VAR
|
|
i: INTEGER;
|
|
|
|
BEGIN
|
|
FOR i := 0 TO 3 DO
|
|
WriteByte(file, UTILS.Byte(n, i))
|
|
END
|
|
END Write32LE;
|
|
|
|
|
|
PROCEDURE Write16LE* (file: FILE; n: INTEGER);
|
|
BEGIN
|
|
WriteByte(file, UTILS.Byte(n, 0));
|
|
WriteByte(file, UTILS.Byte(n, 1))
|
|
END Write16LE;
|
|
|
|
|
|
PROCEDURE Padding* (file: FILE; FileAlignment: INTEGER);
|
|
VAR
|
|
i: INTEGER;
|
|
|
|
BEGIN
|
|
i := align(counter, FileAlignment) - counter;
|
|
WHILE i > 0 DO
|
|
WriteByte(file, 0);
|
|
DEC(i)
|
|
END
|
|
END Padding;
|
|
|
|
|
|
PROCEDURE Create* (FileName: ARRAY OF CHAR): FILE;
|
|
BEGIN
|
|
counter := 0
|
|
RETURN FILES.create(FileName)
|
|
END Create;
|
|
|
|
|
|
PROCEDURE Close* (VAR file: FILE);
|
|
BEGIN
|
|
FILES.close(file)
|
|
END Close;
|
|
|
|
|
|
END WRITER. |