Commit 709537fb authored by hugues.jerome's avatar hugues.jerome

* Output cheddar file in current directory



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1481 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent c6a0b081
......@@ -137,9 +137,7 @@ package body Ocarina.Backends.Cheddar is
procedure Visit_Architecture_Instance (E : Node_Id) is
begin
XML_Root := XTU.New_Node (XTN.K_HI_Distributed_Application);
Set_Str_To_Name_Buffer ("generated-code");
-- Set_Str_To_Name_Buffer (".");
XTN.Set_Name (XML_Root, Name_Find);
XTN.Set_Name (XML_Root, No_Name);
XTN.Set_Units (XML_Root, XTU.New_List (XTN.K_List_Id));
XTN.Set_HI_Nodes (XML_Root, XTU.New_List (XTN.K_List_Id));
......
......@@ -323,21 +323,26 @@ package body Ocarina.Backends.XML_Tree.Generator is
Application_Directory : Name_Id;
begin
-- Create the application directory (a lower case string)
Get_Name_String (Name (N));
Application_Directory := To_Lower (Name_Find);
Create_Directory (Application_Directory);
if Name (N) /= No_Name then
Get_Name_String (Name (N));
Application_Directory := To_Lower (Name_Find);
-- Process the application nodes
Create_Directory (Application_Directory);
Enter_Directory (Application_Directory);
-- Process the application nodes
Enter_Directory (Application_Directory);
end if;
while Present (P) loop
Generate (P);
P := Next_Node (P);
end loop;
Leave_Directory;
if Name (N) /= No_Name then
Leave_Directory;
end if;
end Generate_HI_Distributed_Application;
----------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment