blob: fa969a059fc87e594856aecc7eb9eb52fa1979c6 [file] [log] [blame]
with Ada.Exceptions; use Ada.Exceptions;
with Ada.Text_IO; use Ada.Text_IO;
procedure Encode_String1_Pkg (Val : S) is
begin
declare
Result : constant String := Encode (Val);
begin
Put_Line (Result);
end;
exception
when Ex : others =>
Put_Line ("ERROR: Unexpected exception " & Exception_Name (Ex));
end;