----------------------------------------------------------------------
     -- Title       :  StriAKD
     -- Version     :  1.0
     -- Copyright   :  (C) 1994 David Wallace Croft.  All rights reserved.
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Meridian OpenAda for DOS
     -- Description :  String manipulation.
     ----------------------------------------------------------------------

     with StriAK;

     package StriAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
--   subtype Base_Type is StriAK.Base_Type;
--   Base_2  : constant Base_Type := StriAK.Base_2;
--   Base_8  : constant Base_Type := StriAK.Base_8;
--   Base_10 : constant Base_Type := StriAK.Base_10;
--   Base_16 : constant Base_Type := StriAK.Base_16;
--
--   subtype Field is StriAK.Field;
--   Default_Fore  : constant Field := StriAK.Default_Fore;
--   Default_Aft   : constant Field := StriAK.Default_Aft;
--   Default_Exp   : constant Field := StriAK.Default_Exp;
--   Default_Base  : constant Base_Type := StriAK.Default_Base;
--   Default_Width : constant Field := StriAK.Default_Width;
--   subtype Character_Is_Valid_Type is StriAK.Character_Is_Valid_Type;
--   subtype Valid_Characters_Type is StriAK.Valid_Characters_Type;
     type Boolean_Array is array ( positive range <> ) of boolean;
--   ----------------------------------------------------------------------
--   -- renamed from StriAK
--   ----------------------------------------------------------------------
--   procedure Copy (
--     New_Str: out string;
--     Copied_Str: in string;
--     Start: in positive;
--     Stop: in natural := 0 )
--     renames StriAK.Copy;
--   procedure Define_Valid_Characters (
--     Valid_Characters: out Valid_Characters_Type;
--     Definition_Str: in string := "" )
--     renames StriAK.Define_Valid_Characters;
--   function  Field_Max (
--     Base : in Base_Type;
--     Aft  : in Field )
--     return Field
--     renames StriAK.Field_Max;
--   function  Filtered (
--     In_Str: in string;
--     Filter_Str: in string )
--     return string
--     renames StriAK.Filtered;
--   function  Image (
--     Item   : in integer;
--     Width  : in Field     := Default_Width;
--     Base   : in Base_Type := Default_Base;
--     Signed : in boolean   := true;
--     Zeroed : in boolean   := false )
--     return string
--     renames StriAK.Image;
--   function  Image (
--     Item   : in long_integer;
--     Width  : in Field     := Default_Width;
--     Base   : in Base_Type := Default_Base;
--     Signed : in boolean   := true;
--     Zeroed : in boolean   := false )
--     return string
--     renames StriAK.Image;
--   function  Locate (
--     Search_Char: in character;
--     Search_Str: in string;
--     Start_Position: in positive := 1 )
--     return natural
--     renames StriAK.Locate;
--   function  Locate (
--     Hunted_Str     : in string;
--     Search_Str     : in string;
--     Start_Position : in positive := 1 )
--     return positive
--     renames StriAK.Locate;
--   function  Merge (
--     Dominant  : in string;
--     Recessive : in string )
--     return string
--     renames StriAK.Merge;
--   procedure MultiChar (
--     InChar: in     character;
--     InStr : in out string )
--     renames StriAK.MultiChar;
--   procedure Parse_Between(
--     Parsed_Str     :    out string;
--     Char           : in     character;
--     After_Char_Num : in     natural;
--     In_Str         : in     string )
--     renames StriAK.Parse_Between;
--   procedure Parse_Range (
--     InStr        : in     string;
--     Position     : in     positive;
--     Lo_Num       :    out natural;
--     Hi_Num       :    out natural;
--     New_Position :    out positive )
--     renames StriAK.Parse_Range;
--   procedure Show_Valid_Characters (
--     Valid_Characters: in Valid_Characters_Type )
--     renames StriAK.Show_Valid_Characters;
--   procedure Split (
--     Left_Side :    out string;
--     Right_Side:    out string;
--     Split_Str : in     string;
--     Position  : in     natural )
--     renames StriAK.Split;
--   procedure Split (
--     Left_Side  :    out string;
--     Right_Side :    out string;
--     Split_Str  : in     string;
--     Split_Char : in     character;
--     On_Count   : in     positive := 1 )
--     renames StriAK.Split;
--   function Strip_White_Space (
--     InStr : in string )
--     return string
--     renames StriAK.Strip_White_Space;
--   function Trim_White_Space (
--     Str : in string )
--     return string
--     renames StriAK.Trim_White_Space;
--   function Upcase (
--     InStr: in string )
--     return string
--     renames StriAK.Upcase;
--   ----------------------------------------------------------------------
     -- unique
     ----------------------------------------------------------------------
     procedure Float_Binary (
       Item        : in     float;
       Sign        :    out character;
       Exponent    :    out integer;
       Significand :    out Boolean_Array );
     ----------------------------------------------------------------------
     end StriAKD;