§------------------------------------------------------------------------------
--
-- function In_List (spec)
--
-- This function checks if an item is present in a list.
--
------------------------------------------------------------------------------
-- Update information:
--
-- 1996.07.07 (Jacob Sparre Andersen)
-- Written.
--
-- (Insert additional update information above this line.)
------------------------------------------------------------------------------
generic
type Element_Type is private;
type List_Type is array (Integer range <>) of Element_Type;
function In_List (Item : in Element_Type;
List : in List_Type) return Boolean;
Typeset with Ada_To_HTML (Jacob and Jesper)