97
98
99
100
101
102
103
104
|
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
function Encode_Base64 (Value : in Octet) return Octet;
procedure Encode_Base64 (Output : out Atom; A : in Octet);
procedure Encode_Base64 (Output : out Atom; A, B : in Octet);
procedure Encode_Base64 (Output : out Atom; A, B, C : in Octet);
function Encode_Base64 (Data : in Atom) return Atom;
---------------------------------
-- Base-64 with other charsets --
---------------------------------
function Decode_Base64 (Data : in Atom; Digit_62, Digit_63 : in Octet)
return Atom;
function Encode_Base64 (Data : in Atom; Digit_62, Digit_63 : in Octet)
return Atom;
-- Paddingless encoding
function Encode_Base64
(Data : in Atom;
Digit_62, Digit_63, Padding : in Octet)
return Atom;
end Natools.S_Expressions.Encodings;
|