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.20 by root, Wed Apr 12 02:00:06 2006 UTC vs.
Revision 1.28 by root, Thu Apr 13 00:25:28 2006 UTC

1#include "EXTERN.h" 1#include "EXTERN.h"
2#include "perl.h" 2#include "perl.h"
3#include "XSUB.h" 3#include "XSUB.h"
4 4
5#include <string.h> 5#include <string.h>
6#include <stdio.h>
6 7
7#include <SDL.h> 8#include <SDL.h>
9#include <SDL_image.h>
8#include <SDL_opengl.h> 10#include <SDL_opengl.h>
9 11
10#include <pango/pango.h> 12#include <pango/pango.h>
11#include <pango/pangofc-fontmap.h> 13#include <pango/pangofc-fontmap.h>
12#include <pango/pangoft2.h> 14#include <pango/pangoft2.h>
13 15
14#include <sys/types.h> 16#include <sys/types.h>
15#include <sys/socket.h> 17#include <sys/socket.h>
16#include <netinet/in.h> 18#include <netinet/in.h>
17#include <netinet/tcp.h> 19#include <netinet/tcp.h>
20
21#include <inttypes.h>
18 22
19static PangoContext *context; 23static PangoContext *context;
20static PangoFontMap *fontmap; 24static PangoFontMap *fontmap;
21 25
22typedef struct cf_layout { 26typedef struct cf_layout {
… …
51 *w = (*w + 3) & ~3; 55 *w = (*w + 3) & ~3;
52 if (!*w) *w = 1; 56 if (!*w) *w = 1;
53 if (!*h) *h = 1; 57 if (!*h) *h = 1;
54} 58}
55 59
60typedef struct {
61 uint16_t face[3];
62 uint8_t darkness;
63 uint8_t padding;
64} mapcell;
65
66typedef struct {
67 uint32_t cols;
68 mapcell *col;
69} maprow;
70
71typedef struct map {
72 int x, y, w, h;
73 int faces;
74 GLint *face;
75
76 uint32_t rows;
77 maprow *row;
78} *CFClient__Map;
79
56MODULE = CFClient PACKAGE = CFClient 80MODULE = CFClient PACKAGE = CFClient
57 81
58PROTOTYPES: ENABLE 82PROTOTYPES: ENABLE
59 83
60BOOT: 84BOOT:
… …
96 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count); 120 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
97 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0); 121 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
98 FcPatternDestroy (pattern); 122 FcPatternDestroy (pattern);
99 pango_context_set_font_description (context, font); 123 pango_context_set_font_description (context, font);
100} 124}
125
126void
127load_image_inline (SV *image_)
128 ALIAS:
129 load_image_file = 1
130 PPCODE:
131{
132 STRLEN image_len;
133 char *image = (char *)SvPVbyte (image_, image_len);
134 SDL_Surface *surface, *surface2;
135 SDL_PixelFormat fmt;
136 SDL_RWops *rw = ix
137 ? SDL_RWFromFile (image, "r")
138 : SDL_RWFromConstMem (image, image_len);
139
140 if (!rw)
141 croak ("load_image: unable to open file");
142
143 surface = IMG_Load_RW (rw, 1);
144 if (!surface)
145 croak ("load_image: unable to read file");
146
147 fmt.palette = NULL;
148 fmt.BitsPerPixel = 32;
149 fmt.BytesPerPixel = 4;
150 fmt.Rmask = 0x000000ff;
151 fmt.Gmask = 0x0000ff00;
152 fmt.Bmask = 0x00ff0000;
153 fmt.Amask = 0xff000000;
154 fmt.Rloss = 0;
155 fmt.Gloss = 0;
156 fmt.Bloss = 0;
157 fmt.Aloss = 0;
158 fmt.Rshift = 0;
159 fmt.Gshift = 8;
160 fmt.Bshift = 16;
161 fmt.Ashift = 24;
162 fmt.colorkey = 0;
163 fmt.alpha = 0;
164
165 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
166
167 EXTEND (SP, 5);
168 PUSHs (sv_2mortal (newSViv (surface2->w)));
169 PUSHs (sv_2mortal (newSViv (surface2->h)));
170 SDL_LockSurface (surface2);
171 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
172 SDL_UnlockSurface (surface2);
173 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
174 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
175 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
176
177 SDL_FreeSurface (surface);
178 SDL_FreeSurface (surface2);
179}
180
181void
182fatal (char *message)
183 CODE:
184#ifdef WIN32
185 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
186#else
187 fprintf (stderr, "%s\n", message);
188#endif
189 exit (1);
101 190
102MODULE = CFClient PACKAGE = CFClient::Layout 191MODULE = CFClient PACKAGE = CFClient::Layout
103 192
104CFClient::Layout 193CFClient::Layout
105new (SV *class, int base_height = 10) 194new (SV *class, int base_height = 10)
… …
234 glTexCoord2d (0, t); glVertex2d (x , y + h); 323 glTexCoord2d (0, t); glVertex2d (x , y + h);
235 glTexCoord2d (s, t); glVertex2d (x + w, y + h); 324 glTexCoord2d (s, t); glVertex2d (x + w, y + h);
236 glTexCoord2d (s, 0); glVertex2d (x + w, y ); 325 glTexCoord2d (s, 0); glVertex2d (x + w, y );
237 glEnd (); 326 glEnd ();
238} 327}
328
329MODULE = CFClient PACKAGE = CFClient::Map
330
331CFClient::Map
332new (SV *class, int map_width, int map_height)
333 CODE:
334 New (0, RETVAL, 1, struct map);
335 RETVAL->x = 0;
336 RETVAL->y = 0;
337 RETVAL->w = map_width;
338 RETVAL->h = map_height;
339 RETVAL->faces = 0;
340 RETVAL->face = 0;
341
342 RETVAL->rows = 0;
343 RETVAL->row = 0;
344 OUTPUT:
345 RETVAL
346
347void
348DESTROY (CFClient::Map self)
349 CODE:
350{
351 int r, c;
352
353 Safefree (self->face);
354 for (r = 0; r < self->rows; r++)
355 {
356 maprow *row = self->row + r;
357 if (!row)
358 continue;
359
360 Safefree (row->col);
361 }
362
363 Safefree (self->row);
364 Safefree (self);
365}
366

Diff Legend

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