Ошибка при записи файла Linux

[prospero78]

PROCEDURE FileWrite():BOOLEAN;
    VAR
        strAdr: INTEGER;
        res: INTEGER;
        ind: INTEGER;
    BEGIN
        isErr:=FALSE;
        strToWrite:="Проверка текста";
        strAdr:=SYSTEM.ADR(strToWrite[0]);
        res:=File.Write(fileID, strAdr, SYSTEM.SIZE(WCHAR));
        IF res # 0 THEN
            Out.String("Main.FileWrite(): bad write file"); Out.Ln();
            isErr:=TRUE;
        END;
        RETURN isErr
    END FileWrite;

Что-то идёт не так. Даже одну литеру записать не могу.

[AntKrotov]

Функция File.Write возвращает количество байт, которые были записаны. Поэтому проверка

    IF res # 0 THEN
    (* ошибка записи *)
    END;

здесь будет неправильна. Надо сравнить res не с нулем, а с размером данных, которые должны быть записаны.

[prospero78]

Антон, ну вот очень плохо, что нет вообще никаких в коде комментариев. И реквесты ты толком не принимаешь.

З.Ы. Подправил код, бесполезно. Я в печали.

[AntKrotov]

Не знаю, в чем может быть проблема. У меня такой код работает:

MODULE test;

IMPORT SYSTEM, File, Out;

VAR
    fileID: INTEGER;

PROCEDURE FileWrite(fileID: INTEGER):BOOLEAN;
    VAR
        strAdr: INTEGER;
        res: INTEGER;
        ind: INTEGER;
        dataSize: INTEGER;
        isErr: BOOLEAN;
        strToWrite: ARRAY 64 OF CHAR;
    BEGIN
        isErr:=FALSE;
        strToWrite:="Проверка текста";
        dataSize := LENGTH(strToWrite)*SYSTEM.SIZE(CHAR);
        strAdr:=SYSTEM.ADR(strToWrite[0]);
        res:=File.Write(fileID, strAdr, dataSize);
        IF res # dataSize THEN
            Out.String("Main.FileWrite(): bad write file"); Out.Ln();
            isErr:=TRUE;
        END;
        RETURN isErr
    END FileWrite;

BEGIN
    fileID := File.Create("/home/live/test.txt");
    IF FileWrite(fileID) THEN
    (* error *)
    END;
    File.Close(fileID)
END test.

Я только заменил ARRAY OF WCHAR на ARRAY OF CHAR и SYSTEM.SIZE(WCHAR) на SYSTEM.SIZE(CHAR), чтобы текст был записан в естественной для Linux кодировке UTF8 (иначе будет UCS-2) для удобного просмотра в простом редакторе. Ну и конечно следует подставить нормальное имя файла, вместо "/home/live/test.txt".

[prospero78]

Хм. Ок, посмотрю. На счёт WCHAR и CHAR -- важное замечание. Если я правильно понял, то ошибки ОС не возвращаются. Опасненько.

[AntKrotov]

Модуль File - это просто обертка над libc. В основном, функции этого модуля возвращают то же, что и соответствующие функции libc. Да, и напомню, что файл с исходным кодом тоже надо сохранять в UTF8 (и лучше с BOM).