Differences From Artifact [27c4cdae39]:
- File src/natools-static_hash_maps-s_expressions.adb — part of check-in [cf4a28a612] at 2014-05-31 15:04:56 on branch trunk — static_hash_maps-s_expressions: add binding for the new package categorization option (user: nat, size: 9616) [annotate] [blame] [check-ins using]
To Artifact [c67c4fb249]:
- File src/natools-static_hash_maps-s_expressions.adb — part of check-in [1cc98d90f5] at 2014-11-09 20:48:10 on branch trunk — static_hash_maps-s_expressions: add commands for definite or indefinite elements (user: nat, size: 9756) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
134 135 136 137 138 139 140 141 142 143 144 145 146 147 |
when Hash_Package =>
if Event = Sx.Events.Add_Atom then
Set_Hash_Package_Name
(Map, Sx.To_String (Arguments.Current_Atom));
else
Set_Hash_Package_Name (Map, "");
end if;
when Function_Name =>
if Event = Sx.Events.Add_Atom then
Set_Function_Name (Map, Sx.To_String (Arguments.Current_Atom));
else
Set_Function_Name (Map, "");
end if;
| > > > > > > | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 |
when Hash_Package =>
if Event = Sx.Events.Add_Atom then
Set_Hash_Package_Name
(Map, Sx.To_String (Arguments.Current_Atom));
else
Set_Hash_Package_Name (Map, "");
end if;
when Definite_Elements =>
Set_Definite (Map);
when Indefinite_Elements =>
Set_Indefinite (Map);
when Function_Name =>
if Event = Sx.Events.Add_Atom then
Set_Function_Name (Map, Sx.To_String (Arguments.Current_Atom));
else
Set_Function_Name (Map, "");
end if;
|
| ︙ | ︙ |