В Аде, почему мои попытки открыть файл для записи не удаются? - PullRequest
Новая
       20

В Аде, почему мои попытки открыть файл для записи не удаются?

2 голосов
/ 10 марта 2010

Когда я пытаюсь открыть файл для записи, я получаю сообщение об ошибке Ada.IO_Exceptions.Name_Error.

Имя файла: «C: \ CC_TEST_LOG.TXT». Этот файл не существует.

Это в Windows XP в разделе NTFS. У пользователя есть права на создание и запись в каталог. Имя файла находится под максимальной длиной пути WIN32. 

 name_2 : String := "C:\CC_TEST_LOG.TXT"
 if name_2'last > name_2'first then
    begin
       Ada.Text_IO.Create(file, Ada.Text_IO.Out_File, name_2);
       Ada.Text_IO.Put_Line(
          "CC_Test_Utils: LogFile: ERROR: Open, File "
          & name_2);
       return;
    exception
       when The_Error : others =>
          Ada.Text_IO.Put_Line(
             "CC_Test_Utils: LogFile: ERROR: Open Failed; "
              & Ada.Exceptions.Exception_Name(The_Error)
              & ", File " & name_2);
    end;
 end if;

1 Ответ

1 голос
/ 10 марта 2010

с макушки головы:

  • В момент вызова Create, file еще не связан с другим открытым файлом?
  • Какой компилятор вы используете? Gnat основан на mingw, и ему может не понравиться указатель Windows "C: \". Попробуйте убрать эту часть и посмотреть, создает ли он файл (где-нибудь).
  • Как уже упоминал Xandy, файл может быть уже открыт другой программой. Этот Create вызов требует эксклюзивного доступа к файлу.

Кроме того, какой смысл в этой Put_Line сразу после Create? успешно открытие файла также является ошибкой по какой-то причине? Кажется, что это может вводить в заблуждение, заставляя думать, что программе не удалось открыть файл, когда это действительно удалось.

...