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) [annotate] [blame] [check-ins using]
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) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
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 --
|
| ︙ | ︙ |