---------------------------------------------------------------------------
     -- Title       :  TypeAK
     -- Unit Type   :  package specification
     -- Version     :  1.0
     -- Author      :  David Wallace Croft
     -- Compiler    :  Ada
     -- Copyright   :  1993 David Wallace Croft.  All rights reserved.
     -- Description :  Data type manipulation
     ---------------------------------------------------------------------------

     with ErroAK; use ErroAK;

     package TypeAK is
     ---------------------------------------------------------------------------
     ---------------------------------------------------------------------------
     subtype Str79 is string ( 1..79 );
     type String_Array_Type is array ( positive range <> ) of Str79;
     ---------------------------------------------------------------------------
     Comments_Default    : constant string := "!";
     Delimiters_Default  : constant string := ",";
     White_Space_Default : constant string :=
       ( ASCII.NUL, ASCII.SOH, ASCII.STX, ASCII.ETX, ASCII.EOT, ASCII.ENQ,
	 ASCII.ACK, ASCII.BEL, ASCII.BS , ASCII.HT , ASCII.LF , ASCII.VT ,
	 ASCII.FF , ASCII.CR , ASCII.SO , ASCII.SI , ASCII.DLE, ASCII.DC1,
	 ASCII.DC2, ASCII.DC3, ASCII.DC4, ASCII.NAK, ASCII.SYN, ASCII.ETB,
	 ASCII.CAN, ASCII.EM , ASCII.SUB, ASCII.ESC, ASCII.FS , ASCII.GS ,
	 ASCII.RS , ASCII.US , ' ' );
     ---------------------------------------------------------------------------
     function  Filter (
		 In_Str: in string;
		 Filter_Str: in string ) return string;
     procedure Parse
		 ( String_Array :    out String_Array_Type;
		   Str_In       : in     string;
		   Comments     : in     string := Comments_Default;
		   Delimiters   : in     string := Delimiters_Default;
		   White_Space  : in     string := White_Space_Default );
     function  Subset ( Char : in character; Str : in string ) return boolean;
     function  Trim ( Str_In : in string ) return string;
     ----------------------------------------------------------------------
     end TypeAK;