1 files changed, 762 insertions, 0 deletions
diff --git a/iup/srclua3/iuplua_api.c b/iup/srclua3/iuplua_api.c
new file mode 100755
index 0000000..3221658
--- /dev/null
+++ b/iup/srclua3/iuplua_api.c
@@ -0,0 +1,762 @@
+/** \file
+ * \brief Iup API in Lua
+ *
+ * See Copyright Notice in "iup.h"
+ */
+ 
+#include <string.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <lua.h>
+#include <lauxlib.h>
+
+#include "iup.h"
+#include "iupkey.h"
+
+#include "iuplua.h"
+#include "il.h"
+
+#include "iup_attrib.h"
+#include "iup_globalattrib.h"
+
+
+static void SaveImageAsText(void)
+{
+  Ihandle *ih = iuplua_checkihandle(1);
+  const char *file_name = luaL_check_string(2);
+  const char *format = luaL_check_string(3);
+  const char *name = luaL_opt_string(4, NULL);
+  lua_pushnumber(IupSaveImageAsText(ih, file_name, format, name));
+}
+
+static void Reparent(void)
+{
+  lua_pushnumber(IupReparent(iuplua_checkihandle(1),
+                             iuplua_checkihandle(2)));
+}
+
+static void PreviousField(void)
+{
+  iuplua_pushihandle(IupPreviousField(iuplua_checkihandle(1)));
+}
+
+static void NextField(void)
+{
+  iuplua_pushihandle(IupNextField(iuplua_checkihandle(1)));
+}
+
+static void cf_isprint(void)
+{
+  int cod = luaL_check_int(1);
+  lua_pushnumber(iup_isprint(cod));
+}
+
+static void codekey(void)
+{
+  int cod = luaL_check_int(1);
+  lua_pushnumber(IUPxCODE(cod));
+}
+
+static void cf_isxkey(void)
+{
+  int cod = luaL_check_int(1);
+  lua_pushnumber(iup_isXkey(cod));
+}
+
+static void cf_isShiftXkey(void)
+{
+  int cod = luaL_check_int(1);
+  lua_pushnumber(iup_isShiftXkey(cod));
+}
+
+static void cf_isCtrlXkey(void)
+{
+  int cod = luaL_check_int(1);
+  lua_pushnumber(iup_isCtrlXkey(cod));
+}
+
+static void cf_isAltXkey(void)
+{
+  int cod = luaL_check_int(1);
+  lua_pushnumber(iup_isAltXkey(cod));
+}
+
+static void cf_isSysXkey(void)
+{
+  int cod = luaL_check_int(1);
+  lua_pushnumber(iup_isSysXkey(cod));
+}
+
+static void cf_isbutton1(void)
+{
+  if(iup_isbutton1(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_isbutton2(void)
+{
+  if(iup_isbutton2(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_isbutton3(void)
+{
+  if(iup_isbutton3(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_isshift(void)
+{
+  if(iup_isshift(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_isdouble(void)
+{
+  if(iup_isdouble(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_isalt(void)
+{
+  if(iup_isalt(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_isbutton4(void)
+{
+  if(iup_isbutton4(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_isbutton5(void)
+{
+  if(iup_isbutton5(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_issys(void)
+{
+  if(iup_issys(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void cf_iscontrol(void)
+{
+  if(iup_iscontrol(luaL_check_string(1)))
+    lua_pushnumber(1);
+  else
+    lua_pushnil();
+}
+
+static void GetAttributeData(void)
+{
+  char *value = IupGetAttribute(iuplua_checkihandle(1), luaL_check_string(2));
+  if (value)
+    lua_pushuserdata((void*)value);
+  else
+    lua_pushnil();
+}
+
+static void GetAttribute(void)
+{
+  char *name = luaL_check_string(2);
+  Ihandle* ih = iuplua_checkihandle(1);
+  char *value = IupGetAttribute(ih, name);
+  if (!value || iupAttribIsInternal(name))
+    lua_pushnil();
+  else
+  {
+    if (iupAttribIsPointer(ih, name))
+      lua_pushuserdata((void*)value);
+    else
+      lua_pushstring(value);
+  }
+}
+
+static void GetDialog(void)
+{
+  iuplua_pushihandle(IupGetDialog(iuplua_checkihandle(1)));
+}
+
+static void GetHandle(void)
+{
+  iuplua_pushihandle(IupGetHandle(luaL_check_string(1)));
+}
+
+static void SetAttribute(void)
+{
+  if (lua_isnil(lua_getparam(3)))
+    IupSetAttribute(iuplua_checkihandle(1), luaL_check_string(2), NULL);
+  else
+    IupStoreAttribute(iuplua_checkihandle(1), luaL_check_string(2), luaL_check_string(3));
+}
+
+static void SetHandle(void)
+{
+  if (lua_isnil(lua_getparam(2)))
+    IupSetHandle(luaL_check_string(1), NULL);
+  else
+    IupSetHandle(luaL_check_string(1), iuplua_checkihandle(2));
+}
+
+static void Destroy(void)
+{
+  IupDestroy(iuplua_checkihandle(1));
+}
+
+static void Detach(void)
+{
+  IupDetach(iuplua_checkihandle(1));
+}
+
+static void Map(void)
+{
+  lua_pushnumber(IupMap(iuplua_checkihandle(1)));
+}
+
+static void Unmap(void)
+{
+  IupUnmap(iuplua_checkihandle(1));
+}
+
+static void Show(void)
+{
+  lua_pushnumber(IupShow(iuplua_checkihandle(1)));
+}
+
+static void GetChildCount(void)
+{
+  lua_pushnumber(IupGetChildCount(iuplua_checkihandle(1)));
+}
+
+static void Refresh(void)
+{
+  IupRefresh(iuplua_checkihandle(1));
+}
+
+static void Update(void)
+{
+  IupUpdate(iuplua_checkihandle(1));
+}
+
+static void UpdateChildren(void)
+{
+  IupUpdateChildren(iuplua_checkihandle(1));
+}
+
+static void Redraw(void)
+{
+  IupRedraw(iuplua_checkihandle(1), luaL_check_int(2));
+}
+
+static void VersionNumber(void)
+{
+  lua_pushnumber(IupVersionNumber());
+}
+
+static void ShowXY(void)
+{
+  lua_pushnumber(IupShowXY(iuplua_checkihandle(1), 
+                           luaL_opt_int(2, IUP_CURRENT), luaL_opt_int(3, IUP_CURRENT)));
+}
+
+static void Hide(void)
+{
+  lua_pushnumber(IupHide(iuplua_checkihandle(1)));
+}
+
+static void Popup(void)
+{
+  lua_pushnumber(IupPopup(iuplua_checkihandle(1),
+                          luaL_opt_int(2, IUP_CURRENT), luaL_opt_int(3, IUP_CURRENT)));
+}
+
+static void Insert(void)
+{
+  if (lua_isnil(lua_getparam(2)))
+    iuplua_pushihandle(IupInsert(iuplua_checkihandle(1), NULL, iuplua_checkihandle(3)));
+  else
+    iuplua_pushihandle(IupInsert(iuplua_checkihandle(1), iuplua_checkihandle(2), iuplua_checkihandle(3)));
+}
+
+static void Append(void)
+{
+  iuplua_pushihandle(IupAppend(iuplua_checkihandle(1), iuplua_checkihandle(2)));
+}
+
+static void GetNextChild(void)
+{
+  if (lua_isnil(lua_getparam(2)))
+    iuplua_pushihandle(IupGetNextChild(iuplua_checkihandle(1), NULL));
+  else
+    iuplua_pushihandle(IupGetNextChild(iuplua_checkihandle(1), iuplua_checkihandle(2)));
+}
+
+static void ConvertXYToPos(void)
+{
+  lua_pushnumber(IupConvertXYToPos(iuplua_checkihandle(1), luaL_check_int(2), luaL_check_int(3)));
+}
+
+static void TextConvertLinColToPos(void)
+{
+  int pos;
+  IupTextConvertLinColToPos(iuplua_checkihandle(1), luaL_check_int(2), luaL_check_int(3), &pos);
+  lua_pushnumber(pos);
+}
+
+static void TextConvertPosToLinCol(void)
+{
+  int lin, col;
+  IupTextConvertPosToLinCol(iuplua_checkihandle(1), luaL_check_int(2), &lin, &col);
+  lua_pushnumber(lin);
+  lua_pushnumber(col);
+}
+
+static void GetChildPos(void)
+{
+  lua_pushnumber(IupGetChildPos(iuplua_checkihandle(1), iuplua_checkihandle(2)));
+}
+
+static void GetDialogChild(void)
+{
+  iuplua_pushihandle(IupGetDialogChild(iuplua_checkihandle(1), luaL_check_string(2)));
+}
+
+static void GetBrother(void)
+{
+  iuplua_pushihandle(IupGetBrother(iuplua_checkihandle(1)));
+}
+
+static void ClassName(void)
+{
+  lua_pushstring(IupGetClassName(iuplua_checkihandle(1)));
+}
+
+static void ClassType(void)
+{
+  lua_pushstring(IupGetClassType(iuplua_checkihandle(1)));
+}
+
+static void GetFocus(void)
+{
+  iuplua_pushihandle(IupGetFocus());
+}
+
+static void SetFocus(void)
+{
+  IupSetFocus(iuplua_checkihandle(1));
+}
+
+static void GetName(void)
+{
+  char* s = IupGetName(iuplua_checkihandle(1));
+  lua_pushstring(s);
+}
+
+static void Alarm(void)
+{
+  lua_pushnumber(IupAlarm(luaL_check_string(1), 
+                          luaL_check_string(2),
+                          luaL_check_string(3), 
+                          luaL_opt_string(4, NULL),
+                          luaL_opt_string(5, NULL)));
+}
+
+static void GetFile(void)
+{
+  char buffer[10240];
+  int ret;
+  strcpy(buffer, luaL_check_string(1));
+  ret = IupGetFile(buffer);
+  lua_pushstring(buffer);
+  lua_pushnumber(ret);
+}
+
+static void GetParent(void)
+{
+  Ihandle *p = IupGetParent(iuplua_checkihandle(1));
+  iuplua_pushihandle(p);
+}
+
+static void MapFont(void)
+{
+  lua_pushstring(IupMapFont(luaL_check_string(1)));
+}
+
+static void UnMapFont(void)
+{
+  lua_pushstring(IupUnMapFont(luaL_check_string(1)));
+}
+
+static void GetLanguage(void)
+{
+  lua_pushstring(IupGetLanguage());
+}
+
+static void SetLanguage(void)
+{
+  IupSetLanguage(luaL_check_string(1));
+}
+
+static void ListDialog(void)
+{
+  lua_Object list_tbl = luaL_tablearg(4);
+  lua_Object marks_tbl;
+  int i, ret;
+  char **list;
+  int *marks = NULL;
+
+  int type = luaL_check_int(1);
+  char* title = luaL_check_string(2);
+  int size = luaL_check_int(3);
+  int opt = luaL_check_int(5);
+  int max_col = luaL_check_int(6);
+  int max_lin = luaL_check_int(7);
+
+  marks_tbl = lua_getparam(8);
+  if (!lua_isnil(marks_tbl))
+  {
+    luaL_arg_check(lua_istable(marks_tbl), 8, "table expected");
+    marks = malloc(sizeof(int) * size);
+  }
+
+  if (!marks && type==2)
+    lua_error("invalid marks, must not be nil.");
+
+  list = malloc(sizeof(char *) * size);
+
+  for (i = 0; i < size; i++) 
+  {
+    lua_beginblock();
+
+    lua_pushobject(list_tbl);
+    lua_pushnumber(i + 1);
+    list[i] = lua_getstring(lua_gettable());
+
+    if (marks)
+    {
+      lua_pushobject(marks_tbl);
+      lua_pushnumber(i + 1);
+      marks[i] = (int) lua_getnumber(lua_gettable());
+    }
+
+    lua_endblock();
+  }
+
+  ret = IupListDialog(type, title, size, list, opt, max_col, max_lin, marks);
+
+  if (marks && type==2 && ret!=-1)
+  {
+    for (i = 0; i < size; i++) 
+    {
+      lua_beginblock();
+      lua_pushobject(marks_tbl);
+      lua_pushnumber(i + 1);
+      lua_pushnumber(marks[i]);
+      lua_settable();
+      lua_endblock();
+    }
+  }
+
+  lua_pushnumber(ret);
+
+  if (marks) free(marks);
+  free(list);
+}
+
+static void Message(void)
+{
+  IupMessage(luaL_check_string(1), luaL_check_string(2));
+}
+
+static void GetText(void)
+{
+  char buffer[10240];
+  strcpy(buffer, luaL_check_string(2));
+  if(IupGetText(luaL_check_string(1), buffer))
+    lua_pushstring(buffer);
+  else
+    lua_pushnil();
+}
+
+static void GetAttributes(void)
+{
+  Ihandle *ih = iuplua_checkihandle(1);
+  char *value = IupGetAttributes(ih);
+  lua_pushstring(value);
+}
+
+static void GetAllAttributes(void)
+{
+  int max_n = luaL_check_int(2);
+  char **names = (char **) malloc(max_n * sizeof(char *));
+  int i;
+  int n = IupGetAllAttributes(iuplua_checkihandle(1), names, max_n);
+
+  lua_Object tb = lua_createtable();
+  for (i = 0; i < n; i++) 
+  {
+    lua_beginblock();
+    lua_pushobject(tb);
+    lua_pushnumber(i);
+    lua_pushstring(names[i]);
+    lua_settable();
+    lua_endblock();                /* end a section and starts another */
+  }
+
+  lua_pushobject(tb);
+  lua_pushnumber(n);
+  free(names);
+}
+
+static void GetClassAttributes(void)
+{
+  int max_n = luaL_check_int(2);
+  char **names = (char **) malloc(max_n * sizeof(char *));
+  int n = IupGetClassAttributes(luaL_check_string(1), names, max_n);
+  lua_Object tb;
+  int i;
+
+  if (n == -1)
+  {
+    lua_pushnil();
+    return;
+  }
+
+  tb = lua_createtable();
+  for (i = 0; i < n; i++) 
+  {
+    lua_beginblock();
+    lua_pushobject(tb);
+    lua_pushnumber(i);
+    lua_pushstring(names[i]);
+    lua_settable();
+    lua_endblock();                /* end a section and starts another */
+  }
+
+  lua_pushobject(tb);
+  lua_pushnumber(n);
+  free(names);
+}
+
+static void GetAllNames(void)
+{
+  int max_n = luaL_check_int(1);
+  char **names = (char **) malloc(max_n * sizeof(char *));
+  int i;
+  int n = IupGetAllNames(names, max_n);
+
+  lua_Object tb = lua_createtable();
+  for (i = 0; i < n; i++) 
+  {
+    lua_beginblock();
+    lua_pushobject(tb);
+    lua_pushnumber(i);
+    lua_pushstring(names[i]);
+    lua_settable();
+    lua_endblock();                /* end a section and starts another */
+  }
+
+  lua_pushobject(tb);
+  lua_pushnumber(n);
+  free(names);
+}
+
+static void SetClassDefaultAttribute(void)
+{
+  IupSetClassDefaultAttribute(luaL_check_string(1), luaL_check_string(2), luaL_opt_string(3,NULL));
+}
+
+static void GetAllDialogs(void)
+{
+  int max_n = luaL_check_int(1);
+  char **names = (char **) malloc(max_n * sizeof(char *));
+  int i;
+  int n = IupGetAllDialogs(names, 100);
+
+  lua_Object tb = lua_createtable();
+  for (i = 0; i < n; i++) 
+  {
+    lua_beginblock();
+    lua_pushobject(tb);
+    lua_pushnumber(i);
+    lua_pushstring(names[i]);
+    lua_settable();
+    lua_endblock();                /* end a section and starts another */
+  }
+
+  lua_pushobject(tb);
+  lua_pushnumber(n);
+  free(names);
+}
+
+static void GetGlobal(void)
+{
+  const char* a = luaL_check_string(1);
+  char *v = IupGetGlobal(a);
+  if (iupGlobalIsPointer(a))
+    lua_pushuserdata((void*)v);
+  else
+    lua_pushstring(v);
+}
+
+static void SetGlobal(void)
+{
+  IupStoreGlobal(luaL_check_string(1), luaL_check_string(2));
+}
+
+static void LoopStep(void)
+{
+  lua_pushnumber(IupLoopStep());
+}
+
+static void ExitLoop(void)
+{
+  IupExitLoop();
+}
+
+static void Version(void)
+{
+  lua_pushstring(IupVersion());
+}
+
+static void MainLoop(void)
+{
+  lua_pushnumber(IupMainLoop());
+}
+
+static void MainLoopLevel(void)
+{
+  lua_pushnumber(IupMainLoopLevel());
+}
+
+static void Open(void)
+{
+  lua_pushnumber(IupOpen(NULL, NULL));
+}
+
+static void Help(void)
+{
+  IupHelp(luaL_check_string(1));
+}
+
+int iupluaapi_open(void)
+{
+  struct FuncList {
+    char *name;
+    lua_CFunction func;
+  } FuncList[] = {
+    { "IupGetAttribute", GetAttribute },
+    { "IupGetAttributeData", GetAttributeData },
+    { "IupGetHandle", GetHandle },
+    { "IupGetDialog", GetDialog },
+    { "IupSetAttribute", SetAttribute },
+    { "IupSetHandle", SetHandle },
+    { "IupDestroy", Destroy },
+    { "IupDetach", Detach },
+    { "IupMap", Map },
+    { "IupUnmap", Unmap },
+    { "IupShow", Show },
+    { "IupGetChildCount", GetChildCount },
+    { "IupRefresh", Refresh },
+    { "IupUpdate", Update },
+    { "IupUpdateChildren", UpdateChildren },
+    { "IupRedraw", Redraw },
+    { "IupVersionNumber", VersionNumber },
+    { "IupShowXY", ShowXY },
+    { "IupHide", Hide },
+    { "IupPopup", Popup },
+    { "IupAppend", Append },
+    { "IupInsert", Insert },
+    { "IupReparent", Reparent },
+    { "IupSaveImageAsText", SaveImageAsText },
+    { "IupGetNextChild", GetNextChild },
+    { "IupGetChildPos", GetChildPos },
+    { "IupGetBrother", GetBrother },
+    { "IupGetDialogChild", GetDialogChild },
+    { "IupGetClassName", ClassName },
+    { "IupGetClassType", ClassType },
+    { "IupGetFocus", GetFocus },
+    { "IupSetFocus", SetFocus },
+    { "IupGetName", GetName },
+    { "IupAlarm", Alarm },
+    { "IupGetFile", GetFile },
+    { "IupMapFont", MapFont },
+    { "IupGetParent", GetParent },
+    { "IupUnMapFont", UnMapFont },
+    { "IupSetLanguage", SetLanguage },
+    { "IupGetLanguage", GetLanguage },
+    { "IupListDialog", ListDialog },
+    { "IupMessage", Message },
+    { "IupGetText", GetText },
+    { "IupGetAttributes", GetAttributes },
+    { "IupGetAllAttributes", GetAllAttributes },
+    { "IupSetClassDefaultAttribute", SetClassDefaultAttribute},
+    { "IupGetClassAttributes", GetClassAttributes },
+    { "IupGetAllNames", GetAllNames },
+    { "IupGetAllDialogs", GetAllDialogs },
+    { "IupGetGlobal", GetGlobal },
+    { "IupSetGlobal", SetGlobal },
+    { "IupLoopStep", LoopStep },
+    { "IupExitLoop", ExitLoop },
+    { "IupMainLoop", MainLoop },
+    { "IupMainLoopLevel", MainLoopLevel },
+    { "IupOpen", Open },
+    { "IupClose", (lua_CFunction)IupClose },
+    { "IupFlush", IupFlush },
+    { "IupVersion", Version },
+    { "IupHelp", Help },
+    { "IupScanf", iupluaScanf },
+    { "IupTextConvertLinColToPos", TextConvertLinColToPos},
+    { "IupTextConvertPosToLinCol", TextConvertPosToLinCol},
+    { "IupConvertXYToPos", ConvertXYToPos},
+    { "IupPreviousField", PreviousField },
+    { "IupNextField", NextField }
+  };
+  int SizeFuncList = (sizeof(FuncList)/sizeof(struct FuncList));
+  int i;
+
+  for (i = 0; i < SizeFuncList; i++)
+    iuplua_register(FuncList[i].name, FuncList[i].func);
+
+  iuplua_register_macro("isbutton1",cf_isbutton1);
+  iuplua_register_macro("isbutton2",cf_isbutton2);
+  iuplua_register_macro("isbutton3",cf_isbutton3);
+  iuplua_register_macro("isshift",cf_isshift);
+  iuplua_register_macro("iscontrol",cf_iscontrol);
+  iuplua_register_macro("isdouble",cf_isdouble);
+  iuplua_register_macro("isalt",cf_isalt);
+  iuplua_register_macro("issys",cf_issys);
+  iuplua_register_macro("isbutton4",cf_isbutton4);
+  iuplua_register_macro("isbutton5",cf_isbutton5);
+  iuplua_register_macro("isprint",cf_isprint);
+  iuplua_register_macro("IUPxCODE", codekey);
+  iuplua_register_macro("isxkey", cf_isxkey);
+  iuplua_register_macro("isXkey", cf_isxkey);
+  iuplua_register_macro("isShiftXkey", cf_isShiftXkey);
+  iuplua_register_macro("isCtrlXkey", cf_isCtrlXkey);
+  iuplua_register_macro("isAltXkey", cf_isAltXkey);
+  iuplua_register_macro("isSysXkey", cf_isSysXkey);
+
+  return 1;
+}