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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.317 by root, Fri Nov 23 12:39:05 2012 UTC vs.
Revision 1.333 by root, Mon Nov 19 01:23:01 2018 UTC

…		…
15		15
16	#include "EXTERN.h"	16	#include "EXTERN.h"
17	#include "perl.h"	17	#include "perl.h"
18	#include "XSUB.h"	18	#include "XSUB.h"
19		19
		20	#include "flat_hash_map.hpp"
		21
20	#ifdef _WIN32	22	#ifdef _WIN32
21	# undef pipe	23	# undef pipe
22	// microsoft vs. C	24	// microsoft vs. C
23	# define sqrtf(x) sqrt(x)	25	# define sqrtf(x) sqrt(x)
24	# define atan2f(x,y) atan2(x,y)	26	# define atan2f(x,y) atan2(x,y)
25	# define M_PI 3.14159265f	27	# define M_PI 3.14159265f
26	#endif	28	#endif
27		29
28	#include <assert.h>	30	#include <cassert>
29	#include <math.h>	31	#include <cmath>
30	#include <string.h>	32	#include <cstring>
31	#include <stdio.h>	33	#include <cstdio>
32	#include <stdlib.h>	34	#include <cstdlib>
		35
		36	#include <utility>
		37	#include <bitset>
33		38
34	#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW	39	#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
35		40
36	#include <SDL.h>	41	#include <SDL.h>
37	#include <SDL_thread.h>	42	#include <SDL_thread.h>
…		…
48	#endif	53	#endif
49		54
50	#define PANGO_ENABLE_BACKEND	55	#define PANGO_ENABLE_BACKEND
51	#define G_DISABLE_CAST_CHECKS	56	#define G_DISABLE_CAST_CHECKS
52		57
53	#include <glib/gmacros.h>	58	#include <glib.h>
54		59
55	#include <pango/pango.h>	60	#include <pango/pango.h>
56		61
57	#ifndef PANGO_VERSION_CHECK	62	#ifndef PANGO_VERSION_CHECK
58	# define PANGO_VERSION_CHECK(a,b,c) 0	63	# define PANGO_VERSION_CHECK(a,b,c) 0
…		…
71	# include <netinet/in.h>	76	# include <netinet/in.h>
72	# include <netinet/tcp.h>	77	# include <netinet/tcp.h>
73	# include <inttypes.h>	78	# include <inttypes.h>
74	#endif	79	#endif
75		80
76	#if __GNUC__ >= 4	81	#include "ecb.h"
77	# define expect(expr,value) __builtin_expect ((expr),(value))	82	#include "salloc.h"
78	#else
79	# define expect(expr,value) (expr)
80	#endif
81
82	#define expect_false(expr) expect ((expr) != 0, 0)
83	#define expect_true(expr) expect ((expr) != 0, 1)
84		83
85	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */	84	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
86		85
87	/* this is used as fow flag as well, so has to have a different value */	86	/* this is used as fow flag as well, so has to have a different value */
88	/* then anything that is computed by incoming darkness */	87	/* then anything that is computed by incoming darkness */
…		…
106	fast_sv_grow (SV *sv, STRLEN need)	105	fast_sv_grow (SV *sv, STRLEN need)
107	{	106	{
108	STRLEN len = SvLEN (sv);	107	STRLEN len = SvLEN (sv);
109	STRLEN want = SvCUR (sv) + need;	108	STRLEN want = SvCUR (sv) + need;
110		109
111	if (expect_false (len < want))	110	if (ecb_expect_false (len < want))
112	{	111	{
113	do	112	do
114	len *= 2;	113	len *= 2;
115	while (len < want);	114	while (len < want);
116		115
…		…
184	{	183	{
185	GSList *attrs = run->item->analysis.extra_attrs;	184	GSList *attrs = run->item->analysis.extra_attrs;
186		185
187	while (attrs)	186	while (attrs)
188	{	187	{
189	PangoAttribute *attr = attrs->data;	188	PangoAttribute attr = (PangoAttribute )attrs->data;
190		189
191	if (attr->klass->type == PANGO_ATTR_SHAPE)	190	if (attr->klass->type == PANGO_ATTR_SHAPE)
192	return 1;	191	return 1;
193		192
194	attrs = attrs->next;	193	attrs = attrs->next;
195	}	194	}
196		195
197	return 0;	196	return 0;
198	}	197	}
199		198
200	typedef struct cf_layout {	199	struct cf_layout {
201	PangoLayout *pl;	200	PangoLayout *pl;
202	float r, g, b, a; // default color for rgba mode	201	float r, g, b, a; // default color for rgba mode
203	int base_height;	202	int base_height;
204	DC__Font font;	203	DC__Font font;
205	rc_t *rc;	204	rc_t rc;
206	} *DC__Layout;	205	};
		206
		207	typedef cf_layout *DC__Layout;
207		208
208	static DC__Font default_font;	209	static DC__Font default_font;
209	static PangoContext *opengl_context;	210	static PangoContext *opengl_context;
210	static PangoFontMap *opengl_fontmap;	211	static PangoFontMap *opengl_fontmap;
211		212
212	static void	213	static void
213	substitute_func (FcPattern *pattern, gpointer data)	214	substitute_func (FcPattern *pattern, gpointer data)
214	{	215	{
215	FcPatternAddBool (pattern, FC_HINTING, 1);	216	FcPatternAddBool (pattern, FC_HINTING, 1);
216	#ifdef FC_HINT_STYLE	217	#ifdef FC_HINT_STYLE
217	FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);	218	FcPatternAddInteger (pattern, FC_HINT_STYLE, FC_HINT_FULL);
218	#endif	219	#endif
219	FcPatternAddBool (pattern, FC_AUTOHINT, 0);	220	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
220	}	221	}
221		222
222	static void	223	static void
…		…
249		250
250	*w = rect.width;	251	*w = rect.width;
251	*h = rect.height;	252	*h = rect.height;
252	}	253	}
253		254
		255	/////////////////////////////////////////////////////////////////////////////
		256
254	typedef uint16_t tileid;	257	typedef uint16_t tileid;
255	typedef uint16_t faceid;	258	typedef uint16_t faceid;
256		259
257	typedef struct {	260	struct maptex
		261	{
258	GLuint name;	262	GLuint name;
259	int w, h;	263	int w, h;
260	float s, t;	264	float s, t;
261	uint8_t r, g, b, a;	265	uint8_t r, g, b, a;
262	tileid smoothtile;	266	tileid smoothtile;
263	uint8_t smoothlevel;	267	uint8_t smoothlevel;
264	uint8_t unused; /* set to zero on use */	268	uint8_t unused; /* set to zero on use */
265	} maptex;	269	};
266		270
267	typedef struct {	271	struct mapcell
		272	{
268	uint32_t player;	273	uint32_t player;
269	tileid tile[3];	274	tileid tile[3];
270	uint16_t darkness;	275	uint16_t darkness;
271	uint8_t stat_width, stat_hp, flags, smoothmax;	276	uint8_t stat_width, stat_hp, flags, smoothmax;
272	} mapcell;	277	};
273		278
274	typedef struct {	279	struct maprow
		280	{
275	int32_t c0, c1;	281	int32_t c0, c1;
276	mapcell *col;	282	mapcell *col;
277	} maprow;	283	};
278		284
279	typedef struct map {	285	struct mapgrid {
280	int x, y, w, h;	286	int x, y, w, h;
281	int ox, oy; /* offset to virtual global coordinate system */	287	int ox, oy; /* offset to virtual global coordinate system */
282	int faces; tileid *face2tile; // [faceid]	288	int faces; tileid *face2tile; // [faceid]
283	int texs; maptex *tex; // [tileid]	289	int texs; maptex *tex; // [tileid]
284		290
285	int32_t rows;	291	int32_t rows;
286	maprow *row;	292	maprow *row;
287	} *DC__Map;	293	};
288		294
289	static char *	295	typedef mapgrid *DC__Map;
		296
		297	template<typename T>
		298	static void
290	prepend (char *ptr, int sze, int inc)	299	prepend (T *&ptr, int sze, int inc)
291	{	300	{
292	char *p;	301	T *p;
293		302
294	New (0, p, sze + inc, char);	303	Newx (p, inc + sze, T);
295	Zero (p, inc, char);	304	Zero (p, inc, T);
296	Move (ptr, p + inc, sze, char);	305	Move (ptr, p + inc, sze, T);
297	Safefree (ptr);	306	Safefree (ptr);
298		307
299	return p;	308	ptr = p;
300	}	309	}
301		310
302	static char *	311	template<typename T>
303	append (char *ptr, int sze, int inc)
304	{
305	Renew (ptr, sze + inc, char);
306	Zero (ptr + sze, inc, char);
307
308	return ptr;
309	}
310
311	#define Append(type,ptr,sze,inc) (ptr) = (type )append ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
312	#define Prepend(type,ptr,sze,inc) (ptr) = (type )prepend ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
313
314	static void	312	static void
		313	append (T *&ptr, int sze, int inc)
		314	{
		315	Renew (ptr, sze + inc, T);
		316	Zero (ptr + sze, inc, T);
		317	}
		318
		319	static void
315	need_facenum (struct map *self, faceid face)	320	need_facenum (struct mapgrid *self, faceid face)
316	{	321	{
317	while (self->faces <= face)	322	while (self->faces <= face)
318	{	323	{
319	Append (tileid, self->face2tile, self->faces, self->faces);	324	append (self->face2tile, self->faces, self->faces);
320	self->faces *= 2;	325	self->faces *= 2;
321	}	326	}
322	}	327	}
323		328
324	static void	329	static void
325	need_texid (struct map *self, int texid)	330	need_texid (struct mapgrid *self, int texid)
326	{	331	{
327	while (self->texs <= texid)	332	while (self->texs <= texid)
328	{	333	{
329	Append (maptex, self->tex, self->texs, self->texs);	334	append (self->tex, self->texs, self->texs);
330	self->texs *= 2;	335	self->texs *= 2;
331	}	336	}
332	}	337	}
333		338
334	static maprow *	339	static maprow *
335	map_get_row (DC__Map self, int y)	340	map_get_row (mapgrid *self, int y)
336	{	341	{
337	if (0 > y)	342	if (0 > y)
338	{	343	{
339	int extend = - y + MAP_EXTEND_Y;	344	int extend = - y + MAP_EXTEND_Y;
340	Prepend (maprow, self->row, self->rows, extend);	345	prepend (self->row, self->rows, extend);
341		346
342	self->rows += extend;	347	self->rows += extend;
343	self->y += extend;	348	self->y += extend;
344	y += extend;	349	y += extend;
345	}	350	}
346	else if (y >= self->rows)	351	else if (y >= self->rows)
347	{	352	{
348	int extend = y - self->rows + MAP_EXTEND_Y;	353	int extend = y - self->rows + MAP_EXTEND_Y;
349	Append (maprow, self->row, self->rows, extend);	354	append (self->row, self->rows, extend);
350	self->rows += extend;	355	self->rows += extend;
351	}	356	}
352		357
353	return self->row + y;	358	return self->row + y;
354	}	359	}
…		…
364	}	369	}
365		370
366	if (row->c0 > x)	371	if (row->c0 > x)
367	{	372	{
368	int extend = row->c0 - x + MAP_EXTEND_X;	373	int extend = row->c0 - x + MAP_EXTEND_X;
369	Prepend (mapcell, row->col, row->c1 - row->c0, extend);	374	prepend (row->col, row->c1 - row->c0, extend);
370	row->c0 -= extend;	375	row->c0 -= extend;
371	}	376	}
372	else if (x >= row->c1)	377	else if (x >= row->c1)
373	{	378	{
374	int extend = x - row->c1 + MAP_EXTEND_X;	379	int extend = x - row->c1 + MAP_EXTEND_X;
375	Append (mapcell, row->col, row->c1 - row->c0, extend);	380	append (row->col, row->c1 - row->c0, extend);
376	row->c1 += extend;	381	row->c1 += extend;
377	}	382	}
378		383
379	return row->col + (x - row->c0);	384	return row->col + (x - row->c0);
380	}	385	}
381		386
382	static mapcell *	387	static mapcell *
383	map_get_cell (DC__Map self, int x, int y)	388	map_get_cell (mapgrid *self, int x, int y)
384	{	389	{
385	return row_get_cell (map_get_row (self, y), x);	390	return row_get_cell (map_get_row (self, y), x);
386	}	391	}
387		392
388	static void	393	static void
389	map_clear (DC__Map self)	394	map_clear (mapgrid *self)
390	{	395	{
391	int r;	396	int r;
392		397
393	for (r = 0; r < self->rows; r++)	398	for (r = 0; r < self->rows; r++)
394	Safefree (self->row[r].col);	399	Safefree (self->row[r].col);
…		…
412	(cell)->flags = 0; \	417	(cell)->flags = 0; \
413	(cell)->player = 0; \	418	(cell)->player = 0; \
414	} while (0)	419	} while (0)
415		420
416	static void	421	static void
417	map_blank (DC__Map self, int x0, int y0, int w, int h)	422	map_blank (mapgrid *self, int x0, int y0, int w, int h)
418	{	423	{
419	int x, y;	424	int x, y;
420	maprow *row;	425	maprow *row;
421	mapcell *cell;	426	mapcell *cell;
422		427
…		…
439	CELL_CLEAR (cell);	444	CELL_CLEAR (cell);
440	}	445	}
441	}	446	}
442	}	447	}
443		448
444	typedef struct {	449	struct smooth_key
		450	{
445	tileid tile;	451	tileid tile;
446	uint8_t x, y, level;	452	uint8_t x, y, level;
447	} smooth_key;	453
		454	bool operator == (const smooth_key &o) const
		455	{
		456	return tile == o.tile && x == o.x && y == o.y && level == o.level;
		457	}
		458	};
		459
		460	typedef ska::flat_hash_map<smooth_key, IV> smooth_hash;
		461
		462	namespace std {
		463	template <>
		464	struct hash<smooth_key>
		465	{
		466	size_t operator () (const smooth_key &v) const
		467	{
		468	return v.tile + (v.x << 8) + (v.y << 16) + (v.level << 24);
		469	}
		470	};
		471	}
