Differences From Artifact [b4bb055a3f]:

• File src/natools-static_hash_maps-s_expressions.adb — part of check-in [ad65c67a84] at 2014-05-19 18:37:17 on branch trunk — static_hash_maps-s_expressions: new package to run static hash map generator using a S-expression description (user: nat size: 6929)

To Artifact [a8863b17f1]:

• File src/natools-static_hash_maps-s_expressions.adb — part of check-in [fcc23fc780] at 2014-05-26 20:25:48 on branch trunk — static_hash_maps-s_expressions: add binding for extra declarations in generated spec (user: nat size: 7028)

173
174
175
176
177
178
179


180
181
182
183
184
185
186

      pragma Unreferenced (Context);
   begin
      case Command_Maps.To_Package_Command (Sx.To_String (Name)) is
         when Private_Child =>
            Set_Private_Child (Pkg, True);
         when Public_Child =>
            Set_Private_Child (Pkg, False);


      end case;
   end Update_Package;



   -----------------------
   -- Public Generators --

>
>

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188

      pragma Unreferenced (Context);
   begin
      case Command_Maps.To_Package_Command (Sx.To_String (Name)) is
         when Private_Child =>
            Set_Private_Child (Pkg, True);
         when Public_Child =>
            Set_Private_Child (Pkg, False);
         when Extra_Declarations =>
            Set_Extra_Declarations (Pkg, Sx.To_String (Name));
      end case;
   end Update_Package;



   -----------------------
   -- Public Generators --