chicken-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Chicken-users] address@hidden: sdl.egg]


From: Hans Bulfone
Subject: [Chicken-users] address@hidden: sdl.egg]
Date: Mon, 28 Aug 2006 17:22:35 +0200
User-agent: Mutt/1.5.9i

hi,

as i've gotten no reply from tony and also because the current
version of the sdl egg did not compile on 2.41 anyway,
i've commited my changes to svn and updated the egg.

besides the changes shown below i've also removed these two lines
and the #include <c_defaults.h> from sdl-csi.scm:

(define-foreign-variable installation-home c-string "C_INSTALL_HOME")
(set! ##sys#include-pathnames (list installation-home))

those two lines don't seem to have an effect on my system
because ##sys#include-pathnames by default has the value of
C_INSTALL_HOME.

i've also changed the version number to v0.4.51117.3

bye,
hans.

----- Forwarded message from Hans Bulfone <address@hidden> -----

From: Hans Bulfone <address@hidden>
To: Tony Garnock-Jones <address@hidden>
Subject: sdl.egg
Date: Fri, 11 Aug 2006 23:35:47 +0200
User-Agent: Mutt/1.5.9i

hi,

i've added a few functions to the sdl egg.
may i commit them to the egg svn repo and update the egg?

$ svn diff
Index: sdl.scm
===================================================================
--- sdl.scm     (revision 1387)
+++ sdl.scm     (working copy)
@@ -293,6 +293,17 @@
 (define sdl-set-color-key!
   (foreign-lambda int "SDL_SetColorKey" SDL_Surface unsigned-integer 
unsigned-integer))
 
+;; Modifies its first argument.
+(define sdl-set-alpha!
+  (foreign-lambda int "SDL_SetAlpha" SDL_Surface unsigned-integer 
unsigned-byte))
+
+(define sdl-display-format
+  (foreign-lambda SDL_Surface "SDL_DisplayFormat" SDL_Surface))
+(define sdl-display-format-alpha
+  (foreign-lambda SDL_Surface "SDL_DisplayFormatAlpha" SDL_Surface))
+(define sdl-convert-surface
+  (foreign-lambda SDL_Surface "SDL_ConvertSurface" SDL_Surface SDL_PixelFormat 
unsigned-integer))
+
 ;---------------------------------------------------------------------------
 
 ;; NOTE: sdl-init does not work on MacOS X when called from a
@@ -552,6 +563,8 @@
 ; You can pass NULL for the args if you just want the button state
 (define sdl-get-mouse-state (foreign-lambda int "SDL_GetMouseState" s32vector 
s32vector))
 
+(define sdl-enable-unicode (foreign-lambda bool "SDL_EnableUNICODE" bool))
+
 ;---------------------------------------------------------------------------
 
 (define sdl-get-video-surface (foreign-lambda SDL_Surface 
"SDL_GetVideoSurface"))
$

bye,
hans.

----- End forwarded message -----




reply via email to

[Prev in Thread] Current Thread [Next in Thread]