448		472
449	static void	473	static void
450	smooth_or_bits (HV hv, smooth_key key, IV bits)	474	smooth_or_bits (smooth_hash &h, smooth_key &key, IV bits)
451	{	475	{
452	SV *sv = hv_fetch (hv, (char )key, sizeof (*key), 1);	476	auto &&it = h.find (key);
453		477
454	if (SvIOK (*sv))	478	if (it == h.end ())
455	SvIV_set (sv, SvIVX (sv) \| bits);	479	h.insert (std::make_pair (key, bits));
456	else	480	else
457	sv_setiv (*sv, bits);	481	it->second \|= bits;
458	}	482	}
459		483
460	static void	484	static void
461	music_finished (void)	485	music_finished (void)
462	{	486	{
…		…
481	ev.data2 = 0;	505	ev.data2 = 0;
482		506
483	SDL_PushEvent ((SDL_Event *)&ev);	507	SDL_PushEvent ((SDL_Event *)&ev);
484	}	508	}
485		509
		510	// approximately divide by 255
486	static unsigned int	511	static unsigned int
487	div255 (unsigned int n)	512	div255 (unsigned int n)
488	{	513	{
489	return (n + (n >> 8)) >> 8;	514	return (n + (n >> 8)) >> 8;
490	}	515	}
…		…
502	n \|= n >> 4;	527	n \|= n >> 4;
503	n \|= n >> 8;	528	n \|= n >> 8;
504	n \|= n >> 16;	529	n \|= n >> 16;
505		530
506	return n + 1;	531	return n + 1;
507	}
508
509	static unsigned int
510	popcount (unsigned int n)
511	{
512	n -= (n >> 1) & 0x55555555U;
513	n = ((n >> 2) & 0x33333333U) + (n & 0x33333333U);
514	n = ((n >> 4) + n) & 0x0f0f0f0fU;
515	n *= 0x01010101U;
516
517	return n >> 24;
518	}	532	}
519		533
520	/* SDL should provide this, really. */	534	/* SDL should provide this, really. */
521	#define SDLK_MODIFIER_MIN 300	535	#define SDLK_MODIFIER_MIN 300
522	#define SDLK_MODIFIER_MAX 314	536	#define SDLK_MODIFIER_MAX 314
…		…
853		867
854	NV ceil (NV x)	868	NV ceil (NV x)
855		869
856	IV minpot (UV n)	870	IV minpot (UV n)
857		871
		872	UV ld32 (UV n)
		873	CODE:
		874	RETVAL = ecb_ld32 (n);
		875	OUTPUT:
		876	RETVAL
		877
