orthanc: Core/Lua/LuaContext.cpp annotate

annotate Core/Lua/LuaContext.cpp @ 1447:5ba7471780ae

refactoring: HttpToolbox, DumpJson in Lua

author	Sebastien Jodogne <s.jodogne@gmail.com>
date	Wed, 01 Jul 2015 17:42:06 +0200
parents	af112b7d9cba
children	3f7722179467

rev	line source
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	1 /**
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	2 * Orthanc - A Lightweight, RESTful DICOM Store
1288 6e7e5ed91c2d upgrade to year 2015 Sebastien Jodogne <s.jodogne@gmail.com> parents: 1055 diff changeset	3 * Copyright (C) 2012-2015 Sebastien Jodogne, Medical Physics
6e7e5ed91c2d upgrade to year 2015 Sebastien Jodogne <s.jodogne@gmail.com> parents: 1055 diff changeset	4 * Department, University Hospital of Liege, Belgium
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	5 *
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	6 * This program is free software: you can redistribute it and/or
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	7 * modify it under the terms of the GNU General Public License as
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	8 * published by the Free Software Foundation, either version 3 of the
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	9 * License, or (at your option) any later version.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	10 *
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	11 * In addition, as a special exception, the copyright holders of this
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	12 * program give permission to link the code of its release with the
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	13 * OpenSSL project's "OpenSSL" library (or with modified versions of it
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	14 * that use the same license as the "OpenSSL" library), and distribute
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	15 * the linked executables. You must obey the GNU General Public License
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	16 * in all respects for all of the code used other than "OpenSSL". If you
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	17 * modify file(s) with this exception, you may extend this exception to
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	18 * your version of the file(s), but you are not obligated to do so. If
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	19 * you do not wish to do so, delete this exception statement from your
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	20 * version. If you delete this exception statement from all source files
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	21 * in the program, then also delete it here.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	22 *
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	23 * This program is distributed in the hope that it will be useful, but
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	24 * WITHOUT ANY WARRANTY; without even the implied warranty of
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	25 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	26 * General Public License for more details.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	27 *
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	28 * You should have received a copy of the GNU General Public License
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	29 * along with this program. If not, see <http://www.gnu.org/licenses/>.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	30 **/
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	31
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	32
824 a811bdf8b8eb precompiled headers Sebastien Jodogne <s.jodogne@gmail.com> parents: 689 diff changeset	33 #include "../PrecompiledHeaders.h"
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	34 #include "LuaContext.h"
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	35
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	36 #include <set>
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	37 #include <glog/logging.h>
996 cf52f3bcb2b3 clarification of Lua classes wrt multithreading Sebastien Jodogne <s.jodogne@gmail.com> parents: 824 diff changeset	38 #include <cassert>
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	39 #include <boost/lexical_cast.hpp>
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	40
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	41 extern "C"
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	42 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	43 #include <lualib.h>
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	44 #include <lauxlib.h>
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	45 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	46
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	47 namespace Orthanc
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	48 {
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	49 LuaContext& LuaContext::GetLuaContext(lua_State *state)
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	50 {
1437 02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	51 const void* value = GetGlobalVariable(state, "_LuaContext");
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	52 assert(value != NULL);
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	53
1437 02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	54 return const_cast<LuaContext>(reinterpret_cast<const LuaContext*>(value));
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	55 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	56
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	57 int LuaContext::PrintToLog(lua_State *state)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	58 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	59 LuaContext& that = GetLuaContext(state);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	60
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	61 // http://medek.wordpress.com/2009/02/03/wrapping-lua-errors-and-print-function/
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	62 int nArgs = lua_gettop(state);
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	63 lua_getglobal(state, "tostring");
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	64
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	65 // Make sure you start at 1 NOT 0 for arrays in Lua.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	66 std::string result;
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	67
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	68 for (int i = 1; i <= nArgs; i++)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	69 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	70 const char *s;
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	71 lua_pushvalue(state, -1);
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	72 lua_pushvalue(state, i);
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	73 lua_call(state, 1, 1);
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	74 s = lua_tostring(state, -1);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	75
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	76 if (result.size() > 0)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	77 result.append(", ");
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	78
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	79 if (s == NULL)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	80 result.append("<No conversion to string>");
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	81 else
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	82 result.append(s);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	83
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	84 lua_pop(state, 1);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	85 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	86
1002 b067017a8a5b anonymization refactoring Sebastien Jodogne <s.jodogne@gmail.com> parents: 996 diff changeset	87 LOG(WARNING) << "Lua says: " << result;
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	88 that.log_.append(result);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	89 that.log_.append("\n");
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	90
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	91 return 0;
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	92 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	93
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	94
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	95 int LuaContext::ParseJson(lua_State *state)
1437 02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	96 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	97 LuaContext& that = GetLuaContext(state);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	98
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	99 int nArgs = lua_gettop(state);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	100 if (nArgs != 1 \|\|
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	101 !lua_isstring(state, 1)) // Password
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	102 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	103 lua_pushnil(state);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	104 return 1;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	105 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	106
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	107 const char* str = lua_tostring(state, 1);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	108
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	109 Json::Value value;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	110 Json::Reader reader;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	111 if (reader.parse(str, str + strlen(str), value))
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	112 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	113 that.PushJson(value);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	114 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	115 else
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	116 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	117 lua_pushnil(state);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	118 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	119
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	120 return 1;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	121 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	122
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	123
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	124 int LuaContext::DumpJson(lua_State *state)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	125 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	126 int nArgs = lua_gettop(state);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	127 if (nArgs != 1)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	128 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	129 lua_pushnil(state);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	130 return 1;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	131 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	132
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	133 Json::Value json;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	134 if (GetJson(json, state, 1))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	135 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	136 Json::FastWriter writer;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	137 std::string s = writer.write(json);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	138 lua_pushstring(state, s.c_str());
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	139 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	140 else
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	141 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	142 LOG(ERROR) << "Lua: Unable to convert a JSON variable to a string";
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	143 lua_pushnil(state);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	144 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	145
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	146 return 1;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	147 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	148
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	149
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	150 int LuaContext::SetHttpCredentials(lua_State *state)
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	151 {
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	152 LuaContext& that = GetLuaContext(state);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	153
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	154 // Check the types of the arguments
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	155 int nArgs = lua_gettop(state);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	156 if (nArgs != 2 \|\|
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	157 !lua_isstring(state, 1) \|\| // Username
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	158 !lua_isstring(state, 2)) // Password
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	159 {
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	160 LOG(ERROR) << "Lua: Bad parameters to SetHttpCredentials()";
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	161 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	162 else
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	163 {
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	164 // Configure the HTTP client
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	165 const char* username = lua_tostring(state, 1);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	166 const char* password = lua_tostring(state, 2);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	167 that.httpClient_.SetCredentials(username, password);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	168 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	169
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	170 return 0;
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	171 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	172
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	173
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	174 bool LuaContext::AnswerHttpQuery(lua_State* state)
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	175 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	176 std::string str;
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	177
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	178 try
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	179 {
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	180 httpClient_.Apply(str);
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	181 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	182 catch (OrthancException& e)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	183 {
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	184 return false;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	185 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	186
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	187 // Return the result of the HTTP request
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	188 lua_pushstring(state, str.c_str());
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	189
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	190 return true;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	191 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	192
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	193
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	194 int LuaContext::CallHttpGet(lua_State *state)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	195 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	196 LuaContext& that = GetLuaContext(state);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	197
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	198 // Check the types of the arguments
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	199 int nArgs = lua_gettop(state);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	200 if (nArgs != 1 \|\| !lua_isstring(state, 1)) // URL
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	201 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	202 LOG(ERROR) << "Lua: Bad parameters to HttpGet()";
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	203 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	204 return 1;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	205 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	206
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	207 // Configure the HTTP client class
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	208 const char* url = lua_tostring(state, 1);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	209 that.httpClient_.SetMethod(HttpMethod_Get);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	210 that.httpClient_.SetUrl(url);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	211
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	212 // Do the HTTP GET request
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	213 if (!that.AnswerHttpQuery(state))
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	214 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	215 LOG(ERROR) << "Lua: Error in HttpGet() for URL " << url;
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	216 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	217 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	218
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	219 return 1;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	220 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	221
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	222
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	223 int LuaContext::CallHttpPostOrPut(lua_State *state,
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	224 HttpMethod method)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	225 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	226 LuaContext& that = GetLuaContext(state);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	227
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	228 // Check the types of the arguments
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	229 int nArgs = lua_gettop(state);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	230 if ((nArgs != 1 && nArgs != 2) \|\|
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	231 !lua_isstring(state, 1) \|\| // URL
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	232 (nArgs >= 2 && !lua_isstring(state, 2))) // Body data
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	233 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	234 LOG(ERROR) << "Lua: Bad parameters to HttpPost() or HttpPut()";
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	235 lua_pushnil(state);
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	236 return 1;
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	237 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	238
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	239 // Configure the HTTP client class
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	240 const char* url = lua_tostring(state, 1);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	241 that.httpClient_.SetMethod(method);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	242 that.httpClient_.SetUrl(url);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	243
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	244 if (nArgs >= 2)
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	245 {
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	246 that.httpClient_.SetPostData(lua_tostring(state, 2));
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	247 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	248 else
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	249 {
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	250 that.httpClient_.AccessPostData().clear();
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	251 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	252
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	253 // Do the HTTP POST/PUT request
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	254 if (!that.AnswerHttpQuery(state))
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	255 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	256 LOG(ERROR) << "Lua: Error in HttpPost() or HttpPut() for URL " << url;
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	257 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	258 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	259
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	260 return 1;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	261 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	262
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	263
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	264 int LuaContext::CallHttpPost(lua_State *state)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	265 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	266 return CallHttpPostOrPut(state, HttpMethod_Post);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	267 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	268
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	269
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	270 int LuaContext::CallHttpPut(lua_State *state)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	271 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	272 return CallHttpPostOrPut(state, HttpMethod_Put);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	273 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	274
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	275
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	276 int LuaContext::CallHttpDelete(lua_State *state)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	277 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	278 LuaContext& that = GetLuaContext(state);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	279
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	280 // Check the types of the arguments
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	281 int nArgs = lua_gettop(state);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	282 if (nArgs != 1 \|\| !lua_isstring(state, 1)) // URL
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	283 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	284 LOG(ERROR) << "Lua: Bad parameters to HttpDelete()";
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	285 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	286 return 1;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	287 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	288
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	289 // Configure the HTTP client class
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	290 const char* url = lua_tostring(state, 1);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	291 that.httpClient_.SetMethod(HttpMethod_Delete);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	292 that.httpClient_.SetUrl(url);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	293
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	294 // Do the HTTP DELETE request
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	295 std::string s;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	296 if (!that.httpClient_.Apply(s))
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	297 {
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	298 LOG(ERROR) << "Lua: Error in HttpDelete() for URL " << url;
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	299 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	300 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	301 else
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	302 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	303 lua_pushstring(state, "SUCCESS");
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	304 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	305
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	306 return 1;
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	307 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	308
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	309
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	310 void LuaContext::PushJson(const Json::Value& value)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	311 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	312 if (value.isString())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	313 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	314 lua_pushstring(lua_, value.asCString());
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	315 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	316 else if (value.isDouble())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	317 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	318 lua_pushnumber(lua_, value.asDouble());
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	319 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	320 else if (value.isInt())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	321 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	322 lua_pushinteger(lua_, value.asInt());
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	323 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	324 else if (value.isUInt())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	325 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	326 lua_pushinteger(lua_, value.asUInt());
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	327 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	328 else if (value.isBool())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	329 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	330 lua_pushboolean(lua_, value.asBool());
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	331 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	332 else if (value.isNull())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	333 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	334 lua_pushnil(lua_);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	335 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	336 else if (value.isArray())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	337 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	338 lua_newtable(lua_);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	339
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	340 // http://lua-users.org/wiki/SimpleLuaApiExample
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	341 for (Json::Value::ArrayIndex i = 0; i < value.size(); i++)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	342 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	343 // Push the table index (note the "+1" because of Lua conventions)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	344 lua_pushnumber(lua_, i + 1);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	345
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	346 // Push the value of the cell
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	347 PushJson(value[i]);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	348
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	349 // Stores the pair in the table
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	350 lua_rawset(lua_, -3);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	351 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	352 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	353 else if (value.isObject())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	354 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	355 lua_newtable(lua_);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	356
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	357 Json::Value::Members members = value.getMemberNames();
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	358
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	359 for (Json::Value::Members::const_iterator
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	360 it = members.begin(); it != members.end(); ++it)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	361 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	362 // Push the index of the cell
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	363 lua_pushstring(lua_, it->c_str());
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	364
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	365 // Push the value of the cell
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	366 PushJson(value[*it]);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	367
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	368 // Stores the pair in the table
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	369 lua_rawset(lua_, -3);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	370 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	371 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	372 else
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	373 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	374 throw LuaException("Unsupported JSON conversion");
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	375 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	376 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	377
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	378
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	379 static bool CompactObjectToArray(Json::Value& result,
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	380 const Json::Value& source)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	381 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	382 Json::Value::Members members = source.getMemberNames();
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	383
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	384 std::set<size_t> keys;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	385 for (Json::Value::ArrayIndex i = 0; i < members.size(); i++)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	386 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	387 try
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	388 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	389 size_t key = boost::lexical_cast<size_t>(members[i]);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	390 keys.insert(key);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	391 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	392 catch (boost::bad_lexical_cast&)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	393 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	394 return false;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	395 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	396 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	397
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	398 if (keys.size() != members.size())
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	399 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	400 return false;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	401 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	402
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	403 for (size_t i = 1; i <= members.size(); i++)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	404 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	405 if (keys.find(i) == keys.end())
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	406 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	407 return false;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	408 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	409 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	410
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	411 result = Json::arrayValue;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	412 result.resize(members.size());
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	413 for (size_t i = 0; i < members.size(); i++)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	414 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	415 Json::Value::ArrayIndex key = boost::lexical_cast<Json::Value::ArrayIndex>(members[i]);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	416 assert(key > 0);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	417 result[key - 1] = source[members[i]];
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	418 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	419
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	420 return true;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	421 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	422
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	423
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	424 bool LuaContext::GetJson(Json::Value& result,
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	425 lua_State *state,
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	426 int i)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	427 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	428 // Caution: The order of the calls below is important, otherwise
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	429 // Lua considers everything as a string.
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	430
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	431 if (lua_isnil(state, i))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	432 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	433 result = Json::nullValue;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	434 return true;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	435 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	436
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	437 if (lua_isboolean(state, i))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	438 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	439 result = lua_toboolean(state, i) ? true : false;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	440 return true;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	441 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	442
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	443 if (lua_isnumber(state, i))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	444 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	445 result = lua_tonumber(state, i);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	446 return true;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	447 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	448
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	449 if (lua_isstring(state, i))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	450 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	451 result = lua_tostring(state, i);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	452 return true;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	453 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	454
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	455 if (lua_istable(state, i))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	456 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	457 result = Json::objectValue;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	458
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	459 // http://stackoverflow.com/a/6142700/881731
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	460 // Push another reference to the table on top of the stack (so we know
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	461 // where it is, and this function can work for negative, positive and
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	462 // pseudo indices
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	463 lua_pushvalue(state, i);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	464 // stack now contains: -1 => table
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	465 lua_pushnil(state);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	466 // stack now contains: -1 => nil; -2 => table
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	467 while (lua_next(state, -2))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	468 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	469 // stack now contains: -1 => value; -2 => key; -3 => table
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	470 // copy the key so that lua_tostring does not modify the original
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	471 lua_pushvalue(state, -2);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	472 // stack now contains: -1 => key; -2 => value; -3 => key; -4 => table
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	473 const char *key = lua_tostring(state, -1);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	474
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	475 Json::Value item;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	476 if (!GetJson(item, state, -2))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	477 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	478 lua_pop(state, 3); // TODO IS THIS CORRECT?
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	479 return false;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	480 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	481
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	482 result[key] = item;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	483
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	484 // pop value + copy of key, leaving original key
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	485 lua_pop(state, 2);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	486 // stack now contains: -1 => key; -2 => table
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	487 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	488 // stack now contains: -1 => table (when lua_next returns 0 it pops the key
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	489 // but does not push anything.)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	490 // Pop table
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	491 lua_pop(state, 1);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	492
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	493 // Stack is now the same as it was on entry to this function
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	494
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	495 Json::Value array;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	496 if (CompactObjectToArray(array, result))
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	497 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	498 result = array;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	499 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	500
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	501 return true;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	502 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	503
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	504 return false;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	505 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	506
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	507
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	508 LuaContext::LuaContext()
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	509 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	510 lua_ = luaL_newstate();
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	511 if (!lua_)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	512 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	513 throw LuaException("Unable to create the Lua context");
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	514 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	515
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	516 luaL_openlibs(lua_);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	517 lua_register(lua_, "print", PrintToLog);
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	518 lua_register(lua_, "ParseJson", ParseJson);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	519 lua_register(lua_, "DumpJson", DumpJson);
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	520 lua_register(lua_, "HttpGet", CallHttpGet);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	521 lua_register(lua_, "HttpPost", CallHttpPost);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	522 lua_register(lua_, "HttpPut", CallHttpPut);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	523 lua_register(lua_, "HttpDelete", CallHttpDelete);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	524 lua_register(lua_, "SetHttpCredentials", SetHttpCredentials);
1437 02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	525
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	526 SetGlobalVariable("_LuaContext", this);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	527 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	528
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	529
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	530 LuaContext::~LuaContext()
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	531 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	532 lua_close(lua_);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	533 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	534
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	535
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	536 void LuaContext::ExecuteInternal(std::string* output,
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	537 const std::string& command)
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	538 {
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	539 log_.clear();
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	540 int error = (luaL_loadbuffer(lua_, command.c_str(), command.size(), "line") \|\|
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	541 lua_pcall(lua_, 0, 0, 0));
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	542
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	543 if (error)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	544 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	545 assert(lua_gettop(lua_) >= 1);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	546
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	547 std::string description(lua_tostring(lua_, -1));
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	548 lua_pop(lua_, 1); /* pop error message from the stack */
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	549 LOG(ERROR) << "Error while executing Lua script: " << description;
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	550 throw LuaException(description);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	551 }
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	552
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	553 if (output != NULL)
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	554 {
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	555 *output = log_;
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	556 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	557 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	558
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	559
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	560 void LuaContext::Execute(EmbeddedResources::FileResourceId resource)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	561 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	562 std::string command;
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	563 EmbeddedResources::GetFileResource(command, resource);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	564 ExecuteInternal(NULL, command);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	565 }
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	566
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	567
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	568 bool LuaContext::IsExistingFunction(const char* name)
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	569 {
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	570 lua_settop(lua_, 0);
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	571 lua_getglobal(lua_, name);
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	572 return lua_type(lua_, -1) == LUA_TFUNCTION;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	573 }
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	574
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	575
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	576 void LuaContext::Execute(Json::Value& output,
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	577 const std::string& command)
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	578 {
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	579 std::string s;
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	580 ExecuteInternal(&s, command);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	581
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	582 Json::Reader reader;
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	583 if (!reader.parse(s, output))
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	584 {
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	585 throw OrthancException(ErrorCode_BadFileFormat);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	586 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	587 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	588
1437 02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	589
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	590 void LuaContext::RegisterFunction(const char* name,
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	591 lua_CFunction func)
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	592 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	593 lua_register(lua_, name, func);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	594 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	595
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	596
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	597 void LuaContext::SetGlobalVariable(const char* name,
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	598 void* value)
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	599 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	600 lua_pushlightuserdata(lua_, value);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	601 lua_setglobal(lua_, name);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	602 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	603
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	604
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	605 const void* LuaContext::GetGlobalVariable(lua_State* state,
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	606 const char* name)
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	607 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	608 lua_getglobal(state, name);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	609 assert(lua_type(state, -1) == LUA_TLIGHTUSERDATA);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	610 const void* value = lua_topointer(state, -1);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	611 lua_pop(state, 1);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	612 return value;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	613 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	614 }

Mercurial > hg > orthanc

annotate Core/Lua/LuaContext.cpp @ 1447:5ba7471780ae