Added
Link Here
|
1 |
--- src/sdl-lib.stub.orig Mon Feb 24 21:20:18 2003 |
2 |
+++ src/sdl-lib.stub Sat Dec 31 13:22:35 2005 |
3 |
@@ -868,7 +868,7 @@ |
4 |
(define-cproc sdl-load-bmp (file::<string>) |
5 |
"ScmSdlSurface *s = SCM_NEW(ScmSdlSurface); |
6 |
SCM_SET_CLASS(s, SCM_CLASS_SDL_SURFACE); |
7 |
- s->surface = SDL_LoadBMP((const char *)(SCM_STRING(file)->start)); |
8 |
+ s->surface = SDL_LoadBMP((const char *)(SCM_STRING_START(file))); |
9 |
|
10 |
if (s->surface == NULL) SCM_RETURN(SCM_UNDEFINED); |
11 |
|
12 |
@@ -876,7 +876,7 @@ |
13 |
SCM_RETURN(SCM_OBJ(s));") |
14 |
|
15 |
(define-cproc sdl-save-bmp (surface::<sdl-surface> file::<string>) |
16 |
- "int result = SDL_SaveBMP(surface, (const char *)(SCM_STRING(file)->start)); |
17 |
+ "int result = SDL_SaveBMP(surface, (const char *)(SCM_STRING_START(file))); |
18 |
SCM_RETURN(SCM_MAKE_INT(result));") |
19 |
|
20 |
(define-cproc sdl-set-color-key (surface::<sdl-surface> flag::<uint> key::<uint>) |
21 |
@@ -950,7 +950,7 @@ |
22 |
(return <int> "SDL_ShowCursor")) |
23 |
|
24 |
(define-cproc sdl-gl-load-library (path::<string>) |
25 |
- "int result = SDL_GL_LoadLibrary((const char *)(SCM_STRING(path)->start)); |
26 |
+ "int result = SDL_GL_LoadLibrary((const char *)(SCM_STRING_START(path))); |
27 |
SCM_RETURN(SCM_MAKE_INT(result));") |
28 |
|
29 |
;; MISSING: |
30 |
@@ -1055,8 +1055,8 @@ |
31 |
;; |
32 |
|
33 |
(define-cproc sdl-wm-set-caption (title::<string> icon::<string>) |
34 |
- "SDL_WM_SetCaption((const char *)(SCM_STRING(title)->start), |
35 |
- (const char *)(SCM_STRING(icon)->start)); |
36 |
+ "SDL_WM_SetCaption((const char *)(SCM_STRING_START(title)), |
37 |
+ (const char *)(SCM_STRING_START(icon))); |
38 |
SCM_RETURN(SCM_UNDEFINED);") |
39 |
|
40 |
(define-cproc sdl-wm-get-caption () |
41 |
@@ -1269,7 +1269,7 @@ |
42 |
SCM_SET_CLASS(w, SCM_CLASS_SDL_WAV); |
43 |
spec = &(SCM_SDL_WAV_SPEC(w)); |
44 |
|
45 |
- spec = SDL_LoadWAV((const char *)(SCM_STRING(file)->start), spec, &buffer, |
46 |
+ spec = SDL_LoadWAV((const char *)(SCM_STRING_START(file)), spec, &buffer, |
47 |
&len); |
48 |
|
49 |
SCM_SDL_WAV_BUFFER(w) = Scm_MakeU8VectorFromArrayShared(len, buffer); |
50 |
@@ -1384,8 +1384,8 @@ |
51 |
(define-cproc sdl-rw-from-file (file::<string> mode::<string>) |
52 |
"ScmSdlRWops *rw = SCM_NEW(ScmSdlRWops); |
53 |
SCM_SET_CLASS(rw, SCM_CLASS_SDL_RWOPS); |
54 |
- rw->rwops = SDL_RWFromFile((const char *)(SCM_STRING(file)->start), |
55 |
- (const char *)(SCM_STRING(mode)->start)); |
56 |
+ rw->rwops = SDL_RWFromFile((const char *)(SCM_STRING_START(file)), |
57 |
+ (const char *)(SCM_STRING_START(mode))); |
58 |
|
59 |
if (rw->rwops == NULL) SCM_RETURN(SCM_UNDEFINED); |
60 |
|