[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/Client.xs

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.208 by root, Sat Jul 21 16:07:53 2007 UTC vs.
Revision 1.218 by root, Mon Aug 6 02:11:45 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
		119	typedef IV CFPlus__Channel;
		120	typedef SDL_RWops *CFPlus__RW;
117	typedef Mix_Chunk *CFPlus__MixChunk;	121	typedef Mix_Chunk *CFPlus__MixChunk;
118	typedef Mix_Music *CFPlus__MixMusic;	122	typedef Mix_Music *CFPlus__MixMusic;
119		123
120	typedef PangoFontDescription *CFPlus__Font;	124	typedef PangoFontDescription *CFPlus__Font;
121		125
…		…
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
437		441
438	/******************************************************************************/	442	/******************************************************************************/
		443
		444	static GV draw_x_gv, draw_y_gv, draw_w_gv, draw_h_gv;
		445	static GV *hover_gv;
439		446
440	static int	447	static int
441	within_widget (SV *widget, NV x, NV y)	448	within_widget (SV *widget, NV x, NV y)
442	{	449	{
443	HV *self;	450	HV *self;
…		…
797	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))));
798	}	805	}
799	}	806	}
800		807
801	int	808	int
802	Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048)	809	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024)
803	POSTCALL:	810	POSTCALL:
804	Mix_HookMusicFinished (music_finished);	811	Mix_HookMusicFinished (music_finished);
805	Mix_ChannelFinished (channel_finished);	812	Mix_ChannelFinished (channel_finished);
806		813
807	void	814	void
808	Mix_CloseAudio ()	815	Mix_CloseAudio ()
809		816
810	int	817	int
811	Mix_AllocateChannels (int numchans = -1)	818	Mix_AllocateChannels (int numchans = -1)
		819
		820	const char *
		821	Mix_GetError ()
