ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/Client.xs
(Generate patch)

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.211 by root, Sat Jul 28 00:45:28 2007 UTC vs.
Revision 1.217 by root, Wed Aug 1 12:43:31 2007 UTC

… …
25#include <math.h> 25#include <math.h>
26#include <string.h> 26#include <string.h>
27#include <stdio.h> 27#include <stdio.h>
28#include <stdlib.h> 28#include <stdlib.h>
29 29
30#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
31
30#include <SDL.h> 32#include <SDL.h>
31#include <SDL_thread.h> 33#include <SDL_thread.h>
32#include <SDL_endian.h> 34#include <SDL_endian.h>
33#include <SDL_image.h> 35#include <SDL_image.h>
34#include <SDL_mixer.h> 36#include <SDL_mixer.h>
… …
112 114
113#include "pango-font.c" 115#include "pango-font.c"
114#include "pango-fontmap.c" 116#include "pango-fontmap.c"
115#include "pango-render.c" 117#include "pango-render.c"
116 118
119typedef IV CFPlus__Channel;
120typedef SDL_RWops *CFPlus__RW;
117typedef Mix_Chunk *CFPlus__MixChunk; 121typedef Mix_Chunk *CFPlus__MixChunk;
118typedef Mix_Music *CFPlus__MixMusic; 122typedef Mix_Music *CFPlus__MixMusic;
119 123
120typedef PangoFontDescription *CFPlus__Font; 124typedef PangoFontDescription *CFPlus__Font;
121 125
… …
800 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1)))); 804 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));
801 } 805 }
802} 806}
803 807
804int 808int
805Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096) 809Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024)
806 POSTCALL: 810 POSTCALL:
807 Mix_HookMusicFinished (music_finished); 811 Mix_HookMusicFinished (music_finished);
808 Mix_ChannelFinished (channel_finished); 812 Mix_ChannelFinished (channel_finished);
809 813
810void 814void
811Mix_CloseAudio () 815Mix_CloseAudio ()
812 816
813int 817int
814Mix_AllocateChannels (int numchans = -1) 818Mix_AllocateChannels (int numchans = -1)
819
820const char *
821Mix_GetError ()
815 822
816void 823void
817lowdelay (int fd, int val = 1) 824lowdelay (int fd, int val = 1)
818 CODE: 825 CODE:
819 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val)); 826 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
… …
861 STRLEN image_len; 868 STRLEN image_len;
862 char *image = (char *)SvPVbyte (image_, image_len); 869 char *image = (char *)SvPVbyte (image_, image_len);
863 SDL_Surface *surface, *surface2; 870 SDL_Surface *surface, *surface2;
864 SDL_PixelFormat fmt; 871 SDL_PixelFormat fmt;
865 SDL_RWops *rw = ix 872 SDL_RWops *rw = ix
866 ? SDL_RWFromFile (image, "r") 873 ? SDL_RWFromFile (image, "rb")
867 : SDL_RWFromConstMem (image, image_len); 874 : SDL_RWFromConstMem (image, image_len);
868 875
869 if (!rw) 876 if (!rw)
870 croak ("load_image: %s", SDL_GetError ()); 877 croak ("load_image: %s", SDL_GetError ());
871 878
… …
2232 } 2239 }
2233 } 2240 }
2234 } 2241 }
2235} 2242}
2236 2243
2237MODULE = CFPlus PACKAGE = CFPlus::MixChunk 2244MODULE = CFPlus PACKAGE = CFPlus::RW
2238 2245
2239PROTOTYPES: DISABLE 2246CFPlus::RW
2240
2241CFPlus::MixChunk
2242new (SV *class, SV *data_sv) 2247new (SV *class, SV *data_sv)
2243 CODE: 2248 CODE:
2244{ 2249{
2245 STRLEN datalen; 2250 STRLEN datalen;
2246 char *data = SvPVbyte (data_sv, datalen); 2251 char *data = SvPVbyte (data_sv, datalen);
2247 2252
2248 RETVAL = Mix_LoadWAV_RW (SDL_RWFromConstMem (data, datalen), 1); 2253 RETVAL = SDL_RWFromConstMem (data, datalen);
2249} 2254}
2250 OUTPUT: 2255 OUTPUT:
2251 RETVAL 2256 RETVAL
2252 2257
2258CFPlus::RW
2259new_from_file (SV *class, const char *path, const char *mode = "rb")
2260 CODE:
2261 RETVAL = SDL_RWFromFile (path, mode);
2262 OUTPUT:
2263 RETVAL
2264
2265void
2266close (CFPlus::RW self)
2267 CODE:
2268 SDL_RWclose (self);
2269
2270MODULE = CFPlus PACKAGE = CFPlus::Channel
2271
2272PROTOTYPES: DISABLE
2273
2274CFPlus::Channel
2275find ()
2276 CODE:
2277{
2278 RETVAL = Mix_GroupAvailable (-1);
2279
2280 if (RETVAL < 0)
2281 {
2282 RETVAL = Mix_GroupOldest (-1);
2283
2284 if (RETVAL < 0)
2285 XSRETURN_UNDEF;
2286
2287 Mix_HaltChannel (RETVAL);
2288 }
2289
2290 Mix_UnregisterAllEffects (RETVAL);
2291 Mix_Volume (RETVAL, 128);
2292}
2293 OUTPUT:
2294 RETVAL
2295
2296void
2297halt (CFPlus::Channel self)
2298 CODE:
2299 Mix_HaltChannel (self);
2300
2301void
2302expire (CFPlus::Channel self, int ticks = -1)
2303 CODE:
2304 Mix_ExpireChannel (self, ticks);
2305
2306void
2307fade_out (CFPlus::Channel self, int ticks = -1)
2308 CODE:
2309 Mix_FadeOutChannel (self, ticks);
2310
2311int
2312volume (CFPlus::Channel self, int volume)
2313 CODE:
2314 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2315 OUTPUT:
2316 RETVAL
2317
2318void
2319unregister_all_effects (CFPlus::Channel self)
2320 CODE:
2321 Mix_UnregisterAllEffects (self);
2322
2323void
2324set_panning (CFPlus::Channel self, int left, int right)
2325 CODE:
2326 left = CLAMP (left , 0, 255);
2327 right = CLAMP (right, 0, 255);
2328 Mix_SetPanning (self, left, right);
2329
2330void
2331set_distance (CFPlus::Channel self, int distance)
2332 CODE:
2333 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2334
2335void
2336set_position (CFPlus::Channel self, int angle, int distance)
2337 CODE:
2338 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2339
2340void
2341set_reverse_stereo (CFPlus::Channel self, int flip)
2342 CODE:
2343 Mix_SetReverseStereo (self, flip);
2344
2345MODULE = CFPlus PACKAGE = CFPlus::MixChunk
2346
2347PROTOTYPES: DISABLE
2348
2253CFPlus::MixChunk 2349CFPlus::MixChunk
2254new_from_file (SV *class, char *path) 2350new (SV *class, CFPlus::RW rwops)
2255 CODE: 2351 CODE:
2256 RETVAL = Mix_LoadWAV (path); 2352 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2257 OUTPUT: 2353 OUTPUT:
2258 RETVAL 2354 RETVAL
2259 2355
2260void 2356void
2261DESTROY (CFPlus::MixChunk self) 2357DESTROY (CFPlus::MixChunk self)
… …
2263 Mix_FreeChunk (self); 2359 Mix_FreeChunk (self);
2264 2360
2265int 2361int
2266volume (CFPlus::MixChunk self, int volume = -1) 2362volume (CFPlus::MixChunk self, int volume = -1)
2267 CODE: 2363 CODE:
2364 if (items > 1)
2365 volume = CLAMP (volume, 0, 128);
2268 RETVAL = Mix_VolumeChunk (self, volume); 2366 RETVAL = Mix_VolumeChunk (self, volume);
2269 OUTPUT: 2367 OUTPUT:
2270 RETVAL 2368 RETVAL
2271 2369
2272int 2370CFPlus::Channel
2273play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2371play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
2274 CODE: 2372 CODE:
2373{
2275 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2374 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2375
2376 if (RETVAL < 0)
2377 XSRETURN_UNDEF;
2378
2379 if (channel < 0)
2380 {
2381 Mix_UnregisterAllEffects (RETVAL);
2382 Mix_Volume (RETVAL, 128);
2383 }
2384}
2276 OUTPUT: 2385 OUTPUT:
2277 RETVAL 2386 RETVAL
2278 2387
2279MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2388MODULE = CFPlus PACKAGE = CFPlus::MixMusic
2280 2389
2281int 2390int
2282volume (int volume = -1) 2391volume (int volume = -1)
2283 PROTOTYPE: ;$ 2392 PROTOTYPE: ;$
2284 CODE: 2393 CODE:
2394 if (items > 0)
2395 volume = CLAMP (volume, 0, 128);
2285 RETVAL = Mix_VolumeMusic (volume); 2396 RETVAL = Mix_VolumeMusic (volume);
2286 OUTPUT: 2397 OUTPUT:
2287 RETVAL 2398 RETVAL
2288 2399
2289int 2400void
2290fade_out (int ms) 2401fade_out (int ms)
2291 CODE: 2402 CODE:
2292 RETVAL = Mix_FadeOutMusic (ms); 2403 Mix_FadeOutMusic (ms);
2293 OUTPUT: 2404
2294 RETVAL 2405void
2406halt ()
2407 CODE:
2408 Mix_HaltMusic ();
2295 2409
2296CFPlus::MixMusic 2410CFPlus::MixMusic
2297new_from_file (SV *class, char *path) 2411new (SV *class, CFPlus::RW rwops)
2298 CODE: 2412 CODE:
2299 RETVAL = Mix_LoadMUS (path); 2413 RETVAL = Mix_LoadMUS_RW (rwops);
2300 OUTPUT: 2414 OUTPUT:
2301 RETVAL 2415 RETVAL
2302 2416
2303void 2417void
2304DESTROY (CFPlus::MixMusic self) 2418DESTROY (CFPlus::MixMusic self)
… …
2310 CODE: 2424 CODE:
2311 RETVAL = Mix_PlayMusic (self, loops); 2425 RETVAL = Mix_PlayMusic (self, loops);
2312 OUTPUT: 2426 OUTPUT:
2313 RETVAL 2427 RETVAL
2314 2428
2315int 2429void
2316fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position) 2430fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2317 CODE: 2431 CODE:
2318 RETVAL = Mix_FadeInMusicPos (self, loops, ms, position); 2432 Mix_FadeInMusicPos (self, loops, ms, position);
2319 OUTPUT:
2320 RETVAL
2321 2433
2322MODULE = CFPlus PACKAGE = CFPlus::OpenGL 2434MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2323 2435
2324PROTOTYPES: ENABLE 2436PROTOTYPES: ENABLE
2325 2437

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines