/src/Core/objects/Color.xs
http://github.com/PerlGameDev/SDL · Unknown · 73 lines · 61 code · 12 blank · 0 comment · 0 complexity · 46829ceeb8af5e7cf3e37d73bcfa8647 MD5 · raw file
- #include "EXTERN.h"
- #include "perl.h"
- #include "XSUB.h"
- #include "ppport.h"
- #include "helper.h"
- #ifndef aTHX_
- #define aTHX_
- #endif
- #include <SDL.h>
- MODULE = SDL::Color PACKAGE = SDL::Color PREFIX = color_
- =for documentation
- SDL_Color -- Format independent color description
- typedef struct{
- Uint8 r;
- Uint8 g;
- Uint8 b;
- Uint8 unused;
- } SDL_Color;
- =cut
- SDL_Color *
- color_new (CLASS, r, g, b )
- char* CLASS
- Uint8 r
- Uint8 g
- Uint8 b
- CODE:
- RETVAL = (SDL_Color *) safemalloc(sizeof(SDL_Color));
- RETVAL->r = r;
- RETVAL->g = g;
- RETVAL->b = b;
- OUTPUT:
- RETVAL
- Uint8
- color_r ( color, ... )
- SDL_Color *color
- CODE:
- if (items > 1 ) color->r = SvIV(ST(1));
- RETVAL = color->r;
- OUTPUT:
- RETVAL
- Uint8
- color_g ( color, ... )
- SDL_Color *color
- CODE:
- if (items > 1 ) color->g = SvIV(ST(1));
- RETVAL = color->g;
- OUTPUT:
- RETVAL
- Uint8
- color_b ( color, ... )
- SDL_Color *color
- CODE:
- if (items > 1 ) color->b = SvIV(ST(1));
- RETVAL = color->b;
- OUTPUT:
- RETVAL
- void
- color_DESTROY ( bag )
- SV *bag
- CODE:
- objDESTROY(bag, safefree);