812		822
813	void	823	void
814	lowdelay (int fd, int val = 1)	824	lowdelay (int fd, int val = 1)
815	CODE:	825	CODE:
816	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));	826	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
…		…
858	STRLEN image_len;	868	STRLEN image_len;
859	char image = (char )SvPVbyte (image_, image_len);	869	char image = (char )SvPVbyte (image_, image_len);
860	SDL_Surface surface, surface2;	870	SDL_Surface surface, surface2;
861	SDL_PixelFormat fmt;	871	SDL_PixelFormat fmt;
862	SDL_RWops *rw = ix	872	SDL_RWops *rw = ix
863	? SDL_RWFromFile (image, "r")	873	? SDL_RWFromFile (image, "rb")
864	: SDL_RWFromConstMem (image, image_len);	874	: SDL_RWFromConstMem (image, image_len);
865		875
866	if (!rw)	876	if (!rw)
867	croak ("load_image: %s", SDL_GetError ());	877	croak ("load_image: %s", SDL_GetError ());
868		878
…		…
2229	}	2239	}
2230	}	2240	}
2231	}	2241	}
2232	}	2242	}
2233		2243
		2244	MODULE = CFPlus PACKAGE = CFPlus::RW
		2245
		2246	CFPlus::RW
		2247	new (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
		2258	CFPlus::RW
		2259	new_from_file (SV class, const char path, const char *mode = "rb")
		2260	CODE:
		2261	RETVAL = SDL_RWFromFile (path, mode);
		2262	OUTPUT:
		2263	RETVAL
		2264
		2265	# fails on win32:
		2266	# CFPlus.xs(2268) : error C2059: syntax error : '('
		2267	#void
		2268	#close (CFPlus::RW self)
		2269	# CODE:
		2270	# (self->(close)) (self);
		2271
		2272	MODULE = CFPlus PACKAGE = CFPlus::Channel
		2273
		2274	PROTOTYPES: DISABLE
		2275
		2276	CFPlus::Channel
		2277	find ()
		2278	CODE:
		2279	{
		2280	RETVAL = Mix_GroupAvailable (-1);
		2281
		2282	if (RETVAL < 0)
		2283	{
		2284	RETVAL = Mix_GroupOldest (-1);
		2285
		2286	if (RETVAL < 0)
		2287	XSRETURN_UNDEF;
		2288
		2289	Mix_HaltChannel (RETVAL);
		2290	}
		2291
		2292	Mix_UnregisterAllEffects (RETVAL);
		2293	Mix_Volume (RETVAL, 128);
		2294	}
		2295	OUTPUT:
		2296	RETVAL
		2297
		2298	void
		2299	halt (CFPlus::Channel self)
		2300	CODE:
		2301	Mix_HaltChannel (self);
		2302
		2303	void
		2304	expire (CFPlus::Channel self, int ticks = -1)
		2305	CODE:
		2306	Mix_ExpireChannel (self, ticks);
		2307
		2308	void
		2309	fade_out (CFPlus::Channel self, int ticks = -1)
		2310	CODE:
		2311	Mix_FadeOutChannel (self, ticks);
		2312
		2313	int
		2314	volume (CFPlus::Channel self, int volume)
		2315	CODE:
		2316	RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
		2317	OUTPUT:
		2318	RETVAL
		2319
		2320	void
		2321	unregister_all_effects (CFPlus::Channel self)
		2322	CODE:
		2323	Mix_UnregisterAllEffects (self);
		2324
		2325	void
		2326	set_panning (CFPlus::Channel self, int left, int right)
		2327	CODE:
		2328	left = CLAMP (left , 0, 255);
		2329	right = CLAMP (right, 0, 255);
		2330	Mix_SetPanning (self, left, right);
		2331
		2332	void
		2333	set_distance (CFPlus::Channel self, int distance)
		2334	CODE:
		2335	Mix_SetDistance (self, CLAMP (distance, 0, 255));
		2336
		2337	void
		2338	set_position (CFPlus::Channel self, int angle, int distance)
		2339	CODE:
		2340	Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
		2341
		2342	void
		2343	set_reverse_stereo (CFPlus::Channel self, int flip)
		2344	CODE:
		2345	Mix_SetReverseStereo (self, flip);
		2346
2234	MODULE = CFPlus PACKAGE = CFPlus::MixChunk	2347	MODULE = CFPlus PACKAGE = CFPlus::MixChunk
2235		2348
2236	PROTOTYPES: DISABLE	2349	PROTOTYPES: DISABLE
2237		2350
2238	CFPlus::MixChunk	2351	CFPlus::MixChunk
2239	new_from_file (SV class, char path)	2352	new (SV *class, CFPlus::RW rwops)
2240	CODE:	2353	CODE:
2241	RETVAL = Mix_LoadWAV (path);	2354	RETVAL = Mix_LoadWAV_RW (rwops, 1);
2242	OUTPUT:	2355	OUTPUT:
2243	RETVAL	2356	RETVAL
2244		2357
2245	void	2358	void
2246	DESTROY (CFPlus::MixChunk self)	2359	DESTROY (CFPlus::MixChunk self)
…		…
2248	Mix_FreeChunk (self);	2361	Mix_FreeChunk (self);
2249		2362
2250	int	2363	int
2251	volume (CFPlus::MixChunk self, int volume = -1)	2364	volume (CFPlus::MixChunk self, int volume = -1)
2252	CODE:	2365	CODE:
		2366	if (items > 1)
		2367	volume = CLAMP (volume, 0, 128);
2253	RETVAL = Mix_VolumeChunk (self, volume);	2368	RETVAL = Mix_VolumeChunk (self, volume);
2254	OUTPUT:	2369	OUTPUT:
2255	RETVAL	2370	RETVAL
2256		2371
2257	int	2372	CFPlus::Channel
2258	play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)	2373	play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
2259	CODE:	2374	CODE:
		2375	{
2260	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);	2376	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
		2377
		2378	if (RETVAL < 0)
		2379	XSRETURN_UNDEF;
		2380
		2381	if (channel < 0)
		2382	{
		2383	Mix_UnregisterAllEffects (RETVAL);
		2384	Mix_Volume (RETVAL, 128);
		2385	}
		2386	}
