Update of /project/corman-sdl/cvsroot/corman-sdl/ffi In directory common-lisp.net:/tmp/cvs-serv13187/ffi
Modified Files: SDL.lisp Log Message:
Date: Fri Jun 4 07:25:44 2004 Author: lcrook
Index: corman-sdl/ffi/SDL.lisp diff -u corman-sdl/ffi/SDL.lisp:1.3 corman-sdl/ffi/SDL.lisp:1.4 --- corman-sdl/ffi/SDL.lisp:1.3 Fri Jun 4 06:58:14 2004 +++ corman-sdl/ffi/SDL.lisp Fri Jun 4 07:25:44 2004 @@ -16,8 +16,8 @@ (PROGN (EXPORT '(UINT)) (C-TYPES:DEFCTYPE UINT :UNSIGNED-LONG)) (PROGN (EXPORT '(HWND WPARAM LPARAM HGLRC)) (C-TYPES:DEFCTYPE HWND :HANDLE) (C-TYPES:DEFCTYPE WPARAM UINT) (C-TYPES:DEFCTYPE LPARAM :UNSIGNED-LONG) (C-TYPES:DEFCTYPE HGLRC :HANDLE)) (PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO NIL)) -(PROGN (EXPORT '(SDL_SYSWMMSG)) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG ((VERSION SDL_VERSION) (#:G7828 (:CHAR 1)) (HWND HWND) (MSG UINT) (WPARAM WPARAM) (LPARAM LPARAM)))) -(PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO ((VERSION SDL_VERSION) (#:G7829 (:CHAR 1)) (WINDOW HWND) (HGLRC HGLRC)))) +(PROGN (EXPORT '(SDL_SYSWMMSG)) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG ((VERSION SDL_VERSION) (#:G7418 (:CHAR 1)) (HWND HWND) (MSG UINT) (WPARAM WPARAM) (LPARAM LPARAM)))) +(PROGN (EXPORT '(SDL_SYSWMINFO)) (C-TYPES:DEFCSTRUCT SDL_SYSWMINFO ((VERSION SDL_VERSION) (#:G7419 (:CHAR 1)) (WINDOW HWND) (HGLRC HGLRC)))) (PROGN (EXPORT '(SDL_GETWMINFO)) (C-TYPES:DEFUN-DLL SDL_GETWMINFO ((INFO (SDL_SYSWMINFO *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetWMInfo" :LINKAGE-TYPE :C)) (PROGN) (PROGN (EXPORT '(SDL_RWOPS SDL_RWOPS_STDIO SDL_RWOPS_MEM SDL_RWOPS_UNKNOWN)) (C-TYPES:DEFCSTRUCT SDL_RWOPS ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (BUFFER (UINT32 4)))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_STDIO ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (AUTOCLOSE :LONG) (FP (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_MEM ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32))) (C-TYPES:DEFCSTRUCT SDL_RWOPS_UNKNOWN ((SEEK (:VOID *)) (READ (:VOID *)) (WRITE (:VOID *)) (CLOSE (:VOID *)) (TYPE UINT32) (DATA1 (:VOID *))))) @@ -42,11 +42,11 @@ (PROGN (EXPORT '(THREADFN)) (C-TYPES:DEFCTYPE THREADFN (:VOID *))) (PROGN (EXPORT '(SDL_CREATETHREAD SDL_THREADID SDL_GETTHREADID SDL_WAITTHREAD SDL_KILLTHREAD)) (C-TYPES:DEFUN-DLL SDL_CREATETHREAD ((FN THREADFN) (DATA (:VOID *))) :RETURN-TYPE (SDL_THREAD *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CreateThread" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_THREADID NIL :RETURN-TYPE UINT32 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_ThreadID" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETTHREADID ((THREAD (SDL_THREAD *))) :RETURN-TYPE UINT32 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetThreadID" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_WAITTHREAD ((THREAD (SDL_THREAD *)) (STATUS (:LONG *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_WaitThread" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_KILLTHREAD ((THREAD (SDL_THREAD *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_KillThread" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_ALPHA_OPAQUE SDL_ALPHA_TRANSPARENT)) (DEFCONSTANT SDL_ALPHA_OPAQUE 255) (DEFCONSTANT SDL_ALPHA_TRANSPARENT 0)) -(PROGN (EXPORT '(SDL_RECT SDL_COLOR SDL_COLOUR SDL_PALETTE SDL_PIXELFORMAT)) (C-TYPES:DEFCSTRUCT SDL_RECT ((X SINT16) (Y SINT16) (W UINT16) (H UINT16))) (C-TYPES:DEFCSTRUCT SDL_COLOR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_COLOUR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_PALETTE ((NCOLORS :LONG) (COLORS (SDL_COLOR *)))) (C-TYPES:DEFCSTRUCT SDL_PIXELFORMAT ((PALETTE (SDL_PALETTE *)) (BITSPERPIXEL UINT8) (BYTESPERPIXEL UINT8) (RLOSS UINT8) (GLOSS UINT8) (BLOSS UINT8) (ALOSS UINT8) (RSHIFT UINT8) (GSHIFT UINT8) (BSHIFT UINT8) (ASHIFT UINT8) (#:G7830 (:CHAR 2)) (RMASK UINT32) (GMASK UINT32) (BMASK UINT32) (AMASK UINT32) (COLORKEY UINT32) (ALPHA UINT8)))) +(PROGN (EXPORT '(SDL_RECT SDL_COLOR SDL_COLOUR SDL_PALETTE SDL_PIXELFORMAT)) (C-TYPES:DEFCSTRUCT SDL_RECT ((X SINT16) (Y SINT16) (W UINT16) (H UINT16))) (C-TYPES:DEFCSTRUCT SDL_COLOR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_COLOUR ((R UINT8) (G UINT8) (B UINT8) (UNUSED UINT8))) (C-TYPES:DEFCSTRUCT SDL_PALETTE ((NCOLORS :LONG) (COLORS (SDL_COLOR *)))) (C-TYPES:DEFCSTRUCT SDL_PIXELFORMAT ((PALETTE (SDL_PALETTE *)) (BITSPERPIXEL UINT8) (BYTESPERPIXEL UINT8) (RLOSS UINT8) (GLOSS UINT8) (BLOSS UINT8) (ALOSS UINT8) (RSHIFT UINT8) (GSHIFT UINT8) (BSHIFT UINT8) (ASHIFT UINT8) (#:G7420 (:CHAR 2)) (RMASK UINT32) (GMASK UINT32) (BMASK UINT32) (AMASK UINT32) (COLORKEY UINT32) (ALPHA UINT8)))) (PROGN (EXPORT '(SDL_SURFACE)) (C-TYPES:DEFCSTRUCT SDL_SURFACE NIL)) (PROGN (EXPORT '(SDL_BLIT)) (C-TYPES:DEFCTYPE SDL_BLIT (:VOID *))) (PROGN (EXPORT '(PRIVATE_HWDATA SDL_BLITMAP)) (C-TYPES:DEFCSTRUCT PRIVATE_HWDATA NIL) (C-TYPES:DEFCSTRUCT SDL_BLITMAP NIL)) -(PROGN (EXPORT '(SDL_SURFACE SDL_SWSURFACE SDL_HWSURFACE SDL_ASYNCBLIT SDL_ANYFORMAT SDL_HWPALETTE SDL_DOUBLEBUF SDL_FULLSCREEN SDL_OPENGL SDL_OPENGLBLIT SDL_RESIZABLE SDL_NOFRAME SDL_HWACCEL SDL_SRCCOLORKEY SDL_RLEACCELOK SDL_RLEACCEL SDL_SRCALPHA SDL_PREALLOC)) (C-TYPES:DEFCSTRUCT SDL_SURFACE ((FLAGS UINT32) (FORMAT (SDL_PIXELFORMAT *)) (W :LONG) (H :LONG) (PITCH UINT16) (#:G7831 (:CHAR 2)) (PIXELS (:VOID *)) (OFFSET :LONG) (HWDATA (PRIVATE_HWDATA *)) (CLIP_RECT SDL_RECT) (UNUSED1 UINT32) (LOCKED UINT32) (MAP (SDL_BLITMAP *)) (FORMAT_VERSION :UNSIGNED-LONG) (REFCOUNT :LONG))) (DEFCONSTANT SDL_SWSURFACE 0) (DEFCONSTANT SDL_HWSURFACE 1) (DEFCONSTANT SDL_ASYNCBLIT 4) (DEFCONSTANT SDL_ANYFORMAT 268435456) (DEFCONSTANT SDL_HWPALETTE 536870912) (DEFCONSTANT SDL_DOUBLEBUF 1073741824) (DEFCONSTANT SDL_FULLSCREEN 2147483648) (DEFCONSTANT SDL_OPENGL 2) (DEFCONSTANT SDL_OPENGLBLIT 10) (DEFCONSTANT SDL_RESIZABLE 16) (DEFCONSTANT SDL_NOFRAME 32) (DEFCONSTANT SDL_HWACCEL 256) (DEFCONSTANT SDL_SRCCOLORKEY 4096) (DEFCONSTANT SDL_RLEACCELOK 8192) (DEFCONSTANT SDL_RLEACCEL 16384) (DEFCONSTANT SDL_SRCALPHA 65536) (DEFCONSTANT SDL_PREALLOC 16777216)) +(PROGN (EXPORT '(SDL_SURFACE SDL_SWSURFACE SDL_HWSURFACE SDL_ASYNCBLIT SDL_ANYFORMAT SDL_HWPALETTE SDL_DOUBLEBUF SDL_FULLSCREEN SDL_OPENGL SDL_OPENGLBLIT SDL_RESIZABLE SDL_NOFRAME SDL_HWACCEL SDL_SRCCOLORKEY SDL_RLEACCELOK SDL_RLEACCEL SDL_SRCALPHA SDL_PREALLOC)) (C-TYPES:DEFCSTRUCT SDL_SURFACE ((FLAGS UINT32) (FORMAT (SDL_PIXELFORMAT *)) (W :LONG) (H :LONG) (PITCH UINT16) (#:G7421 (:CHAR 2)) (PIXELS (:VOID *)) (OFFSET :LONG) (HWDATA (PRIVATE_HWDATA *)) (CLIP_RECT SDL_RECT) (UNUSED1 UINT32) (LOCKED UINT32) (MAP (SDL_BLITMAP *)) (FORMAT_VERSION :UNSIGNED-LONG) (REFCOUNT :LONG))) (DEFCONSTANT SDL_SWSURFACE 0) (DEFCONSTANT SDL_HWSURFACE 1) (DEFCONSTANT SDL_ASYNCBLIT 4) (DEFCONSTANT SDL_ANYFORMAT 268435456) (DEFCONSTANT SDL_HWPALETTE 536870912) (DEFCONSTANT SDL_DOUBLEBUF 1073741824) (DEFCONSTANT SDL_FULLSCREEN 2147483648) (DEFCONSTANT SDL_OPENGL 2) (DEFCONSTANT SDL_OPENGLBLIT 10) (DEFCONSTANT SDL_RESIZABLE 16) (DEFCONSTANT SDL_NOFRAME 32) (DEFCONSTANT SDL_HWACCEL 256) (DEFCONSTANT SDL_SRCCOLORKEY 4096) (DEFCONSTANT SDL_RLEACCELOK 8192) (DEFCONSTANT SDL_RLEACCEL 16384) (DEFCONSTANT SDL_SRCALPHA 65536) (DEFCONSTANT SDL_PREALLOC 16777216)) (PROGN (PROGN (EXPORT 'SDL_MUSTLOCK) (DECLAIM (INLINE SDL_MUSTLOCK)) (DEFUN SDL_MUSTLOCK (SURFACE) (IF (> 0 (C-TYPES:CREF SDL_SURFACE SURFACE OFFSET)) (VALUES 1) (IF (NOT (EQL 0 (LOGAND (C-TYPES:CREF SDL_SURFACE SURFACE FLAGS) (LOGIOR SDL_HWSURFACE SDL_ASYNCBLIT SDL_RLEACCEL)))) (VALUES 1) (VALUES 0)))))) (PROGN) (PROGN (EXPORT '(SDL_VIDEOINFO)) (C-TYPES:DEFCSTRUCT SDL_VIDEOINFO ((INT1 UINT8) (INT2 UINT8) (INT3 UINT16) (VIDEO_MEM UINT32) (VFMT (SDL_PIXELFORMAT *))))) @@ -63,7 +63,7 @@ (PROGN (EXPORT '(SDL_APPMOUSEFOCUS SDL_APPINPUTFOCUS SDL_APPACTIVE)) (DEFCONSTANT SDL_APPMOUSEFOCUS 1) (DEFCONSTANT SDL_APPINPUTFOCUS 2) (DEFCONSTANT SDL_APPACTIVE 4)) (PROGN (EXPORT '(SDL_GETAPPSTATE)) (C-TYPES:DEFUN-DLL SDL_GETAPPSTATE NIL :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetAppState" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDLK_UNKNOWN SDLK_FIRST SDLK_BACKSPACE SDLK_TAB SDLK_CLEAR SDLK_RETURN SDLK_PAUSE SDLK_ESCAPE SDLK_SPACE SDLK_EXCLAIM SDLK_QUOTEDBL SDLK_HASH SDLK_DOLLAR SDLK_AMPERSAND SDLK_QUOTE SDLK_LEFTPAREN SDLK_RIGHTPAREN SDLK_ASTERISK SDLK_PLUS SDLK_COMMA SDLK_MINUS SDLK_PERIOD SDLK_SLASH SDLK_0 SDLK_1 SDLK_2 SDLK_3 SDLK_4 SDLK_5 SDLK_6 SDLK_7 SDLK_8 SDLK_9 SDLK_COLON SDLK_SEMICOLON SDLK_LESS SDLK_EQUALS SDLK_GREATER SDLK_QUESTION SDLK_AT SDLK_LEFTBRACKET SDLK_BACKSLASH SDLK_RIGHTBRACKET SDLK_CARET SDLK_UNDERSCORE SDLK_BACKQUOTE SDLK_A SDLK_B SDLK_C SDLK_D SDLK_E SDLK_F SDLK_G SDLK_H SDLK_I SDLK_J SDLK_K SDLK_L SDLK_M SDLK_N SDLK_O SDLK_P SDLK_Q SDLK_R SDLK_S SDLK_T SDLK_U SDLK_V SDLK_W SDLK_X SDLK_Y SDLK_Z SDLK_DELETE SDLK_WORLD_0 SDLK_WORLD_1 SDLK_WORLD_2 SDLK_WORLD_3 SDLK_WORLD_4 SDLK_WORLD_5 SDLK_WORLD_6 SDLK_WORLD_7 SDLK_WORLD_8 SDLK_WORLD_9 SDLK_WORLD_10 SDLK_WORLD_11 SDLK_WORLD_12 SDLK_WORLD_13 SDLK_WORLD_14 SDLK_WORLD_15 SDLK_WORLD_16 SDLK_WORLD_17 SDLK_WORLD_18 SDLK_WORLD_19 SDLK_WORLD_20 SDLK_WORLD_21 SDLK_WORLD_22 SDLK_WORLD_23 SDLK_WORLD_24 SDLK_WORLD_25 SDLK_WORLD_26 SDLK_WORLD_27 SDLK_WORLD_28 SDLK_WORLD_29 SDLK_WORLD_30 SDLK_WORLD_31 SDLK_WORLD_32 SDLK_WORLD_33 SDLK_WORLD_34 SDLK_WORLD_35 SDLK_WORLD_36 SDLK_WORLD_37 SDLK_WORLD_38 SDLK_WORLD_39 SDLK_WORLD_40 SDLK_WORLD_41 SDLK_WORLD_42 SDLK_WORLD_43 SDLK_WORLD_44 SDLK_WORLD_45 SDLK_WORLD_46 SDLK_WORLD_47 SDLK_WORLD_48 SDLK_WORLD_49 SDLK_WORLD_50 SDLK_WORLD_51 SDLK_WORLD_52 SDLK_WORLD_53 SDLK_WORLD_54 SDLK_WORLD_55 SDLK_WORLD_56 SDLK_WORLD_57 SDLK_WORLD_58 SDLK_WORLD_59 SDLK_WORLD_60 SDLK_WORLD_61 SDLK_WORLD_62 SDLK_WORLD_63 SDLK_WORLD_64 SDLK_WORLD_65 SDLK_WORLD_66 SDLK_WORLD_67 SDLK_WORLD_68 SDLK_WORLD_69 SDLK_WORLD_70 SDLK_WORLD_71 SDLK_WORLD_72 SDLK_WORLD_73 SDLK_WORLD_74 SDLK_WORLD_75 SDLK_WORLD_76 SDLK_WORLD_77 SDLK_WORLD_78 SDLK_WORLD_79 SDLK_WORLD_80 SDLK_WORLD_81 SDLK_WORLD_82 SDLK_WORLD_83 SDLK_WORLD_84 SDLK_WORLD_85 SDLK_WORLD_86 SDLK_WORLD_87 SDLK_WORLD_88 SDLK_WORLD_89 SDLK_WORLD_90 SDLK_WORLD_91 SDLK_WORLD_92 SDLK_WORLD_93 SDLK_WORLD_94 SDLK_WORLD_95 SDLK_KP0 SDLK_KP1 SDLK_KP2 SDLK_KP3 SDLK_KP4 SDLK_KP5 SDLK_KP6 SDLK_KP7 SDLK_KP8 SDLK_KP9 SDLK_KP_PERIOD SDLK_KP_DIVIDE SDLK_KP_MULTIPLY SDLK_KP_MINUS SDLK_KP_PLUS SDLK_KP_ENTER SDLK_KP_EQUALS SDLK_UP SDLK_DOWN SDLK_RIGHT SDLK_LEFT SDLK_INSERT SDLK_HOME SDLK_END SDLK_PAGEUP SDLK_PAGEDOWN SDLK_F1 SDLK_F2 SDLK_F3 SDLK_F4 SDLK_F5 SDLK_F6 SDLK_F7 SDLK_F8 SDLK_F9 SDLK_F10 SDLK_F11 SDLK_F12 SDLK_F13 SDLK_F14 SDLK_F15 SDLK_NUMLOCK SDLK_CAPSLOCK SDLK_SCROLLOCK SDLK_RSHIFT SDLK_LSHIFT SDLK_RCTRL SDLK_LCTRL SDLK_RALT SDLK_LALT SDLK_RMETA SDLK_LMETA SDLK_LSUPER SDLK_RSUPER SDLK_MODE SDLK_COMPOSE SDLK_HELP SDLK_PRINT SDLK_SYSREQ SDLK_BREAK SDLK_MENU SDLK_POWER SDLK_EURO SDLK_UNDO SDLK_LAST SDLKEY KMOD_NONE KMOD_LSHIFT KMOD_RSHIFT KMOD_LCTRL KMOD_RCTRL KMOD_LALT KMOD_RALT KMOD_LMETA KMOD_RMETA KMOD_NUM KMOD_CAPS KMOD_MODE KMOD_RESERVED SDLMOD KMOD_CTRL KMOD_SHIFT KMOD_ALT KMOD_META)) (C-TYPES:DEFCTYPE SDLKEY :LONG) (DEFCONSTANT SDLK_LAST 323) (DEFCONSTANT SDLK_UNDO 322) (DEFCONSTANT SDLK_EURO 321) (DEFCONSTANT SDLK_POWER 320) (DEFCONSTANT SDLK_MENU 319) (DEFCONSTANT SDLK_BREAK 318) (DEFCONSTANT SDLK_SYSREQ 317) (DEFCONSTANT SDLK_PRINT 316) (DEFCONSTANT SDLK_HELP 315) (DEFCONSTANT SDLK_COMPOSE 314) (DEFCONSTANT SDLK_MODE 313) (DEFCONSTANT SDLK_RSUPER 312) (DEFCONSTANT SDLK_LSUPER 311) (DEFCONSTANT SDLK_LMETA 310) (DEFCONSTANT SDLK_RMETA 309) (DEFCONSTANT SDLK_LALT 308) (DEFCONSTANT SDLK_RALT 307) (DEFCONSTANT SDLK_LCTRL 306) (DEFCONSTANT SDLK_RCTRL 305) (DEFCONSTANT SDLK_LSHIFT 304) (DEFCONSTANT SDLK_RSHIFT 303) (DEFCONSTANT SDLK_SCROLLOCK 302) (DEFCONSTANT SDLK_CAPSLOCK 301) (DEFCONSTANT SDLK_NUMLOCK 300) (DEFCONSTANT SDLK_F15 296) (DEFCONSTANT SDLK_F14 295) (DEFCONSTANT SDLK_F13 294) (DEFCONSTANT SDLK_F12 293) (DEFCONSTANT SDLK_F11 292) (DEFCONSTANT SDLK_F10 291) (DEFCONSTANT SDLK_F9 290) (DEFCONSTANT SDLK_F8 289) (DEFCONSTANT SDLK_F7 288) (DEFCONSTANT SDLK_F6 287) (DEFCONSTANT SDLK_F5 286) (DEFCONSTANT SDLK_F4 285) (DEFCONSTANT SDLK_F3 284) (DEFCONSTANT SDLK_F2 283) (DEFCONSTANT SDLK_F1 282) (DEFCONSTANT SDLK_PAGEDOWN 281) (DEFCONSTANT SDLK_PAGEUP 280) (DEFCONSTANT SDLK_END 279) (DEFCONSTANT SDLK_HOME 278) (DEFCONSTANT SDLK_INSERT 277) (DEFCONSTANT SDLK_LEFT 276) (DEFCONSTANT SDLK_RIGHT 275) (DEFCONSTANT SDLK_DOWN 274) (DEFCONSTANT SDLK_UP 273) (DEFCONSTANT SDLK_KP_EQUALS 272) (DEFCONSTANT SDLK_KP_ENTER 271) (DEFCONSTANT SDLK_KP_PLUS 270) (DEFCONSTANT SDLK_KP_MINUS 269) (DEFCONSTANT SDLK_KP_MULTIPLY 268) (DEFCONSTANT SDLK_KP_DIVIDE 267) (DEFCONSTANT SDLK_KP_PERIOD 266) (DEFCONSTANT SDLK_KP9 265) (DEFCONSTANT SDLK_KP8 264) (DEFCONSTANT SDLK_KP7 263) (DEFCONSTANT SDLK_KP6 262) (DEFCONSTANT SDLK_KP5 261) (DEFCONSTANT SDLK_KP4 260) (DEFCONSTANT SDLK_KP3 259) (DEFCONSTANT SDLK_KP2 258) (DEFCONSTANT SDLK_KP1 257) (DEFCONSTANT SDLK_KP0 256) (DEFCONSTANT SDLK_WORLD_95 255) (DEFCONSTANT SDLK_WORLD_94 254) (DEFCONSTANT SDLK_WORLD_93 253) (DEFCONSTANT SDLK_WORLD_92 252) (DEFCONSTANT SDLK_WORLD_91 251) (DEFCONSTANT SDLK_WORLD_90 250) (DEFCONSTANT SDLK_WORLD_89 249) (DEFCONSTANT SDLK_WORLD_88 248) (DEFCONSTANT SDLK_WORLD_87 247) (DEFCONSTANT SDLK_WORLD_86 246) (DEFCONSTANT SDLK_WORLD_85 245) (DEFCONSTANT SDLK_WORLD_84 244) (DEFCONSTANT SDLK_WORLD_83 243) (DEFCONSTANT SDLK_WORLD_82 242) (DEFCONSTANT SDLK_WORLD_81 241) (DEFCONSTANT SDLK_WORLD_80 240) (DEFCONSTANT SDLK_WORLD_79 239) (DEFCONSTANT SDLK_WORLD_78 238) (DEFCONSTANT SDLK_WORLD_77 237) (DEFCONSTANT SDLK_WORLD_76 236) (DEFCONSTANT SDLK_WORLD_75 235) (DEFCONSTANT SDLK_WORLD_74 234) (DEFCONSTANT SDLK_WORLD_73 233) (DEFCONSTANT SDLK_WORLD_72 232) (DEFCONSTANT SDLK_WORLD_71 231) (DEFCONSTANT SDLK_WORLD_70 230) (DEFCONSTANT SDLK_WORLD_69 229) (DEFCONSTANT SDLK_WORLD_68 228) (DEFCONSTANT SDLK_WORLD_67 227) (DEFCONSTANT SDLK_WORLD_66 226) (DEFCONSTANT SDLK_WORLD_65 225) (DEFCONSTANT SDLK_WORLD_64 224) (DEFCONSTANT SDLK_WORLD_63 223) (DEFCONSTANT SDLK_WORLD_62 222) (DEFCONSTANT SDLK_WORLD_61 221) (DEFCONSTANT SDLK_WORLD_60 220) (DEFCONSTANT SDLK_WORLD_59 219) (DEFCONSTANT SDLK_WORLD_58 218) (DEFCONSTANT SDLK_WORLD_57 217) (DEFCONSTANT SDLK_WORLD_56 216) (DEFCONSTANT SDLK_WORLD_55 215) (DEFCONSTANT SDLK_WORLD_54 214) (DEFCONSTANT SDLK_WORLD_53 213) (DEFCONSTANT SDLK_WORLD_52 212) (DEFCONSTANT SDLK_WORLD_51 211) (DEFCONSTANT SDLK_WORLD_50 210) (DEFCONSTANT SDLK_WORLD_49 209) (DEFCONSTANT SDLK_WORLD_48 208) (DEFCONSTANT SDLK_WORLD_47 207) (DEFCONSTANT SDLK_WORLD_46 206) (DEFCONSTANT SDLK_WORLD_45 205) (DEFCONSTANT SDLK_WORLD_44 204) (DEFCONSTANT SDLK_WORLD_43 203) (DEFCONSTANT SDLK_WORLD_42 202) (DEFCONSTANT SDLK_WORLD_41 201) (DEFCONSTANT SDLK_WORLD_40 200) (DEFCONSTANT SDLK_WORLD_39 199) (DEFCONSTANT SDLK_WORLD_38 198) (DEFCONSTANT SDLK_WORLD_37 197) (DEFCONSTANT SDLK_WORLD_36 196) (DEFCONSTANT SDLK_WORLD_35 195) (DEFCONSTANT SDLK_WORLD_34 194) (DEFCONSTANT SDLK_WORLD_33 193) (DEFCONSTANT SDLK_WORLD_32 192) (DEFCONSTANT SDLK_WORLD_31 191) (DEFCONSTANT SDLK_WORLD_30 190) (DEFCONSTANT SDLK_WORLD_29 189) (DEFCONSTANT SDLK_WORLD_28 188) (DEFCONSTANT SDLK_WORLD_27 187) (DEFCONSTANT SDLK_WORLD_26 186) (DEFCONSTANT SDLK_WORLD_25 185) (DEFCONSTANT SDLK_WORLD_24 184) (DEFCONSTANT SDLK_WORLD_23 183) (DEFCONSTANT SDLK_WORLD_22 182) (DEFCONSTANT SDLK_WORLD_21 181) (DEFCONSTANT SDLK_WORLD_20 180) (DEFCONSTANT SDLK_WORLD_19 179) (DEFCONSTANT SDLK_WORLD_18 178) (DEFCONSTANT SDLK_WORLD_17 177) (DEFCONSTANT SDLK_WORLD_16 176) (DEFCONSTANT SDLK_WORLD_15 175) (DEFCONSTANT SDLK_WORLD_14 174) (DEFCONSTANT SDLK_WORLD_13 173) (DEFCONSTANT SDLK_WORLD_12 172) (DEFCONSTANT SDLK_WORLD_11 171) (DEFCONSTANT SDLK_WORLD_10 170) (DEFCONSTANT SDLK_WORLD_9 169) (DEFCONSTANT SDLK_WORLD_8 168) (DEFCONSTANT SDLK_WORLD_7 167) (DEFCONSTANT SDLK_WORLD_6 166) (DEFCONSTANT SDLK_WORLD_5 165) (DEFCONSTANT SDLK_WORLD_4 164) (DEFCONSTANT SDLK_WORLD_3 163) (DEFCONSTANT SDLK_WORLD_2 162) (DEFCONSTANT SDLK_WORLD_1 161) (DEFCONSTANT SDLK_WORLD_0 160) (DEFCONSTANT SDLK_DELETE 127) (DEFCONSTANT SDLK_Z 122) (DEFCONSTANT SDLK_Y 121) (DEFCONSTANT SDLK_X 120) (DEFCONSTANT SDLK_W 119) (DEFCONSTANT SDLK_V 118) (DEFCONSTANT SDLK_U 117) (DEFCONSTANT SDLK_T 116) (DEFCONSTANT SDLK_S 115) (DEFCONSTANT SDLK_R 114) (DEFCONSTANT SDLK_Q 113) (DEFCONSTANT SDLK_P 112) (DEFCONSTANT SDLK_O 111) (DEFCONSTANT SDLK_N 110) (DEFCONSTANT SDLK_M 109) (DEFCONSTANT SDLK_L 108) (DEFCONSTANT SDLK_K 107) (DEFCONSTANT SDLK_J 106) (DEFCONSTANT SDLK_I 105) (DEFCONSTANT SDLK_H 104) (DEFCONSTANT SDLK_G 103) (DEFCONSTANT SDLK_F 102) (DEFCONSTANT SDLK_E 101) (DEFCONSTANT SDLK_D 100) (DEFCONSTANT SDLK_C 99) (DEFCONSTANT SDLK_B 98) (DEFCONSTANT SDLK_A 97) (DEFCONSTANT SDLK_BACKQUOTE 96) (DEFCONSTANT SDLK_UNDERSCORE 95) (DEFCONSTANT SDLK_CARET 94) (DEFCONSTANT SDLK_RIGHTBRACKET 93) (DEFCONSTANT SDLK_BACKSLASH 92) (DEFCONSTANT SDLK_LEFTBRACKET 91) (DEFCONSTANT SDLK_AT 64) (DEFCONSTANT SDLK_QUESTION 63) (DEFCONSTANT SDLK_GREATER 62) (DEFCONSTANT SDLK_EQUALS 61) (DEFCONSTANT SDLK_LESS 60) (DEFCONSTANT SDLK_SEMICOLON 59) (DEFCONSTANT SDLK_COLON 58) (DEFCONSTANT SDLK_9 57) (DEFCONSTANT SDLK_8 56) (DEFCONSTANT SDLK_7 55) (DEFCONSTANT SDLK_6 54) (DEFCONSTANT SDLK_5 53) (DEFCONSTANT SDLK_4 52) (DEFCONSTANT SDLK_3 51) (DEFCONSTANT SDLK_2 50) (DEFCONSTANT SDLK_1 49) (DEFCONSTANT SDLK_0 48) (DEFCONSTANT SDLK_SLASH 47) (DEFCONSTANT SDLK_PERIOD 46) (DEFCONSTANT SDLK_MINUS 45) (DEFCONSTANT SDLK_COMMA 44) (DEFCONSTANT SDLK_PLUS 43) (DEFCONSTANT SDLK_ASTERISK 42) (DEFCONSTANT SDLK_RIGHTPAREN 41) (DEFCONSTANT SDLK_LEFTPAREN 40) (DEFCONSTANT SDLK_QUOTE 39) (DEFCONSTANT SDLK_AMPERSAND 38) (DEFCONSTANT SDLK_DOLLAR 36) (DEFCONSTANT SDLK_HASH 35) (DEFCONSTANT SDLK_QUOTEDBL 34) (DEFCONSTANT SDLK_EXCLAIM 33) (DEFCONSTANT SDLK_SPACE 32) (DEFCONSTANT SDLK_ESCAPE 27) (DEFCONSTANT SDLK_PAUSE 19) (DEFCONSTANT SDLK_RETURN 13) (DEFCONSTANT SDLK_CLEAR 12) (DEFCONSTANT SDLK_TAB 9) (DEFCONSTANT SDLK_BACKSPACE 8) (DEFCONSTANT SDLK_FIRST 0) (DEFCONSTANT SDLK_UNKNOWN 0) (C-TYPES:DEFCTYPE SDLMOD :LONG) (DEFCONSTANT KMOD_RESERVED 32768) (DEFCONSTANT KMOD_MODE 16384) (DEFCONSTANT KMOD_CAPS 8192) (DEFCONSTANT KMOD_NUM 4096) (DEFCONSTANT KMOD_RMETA 2048) (DEFCONSTANT KMOD_LMETA 1024) (DEFCONSTANT KMOD_RALT 512) (DEFCONSTANT KMOD_LALT 256) (DEFCONSTANT KMOD_RCTRL 128) (DEFCONSTANT KMOD_LCTRL 64) (DEFCONSTANT KMOD_RSHIFT 2) (DEFCONSTANT KMOD_LSHIFT 1) (DEFCONSTANT KMOD_NONE 0) (DEFCONSTANT KMOD_CTRL (LOGIOR KMOD_LCTRL KMOD_RCTRL)) (DEFCONSTANT KMOD_SHIFT (LOGIOR KMOD_LSHIFT KMOD_RSHIFT)) (DEFCONSTANT KMOD_ALT (LOGIOR KMOD_LALT KMOD_RALT)) (DEFCONSTANT KMOD_META (LOGIOR KMOD_LMETA KMOD_RMETA))) -(PROGN (EXPORT '(SDL_KEYSYM SDL_ALL_HOTKEYS)) (C-TYPES:DEFCSTRUCT SDL_KEYSYM ((SCANCODE UINT8) (#:G7832 (:CHAR 3)) (SYM SDLKEY) (MOD SDLMOD) (UNICODE UINT16))) (DEFCONSTANT SDL_ALL_HOTKEYS 4294967295)) +(PROGN (EXPORT '(SDL_KEYSYM SDL_ALL_HOTKEYS)) (C-TYPES:DEFCSTRUCT SDL_KEYSYM ((SCANCODE UINT8) (#:G7422 (:CHAR 3)) (SYM SDLKEY) (MOD SDLMOD) (UNICODE UINT16))) (DEFCONSTANT SDL_ALL_HOTKEYS 4294967295)) (PROGN (EXPORT '(SDL_ENABLEUNICODE)) (C-TYPES:DEFUN-DLL SDL_ENABLEUNICODE ((ENABLE :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_EnableUNICODE" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_DEFAULT_REPEAT_DELAY SDL_DEFAULT_REPEAT_INTERVAL)) (DEFCONSTANT SDL_DEFAULT_REPEAT_DELAY 500) (DEFCONSTANT SDL_DEFAULT_REPEAT_INTERVAL 30)) (PROGN (EXPORT '(SDL_ENABLEKEYREPEAT SDL_GETKEYSTATE SDL_GETMODSTATE SDL_SETMODSTATE SDL_GETKEYNAME)) (C-TYPES:DEFUN-DLL SDL_ENABLEKEYREPEAT ((DELAY :LONG) (INTERVAL :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_EnableKeyRepeat" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETKEYSTATE ((NUMKEYS (:LONG *))) :RETURN-TYPE (UINT8 *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetKeyState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETMODSTATE NIL :RETURN-TYPE SDLMOD :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetModState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_SETMODSTATE ((MODSTATE SDLMOD)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_SetModState" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_GETKEYNAME ((KEY SDLKEY)) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetKeyName" :LINKAGE-TYPE :C)) @@ -78,8 +78,8 @@ (PROGN (EXPORT '(SDL_JOYSTICKGETHAT SDL_JOYSTICKGETBALL SDL_JOYSTICKGETBUTTON SDL_JOYSTICKCLOSE)) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETHAT ((JOYSTICK (SDL_JOYSTICK *)) (HAT :LONG)) :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetHat" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETBALL ((JOYSTICK (SDL_JOYSTICK *)) (BALL :LONG) (DX (:LONG *)) (DY (:LONG *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetBall" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKGETBUTTON ((JOYSTICK (SDL_JOYSTICK *)) (BUTTON :LONG)) :RETURN-TYPE UINT8 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickGetButton" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_JOYSTICKCLOSE ((JOYSTICK (SDL_JOYSTICK *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_JoystickClose" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_NOEVENT SDL_ACTIVEEVENT SDL_KEYDOWN SDL_KEYUP SDL_MOUSEMOTION SDL_MOUSEBUTTONDOWN SDL_MOUSEBUTTONUP SDL_JOYAXISMOTION SDL_JOYBALLMOTION SDL_JOYHATMOTION SDL_JOYBUTTONDOWN SDL_JOYBUTTONUP SDL_QUIT SDL_SYSWMEVENT SDL_EVENT_RESERVEDA SDL_EVENT_RESERVEDB SDL_VIDEORESIZE SDL_VIDEOEXPOSE SDL_EVENT_RESERVED2 SDL_EVENT_RESERVED3 SDL_EVENT_RESERVED4 SDL_EVENT_RESERVED5 SDL_EVENT_RESERVED6 SDL_EVENT_RESERVED7 SDL_USEREVENT SDL_NUMEVENTS)) (DEFCONSTANT SDL_NUMEVENTS 32) (DEFCONSTANT SDL_USEREVENT 24) (DEFCONSTANT SDL_EVENT_RESERVED7 23) (DEFCONSTANT SDL_EVENT_RESERVED6 22) (DEFCONSTANT SDL_EVENT_RESERVED5 21) (DEFCONSTANT SDL_EVENT_RESERVED4 20) (DEFCONSTANT SDL_EVENT_RESERVED3 19) (DEFCONSTANT SDL_EVENT_RESERVED2 18) (DEFCONSTANT SDL_VIDEOEXPOSE 17) (DEFCONSTANT SDL_VIDEORESIZE 16) (DEFCONSTANT SDL_EVENT_RESERVEDB 15) (DEFCONSTANT SDL_EVENT_RESERVEDA 14) (DEFCONSTANT SDL_SYSWMEVENT 13) (DEFCONSTANT SDL_QUIT 12) (DEFCONSTANT SDL_JOYBUTTONUP 11) (DEFCONSTANT SDL_JOYBUTTONDOWN 10) (DEFCONSTANT SDL_JOYHATMOTION 9) (DEFCONSTANT SDL_JOYBALLMOTION 8) (DEFCONSTANT SDL_JOYAXISMOTION 7) (DEFCONSTANT SDL_MOUSEBUTTONUP 6) (DEFCONSTANT SDL_MOUSEBUTTONDOWN 5) (DEFCONSTANT SDL_MOUSEMOTION 4) (DEFCONSTANT SDL_KEYUP 3) (DEFCONSTANT SDL_KEYDOWN 2) (DEFCONSTANT SDL_ACTIVEEVENT 1) (DEFCONSTANT SDL_NOEVENT 0)) (PROGN (PROGN (EXPORT 'SDL_EVENTMASK) (DEFUN SDL_EVENTMASK (X) (ASH 1 X)))) -(PROGN (EXPORT '(SDL_ALLEVENTS SDL_ACTIVEEVENT SDL_KEYBOARDEVENT SDL_MOUSEMOTIONEVENT SDL_MOUSEBUTTONEVENT SDL_JOYAXISEVENT SDL_JOYBALLEVENT SDL_JOYHATEVENT SDL_JOYBUTTONEVENT SDL_RESIZEEVENT SDL_EXPOSEEVENT SDL_QUITEVENT SDL_USEREVENT SDL_SYSWMMSG SDL_SYSWMEVENT)) (PROGN (EXPORT 'SDL_ACTIVEEVENTMASK) (DEFUN SDL_ACTIVEEVENTMASK NIL (SDL_EVENTMASK SDL_ACTIVEEVENT))) (PROGN (EXPORT 'SDL_KEYDOWNMASK) (DEFUN SDL_KEYDOWNMASK NIL (SDL_EVENTMASK SDL_KEYDOWN))) (PROGN (EXPORT 'SDL_KEYUPMASK) (DEFUN SDL_KEYUPMASK NIL (SDL_EVENTMASK SDL_KEYUP))) (PROGN (EXPORT 'SDL_MOUSEMOTIONMASK) (DEFUN SDL_MOUSEMOTIONMASK NIL (SDL_EVENTMASK SDL_MOUSEMOTION))) (PROGN (EXPORT 'SDL_MOUSEBUTTONDOWNMASK) (DEFUN SDL_MOUSEBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN))) (PROGN (EXPORT 'SDL_MOUSEBUTTONUPMASK) (DEFUN SDL_MOUSEBUTTONUPMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONUP))) (PROGN (EXPORT 'SDL_MOUSEEVENTMASK) (DEFUN SDL_MOUSEEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_MOUSEMOTION) (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN) (SDL_EVENTMASK SDL_MOUSEBUTTONUP)))) (PROGN (EXPORT 'SDL_JOYAXISMOTIONMASK) (DEFUN SDL_JOYAXISMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYAXISMOTION))) (PROGN (EXPORT 'SDL_JOYBALLMOTIONMASK) (DEFUN SDL_JOYBALLMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYBALLMOTION))) (PROGN (EXPORT 'SDL_JOYHATMOTIONMASK) (DEFUN SDL_JOYHATMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYHATMOTION))) (PROGN (EXPORT 'SDL_JOYBUTTONDOWNMASK) (DEFUN SDL_JOYBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONDOWN))) (PROGN (EXPORT 'SDL_JOYBUTTONUPMASK) (DEFUN SDL_JOYBUTTONUPMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONUP))) (PROGN (EXPORT 'SDL_JOYEVENTMASK) (DEFUN SDL_JOYEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_JOYAXISMOTION) (SDL_EVENTMASK SDL_JOYBALLMOTION) (SDL_EVENTMASK SDL_JOYHATMOTION) (SDL_EVENTMASK SDL_JOYBUTTONDOWN) (SDL_EVENTMASK SDL_JOYBUTTONUP)))) (PROGN (EXPORT 'SDL_VIDEORESIZEMASK) (DEFUN SDL_VIDEORESIZEMASK NIL (SDL_EVENTMASK SDL_VIDEORESIZE))) (PROGN (EXPORT 'SDL_VIDEOEXPOSEMASK) (DEFUN SDL_VIDEOEXPOSEMASK NIL (SDL_EVENTMASK SDL_VIDEOEXPOSE))) (PROGN (EXPORT 'SDL_QUITMASK) (DEFUN SDL_QUITMASK NIL (SDL_EVENTMASK SDL_QUIT))) (PROGN (EXPORT 'SDL_SYSWMEVENTMASK) (DEFUN SDL_SYSWMEVENTMASK NIL (SDL_EVENTMASK SDL_SYSWMEVENT))) (DEFCONSTANT SDL_ALLEVENTS 4294967295) (C-TYPES:DEFCSTRUCT SDL_ACTIVEEVENT ((TYPE UINT8) (GAIN UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_KEYBOARDEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7833 (:CHAR 1)) (KEYSYM SDL_KEYSYM))) (C-TYPES:DEFCSTRUCT SDL_MOUSEMOTIONEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7834 (:CHAR 1)) (X UINT16) (Y UINT16) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_MOUSEBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8) (X UINT16) (Y UINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYAXISEVENT ((TYPE UINT8) (WHICH UINT8) (AXIS UINT8) (#:G7835 (:CHAR 1)) (VALUE SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYBALLEVENT ((TYPE UINT8) (WHICH UINT8) (BALL UINT8) (#:G7836 (:CHAR 1)) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYHATEVENT ((TYPE UINT8) (WHICH UINT8) (HAT UINT8) (VALUE UINT8))) (C-TYPES:DEFCSTRUCT SDL_JOYBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_RESIZEEVENT ((TYPE UINT8) (#:G7837 (:CHAR 3)) (W :LONG) (H :LONG))) (C-TYPES:DEFCSTRUCT SDL_EXPOSEEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_QUITEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_USEREVENT ((TYPE UINT8) (#:G7838 (:CHAR 3)) (CODE :LONG) (DATA1 (:VOID *)) (DATA2 (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG NIL) (C-TYPES:DEFCSTRUCT SDL_SYSWMEVENT ((TYPE UINT8) (#:G7839 (:CHAR 3)) (MSG (SDL_SYSWMMSG *))))) -(PROGN (EXPORT '(SDL_EVENT)) (C-TYPES:DEFCSTRUCT SDL_EVENT ((TYPE UINT8) (#:G7840 (:CHAR 3)) (BUFFER (UINT8 1023))))) +(PROGN (EXPORT '(SDL_ALLEVENTS SDL_ACTIVEEVENT SDL_KEYBOARDEVENT SDL_MOUSEMOTIONEVENT SDL_MOUSEBUTTONEVENT SDL_JOYAXISEVENT SDL_JOYBALLEVENT SDL_JOYHATEVENT SDL_JOYBUTTONEVENT SDL_RESIZEEVENT SDL_EXPOSEEVENT SDL_QUITEVENT SDL_USEREVENT SDL_SYSWMMSG SDL_SYSWMEVENT)) (PROGN (EXPORT 'SDL_ACTIVEEVENTMASK) (DEFUN SDL_ACTIVEEVENTMASK NIL (SDL_EVENTMASK SDL_ACTIVEEVENT))) (PROGN (EXPORT 'SDL_KEYDOWNMASK) (DEFUN SDL_KEYDOWNMASK NIL (SDL_EVENTMASK SDL_KEYDOWN))) (PROGN (EXPORT 'SDL_KEYUPMASK) (DEFUN SDL_KEYUPMASK NIL (SDL_EVENTMASK SDL_KEYUP))) (PROGN (EXPORT 'SDL_MOUSEMOTIONMASK) (DEFUN SDL_MOUSEMOTIONMASK NIL (SDL_EVENTMASK SDL_MOUSEMOTION))) (PROGN (EXPORT 'SDL_MOUSEBUTTONDOWNMASK) (DEFUN SDL_MOUSEBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN))) (PROGN (EXPORT 'SDL_MOUSEBUTTONUPMASK) (DEFUN SDL_MOUSEBUTTONUPMASK NIL (SDL_EVENTMASK SDL_MOUSEBUTTONUP))) (PROGN (EXPORT 'SDL_MOUSEEVENTMASK) (DEFUN SDL_MOUSEEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_MOUSEMOTION) (SDL_EVENTMASK SDL_MOUSEBUTTONDOWN) (SDL_EVENTMASK SDL_MOUSEBUTTONUP)))) (PROGN (EXPORT 'SDL_JOYAXISMOTIONMASK) (DEFUN SDL_JOYAXISMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYAXISMOTION))) (PROGN (EXPORT 'SDL_JOYBALLMOTIONMASK) (DEFUN SDL_JOYBALLMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYBALLMOTION))) (PROGN (EXPORT 'SDL_JOYHATMOTIONMASK) (DEFUN SDL_JOYHATMOTIONMASK NIL (SDL_EVENTMASK SDL_JOYHATMOTION))) (PROGN (EXPORT 'SDL_JOYBUTTONDOWNMASK) (DEFUN SDL_JOYBUTTONDOWNMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONDOWN))) (PROGN (EXPORT 'SDL_JOYBUTTONUPMASK) (DEFUN SDL_JOYBUTTONUPMASK NIL (SDL_EVENTMASK SDL_JOYBUTTONUP))) (PROGN (EXPORT 'SDL_JOYEVENTMASK) (DEFUN SDL_JOYEVENTMASK NIL (LOGIOR (SDL_EVENTMASK SDL_JOYAXISMOTION) (SDL_EVENTMASK SDL_JOYBALLMOTION) (SDL_EVENTMASK SDL_JOYHATMOTION) (SDL_EVENTMASK SDL_JOYBUTTONDOWN) (SDL_EVENTMASK SDL_JOYBUTTONUP)))) (PROGN (EXPORT 'SDL_VIDEORESIZEMASK) (DEFUN SDL_VIDEORESIZEMASK NIL (SDL_EVENTMASK SDL_VIDEORESIZE))) (PROGN (EXPORT 'SDL_VIDEOEXPOSEMASK) (DEFUN SDL_VIDEOEXPOSEMASK NIL (SDL_EVENTMASK SDL_VIDEOEXPOSE))) (PROGN (EXPORT 'SDL_QUITMASK) (DEFUN SDL_QUITMASK NIL (SDL_EVENTMASK SDL_QUIT))) (PROGN (EXPORT 'SDL_SYSWMEVENTMASK) (DEFUN SDL_SYSWMEVENTMASK NIL (SDL_EVENTMASK SDL_SYSWMEVENT))) (DEFCONSTANT SDL_ALLEVENTS 4294967295) (C-TYPES:DEFCSTRUCT SDL_ACTIVEEVENT ((TYPE UINT8) (GAIN UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_KEYBOARDEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7423 (:CHAR 1)) (KEYSYM SDL_KEYSYM))) (C-TYPES:DEFCSTRUCT SDL_MOUSEMOTIONEVENT ((TYPE UINT8) (WHICH UINT8) (STATE UINT8) (#:G7424 (:CHAR 1)) (X UINT16) (Y UINT16) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_MOUSEBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8) (X UINT16) (Y UINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYAXISEVENT ((TYPE UINT8) (WHICH UINT8) (AXIS UINT8) (#:G7425 (:CHAR 1)) (VALUE SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYBALLEVENT ((TYPE UINT8) (WHICH UINT8) (BALL UINT8) (#:G7426 (:CHAR 1)) (XREL SINT16) (YREL SINT16))) (C-TYPES:DEFCSTRUCT SDL_JOYHATEVENT ((TYPE UINT8) (WHICH UINT8) (HAT UINT8) (VALUE UINT8))) (C-TYPES:DEFCSTRUCT SDL_JOYBUTTONEVENT ((TYPE UINT8) (WHICH UINT8) (BUTTON UINT8) (STATE UINT8))) (C-TYPES:DEFCSTRUCT SDL_RESIZEEVENT ((TYPE UINT8) (#:G7427 (:CHAR 3)) (W :LONG) (H :LONG))) (C-TYPES:DEFCSTRUCT SDL_EXPOSEEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_QUITEVENT ((TYPE UINT8))) (C-TYPES:DEFCSTRUCT SDL_USEREVENT ((TYPE UINT8) (#:G7428 (:CHAR 3)) (CODE :LONG) (DATA1 (:VOID *)) (DATA2 (:VOID *)))) (C-TYPES:DEFCSTRUCT SDL_SYSWMMSG NIL) (C-TYPES:DEFCSTRUCT SDL_SYSWMEVENT ((TYPE UINT8) (#:G7429 (:CHAR 3)) (MSG (SDL_SYSWMMSG *))))) +(PROGN (EXPORT '(SDL_EVENT)) (C-TYPES:DEFCSTRUCT SDL_EVENT ((TYPE UINT8) (#:G7430 (:CHAR 3)) (BUFFER (UINT8 1023))))) (PROGN (EXPORT '(SDL_PUMPEVENTS)) (C-TYPES:DEFUN-DLL SDL_PUMPEVENTS NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PumpEvents" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_ADDEVENT SDL_PEEKEVENT SDL_GETEVENT SDL_EVENTACTION)) (C-TYPES:DEFCTYPE SDL_EVENTACTION :LONG) (DEFCONSTANT SDL_GETEVENT 2) (DEFCONSTANT SDL_PEEKEVENT 1) (DEFCONSTANT SDL_ADDEVENT 0)) (PROGN (EXPORT '(SDL_PEEPEVENTS SDL_POLLEVENT SDL_WAITEVENT SDL_PUSHEVENT)) (C-TYPES:DEFUN-DLL SDL_PEEPEVENTS ((EVENTS (SDL_EVENT *)) (NUMEVENTS :LONG) (ACTION SDL_EVENTACTION) (MASK UINT32)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PeepEvents" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_POLLEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PollEvent" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_WAITEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_WaitEvent" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_PUSHEVENT ((EVENT (SDL_EVENT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PushEvent" :LINKAGE-TYPE :C)) @@ -91,33 +91,6 @@ (PROGN (EXPORT '(SDL_TIMESLICE TIMER_RESOLUTION)) (DEFCONSTANT SDL_TIMESLICE 10) (DEFCONSTANT TIMER_RESOLUTION 10)) (PROGN (EXPORT '(SDL_GETTICKS SDL_DELAY SDL_TIMERCALLBACK)) (C-TYPES:DEFUN-DLL SDL_GETTICKS NIL :RETURN-TYPE UINT32 :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetTicks" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_DELAY ((MS UINT32)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_Delay" :LINKAGE-TYPE :C) (C-TYPES:DEFCTYPE SDL_TIMERCALLBACK (:VOID *))) (PROGN (EXPORT '(SDL_SETTIMER)) (C-TYPES:DEFUN-DLL SDL_SETTIMER ((INTERVAL UINT32) (CALLBACK SDL_TIMERCALLBACK)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_SetTimer" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_NEWTIMERCALLBACK)) (C-TYPES:DEFCTYPE SDL_NEWTIMERCALLBACK (:VOID *))) -(PROGN (EXPORT '(_SDL_TIMERID SDL_TIMERID)) (C-TYPES:DEFCSTRUCT _SDL_TIMERID NIL) (C-TYPES:DEFCTYPE SDL_TIMERID (_SDL_TIMERID *))) -(PROGN (EXPORT '(SDL_ADDTIMER SDL_REMOVETIMER)) (C-TYPES:DEFUN-DLL SDL_ADDTIMER ((INTERVAL UINT32) (CALLBACK SDL_NEWTIMERCALLBACK) (PARAM (:VOID *))) :RETURN-TYPE SDL_TIMERID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AddTimer" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_REMOVETIMER (("" SDL_TIMERID)) :RETURN-TYPE SDL_BOOL :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_RemoveTimer" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_PUTENV)) (C-TYPES:DEFUN-DLL SDL_PUTENV ((VARIABLE (:CHAR *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_putenv" :LINKAGE-TYPE :C)) -(PROGN (PROGN (EXPORT 'PUTENV) (DEFUN PUTENV (X) (SDL_PUTENV X)))) -(PROGN (EXPORT '(SDL_GETENV)) (C-TYPES:DEFUN-DLL SDL_GETENV ((NAME (:CHAR *))) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_getenv" :LINKAGE-TYPE :C)) -(PROGN (PROGN (EXPORT 'GETENV) (DEFUN GETENV (X) (SDL_GETENV X)))) -(PROGN (EXPORT '(SDL_LIL_ENDIAN SDL_BIG_ENDIAN)) (DEFCONSTANT SDL_LIL_ENDIAN 1234) (DEFCONSTANT SDL_BIG_ENDIAN 4321)) -(PROGN (EXPORT '(SDL_BYTEORDER)) (DEFCONSTANT SDL_BYTEORDER SDL_BIG_ENDIAN)) -(PROGN (EXPORT '(SDL_MAX_TRACKS SDL_AUDIO_TRACK SDL_DATA_TRACK CD_TRAYEMPTY CD_STOPPED CD_PLAYING CD_PAUSED CD_ERROR CDSTATUS)) (DEFCONSTANT SDL_MAX_TRACKS 99) (DEFCONSTANT SDL_AUDIO_TRACK 0) (DEFCONSTANT SDL_DATA_TRACK 4) (C-TYPES:DEFCTYPE CDSTATUS :LONG) (DEFCONSTANT CD_ERROR -1) (DEFCONSTANT CD_PAUSED 3) (DEFCONSTANT CD_PLAYING 2) (DEFCONSTANT CD_STOPPED 1) (DEFCONSTANT CD_TRAYEMPTY 0)) -(PROGN (PROGN (EXPORT 'CD_INDRIVE) (DEFUN CD_INDRIVE (STATUS) (IF (> STATUS 0) T NIL)))) -(PROGN (EXPORT '(SDL_CDTRACK SDL_CD)) (C-TYPES:DEFCSTRUCT SDL_CDTRACK ((ID UINT8) (TYPE UINT8) (UNUSED UINT16) (LENGTH UINT32) (OFFSET UINT32))) (C-TYPES:DEFCSTRUCT SDL_CD ((ID :LONG) (STATUS CDSTATUS) (NUMTRACKS :LONG) (CUR_TRACK :LONG) (CUR_FRAME :LONG) (TRACK (SDL_CDTRACK 100))))) -(PROGN (EXPORT '(CD_FPS)) (DEFCONSTANT CD_FPS 75)) -(PROGN (PROGN (EXPORT 'FRAMES_TO_MSF) (DEFUN FRAMES_TO_MSF (F) (VALUES (MOD F CD_FPS) (MOD (/ F CD_FPS) 60) (/ (/ F CD_FPS) 60)))) (PROGN (EXPORT 'MSF_TO_FRAMES) (DEFUN MSF_TO_FRAMES (M S F) (+ (* M 60 CD_FPS) (* S CD_FPS) F)))) -(PROGN (EXPORT '(SDL_CDNUMDRIVES SDL_CDNAME SDL_CDOPEN SDL_CDSTATUS SDL_CDPLAYTRACKS SDL_CDPLAY SDL_CDPAUSE SDL_CDRESUME SDL_CDSTOP SDL_CDEJECT SDL_CDCLOSE)) (C-TYPES:DEFUN-DLL SDL_CDNUMDRIVES NIL :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDNumDrives" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDNAME ((DRIVE :LONG)) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDName" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDOPEN ((DRIVE :LONG)) :RETURN-TYPE (SDL_CD *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDOpen" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDSTATUS ((CDROM (SDL_CD *))) :RETURN-TYPE CDSTATUS :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDStatus" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDPLAYTRACKS ((CDROM (SDL_CD *)) (START_TRACK :LONG) (START_FRAME :LONG) (NTRACKS :LONG) (NFRAMES :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDPlayTracks" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDPLAY ((CDROM (SDL_CD *)) (START :LONG) (LENGTH :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDPlay" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDPAUSE ((CDROM (SDL_CD *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDPause" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDRESUME ((CDROM (SDL_CD *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDResume" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDSTOP ((CDROM (SDL_CD *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDStop" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDEJECT ((CDROM (SDL_CD *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDEject" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CDCLOSE ((CDROM (SDL_CD *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CDClose" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_AUDIOSPEC)) (C-TYPES:DEFCSTRUCT SDL_AUDIOSPEC ((FREQ :LONG) (FORMAT UINT16) (CHANNELS UINT8) (SILENCE UINT8) (SAMPLES UINT16) (PADDING UINT16) (SIZE UINT32) (CALLBACK (:VOID *)) (USERDATA (:VOID *))))) -(PROGN (EXPORT '(AUDIO_U8 AUDIO_S8 AUDIO_U16LSB AUDIO_S16LSB AUDIO_U16MSB AUDIO_S16MSB AUDIO_U16 AUDIO_S16 AUDIO_U16SYS AUDIO_S16SYS)) (DEFCONSTANT AUDIO_U8 8) (DEFCONSTANT AUDIO_S8 32776) (DEFCONSTANT AUDIO_U16LSB 16) (DEFCONSTANT AUDIO_S16LSB 32784) (DEFCONSTANT AUDIO_U16MSB 4112) (DEFCONSTANT AUDIO_S16MSB 36880) (DEFCONSTANT AUDIO_U16 AUDIO_U16LSB) (DEFCONSTANT AUDIO_S16 AUDIO_S16LSB) (DEFCONSTANT AUDIO_U16SYS AUDIO_U16MSB) (DEFCONSTANT AUDIO_S16SYS AUDIO_S16MSB)) -(PROGN) -(PROGN (EXPORT '(SDL_AUDIOINIT SDL_AUDIOQUIT SDL_AUDIODRIVERNAME SDL_OPENAUDIO)) (C-TYPES:DEFUN-DLL SDL_AUDIOINIT ((DRIVER_NAME (:CHAR *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AudioInit" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_AUDIOQUIT NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AudioQuit" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_AUDIODRIVERNAME ((NAMEBUF (:CHAR *)) (MAXLEN :LONG)) :RETURN-TYPE (:CHAR *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AudioDriverName" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_OPENAUDIO ((DESIRED (SDL_AUDIOSPEC *)) (OBTAINED (SDL_AUDIOSPEC *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_OpenAudio" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_AUDIO_STOPPED SDL_AUDIO_PLAYING SDL_AUDIO_PAUSED SDL_AUDIOSTATUS)) (C-TYPES:DEFCTYPE SDL_AUDIOSTATUS :LONG) (DEFCONSTANT SDL_AUDIO_PAUSED 2) (DEFCONSTANT SDL_AUDIO_PLAYING 1) (DEFCONSTANT SDL_AUDIO_STOPPED 0)) -(PROGN (EXPORT '(SDL_GETAUDIOSTATUS SDL_PAUSEAUDIO SDL_LOADWAV_RW)) (C-TYPES:DEFUN-DLL SDL_GETAUDIOSTATUS NIL :RETURN-TYPE SDL_AUDIOSTATUS :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_GetAudioStatus" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_PAUSEAUDIO ((PAUSE_ON :LONG)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_PauseAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_LOADWAV_RW ((SRC (SDL_RWOPS *)) (FREESRC :LONG) (SPEC (SDL_AUDIOSPEC *)) (AUDIO_BUF ((UINT8 *) *)) (AUDIO_LEN (UINT32 *))) :RETURN-TYPE (SDL_AUDIOSPEC *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LoadWAV_RW" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_FREEWAV SDL_BUILDAUDIOCVT SDL_CONVERTAUDIO)) (PROGN (EXPORT 'SDL_LOADWAV) (DEFUN SDL_LOADWAV (FILE SPEC AUDIO_BUF AUDIO_LEN) (SDL_LOADWAV_RW (SDL_RWFROMFILE FILE "rb") 1 SPEC AUDIO_BUF AUDIO_LEN))) (C-TYPES:DEFUN-DLL SDL_FREEWAV ((AUDIO_BUF (UINT8 *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_FreeWAV" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_BUILDAUDIOCVT ((CVT (SDL_AUDIOCVT *)) (SRC_FORMAT UINT16) (SRC_CHANNELS UINT8) (SRC_RATE :LONG) (DST_FORMAT UINT16) (DST_CHANNELS UINT8) (DST_RATE :LONG)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_BuildAudioCVT" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CONVERTAUDIO ((CVT (SDL_AUDIOCVT *))) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_ConvertAudio" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_MIX_MAXVOLUME)) (DEFCONSTANT SDL_MIX_MAXVOLUME 128)) -(PROGN (EXPORT '(SDL_MIXAUDIO SDL_LOCKAUDIO SDL_UNLOCKAUDIO SDL_CLOSEAUDIO)) (C-TYPES:DEFUN-DLL SDL_MIXAUDIO ((DST (UINT8 *)) (SRC (UINT8 *)) (LEN UINT32) (VOLUME :LONG)) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_MixAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_LOCKAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LockAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_UNLOCKAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_UnlockAudio" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_CLOSEAUDIO NIL :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_CloseAudio" :LINKAGE-TYPE :C)) -(PROGN (EXPORT '(SDL_LOADOBJECT SDL_LOADFUNCTION SDL_UNLOADOBJECT)) (C-TYPES:DEFUN-DLL SDL_LOADOBJECT ((SOFILE (:CHAR *))) :RETURN-TYPE (:VOID *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LoadObject" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_LOADFUNCTION ((HANDLE (:VOID *)) (NAME (:CHAR *))) :RETURN-TYPE (:VOID *) :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_LoadFunction" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_UNLOADOBJECT ((HANDLE (:VOID *))) :RETURN-TYPE :VOID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_UnloadObject" :LINKAGE-TYPE :C)) -(PROVIDE :SDL) -NTERVAL UINT32) (CALLBACK SDL_TIMERCALLBACK)) :RETURN-TYPE :LONG :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_SetTimer" :LINKAGE-TYPE :C)) (PROGN (EXPORT '(SDL_NEWTIMERCALLBACK)) (C-TYPES:DEFCTYPE SDL_NEWTIMERCALLBACK (:VOID *))) (PROGN (EXPORT '(_SDL_TIMERID SDL_TIMERID)) (C-TYPES:DEFCSTRUCT _SDL_TIMERID NIL) (C-TYPES:DEFCTYPE SDL_TIMERID (_SDL_TIMERID *))) (PROGN (EXPORT '(SDL_ADDTIMER SDL_REMOVETIMER)) (C-TYPES:DEFUN-DLL SDL_ADDTIMER ((INTERVAL UINT32) (CALLBACK SDL_NEWTIMERCALLBACK) (PARAM (:VOID *))) :RETURN-TYPE SDL_TIMERID :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_AddTimer" :LINKAGE-TYPE :C) (C-TYPES:DEFUN-DLL SDL_REMOVETIMER (("" SDL_TIMERID)) :RETURN-TYPE SDL_BOOL :LIBRARY-NAME "SDL.dll" :ENTRY-NAME "SDL_RemoveTimer" :LINKAGE-TYPE :C))