#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#include "helper.h"
#ifndef aTHX_
#define aTHX_
#endif
#include <SDL.h>
#ifdef HAVE_SDL_TTF
#include <SDL_ttf.h>
void _free_font(void *object)
{
    TTF_CloseFont((TTF_Font *)object);
}
#endif
MODULE = SDL::TTF::Font         PACKAGE = SDL::TTF::Font    PREFIX = ttf_font_
=for documentation
SDL_TTF_Font - The opaque holder of a loaded font
=cut
#ifdef HAVE_SDL_TTF
TTF_Font *
ttf_font_new(CLASS, file, ptsize, index = 0)
        char* CLASS
        char *file
        int ptsize
        long index
        CODE:
                RETVAL = TTF_OpenFontIndex(file, ptsize, index);
        OUTPUT:
                RETVAL
void
ttf_font_DESTROY(bag)
        SV *bag
        CODE:
                objDESTROY(bag, _free_font);
#endif