2261	OUTPUT:	2387	OUTPUT:
2262	RETVAL	2388	RETVAL
2263		2389
2264	MODULE = CFPlus PACKAGE = CFPlus::MixMusic	2390	MODULE = CFPlus PACKAGE = CFPlus::MixMusic
2265		2391
2266	int	2392	int
2267	volume (int volume = -1)	2393	volume (int volume = -1)
2268	PROTOTYPE: ;$	2394	PROTOTYPE: ;$
2269	CODE:	2395	CODE:
		2396	if (items > 0)
		2397	volume = CLAMP (volume, 0, 128);
2270	RETVAL = Mix_VolumeMusic (volume);	2398	RETVAL = Mix_VolumeMusic (volume);
2271	OUTPUT:	2399	OUTPUT:
2272	RETVAL	2400	RETVAL
2273		2401
2274	int	2402	void
2275	fade_out (int ms)	2403	fade_out (int ms)
2276	CODE:	2404	CODE:
2277	RETVAL = Mix_FadeOutMusic (ms);	2405	Mix_FadeOutMusic (ms);
2278	OUTPUT:	2406
2279	RETVAL	2407	void
		2408	halt ()
		2409	CODE:
		2410	Mix_HaltMusic ();
2280		2411
2281	CFPlus::MixMusic	2412	CFPlus::MixMusic
2282	new_from_file (SV class, char path)	2413	new (SV *class, CFPlus::RW rwops)
2283	CODE:	2414	CODE:
2284	RETVAL = Mix_LoadMUS (path);	2415	RETVAL = Mix_LoadMUS_RW (rwops);
2285	OUTPUT:	2416	OUTPUT:
2286	RETVAL	2417	RETVAL
2287		2418
2288	void	2419	void
2289	DESTROY (CFPlus::MixMusic self)	2420	DESTROY (CFPlus::MixMusic self)
…		…
2295	CODE:	2426	CODE:
2296	RETVAL = Mix_PlayMusic (self, loops);	2427	RETVAL = Mix_PlayMusic (self, loops);
2297	OUTPUT:	2428	OUTPUT:
2298	RETVAL	2429	RETVAL
2299		2430
2300	int	2431	void
2301	fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)	2432	fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2302	CODE:	2433	CODE:
2303	RETVAL = Mix_FadeInMusicPos (self, loops, ms, position);	2434	Mix_FadeInMusicPos (self, loops, ms, position);
2304	OUTPUT:
2305	RETVAL
2306		2435
2307	MODULE = CFPlus PACKAGE = CFPlus::OpenGL	2436	MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2308		2437
2309	PROTOTYPES: ENABLE	2438	PROTOTYPES: ENABLE
2310		2439
…		…
2544		2673
2545	void glTexCoord (float s, float t)	2674	void glTexCoord (float s, float t)
2546	CODE:	2675	CODE:
2547	glTexCoord2f (s, t);	2676	glTexCoord2f (s, t);
2548		2677
		2678	void glRect (float x1, float y1, float x2, float y2)
		2679	CODE:
		2680	glRectf (x1, y1, x2, y2);
		2681
