1 files changed, 152 insertions, 0 deletions
diff --git a/client/luapraxisd.cc b/client/luapraxisd.cc
new file mode 100644
index 0000000..1d9da4c
--- /dev/null
+++ b/client/luapraxisd.cc
@@ -0,0 +1,152 @@
+/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/* vim: set et sw=2 ts=2: */
+/***************************************************************************
+ *            luapraxisd.cc
+ *
+ *  Thu May  5 11:16:20 CEST 2011
+ *  Copyright 2011 Bent Bisballe Nyeng
+ *  deva@aasimon.org
+ ****************************************************************************/
+
+/*
+ *  This file is part of Pracro.
+ *
+ *  Pracro 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.
+ *
+ *  Pracro 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.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Pracro; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.
+ */
+#include "luapraxisd.h"
+
+#ifdef WITH_PRAXISD
+
+#include "../server/src/praxisd.h"
+
+#include <lauxlib.h>
+#include <strings.h>
+
+#include "debug.h"
+
+#define luaL_checkbool(L, i) \
+  (lua_isboolean(L,i) ? lua_toboolean(L,i) : luaL_checkint(L,i))
+
+typedef struct px_userdata {
+  Praxisd *px;
+} px_userdata;
+
+static int px_getcave(lua_State *L)
+{
+  px_userdata *pxu;
+  pxu = (px_userdata *)luaL_checkudata(L, 1, "Praxisd");
+  luaL_argcheck(L, pxu, 1, "Praxisd expected");
+
+  const char *cpr = luaL_checkstring(L, 2);
+
+  QVector<QString> cavelist;
+
+  Praxisd::patient_t patient = pxu->px->patient_get_by_cpr(cpr);
+  std::vector<Praxisd::sogeord_t>::iterator i = patient.sogeord.begin();
+  while(i != patient.sogeord.end()) {
+    std::string cavesogeord = i->sogenr.substr(1, i->sogenr.size() - 1);
+    std::vector<Praxisd::cave_t> cave = pxu->px->diverse_get_cave(cavesogeord);
+    if(cave.size() == 1) {
+      if(cave[0].cave != "ANDET") cavelist.push_back(cave[0].cave.c_str());
+      else cavelist.push_back(i->sogetxt.c_str());
+    }
+    i++;
+  }
+
+  lua_createtable(L, 0, cavelist.size());
+  int top = lua_gettop(L);
+
+  for(int i = 0; i < cavelist.size(); i++) {
+    lua_pushstring(L,  QString::fromUtf8(cavelist[i].toStdString().c_str()).toStdString().c_str());
+    lua_rawseti(L, top, i);
+  }
+
+  return 1;
+}
+
+static int px_cavelist(lua_State *L)
+{
+  px_userdata *pxu;
+  pxu = (px_userdata *)luaL_checkudata(L, 1, "Praxisd");
+  luaL_argcheck(L, pxu, 1, "Praxisd expected");
+
+  std::vector<Praxisd::cave_t> cavelist = pxu->px->diverse_get_cave("");
+
+  lua_createtable(L, 0, cavelist.size());
+  int top = lua_gettop(L);
+
+  for(size_t i = 0; i < cavelist.size(); i++) {
+    lua_pushstring(L, QString::fromUtf8(cavelist[i].cave.c_str()).toStdString().c_str());
+    lua_rawseti(L, top, i);
+  }
+
+  return 1;
+}
+
+static int px_new(lua_State *L)
+{
+  const char *host = luaL_checkstring(L, 1);
+  int port = luaL_checknumber(L, 2);
+
+  px_userdata *pxu;
+  pxu = (px_userdata *)lua_newuserdata(L, sizeof(px_userdata));
+
+  luaL_getmetatable(L, "Praxisd");
+  lua_setmetatable(L, -2);
+
+  pxu->px = new Praxisd(host, port);
+
+  return 1;
+}
+
+static int px_gc(lua_State *L)
+{
+  px_userdata *pxu;
+
+  pxu = (px_userdata *)luaL_checkudata(L, 1, "Praxisd");
+  luaL_argcheck(L, pxu, 1, "Praxisd expected");
+
+  delete pxu->px;
+
+  return 0;
+}
+
+static const struct luaL_Reg px_meths[] = {
+  {"__gc" ,px_gc},
+  {"cavelist", px_cavelist},
+  {"getcave", px_getcave},
+  {NULL, NULL}
+};
+
+static const struct luaL_reg px_funcs[] = {
+  {"new", px_new},
+  {NULL, NULL}
+};
+
+void register_praxisd(lua_State *L)
+{
+  luaL_newmetatable(L, "Praxisd");
+  lua_pushliteral(L, "__index");
+  lua_pushvalue(L, -2);
+  lua_rawset(L, -3);
+  luaL_register(L, NULL, px_meths);
+  luaL_openlib (L, "Praxisd", px_funcs, 0);
+}
+
+#else/*WITH_PRAXISD*/
+
+void register_praxisd(lua_State *L){}
+
+#endif/*WITH_PRAXISD*/