1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
-- Generated at 2014-05-21 20:03:41 +0000 by Natools.Static_Hash_Maps
-- from natools-static_hash_maps-s_expressions-hash_maps.sx
with Natools.Static_Hash_Maps.S_Expressions.Command_Pkg;
with Natools.Static_Hash_Maps.S_Expressions.Command_Map;
package body Natools.Static_Hash_Maps.S_Expressions.Command_Maps is
function To_Package_Command (Key : String) return Package_Command is
N : constant Natural
:= Natools.Static_Hash_Maps.S_Expressions.Command_Pkg.Hash (Key);
begin
if Map_1_Keys (N).all = Key then
return Map_1_Elements (N);
else
raise Constraint_Error with "Key """ & Key & """ not in map";
end if;
end To_Package_Command;
function To_Map_Command (Key : String) return Map_Command is
N : constant Natural
:= Natools.Static_Hash_Maps.S_Expressions.Command_Map.Hash (Key);
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
-- Generated at 2014-05-26 20:24:08 +0000 by Natools.Static_Hash_Maps
-- from natools-static_hash_maps-s_expressions-hash_maps.sx
with Natools.Static_Hash_Maps.S_Expressions.Command_Pkg;
with Natools.Static_Hash_Maps.S_Expressions.Command_Map;
package body Natools.Static_Hash_Maps.S_Expressions.Command_Maps is
function To_Package_Command (Key : String) return Package_Command is
N : constant Natural
:= Natools.Static_Hash_Maps.S_Expressions.Command_Pkg.Hash (Key);
begin
if Map_1_Keys (N).all = Key then
return Map_1_Elements (N);
else
return Extra_Declarations;
end if;
end To_Package_Command;
function To_Map_Command (Key : String) return Map_Command is
N : constant Natural
:= Natools.Static_Hash_Maps.S_Expressions.Command_Map.Hash (Key);
|