858	IV popcount (UV n)	878	IV popcount (UV n)
		879	CODE:
		880	RETVAL = ecb_popcount32 (n);
		881	OUTPUT:
		882	RETVAL
859		883
860	NV distance (NV dx, NV dy)	884	NV distance (NV dx, NV dy)
861	CODE:	885	CODE:
862	RETVAL = pow (dx * dx + dy * dy, 0.5);	886	RETVAL = pow (dx * dx + dy * dy, 0.5);
863	OUTPUT:	887	OUTPUT:
…		…
889	void SDL_QuitSubSystem (U32 flags)	913	void SDL_QuitSubSystem (U32 flags)
890		914
891	void SDL_Quit ()	915	void SDL_Quit ()
892		916
893	int SDL_GL_SetAttribute (int attr, int value)	917	int SDL_GL_SetAttribute (int attr, int value)
		918	C_ARGS: (SDL_GLattr)attr, value
894		919
895	int SDL_GL_GetAttribute (int attr)	920	int SDL_GL_GetAttribute (int attr)
896	CODE:	921	CODE:
897	if (SDL_GL_GetAttribute (attr, &RETVAL))	922	if (SDL_GL_GetAttribute ((SDL_GLattr)attr, &RETVAL))
898	XSRETURN_UNDEF;	923	XSRETURN_UNDEF;
899	OUTPUT:	924	OUTPUT:
900	RETVAL	925	RETVAL
901		926
902	void	927	void
…		…
975	void	1000	void
976	SDL_GL_SwapBuffers ()	1001	SDL_GL_SwapBuffers ()
977		1002
978	char *	1003	char *
979	SDL_GetKeyName (int sym)	1004	SDL_GetKeyName (int sym)
		1005	C_ARGS: (SDLKey)sym
