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 (in-package :gacela)
  19
  20 (clines "#include <SDL/SDL.h>")
  21 (clines "#include <SDL/SDL_image.h>")
  22 (clines "#include <SDL/SDL_ttf.h>")
  23 (clines "#include <SDL/SDL_mixer.h>")
  24 (clines "#include <SDL/sge.h>")
  25
  26 ;;; These are the flags which may be passed to SDL_Init()
  27 (defconstant SDL_INIT_TIMER             #x00000001)
  28 (defconstant SDL_INIT_AUDIO             #x00000010)
  29 (defconstant SDL_INIT_VIDEO             #x00000020)
  30 (defconstant SDL_INIT_CDROM             #x00000100)
  31 (defconstant SDL_INIT_JOYSTICK          #x00000200)
  32 (defconstant SDL_INIT_NOPARACHUTE       #x00100000)
  33 (defconstant SDL_INIT_EVENTTHREAD       #x01000000)
  34 (defconstant SDL_INIT_EVERYTHING        #x0000FFFF)
  35
  36
  37 ;;; These are the currently supported flags for the SDL_surface
  38 ;;; Available for SDL_CreateRGBSurface() or SDL_SetVideoMode()
  39 (defconstant SDL_SWSURFACE              #x00000000)
  40 (defconstant SDL_HWSURFACE              #x00000001)
  41 (defconstant SDL_ASYNCBLIT              #x00000004)
  42
  43
  44 ;;; Available for SDL_SetVideoMode()
  45 (defconstant SDL_ANYFORMAT              #x10000000)
  46 (defconstant SDL_HWPALETTE              #x20000000)
  47 (defconstant SDL_DOUBLEBUF              #x40000000)
  48 (defconstant SDL_FULLSCREEN             #x80000000)
  49 (defconstant SDL_OPENGL                 #x00000002)
  50 (defconstant SDL_OPENGLBLIT             #x0000000A)
  51 (defconstant SDL_RESIZABLE              #x00000010)
  52 (defconstant SDL_NOFRAME                #x00000020)
  53
  54 ;;; Used internally (read-only)
  55 (defconstant SDL_HWACCEL                #x00000100)
  56 (defconstant SDL_SRCCOLORKEY            #x00001000)
  57
  58 ;;; For setting the OpenGL window attributes
  59 (defconstant SDL_GL_DOUBLEBUFFER        5)
  60
  61 ;;; Keyboard
  62 (defconstant SDL_DEFAULT_REPEAT_DELAY     500)
  63 (defconstant SDL_DEFAULT_REPEAT_INTERVAL  30)
  64
  65
  66 ;;; SDL Functions
  67 (defcfun "int gacela_SDL_Init (int flags)" 0
  68   "return SDL_Init (flags);")
  69
  70 (defcfun "void gacela_SDL_Quit (void)" 0
  71   "SDL_Quit ();")
  72
  73 (defcfun "int gacela_SDL_SetVideoMode (int width, int height, int bpp, int flags)" 0
  74   "return SDL_SetVideoMode (width, height, bpp, flags);")
  75
  76 (defcfun "void gacela_SDL_WM_SetCaption (char *title, char *icon)" 0
  77   "SDL_WM_SetCaption (title, icon);")
  78
  79 (defcfun "int gacela_SDL_Flip (int screen)" 0
  80   "return SDL_Flip (screen);")
  81
  82 (defcfun "void gacela_SDL_FreeSurface (int surface)" 0
  83   "SDL_FreeSurface (surface);")
  84
  85 (defcfun "void gacela_SDL_Delay (int ms)" 0
  86   "SDL_Delay (ms);")
  87
  88 (defcfun "int gacela_SDL_GetTicks (void)" 0
  89   "return SDL_GetTicks ();")
  90
  91 (defcfun "int gacela_SDL_DisplayFormat (int surface)" 0
  92   "return SDL_DisplayFormat (surface);")
  93
  94 (defcfun "int gacela_SDL_MapRGB (int format, int r, int g, int b)" 0
  95   "return SDL_MapRGB (format, r, g, b);")
  96
  97 (defcfun "int gacela_SDL_SetColorKey (int surface, int flag, int key)" 0
  98   "return SDL_SetColorKey (surface, flag, key);")
  99
 100 (defcfun "int gacela_SDL_LoadBMP (char *file)" 0
 101   "return SDL_LoadBMP (file);")
 102
 103 (defcfun "int gacela_IMG_Load (char *filename)" 0
 104   "return IMG_Load (filename);")
 105
 106 (defcfun "static object gacela_SDL_GetVideoInfo (void)" 0
 107   "const SDL_VideoInfo *info;"
 108   "object vi, label;"
 109   "info = SDL_GetVideoInfo ();"
 110   ('nil vi)
 111   ((cons (int info->blit_hw) vi) vi) (':blit_hw label) ((cons label vi) vi)
 112   ((cons (int info->hw_available) vi) vi) (':hw_available label) ((cons label vi) vi)
 113   "return vi;")
 114
 115 (defcfun "int gacela_SDL_GL_SetAttribute (int attr, int value)" 0
 116   "return SDL_GL_SetAttribute (attr, value);")
 117
 118 (defcfun "static object gacela_SDL_PollEvent (void)" 0
 119   "SDL_Event sdl_event;"
 120   "object event, label;"
 121   ('nil event)
 122   "if (SDL_PollEvent (&sdl_event)) {"
 123   "  switch (sdl_event.type) {"
 124   "    case SDL_KEYDOWN:"
 125   "    case SDL_KEYUP:"
 126   ((cons (int sdl_event.key.keysym.sym) event) event) (':key.keysym.sym label) ((cons label event) event)
 127   "      break;"
 128   "  }"
 129   ((cons (int sdl_event.type) event) event) (':type label) ((cons label event) event)
 130   "}"
 131   "return event;")
 132
 133 (defcfun "void gacela_SDL_GL_SwapBuffers (void)" 0
 134   "SDL_GL_SwapBuffers ();")
 135
 136 (defcfun "int gacela_SDL_EnableKeyRepeat (int delay, int interval)" 0
 137   "return SDL_EnableKeyRepeat (delay, interval);")
 138
 139 (defentry SDL_Init (int) (int "gacela_SDL_Init"))
 140 (defentry SDL_Quit () (void "gacela_SDL_Quit"))
 141 (defentry SDL_SetVideoMode (int int int int) (int "gacela_SDL_SetVideoMode"))
 142 (defentry SDL_WM_SetCaption (string string) (void "gacela_SDL_WM_SetCaption"))
 143 (defentry SDL_Flip (int) (int "gacela_SDL_Flip"))
 144 (defentry SDL_FreeSurface (int) (void "gacela_SDL_FreeSurface"))
 145 (defentry SDL_Delay (int) (void "gacela_SDL_Delay"))
 146 (defentry SDL_GetTicks () (int "gacela_SDL_GetTicks"))
 147 (defentry SDL_DisplayFormat (int) (int "gacela_SDL_DisplayFormat"))
 148 ;(defentry SDL_SurfaceFormat (int) (int "gacela_SDL_SurfaceFormat"))
 149 (defentry SDL_MapRGB (int int int int) (int "gacela_SDL_MapRGB"))
 150 (defentry SDL_SetColorKey (int int int) (int "gacela_SDL_SetColorKey"))
 151 ;(defentry SDL_BlitSurface (int int int int) (void "gacela_SDL_BlitSurface"))
 152 ;(defentry SDL_Rect (int int int int) (int "gacela_SDL_Rect"))
 153 (defentry SDL_LoadBMP (string) (int "gacela_SDL_LoadBMP"))
 154 (defentry IMG_Load (string) (int "gacela_IMG_Load"))
 155 (defentry SDL_GetVideoInfo () (object "gacela_SDL_GetVideoInfo"))
 156 (defentry SDL_GL_SetAttribute (int int) (int "gacela_SDL_GL_SetAttribute"))
 157 (defentry SDL_PollEvent () (object "gacela_SDL_PollEvent"))
 158 ;(defentry TTF_Init () (int "gacela_TTF_Init"))
 159 ;(defentry TTF_OpenFont (string int) (int "gacela_TTF_OpenFont"))
 160 ;(defentry TTF_CloseFont (int) (void "gacela_TTF_CloseFont"))
 161 ;(defentry TTF_Quit () (void "gacela_TTF_Quit"))
 162 ;(defentry Mix_OpenAudio (int int int) (int "gacela_Mix_OpenAudio"))
 163 ;(defentry Mix_LoadMUS (string) (int "gacela_Mix_LoadMUS"))
 164 ;(defentry Mix_LoadWAV (string) (int "gacela_Mix_LoadWAV"))
 165 ;(defentry Mix_PlayChannel (int int int) (int "gacela_Mix_PlayChannel"))
 166 ;(defentry Mix_PlayMusic (int int) (int "gacela_Mix_PlayMusic"))
 167 ;(defentry Mix_PlayingMusic () (int "gacela_Mix_PlayingMusic"))
 168 ;(defentry Mix_PausedMusic () (int "gacela_Mix_PausedMusic"))
 169 ;(defentry Mix_PauseMusic () (void "gacela_Mix_PauseMusic"))
 170 ;(defentry Mix_ResumeMusic () (void "gacela_Mix_ResumeMusic"))
 171 ;(defentry Mix_HaltMusic () (int "gacela_Mix_HaltMusic"))
 172 ;(defentry Mix_FreeMusic (int) (void "gacela_Mix_FreeMusic"))
 173 ;(defentry Mix_FreeChunk (int) (void "gacela_Mix_FreeChunk"))
 174 ;(defentry Mix_CloseAudio () (void "gacela_Mix_CloseAudio"))
 175 ;(defentry sge_FilledCircle (int int int int int int int) (void "gacela_sge_FilledCircle"))
 176 ;(defentry sge_FilledRect (int int int int int int int int) (void "gacela_sge_FilledRect"))
 177 ;(defentry free (int) (void "gacela_free"))
 178 (defentry SDL_GL_SwapBuffers () (void "gacela_SDL_GL_SwapBuffers"))
 179 (defentry SDL_EnableKeyRepeat (int int) (int "gacela_SDL_EnableKeyRepeat"))
 180
 181 ;;; C-Gacela Functions
 182 (defcfun "int gacela_surface_format (int surface)" 0
 183   "const SDL_Surface *s = surface;"
 184   "return s->format;")
 185
 186 (defcfun "int gacela_surface_w (int surface)" 0
 187   "const SDL_Surface *s = surface;"
 188   "return s->w;")
 189
 190 (defcfun "int gacela_surface_h (int surface)" 0
 191   "const SDL_Surface *s = surface;"
 192   "return s->h;")
 193
 194 (defcfun "int gacela_surface_pixels (int surface)" 0
 195   "const SDL_Surface *s = surface;"
 196   "return s->pixels;")
 197
 198 ;(defentry apply-surface2 (int int int int int int int int int) (void "apply_surface"))
 199 ;(defentry render-text2 (int string int int int) (int "render_text"))
 200 ;(defentry fill-surface (int int int int) (void "fill_surface"))
 201 ;(defentry box-collision (int int int int int int) (int "box_collision"))
 202 ;(defentry create-SDL_Surface (int int int int int int) (int "create_SDL_Surface"))
 203 ;(defentry copy-SDL_Surface (int) (int "copy_SDL_Surface"))
 204 (defentry surface-format (int) (int "gacela_surface_format"))
 205 (defentry surface-w (int) (int "gacela_surface_w"))
 206 (defentry surface-h (int) (int "gacela_surface_h"))
 207 (defentry surface-pixels (int) (int "gacela_surface_pixels"))