195
196
197
198
199
200
201
202
203
204
205
206
207
208
|
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
|
+
+
+
+
|
end if;
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 Pure_Package =>
Set_Categorization (Pkg, Pure);
when Preelaborate_Package =>
Set_Categorization (Pkg, Preelaborate);
when Extra_Declarations =>
if Arguments.Current_Event = Sx.Events.Add_Atom then
Set_Extra_Declarations
(Pkg, Sx.To_String (Arguments.Current_Atom));
end if;
when Test_Function =>
if Arguments.Current_Event = Sx.Events.Add_Atom then
|
238
239
240
241
242
243
244
245
246
247
248
249
250
251
|
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
|
+
+
+
+
|
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 Pure_Package =>
Set_Categorization (Pkg, Pure);
when Preelaborate_Package =>
Set_Categorization (Pkg, Preelaborate);
when Extra_Declarations =>
Set_Extra_Declarations (Pkg, Sx.To_String (Name));
when Test_Function =>
null;
end case;
end Update_Package;
|