980		1006
981	int	1007	int
982	SDL_GetAppState ()	1008	SDL_GetAppState ()
983		1009
984	int	1010	int
…		…
1081	OUTPUT:	1107	OUTPUT:
1082	RETVAL	1108	RETVAL
1083		1109
1084	int	1110	int
1085	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)	1111	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
1086	POSTCALL:	1112	POSTCALL:
1087	Mix_HookMusicFinished (music_finished);	1113	Mix_HookMusicFinished (music_finished);
1088	Mix_ChannelFinished (channel_finished);	1114	Mix_ChannelFinished (channel_finished);
1089		1115
1090	void	1116	void
1091	Mix_QuerySpec ()	1117	Mix_QuerySpec ()
…		…
1212		1238
1213	SDL_LockSurface (surface2);	1239	SDL_LockSurface (surface2);
1214	EXTEND (SP, 6);	1240	EXTEND (SP, 6);
1215	PUSHs (sv_2mortal (newSViv (surface2->w)));	1241	PUSHs (sv_2mortal (newSViv (surface2->w)));
1216	PUSHs (sv_2mortal (newSViv (surface2->h)));	1242	PUSHs (sv_2mortal (newSViv (surface2->h)));
1217	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	1243	PUSHs (sv_2mortal (newSVpvn ((const char )surface2->pixels, surface2->h surface2->pitch)));
1218	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));	1244	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
1219	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	1245	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
1220	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));	1246	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
1221	SDL_UnlockSurface (surface2);	1247	SDL_UnlockSurface (surface2);
1222		1248
…		…
1294	MODULE = Deliantra::Client PACKAGE = DC::Font	1320	MODULE = Deliantra::Client PACKAGE = DC::Font
1295		1321
1296	PROTOTYPES: DISABLE	1322	PROTOTYPES: DISABLE
1297		1323
1298	DC::Font	1324	DC::Font
1299	new_from_file (SV class, char path, int id = 0)	1325	new_from_file (SV klass, char path, int id = 0)
1300	CODE:	1326	CODE:
1301	{	1327	{
1302	int count;	1328	int count;
1303	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, id, 0, &count);	1329	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, id, 0, &count);
1304	RETVAL = pango_fc_font_description_from_pattern (pattern, 0);	1330	RETVAL = pango_fc_font_description_from_pattern (pattern, 0);
…		…
1333	PROTOTYPE:	1359	PROTOTYPE:
1334	CODE:	1360	CODE:
1335	tc_restore ();	1361	tc_restore ();
1336		1362
1337	DC::Layout	1363	DC::Layout
1338	new (SV *class)	1364	new (SV *klass)
1339	CODE:	1365	CODE:
1340	New (0, RETVAL, 1, struct cf_layout);	1366	RETVAL = new cf_layout;
1341		1367
1342	RETVAL->pl = pango_layout_new (opengl_context);	1368	RETVAL->pl = pango_layout_new (opengl_context);
1343	RETVAL->r = 1.;	1369	RETVAL->r = 1.;
1344	RETVAL->g = 1.;	1370	RETVAL->g = 1.;
1345	RETVAL->b = 1.;	1371	RETVAL->b = 1.;
1346	RETVAL->a = 1.;	1372	RETVAL->a = 1.;
1347	RETVAL->base_height = MIN_FONT_HEIGHT;	1373	RETVAL->base_height = MIN_FONT_HEIGHT;
1348	RETVAL->font = 0;	1374	RETVAL->font = 0;
1349	RETVAL->rc = rc_alloc ();
1350		1375
1351	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);	1376	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
1352	layout_update_font (RETVAL);	1377	layout_update_font (RETVAL);
1353	OUTPUT:	1378	OUTPUT:
1354	RETVAL	1379	RETVAL
1355		1380
1356	void	1381	void
1357	DESTROY (DC::Layout self)	1382	DESTROY (DC::Layout self)
1358	CODE:	1383	CODE:
1359	g_object_unref (self->pl);	1384	g_object_unref (self->pl);
1360	rc_free (self->rc);
1361	Safefree (self);	1385	delete self;
1362		1386
1363	void	1387	void
1364	set_text (DC::Layout self, SV *text_)	1388	set_text (DC::Layout self, SV *text_)
1365	CODE:	1389	CODE:
1366	{	1390	{
…		…
1620	}	1644	}
1621		1645
1622	void	1646	void
1623	render (DC::Layout self, float x, float y, int flags = 0)	1647	render (DC::Layout self, float x, float y, int flags = 0)
1624	CODE:	1648	CODE:
1625	rc_clear (self->rc);	1649	self->rc.clear ();
1626	pango_opengl_render_layout_subpixel (	1650	pango_opengl_render_layout_subpixel (
1627	self->pl,	1651	self->pl,
1628	self->rc,	1652	&self->rc,
1629	x * PANGO_SCALE, y * PANGO_SCALE,	1653	x * PANGO_SCALE, y * PANGO_SCALE,
1630	self->r, self->g, self->b, self->a,	1654	self->r, self->g, self->b, self->a,
1631	flags	1655	flags
1632	);	1656	);
1633	// we assume that context_change actually clears/frees stuff	1657	// we assume that context_change actually clears/frees stuff
…		…
1644	gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,	1668	gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1645	GL_ONE , GL_ONE_MINUS_SRC_ALPHA);	1669	GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1646	glEnable (GL_ALPHA_TEST);	1670	glEnable (GL_ALPHA_TEST);
1647	glAlphaFunc (GL_GREATER, 7.f / 255.f);	1671	glAlphaFunc (GL_GREATER, 7.f / 255.f);
1648		1672
1649	rc_draw (self->rc);	1673	self->rc.draw ();
1650		1674
1651	glDisable (GL_ALPHA_TEST);	1675	glDisable (GL_ALPHA_TEST);
1652	glDisable (GL_BLEND);	1676	glDisable (GL_BLEND);
1653	glDisable (GL_TEXTURE_2D);	1677	glDisable (GL_TEXTURE_2D);
1654	}	1678	}
…		…
1866	MODULE = Deliantra::Client PACKAGE = DC::Map	1890	MODULE = Deliantra::Client PACKAGE = DC::Map
1867		1891
1868	PROTOTYPES: DISABLE	1892	PROTOTYPES: DISABLE
1869		1893
1870	DC::Map	1894	DC::Map
1871	new (SV *class)	1895	new (SV *klass)
1872	CODE:	1896	CODE:
1873	New (0, RETVAL, 1, struct map);	1897	New (0, RETVAL, 1, mapgrid);
1874	RETVAL->x = 0;	1898	RETVAL->x = 0;
1875	RETVAL->y = 0;	1899	RETVAL->y = 0;
1876	RETVAL->w = 0;	1900	RETVAL->w = 0;
1877	RETVAL->h = 0;	1901	RETVAL->h = 0;
1878	RETVAL->ox = 0;	1902	RETVAL->ox = 0;
…		…
1915		1939
1916	void	1940	void
1917	set_smooth (DC::Map self, int face, int smooth, int level)	1941	set_smooth (DC::Map self, int face, int smooth, int level)
1918	CODE:	1942	CODE:
1919	{	1943	{
1920	tileid texid;	1944	tileid texid;
1921	maptex *tex;	1945	maptex *tex;
1922		1946
1923	if (face < 0 \|\| face >= self->faces)	1947	if (face < 0 \|\| face >= self->faces)
1924	return;	1948	return;
1925		1949
1926	if (smooth < 0 \|\| smooth >= self->faces)	1950	if (smooth < 0 \|\| smooth >= self->faces)
1927	return;	1951	return;
1928		1952
1929	texid = self->face2tile [face];	1953	texid = self->face2tile [face];
1930		1954
1931	if (!texid)	1955	if (!texid)
1932	return;	1956	return;
1933		1957
1934	tex = self->tex + texid;	1958	tex = self->tex + texid;
…		…
1967	}	1991	}
1968		1992
1969	void	1993	void
1970	expire_textures (DC::Map self, int texid, int count)	1994	expire_textures (DC::Map self, int texid, int count)
1971	PPCODE:	1995	PPCODE:
1972	for (; texid < self->texs && count; ++texid, --count)	1996	for (; texid < self->texs && count; ++texid, --count)
1973	{	1997	{
1974	maptex *tex = self->tex + texid;	1998	maptex *tex = self->tex + texid;
1975		1999
1976	if (tex->name)	2000	if (tex->name)
1977	{	2001	{
…		…
2024	self->ox += dx; self->x += dx;	2048	self->ox += dx; self->x += dx;
2025	self->oy += dy; self->y += dy;	2049	self->oy += dy; self->y += dy;
2026		2050
2027	while (self->y < 0)	2051	while (self->y < 0)
2028	{	2052	{
2029	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);	2053	prepend (self->row, self->rows, MAP_EXTEND_Y);
2030		2054
2031	self->rows += MAP_EXTEND_Y;	2055	self->rows += MAP_EXTEND_Y;
2032	self->y += MAP_EXTEND_Y;	2056	self->y += MAP_EXTEND_Y;
2033	}	2057	}
2034	}	2058	}
…		…
2179	\| (b << 16)	2203	\| (b << 16)
2180	\| (a << 24);	2204	\| (a << 24);
2181	}	2205	}
2182	}	2206	}
2183		2207
2184	RETVAL = map_sv;	2208	RETVAL = map_sv;
2185	}	2209	}
2186	OUTPUT:	2210	OUTPUT:
2187	RETVAL	2211	RETVAL
2188		2212
2189	void	2213	void
2190	draw (DC::Map self, int mx, int my, int sw, int sh, int Tw, int Th, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)	2214	draw (DC::Map self, int mx, int my, int sw, int sh, int Tw, int Th, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)
2191	CODE:	2215	CODE:
2192	{	2216	{
2193	int x, y, z;	2217	int x, y, z;
2194		2218
2195	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
2196	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
2197	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)	2219	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k), also, static!
2198	smooth_key skey;
2199	int pl_x, pl_y;	2220	int pl_x, pl_y;
2200	maptex pl_tex;	2221	maptex pl_tex;
2201	rc_t *rc = rc_alloc ();	2222	rc_t rc;
2202	rc_t *rc_ov = rc_alloc ();	2223	rc_t rc_ov;
2203	rc_key_t key;	2224	rc_key_t key;
2204	rc_array_t *arr;	2225	rc_t::array_t *arr;
2205		2226
2206	pl_tex.name = 0;	2227	pl_tex.name = 0;
2207		2228
2208	// that's current max. sorry.	2229	// that's current max. sorry.
2209	if (sw > 255) sw = 255;	2230	if (sw > 255) sw = 255;
2210	if (sh > 255) sh = 255;	2231	if (sh > 255) sh = 255;
2211
2212	// clear key, in case of extra padding
2213	memset (&skey, 0, sizeof (skey));
2214		2232
2215	memset (&key, 0, sizeof (key));	2233	memset (&key, 0, sizeof (key));
2216	key.r = 255;	2234	key.r = 255;
2217	key.g = 255;	2235	key.g = 255;
2218	key.b = 255;	2236	key.b = 255;
…		…
2224	my += self->y;	2242	my += self->y;
2225		2243
2226	// first pass: determine smooth_max	2244	// first pass: determine smooth_max
2227	// rather ugly, if you ask me	2245	// rather ugly, if you ask me
2228	// could also be stored inside mapcell and updated on change	2246	// could also be stored inside mapcell and updated on change
2229	memset (smooth_max, 0, sizeof (smooth_max));	2247	memset (smooth_max, 0, sizeof (smooth_max[0]) * (sh + 1));
2230		2248
2231	for (y = 0; y < sh; y++)	2249	for (y = 0; y < sh; y++)
2232	if (0 <= y + my && y + my < self->rows)	2250	if (0 <= y + my && y + my < self->rows)
2233	{	2251	{
2234	maprow *row = self->row + (y + my);	2252	maprow *row = self->row + (y + my);
…		…
2249	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2267	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2250	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2268	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
2251		2269
2252	for (z = 0; z <= 2; z++)	2270	for (z = 0; z <= 2; z++)
2253	{	2271	{
2254	memset (smooth_level, 0, sizeof (smooth_level));	2272	std::bitset<256> smooth_level; // one bit for every possible smooth level
		2273	smooth_key skey;
		2274	smooth_hash smooth;
2255	key.texname = -1;	2275	key.texname = -1;
2256		2276
2257	for (y = 0; y < sh; y++)	2277	for (y = 0; y < sh; y++)
2258	if (0 <= y + my && y + my < self->rows)	2278	if (0 <= y + my && y + my < self->rows)
2259	{	2279	{
…		…
2276		2296
2277	if (!tex.name)	2297	if (!tex.name)
2278	tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */	2298	tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */
2279		2299
2280	key.texname = tex.name;	2300	key.texname = tex.name;
2281	arr = rc_array (rc, &key);	2301	arr = &rc.array (key);
2282	}	2302	}
2283		2303
2284	px = (x + 1) * Th - tex.w;	2304	px = (x + 1) * Th - tex.w;
2285	py = (y + 1) * Tw - tex.h;	2305	py = (y + 1) * Tw - tex.h;
2286		2306
2287	if (expect_false (cell->player == player) && expect_false (z == 2))	2307	if (ecb_expect_false (cell->player == player) && ecb_expect_false (z == 2))
2288	{	2308	{
2289	pl_x = px;	2309	pl_x = px;
2290	pl_y = py;	2310	pl_y = py;
2291	pl_tex = tex;	2311	pl_tex = tex;
2292	continue;	2312	continue;
2293	}	2313	}
2294		2314
2295	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2315	arr->t2f_v3f (0 , 0 , px , py , 0);
2296	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);	2316	arr->t2f_v3f (0 , tex.t, px , py + tex.h, 0);
2297	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);	2317	arr->t2f_v3f (tex.s, tex.t, px + tex.w, py + tex.h, 0);
2298	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2318	arr->t2f_v3f (tex.s, 0 , px + tex.w, py , 0);
2299		2319
2300	// update smooth hash	2320	// update smooth hash
2301	if (tex.smoothtile)	2321	if (tex.smoothtile)
2302	{	2322	{
2303	skey.tile = tex.smoothtile;	2323	skey.tile = tex.smoothtile;
2304	skey.level = tex.smoothlevel;	2324	skey.level = tex.smoothlevel;
2305		2325
2306	smooth_level [tex.smoothlevel >> 5] \|= ((uint32_t)1) << (tex.smoothlevel & 31);	2326	smooth_level[tex.smoothlevel] = 1;
2307		2327
2308	// add bits to current tile and all neighbours. skey.x\|y is	2328	// add bits to current tile and all neighbours. skey.x\|y is
2309	// shifted +1\|+1 so we always stay positive.	2329	// shifted +1\|+1 so we always stay positive.
2310		2330
2311	// bits is ___n cccc CCCC bbbb	2331	// bits is ___n cccc CCCC bbbb
…		…
2319		2339
2320	// corners: 1 ┛· 2 ·┗ 4 ·· 8 ··	2340	// corners: 1 ┛· 2 ·┗ 4 ·· 8 ··
2321	// ·· ·· ·┏ ┓·	2341	// ·· ·· ·┏ ┓·
2322		2342
2323	// full tile	2343	// full tile
2324	skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x1000);	2344	skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, skey, 0x1000);
2325		2345
2326	// borders	2346	// borders
2327	skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0091);	2347	skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, skey, 0x0091);
2328	skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0032);	2348	skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, skey, 0x0032);
2329	skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0064);	2349	skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, skey, 0x0064);
2330	skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, &skey, 0x00c8);	2350	skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, skey, 0x00c8);
2331		2351
2332	// corners	2352	// corners
2333	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);	2353	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, skey, 0x0100);
2334	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);	2354	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, skey, 0x0200);
2335	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);	2355	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, skey, 0x0400);
2336	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);	2356	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, skey, 0x0800);
2337	}	2357	}
2338	}	2358	}
2339		2359
2340	if (expect_false (z == 2) && expect_false (cell->flags))	2360	if (ecb_expect_false (z == 2) && ecb_expect_false (cell->flags))
2341	{	2361	{
2342	// overlays such as the speech bubble, probably more to come	2362	// overlays such as the speech bubble, probably more to come
2343	if (cell->flags & 1)	2363	if (cell->flags & 1)
2344	{	2364	{
2345	rc_key_t key_ov = key;	2365	rc_key_t key_ov = key;
2346	maptex tex = self->tex [TEXID_SPEECH];	2366	maptex tex = self->tex[TEXID_SPEECH];
2347	rc_array_t *arr;
2348	int px = x * Tw + Tw * 2 / 32;	2367	int px = x * Tw + Tw * 2 / 32;
2349	int py = y * Th - Th * 6 / 32;	2368	int py = y * Th - Th * 6 / 32;
2350		2369
2351	key_ov.texname = tex.name;	2370	key_ov.texname = tex.name;
2352	arr = rc_array (rc_ov, &key_ov);	2371	rc_t::array_t &arr = rc_ov.array (key_ov);
2353		2372
2354	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2373	arr.t2f_v3f (0 , 0 , px , py , 0);
2355	rc_t2f_v3f (arr, 0 , tex.t, px , py + Th, 0);	2374	arr.t2f_v3f (0 , tex.t, px , py + Th, 0);
2356	rc_t2f_v3f (arr, tex.s, tex.t, px + Tw, py + Th, 0);	2375	arr.t2f_v3f (tex.s, tex.t, px + Tw, py + Th, 0);
2357	rc_t2f_v3f (arr, tex.s, 0 , px + Tw, py , 0);	2376	arr.t2f_v3f (tex.s, 0 , px + Tw, py , 0);
2358	}	2377	}
2359	}	2378	}
2360	}	2379	}
2361	}	2380	}
2362		2381
2363	rc_draw (rc);	2382	rc.draw ();
2364	rc_clear (rc);	2383	rc.clear ();
2365		2384
2366	// go through all smoothlevels, lowest to highest, then draw.	2385	// go through all smoothlevels, lowest to highest, then draw.
2367	// this is basically counting sort	2386	// this is basically counting sort
2368	{	2387	{
2369	int w, b;	2388	int w, b;
2370		2389
2371	glEnable (GL_TEXTURE_2D);	2390	glEnable (GL_TEXTURE_2D);
2372	glBegin (GL_QUADS);	2391	glBegin (GL_QUADS);
2373	for (w = 0; w < 256 / 32; ++w)	2392	for (int level = 0; level < smooth_level.size (); ++level)
		2393	if (smooth_level[level])
		2394	for (auto &&it = smooth.begin (); it != smooth.end (); ++it)
2374	{	2395	{
2375	uint32_t smask = smooth_level [w];	2396	smooth_key &skey = it->first;
2376	if (smask)	2397	IV bits = it->second;
2377	for (b = 0; b < 32; ++b)	2398
2378	if (smask & (((uint32_t)1) << b))	2399	if (!(bits & 0x1000)
		2400	&& skey.level == level
		2401	&& level > smooth_max [skey.x][skey.y])
2379	{	2402	{
2380	int level = (w << 5) \| b;	2403	maptex tex = self->tex [skey.tile];
		2404	int px = (((int)skey.x) - 1) * Tw;
		2405	int py = (((int)skey.y) - 1) * Th;
		2406	int border = bits & 15;
		2407	int corner = (bits >> 8) & ~(bits >> 4) & 15;
		2408	float dx = tex.s * .0625f; // 16 images/row
		2409	float dy = tex.t * .5f ; // 2 images/column
		2410
2381	HE *he;	2411	if (tex.name)
2382
2383	hv_iterinit (smooth);
2384	while ((he = hv_iternext (smooth)))
2385	{	2412	{
2386	smooth_key skey = (smooth_key )HeKEY (he);	2413	// this time avoiding texture state changes
2387	IV bits = SvIVX (HeVAL (he));	2414	// save gobs of state changes.
2388		2415	if (key.texname != tex.name)
2389	if (!(bits & 0x1000)
2390	&& skey->level == level
2391	&& level > smooth_max [skey->x][skey->y])
2392	{	2416	{
2393	maptex tex = self->tex [skey->tile];
2394	int px = (((int)skey->x) - 1) * Tw;
2395	int py = (((int)skey->y) - 1) * Th;
2396	int border = bits & 15;
2397	int corner = (bits >> 8) & ~(bits >> 4) & 15;
2398	float dx = tex.s * .0625f; // 16 images/row
2399	float dy = tex.t * .5f ; // 2 images/column
2400
2401	if (tex.name)
2402	{
2403	// this time avoiding texture state changes
2404	// save gobs of state changes.
2405	if (key.texname != tex.name)
2406	{
2407	self->tex [skey->tile].unused = 0;	2417	self->tex [skey.tile].unused = 0;
2408		2418
2409	glEnd ();	2419	glEnd ();
2410	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);	2420	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
2411	glBegin (GL_QUADS);	2421	glBegin (GL_QUADS);
2412	}	2422	}
2413		2423
2414	if (border)	2424	if (border)
2415	{	2425	{
2416	float ox = border * dx;	2426	float ox = border * dx;
2417		2427
2418	glTexCoord2f (ox , 0.f ); glVertex2i (px , py );	2428	glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
2419	glTexCoord2f (ox , dy ); glVertex2i (px , py + Th);	2429	glTexCoord2f (ox , dy ); glVertex2i (px , py + Th);
2420	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py + Th);	2430	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py + Th);
2421	glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + Tw, py );	2431	glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + Tw, py );
2422	}	2432	}
2423		2433
2424	if (corner)	2434	if (corner)
2425	{	2435	{
2426	float ox = corner * dx;	2436	float ox = corner * dx;
2427		2437
2428	glTexCoord2f (ox , dy ); glVertex2i (px , py );	2438	glTexCoord2f (ox , dy ); glVertex2i (px , py );
2429	glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + Th);	2439	glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + Th);
2430	glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + Tw, py + Th);	2440	glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + Tw, py + Th);
2431	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py );	2441	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py );
2432	}
2433	}
2434	}	2442	}
2435	}	2443	}
2436	}	2444	}
2437	}	2445	}
2438		2446
2439	glEnd ();	2447	glEnd ();
2440	glDisable (GL_TEXTURE_2D);	2448	glDisable (GL_TEXTURE_2D);
2441	key.texname = -1;	2449	key.texname = -1;
2442	}	2450	}
2443
2444	hv_clear (smooth);
2445	}	2451	}
2446		2452
2447	if (pl_tex.name)	2453	if (pl_tex.name)
2448	{	2454	{
2449	maptex tex = pl_tex;	2455	maptex tex = pl_tex;
2450	int px = pl_x + sdx;	2456	int px = pl_x + sdx;
2451	int py = pl_y + sdy;	2457	int py = pl_y + sdy;
2452		2458
2453	key.texname = tex.name;	2459	key.texname = tex.name;
2454	arr = rc_array (rc, &key);	2460	rc_t::array_t &arr = rc.array (key);
2455		2461
2456	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2462	arr.t2f_v3f (0 , 0 , px , py , 0);
2457	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);	2463	arr.t2f_v3f (0 , tex.t, px , py + tex.h, 0);
2458	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);	2464	arr.t2f_v3f (tex.s, tex.t, px + tex.w, py + tex.h, 0);
2459	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2465	arr.t2f_v3f (tex.s, 0 , px + tex.w, py , 0);
2460		2466
2461	rc_draw (rc);	2467	rc.draw ();
2462	}	2468	}
2463		2469
2464	rc_draw (rc_ov);	2470	rc_ov.draw ();
2465	rc_clear (rc_ov);	2471	rc_ov.clear ();
2466		2472
2467	glDisable (GL_BLEND);	2473	glDisable (GL_BLEND);
2468	rc_free (rc);
2469	rc_free (rc_ov);
2470		2474
2471	// top layer: overlays such as the health bar	2475	// top layer: overlays such as the health bar
2472	for (y = 0; y < sh; y++)	2476	for (y = 0; y < sh; y++)
2473	if (0 <= y + my && y + my < self->rows)	2477	if (0 <= y + my && y + my < self->rows)
2474	{	2478	{
…		…
2480	mapcell *cell = row->col + (x + mx - row->c0);	2484	mapcell *cell = row->col + (x + mx - row->c0);
2481		2485
2482	int px = x * Tw;	2486	int px = x * Tw;
2483	int py = y * Th;	2487	int py = y * Th;
2484		2488
2485	if (expect_false (cell->player == player))	2489	if (ecb_expect_false (cell->player == player))
2486	{	2490	{
2487	px += sdx;	2491	px += sdx;
2488	py += sdy;	2492	py += sdy;
2489	}	2493	}
2490		2494
…		…
2718	else	2722	else
2719	*data++ = 0;	2723	*data++ = 0;
2720	}	2724	}
2721	}	2725	}
2722		2726
2723	/* if size is wh + 5 then no data has been found /	2727	/* if size is wh + 5 then no data has been found /
2724	if (data - (uint8_t )SvPVX (data_sv) != w h + 5)	2728	if (data - (uint8_t )SvPVX (data_sv) != w h + 5)
2725	{	2729	{
2726	SvPOK_only (data_sv);	2730	SvPOK_only (data_sv);
2727	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));	2731	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
2728	}	2732	}
2729		2733
2730	RETVAL = data_sv;	2734	RETVAL = data_sv;
2731	}	2735	}
2732	OUTPUT:	2736	OUTPUT:
2733	RETVAL	2737	RETVAL
2734		2738
2735	void	2739	void
…		…
2742	STRLEN len;	2746	STRLEN len;
2743	uint8_t data, end;	2747	uint8_t data, end;
2744		2748
2745	len = SvLEN (data_sv);	2749	len = SvLEN (data_sv);
2746	SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more	2750	SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more
2747	data = SvPVbyte_nolen (data_sv);	2751	data = (uint8_t *)SvPVbyte_nolen (data_sv);
2748	end = data + len + 8;	2752	end = data + len + 8;
2749		2753
2750	if (len < 5)	2754	if (len < 5)
2751	XSRETURN_EMPTY;	2755	XSRETURN_EMPTY;
2752		2756
…		…
2813	}	2817	}
2814		2818
2815	MODULE = Deliantra::Client PACKAGE = DC::RW	2819	MODULE = Deliantra::Client PACKAGE = DC::RW
2816		2820
2817	DC::RW	2821	DC::RW
2818	new (SV class, SV data_sv)	2822	new (SV klass, SV data_sv)
2819	CODE:	2823	CODE:
2820	{	2824	{
2821	STRLEN datalen;	2825	STRLEN datalen;
2822	char *data = SvPVbyte (data_sv, datalen);	2826	char *data = SvPVbyte (data_sv, datalen);
2823		2827
…		…
2825	}	2829	}
2826	OUTPUT:	2830	OUTPUT:
2827	RETVAL	2831	RETVAL
2828		2832
2829	DC::RW	2833	DC::RW
2830	new_from_file (SV class, const char path, const char *mode = "rb")	2834	new_from_file (SV klass, const char path, const char *mode = "rb")
2831	CODE:	2835	CODE:
2832	RETVAL = SDL_RWFromFile (path, mode);	2836	RETVAL = SDL_RWFromFile (path, mode);
2833	OUTPUT:	2837	OUTPUT:
2834	RETVAL	2838	RETVAL
2835		2839
…		…
2944	#else	2948	#else
2945	XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));	2949	XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));
2946	#endif	2950	#endif
2947		2951
2948	DC::MixChunk	2952	DC::MixChunk
2949	new (SV *class, DC::RW rwops)	2953	new (SV *klass, DC::RW rwops)
2950	CODE:	2954	CODE:
2951	RETVAL = Mix_LoadWAV_RW (rwops, 1);	2955	RETVAL = Mix_LoadWAV_RW (rwops, 1);
2952	OUTPUT:	2956	OUTPUT:
2953	RETVAL	2957	RETVAL
2954		2958
…		…
3024	RETVAL = Mix_PlayingMusic ();	3028	RETVAL = Mix_PlayingMusic ();
3025	OUTPUT:	3029	OUTPUT:
3026	RETVAL	3030	RETVAL
3027		3031
3028	DC::MixMusic	3032	DC::MixMusic
3029	new (SV *class, DC::RW rwops)	3033	new (SV *klass, DC::RW rwops)
3030	CODE:	3034	CODE:
3031	RETVAL = Mix_LoadMUS_RW (rwops);	3035	RETVAL = Mix_LoadMUS_RW (rwops);
3032	OUTPUT:	3036	OUTPUT:
3033	RETVAL	3037	RETVAL
3034		3038
…		…
3187	gl.BlendFuncSeparateEXT = 0;	3191	gl.BlendFuncSeparateEXT = 0;
3188		3192
3189	void	3193	void
3190	apple_nvidia_bug (int enable)	3194	apple_nvidia_bug (int enable)
3191		3195
3192	char *	3196	const char *
3193	gl_vendor ()	3197	gl_vendor ()
3194	CODE:	3198	CODE:
3195	RETVAL = (char *)glGetString (GL_VENDOR);	3199	RETVAL = (const char *)glGetString (GL_VENDOR);
3196	OUTPUT:	3200	OUTPUT:
3197	RETVAL	3201	RETVAL
3198		3202
3199	char *	3203	const char *
3200	gl_version ()	3204	gl_version ()
3201	CODE:	3205	CODE:
3202	RETVAL = (char *)glGetString (GL_VERSION);	3206	RETVAL = (const char *)glGetString (GL_VERSION);
3203	OUTPUT:	3207	OUTPUT:
3204	RETVAL	3208	RETVAL
3205		3209
3206	char *	3210	const char *
3207	gl_extensions ()	3211	gl_extensions ()
3208	CODE:	3212	CODE:
3209	RETVAL = (char *)glGetString (GL_EXTENSIONS);	3213	RETVAL = (const char *)glGetString (GL_EXTENSIONS);
3210	OUTPUT:	3214	OUTPUT:
3211	RETVAL	3215	RETVAL
3212		3216
3213	const char *glGetString (GLenum pname)	3217	const char *glGetString (GLenum pname)
		3218	CODE:
		3219	RETVAL = (const char *)glGetString (pname);
		3220	OUTPUT:
		3221	RETVAL
3214		3222
3215	GLint glGetInteger (GLenum pname)	3223	GLint glGetInteger (GLenum pname)
3216	CODE:	3224	CODE:
3217	glGetIntegerv (pname, &RETVAL);	3225	glGetIntegerv (pname, &RETVAL);
3218	OUTPUT:	3226	OUTPUT:
…		…
3421		3429
3422	void	3430	void
3423	find_widget (SV *self, NV x, NV y)	3431	find_widget (SV *self, NV x, NV y)
3424	PPCODE:	3432	PPCODE:
3425	{	3433	{
3426	if (within_widget (self, x, y))	3434	if (within_widget (self, x, y))
3427	XPUSHs (self);	3435	XPUSHs (self);
3428	}	3436	}
3429		3437
3430	BOOT:	3438	BOOT:
3431	{	3439	{
…		…
3439		3447
3440	void	3448	void
3441	draw (SV *self)	3449	draw (SV *self)
3442	CODE:	3450	CODE:
3443	{	3451	{
3444	HV *hv;	3452	HV *hv;
3445	SV **svp;	3453	SV **svp;
3446	NV x, y, w, h;	3454	NV x, y, w, h;
3447	SV *draw_x_sv = GvSV (draw_x_gv);	3455	SV *draw_x_sv = GvSV (draw_x_gv);
3448	SV *draw_y_sv = GvSV (draw_y_gv);	3456	SV *draw_y_sv = GvSV (draw_y_gv);
3449	SV *draw_w_sv = GvSV (draw_w_gv);	3457	SV *draw_w_sv = GvSV (draw_w_gv);
3450	SV *draw_h_sv = GvSV (draw_h_gv);	3458	SV *draw_h_sv = GvSV (draw_h_gv);

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.317 by root, Fri Nov 23 12:39:05 2012 UTC vs. Revision 1.333 by root, Mon Nov 19 01:23:01 2018 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.317 by root, Fri Nov 23 12:39:05 2012 UTC vs.
Revision 1.333 by root, Mon Nov 19 01:23:01 2018 UTC