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.206 by root, Thu Jul 19 23:29:16 2007 UTC vs.
Revision 1.214 by root, Sun Jul 29 18:56:02 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
432} 436}
433 437
434/* SDL should provide this, really. */ 438/* SDL should provide this, really. */
435#define SDLK_MODIFIER_MIN 300 439#define SDLK_MODIFIER_MIN 300
436#define SDLK_MODIFIER_MAX 314 440#define SDLK_MODIFIER_MAX 314
441
442/******************************************************************************/
443
444static GV *draw_x_gv, *draw_y_gv, *draw_w_gv, *draw_h_gv;
445static GV *hover_gv;
446
447static int
448within_widget (SV *widget, NV x, NV y)
449{
450 HV *self;
451 SV **svp;
452 NV wx, ww, wy, wh;
453
454 if (!SvROK (widget))
455 return 0;
456
457 self = (HV *)SvRV (widget);
458
459 if (SvTYPE (self) != SVt_PVHV)
460 return 0;
461
462 svp = hv_fetch (self, "y", 1, 0); wy = svp ? SvNV (*svp) : 0.;
463 if (y < wy)
464 return 0;
465
466 svp = hv_fetch (self, "h", 1, 0); wh = svp ? SvNV (*svp) : 0.;
467 if (y >= wy + wh)
468 return 0;
469
470 svp = hv_fetch (self, "x", 1, 0); wx = svp ? SvNV (*svp) : 0.;
471 if (x < wx)
472 return 0;
473
474 svp = hv_fetch (self, "w", 1, 0); ww = svp ? SvNV (*svp) : 0.;
475 if (x >= wx + ww)
476 return 0;
477
478 svp = hv_fetch (self, "can_events", sizeof ("can_events") - 1, 0);
479 if (!svp || !SvTRUE (*svp))
480 return 0;
481
482 return 1;
483}
437 484
438MODULE = CFPlus PACKAGE = CFPlus 485MODULE = CFPlus PACKAGE = CFPlus
439 486
440PROTOTYPES: ENABLE 487PROTOTYPES: ENABLE
441 488
757 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))));
758 } 805 }
759} 806}
760 807
761int 808int
762Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) 809Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
763 POSTCALL: 810 POSTCALL:
764 Mix_HookMusicFinished (music_finished); 811 Mix_HookMusicFinished (music_finished);
765 Mix_ChannelFinished (channel_finished); 812 Mix_ChannelFinished (channel_finished);
766 813
767void 814void
768Mix_CloseAudio () 815Mix_CloseAudio ()
769 816
770int 817int
771Mix_AllocateChannels (int numchans = -1) 818Mix_AllocateChannels (int numchans = -1)
819
820const char *
821Mix_GetError ()
772 822
773void 823void
774lowdelay (int fd, int val = 1) 824lowdelay (int fd, int val = 1)
775 CODE: 825 CODE:
776 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val)); 826 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
818 STRLEN image_len; 868 STRLEN image_len;
819 char *image = (char *)SvPVbyte (image_, image_len); 869 char *image = (char *)SvPVbyte (image_, image_len);
820 SDL_Surface *surface, *surface2; 870 SDL_Surface *surface, *surface2;
821 SDL_PixelFormat fmt; 871 SDL_PixelFormat fmt;
822 SDL_RWops *rw = ix 872 SDL_RWops *rw = ix
823 ? SDL_RWFromFile (image, "r") 873 ? SDL_RWFromFile (image, "rb")
824 : SDL_RWFromConstMem (image, image_len); 874 : SDL_RWFromConstMem (image, image_len);
825 875
826 if (!rw) 876 if (!rw)
827 croak ("load_image: %s", SDL_GetError ()); 877 croak ("load_image: %s", SDL_GetError ());
828 878
2189 } 2239 }
2190 } 2240 }
2191 } 2241 }
2192} 2242}
2193 2243
2244MODULE = CFPlus PACKAGE = CFPlus::RW
2245
2246CFPlus::RW
2247new (SV *class, SV *data_sv)
2248 CODE:
2249{
2250 STRLEN datalen;
2251 char *data = SvPVbyte (data_sv, datalen);
2252
2253 RETVAL = SDL_RWFromConstMem (data, datalen);
2254}
2255 OUTPUT:
2256 RETVAL
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
2274void
2275halt (CFPlus::Channel self)
2276 CODE:
2277 Mix_HaltChannel (self);
2278
2279void
2280expire (CFPlus::Channel self, int ticks = -1)
2281 CODE:
2282 Mix_ExpireChannel (self, ticks);
2283
2284void
2285fade_out (CFPlus::Channel self, int ticks = -1)
2286 CODE:
2287 Mix_FadeOutChannel (self, ticks);
2288
2289int
2290volume (CFPlus::Channel self, int volume)
2291 CODE:
2292 RETVAL = Mix_Volume (self, volume);
2293 OUTPUT:
2294 RETVAL
2295
2296void
2297unregister_all_effects (CFPlus::Channel self)
2298 CODE:
2299 Mix_UnregisterAllEffects (self);
2300
2301void
2302set_panning (CFPlus::Channel self, int left, int right)
2303 CODE:
2304 Mix_SetPanning (self, left, right);
2305
2306void
2307set_distance (CFPlus::Channel self, int distance)
2308 CODE:
2309 Mix_SetDistance (self, distance);
2310
2311void
2312set_position (CFPlus::Channel self, int angle, int distance)
2313 CODE:
2314 Mix_SetPosition (self, angle, distance);
2315
2316void
2317set_reverse_stereo (CFPlus::Channel self, int flip)
2318 CODE:
2319 Mix_SetReverseStereo (self, flip);
2320
2194MODULE = CFPlus PACKAGE = CFPlus::MixChunk 2321MODULE = CFPlus PACKAGE = CFPlus::MixChunk
2195 2322
2196PROTOTYPES: DISABLE 2323PROTOTYPES: DISABLE
2197 2324
2198CFPlus::MixChunk 2325CFPlus::MixChunk
2199new_from_file (SV *class, char *path) 2326new (SV *class, CFPlus::RW rwops)
2200 CODE: 2327 CODE:
2201 RETVAL = Mix_LoadWAV (path); 2328 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2202 OUTPUT: 2329 OUTPUT:
2203 RETVAL 2330 RETVAL
2204 2331
2205void 2332void
2206DESTROY (CFPlus::MixChunk self) 2333DESTROY (CFPlus::MixChunk self)
2212 CODE: 2339 CODE:
2213 RETVAL = Mix_VolumeChunk (self, volume); 2340 RETVAL = Mix_VolumeChunk (self, volume);
2214 OUTPUT: 2341 OUTPUT:
2215 RETVAL 2342 RETVAL
2216 2343
2217int 2344CFPlus::Channel
2218play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2345play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
2219 CODE: 2346 CODE:
2220 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2347 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2348 Mix_UnregisterAllEffects (RETVAL);
2221 OUTPUT: 2349 OUTPUT:
2222 RETVAL 2350 RETVAL
2223 2351
2224MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2352MODULE = CFPlus PACKAGE = CFPlus::MixMusic
2225 2353
2229 CODE: 2357 CODE:
2230 RETVAL = Mix_VolumeMusic (volume); 2358 RETVAL = Mix_VolumeMusic (volume);
2231 OUTPUT: 2359 OUTPUT:
2232 RETVAL 2360 RETVAL
2233 2361
2234int 2362void
2235fade_out (int ms) 2363fade_out (int ms)
2236 CODE: 2364 CODE:
2237 RETVAL = Mix_FadeOutMusic (ms); 2365 Mix_FadeOutMusic (ms);
2238 OUTPUT: 2366
2239 RETVAL 2367void
2368halt ()
2369 CODE:
2370 Mix_HaltMusic ();
2240 2371
2241CFPlus::MixMusic 2372CFPlus::MixMusic
2242new_from_file (SV *class, char *path) 2373new (SV *class, CFPlus::RW rwops)
2243 CODE: 2374 CODE:
2244 RETVAL = Mix_LoadMUS (path); 2375 RETVAL = Mix_LoadMUS_RW (rwops);
2245 OUTPUT: 2376 OUTPUT:
2246 RETVAL 2377 RETVAL
2247 2378
2248void 2379void
2249DESTROY (CFPlus::MixMusic self) 2380DESTROY (CFPlus::MixMusic self)
2255 CODE: 2386 CODE:
2256 RETVAL = Mix_PlayMusic (self, loops); 2387 RETVAL = Mix_PlayMusic (self, loops);
2257 OUTPUT: 2388 OUTPUT:
2258 RETVAL 2389 RETVAL
2259 2390
2260int 2391void
2261fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position) 2392fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2262 CODE: 2393 CODE:
2263 RETVAL = Mix_FadeInMusicPos (self, loops, ms, position); 2394 Mix_FadeInMusicPos (self, loops, ms, position);
2264 OUTPUT:
2265 RETVAL
2266 2395
2267MODULE = CFPlus PACKAGE = CFPlus::OpenGL 2396MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2268 2397
2269PROTOTYPES: ENABLE 2398PROTOTYPES: ENABLE
2270 2399
2346 const_iv (GL_COLOR_LOGIC_OP), 2475 const_iv (GL_COLOR_LOGIC_OP),
2347 const_iv (GL_SEPARABLE_2D), 2476 const_iv (GL_SEPARABLE_2D),
2348 const_iv (GL_CONVOLUTION_2D), 2477 const_iv (GL_CONVOLUTION_2D),
2349 const_iv (GL_CONVOLUTION_BORDER_MODE), 2478 const_iv (GL_CONVOLUTION_BORDER_MODE),
2350 const_iv (GL_CONSTANT_BORDER), 2479 const_iv (GL_CONSTANT_BORDER),
2480 const_iv (GL_POINTS),
2351 const_iv (GL_LINES), 2481 const_iv (GL_LINES),
2352 const_iv (GL_LINE_STRIP), 2482 const_iv (GL_LINE_STRIP),
2353 const_iv (GL_LINE_LOOP), 2483 const_iv (GL_LINE_LOOP),
2354 const_iv (GL_QUADS), 2484 const_iv (GL_QUADS),
2355 const_iv (GL_QUAD_STRIP), 2485 const_iv (GL_QUAD_STRIP),
2356 const_iv (GL_TRIANGLES), 2486 const_iv (GL_TRIANGLES),
2357 const_iv (GL_TRIANGLE_STRIP), 2487 const_iv (GL_TRIANGLE_STRIP),
2358 const_iv (GL_TRIANGLE_FAN), 2488 const_iv (GL_TRIANGLE_FAN),
2489 const_iv (GL_POLYGON),
2359 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2490 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2360 const_iv (GL_POINT_SMOOTH_HINT), 2491 const_iv (GL_POINT_SMOOTH_HINT),
2361 const_iv (GL_LINE_SMOOTH_HINT), 2492 const_iv (GL_LINE_SMOOTH_HINT),
2362 const_iv (GL_POLYGON_SMOOTH_HINT), 2493 const_iv (GL_POLYGON_SMOOTH_HINT),
2363 const_iv (GL_GENERATE_MIPMAP_HINT), 2494 const_iv (GL_GENERATE_MIPMAP_HINT),
2458void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 2589void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
2459 2590
2460# near_ and far_ are due to microsofts buggy "c" compiler 2591# near_ and far_ are due to microsofts buggy "c" compiler
2461void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 2592void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
2462 2593
2594PROTOTYPES: DISABLE
2595
2463void glViewport (int x, int y, int width, int height) 2596void glViewport (int x, int y, int width, int height)
2464 2597
2465void glScissor (int x, int y, int width, int height) 2598void glScissor (int x, int y, int width, int height)
2466 2599
2467void glTranslate (float x, float y, float z = 0.) 2600void glTranslate (float x, float y, float z = 0.)
2474 2607
2475void glRotate (float angle, float x, float y, float z) 2608void glRotate (float angle, float x, float y, float z)
2476 CODE: 2609 CODE:
2477 glRotatef (angle, x, y, z); 2610 glRotatef (angle, x, y, z);
2478 2611
2479void glBegin (int mode)
2480
2481void glEnd ()
2482
2483void glColor (float r, float g, float b, float a = 1.0) 2612void glColor (float r, float g, float b, float a = 1.0)
2484 PROTOTYPE: @
2485 ALIAS: 2613 ALIAS:
2486 glColor_premultiply = 1 2614 glColor_premultiply = 1
2487 CODE: 2615 CODE:
2488 if (ix) 2616 if (ix)
2489 { 2617 {
2492 b *= a; 2620 b *= a;
2493 } 2621 }
2494 // microsoft visual "c" rounds instead of truncating... 2622 // microsoft visual "c" rounds instead of truncating...
2495 glColor4f (r, g, b, a); 2623 glColor4f (r, g, b, a);
2496 2624
2497void glInterleavedArrays (int format, int stride, char *data)
2498
2499void glDrawElements (int mode, int count, int type, char *indices)
2500
2501# 1.2 void glDrawRangeElements (int mode, int start, int end
2502
2503void glRasterPos (float x, float y, float z = 0.) 2625void glRasterPos (float x, float y, float z = 0.)
2504 CODE: 2626 CODE:
2505 glRasterPos3f (0, 0, z); 2627 glRasterPos3f (0, 0, z);
2506 glBitmap (0, 0, 0, 0, x, y, 0); 2628 glBitmap (0, 0, 0, 0, x, y, 0);
2507 2629
2510 glVertex3f (x, y, z); 2632 glVertex3f (x, y, z);
2511 2633
2512void glTexCoord (float s, float t) 2634void glTexCoord (float s, float t)
2513 CODE: 2635 CODE:
2514 glTexCoord2f (s, t); 2636 glTexCoord2f (s, t);
2637
2638void glRect (float x1, float y1, float x2, float y2)
2639 CODE:
2640 glRectf (x1, y1, x2, y2);
2641
2642PROTOTYPES: ENABLE
2643
2644void glBegin (int mode)
2645
2646void glEnd ()
2647
2648void glPointSize (GLfloat size)
2649
2650void glLineWidth (GLfloat width)
2651
2652void glInterleavedArrays (int format, int stride, char *data)
2653
2654void glDrawElements (int mode, int count, int type, char *indices)
2655
2656# 1.2 void glDrawRangeElements (int mode, int start, int end
2515 2657
2516void glTexEnv (int target, int pname, float param) 2658void glTexEnv (int target, int pname, float param)
2517 CODE: 2659 CODE:
2518 glTexEnvf (target, pname, param); 2660 glTexEnvf (target, pname, param);
2519 2661
2572 2714
2573void glEndList () 2715void glEndList ()
2574 2716
2575void glCallList (int list) 2717void glCallList (int list)
2576 2718
2719MODULE = CFPlus PACKAGE = CFPlus::UI::Base
2720
2721PROTOTYPES: DISABLE
2722
2723void
2724find_widget (SV *self, NV x, NV y)
2725 PPCODE:
2726{
2727 if (within_widget (self, x, y))
2728 XPUSHs (self);
2729}
2730
2731BOOT:
2732{
2733 hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV);
2734
2735 draw_x_gv = gv_fetchpv ("CFPlus::UI::Base::draw_x", 1, SVt_NV);
2736 draw_y_gv = gv_fetchpv ("CFPlus::UI::Base::draw_y", 1, SVt_NV);
2737 draw_w_gv = gv_fetchpv ("CFPlus::UI::Base::draw_w", 1, SVt_NV);
2738 draw_h_gv = gv_fetchpv ("CFPlus::UI::Base::draw_h", 1, SVt_NV);
2739}
2740
2741void
2742draw (SV *self)
2743 CODE:
2744{
2745 HV *hv;
2746 SV **svp;
2747 NV x, y, w, h;
2748 SV *draw_x_sv = GvSV (draw_x_gv);
2749 SV *draw_y_sv = GvSV (draw_y_gv);
2750 SV *draw_w_sv = GvSV (draw_w_gv);
2751 SV *draw_h_sv = GvSV (draw_h_gv);
2752 SV *hover;
2753 double draw_x, draw_y, draw_w, draw_h;
2754
2755 if (!SvROK (self))
2756 croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self));
2757
2758 hv = (HV *)SvRV (self);
2759
2760 if (SvTYPE (hv) != SVt_PVHV)
2761 croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self));
2762
2763 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
2764 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
2765
2766 if (!h || !w)
2767 XSRETURN_EMPTY;
2768
2769 svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
2770 svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
2771
2772 draw_x = SvNV (draw_x_sv) + x;
2773 draw_y = SvNV (draw_y_sv) + y;
2774
2775 if (draw_x + w < 0 || draw_x >= SvNV (draw_w_sv)
2776 || draw_y + h < 0 || draw_y >= SvNV (draw_h_sv))
2777 XSRETURN_EMPTY;
2778
2779 sv_setnv (draw_x_sv, draw_x);
2780 sv_setnv (draw_y_sv, draw_y);
2781
2782 glPushMatrix ();
2783 glTranslated (x, y, 0);
2784
2785 if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
2786 {
2787 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2788
2789 if (svp && SvTRUE (*svp))
2790 {
2791 glColor4f (1*0.2f, 0.8*0.2f, 0.5*0.2f, 0.2f);
2792 glEnable (GL_BLEND);
2793 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2794 glBegin (GL_QUADS);
2795 glVertex2f (0, 0);
2796 glVertex2f (w, 0);
2797 glVertex2f (w, h);
2798 glVertex2f (0, h);
2799 glEnd ();
2800 glDisable (GL_BLEND);
2801 }
2802 }
2803#if 0
2804 if ($ENV{CFPLUS_DEBUG} & 1) {
2805 glPushMatrix;
2806 glColor 1, 1, 0, 1;
2807 glTranslate 0.375, 0.375;
2808 glBegin GL_LINE_LOOP;
2809 glVertex 0 , 0;
2810 glVertex $self->{w} - 1, 0;
2811 glVertex $self->{w} - 1, $self->{h} - 1;
2812 glVertex 0 , $self->{h} - 1;
2813 glEnd;
2814 glPopMatrix;
2815 #CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
2816 }
2817#endif
2818 PUSHMARK (SP);
2819 XPUSHs (self);
2820 PUTBACK;
2821 call_method ("_draw", G_VOID | G_DISCARD);
2822 SPAGAIN;
2823
2824 glPopMatrix ();
2825
2826 draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
2827 draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
2828}
2829

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines