25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
package Natools.Accumulators.String_Accumulator_Linked_Lists is
pragma Preelaborate (String_Accumulator_Linked_Lists);
type String_Accumulator_Linked_List
(Build : not null access function (Depth : Positive)
return String_Accumulator'Class)
is new String_Accumulator_Stack with private;
procedure Append (To : in out String_Accumulator_Linked_List;
Text : String);
-- Append the given String to the internal buffer
procedure Hard_Reset (Acc : in out String_Accumulator_Linked_List);
-- Empty the internal buffer and free all possible memory
|
>
|
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
package Natools.Accumulators.String_Accumulator_Linked_Lists is
pragma Preelaborate (String_Accumulator_Linked_Lists);
type String_Accumulator_Linked_List
(Build : not null access function (Depth : Positive)
return String_Accumulator'Class)
is new String_Accumulator_Stack with private;
pragma Preelaborable_Initialization (String_Accumulator_Linked_List);
procedure Append (To : in out String_Accumulator_Linked_List;
Text : String);
-- Append the given String to the internal buffer
procedure Hard_Reset (Acc : in out String_Accumulator_Linked_List);
-- Empty the internal buffer and free all possible memory
|