From 3b4966ef4dbabbbc0fcb62b7b1a52ad9f327de1d Mon Sep 17 00:00:00 2001
From: deva <deva>
Date: Thu, 10 Mar 2011 15:07:26 +0000
Subject: New lua functions: template(), macro(), user() and patientid(). New
 onInit lua callback attribute.

---
 client/lua.cc | 136 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 134 insertions(+), 2 deletions(-)

(limited to 'client/lua.cc')

diff --git a/client/lua.cc b/client/lua.cc
index 2753139..320d91a 100644
--- a/client/lua.cc
+++ b/client/lua.cc
@@ -90,10 +90,118 @@ static int debug(lua_State *L)
   return 0;
 }
 
-LUA::LUA(Widget **rootwidget)
+static int get_template(lua_State *L)
 {
-  this->rootwidget = rootwidget;
+  int n = lua_gettop(L); // number of arguments
+  if(n != 0) {
+    char errstr[512];
+    sprintf(errstr, "Number of args expected 0, got %d", n);
+    lua_pushstring(L, errstr);
+    lua_error(L);
+    return 1;
+  }
+
+  lua_getglobal(L, GLOBAL_POINTER);
+  LUA *lua = (LUA*)lua_touserdata(L, lua_gettop(L));
+
+  if(!lua) {
+    lua_pushstring(L, "No LUA pointer!");
+    lua_error(L);
+    return 1;
+  }
+
+  QString templ = lua->getTemplate();
+  lua_pushstring(L, templ.toStdString().c_str());
+
+  return 1;
+}
+
+static int get_macro(lua_State *L)
+{
+  int n = lua_gettop(L); // number of arguments
+  if(n != 0) {
+    char errstr[512];
+    sprintf(errstr, "Number of args expected 0, got %d", n);
+    lua_pushstring(L, errstr);
+    lua_error(L);
+    return 1;
+  }
+
+  lua_getglobal(L, GLOBAL_POINTER);
+  LUA *lua = (LUA*)lua_touserdata(L, lua_gettop(L));
+
+  if(!lua) {
+    lua_pushstring(L, "No LUA pointer!");
+    lua_error(L);
+    return 1;
+  }
+
+  QString macro = lua->getMacro();
+  lua_pushstring(L, macro.toStdString().c_str());
+
+  return 1;
+}
+
+static int get_user(lua_State *L)
+{
+  int n = lua_gettop(L); // number of arguments
+  if(n != 0) {
+    char errstr[512];
+    sprintf(errstr, "Number of args expected 0, got %d", n);
+    lua_pushstring(L, errstr);
+    lua_error(L);
+    return 1;
+  }
 
+  lua_getglobal(L, GLOBAL_POINTER);
+  LUA *lua = (LUA*)lua_touserdata(L, lua_gettop(L));
+
+  if(!lua) {
+    lua_pushstring(L, "No LUA pointer!");
+    lua_error(L);
+    return 1;
+  }
+
+  QString user = lua->getUser();
+  lua_pushstring(L, user.toStdString().c_str());
+
+  return 1;
+}
+
+static int get_patientid(lua_State *L)
+{
+  int n = lua_gettop(L); // number of arguments
+  if(n != 0) {
+    char errstr[512];
+    sprintf(errstr, "Number of args expected 0, got %d", n);
+    lua_pushstring(L, errstr);
+    lua_error(L);
+    return 1;
+  }
+
+  lua_getglobal(L, GLOBAL_POINTER);
+  LUA *lua = (LUA*)lua_touserdata(L, lua_gettop(L));
+
+  if(!lua) {
+    lua_pushstring(L, "No LUA pointer!");
+    lua_error(L);
+    return 1;
+  }
+
+  QString patientid = lua->getPatientID();
+  lua_pushstring(L, patientid.toStdString().c_str());
+
+  return 1;
+}
+
+LUA::LUA(Widget **rootwidget, QString templ, QString macro, QString user,
+         QString patientid)
+{
+  this->rootwidget = rootwidget;
+  this->templ = templ;
+  this->macro = macro;
+  this->user = user;
+  this->patientid = patientid;
   L = NULL;
   clear();
 }
@@ -120,6 +228,10 @@ void LUA::clear()
 
   lua_register(L, "widget", get_widget);
   lua_register(L, "debug", debug);
+  lua_register(L, "template", get_template);
+  lua_register(L, "macro", get_macro);
+  lua_register(L, "user", get_user);
+  lua_register(L, "patientid", get_patientid);
 
   register_widget(L);
   register_db(L);
@@ -216,3 +328,23 @@ Widget *LUA::getWidget(QString name)
     return NULL;
   }
 }
+
+QString LUA::getTemplate()
+{
+  return templ;
+}
+
+QString LUA::getMacro()
+{
+  return macro;
+}
+
+QString LUA::getUser()
+{
+  return user;
+}
+
+QString LUA::getPatientID()
+{
+  return patientid;
+}
-- 
cgit v1.2.3