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

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

--  with TASTE.Backend.Skeletons.C;

package body TASTE.Backend.Skeletons is
   procedure Generate (Model : TASTE_Model) is
      dummy_Template : constant IV_As_Template :=
        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
23
      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);
         begin
Maxime Perrotin's avatar
Maxime Perrotin committed
24
            Put ("***  Generating ");
25
            Put_Line (Parse (Path & "header-filename.tmplt", Hdr_Tmpl));
Maxime Perrotin's avatar
Maxime Perrotin committed
26
27

            Put ("***  Generating ");
28
29
30
31
32
33
            Put_Line (Parse (Path & "body-filename.tmplt", Hdr_Tmpl));
         exception
            when others =>
               Put_Line ("no skeletons for language " & Language & " !");
         end;
      end loop;
Maxime Perrotin's avatar
Maxime Perrotin committed
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
   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
72
73
      use Func_Maps;
      use Ada.Strings.Unbounded;
Maxime Perrotin's avatar
Maxime Perrotin committed
74
75
76
      Result : IV_As_Template;
   begin
      for Each of IV.Flat_Functions loop
77
78
         Result.Funcs.Insert (Key      => To_String (Each.Name),
                              New_Item => Func_Template (Each));
Maxime Perrotin's avatar
Maxime Perrotin committed
79
80
81
82
83
      end loop;
      return Result;
   end Interface_View_Template;

end TASTe.Backend.Skeletons;