orthanc: Core/Lua/LuaContext.cpp annotate

annotate Core/Lua/LuaContext.cpp @ 2244:a3a65de1840f

shared copyright with osimis

author	Sebastien Jodogne <s.jodogne@gmail.com>
date	Wed, 04 Jan 2017 12:09:40 +0100
parents	0fb6e0461105
children	cd70a86618b4

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
1900 b1291df2f780 2016 Sebastien Jodogne <s.jodogne@gmail.com> parents: 1658 diff changeset	3 * Copyright (C) 2012-2016 Sebastien Jodogne, Medical Physics
1288 6e7e5ed91c2d upgrade to year 2015 Sebastien Jodogne <s.jodogne@gmail.com> parents: 1055 diff changeset	4 * Department, University Hospital of Liege, Belgium
2244 a3a65de1840f shared copyright with osimis Sebastien Jodogne <s.jodogne@gmail.com> parents: 2220 diff changeset	5 * Copyright (C) 2017 Osimis, Belgium
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	6 *
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	7 * This program is free software: you can redistribute it and/or
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	8 * modify it under the terms of the GNU General Public License as
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	9 * published by the Free Software Foundation, either version 3 of the
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	10 * License, or (at your option) any later version.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	11 *
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	12 * In addition, as a special exception, the copyright holders of this
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	13 * program give permission to link the code of its release with the
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	14 * OpenSSL project's "OpenSSL" library (or with modified versions of it
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	15 * that use the same license as the "OpenSSL" library), and distribute
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	16 * the linked executables. You must obey the GNU General Public License
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	17 * 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	18 * modify file(s) with this exception, you may extend this exception to
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	19 * 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	20 * 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	21 * version. If you delete this exception statement from all source files
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	22 * in the program, then also delete it here.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	23 *
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	24 * 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	25 * WITHOUT ANY WARRANTY; without even the implied warranty of
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	26 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	27 * General Public License for more details.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	28 *
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	29 * You should have received a copy of the GNU General Public License
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	30 * along with this program. If not, see <http://www.gnu.org/licenses/>.
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
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	33
824 a811bdf8b8eb precompiled headers Sebastien Jodogne <s.jodogne@gmail.com> parents: 689 diff changeset	34 #include "../PrecompiledHeaders.h"
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	35 #include "LuaContext.h"
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	36
1486 f967bdf8534e refactoring to Logging.h Sebastien Jodogne <s.jodogne@gmail.com> parents: 1465 diff changeset	37 #include "../Logging.h"
1583 9ea3d082b064 got rid of custom exceptions Sebastien Jodogne <s.jodogne@gmail.com> parents: 1545 diff changeset	38 #include "../OrthancException.h"
1486 f967bdf8534e refactoring to Logging.h Sebastien Jodogne <s.jodogne@gmail.com> parents: 1465 diff changeset	39
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	40 #include <set>
996 cf52f3bcb2b3 clarification of Lua classes wrt multithreading Sebastien Jodogne <s.jodogne@gmail.com> parents: 824 diff changeset	41 #include <cassert>
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	42 #include <boost/lexical_cast.hpp>
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	43
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	44 extern "C"
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 #include <lualib.h>
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	47 #include <lauxlib.h>
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	48 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	49
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	50 namespace Orthanc
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	51 {
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	52 static bool OnlyContainsDigits(const std::string& s)
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	53 {
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	54 for (size_t i = 0; i < s.size(); i++)
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	55 {
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	56 if (!isdigit(s[i]))
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	57 {
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	58 return false;
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	59 }
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	60 }
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	61
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	62 return true;
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	63 }
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	64
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	65
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	66 LuaContext& LuaContext::GetLuaContext(lua_State *state)
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	67 {
1437 02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	68 const void* value = GetGlobalVariable(state, "_LuaContext");
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	69 assert(value != NULL);
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	70
1437 02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	71 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	72 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	73
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	74 int LuaContext::PrintToLog(lua_State *state)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	75 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	76 LuaContext& that = GetLuaContext(state);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	77
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	78 // 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	79 int nArgs = lua_gettop(state);
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	80 lua_getglobal(state, "tostring");
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	81
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	82 // Make sure you start at 1 NOT 0 for arrays in Lua.
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	83 std::string result;
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	84
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	85 for (int i = 1; i <= nArgs; i++)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	86 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	87 const char *s;
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	88 lua_pushvalue(state, -1);
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	89 lua_pushvalue(state, i);
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	90 lua_call(state, 1, 1);
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	91 s = lua_tostring(state, -1);
386 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 if (result.size() > 0)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	94 result.append(", ");
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	95
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	96 if (s == NULL)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	97 result.append("<No conversion to string>");
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	98 else
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	99 result.append(s);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	100
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	101 lua_pop(state, 1);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	102 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	103
1002 b067017a8a5b anonymization refactoring Sebastien Jodogne <s.jodogne@gmail.com> parents: 996 diff changeset	104 LOG(WARNING) << "Lua says: " << result;
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	105 that.log_.append(result);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	106 that.log_.append("\n");
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	107
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	108 return 0;
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	109 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	110
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	111
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	112 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	113 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	114 LuaContext& that = GetLuaContext(state);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	115
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	116 int nArgs = lua_gettop(state);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	117 if (nArgs != 1 \|\|
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	118 !lua_isstring(state, 1)) // Password
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 lua_pushnil(state);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	121 return 1;
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
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	124 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	125
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	126 Json::Value value;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	127 Json::Reader reader;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	128 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	129 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	130 that.PushJson(value);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	131 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	132 else
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	133 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	134 lua_pushnil(state);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	135 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	136
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	137 return 1;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	138 }
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	139
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	140
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	141 int LuaContext::DumpJson(lua_State *state)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	142 {
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	143 LuaContext& that = GetLuaContext(state);
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	144
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	145 int nArgs = lua_gettop(state);
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	146 if ((nArgs != 1 && nArgs != 2) \|\|
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	147 (nArgs == 2 && !lua_isboolean(state, 2)))
1447 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 lua_pushnil(state);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	150 return 1;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	151 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	152
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	153 bool keepStrings = false;
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	154 if (nArgs == 2)
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	155 {
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	156 keepStrings = lua_toboolean(state, 2) ? true : false;
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	157 }
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	158
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	159 Json::Value json;
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	160 that.GetJson(json, 1, keepStrings);
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	161
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	162 Json::FastWriter writer;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	163 std::string s = writer.write(json);
1465 905842836ad4 sample Lua script to write DICOM series to disk Sebastien Jodogne <s.jodogne@gmail.com> parents: 1448 diff changeset	164 lua_pushlstring(state, s.c_str(), s.size());
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	165
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	166 return 1;
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	167 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	168
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	169
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	170 int LuaContext::SetHttpCredentials(lua_State *state)
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 LuaContext& that = GetLuaContext(state);
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 // Check the types of the arguments
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	175 int nArgs = lua_gettop(state);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	176 if (nArgs != 2 \|\|
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	177 !lua_isstring(state, 1) \|\| // Username
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	178 !lua_isstring(state, 2)) // Password
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	179 {
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	180 LOG(ERROR) << "Lua: Bad parameters to SetHttpCredentials()";
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	181 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	182 else
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	183 {
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	184 // Configure the HTTP client
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	185 const char* username = lua_tostring(state, 1);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	186 const char* password = lua_tostring(state, 2);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	187 that.httpClient_.SetCredentials(username, password);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	188 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	189
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	190 return 0;
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	191 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	192
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	193
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	194 bool LuaContext::AnswerHttpQuery(lua_State* state)
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	195 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	196 std::string str;
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	197
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	198 try
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	199 {
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	200 httpClient_.Apply(str);
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	201 }
1545 33d34bc4ac15 fix msvc warnings jodogne parents: 1486 diff changeset	202 catch (OrthancException&)
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	203 {
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	204 return false;
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 // Return the result of the HTTP request
1465 905842836ad4 sample Lua script to write DICOM series to disk Sebastien Jodogne <s.jodogne@gmail.com> parents: 1448 diff changeset	208 lua_pushlstring(state, str.c_str(), str.size());
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	209
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	210 return true;
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
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	213
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	214 int LuaContext::CallHttpGet(lua_State *state)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	215 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	216 LuaContext& that = GetLuaContext(state);
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 // Check the types of the arguments
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	219 int nArgs = lua_gettop(state);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	220 if (nArgs != 1 \|\| !lua_isstring(state, 1)) // URL
1052 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 LOG(ERROR) << "Lua: Bad parameters to HttpGet()";
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	223 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	224 return 1;
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
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	227 // Configure the HTTP client class
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	228 const char* url = lua_tostring(state, 1);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	229 that.httpClient_.SetMethod(HttpMethod_Get);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	230 that.httpClient_.SetUrl(url);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	231
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	232 // Do the HTTP GET request
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	233 if (!that.AnswerHttpQuery(state))
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	234 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	235 LOG(ERROR) << "Lua: Error in HttpGet() for URL " << url;
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	236 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	237 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	238
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	239 return 1;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	240 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	241
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	242
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	243 int LuaContext::CallHttpPostOrPut(lua_State *state,
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	244 HttpMethod method)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	245 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	246 LuaContext& that = GetLuaContext(state);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	247
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	248 // Check the types of the arguments
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	249 int nArgs = lua_gettop(state);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	250 if ((nArgs != 1 && nArgs != 2) \|\|
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	251 !lua_isstring(state, 1) \|\| // URL
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	252 (nArgs >= 2 && !lua_isstring(state, 2))) // Body data
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	253 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	254 LOG(ERROR) << "Lua: Bad parameters to HttpPost() or HttpPut()";
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	255 lua_pushnil(state);
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	256 return 1;
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	257 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	258
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	259 // Configure the HTTP client class
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	260 const char* url = lua_tostring(state, 1);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	261 that.httpClient_.SetMethod(method);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	262 that.httpClient_.SetUrl(url);
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 if (nArgs >= 2)
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	265 {
1606 31f4adefb88f issuing HTTP requests from the plugin SDK Sebastien Jodogne <s.jodogne@gmail.com> parents: 1596 diff changeset	266 that.httpClient_.SetBody(lua_tostring(state, 2));
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	267 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	268 else
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	269 {
1606 31f4adefb88f issuing HTTP requests from the plugin SDK Sebastien Jodogne <s.jodogne@gmail.com> parents: 1596 diff changeset	270 that.httpClient_.GetBody().clear();
1052 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
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	273 // Do the HTTP POST/PUT request
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	274 if (!that.AnswerHttpQuery(state))
1052 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 LOG(ERROR) << "Lua: Error in HttpPost() or HttpPut() for URL " << url;
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	277 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	278 }
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 return 1;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	281 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	282
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 int LuaContext::CallHttpPost(lua_State *state)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	285 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	286 return CallHttpPostOrPut(state, HttpMethod_Post);
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
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	290 int LuaContext::CallHttpPut(lua_State *state)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	291 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	292 return CallHttpPostOrPut(state, HttpMethod_Put);
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
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	295
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	296 int LuaContext::CallHttpDelete(lua_State *state)
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	297 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	298 LuaContext& that = GetLuaContext(state);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	299
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	300 // Check the types of the arguments
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	301 int nArgs = lua_gettop(state);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	302 if (nArgs != 1 \|\| !lua_isstring(state, 1)) // URL
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	303 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	304 LOG(ERROR) << "Lua: Bad parameters to HttpDelete()";
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	305 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	306 return 1;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	307 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	308
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	309 // Configure the HTTP client class
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	310 const char* url = lua_tostring(state, 1);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	311 that.httpClient_.SetMethod(HttpMethod_Delete);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	312 that.httpClient_.SetUrl(url);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	313
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	314 // Do the HTTP DELETE request
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	315 std::string s;
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	316 if (!that.httpClient_.Apply(s))
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	317 {
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	318 LOG(ERROR) << "Lua: Error in HttpDelete() for URL " << url;
1438 af112b7d9cba fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1437 diff changeset	319 lua_pushnil(state);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	320 }
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	321 else
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	322 {
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	323 lua_pushstring(state, "SUCCESS");
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	324 }
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 return 1;
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
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 void LuaContext::PushJson(const Json::Value& value)
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 if (value.isString())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	333 {
1465 905842836ad4 sample Lua script to write DICOM series to disk Sebastien Jodogne <s.jodogne@gmail.com> parents: 1448 diff changeset	334 const std::string s = value.asString();
905842836ad4 sample Lua script to write DICOM series to disk Sebastien Jodogne <s.jodogne@gmail.com> parents: 1448 diff changeset	335 lua_pushlstring(lua_, s.c_str(), s.size());
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	336 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	337 else if (value.isDouble())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	338 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	339 lua_pushnumber(lua_, value.asDouble());
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	340 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	341 else if (value.isInt())
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 lua_pushinteger(lua_, value.asInt());
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	344 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	345 else if (value.isUInt())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	346 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	347 lua_pushinteger(lua_, value.asUInt());
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 else if (value.isBool())
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	350 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	351 lua_pushboolean(lua_, value.asBool());
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.isNull())
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_pushnil(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 else if (value.isArray())
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 lua_newtable(lua_);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	360
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	361 // http://lua-users.org/wiki/SimpleLuaApiExample
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	362 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	363 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	364 // 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	365 lua_pushnumber(lua_, i + 1);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	366
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	367 // Push the value of the cell
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	368 PushJson(value[i]);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	369
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	370 // Stores the pair in the table
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	371 lua_rawset(lua_, -3);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	372 }
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 else if (value.isObject())
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 lua_newtable(lua_);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	377
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	378 Json::Value::Members members = value.getMemberNames();
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	379
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	380 for (Json::Value::Members::const_iterator
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	381 it = members.begin(); it != members.end(); ++it)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	382 {
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	383 // Push the index of the cell
1465 905842836ad4 sample Lua script to write DICOM series to disk Sebastien Jodogne <s.jodogne@gmail.com> parents: 1448 diff changeset	384 lua_pushlstring(lua_, it->c_str(), it->size());
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	385
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	386 // Push the value of the cell
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	387 PushJson(value[*it]);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	388
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	389 // Stores the pair in the table
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	390 lua_rawset(lua_, -3);
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	391 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	392 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	393 else
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	394 {
1583 9ea3d082b064 got rid of custom exceptions Sebastien Jodogne <s.jodogne@gmail.com> parents: 1545 diff changeset	395 throw OrthancException(ErrorCode_JsonToLuaTable);
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	396 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	397 }
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	398
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	399
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	400 void LuaContext::GetJson(Json::Value& result,
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	401 int top,
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	402 bool keepStrings)
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	403 {
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	404 if (lua_istable(lua_, top))
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	405 {
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	406 Json::Value tmp = Json::objectValue;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	407 bool isArray = true;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	408 size_t size = 0;
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	409
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	410 // Code adapted from: http://stackoverflow.com/a/6142700/881731
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	411
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	412 // 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	413 // 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	414 // pseudo indices
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	415 lua_pushvalue(lua_, top);
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	416 // stack now contains: -1 => table
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	417 lua_pushnil(lua_);
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	418 // stack now contains: -1 => nil; -2 => table
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	419 while (lua_next(lua_, -2))
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	420 {
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	421 // 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	422 // copy the key so that lua_tostring does not modify the original
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	423 lua_pushvalue(lua_, -2);
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	424 // stack now contains: -1 => key; -2 => value; -3 => key; -4 => table
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	425 std::string key(lua_tostring(lua_, -1));
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	426 Json::Value v;
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	427 GetJson(v, -2, keepStrings);
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	428
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	429 tmp[key] = v;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	430
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	431 size += 1;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	432 try
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	433 {
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	434 if (!OnlyContainsDigits(key) \|\|
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	435 boost::lexical_cast<size_t>(key) != size)
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	436 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	437 isArray = false;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	438 }
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	439 }
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	440 catch (boost::bad_lexical_cast&)
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	441 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	442 isArray = false;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	443 }
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	444
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	445 // pop value + copy of key, leaving original key
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	446 lua_pop(lua_, 2);
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	447 // stack now contains: -1 => key; -2 => table
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 // 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	450 // but does not push anything.)
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	451 // Pop table
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	452 lua_pop(lua_, 1);
1447 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 // 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	455
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	456 if (isArray)
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	457 {
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	458 result = Json::arrayValue;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	459 for (size_t i = 0; i < size; i++)
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	460 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	461 result.append(tmp[boost::lexical_cast<std::string>(i + 1)]);
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	462 }
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	463 }
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	464 else
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	465 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	466 result = tmp;
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	467 }
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	468 }
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	469 else if (lua_isnil(lua_, top))
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	470 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	471 result = Json::nullValue;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	472 }
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	473 else if (!keepStrings &&
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	474 lua_isboolean(lua_, top))
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	475 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	476 result = lua_toboolean(lua_, top) ? true : false;
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	477 }
1658 54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	478 else if (!keepStrings &&
54bafe0e7e7b Optional argument "keepStrings" in "DumpJson()" Sebastien Jodogne <s.jodogne@gmail.com> parents: 1606 diff changeset	479 lua_isnumber(lua_, top))
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	480 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	481 // Convert to "int" if truncation does not loose precision
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	482 double value = static_cast<double>(lua_tonumber(lua_, top));
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	483 int truncated = static_cast<int>(value);
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	484
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	485 if (std::abs(value - static_cast<double>(truncated)) <=
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	486 std::numeric_limits<double>::epsilon())
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	487 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	488 result = truncated;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	489 }
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	490 else
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	491 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	492 result = value;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	493 }
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	494 }
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	495 else if (lua_isstring(lua_, top))
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	496 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	497 // Caution: The "lua_isstring()" case must be the last, since
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	498 // Lua can convert most types to strings by default.
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	499 result = std::string(lua_tostring(lua_, top));
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	500 }
2220 0fb6e0461105 fix handling of Booleans in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1900 diff changeset	501 else if (lua_isboolean(lua_, top))
0fb6e0461105 fix handling of Booleans in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1900 diff changeset	502 {
0fb6e0461105 fix handling of Booleans in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1900 diff changeset	503 result = lua_toboolean(lua_, top) ? true : false;
0fb6e0461105 fix handling of Booleans in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1900 diff changeset	504 }
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	505 else
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	506 {
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	507 LOG(WARNING) << "Unsupported Lua type when returning Json";
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	508 result = Json::nullValue;
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1447 diff changeset	509 }
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	510 }
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	511
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	512
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	513 LuaContext::LuaContext()
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 lua_ = luaL_newstate();
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	516 if (!lua_)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	517 {
1583 9ea3d082b064 got rid of custom exceptions Sebastien Jodogne <s.jodogne@gmail.com> parents: 1545 diff changeset	518 throw OrthancException(ErrorCode_CannotCreateLua);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	519 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	520
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	521 luaL_openlibs(lua_);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	522 lua_register(lua_, "print", PrintToLog);
1447 5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	523 lua_register(lua_, "ParseJson", ParseJson);
5ba7471780ae refactoring: HttpToolbox, DumpJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1438 diff changeset	524 lua_register(lua_, "DumpJson", DumpJson);
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1002 diff changeset	525 lua_register(lua_, "HttpGet", CallHttpGet);
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	526 lua_register(lua_, "HttpPost", CallHttpPost);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	527 lua_register(lua_, "HttpPut", CallHttpPut);
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	528 lua_register(lua_, "HttpDelete", CallHttpDelete);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	529 lua_register(lua_, "SetHttpCredentials", SetHttpCredentials);
1437 02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	530
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	531 SetGlobalVariable("_LuaContext", this);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	532 }
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 LuaContext::~LuaContext()
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	536 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	537 lua_close(lua_);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	538 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	539
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	540
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	541 void LuaContext::ExecuteInternal(std::string* output,
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	542 const std::string& command)
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	543 {
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	544 log_.clear();
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	545 int error = (luaL_loadbuffer(lua_, command.c_str(), command.size(), "line") \|\|
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	546 lua_pcall(lua_, 0, 0, 0));
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	547
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	548 if (error)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	549 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	550 assert(lua_gettop(lua_) >= 1);
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	551
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	552 std::string description(lua_tostring(lua_, -1));
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	553 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	554 LOG(ERROR) << "Error while executing Lua script: " << description;
1583 9ea3d082b064 got rid of custom exceptions Sebastien Jodogne <s.jodogne@gmail.com> parents: 1545 diff changeset	555 throw OrthancException(ErrorCode_CannotExecuteLua);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	556 }
418 b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	557
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	558 if (output != NULL)
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	559 {
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	560 *output = log_;
b79bf2f4ab2e execution of lua through REST Sebastien Jodogne <s.jodogne@gmail.com> parents: 397 diff changeset	561 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	562 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	563
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	564
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	565 void LuaContext::Execute(EmbeddedResources::FileResourceId resource)
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	566 {
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	567 std::string command;
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	568 EmbeddedResources::GetFileResource(command, resource);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	569 ExecuteInternal(NULL, command);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	570 }
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	571
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	572
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	573 bool LuaContext::IsExistingFunction(const char* name)
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	574 {
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	575 lua_settop(lua_, 0);
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	576 lua_getglobal(lua_, name);
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	577 return lua_type(lua_, -1) == LUA_TFUNCTION;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	578 }
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	579
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	580
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	581 void LuaContext::Execute(Json::Value& output,
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	582 const std::string& command)
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	583 {
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	584 std::string s;
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	585 ExecuteInternal(&s, command);
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 Json::Reader reader;
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	588 if (!reader.parse(s, output))
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	589 {
1596 f2e3d030ea59 BadJson error code Sebastien Jodogne <s.jodogne@gmail.com> parents: 1583 diff changeset	590 throw OrthancException(ErrorCode_BadJson);
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	591 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	592 }
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1052 diff changeset	593
1437 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 void LuaContext::RegisterFunction(const char* name,
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	596 lua_CFunction func)
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	597 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	598 lua_register(lua_, name, func);
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
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	601
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	602 void LuaContext::SetGlobalVariable(const char* name,
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	603 void* value)
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 lua_pushlightuserdata(lua_, value);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	606 lua_setglobal(lua_, 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
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	609
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	610 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	611 const char* name)
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	612 {
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	613 lua_getglobal(state, name);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	614 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	615 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	616 lua_pop(state, 1);
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	617 return value;
02f5a3f5c0a0 access to the REST API from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1288 diff changeset	618 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	619 }

Mercurial > hg > orthanc

annotate Core/Lua/LuaContext.cpp @ 2244:a3a65de1840f