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 } |