stephes_ada_library_3.7.3_08b48307/source/sal-gen_trimmed_image_unsigned.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
--  Abstract :
--
--  See spec.
--
--  Copyright (C) 2018 Stephen Leake All Rights Reserved.
--
--  This library is free software;  you can redistribute it and/or modify it
--  under terms of the  GNU General Public License  as published by the Free
--  Software  Foundation;  either version 3,  or (at your  option) any later
--  version. This library is distributed in the hope that it will be useful,
--  but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN-
--  TABILITY or FITNESS FOR A PARTICULAR PURPOSE.

--  As a special exception under Section 7 of GPL version 3, you are granted
--  additional permissions described in the GCC Runtime Library Exception,
--  version 3.1, as published by the Free Software Foundation.

pragma License (Modified_GPL);

with Ada.Strings;
with Ada.Strings.Fixed;
function SAL.Gen_Trimmed_Image_Unsigned (Item : in Element_Type) return String
is
   use Ada.Strings;
   use Ada.Strings.Fixed;
begin
   return Trim (Element_Type'Image (Item), Both);
end SAL.Gen_Trimmed_Image_Unsigned;