Win32 Joystick Bindings

   with Win32          ;
   with Win32.mmsystem ;

---------------------------------------------------------
-- ADA Name                    : Win32.Joystick
--
-- Compilation Name            : Win32.Joystick.ads
--
-- CSC Description             : See below
--
-- Machine Dependencies        : Desgined for a PC running Windows 95/NT
--
-- Compiler Dependencies       : Ada 95, GNAT Ada 3.11p
--                                 Any windows functions must have the
--                                 specification declared with a
--                                 pragma (Stdcall , <Name_Of_Function>
--                                 This is ensure the correct number of
--                                 parameters are popped from the stack by
--                                 windows
--
-- Document References         : None
--
-- Miscellaneous Notes         : The package provides level 4 bindings for
--                               joystick support.
--
--
-- Revision History            :
--
--    Author           Date       PCR#     PCR/Reason
--    ------           ----       ----     ----------
--    J. Boulais      07/01/1999              Created.
--
-----------------------------------------------------------

           
   package Win32.Joystick is
           
   
   --JmB--   JOY_POVCENTERED : constant := ( WORD ) - 1 ;     -- mmsystem.h:2049
      JOY_POVFORWARD     : constant := 0     ;                -- mmsystem.h:2050
      JOY_POVRIGHT       : constant := 9000  ;                -- mmsystem.h:2051
      JOY_POVBACKWARD    : constant := 18000 ;                -- mmsystem.h:2051
      JOY_POVLEFT        : constant := 27000 ;                -- mmsystem.h:2053
   
      JOY_RETURNX        : constant := 16#00000001# ;         -- mmsystem.h:2055
      JOY_RETURNY        : constant := 16#00000002# ;         -- mmsystem.h:2056
      JOY_RETURNZ        : constant := 16#00000004# ;         -- mmsystem.h:2057
      JOY_RETURNR        : constant := 16#00000008# ;         -- mmsystem.h:2058
      JOY_RETURNU        : constant := 16#00000010# ;         -- mmsystem.h:2059
      JOY_RETURNV        : constant := 16#00000020# ;         -- mmsystem.h:2060
      JOY_RETURNPOV      : constant := 16#00000040# ;         -- mmsystem.h:2061
      JOY_RETURNBUTTONS  : constant := 16#00000080# ;         -- mmsystem.h:2062
      JOY_RETURNRAWDATA  : constant := 16#00000100# ;         -- mmsystem.h:2063
      JOY_RETURNPOVCTS   : constant := 16#00000200# ;         -- mmsystem.h:2064
      JOY_RETURNCENTERED : constant := 16#00000400# ;         -- mmsystem.h:2065
      JOY_USEDEADZONE    : constant := 16#00000800# ;         -- mmsystem.h:2066
      JOY_RETURNALL      : constant Win32.DWORD               -- mmsystem.h:2067
      := ( JOY_RETURNX or JOY_RETURNY or JOY_RETURNZ   or JOY_RETURNR
            or JOY_RETURNU or JOY_RETURNV or JOY_RETURNPOV or JOY_RETURNBUTTONS ) ;
      JOY_CAL_READALWAYS : constant := 16#00010000# ;         -- mmsystem.h:2070
      JOY_CAL_READXYONLY : constant := 16#00020000# ;         -- mmsystem.h:2071
      JOY_CAL_READ3      : constant := 16#00040000# ;         -- mmsystem.h:2072
      JOY_CAL_READ4      : constant := 16#00080000# ;         -- mmsystem.h:2073
      JOY_CAL_READXONLY  : constant := 16#00100000# ;         -- mmsystem.h:2074
      JOY_CAL_READYONLY  : constant := 16#00200000# ;         -- mmsystem.h:2075
      JOY_CAL_READ5      : constant := 16#00400000# ;         -- mmsystem.h:2076
      JOY_CAL_READ6      : constant := 16#00800000# ;         -- mmsystem.h:2077
      JOY_CAL_READZONLY  : constant := 16#01000000# ;         -- mmsystem.h:2078
      JOY_CAL_READRONLY  : constant := 16#02000000# ;         -- mmsystem.h:2079
      JOY_CAL_READUONLY  : constant := 16#04000000# ;         -- mmsystem.h:2080
      JOY_CAL_READVONLY  : constant := 16#08000000# ;         -- mmsystem.h:2081
   
      type JOYINFOEX
      is record
            dwSize         : Win32.DWORD ;
            dwFlags        : Win32.DWORD ;
            dwXpos         : Win32.DWORD ;
            dwYpos         : Win32.DWORD ;
            dwZpos         : Win32.DWORD ;
            dwRpos         : Win32.DWORD ;
            dwUpos         : Win32.DWORD ;
            dwVpos         : Win32.DWORD ;
            dwButtons      : Win32.DWORD ;
            dwButtonNumber : Win32.DWORD ;
            dwPOV          : Win32.DWORD ;
            dwReserved1    : Win32.DWORD ;
            dwReserved2    : Win32.DWORD ;
         end record ;                                         -- mmsystem.h:2221
   
      type LPJOYINFOEX is access all JOYINFOEX ;              -- mmsystem.h:2221
   
              
      function joyGetPosEx (                                  -- mmsystem.h:2244
                        uJoyId : Win32.UINT  ;
                        pji    : LPJOYINFOEX )
      return Win32.mmSystem.MMRESULT ;
              
   
   pragma Import ( Stdcall, joyGetPosEx, "joyGetPosEx" ) ;
   
   
      MAX_JOYSTICKOEMVXDNAME : constant := 260 ;              -- mmsystem.h:84
   
      type JOYCAPSA
      is record
            wMid        : Win32.WORD ;
            wPid        : Win32.WORD ;
            szPname     : Win32.CHAR_Array ( 0 .. 31 ) ;
            wXmin       : Win32.UINT ;
            wXmax       : Win32.UINT ;
            wYmin       : Win32.UINT ;
            wYmax       : Win32.UINT ;
            wZmin       : Win32.UINT ;
            wZmax       : Win32.UINT ;
            wNumButtons : Win32.UINT ;
            wPeriodMin  : Win32.UINT ;
            wPeriodMax  : Win32.UINT ;
            wRmin       : Win32.UINT ;
            wRmax       : Win32.UINT ;
            wUmin       : Win32.UINT ;
            wUmax       : Win32.UINT ;
            wVmin       : Win32.UINT ;
            wVmax       : Win32.UINT ;
            wCaps       : Win32.UINT ;
            wMaxAxes    : Win32.UINT ;
            wNumAxes    : Win32.UINT ;
            wMaxButtons : Win32.UINT ;
            szRegKey    : Win32.CHAR_Array ( 0 .. 31 ) ;
            szOEMVxD    : Win32.CHAR_Array ( 0 .. MAX_JOYSTICKOEMVXDNAME-1 ) ;
         end record ;                                         -- mmsystem.h:2126
   
      subtype JOYCAPS is JOYCAPSA;                            -- mmsystem.h:2161
   
      type PJOYCAPSA is access all JOYCAPSA;                  -- mmsystem.h:2126
      subtype LPJOYCAPS is PJOYCAPSA;                         -- mmsystem.h:2126
      subtype LPJOYCAPSA is PJOYCAPSA;                        -- mmsystem.h:2126
   
              
      function joyGetDevCapsA(
                        uJoyId: Win32.UINT;
                        lpjc  : LPJOYCAPSA;
                        cbjc  : Win32.UINT)
      return Win32.mmSystem.MMRESULT;              -- mmsystem.h:2230
              
   
              
      function joyGetDevCaps(
                        uJoyId: Win32.UINT;
                        lpjc  : LPJOYCAPSA;
                        cbjc  : Win32.UINT)
      return Win32.mmSystem.MMRESULT
      renames joyGetDevCapsA;                      -- mmsystem.h:2235
              
   
   pragma Import ( Stdcall, joyGetDevCapsA, "joyGetDevCapsA" ) ;
   
   end Win32.Joystick ;