Use util_clip_triangle() in pan_item_tri_new()

[geeqie.git] / src / lua.c

diff --git a/src/lua.c b/src/lua.c
deleted file mode 100644 (file)
index 469e1c6..0000000
--- a/src/lua.c
+++ /dev/null
@@ -1,131 +0,0 @@
-/** \file
- * \short LUA implementation
- * \author Klaus Ethgen <Klaus@Ethgen.de>
- */
-
-/*
- *  This file is a part of Geeqie project (http://geeqie.sourceforge.net/).
- *  Copyright (C) 2008 - 2010 The Geeqie Team
- *
- *  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 of the License, 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.
- */
-
-#include "config.h"
-
-#ifdef HAVE_LUA
-
-#include <lua.h>
-#include <lauxlib.h>
-#include <lualib.h>
-
-#include <stdio.h>
-#include <glib.h>
-
-#include "main.h"
-#include "glua.h"
-#include "ui_fileops.h"
-#include "exif.h"
-
-static lua_State *L; /** The LUA object needed for all operations (NOTE: That is
-                      * a upper-case variable to match the documentation!) */
-
-static FileData *lua_check_image(lua_State *L, int index)
-{
-       FileData **fd;
-       luaL_checktype(L, index, LUA_TUSERDATA);
-       fd = (FileData **)luaL_checkudata(L, index, "Image");
-       if (fd == NULL) luaL_typerror(L, index, "Image");
-       return *fd;
-}
-
-/* Interface for EXIF data */
-static int lua_exif_get_datum(lua_State *L)
-{
-       const gchar *key;
-       gchar *value = NULL;
-       ExifData *exif;
-       FileData *fd;
-
-       fd = lua_check_image(L, 1);
-       key = luaL_checkstring(L, 2);
-       if (key == (gchar*)NULL || key[0] == '\0')
-               {
-               lua_pushnil(L);
-               return 1;
-               }
-       exif = exif_read_fd(fd);
-       if (!exif)
-               {
-               lua_pushnil(L);
-               return 1;
-               }
-       value = exif_get_data_as_text(exif, key);
-       lua_pushstring(L, value);
-       return 1;
-}
-
-/**
- * \brief Initialize the lua interpreter.
- */
-void lua_init(void)
-{
-       L = luaL_newstate();
-       luaL_openlibs(L); /* Open all libraries for lua programms */
-
-       /* Now create custom methodes to do something */
-       static const luaL_Reg exif_methods[] = {
-                       {"get_datum", lua_exif_get_datum},
-                       {NULL, NULL}
-       };
-       luaL_register(L, "Exif", exif_methods);
-}
-
-/**
- * \brief Call a lua function to get a single value.
- */
-gchar *lua_callvalue(FileData *fd, const gchar *file, const gchar *function)
-{
-       gint result;
-       gchar *data = NULL;
-       gchar *dir;
-       gchar *path;
-       FileData **user_data;
-
-       user_data = (FileData **)lua_newuserdata(L, sizeof(FileData *));
-       luaL_newmetatable(L, "Image");
-       //luaL_getmetatable(L, "Image");
-       lua_setmetatable(L, -2);
-       lua_setglobal(L, "Image");
-       *user_data = fd;
-       if (file[0] == '\0')
-               {
-               result = luaL_dostring(L, function);
-               }
-       else
-               {
-               dir = g_build_filename(get_rc_dir(), "lua", NULL);
-               path = g_build_filename(dir, file, NULL);
-               result = luaL_dofile(L, path);
-               g_free(path);
-               g_free(dir);
-               }
-
-       if (result)
-               {
-               data = g_strdup_printf("Error running lua script: %s", lua_tostring(L, -1));
-               return data;
-               }
-       data = g_strdup(lua_tostring(L, -1));
-       return data;
-}
-
-#endif
-/* vim: set shiftwidth=8 softtabstop=0 cindent cinoptions={1s: */