;; /*
;;     SDL - Simple DirectMedia Layer
;;     Copyright (C) 1997, 1998, 1999, 2000, 2001  Sam Lantinga
;; 
;;     This library is free software; you can redistribute it and/or
;;     modify it under the terms of the GNU Library General Public
;;     License as published by the Free Software Foundation; either
;;     version 2 of the License, or (at your option) any later version.
;; 
;;     This library is distributed in the hope that it will be useful,
;;     but WITHOUT ANY WARRANTY; without even the implied warranty of
;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;     Library General Public License for more details.
;; 
;;     You should have received a copy of the GNU Library General Public
;;     License along with this library; if not, write to the Free
;;     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
;; 
;;     Sam Lantinga
;;     slouken@devolution.com
;; */
;; 
;; #ifdef SAVE_RCSID
;; static char rcsid =
;;  "@(#) $Id: SDL_keyboard.lsh,v 1.1 2002/08/19 07:04:08 profshadoko Exp $";
;; #endif
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(de SDL_keyboard_dummy () (sdlheader "SDL_keyboard.h"))

;; /* Include file for SDL keyboard event handling */
;; 
;; #ifndef _SDL_keyboard_h
;; #define _SDL_keyboard_h
;; 
;; #include "SDL_types.h"
;; #include "SDL_keysym.h"
;; 
;; #include "begin_code.h"
;; /* Set up for C function definitions, even when using C++ */
;; #ifdef __cplusplus
;; extern "C" {
;; #endif
;; 
;; /* Keysym structure
;;    - The scancode is hardware dependent, and should not be used by general
;;      applications.  If no hardware scancode is available, it will be 0.
;; 
;;    - The 'unicode' translated character is only available when character
;;      translation is enabled by the SDL_EnableUNICODE() API.  If non-zero,
;;      this is a UNICODE character corresponding to the keypress.  If the
;;      high 9 bits of the character are 0, then this maps to the equivalent
;;      ASCII character:
;; 	char ch;
;; 	if ( (keysym.unicode & 0xFF80) == 0 ) {
;; 		ch = keysym.unicode & 0x7F;
;; 	} else {
;; 		An international character..
;; 	}
;;  */
;; typedef struct {
;; 	Uint8 scancode;			/* hardware specific scancode */
;; 	SDLKey sym;			/* SDL virtual keysym */
;; 	SDLMod mod;			/* current key modifiers */
;; 	Uint16 unicode;			/* translated character */
;; } SDL_keysym;
;; 
(libload "libc/constants")

;; /* This is the mask which refers to all hotkey bindings */
(defconstant "SDL_ALL_HOTKEYS"		0xFFFFFFFF)

;; 
;; /* Function prototypes */
;; /*

#? (SDL_EnableUNICODE <enable>)
;;.PRE
;;  * Enable/Disable UNICODE translation of keyboard input.
;;  * This translation has some overhead, so translation defaults off.
;;  * If 'enable' is 1, translation is enabled.
;;  * If 'enable' is 0, translation is disabled.
;;  * If 'enable' is -1, the translation state is not changed.
;;  * It returns the previous state of keyboard translation.
;;  */
;; extern DECLSPEC int SDL_EnableUNICODE(int enable);
(de SDL_EnableUNICODE(enable)
    ((-int-) enable)
    (int #{ SDL_EnableUNICODE($enable) #}))
;; 
(setq SDL_DEFAULT_REPEAT_DELAY	500)
(setq SDL_DEFAULT_REPEAT_INTERVAL	30)

#? (SDL_EnableKeyRepeat <delay> <interval>)
;;.PRE
;; /*
;;  * Enable/Disable keyboard repeat.  Keyboard repeat defaults to off.
;;  * 'delay' is the initial delay in ms between the time when a key is
;;  * pressed, and keyboard repeat begins.
;;  * 'interval' is the time in ms between keyboard repeat events.
;;  */
;; /*
;;  * If 'delay' is set to 0, keyboard repeat is disabled.
;;  */
;; extern DECLSPEC int SDL_EnableKeyRepeat(int delay, int interval);
(de SDL_EnableKeyRepeat(delay interval)
    ((-int-) delay interval)
    (int #{ SDL_EnableKeyRepeat($delay, $interval) #}))

;; 
#? (SDL_GetKeyState <numkeys>)
;;.PRE
;; /*
;;  * Get a snapshot of the current state of the keyboard.
;;  * Returns an array of keystates, indexed by the SDLK_* syms.
;;  * Used:
;;  * 	Uint8 *keystate = SDL_GetKeyState(NULL);
;;  *	if ( keystate[SDLK_RETURN] ) ... <RETURN> is pressed.
;;  */
;; extern DECLSPEC Uint8 * SDL_GetKeyState(int *numkeys);
(de SDL_GetKeyState(numkeys)
    ((-gptr- "int *") numkeys)
    (gptr #{ (Uint8 *)SDL_GetKeyState($numkeys) #}))

;; 
#? (SDL_GetModState)
;;.PRE
;; /*
;;  * Get the current key modifier state
;;  */
;; extern DECLSPEC SDLMod SDL_GetModState(void);
(de SDL_GetModState()
    (int #{  SDL_GetModState() #}))
    
;; 
#? (SDL_SetModState <modstate>)
;;.PRE
;; /*
;;  * Set the current key modifier state
;;  * This does not change the keyboard state, only the key modifier flags.
;;  */
;; extern DECLSPEC void SDL_SetModState(SDLMod modstate);
(de SDL_SetModState(modstate)
    ((-int-) modstate)
    #{ SDL_SetModState($modstate) #} ())

;; 
#? (SDL_GetKeyName <key>)
;;.PRE
;; /*
;;  * Get the name of an SDL virtual keysym
;;  */
;; extern DECLSPEC char * SDL_GetKeyName(SDLKey key);
(de SDL_GetKeyName(key)
    ((-int-) key)
    (gptr #{  SDL_GetKeyName($key) #}))

;; 
;; 
;; /* Ends C function definitions when using C++ */
;; #ifdef __cplusplus
;; }
;; #endif
;; #include "close_code.h"
;; 
;; #endif /* _SDL_keyboard_h */

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(sdladdfuncs  SDL_EnableUNICODE SDL_EnableKeyRepeat
              SDL_GetKeyState SDL_GetModState SDL_SetModState SDL_GetKeyName)

