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.189 by root, Sat Apr 21 23:54:23 2007 UTC vs.
Revision 1.197 by root, Sun Jul 15 21:08:40 2007 UTC

… …
6# include <wininet.h> 6# include <wininet.h>
7# pragma warning(disable:4244) 7# pragma warning(disable:4244)
8# pragma warning(disable:4761) 8# pragma warning(disable:4761)
9#endif 9#endif
10 10
11//#define DEBUG 1
12#if DEBUG
13# include <valgrind/memcheck.h>
14#endif
15
11#include "EXTERN.h" 16#include "EXTERN.h"
12#include "perl.h" 17#include "perl.h"
13#include "XSUB.h" 18#include "XSUB.h"
14 19
15#ifdef _WIN32 20#ifdef _WIN32
… …
65#define GL_FUNC(ptr,name) ptr name; 70#define GL_FUNC(ptr,name) ptr name;
66#include "glfunc.h" 71#include "glfunc.h"
67#undef GL_FUNC 72#undef GL_FUNC
68} gl; 73} gl;
69 74
75static void
70static void gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa) 76gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa)
71{ 77{
72 if (gl.BlendFuncSeparate) 78 if (gl.BlendFuncSeparate)
73 gl.BlendFuncSeparate (sa, da, saa, daa); 79 gl.BlendFuncSeparate (sa, da, saa, daa);
74 else if (gl.BlendFuncSeparateEXT) 80 else if (gl.BlendFuncSeparateEXT)
75 gl.BlendFuncSeparateEXT (sa, da, saa, daa); 81 gl.BlendFuncSeparateEXT (sa, da, saa, daa);
76 else 82 else
77 glBlendFunc (sa, da); 83 glBlendFunc (sa, da);
84}
85
86static GLuint
87gen_texture ()
88{
89 GLuint name;
90
91 if (AvFILL (texture_av) >= 0)
92 name = (GLuint)(size_t)av_pop (texture_av);
93 else
94 glGenTextures (1, &name);
95
96 return name;
97}
98
99static void
100del_texture (GLuint name)
101{
102 /* make a half-assed attempt at returning the memory used by the texture */
103 /* textures are frequently being reused by cfplus anyway */
104 /*glBindTexture (GL_TEXTURE_2D, name);*/
105 /*glTexImage2D (GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE, 0);*/
106 av_push (texture_av, (SV *)(size_t)name);
107 glDeleteTextures (1, &name);
78} 108}
79 109
80#include "texcache.c" 110#include "texcache.c"
81 111
82#include "pango-font.c" 112#include "pango-font.c"
… …
634 664
635char * 665char *
636SDL_GetKeyName (int sym) 666SDL_GetKeyName (int sym)
637 667
638void 668void
639SDL_PollEvent () 669poll_events ()
640 PPCODE: 670 PPCODE:
641{ 671{
642 SDL_Event ev; 672 SDL_Event ev;
643 673
644 while (SDL_PollEvent (&ev)) 674 SDL_PumpEvents ();
675 while (SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_ALLEVENTS) > 0)
645 { 676 {
646 HV *hv = newHV (); 677 HV *hv = newHV ();
647 hv_store (hv, "type", 4, newSViv (ev.type), 0); 678 hv_store (hv, "type", 4, newSViv (ev.type), 0);
648 679
649 switch (ev.type) 680 switch (ev.type)
… …
661 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 692 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
662 hv_store (hv, "state", 5, newSViv (ev.active.state), 0); 693 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
663 break; 694 break;
664 695
665 case SDL_MOUSEMOTION: 696 case SDL_MOUSEMOTION:
697 {
698 int state = ev.motion.state;
699 int x = ev.motion.x;
700 int y = ev.motion.y;
701 int xrel = ev.motion.xrel;
702 int yrel = ev.motion.yrel;
703
704 /* do simplistic event compression */
705 while (SDL_PeepEvents (&ev, 1, SDL_PEEKEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)) > 0
706 && state == ev.motion.state)
707 {
708 xrel += ev.motion.xrel;
709 yrel += ev.motion.yrel;
710 x = ev.motion.x;
711 y = ev.motion.y;
712 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
713 }
714
666 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 715 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
667
668 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0); 716 hv_store (hv, "state", 5, newSViv (state), 0);
669 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0); 717 hv_store (hv, "x", 1, newSViv (x), 0);
670 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0); 718 hv_store (hv, "y", 1, newSViv (y), 0);
671 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0); 719 hv_store (hv, "xrel", 4, newSViv (xrel), 0);
672 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0); 720 hv_store (hv, "yrel", 4, newSViv (yrel), 0);
721 }
673 break; 722 break;
674 723
675 case SDL_MOUSEBUTTONDOWN: 724 case SDL_MOUSEBUTTONDOWN:
676 case SDL_MOUSEBUTTONUP: 725 case SDL_MOUSEBUTTONUP:
677 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 726 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
… …
857 ExitThread (retval); // unclean, please beam me up 906 ExitThread (retval); // unclean, please beam me up
858#else 907#else
859 _exit (retval); 908 _exit (retval);
860#endif 909#endif
861 910
911void
912debug ()
913 CODE:
914{
915#if DEBUG
916 VALGRIND_DO_LEAK_CHECK;
917#endif
918}
919
862MODULE = CFPlus PACKAGE = CFPlus::Font 920MODULE = CFPlus PACKAGE = CFPlus::Font
863 921
864CFPlus::Font 922CFPlus::Font
865new_from_file (SV *class, char *path, int id = 0) 923new_from_file (SV *class, char *path, int id = 0)
866 CODE: 924 CODE:
… …
1740 smooth_key *skey = (smooth_key *)HeKEY (he); 1798 smooth_key *skey = (smooth_key *)HeKEY (he);
1741 IV bits = SvIVX (HeVAL (he)); 1799 IV bits = SvIVX (HeVAL (he));
1742 1800
1743 if (!(bits & 0x1000) 1801 if (!(bits & 0x1000)
1744 && skey->level == level 1802 && skey->level == level
1745 && level >= smooth_max [skey->x][skey->y]) 1803 && level > smooth_max [skey->x][skey->y])
1746 { 1804 {
1747 maptex tex = self->tex [skey->tile]; 1805 maptex tex = self->tex [skey->tile];
1748 int px = (((int)skey->x) - 1) * T; 1806 int px = (((int)skey->x) - 1) * T;
1749 int py = (((int)skey->y) - 1) * T; 1807 int py = (((int)skey->y) - 1) * T;
1750 int border = bits & 15; 1808 int border = bits & 15;
… …
2101 CODE: 2159 CODE:
2102 RETVAL = Mix_VolumeMusic (volume); 2160 RETVAL = Mix_VolumeMusic (volume);
2103 OUTPUT: 2161 OUTPUT:
2104 RETVAL 2162 RETVAL
2105 2163
2164int
2165fade_out (int ms)
2166 CODE:
2167 RETVAL = Mix_FadeOutMusic (ms);
2168 OUTPUT:
2169 RETVAL
2170
2106CFPlus::MixMusic 2171CFPlus::MixMusic
2107new_from_file (SV *class, char *path) 2172new_from_file (SV *class, char *path)
2108 CODE: 2173 CODE:
2109 RETVAL = Mix_LoadMUS (path); 2174 RETVAL = Mix_LoadMUS (path);
2110 OUTPUT: 2175 OUTPUT:
… …
2117 2182
2118int 2183int
2119play (CFPlus::MixMusic self, int loops = -1) 2184play (CFPlus::MixMusic self, int loops = -1)
2120 CODE: 2185 CODE:
2121 RETVAL = Mix_PlayMusic (self, loops); 2186 RETVAL = Mix_PlayMusic (self, loops);
2187 OUTPUT:
2188 RETVAL
2189
2190int
2191fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2192 CODE:
2193 RETVAL = Mix_FadeInMusicPos (self, loops, ms, position);
2122 OUTPUT: 2194 OUTPUT:
2123 RETVAL 2195 RETVAL
2124 2196
2125MODULE = CFPlus PACKAGE = CFPlus::OpenGL 2197MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2126 2198
… …
2376 2448
2377void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 2449void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
2378 2450
2379int glGenTexture () 2451int glGenTexture ()
2380 CODE: 2452 CODE:
2381{ 2453 RETVAL = gen_texture ();
2382 GLuint name;
2383 if (AvFILL (texture_av) >= 0)
2384 name = (GLuint)(size_t)av_pop (texture_av);
2385 else
2386 glGenTextures (1, &name);
2387 RETVAL = name;
2388}
2389 OUTPUT: 2454 OUTPUT:
2390 RETVAL 2455 RETVAL
2391 2456
2392void glDeleteTexture (int name) 2457void glDeleteTexture (int name)
2393 CODE: 2458 CODE:
2394{ 2459 del_texture (name);
2395 /* make a half-assed attempt at returning the memory used by the texture */ 2460
2396 /* textures are frequently being reused by cfplus anyway */
2397 glBindTexture (GL_TEXTURE_2D, name);
2398 glTexImage2D (GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE, 0);
2399 av_push (texture_av, (SV *)(size_t)name);
2400 /*glDeleteTextures (1, &name_);*/
2401}
2402
2403int glGenList () 2461int glGenList ()
2404 CODE: 2462 CODE:
2405 RETVAL = glGenLists (1); 2463 RETVAL = glGenLists (1);
2406 OUTPUT: 2464 OUTPUT:
2407 RETVAL 2465 RETVAL

Diff Legend

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