--------------------------------------------------------------------------------------
--        Ada language interface to OSF/Motif toolkit
-- 
--        Version: 1.0
-- 
--        Release date: 3/19/91
-- 
--        Compiled under:
--             VADS 5.5+ on Apollo Domain / DEC Ultrix / SCO Unix
-- 
--        This is an Ada binding to the OSF Motif toolkit.
--        Requires:  
--             OSF/Motif toolkit
--             Verdix (or Verdix-derived) Ada libraries
-- 
--        Author:
--             Boeing Commercial Airplanes Avionics Flight Systems Organization
-- 
-- 
--        Mailing Address:
--             P.O. Box 3999, M/S 65-07
--             Seattle, WA 98124
--             Attn:  E. J. Jones
-- 
-- 
--        Approved  for public release; distribution  is unlimited.  Per DoD  Directive
--        5230.24.
-- 
--        Copyright  (c) 1991, The Boeing Company, Seattle, Washington.  This software,
--        the  BCA Ada language  interface to the OSF/Motif  toolkit, produced  by  the
--        Boeing  Commercial Airplane Company and made available under STARS  (Software
--        Technology  for Adaptable,  Reliable Systems) is  approved for release  under
--        Distribution   "A"  of  the  Scientific  and  Technical  Information  Program
--        Classification  Scheme (DoD  Directive 5230.24)  unless otherwise  indicated.
--        Sponsored  by the U.S. Defense Advanced Research Project Agency (DARPA) under
--        contract  F19628-88-D-0028, the  STARS program is  supported by the  military
--        services,   SEI,  and MITRE,  with  the  U.S.  Air  Force  as  the  executive
--        contracting agent.  The code identified herein is subject to change.
-- 
--        Permission  to use, modify, copy,  and comment on this software for  purposes
--        stated  under  Distribution "A"  and without  fee is  hereby  granted.   This
--        software  retains  Contractor  indemnification  to the  Government  regarding
--        copyrights  pursuant to the above referenced STARS contract.   The Government
--        disclaims  all responsibility against liability, including costs and expenses
--        for  violation  of  proprietary  rights, or  copyrights  arising out  of  the
--        creation or use of this software.
-- 
--        In  addition, the Government and  The Boeing Company disclaim all  warranties
--        with   regard  to  this  software,   including  all  implied  warranties   of
--        merchantability  and fitness.  In no event shall the Government or The Boeing
--        Company  be liable for any special, indirect or consequential  damages or any
--        damages  whatsoever resulting from the loss of use, data  or profits, whether
--        in  action  of  contract, negligence  or other  tortuous action,  arising  in
--        connection  with the use or performance of this software.  The Boeing Company
--        does  not agree  to support   or   maintain this software  or to produce  any
--        future versions.

--------------------------------------------------------------------------------------


----------------------------------------------------------------------
--      Package body BASIC TYPES
----------------------------------------------------------------------
--                           CHANGE HISTORY
--   Ver. Developer               Date  Description
--   ----  --------               ----- ---------------------------------
--   1.0  E.J.Jones(206)477-3566  12/91 Original version for Ada Motif Bindings
--
-- 
-----------------------------------------------------------------------------
-- PROLOGUE
--
--      NAME:  Package body for AFS_BASIC_TYPES
--
--      S/W FAMILY:  CORE library
--                   
--      RESTRICTIONS:  None.
-------------------------------------------------------------------------------------------

package body AFS_BASIC_TYPES is

   function MIN (LEFT  : in AFS_SMALL_INTEGER;
                 RIGHT : in AFS_SMALL_INTEGER) return AFS_SMALL_INTEGER is
    begin -- MIN
      if LEFT < RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MIN;


   function MAX (LEFT  : in AFS_SMALL_INTEGER;
                 RIGHT : in AFS_SMALL_INTEGER) return AFS_SMALL_INTEGER is
    begin -- MAX
      if LEFT > RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MAX;


   function MIN (LEFT  : in AFS_MEDIUM_INTEGER;
                 RIGHT : in AFS_MEDIUM_INTEGER) return AFS_MEDIUM_INTEGER is
    begin -- MIN
      if LEFT < RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MIN;


   function MAX (LEFT  : in AFS_MEDIUM_INTEGER;
                 RIGHT : in AFS_MEDIUM_INTEGER) return AFS_MEDIUM_INTEGER is
    begin -- MAX
      if LEFT > RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MAX;


   function MIN (LEFT  : in AFS_LARGE_INTEGER;
                 RIGHT : in AFS_LARGE_INTEGER) return AFS_LARGE_INTEGER is
    begin -- MIN
      if LEFT < RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MIN;


   function MAX (LEFT  : in AFS_LARGE_INTEGER;
                 RIGHT : in AFS_LARGE_INTEGER) return AFS_LARGE_INTEGER is
    begin -- MAX
      if LEFT > RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MAX;


   function MIN (LEFT  : in AFS_MEDIUM_FLOAT;
                 RIGHT : in AFS_MEDIUM_FLOAT) return AFS_MEDIUM_FLOAT is
    begin -- MIN
      if LEFT < RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MIN;


   function MAX (LEFT  : in AFS_MEDIUM_FLOAT;
                 RIGHT : in AFS_MEDIUM_FLOAT) return AFS_MEDIUM_FLOAT is
    begin -- MAX
      if LEFT > RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MAX;


   function MIN (LEFT  : in AFS_LARGE_FLOAT;
                 RIGHT : in AFS_LARGE_FLOAT) return AFS_LARGE_FLOAT is
    begin -- MIN
      if LEFT < RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MIN;


   function MAX (LEFT  : in AFS_LARGE_FLOAT;
                 RIGHT : in AFS_LARGE_FLOAT) return AFS_LARGE_FLOAT is
    begin -- MAX
      if LEFT > RIGHT then
        return LEFT;
      else
        return RIGHT;
      end if;
    end MAX;

end AFS_BASIC_TYPES;