Mercurial > hg > orthanc

comparison Core/Lua/LuaContext.cpp @ 386:7dec4f3c922c lua-scripting

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lua wrapper
author Sebastien Jodogne <s.jodogne@gmail.com>
date Mon, 29 Apr 2013 17:14:10 +0200
parents
children 941ea46e9e26
comparison
equal deleted inserted replaced
384:18fe778eeb95 386:7dec4f3c922c
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 }