From 816f9ce8a05dff46bf226f730dc6132bdbce92d2 Mon Sep 17 00:00:00 2001
From: Damjan Adamic <projectkk2glider@gmail.com>
Date: Sun, 29 Jun 2014 13:54:50 +0200
Subject: [PATCH] Fixes #1388 -New Lua functions: model.getInfo() and
 model.setInfo()

---
 radio/src/lua.cpp | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/radio/src/lua.cpp b/radio/src/lua.cpp
index c2d675030..f578640a8 100644
--- a/radio/src/lua.cpp
+++ b/radio/src/lua.cpp
@@ -407,6 +407,34 @@ static int luaLcdDrawCombobox(lua_State *L)
   return 0;
 }
 
+static int luaModelGetInfo(lua_State *L)
+{
+  lua_newtable(L);
+  lua_pushtablezstring(L, "name", g_model.header.name);
+  lua_pushtablenumber(L, "id", g_model.header.modelId);
+  return 1;
+}
+
+static int luaModelSetInfo(lua_State *L)
+{
+  luaL_checktype(L, -1, LUA_TTABLE);
+  for (lua_pushnil(L); lua_next(L, -2); lua_pop(L, 1)) {
+    luaL_checktype(L, -2, LUA_TSTRING); // key is string
+    const char * key = luaL_checkstring(L, -2);
+    if (!strcmp(key, "name")) {
+      const char * name = luaL_checkstring(L, -1);
+      str2zchar(g_model.header.name, name, sizeof(g_model.header.name));
+      memcpy(modelHeaders[g_eeGeneral.currModel].name, g_model.header.name, sizeof(g_model.header.name));
+    }
+    else if (!strcmp(key, "id")) {
+      g_model.header.modelId = luaL_checkinteger(L, -1);
+      modelHeaders[g_eeGeneral.currModel].modelId = g_model.header.modelId;
+    }
+  }
+  eeDirty(EE_MODEL);
+  return 0;
+}
+
 static int luaModelGetTimer(lua_State *L)
 {
   int idx = luaL_checkunsigned(L, 1);
@@ -1032,6 +1060,8 @@ int luaGetOutputs(ScriptInputsOutputs & sid)
 }
 
 static const luaL_Reg modelLib[] = {
+  { "getInfo", luaModelGetInfo },
+  { "setInfo", luaModelSetInfo },
   { "getTimer", luaModelGetTimer },
   { "setTimer", luaModelSetTimer },
   { "getInputsCount", luaModelGetInputsCount },