Mercurial > hg > orthanc
annotate Core/Lua/LuaFunctionCall.cpp @ 996:cf52f3bcb2b3 lua-scripting
clarification of Lua classes wrt multithreading
author | Sebastien Jodogne <s.jodogne@gmail.com> |
---|---|
date | Thu, 03 Jul 2014 16:27:16 +0200 |
parents | a811bdf8b8eb |
children | 1b1d51e9f1a2 |
rev | line source |
---|---|
386 | 1 /** |
2 * Orthanc - A Lightweight, RESTful DICOM Store | |
689 | 3 * Copyright (C) 2012-2014 Medical Physics Department, CHU of Liege, |
386 | 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 | |
824
a811bdf8b8eb
precompiled headers
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
689
diff
changeset
|
33 #include "../PrecompiledHeaders.h" |
386 | 34 #include "LuaFunctionCall.h" |
35 | |
996
cf52f3bcb2b3
clarification of Lua classes wrt multithreading
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
824
diff
changeset
|
36 #include <cassert> |
cf52f3bcb2b3
clarification of Lua classes wrt multithreading
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
824
diff
changeset
|
37 |
386 | 38 |
39 namespace Orthanc | |
40 { | |
41 void LuaFunctionCall::CheckAlreadyExecuted() | |
42 { | |
43 if (isExecuted_) | |
44 { | |
45 throw LuaException("Arguments cannot be pushed after the function is executed"); | |
46 } | |
47 } | |
48 | |
49 LuaFunctionCall::LuaFunctionCall(LuaContext& context, | |
50 const char* functionName) : | |
51 context_(context), | |
52 isExecuted_(false) | |
53 { | |
54 // Clear the stack to fulfill the invariant | |
55 lua_settop(context_.lua_, 0); | |
56 lua_getglobal(context_.lua_, functionName); | |
57 } | |
58 | |
59 void LuaFunctionCall::PushString(const std::string& value) | |
60 { | |
61 CheckAlreadyExecuted(); | |
62 lua_pushstring(context_.lua_, value.c_str()); | |
63 } | |
64 | |
65 void LuaFunctionCall::PushBoolean(bool value) | |
66 { | |
67 CheckAlreadyExecuted(); | |
68 lua_pushboolean(context_.lua_, value); | |
69 } | |
70 | |
71 void LuaFunctionCall::PushInteger(int value) | |
72 { | |
73 CheckAlreadyExecuted(); | |
74 lua_pushinteger(context_.lua_, value); | |
75 } | |
76 | |
77 void LuaFunctionCall::PushDouble(double value) | |
78 { | |
79 CheckAlreadyExecuted(); | |
80 lua_pushnumber(context_.lua_, value); | |
81 } | |
82 | |
83 void LuaFunctionCall::PushJSON(const Json::Value& value) | |
84 { | |
85 CheckAlreadyExecuted(); | |
86 | |
87 if (value.isString()) | |
88 { | |
89 lua_pushstring(context_.lua_, value.asCString()); | |
90 } | |
91 else if (value.isDouble()) | |
92 { | |
93 lua_pushnumber(context_.lua_, value.asDouble()); | |
94 } | |
95 else if (value.isInt()) | |
96 { | |
97 lua_pushinteger(context_.lua_, value.asInt()); | |
98 } | |
99 else if (value.isUInt()) | |
100 { | |
101 lua_pushinteger(context_.lua_, value.asUInt()); | |
102 } | |
103 else if (value.isBool()) | |
104 { | |
105 lua_pushboolean(context_.lua_, value.asBool()); | |
106 } | |
107 else if (value.isNull()) | |
108 { | |
109 lua_pushnil(context_.lua_); | |
110 } | |
111 else if (value.isArray()) | |
112 { | |
113 lua_newtable(context_.lua_); | |
114 | |
115 // http://lua-users.org/wiki/SimpleLuaApiExample | |
116 for (Json::Value::ArrayIndex i = 0; i < value.size(); i++) | |
117 { | |
118 // Push the table index (note the "+1" because of Lua conventions) | |
119 lua_pushnumber(context_.lua_, i + 1); | |
120 | |
121 // Push the value of the cell | |
122 PushJSON(value[i]); | |
123 | |
124 // Stores the pair in the table | |
125 lua_rawset(context_.lua_, -3); | |
126 } | |
127 } | |
128 else if (value.isObject()) | |
129 { | |
130 lua_newtable(context_.lua_); | |
131 | |
132 Json::Value::Members members = value.getMemberNames(); | |
133 | |
134 for (Json::Value::Members::const_iterator | |
656 | 135 it = members.begin(); it != members.end(); ++it) |
386 | 136 { |
137 // Push the index of the cell | |
138 lua_pushstring(context_.lua_, it->c_str()); | |
139 | |
140 // Push the value of the cell | |
141 PushJSON(value[*it]); | |
142 | |
143 // Stores the pair in the table | |
144 lua_rawset(context_.lua_, -3); | |
145 } | |
146 } | |
147 else | |
148 { | |
149 throw LuaException("Unsupported JSON conversion"); | |
150 } | |
151 } | |
152 | |
153 void LuaFunctionCall::Execute(int numOutputs) | |
154 { | |
155 CheckAlreadyExecuted(); | |
156 | |
157 assert(lua_gettop(context_.lua_) >= 1); | |
158 int nargs = lua_gettop(context_.lua_) - 1; | |
159 int error = lua_pcall(context_.lua_, nargs, numOutputs, 0); | |
160 | |
161 if (error) | |
162 { | |
163 assert(lua_gettop(context_.lua_) >= 1); | |
164 | |
165 std::string description(lua_tostring(context_.lua_, -1)); | |
166 lua_pop(context_.lua_, 1); /* pop error message from the stack */ | |
167 throw LuaException(description); | |
168 } | |
169 | |
170 if (lua_gettop(context_.lua_) < numOutputs) | |
171 { | |
172 throw LuaException("The function does not give the expected number of outputs"); | |
173 } | |
174 | |
175 isExecuted_ = true; | |
176 } | |
177 | |
178 bool LuaFunctionCall::ExecutePredicate() | |
179 { | |
180 Execute(1); | |
181 | |
182 if (lua_gettop(context_.lua_) == 0) | |
183 { | |
184 throw LuaException("No output was provided by the function"); | |
185 } | |
186 | |
187 if (!lua_isboolean(context_.lua_, 1)) | |
188 { | |
189 throw LuaException("The function is not a predicate (only true/false outputs allowed)"); | |
190 } | |
191 | |
192 return lua_toboolean(context_.lua_, 1) != 0; | |
193 } | |
194 } |