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.48 by root, Tue Apr 18 00:14:16 2006 UTC vs.
Revision 1.53 by root, Wed Apr 19 21:38:04 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_PollEvent ()
420 PPCODE:
421{
422 SDL_Event ev;
423
424 while (SDL_PollEvent (&ev))
425 {
426 HV *hv = newHV ();
427 hv_store (hv, "type", 4, newSViv (ev.type), 0);
428 switch (ev.type)
429 {
430 case SDL_KEYDOWN:
431 case SDL_KEYUP:
432 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
433 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
434 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
435 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
436 break;
437
438 case SDL_ACTIVEEVENT:
439 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
440 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
441 break;
442
443 case SDL_MOUSEMOTION:
444 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
445 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
446 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
447 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
448 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
449 break;
450
451 case SDL_MOUSEBUTTONDOWN:
452 case SDL_MOUSEBUTTONUP:
453 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
454 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
455 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
456 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
457 }
458
459 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
460 }
461}
462
463int
464Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512)
465
466void
467Mix_CloseAudio ()
468
469int
470Mix_AllocateChannels (int numchans = -1)
250 471
251void 472void
252lowdelay (int fd, int val = 1) 473lowdelay (int fd, int val = 1)
253 CODE: 474 CODE:
254#ifndef _WIN32 475#ifndef _WIN32
… …
307 croak ("load_image: %s", SDL_GetError ()); 528 croak ("load_image: %s", SDL_GetError ());
308 529
309 fmt.palette = NULL; 530 fmt.palette = NULL;
310 fmt.BitsPerPixel = 32; 531 fmt.BitsPerPixel = 32;
311 fmt.BytesPerPixel = 4; 532 fmt.BytesPerPixel = 4;
533#if SDL_BYTEORDER == SDL_LIL_ENDIAN
312 fmt.Rmask = 0x000000ff; 534 fmt.Rmask = 0x000000ff;
313 fmt.Gmask = 0x0000ff00; 535 fmt.Gmask = 0x0000ff00;
314 fmt.Bmask = 0x00ff0000; 536 fmt.Bmask = 0x00ff0000;
315 fmt.Amask = 0xff000000; 537 fmt.Amask = 0xff000000;
538#else
539 fmt.Rmask = 0xff000000;
540 fmt.Gmask = 0x00ff0000;
541 fmt.Bmask = 0x0000ff00;
542 fmt.Amask = 0x000000ff;
543#endif
316 fmt.Rloss = 0; 544 fmt.Rloss = 0;
317 fmt.Gloss = 0; 545 fmt.Gloss = 0;
318 fmt.Bloss = 0; 546 fmt.Bloss = 0;
319 fmt.Aloss = 0; 547 fmt.Aloss = 0;
320 fmt.Rshift = 0; 548 fmt.Rshift = 0;
… …
334 SDL_LockSurface (surface2); 562 SDL_LockSurface (surface2);
335 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch))); 563 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
336 SDL_UnlockSurface (surface2); 564 SDL_UnlockSurface (surface2);
337 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB))); 565 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
338 PUSHs (sv_2mortal (newSViv (GL_RGBA))); 566 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
339 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV))); 567 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
340 568
341 SDL_FreeSurface (surface); 569 SDL_FreeSurface (surface);
342 SDL_FreeSurface (surface2); 570 SDL_FreeSurface (surface2);
343} 571}
344 572
… …
368} 596}
369 597
370void 598void
371fatal (char *message) 599fatal (char *message)
372 CODE: 600 CODE:
373#ifdef WIN32 601#ifdef _WIN32
374 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 602 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
375#else 603#else
376 fprintf (stderr, "FATAL: %s\n", message); 604 fprintf (stderr, "FATAL: %s\n", message);
377#endif 605#endif
378 exit (1); 606 exit (1);
… …
984 } 1212 }
985 } 1213 }
986 } 1214 }
987} 1215}
988 1216
1217MODULE = CFClient PACKAGE = CFClient::MixChunk
1218
1219CFClient::MixChunk
1220new_from_file (SV *class, char *path)
1221 CODE:
1222 RETVAL = Mix_LoadWAV (path);
1223 OUTPUT:
1224 RETVAL
1225
1226void
1227DESTROY (CFClient::MixChunk self)
1228 CODE:
1229 Mix_FreeChunk (self);
1230
1231int
1232volume (CFClient::MixChunk self, int volume = -1)
1233 CODE:
1234 RETVAL = Mix_VolumeChunk (self, volume);
1235 OUTPUT:
1236 RETVAL
1237
1238int
1239play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
1240 CODE:
1241 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
1242 OUTPUT:
1243 RETVAL
1244
1245MODULE = CFClient PACKAGE = CFClient::MixMusic
1246
1247int
1248volume (int volume = -1)
1249 CODE:
1250 RETVAL = Mix_VolumeMusic (volume);
1251 OUTPUT:
1252 RETVAL
1253
1254CFClient::MixMusic
1255new_from_file (SV *class, char *path)
1256 CODE:
1257 RETVAL = Mix_LoadMUS (path);
1258 OUTPUT:
1259 RETVAL
1260
1261void
1262DESTROY (CFClient::MixMusic self)
1263 CODE:
1264 Mix_FreeMusic (self);
1265
1266int
1267play (CFClient::MixMusic self, int loops = -1)
1268 CODE:
1269 RETVAL = Mix_PlayMusic (self, loops);
1270 OUTPUT:
1271 RETVAL
1272

Diff Legend

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