kolibrios-gitea/programs/develop/oberon07/Source/WRITER.ob07

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