nlua_font.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <lauxlib.h>
 
#include "nlua_font.h"
 
#include "ndata.h"
#include "nluadef.h"
 
/* Font metatable methods. */
static int fontL_gc( lua_State *L );
static int fontL_eq( lua_State *L );
static int fontL_new( lua_State *L );
static int fontL_height( lua_State *L );
static int fontL_width( lua_State *L );
static int fontL_setFilter( lua_State *L );
static int fontL_addFallback( lua_State *L );
 
static const luaL_Reg fontL_methods[] = {
   { "__gc", fontL_gc },
   { "__eq", fontL_eq },
   { "new", fontL_new },
   { "height", fontL_height },
   { "width", fontL_width },
   { "setFilter", fontL_setFilter },
   { "addFallback", fontL_addFallback },
   { 0, 0 } }; 

int nlua_loadFont( nlua_env env )
{
   nlua_register( env, FONT_METATABLE, fontL_methods, 1 );
   return 0;
}

glFont *lua_tofont( lua_State *L, int ind )
{
   return (glFont *)lua_touserdata( L, ind );
}

glFont *luaL_checkfont( lua_State *L, int ind )
{
   if ( lua_isfont( L, ind ) )
      return lua_tofont( L, ind );
   luaL_typerror( L, ind, FONT_METATABLE );
   return NULL;
}

glFont *lua_pushfont( lua_State *L, glFont font )
{
   glFont *c = (glFont *)lua_newuserdata( L, sizeof( glFont ) );
   *c        = font;
   luaL_getmetatable( L, FONT_METATABLE );
   lua_setmetatable( L, -2 );
   return c;
}

int lua_isfont( lua_State *L, int ind )
{
   int ret;
 
   if ( lua_getmetatable( L, ind ) == 0 )
      return 0;
   lua_getfield( L, LUA_REGISTRYINDEX, FONT_METATABLE );
 
   ret = 0;
   if ( lua_rawequal( L, -1, -2 ) ) /* does it have the correct mt? */
      ret = 1;
 
   lua_pop( L, 2 ); /* remove both metatables */
   return ret;
}

static int fontL_gc( lua_State *L )
{
   gl_freeFont( luaL_checkfont( L, 1 ) );
   return 0;
}

static int fontL_eq( lua_State *L )
{
   glFont *f1, *f2;
   f1 = luaL_checkfont( L, 1 );
   f2 = luaL_checkfont( L, 2 );
   lua_pushboolean( L, ( memcmp( f1, f2, sizeof( glFont ) ) == 0 ) );
   return 1;
}

static int fontL_new( lua_State *L )
{
   glFont      font;
   int         h;
   const char *fname, *prefix;
 
   if ( lua_gettop( L ) == 1 ) {
      fname = NULL;
      h     = luaL_checkint( L, 1 );
   } else {
      fname = luaL_optstring( L, 1, NULL );
      h     = luaL_checkint( L, 2 );
   }
 
   if ( fname == NULL ) {
      fname  = _( FONT_DEFAULT_PATH );
      prefix = FONT_PATH_PREFIX;
   } else
      prefix = "";
 
   if ( gl_fontInit( &font, fname, h, prefix, FONT_FLAG_DONTREUSE ) )
      return NLUA_ERROR( L, _( "failed to load font '%s'" ), fname );
 
   lua_pushfont( L, font );
   lua_pushstring( L, fname );
   lua_pushstring( L, prefix );
   return 3;
}

static int fontL_height( lua_State *L )
{
   glFont *font = luaL_checkfont( L, 1 );
   lua_pushnumber( L, font->h );
   return 1;
}

static int fontL_width( lua_State *L )
{
   const glFont *font  = luaL_checkfont( L, 1 );
   const char   *text  = luaL_checkstring( L, 2 );
   int           width = gl_printWidthRaw( font, text );
   lua_pushinteger( L, width );
   return 1;
}

static int fontL_setFilter( lua_State *L )
{
   const glFont *font = luaL_checkfont( L, 1 );
   const char   *smin = luaL_checkstring( L, 2 );
   const char   *smag = luaL_optstring( L, 3, smin );
   GLint         min, mag;
 
   min = gl_stringToFilter( smin );
   mag = gl_stringToFilter( smag );
 
   if ( min == 0 || mag == 0 )
      NLUA_INVALID_PARAMETER( L, 2 );
 
   gl_fontSetFilter( font, min, mag );
 
   return 0;
}

static int fontL_addFallback( lua_State *L )
{
   glFont     *font   = luaL_checkfont( L, 1 );
   const char *s      = luaL_checkstring( L, 2 );
   const char *prefix = luaL_optstring( L, 3, "" );
   int         ret    = gl_fontAddFallback( font, s, prefix );
   lua_pushboolean( L, !ret );
   return 1;
}