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.205 by root, Thu Jul 19 22:38:52 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
… …
2290 const_iv (GL_ALPHA_TEST), 2419 const_iv (GL_ALPHA_TEST),
2291 const_iv (GL_NORMALIZE), 2420 const_iv (GL_NORMALIZE),
2292 const_iv (GL_RESCALE_NORMAL), 2421 const_iv (GL_RESCALE_NORMAL),
2293 const_iv (GL_FRONT), 2422 const_iv (GL_FRONT),
2294 const_iv (GL_BACK), 2423 const_iv (GL_BACK),
2424 const_iv (GL_AUX0),
2295 const_iv (GL_AND), 2425 const_iv (GL_AND),
2296 const_iv (GL_ONE), 2426 const_iv (GL_ONE),
2297 const_iv (GL_ZERO), 2427 const_iv (GL_ZERO),
2298 const_iv (GL_SRC_ALPHA), 2428 const_iv (GL_SRC_ALPHA),
2299 const_iv (GL_DST_ALPHA), 2429 const_iv (GL_DST_ALPHA),
… …
2345 const_iv (GL_COLOR_LOGIC_OP), 2475 const_iv (GL_COLOR_LOGIC_OP),
2346 const_iv (GL_SEPARABLE_2D), 2476 const_iv (GL_SEPARABLE_2D),
2347 const_iv (GL_CONVOLUTION_2D), 2477 const_iv (GL_CONVOLUTION_2D),
2348 const_iv (GL_CONVOLUTION_BORDER_MODE), 2478 const_iv (GL_CONVOLUTION_BORDER_MODE),
2349 const_iv (GL_CONSTANT_BORDER), 2479 const_iv (GL_CONSTANT_BORDER),
2480 const_iv (GL_POINTS),
2350 const_iv (GL_LINES), 2481 const_iv (GL_LINES),
2351 const_iv (GL_LINE_STRIP), 2482 const_iv (GL_LINE_STRIP),
2352 const_iv (GL_LINE_LOOP), 2483 const_iv (GL_LINE_LOOP),
2353 const_iv (GL_QUADS), 2484 const_iv (GL_QUADS),
2354 const_iv (GL_QUAD_STRIP), 2485 const_iv (GL_QUAD_STRIP),
2355 const_iv (GL_TRIANGLES), 2486 const_iv (GL_TRIANGLES),
2356 const_iv (GL_TRIANGLE_STRIP), 2487 const_iv (GL_TRIANGLE_STRIP),
2357 const_iv (GL_TRIANGLE_FAN), 2488 const_iv (GL_TRIANGLE_FAN),
2489 const_iv (GL_POLYGON),
2358 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2490 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2491 const_iv (GL_POINT_SMOOTH_HINT),
2492 const_iv (GL_LINE_SMOOTH_HINT),
2493 const_iv (GL_POLYGON_SMOOTH_HINT),
2494 const_iv (GL_GENERATE_MIPMAP_HINT),
2359 const_iv (GL_FASTEST), 2495 const_iv (GL_FASTEST),
2496 const_iv (GL_DONT_CARE),
2497 const_iv (GL_NICEST),
2360 const_iv (GL_V2F), 2498 const_iv (GL_V2F),
2361 const_iv (GL_V3F), 2499 const_iv (GL_V3F),
2362 const_iv (GL_T2F_V3F), 2500 const_iv (GL_T2F_V3F),
2363 const_iv (GL_T2F_N3F_V3F), 2501 const_iv (GL_T2F_N3F_V3F),
2364# undef const_iv 2502# undef const_iv
… …
2451void 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_)
2452 2590
2453# near_ and far_ are due to microsofts buggy "c" compiler 2591# near_ and far_ are due to microsofts buggy "c" compiler
2454void 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_)
2455 2593
2594PROTOTYPES: DISABLE
2595
2456void glViewport (int x, int y, int width, int height) 2596void glViewport (int x, int y, int width, int height)
2457 2597
2458void glScissor (int x, int y, int width, int height) 2598void glScissor (int x, int y, int width, int height)
2459 2599
2460void glTranslate (float x, float y, float z = 0.) 2600void glTranslate (float x, float y, float z = 0.)
… …
2467 2607
2468void glRotate (float angle, float x, float y, float z) 2608void glRotate (float angle, float x, float y, float z)
2469 CODE: 2609 CODE:
2470 glRotatef (angle, x, y, z); 2610 glRotatef (angle, x, y, z);
2471 2611
2472void glBegin (int mode)
2473
2474void glEnd ()
2475
2476void glColor (float r, float g, float b, float a = 1.0) 2612void glColor (float r, float g, float b, float a = 1.0)
2477 PROTOTYPE: @
2478 ALIAS: 2613 ALIAS:
2479 glColor_premultiply = 1 2614 glColor_premultiply = 1
2480 CODE: 2615 CODE:
2481 if (ix) 2616 if (ix)
2482 { 2617 {
… …
2485 b *= a; 2620 b *= a;
2486 } 2621 }
2487 // microsoft visual "c" rounds instead of truncating... 2622 // microsoft visual "c" rounds instead of truncating...
2488 glColor4f (r, g, b, a); 2623 glColor4f (r, g, b, a);
2489 2624
2490void glInterleavedArrays (int format, int stride, char *data)
2491
2492void glDrawElements (int mode, int count, int type, char *indices)
2493
2494# 1.2 void glDrawRangeElements (int mode, int start, int end
2495
2496void glRasterPos (float x, float y, float z = 0.) 2625void glRasterPos (float x, float y, float z = 0.)
2497 CODE: 2626 CODE:
2498 glRasterPos3f (0, 0, z); 2627 glRasterPos3f (0, 0, z);
2499 glBitmap (0, 0, 0, 0, x, y, 0); 2628 glBitmap (0, 0, 0, 0, x, y, 0);
2500 2629
… …
2503 glVertex3f (x, y, z); 2632 glVertex3f (x, y, z);
2504 2633
2505void glTexCoord (float s, float t) 2634void glTexCoord (float s, float t)
2506 CODE: 2635 CODE:
2507 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
2508 2657
2509void glTexEnv (int target, int pname, float param) 2658void glTexEnv (int target, int pname, float param)
2510 CODE: 2659 CODE:
2511 glTexEnvf (target, pname, param); 2660 glTexEnvf (target, pname, param);
2512 2661
… …
2565 2714
2566void glEndList () 2715void glEndList ()
2567 2716
2568void glCallList (int list) 2717void glCallList (int list)
2569 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