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.50 by root, Wed Apr 19 00:47:34 2006 UTC vs.
Revision 1.55 by root, Thu Apr 20 08:11:56 2006 UTC

9#include <string.h> 9#include <string.h>
10#include <stdio.h> 10#include <stdio.h>
11 11
12#include <SDL.h> 12#include <SDL.h>
13#include <SDL_image.h> 13#include <SDL_image.h>
14#include <SDL_mixer.h>
14#include <SDL_opengl.h> 15#include <SDL_opengl.h>
15 16
16#include <glib/gmacros.h> 17#include <glib/gmacros.h>
17 18
18#include <pango/pango.h> 19#include <pango/pango.h>
37#define FOW_DARKNESS 32 38#define FOW_DARKNESS 32
38 39
39#define MAP_EXTEND_X 32 40#define MAP_EXTEND_X 32
40#define MAP_EXTEND_Y 512 41#define MAP_EXTEND_Y 512
41 42
43typedef Mix_Chunk *CFClient__MixChunk;
44typedef Mix_Music *CFClient__MixMusic;
45
42static PangoContext *context; 46static PangoContext *context;
43static PangoFontMap *fontmap; 47static PangoFontMap *fontmap;
44 48
45typedef struct cf_layout { 49typedef struct cf_layout {
46 PangoLayout *pl; 50 PangoLayout *pl;
241 245
242PROTOTYPES: ENABLE 246PROTOTYPES: ENABLE
243 247
244BOOT: 248BOOT:
245{ 249{
250 HV *stash = gv_stashpv ("CFClient", 1);
251 static const struct {
252 const char *name;
253 IV iv;
254 } *civ, const_iv[] = {
255# define const_iv(name) { # name, (IV)name }
256 const_iv (SDL_ACTIVEEVENT),
257 const_iv (SDL_KEYDOWN),
258 const_iv (SDL_KEYUP),
259 const_iv (SDL_MOUSEMOTION),
260 const_iv (SDL_MOUSEBUTTONDOWN),
261 const_iv (SDL_MOUSEBUTTONUP),
262 const_iv (SDL_JOYAXISMOTION),
263 const_iv (SDL_JOYBALLMOTION),
264 const_iv (SDL_JOYHATMOTION),
265 const_iv (SDL_JOYBUTTONDOWN),
266 const_iv (SDL_JOYBUTTONUP),
267 const_iv (SDL_QUIT),
268 const_iv (SDL_SYSWMEVENT),
269 const_iv (SDL_EVENT_RESERVEDA),
270 const_iv (SDL_EVENT_RESERVEDB),
271 const_iv (SDL_VIDEORESIZE),
272 const_iv (SDL_VIDEOEXPOSE),
273 const_iv (SDL_USEREVENT),
274 const_iv (SDLK_KP0),
275 const_iv (SDLK_KP1),
276 const_iv (SDLK_KP2),
277 const_iv (SDLK_KP3),
278 const_iv (SDLK_KP4),
279 const_iv (SDLK_KP5),
280 const_iv (SDLK_KP6),
281 const_iv (SDLK_KP7),
282 const_iv (SDLK_KP8),
283 const_iv (SDLK_KP9),
284 const_iv (SDLK_KP_PERIOD),
285 const_iv (SDLK_KP_DIVIDE),
286 const_iv (SDLK_KP_MULTIPLY),
287 const_iv (SDLK_KP_MINUS),
288 const_iv (SDLK_KP_PLUS),
289 const_iv (SDLK_KP_ENTER),
290 const_iv (SDLK_KP_EQUALS),
291 const_iv (SDLK_UP),
292 const_iv (SDLK_DOWN),
293 const_iv (SDLK_RIGHT),
294 const_iv (SDLK_LEFT),
295 const_iv (SDLK_INSERT),
296 const_iv (SDLK_HOME),
297 const_iv (SDLK_END),
298 const_iv (SDLK_PAGEUP),
299 const_iv (SDLK_PAGEDOWN),
300 const_iv (SDLK_F1),
301 const_iv (SDLK_F2),
302 const_iv (SDLK_F3),
303 const_iv (SDLK_F4),
304 const_iv (SDLK_F5),
305 const_iv (SDLK_F6),
306 const_iv (SDLK_F7),
307 const_iv (SDLK_F8),
308 const_iv (SDLK_F9),
309 const_iv (SDLK_F10),
310 const_iv (SDLK_F11),
311 const_iv (SDLK_F12),
312 const_iv (SDLK_F13),
313 const_iv (SDLK_F14),
314 const_iv (SDLK_F15),
315 const_iv (SDLK_NUMLOCK),
316 const_iv (SDLK_CAPSLOCK),
317 const_iv (SDLK_SCROLLOCK),
318 const_iv (SDLK_RSHIFT),
319 const_iv (SDLK_LSHIFT),
320 const_iv (SDLK_RCTRL),
321 const_iv (SDLK_LCTRL),
322 const_iv (SDLK_RALT),
323 const_iv (SDLK_LALT),
324 const_iv (SDLK_RMETA),
325 const_iv (SDLK_LMETA),
326 const_iv (SDLK_LSUPER),
327 const_iv (SDLK_RSUPER),
328 const_iv (SDLK_MODE),
329 const_iv (SDLK_COMPOSE),
330 const_iv (SDLK_HELP),
331 const_iv (SDLK_PRINT),
332 const_iv (SDLK_SYSREQ),
333 const_iv (SDLK_BREAK),
334 const_iv (SDLK_MENU),
335 const_iv (SDLK_POWER),
336 const_iv (SDLK_EURO),
337 const_iv (SDLK_UNDO),
338 const_iv (KMOD_NONE),
339 const_iv (KMOD_LSHIFT),
340 const_iv (KMOD_RSHIFT),
341 const_iv (KMOD_LCTRL),
342 const_iv (KMOD_RCTRL),
343 const_iv (KMOD_LALT),
344 const_iv (KMOD_RALT),
345 const_iv (KMOD_LMETA),
346 const_iv (KMOD_RMETA),
347 const_iv (KMOD_NUM),
348 const_iv (KMOD_CAPS),
349 const_iv (KMOD_MODE),
350 const_iv (KMOD_CTRL),
351 const_iv (KMOD_SHIFT),
352 const_iv (KMOD_ALT),
353 const_iv (KMOD_META)
354# undef const_iv
355 };
356
357 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
358 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
359
246 fontmap = pango_ft2_font_map_new (); 360 fontmap = pango_ft2_font_map_new ();
247 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0); 361 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
248 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 362 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
249} 363}
364
365int
366SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO)
367
368void
369SDL_Quit ()
370
371void
372SDL_ListModes ()
373 PPCODE:
374{
375 SDL_Rect **m;
376
377 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
378 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
379 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
380 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
381
382 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
383 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
384 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
385 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
386
387 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
388 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
389 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
390
391 SDL_EnableUNICODE (1);
392 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
393
394 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
395
396 if (m && m != (SDL_Rect **)-1)
397 while (*m)
398 {
399 AV *av = newAV ();
400 av_push (av, newSViv ((*m)->w));
401 av_push (av, newSViv ((*m)->h));
402 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
403
404 ++m;
405 }
406}
407
408int
409SDL_SetVideoMode (int w, int h, int fullscreen)
410 CODE:
411 RETVAL = !!SDL_SetVideoMode (
412 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
413 );
414 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
415 OUTPUT:
416 RETVAL
417
418void
419SDL_GL_SwapBuffers ()
420
421void
422SDL_PollEvent ()
423 PPCODE:
424{
425 SDL_Event ev;
426
427 while (SDL_PollEvent (&ev))
428 {
429 HV *hv = newHV ();
430 hv_store (hv, "type", 4, newSViv (ev.type), 0);
431 switch (ev.type)
432 {
433 case SDL_KEYDOWN:
434 case SDL_KEYUP:
435 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
436 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
437 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
438 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
439 break;
440
441 case SDL_ACTIVEEVENT:
442 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
443 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
444 break;
445
446 case SDL_MOUSEMOTION:
447 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
448 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
449 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
450 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
451 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
452 break;
453
454 case SDL_MOUSEBUTTONDOWN:
455 case SDL_MOUSEBUTTONUP:
456 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
457 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
458 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
459 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
460 }
461
462 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
463 }
464}
465
466int
467Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512)
468
469void
470Mix_CloseAudio ()
471
472int
473Mix_AllocateChannels (int numchans = -1)
250 474
251void 475void
252lowdelay (int fd, int val = 1) 476lowdelay (int fd, int val = 1)
253 CODE: 477 CODE:
254#ifndef _WIN32 478#ifndef _WIN32
709 cell->darkness = -1; 933 cell->darkness = -1;
710 } 934 }
711} 935}
712 936
713SV * 937SV *
714mapmap (CFClient::Map self, int w, int h) 938mapmap (CFClient::Map self, int x0, int y0, int w, int h)
715 CODE: 939 CODE:
716{ 940{
717 int x0, x1, x; 941 int x1, x;
718 int y0, y1, y; 942 int y1, y;
719 int z; 943 int z;
720 SV *map_sv = newSV (w * h * sizeof (uint32_t)); 944 SV *map_sv = newSV (w * h * sizeof (uint32_t));
721 uint32_t *map = (uint32_t *)SvPVX (map_sv); 945 uint32_t *map = (uint32_t *)SvPVX (map_sv);
722 946
723 SvPOK_only (map_sv); 947 SvPOK_only (map_sv);
724 SvCUR_set (map_sv, w * h * sizeof (uint32_t)); 948 SvCUR_set (map_sv, w * h * sizeof (uint32_t));
725 949
726 x0 = self->x - w / 2; x1 = x0 + w; 950 x0 += self->x; x1 = x0 + w;
727 y0 = self->y - h / 2; y1 = y0 + h; 951 y0 += self->y; y1 = y0 + h;
728 952
729 for (y = y0; y < y1; y++) 953 for (y = y0; y < y1; y++)
730 { 954 {
731 maprow *row = 0 <= y && y < self->rows 955 maprow *row = 0 <= y && y < self->rows
732 ? self->row + y 956 ? self->row + y
872 *data++ = 0; /* version 0 format */ 1096 *data++ = 0; /* version 0 format */
873 *data++ = w >> 8; *data++ = w; 1097 *data++ = w >> 8; *data++ = w;
874 *data++ = h >> 8; *data++ = h; 1098 *data++ = h >> 8; *data++ = h;
875 1099
876 // we need to do this 'cause we don't keep an absolute coord system for rows 1100 // we need to do this 'cause we don't keep an absolute coord system for rows
877 // TODO: treat rows as we treat 1101 // TODO: treat rows as we treat columns
878 map_get_row (self, y0 + self->y - self->oy);//D 1102 map_get_row (self, y0 + self->y - self->oy);//D
879 map_get_row (self, y0 + self->y - self->oy + h - 1);//D 1103 map_get_row (self, y0 + self->y - self->oy + h - 1);//D
880 1104
881 x0 += self->x - self->ox; 1105 x0 += self->x - self->ox;
882 y0 += self->y - self->oy; 1106 y0 += self->y - self->oy;
946 1170
947 w = *data++ << 8; w |= *data++; 1171 w = *data++ << 8; w |= *data++;
948 h = *data++ << 8; h |= *data++; 1172 h = *data++ << 8; h |= *data++;
949 1173
950 // we need to do this 'cause we don't keep an absolute coord system for rows 1174 // we need to do this 'cause we don't keep an absolute coord system for rows
951 // TODO: treat rows as we treat 1175 // TODO: treat rows as we treat columns
952 map_get_row (self, y0 + self->y - self->oy);//D 1176 map_get_row (self, y0 + self->y - self->oy);//D
953 map_get_row (self, y0 + self->y - self->oy + h - 1);//D 1177 map_get_row (self, y0 + self->y - self->oy + h - 1);//D
954 1178
955 x0 += self->x - self->ox; 1179 x0 += self->x - self->ox;
956 y0 += self->y - self->oy; 1180 y0 += self->y - self->oy;
991 } 1215 }
992 } 1216 }
993 } 1217 }
994} 1218}
995 1219
1220MODULE = CFClient PACKAGE = CFClient::MixChunk
1221
1222CFClient::MixChunk
1223new_from_file (SV *class, char *path)
1224 CODE:
1225 RETVAL = Mix_LoadWAV (path);
1226 OUTPUT:
1227 RETVAL
1228
1229void
1230DESTROY (CFClient::MixChunk self)
1231 CODE:
1232 Mix_FreeChunk (self);
1233
1234int
1235volume (CFClient::MixChunk self, int volume = -1)
1236 CODE:
1237 RETVAL = Mix_VolumeChunk (self, volume);
1238 OUTPUT:
1239 RETVAL
1240
1241int
1242play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
1243 CODE:
1244 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
1245 OUTPUT:
1246 RETVAL
1247
1248MODULE = CFClient PACKAGE = CFClient::MixMusic
1249
1250int
1251volume (int volume = -1)
1252 CODE:
1253 RETVAL = Mix_VolumeMusic (volume);
1254 OUTPUT:
1255 RETVAL
1256
1257CFClient::MixMusic
1258new_from_file (SV *class, char *path)
1259 CODE:
1260 RETVAL = Mix_LoadMUS (path);
1261 OUTPUT:
1262 RETVAL
1263
1264void
1265DESTROY (CFClient::MixMusic self)
1266 CODE:
1267 Mix_FreeMusic (self);
1268
1269int
1270play (CFClient::MixMusic self, int loops = -1)
1271 CODE:
1272 RETVAL = Mix_PlayMusic (self, loops);
1273 OUTPUT:
1274 RETVAL
1275
1276MODULE = CFClient PACKAGE = CFClient::OpenGL
1277
1278BOOT:
1279{
1280 HV *stash = gv_stashpv ("CFClient::OpenGL", 1);
1281 static const struct {
1282 const char *name;
1283 IV iv;
1284 } *civ, const_iv[] = {
1285# define const_iv(name) { # name, (IV)name }
1286 const_iv (GL_COLOR_MATERIAL),
1287 const_iv (GL_SMOOTH),
1288 const_iv (GL_FLAT),
1289 const_iv (GL_BLEND),
1290 const_iv (GL_AND),
1291 const_iv (GL_SRC_ALPHA),
1292 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1293 const_iv (GL_RGB),
1294 const_iv (GL_RGBA),
1295 const_iv (GL_UNSIGNED_BYTE),
1296 const_iv (GL_ALPHA4),
1297 const_iv (GL_ALPHA),
1298 const_iv (GL_FLOAT),
1299 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1300 const_iv (GL_COMPILE),
1301 const_iv (GL_TEXTURE_1D),
1302 const_iv (GL_TEXTURE_2D),
1303 const_iv (GL_TEXTURE_ENV),
1304 const_iv (GL_TEXTURE_MAG_FILTER),
1305 const_iv (GL_TEXTURE_MIN_FILTER),
1306 const_iv (GL_TEXTURE_ENV_MODE),
1307 const_iv (GL_TEXTURE_WRAP_S),
1308 const_iv (GL_TEXTURE_WRAP_T),
1309 const_iv (GL_CLAMP),
1310 const_iv (GL_REPEAT),
1311 const_iv (GL_NEAREST),
1312 const_iv (GL_LINEAR),
1313 const_iv (GL_MODULATE),
1314 const_iv (GL_REPLACE),
1315 const_iv (GL_COLOR_BUFFER_BIT),
1316 const_iv (GL_PROJECTION),
1317 const_iv (GL_MODELVIEW),
1318 const_iv (GL_COLOR_LOGIC_OP),
1319 const_iv (GL_CONVOLUTION_2D),
1320 const_iv (GL_CONVOLUTION_BORDER_MODE),
1321 const_iv (GL_CONSTANT_BORDER),
1322 const_iv (GL_LINES),
1323 const_iv (GL_QUADS),
1324 const_iv (GL_LINE_LOOP),
1325 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
1326 const_iv (GL_FASTEST),
1327# undef const_iv
1328 };
1329
1330 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1331 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1332}
1333
1334int glGetError ()
1335
1336void glClear (int mask)
1337
1338void glClearColor (float r, float g, float b, float a = 1.0)
1339 PROTOTYPE: @
1340
1341void glEnable (int cap)
1342
1343void glDisable (int cap)
1344
1345void glShadeModel (int mode)
1346
1347void glHint (int target, int mode)
1348
1349void glBlendFunc (int sfactor, int dfactor)
1350
1351void glLogicOp (int opcode)
1352
1353void glMatrixMode (int mode)
1354
1355void glPushMatrix ()
1356
1357void glPopMatrix ()
1358
1359void glLoadIdentity ()
1360
1361void glOrtho (double left, double right, double bottom, double top, double near, double far)
1362
1363void glViewport (int x, int y, int width, int height)
1364
1365void glTranslate (float x, float y, float z = 0.)
1366 CODE:
1367 glTranslatef (x, y, z);
1368
1369void glScale (float x, float y, float z)
1370 CODE:
1371 glScalef (x, y, z);
1372
1373void glRotate (float angle, float x, float y, float z)
1374 CODE:
1375 glRotatef (angle, x, y, z);
1376
1377void glBegin (int mode)
1378
1379void glEnd ()
1380
1381void glColor (float r, float g, float b, float a = 1.0)
1382 PROTOTYPE: @
1383 CODE:
1384 glColor4f (r, g, b, a);
1385
1386void glVertex (float x, float y, float z = 0.)
1387 CODE:
1388 glVertex3f (x, y, z);
1389
1390void glTexCoord (float s, float t)
1391 CODE:
1392 glTexCoord2f (s, t);
1393
1394void glTexEnv (int target, int pname, float param)
1395 CODE:
1396 glTexEnvf (target, pname, param);
1397
1398void glTexParameter (int target, int pname, float param)
1399 CODE:
1400 glTexParameterf (target, pname, param);
1401
1402void glBindTexture (int target, int name)
1403
1404void glConvolutionParameter (int target, int pname, float params)
1405 CODE:
1406 glConvolutionParameterf (target, pname, params);
1407
1408void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data)
1409
1410void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
1411
1412void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1413
1414int glGenTexture ()
1415 CODE:
1416{
1417 GLuint name;
1418 glGenTextures (1, &name);
1419 RETVAL = name;
1420}
1421 OUTPUT:
1422 RETVAL
1423
1424void glDeleteTexture (int name)
1425 CODE:
1426{
1427 GLuint name_ = name;
1428 glDeleteTextures (1, &name_);
1429}
1430
1431int glGenList ()
1432 CODE:
1433 RETVAL = glGenLists (1);
1434 OUTPUT:
1435 RETVAL
1436
1437void glDeleteList (int list)
1438 CODE:
1439 glDeleteLists (list, 1);
1440
1441void glNewList (int list, int mode = GL_COMPILE)
1442
1443void glEndList ()
1444
1445void glCallList (int list)
1446

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines