|
386
|
1 /**
|
|
|
2 * Orthanc - A Lightweight, RESTful DICOM Store
|
|
|
3 * Copyright (C) 2012-2013 Medical Physics Department, CHU of Liege,
|
|
|
4 * Belgium
|
|
|
5 *
|
|
|
6 * This program is free software: you can redistribute it and/or
|
|
|
7 * modify it under the terms of the GNU General Public License as
|
|
|
8 * published by the Free Software Foundation, either version 3 of the
|
|
|
9 * License, or (at your option) any later version.
|
|
|
10 *
|
|
|
11 * In addition, as a special exception, the copyright holders of this
|
|
|
12 * program give permission to link the code of its release with the
|
|
|
13 * OpenSSL project's "OpenSSL" library (or with modified versions of it
|
|
|
14 * that use the same license as the "OpenSSL" library), and distribute
|
|
|
15 * the linked executables. You must obey the GNU General Public License
|
|
|
16 * in all respects for all of the code used other than "OpenSSL". If you
|
|
|
17 * modify file(s) with this exception, you may extend this exception to
|
|
|
18 * your version of the file(s), but you are not obligated to do so. If
|
|
|
19 * you do not wish to do so, delete this exception statement from your
|
|
|
20 * version. If you delete this exception statement from all source files
|
|
|
21 * in the program, then also delete it here.
|
|
|
22 *
|
|
|
23 * This program is distributed in the hope that it will be useful, but
|
|
|
24 * WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
25 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
26 * General Public License for more details.
|
|
|
27 *
|
|
|
28 * You should have received a copy of the GNU General Public License
|
|
|
29 * along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
30 **/
|
|
|
31
|
|
|
32
|
|
|
33 #include "LuaContext.h"
|
|
|
34
|
|
|
35 #include <glog/logging.h>
|
|
|
36
|
|
|
37 extern "C"
|
|
|
38 {
|
|
|
39 #include <lualib.h>
|
|
|
40 #include <lauxlib.h>
|
|
|
41 }
|
|
|
42
|
|
|
43 namespace Orthanc
|
|
|
44 {
|
|
|
45 int LuaContext::PrintToLog(lua_State *L)
|
|
|
46 {
|
|
|
47 // http://medek.wordpress.com/2009/02/03/wrapping-lua-errors-and-print-function/
|
|
|
48 int nArgs = lua_gettop(L);
|
|
|
49 lua_getglobal(L, "tostring");
|
|
|
50
|
|
|
51 // Make sure you start at 1 *NOT* 0 for arrays in Lua.
|
|
|
52 std::string result;
|
|
|
53
|
|
|
54 for (int i = 1; i <= nArgs; i++)
|
|
|
55 {
|
|
|
56 const char *s;
|
|
|
57 lua_pushvalue(L, -1);
|
|
|
58 lua_pushvalue(L, i);
|
|
|
59 lua_call(L, 1, 1);
|
|
|
60 s = lua_tostring(L, -1);
|
|
|
61
|
|
|
62 if (result.size() > 0)
|
|
|
63 result.append(", ");
|
|
|
64
|
|
|
65 if (s == NULL)
|
|
|
66 result.append("<No conversion to string>");
|
|
|
67 else
|
|
|
68 result.append(s);
|
|
|
69
|
|
|
70 lua_pop(L, 1);
|
|
|
71 }
|
|
|
72
|
|
|
73 LOG(WARNING) << "Lua: " << result;
|
|
|
74
|
|
|
75 return 0;
|
|
|
76 }
|
|
|
77
|
|
|
78
|
|
|
79 LuaContext::LuaContext()
|
|
|
80 {
|
|
|
81 lua_ = luaL_newstate();
|
|
|
82 if (!lua_)
|
|
|
83 {
|
|
|
84 throw LuaException("Unable to create the Lua context");
|
|
|
85 }
|
|
|
86
|
|
|
87 luaL_openlibs(lua_);
|
|
|
88 lua_register(lua_, "print", PrintToLog);
|
|
|
89 }
|
|
|
90
|
|
|
91
|
|
|
92 LuaContext::~LuaContext()
|
|
|
93 {
|
|
|
94 lua_close(lua_);
|
|
|
95 }
|
|
|
96
|
|
|
97
|
|
|
98 void LuaContext::Execute(const std::string& command)
|
|
|
99 {
|
|
|
100 boost::mutex::scoped_lock lock(mutex_);
|
|
|
101
|
|
|
102 lua_settop(lua_, 0);
|
|
|
103
|
|
|
104 int error = (luaL_loadbuffer(lua_, command.c_str(), command.size(), "line") ||
|
|
|
105 lua_pcall(lua_, 0, 0, 0));
|
|
|
106
|
|
|
107 if (error)
|
|
|
108 {
|
|
|
109 assert(lua_gettop(lua_) >= 1);
|
|
|
110
|
|
|
111 std::string description(lua_tostring(lua_, -1));
|
|
|
112 lua_pop(lua_, 1); /* pop error message from the stack */
|
|
|
113 throw LuaException(description);
|
|
|
114 }
|
|
|
115 }
|
|
|
116
|
|
|
117
|
|
|
118 void LuaContext::Execute(EmbeddedResources::FileResourceId resource)
|
|
|
119 {
|
|
|
120 std::string command;
|
|
|
121 EmbeddedResources::GetFileResource(command, resource);
|
|
|
122 Execute(command);
|
|
|
123 }
|
|
|
124 }
|
