package body CharAK is
     ----------------------------------------------------------------------
     -- Copyright (C) 1994 David Wallace Croft.  All rights reserved.
     ----------------------------------------------------------------------

     function Char_to_Strg (
       InChar: in character )
       return string is
     ----------------------------------------------------------------------
     TempStr: string ( 1..1 );
     begin
       TempStr ( 1 ) := InChar;
       return TempStr;
     end Char_to_Strg;

     function Filter (
       InChar: in character )
       return character is
     ----------------------------------------------------------------------
     begin
       if InChar not in ' '..'~' then
	 return ASCII.Nul;
       else
	 return InChar;
       end if;
     end Filter;

     function Is_Natural (
       InChar: in character )
       return boolean is
     ----------------------------------------------------------------------
     begin
       return InChar in '0'..'9';
     end Is_Natural;

     function Upcase (
       InChar: in character )
       return character is
     ----------------------------------------------------------------------
     begin
       if ( InChar >= 'a' ) and ( InChar <= 'z' ) then
	 return character'val ( character'pos ( InChar ) - 32 );
       else
	 return InChar;
       end if;
     end Upcase;

     ----------------------------------------------------------------------     ----------------------------------------------------------------------
     end CharAK;