2549	PROTOTYPES: ENABLE	2682	PROTOTYPES: ENABLE
2550		2683
2551	void glBegin (int mode)	2684	void glBegin (int mode)
2552		2685
2553	void glEnd ()	2686	void glEnd ()
…		…
2626	MODULE = CFPlus PACKAGE = CFPlus::UI::Base	2759	MODULE = CFPlus PACKAGE = CFPlus::UI::Base
2627		2760
2628	PROTOTYPES: DISABLE	2761	PROTOTYPES: DISABLE
2629		2762
2630	void	2763	void
2631	find_widget (SV *widget, NV x, NV y)	2764	find_widget (SV *self, NV x, NV y)
2632	PPCODE:	2765	PPCODE:
2633	{	2766	{
2634	if (within_widget (widget, x, y))	2767	if (within_widget (self, x, y))
2635	XPUSHs (widget);	2768	XPUSHs (self);
2636	}	2769	}
2637		2770
		2771	BOOT:
		2772	{
		2773	hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV);
		2774
		2775	draw_x_gv = gv_fetchpv ("CFPlus::UI::Base::draw_x", 1, SVt_NV);
		2776	draw_y_gv = gv_fetchpv ("CFPlus::UI::Base::draw_y", 1, SVt_NV);
		2777	draw_w_gv = gv_fetchpv ("CFPlus::UI::Base::draw_w", 1, SVt_NV);
		2778	draw_h_gv = gv_fetchpv ("CFPlus::UI::Base::draw_h", 1, SVt_NV);
		2779	}
		2780
		2781	void
		2782	draw (SV *self)
		2783	CODE:
		2784	{
		2785	HV *hv;
		2786	SV **svp;
		2787	NV x, y, w, h;
		2788	SV *draw_x_sv = GvSV (draw_x_gv);
		2789	SV *draw_y_sv = GvSV (draw_y_gv);
		2790	SV *draw_w_sv = GvSV (draw_w_gv);
		2791	SV *draw_h_sv = GvSV (draw_h_gv);
		2792	SV *hover;
		2793	double draw_x, draw_y, draw_w, draw_h;
		2794
		2795	if (!SvROK (self))
		2796	croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self));
		2797
		2798	hv = (HV *)SvRV (self);
		2799
		2800	if (SvTYPE (hv) != SVt_PVHV)
		2801	croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self));
		2802
		2803	svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
		2804	svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
		2805
		2806	if (!h \|\| !w)
		2807	XSRETURN_EMPTY;
		2808
		2809	svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
		2810	svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
		2811
		2812	draw_x = SvNV (draw_x_sv) + x;
		2813	draw_y = SvNV (draw_y_sv) + y;
		2814
		2815	if (draw_x + w < 0 \|\| draw_x >= SvNV (draw_w_sv)
		2816	\|\| draw_y + h < 0 \|\| draw_y >= SvNV (draw_h_sv))
		2817	XSRETURN_EMPTY;
		2818
		2819	sv_setnv (draw_x_sv, draw_x);
		2820	sv_setnv (draw_y_sv, draw_y);
		2821
		2822	glPushMatrix ();
		2823	glTranslated (x, y, 0);
		2824
		2825	if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
		2826	{
		2827	svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
		2828
		2829	if (svp && SvTRUE (*svp))
		2830	{
		2831	glColor4f (10.2f, 0.80.2f, 0.5*0.2f, 0.2f);
		2832	glEnable (GL_BLEND);
		2833	glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
		2834	glBegin (GL_QUADS);
		2835	glVertex2f (0, 0);
		2836	glVertex2f (w, 0);
		2837	glVertex2f (w, h);
		2838	glVertex2f (0, h);
		2839	glEnd ();
		2840	glDisable (GL_BLEND);
		2841	}
		2842	}
		2843	#if 0
		2844	if ($ENV{CFPLUS_DEBUG} & 1) {
		2845	glPushMatrix;
		2846	glColor 1, 1, 0, 1;
		2847	glTranslate 0.375, 0.375;
		2848	glBegin GL_LINE_LOOP;
		2849	glVertex 0 , 0;
		2850	glVertex $self->{w} - 1, 0;
		2851	glVertex $self->{w} - 1, $self->{h} - 1;
		2852	glVertex 0 , $self->{h} - 1;
		2853	glEnd;
		2854	glPopMatrix;
		2855	#CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
		2856	}
		2857	#endif
		2858	PUSHMARK (SP);
		2859	XPUSHs (self);
		2860	PUTBACK;
		2861	call_method ("_draw", G_VOID \| G_DISCARD);
		2862	SPAGAIN;
		2863
		2864	glPopMatrix ();
		2865
		2866	draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
		2867	draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
		2868	}
		2869

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.208 by root, Sat Jul 21 16:07:53 2007 UTC vs. Revision 1.218 by root, Mon Aug 6 02:11:45 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.208 by root, Sat Jul 21 16:07:53 2007 UTC vs.
Revision 1.218 by root, Mon Aug 6 02:11:45 2007 UTC