Переименовать пакет Ada

Question

Возможно ли иметь другое имя файла для пакета, чем его фактическое имя? Я пытался использовать ниже прагмами но получаю ошибки как «Прагма source_file_name_project аргумент имеет неправильный идентификатор»

package Parent_With_Very_Long_Name is end Parent_with_Very_Long_Name; 
... 
package Parent_With_Very_Long_Name.Child is 
    pragma Source_File_Name_Project("parent-child.ads"); 
end Parent_With_Very_Long_Name.Child; 

• Source_File_Name_Project
• Source_File_Name

Answer 1

Фактическое хранение Ada исходного текста технически деталь реализации компилятора.

Глядя на имена файлов, которые ожидает ваш компилятор, я бы предположил, что вы используете GNAT (GCC-Ada). ВНСТ позволяет переопределить схему именования по умолчанию в файлах проекта:

project Short_File_Names is 
    package Naming is 
     for Specification ("Parent_With_Very_Long_Name.Child") 
     use "parent-child.ads"; 
    end Naming; 
end Short_File_Names; 

Answer 2

Документация pragma Source_File_Name говорит синтаксис

pragma Source_File_Name (
    [Unit_Name =>] unit_NAME, 
    Spec_File_Name => STRING_LITERAL, 
    [Index => INTEGER_LITERAL]); 

pragma Source_File_Name (
    [Unit_Name =>] unit_NAME, 
    Body_File_Name => STRING_LITERAL, 
    [Index => INTEGER_LITERAL]); 

так что причина компилятор жалуется, что вы использовали неправильный синтаксис , Используя правильный синтаксис, который был бы

package Parent_With_Very_Long_Name.Child is 
    pragma Source_File_Name 
    (Parent_With_Very_Long_Name.Child, Spec_File_Name => "parent-child.ads"); 
end Parent_With_Very_Long_Name.Child; 

но компилятор теперь говорит

parent-child.ads:2:01: incorrect placement for configuration pragma "Source_File_Name" 

Правильное размещение для данной конфигурации прагмы перед блоком:

pragma Source_File_Name 
    (Parent_With_Very_Long_Name.Child, Spec_File_Name => "parent-child.ads"); 
package Parent_With_Very_Long_Name.Child is 
end Parent_With_Very_Long_Name.Child; 

, который все очень но как другие подразделения узнают об этом? (GNAT имеет исходную модель компиляции). Один ответ заключается в том, чтобы поместить прагму в файл конфигурации, gnat.adc по умолчанию. Лучше ответить на использование файлов проекта GNAT и package Naming, как предположил Джейкоб Спарр Андерсен.