| 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; |