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.318 by root, Wed Dec 24 06:12:21 2014 UTC vs.
Revision 1.319 by root, Sun Nov 18 00:52:22 2018 UTC

… …
184{ 184{
185 GSList *attrs = run->item->analysis.extra_attrs; 185 GSList *attrs = run->item->analysis.extra_attrs;
186 186
187 while (attrs) 187 while (attrs)
188 { 188 {
189 PangoAttribute *attr = attrs->data; 189 PangoAttribute *attr = (PangoAttribute *)attrs->data;
190 190
191 if (attr->klass->type == PANGO_ATTR_SHAPE) 191 if (attr->klass->type == PANGO_ATTR_SHAPE)
192 return 1; 192 return 1;
193 193
194 attrs = attrs->next; 194 attrs = attrs->next;
… …
889void SDL_QuitSubSystem (U32 flags) 889void SDL_QuitSubSystem (U32 flags)
890 890
891void SDL_Quit () 891void SDL_Quit ()
892 892
893int SDL_GL_SetAttribute (int attr, int value) 893int SDL_GL_SetAttribute (int attr, int value)
894 C_ARGS: (SDL_GLattr)attr, value
894 895
895int SDL_GL_GetAttribute (int attr) 896int SDL_GL_GetAttribute (int attr)
896 CODE: 897 CODE:
897 if (SDL_GL_GetAttribute (attr, &RETVAL)) 898 if (SDL_GL_GetAttribute ((SDL_GLattr)attr, &RETVAL))
898 XSRETURN_UNDEF; 899 XSRETURN_UNDEF;
899 OUTPUT: 900 OUTPUT:
900 RETVAL 901 RETVAL
901 902
902void 903void
… …
975void 976void
976SDL_GL_SwapBuffers () 977SDL_GL_SwapBuffers ()
977 978
978char * 979char *
979SDL_GetKeyName (int sym) 980SDL_GetKeyName (int sym)
981 C_ARGS: (SDLKey)sym
980 982
981int 983int
982SDL_GetAppState () 984SDL_GetAppState ()
983 985
984int 986int
… …
1212 1214
1213 SDL_LockSurface (surface2); 1215 SDL_LockSurface (surface2);
1214 EXTEND (SP, 6); 1216 EXTEND (SP, 6);
1215 PUSHs (sv_2mortal (newSViv (surface2->w))); 1217 PUSHs (sv_2mortal (newSViv (surface2->w)));
1216 PUSHs (sv_2mortal (newSViv (surface2->h))); 1218 PUSHs (sv_2mortal (newSViv (surface2->h)));
1217 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch))); 1219 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))); 1220 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
1219 PUSHs (sv_2mortal (newSViv (GL_RGBA))); 1221 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
1220 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE))); 1222 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
1221 SDL_UnlockSurface (surface2); 1223 SDL_UnlockSurface (surface2);
1222 1224
… …
1294MODULE = Deliantra::Client PACKAGE = DC::Font 1296MODULE = Deliantra::Client PACKAGE = DC::Font
1295 1297
1296PROTOTYPES: DISABLE 1298PROTOTYPES: DISABLE
1297 1299
1298DC::Font 1300DC::Font
1299new_from_file (SV *class, char *path, int id = 0) 1301new_from_file (SV *klass, char *path, int id = 0)
1300 CODE: 1302 CODE:
1301{ 1303{
1302 int count; 1304 int count;
1303 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 1305 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
1304 RETVAL = pango_fc_font_description_from_pattern (pattern, 0); 1306 RETVAL = pango_fc_font_description_from_pattern (pattern, 0);
… …
1333 PROTOTYPE: 1335 PROTOTYPE:
1334 CODE: 1336 CODE:
1335 tc_restore (); 1337 tc_restore ();
1336 1338
1337DC::Layout 1339DC::Layout
1338new (SV *class) 1340new (SV *klass)
1339 CODE: 1341 CODE:
1340 New (0, RETVAL, 1, struct cf_layout); 1342 New (0, RETVAL, 1, struct cf_layout);
1341 1343
1342 RETVAL->pl = pango_layout_new (opengl_context); 1344 RETVAL->pl = pango_layout_new (opengl_context);
1343 RETVAL->r = 1.; 1345 RETVAL->r = 1.;
… …
1866MODULE = Deliantra::Client PACKAGE = DC::Map 1868MODULE = Deliantra::Client PACKAGE = DC::Map
1867 1869
1868PROTOTYPES: DISABLE 1870PROTOTYPES: DISABLE
1869 1871
1870DC::Map 1872DC::Map
1871new (SV *class) 1873new (SV *klass)
1872 CODE: 1874 CODE:
1873 New (0, RETVAL, 1, struct map); 1875 New (0, RETVAL, 1, struct map);
1874 RETVAL->x = 0; 1876 RETVAL->x = 0;
1875 RETVAL->y = 0; 1877 RETVAL->y = 0;
1876 RETVAL->w = 0; 1878 RETVAL->w = 0;
… …
2742 STRLEN len; 2744 STRLEN len;
2743 uint8_t *data, *end; 2745 uint8_t *data, *end;
2744 2746
2745 len = SvLEN (data_sv); 2747 len = SvLEN (data_sv);
2746 SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more 2748 SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more
2747 data = SvPVbyte_nolen (data_sv); 2749 data = (uint8_t *)SvPVbyte_nolen (data_sv);
2748 end = data + len + 8; 2750 end = data + len + 8;
2749 2751
2750 if (len < 5) 2752 if (len < 5)
2751 XSRETURN_EMPTY; 2753 XSRETURN_EMPTY;
2752 2754
… …
2813} 2815}
2814 2816
2815MODULE = Deliantra::Client PACKAGE = DC::RW 2817MODULE = Deliantra::Client PACKAGE = DC::RW
2816 2818
2817DC::RW 2819DC::RW
2818new (SV *class, SV *data_sv) 2820new (SV *klass, SV *data_sv)
2819 CODE: 2821 CODE:
2820{ 2822{
2821 STRLEN datalen; 2823 STRLEN datalen;
2822 char *data = SvPVbyte (data_sv, datalen); 2824 char *data = SvPVbyte (data_sv, datalen);
2823 2825
… …
2825} 2827}
2826 OUTPUT: 2828 OUTPUT:
2827 RETVAL 2829 RETVAL
2828 2830
2829DC::RW 2831DC::RW
2830new_from_file (SV *class, const char *path, const char *mode = "rb") 2832new_from_file (SV *klass, const char *path, const char *mode = "rb")
2831 CODE: 2833 CODE:
2832 RETVAL = SDL_RWFromFile (path, mode); 2834 RETVAL = SDL_RWFromFile (path, mode);
2833 OUTPUT: 2835 OUTPUT:
2834 RETVAL 2836 RETVAL
2835 2837
… …
2944#else 2946#else
2945 XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0))); 2947 XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));
2946#endif 2948#endif
2947 2949
2948DC::MixChunk 2950DC::MixChunk
2949new (SV *class, DC::RW rwops) 2951new (SV *klass, DC::RW rwops)
2950 CODE: 2952 CODE:
2951 RETVAL = Mix_LoadWAV_RW (rwops, 1); 2953 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2952 OUTPUT: 2954 OUTPUT:
2953 RETVAL 2955 RETVAL
2954 2956
… …
3024 RETVAL = Mix_PlayingMusic (); 3026 RETVAL = Mix_PlayingMusic ();
3025 OUTPUT: 3027 OUTPUT:
3026 RETVAL 3028 RETVAL
3027 3029
3028DC::MixMusic 3030DC::MixMusic
3029new (SV *class, DC::RW rwops) 3031new (SV *klass, DC::RW rwops)
3030 CODE: 3032 CODE:
3031 RETVAL = Mix_LoadMUS_RW (rwops); 3033 RETVAL = Mix_LoadMUS_RW (rwops);
3032 OUTPUT: 3034 OUTPUT:
3033 RETVAL 3035 RETVAL
3034 3036
… …
3187 gl.BlendFuncSeparateEXT = 0; 3189 gl.BlendFuncSeparateEXT = 0;
3188 3190
3189void 3191void
3190apple_nvidia_bug (int enable) 3192apple_nvidia_bug (int enable)
3191 3193
3192char * 3194const char *
3193gl_vendor () 3195gl_vendor ()
3194 CODE: 3196 CODE:
3195 RETVAL = (char *)glGetString (GL_VENDOR); 3197 RETVAL = (const char *)glGetString (GL_VENDOR);
3196 OUTPUT: 3198 OUTPUT:
3197 RETVAL 3199 RETVAL
3198 3200
3199char * 3201const char *
3200gl_version () 3202gl_version ()
3201 CODE: 3203 CODE:
3202 RETVAL = (char *)glGetString (GL_VERSION); 3204 RETVAL = (const char *)glGetString (GL_VERSION);
3203 OUTPUT: 3205 OUTPUT:
3204 RETVAL 3206 RETVAL
3205 3207
3206char * 3208const char *
3207gl_extensions () 3209gl_extensions ()
3208 CODE: 3210 CODE:
3209 RETVAL = (char *)glGetString (GL_EXTENSIONS); 3211 RETVAL = (const char *)glGetString (GL_EXTENSIONS);
3210 OUTPUT: 3212 OUTPUT:
3211 RETVAL 3213 RETVAL
3212 3214
3213const char *glGetString (GLenum pname) 3215const char *glGetString (GLenum pname)
3216 CODE:
3217 RETVAL = (const char *)glGetString (pname);
3218 OUTPUT:
3219 RETVAL
3214 3220
3215GLint glGetInteger (GLenum pname) 3221GLint glGetInteger (GLenum pname)
3216 CODE: 3222 CODE:
3217 glGetIntegerv (pname, &RETVAL); 3223 glGetIntegerv (pname, &RETVAL);
3218 OUTPUT: 3224 OUTPUT:

Diff Legend

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