home *** CD-ROM | disk | FTP | other *** search
- ------------------------------------------------------------------------------
- -- --
- -- GNAT RUNTIME COMPONENTS --
- -- --
- -- S Y S T E M . W I D _ C H A R --
- -- --
- -- B o d y --
- -- --
- -- $Revision: 1.3 $ --
- -- --
- -- Copyright (c) 1992,1993,1994 NYU, All Rights Reserved --
- -- --
- -- The GNAT library is free software; you can redistribute it and/or modify --
- -- it under terms of the GNU Library General Public License as published by --
- -- the Free Software Foundation; either version 2, or (at your option) any --
- -- later version. The GNAT library is distributed in the hope that it will --
- -- be useful, but WITHOUT ANY WARRANTY; without even the implied warranty --
- -- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
- -- Library General Public License for more details. You should have --
- -- received a copy of the GNU Library General Public License along with --
- -- the GNAT library; see the file COPYING.LIB. If not, write to the Free --
- -- Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
- -- --
- ------------------------------------------------------------------------------
-
- package body System.Wid_Char is
-
- ---------------------
- -- Width_Character --
- ---------------------
-
- function Width_Character (Lo, Hi : Character) return Natural is
- W : Natural;
-
- begin
- W := 0;
-
- for C in Lo .. Hi loop
- declare
- S : String := Character'Image (C);
-
- begin
- W := Natural'Max (W, S'Length);
- end;
- end loop;
-
- return W;
- end Width_Character;
-
- end System.Wid_Char;
-