Commit 0d360d99 authored by julien.delange's avatar julien.delange
Browse files

begin to generate module content



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@674 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent b4a40f02
......@@ -116,11 +116,19 @@ package body Ocarina.Backends.ASN1_Tree.Generator is
---------------------
procedure Generate_Module (N : Node_Id) is
P : Node_Id;
begin
Write_Name (Name (N));
Write_Space;
Write_Str ("DEFINITIONS AUTOMATIC TAGS ::= BEGIN");
Write_Eol;
if not Is_Empty (Declarations (N)) then
P := First_Node (Declarations (N));
while Present (P) loop
Generate (P);
P := Next_Node (P);
end loop;
end if;
Write_Line ("END");
end Generate_Module;
......
......@@ -54,5 +54,6 @@ module Ocarina::Backends::ASN1_Tree::Nodes {
interface Type_Definition : Definition
{
Node_Id Declaration;
List_Id Declarations;
};
};
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