api_game_specenum.c

Go to the documentation of this file.

/*****************************************************************************
 Freeciv - Copyright (C) 2010 - The Freeciv Project
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.
 
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
*****************************************************************************/
 
#ifdef HAVE_CONFIG_H
#include <fc_config.h>
#endif
 
#include <string.h>
 
/* dependencies/lua */
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
 
/* common */
#include "events.h"
 
/* utility */
#include "support.h"
 
#include "api_game_specenum.h"
 
 
#define API_SPECENUM_INDEX_NAME(type) api_specenum_##type##_index
#define API_SPECENUM_CREATE_TABLE(L, type, name)                             \
  api_specenum_create_table((L), (name), API_SPECENUM_INDEX_NAME(type))
 
/**********************************************************************/
#define API_SPECENUM_DEFINE_INDEX(type_name, prefix)                      \
  static int (API_SPECENUM_INDEX_NAME(type_name))(lua_State *L)           \
  {                                                                       \
    static char _buf[128];                                                \
    const char *_key;                                                     \
    enum type_name _value;                                                \
    luaL_checktype(L, 1, LUA_TTABLE);                                     \
    _key = luaL_checkstring(L, 2);                                        \
    fc_snprintf(_buf, sizeof(_buf), prefix "%s", _key);                   \
    _value = type_name##_by_name(_buf, strcmp);                           \
    if (_value != type_name##_invalid()) {                                \
      /* T[_key] = _value */                                              \
      lua_pushstring(L, _key);                                            \
      lua_pushinteger(L, _value);                                         \
      lua_rawset(L, 1);                                                   \
      lua_pushinteger(L, _value);                                         \
    } else {                                                              \
      lua_pushnil(L);                                                     \
    }                                                                     \
    return 1;                                                             \
  }
 
/**********************************************************************/
static void api_specenum_create_table(lua_State *L, const char *name,
                                      lua_CFunction findex)
{
  /* Insert a module table in the global environment,
   * or reuse any preexisting table */
  lua_getglobal(L, name);
  if (lua_isnil(L, -1)) {
    lua_newtable(L);
    lua_pushvalue(L, -1);
    lua_setglobal(L, name);
  }
  fc_assert_ret(lua_istable(L, -1));
  /* Create a metatable */
  lua_newtable(L);                /* stack: module mt */
  lua_pushliteral(L, "__index");
  lua_pushcfunction(L, findex);    /* stack: module mt '__index' index */
  lua_rawset(L, -3);              /* stack: module mt */
  lua_setmetatable(L, -2);        /* stack: module */
  lua_pop(L, 1);
}
 
/**********************************************************************/
API_SPECENUM_DEFINE_INDEX(event_type, "E_")
 
/**********************************************************************/
int api_specenum_open(lua_State *L)
{
  API_SPECENUM_CREATE_TABLE(L, event_type, "E");
  return 0;
}