]> git.jsancho.org Git - gacela.git/blob - gacela_SDL.lisp
1d113aa0bb04ad8a2734baca6f46d77a48090786
[gacela.git] / gacela_SDL.lisp
1 ;;; Gacela, a GNU Common Lisp extension for fast games development
2 ;;; Copyright (C) 2009 by Javier Sancho Fernandez <jsf at jsancho dot org>
3 ;;;
4 ;;; This program is free software: you can redistribute it and/or modify
5 ;;; it under the terms of the GNU General Public License as published by
6 ;;; the Free Software Foundation, either version 3 of the License, or
7 ;;; (at your option) any later version.
8 ;;;
9 ;;; This program is distributed in the hope that it will be useful,
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 ;;; GNU General Public License for more details.
13 ;;;
14 ;;; You should have received a copy of the GNU General Public License
15 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
16
17
18 (eval-when (compile load eval)
19            (when (not (find-package 'gacela)) (make-package 'gacela :nicknames '(gg) :use '(lisp)))
20            (in-package 'gacela :nicknames '(gg) :use '(lisp)))
21
22
23 (defmacro mapcconst (type c-type name)
24   (let ((c-header (concatenate 'string c-type " gacela_" name " (void)"))
25         (c-body (concatenate 'string "return " name ";"))
26         (c-name (concatenate 'string "gacela_" name))
27         (lisp-name (intern (string-upcase name))))
28     `(progn
29        (defcfun ,c-header 0 ,c-body)
30        (defentry ,lisp-name () (,type ,c-name))
31        (eval-when (load) (defconstant ,lisp-name (,lisp-name))))))
32
33 (clines "#include <SDL/SDL.h>")
34 (clines "#include <SDL/SDL_image.h>")
35 (clines "#include <SDL/SDL_mixer.h>")
36
37 ;;; SDL constants as functions
38 (mapcconst int "int" "SDL_INIT_TIMER")
39 (mapcconst int "int" "SDL_INIT_AUDIO")
40 (mapcconst int "int" "SDL_INIT_VIDEO")
41 (mapcconst int "int" "SDL_INIT_CDROM")
42 (mapcconst int "int" "SDL_INIT_JOYSTICK")
43 (mapcconst int "int" "SDL_INIT_NOPARACHUTE")
44 (mapcconst int "int" "SDL_INIT_EVENTTHREAD")
45 (mapcconst int "int" "SDL_INIT_EVERYTHING")
46
47 (mapcconst int "int" "SDL_SWSURFACE")
48 (mapcconst int "int" "SDL_HWSURFACE")
49 (mapcconst int "int" "SDL_ASYNCBLIT")
50
51 (mapcconst int "int" "SDL_ANYFORMAT")
52 (mapcconst int "int" "SDL_HWPALETTE")
53 (mapcconst int "int" "SDL_DOUBLEBUF")
54 (mapcconst int "int" "SDL_FULLSCREEN")
55 (mapcconst int "int" "SDL_OPENGL")
56 (mapcconst int "int" "SDL_OPENGLBLIT")
57 (mapcconst int "int" "SDL_RESIZABLE")
58 (mapcconst int "int" "SDL_NOFRAME")
59
60 (mapcconst int "int" "SDL_HWACCEL")
61 (mapcconst int "int" "SDL_SRCCOLORKEY")
62
63 (mapcconst int "int" "SDL_GL_DOUBLEBUFFER")
64
65 (mapcconst int "int" "SDL_DEFAULT_REPEAT_DELAY")
66 (mapcconst int "int" "SDL_DEFAULT_REPEAT_INTERVAL")
67
68 (mapcconst int "int" "SDL_LIL_ENDIAN")
69 (mapcconst int "int" "SDL_BIG_ENDIAN")
70
71 ;;; SDL Functions
72 (defcfun "int gacela_SDL_Init (int flags)" 0
73   "return SDL_Init (flags);")
74
75 (defcfun "void gacela_SDL_Quit (void)" 0
76   "SDL_Quit ();")
77
78 (defcfun "int gacela_SDL_SetVideoMode (int width, int height, int bpp, int flags)" 0
79   "close(2);"
80   "return SDL_SetVideoMode (width, height, bpp, flags);")
81
82 (defcfun "void gacela_SDL_WM_SetCaption (char *title, char *icon)" 0
83   "SDL_WM_SetCaption (title, icon);")
84
85 (defcfun "int gacela_SDL_Flip (int screen)" 0
86   "return SDL_Flip (screen);")
87
88 (defcfun "void gacela_SDL_FreeSurface (int surface)" 0
89   "SDL_FreeSurface (surface);")
90
91 (defcfun "void gacela_SDL_Delay (int ms)" 0
92   "SDL_Delay (ms);")
93
94 (defcfun "int gacela_SDL_GetTicks (void)" 0
95   "return SDL_GetTicks ();")
96
97 (defcfun "int gacela_SDL_DisplayFormat (int surface)" 0
98   "return SDL_DisplayFormat (surface);")
99
100 (defcfun "int gacela_SDL_MapRGB (int format, int r, int g, int b)" 0
101   "return SDL_MapRGB (format, r, g, b);")
102
103 (defcfun "int gacela_SDL_SetColorKey (int surface, int flag, int key)" 0
104   "return SDL_SetColorKey (surface, flag, key);")
105
106 (defcfun "int gacela_SDL_LoadBMP (char *file)" 0
107   "return SDL_LoadBMP (file);")
108
109 (defcfun "int gacela_IMG_Load (char *filename)" 0
110   "return IMG_Load (filename);")
111
112 (defcfun "static object gacela_SDL_GetVideoInfo (void)" 0
113   "const SDL_VideoInfo *info;"
114   "object vi, label;"
115   "info = SDL_GetVideoInfo ();"
116   ('nil vi)
117   ((cons (int info->blit_hw) vi) vi) (':blit_hw label) ((cons label vi) vi)
118   ((cons (int info->hw_available) vi) vi) (':hw_available label) ((cons label vi) vi)
119   "return vi;")
120
121 (defcfun "int gacela_SDL_GL_SetAttribute (int attr, int value)" 0
122   "return SDL_GL_SetAttribute (attr, value);")
123
124 (defcfun "static object gacela_SDL_PollEvent (void)" 0
125   "SDL_Event sdl_event;"
126   "object event, label;"
127   ('nil event)
128   "if (SDL_PollEvent (&sdl_event)) {"
129   "  switch (sdl_event.type) {"
130   "    case SDL_KEYDOWN:"
131   "    case SDL_KEYUP:"
132   ((cons (int sdl_event.key.keysym.sym) event) event) (':key.keysym.sym label) ((cons label event) event)
133   "      break;"
134   "  }"
135   ((cons (int sdl_event.type) event) event) (':type label) ((cons label event) event)
136   "}"
137   "return event;")
138
139 (defcfun "void gacela_SDL_GL_SwapBuffers (void)" 0
140   "SDL_GL_SwapBuffers ();")
141
142 (defcfun "int gacela_SDL_EnableKeyRepeat (int delay, int interval)" 0
143   "return SDL_EnableKeyRepeat (delay, interval);")
144
145 (defcfun "int gacela_SDL_ByteOrder (void)" 0
146   "return SDL_BYTEORDER;")
147
148 (defcfun "int gacela_zoomSurface (int src, double zoomx, double zoomy, int smooth)" 0
149   "return zoomSurface (src, zoomx, zoomy, smooth);")
150
151 (defentry SDL_Init (int) (int "gacela_SDL_Init"))
152 (defentry SDL_Quit () (void "gacela_SDL_Quit"))
153 (defentry SDL_SetVideoMode (int int int int) (int "gacela_SDL_SetVideoMode"))
154 (defentry SDL_WM_SetCaption (string string) (void "gacela_SDL_WM_SetCaption"))
155 (defentry SDL_Flip (int) (int "gacela_SDL_Flip"))
156 (defentry SDL_FreeSurface (int) (void "gacela_SDL_FreeSurface"))
157 (defentry SDL_Delay (int) (void "gacela_SDL_Delay"))
158 (defentry SDL_GetTicks () (int "gacela_SDL_GetTicks"))
159 (defentry SDL_DisplayFormat (int) (int "gacela_SDL_DisplayFormat"))
160 ;(defentry SDL_SurfaceFormat (int) (int "gacela_SDL_SurfaceFormat"))
161 (defentry SDL_MapRGB (int int int int) (int "gacela_SDL_MapRGB"))
162 (defentry SDL_SetColorKey (int int int) (int "gacela_SDL_SetColorKey"))
163 ;(defentry SDL_BlitSurface (int int int int) (void "gacela_SDL_BlitSurface"))
164 ;(defentry SDL_Rect (int int int int) (int "gacela_SDL_Rect"))
165 (defentry SDL_LoadBMP (string) (int "gacela_SDL_LoadBMP"))
166 (defentry IMG_Load (string) (int "gacela_IMG_Load"))
167 (defentry SDL_GetVideoInfo () (object "gacela_SDL_GetVideoInfo"))
168 (defentry SDL_GL_SetAttribute (int int) (int "gacela_SDL_GL_SetAttribute"))
169 (defentry SDL_PollEvent () (object "gacela_SDL_PollEvent"))
170 ;(defentry TTF_Init () (int "gacela_TTF_Init"))
171 ;(defentry TTF_OpenFont (string int) (int "gacela_TTF_OpenFont"))
172 ;(defentry TTF_CloseFont (int) (void "gacela_TTF_CloseFont"))
173 ;(defentry TTF_Quit () (void "gacela_TTF_Quit"))
174 ;(defentry Mix_OpenAudio (int int int) (int "gacela_Mix_OpenAudio"))
175 ;(defentry Mix_LoadMUS (string) (int "gacela_Mix_LoadMUS"))
176 ;(defentry Mix_LoadWAV (string) (int "gacela_Mix_LoadWAV"))
177 ;(defentry Mix_PlayChannel (int int int) (int "gacela_Mix_PlayChannel"))
178 ;(defentry Mix_PlayMusic (int int) (int "gacela_Mix_PlayMusic"))
179 ;(defentry Mix_PlayingMusic () (int "gacela_Mix_PlayingMusic"))
180 ;(defentry Mix_PausedMusic () (int "gacela_Mix_PausedMusic"))
181 ;(defentry Mix_PauseMusic () (void "gacela_Mix_PauseMusic"))
182 ;(defentry Mix_ResumeMusic () (void "gacela_Mix_ResumeMusic"))
183 ;(defentry Mix_HaltMusic () (int "gacela_Mix_HaltMusic"))
184 ;(defentry Mix_FreeMusic (int) (void "gacela_Mix_FreeMusic"))
185 ;(defentry Mix_FreeChunk (int) (void "gacela_Mix_FreeChunk"))
186 ;(defentry Mix_CloseAudio () (void "gacela_Mix_CloseAudio"))
187 ;(defentry free (int) (void "gacela_free"))
188 (defentry SDL_GL_SwapBuffers () (void "gacela_SDL_GL_SwapBuffers"))
189 (defentry SDL_EnableKeyRepeat (int int) (int "gacela_SDL_EnableKeyRepeat"))
190 (defentry SDL_ByteOrder () (int "gacela_SDL_ByteOrder"))
191 (defentry zoomSurface (int double double int) (int "gacela_zoomSurface"))
192
193 ;;; C-Gacela Functions
194 (defcfun "int gacela_surface_format (int surface)" 0
195   "const SDL_Surface *s = surface;"
196   "return s->format;")
197
198 (defcfun "int gacela_surface_w (int surface)" 0
199   "const SDL_Surface *s = surface;"
200   "return s->w;")
201
202 (defcfun "int gacela_surface_h (int surface)" 0
203   "const SDL_Surface *s = surface;"
204   "return s->h;")
205
206 (defcfun "int gacela_surface_pixels (int surface)" 0
207   "const SDL_Surface *s = surface;"
208   "return s->pixels;")
209
210 (defcfun "int gacela_surface_format_BytesPerPixel (int surface)" 0
211   "const SDL_Surface *s = surface;"
212   "return s->format->BytesPerPixel;")
213
214 ;(defentry apply-surface2 (int int int int int int int int int) (void "apply_surface"))
215 ;(defentry render-text2 (int string int int int) (int "render_text"))
216 ;(defentry box-collision (int int int int int int) (int "box_collision"))
217 ;(defentry create-SDL_Surface (int int int int int int) (int "create_SDL_Surface"))
218 ;(defentry copy-SDL_Surface (int) (int "copy_SDL_Surface"))
219 (defentry surface-format (int) (int "gacela_surface_format"))
220 (defentry surface-w (int) (int "gacela_surface_w"))
221 (defentry surface-h (int) (int "gacela_surface_h"))
222 (defentry surface-pixels (int) (int "gacela_surface_pixels"))
223 (defentry surface-format-BytesPerPixel (int) (int "gacela_surface_format_BytesPerPixel"))