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.49 by root, Tue Apr 18 01:36:12 2006 UTC vs.
Revision 1.54 by root, Wed Apr 19 23:37:48 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
375} 599}
376 600
377void 601void
378fatal (char *message) 602fatal (char *message)
379 CODE: 603 CODE:
380#ifdef WIN32 604#ifdef _WIN32
381 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 605 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
382#else 606#else
383 fprintf (stderr, "FATAL: %s\n", message); 607 fprintf (stderr, "FATAL: %s\n", message);
384#endif 608#endif
385 exit (1); 609 exit (1);
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_PERSPECTIVE_CORRECTION_HINT),
1325 const_iv (GL_FASTEST),
1326# undef const_iv
1327 };
1328
1329 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1330 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1331}
1332
1333int glGetError ()
1334
1335void glClear (int mask)
1336
1337void glClearColor (float r, float g, float b, float a = 1.0)
1338 PROTOTYPE: @
1339
1340void glEnable (int cap)
1341
1342void glDisable (int cap)
1343
1344void glShadeModel (int mode)
1345
1346void glHint (int target, int mode)
1347
1348void glBlendFunc (int sfactor, int dfactor)
1349
1350void glLogicOp (int opcode)
1351
1352void glMatrixMode (int mode)
1353
1354void glPushMatrix ()
1355
1356void glPopMatrix ()
1357
1358void glLoadIdentity ()
1359
1360void glOrtho (double left, double right, double bottom, double top, double near, double far)
1361
1362void glViewport (int x, int y, int width, int height)
1363
1364void glTranslate (float x, float y, float z = 0.)
1365 CODE:
1366 glTranslatef (x, y, z);
1367
1368void glScale (float x, float y, float z)
1369 CODE:
1370 glScalef (x, y, z);
1371
1372void glRotate (float angle, float x, float y, float z)
1373 CODE:
1374 glRotatef (angle, x, y, z);
1375
1376void glBegin (int mode)
1377
1378void glEnd ()
1379
1380void glColor (float r, float g, float b, float a = 1.0)
1381 PROTOTYPE: @
1382 CODE:
1383 glColor4f (r, g, b, a);
1384
1385void glVertex (float x, float y, float z = 0.)
1386 CODE:
1387 glVertex3f (x, y, z);
1388
1389void glTexCoord (float s, float t)
1390 CODE:
1391 glTexCoord2f (s, t);
1392
1393void glTexEnv (int target, int pname, float param)
1394 CODE:
1395 glTexEnvf (target, pname, param);
1396
1397void glTexParameter (int target, int pname, float param)
1398 CODE:
1399 glTexParameterf (target, pname, param);
1400
1401void glBindTexture (int target, int name)
1402
1403void glConvolutionParameter (int target, int pname, float params)
1404 CODE:
1405 glConvolutionParameterf (target, pname, params);
1406
1407void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data)
1408
1409void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
1410
1411void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1412
1413int glGenTexture ()
1414 CODE:
1415{
1416 GLuint name;
1417 glGenTextures (1, &name);
1418 RETVAL = name;
1419}
1420 OUTPUT:
1421 RETVAL
1422
1423void glDeleteTexture (int name)
1424 CODE:
1425{
1426 GLuint name_ = name;
1427 glDeleteTextures (1, &name_);
1428}
1429
1430int glGenList ()
1431 CODE:
1432 RETVAL = glGenLists (1);
1433 OUTPUT:
1434 RETVAL
1435
1436void glDeleteList (int list)
1437 CODE:
1438 glDeleteLists (list, 1);
1439
1440void glNewList (int list, int mode = GL_COMPILE)
1441
1442void glEndList ()
1443
1444void glCallList (int list)
1445

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines