28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
private with Ada.Containers.Ordered_Sets;
package Natools.String_Slices.Slice_Sets is
pragma Preelaborate (Slice_Sets);
type Slice_Set is tagged private;
----------------------------
-- Conversion subprograms --
----------------------------
function To_Slice (S : Slice_Set) return Slice;
|
>
|
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
private with Ada.Containers.Ordered_Sets;
package Natools.String_Slices.Slice_Sets is
pragma Preelaborate (Slice_Sets);
type Slice_Set is tagged private;
pragma Preelaborable_Initialization (Slice_Set);
----------------------------
-- Conversion subprograms --
----------------------------
function To_Slice (S : Slice_Set) return Slice;
|