1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
-- Generated at 2014-05-26 20:24:08 +0000 by Natools.Static_Hash_Maps
-- from natools-static_hash_maps-s_expressions-hash_maps.sx
private package Natools.Static_Hash_Maps.S_Expressions.Command_Maps is
function To_Package_Command (Key : String) return Package_Command;
function To_Map_Command (Key : String) return Map_Command;
private
Map_1_Key_0 : aliased constant String := "private";
Map_1_Key_1 : aliased constant String := "public";
Map_1_Keys : constant array (0 .. 1) of access constant String
:= (Map_1_Key_0'Access,
Map_1_Key_1'Access);
Map_1_Elements : constant array (0 .. 1) of Package_Command
:= (Private_Child,
Public_Child);
Map_2_Key_0 : aliased constant String := "hash-package";
Map_2_Key_1 : aliased constant String := "nodes";
Map_2_Key_2 : aliased constant String := "function";
Map_2_Key_3 : aliased constant String := "not-found";
Map_2_Keys : constant array (0 .. 3) of access constant String
:= (Map_2_Key_0'Access,
|
|
|
|
>
>
>
|
|
>
>
>
|
>
>
|
|
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
-- Generated at 2014-05-28 17:27:24 +0000 by Natools.Static_Hash_Maps
-- from natools-static_hash_maps-s_expressions-hash_maps.sx
private package Natools.Static_Hash_Maps.S_Expressions.Command_Maps is
function To_Package_Command (Key : String) return Package_Command;
function To_Map_Command (Key : String) return Map_Command;
private
Map_1_Key_0 : aliased constant String := "extra-declarations";
Map_1_Key_1 : aliased constant String := "extra-decl";
Map_1_Key_2 : aliased constant String := "private";
Map_1_Key_3 : aliased constant String := "public";
Map_1_Key_4 : aliased constant String := "test-function";
Map_1_Keys : constant array (0 .. 4) of access constant String
:= (Map_1_Key_0'Access,
Map_1_Key_1'Access,
Map_1_Key_2'Access,
Map_1_Key_3'Access,
Map_1_Key_4'Access);
Map_1_Elements : constant array (0 .. 4) of Package_Command
:= (Extra_Declarations,
Extra_Declarations,
Private_Child,
Public_Child,
Test_Function);
Map_2_Key_0 : aliased constant String := "hash-package";
Map_2_Key_1 : aliased constant String := "nodes";
Map_2_Key_2 : aliased constant String := "function";
Map_2_Key_3 : aliased constant String := "not-found";
Map_2_Keys : constant array (0 .. 3) of access constant String
:= (Map_2_Key_0'Access,
|