taste-backend-skeletons.adb 5.21 KB
Newer Older
Maxime Perrotin's avatar
Maxime Perrotin committed
1
with Text_IO; use Text_IO;
2
with Ada.Strings.Unbounded,
3
4
     Ada.Characters.Handling,
     Ada.Exceptions;
5

6
7
use Ada.Characters.Handling,
    Ada.Exceptions;
Maxime Perrotin's avatar
Maxime Perrotin committed
8
9
10

package body TASTE.Backend.Skeletons is
   procedure Generate (Model : TASTE_Model) is
Maxime Perrotin's avatar
Maxime Perrotin committed
11
      Template : constant IV_As_Template :=
Maxime Perrotin's avatar
Maxime Perrotin committed
12
        Interface_View_Template (Model.Interface_View);
13
14
15
      Prefix : constant String := Model.Configuration.Binary_Path.all
        & "templates/skeletons/";
      use Ada.Strings.Unbounded;
Maxime Perrotin's avatar
Maxime Perrotin committed
16
17
   begin
      Put_Line ("=== Generate skeletons ===");
18
19
20
21
22
      for Each of Model.Interface_View.Flat_Functions loop
         declare
            Language  : constant String := Language_Spelling (Each);
            Path      : constant String := Prefix & To_Lower (Language) & "/";
            Hdr_Tmpl  : constant Translate_Set := +Assoc ("Name", Each.Name);
Maxime Perrotin's avatar
Maxime Perrotin committed
23
24
            Func_Tmpl : constant Func_As_Template :=
              Template.Funcs.Element (To_String (Each.Name));
25
26
27
            PIs       : Tag;
            RIs       : Tag;
            Func_Hdr  : Translate_Set := Func_Tmpl.Header;
28
         begin
Maxime Perrotin's avatar
Maxime Perrotin committed
29
30
31
32
33
34
35
36
            for PI of Func_Tmpl.Provided loop
               declare
                  Header : Translate_Set := PI.Header;
                  Params : Tag;
               begin
                  for Param of PI.Params loop
                     declare
                        P : constant String :=
37
38
                          Parse
                            (Path & "interface-header-parameter.tmplt", Param);
Maxime Perrotin's avatar
Maxime Perrotin committed
39
40
41
42
43
                     begin
                        Params := Params & P;
                     end;
                  end loop;
                  Header := Header & Assoc ("Parameters", Params);
44
45
46
47
48
49
                  declare
                     PI : constant String :=
                       Parse (Path & "interface-signature.tmplt", Header);
                  begin
                     PIs := PIs & PI;
                  end;
Maxime Perrotin's avatar
Maxime Perrotin committed
50
51
               end;
            end loop;
52
            Func_Hdr := Func_Hdr & Assoc ("Provided_Interfaces", PIs);
Maxime Perrotin's avatar
Maxime Perrotin committed
53
54
55
56
57
58
59
60
61
62
63
64
65
66
            for RI of Func_Tmpl.Required loop
               declare
                  Header : Translate_Set := RI.Header;
                  Params : Tag;
               begin
                  for Param of RI.Params loop
                     declare
                        P : constant String := Parse
                            (Path & "interface-header-parameter.tmplt", Param);
                     begin
                        Params := Params & P;
                     end;
                  end loop;
                  Header := Header & Assoc ("Parameters", Params);
67
68
69
70
71
72
                  declare
                     RI : constant String :=
                       Parse (Path & "interface-signature.tmplt", Header);
                  begin
                     RIs := RIs & RI;
                  end;
Maxime Perrotin's avatar
Maxime Perrotin committed
73
74
               end;
            end loop;
75
            Func_Hdr := Func_Hdr & Assoc ("Required_Interfaces", RIs);
76
77
            Put ("***  Generating ");
            Put_Line (Parse (Path & "header-filename.tmplt", Hdr_Tmpl));
78
            Put_Line (Parse (Path & "header.tmplt", Func_Hdr));
Maxime Perrotin's avatar
Maxime Perrotin committed
79
            Put ("***  Generating ");
80
            Put_Line (Parse (Path & "body-filename.tmplt", Hdr_Tmpl));
81
            Put_Line (Parse (Path & "body.tmplt", Func_Hdr));
82
         exception
83
            when E : others =>
84
               Put_Line ("no skeletons for language " & Language & " !");
Maxime Perrotin's avatar
Maxime Perrotin committed
85
86
87
               if Language /= "GUI" then
                  Put_Line (Exception_Message (E));
               end if;
88
89
         end;
      end loop;
Maxime Perrotin's avatar
Maxime Perrotin committed
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
   end Generate;

   function Parameter_Template (Param : ASN1_Parameter) return Translate_Set is
     (+Assoc ("Type", Param.Sort) & Assoc ("Name", Param.Name)
     & Assoc ("Direction", Param.Direction'Img));

   function Interface_Template (TI : Taste_Interface)
                                return Interface_As_Template
   is
      use Template_Vectors;
      Result : Interface_As_Template;
   begin
      Result.Header :=  +Assoc ("Name",             TI.Name)
                        & Assoc ("Parent_Function", TI.Parent_Function);
      for Each of TI.Params loop
         Result.Params := Result.Params & Parameter_Template (Each);
      end loop;
      return Result;
   end Interface_Template;

   function Func_Template (F : Taste_Terminal_Function) return Func_As_Template
   is
      use Interface_Vectors;
      Result : Func_As_Template;
   begin
      Result.Header := +Assoc ("Name", F.Name)
                       & Assoc ("Language", F.Language'Img);
      for Each of F.Provided loop
         Result.Provided := Result.Provided & Interface_Template (Each);
      end loop;
      for Each of F.Required loop
         Result.Required := Result.Required & Interface_Template (Each);
      end loop;
      return Result;
   end Func_Template;

   function Interface_View_Template (IV : Complete_Interface_View)
                                     return IV_As_Template is
128
129
      use Func_Maps;
      use Ada.Strings.Unbounded;
Maxime Perrotin's avatar
Maxime Perrotin committed
130
131
132
      Result : IV_As_Template;
   begin
      for Each of IV.Flat_Functions loop
133
134
         Result.Funcs.Insert (Key      => To_String (Each.Name),
                              New_Item => Func_Template (Each));
Maxime Perrotin's avatar
Maxime Perrotin committed
135
136
137
138
139
      end loop;
      return Result;
   end Interface_View_Template;

end TASTe.Backend.Skeletons;