84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
-- Paddingless encoded length
function Value_Length (Input_Length : in Ada.Streams.Stream_Element_Count)
return Natural
is (Natural (Input_Length) - (Natural (Input_Length) + 3) / 4);
-- Original length of an encoded array
function Symbol_Count (Input : Ada.Streams.Stream_Element_Array)
return Ada.Streams.Stream_Element_Count;
-- Return the number of valid symbols in Input
|
<
<
<
<
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
-- Paddingless encoded length
function Value_Length (Input_Length : in Ada.Streams.Stream_Element_Count)
return Natural
is (Natural (Input_Length) - (Natural (Input_Length) + 3) / 4);
-- Original length of an encoded array
procedure Encode
(Input : in String;
Output : in out Ada.Streams.Stream_Element_Array;
Offset : in out Ada.Streams.Stream_Element_Offset);
-- Paddingless raw encoding of Input data
|