1
2
3
4
5
6
7
8
9
|
------------------------------------------------------------------------------
-- Copyright (c) 2013, Natacha Porté --
-- --
-- Permission to use, copy, modify, and distribute this software for any --
-- purpose with or without fee is hereby granted, provided that the above --
-- copyright notice and this permission notice appear in all copies. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --
|
|
|
1
2
3
4
5
6
7
8
9
|
------------------------------------------------------------------------------
-- Copyright (c) 2013-2016, Natacha Porté --
-- --
-- Permission to use, copy, modify, and distribute this software for any --
-- purpose with or without fee is hereby granted, provided that the above --
-- copyright notice and this permission notice appear in all copies. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --
|
223
224
225
226
227
228
229
230
231
232
233
|
procedure Include_Range (Set : in out Range_Set; Bounds : in String_Range);
procedure Exclude_Range (Set : in out Range_Set; Bounds : in String_Range);
-- Perform ensemble union and subtraction of index sets
type Slice_Set is tagged record
Bounds : Range_Set;
Ref : String_Refs.Reference;
end record;
end Natools.String_Slices.Slice_Sets;
|
|
|
223
224
225
226
227
228
229
230
231
232
233
|
procedure Include_Range (Set : in out Range_Set; Bounds : in String_Range);
procedure Exclude_Range (Set : in out Range_Set; Bounds : in String_Range);
-- Perform ensemble union and subtraction of index sets
type Slice_Set is tagged record
Bounds : Range_Set;
Ref : String_Refs.Immutable_Reference;
end record;
end Natools.String_Slices.Slice_Sets;
|