From 3565aad630864ecdbe53fdaa501ea708555b3c7c Mon Sep 17 00:00:00 2001 From: Unit 193 Date: Sun, 30 Apr 2023 18:30:36 -0400 Subject: New upstream version 3.4.4+dfsg. --- Plugins/ScriptingTcl/scriptingtcl.h | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'Plugins/ScriptingTcl/scriptingtcl.h') diff --git a/Plugins/ScriptingTcl/scriptingtcl.h b/Plugins/ScriptingTcl/scriptingtcl.h index f853f07..eb81540 100644 --- a/Plugins/ScriptingTcl/scriptingtcl.h +++ b/Plugins/ScriptingTcl/scriptingtcl.h @@ -32,8 +32,10 @@ class SCRIPTINGTCLSHARED_EXPORT ScriptingTcl : public GenericPlugin, public DbAw bool hasError(Context* context) const; QString getErrorMessage(Context* context) const; QString getIconPath() const; - QVariant evaluate(Context* context, const QString& code, const QList& args, Db* db, bool locking = false); - QVariant evaluate(const QString& code, const QList& args, Db* db, bool locking = false, QString* errorMessage = nullptr); + QVariant evaluate(Context* context, const QString& code, const FunctionInfo& funcInfo, + const QList& args, Db* db, bool locking = false); + QVariant evaluate(const QString& code, const FunctionInfo& funcInfo, const QList& args, + Db* db, bool locking = false, QString* errorMessage = nullptr); private: class ScriptObject @@ -82,9 +84,10 @@ class SCRIPTINGTCLSHARED_EXPORT ScriptingTcl : public GenericPlugin, public DbAw }; ContextTcl* getContext(ScriptingPlugin::Context* context) const; - QVariant compileAndEval(ContextTcl* ctx, const QString& code, Db* db, bool locking); + QVariant compileAndEval(ContextTcl* ctx, const QString& code, const FunctionInfo& funcInfo, const QList& args, Db* db, bool locking); QVariant extractResult(ContextTcl* ctx); void setArgs(ContextTcl* ctx, const QList& args); + ScriptObject* getScript(const QString code, const FunctionInfo& funcInfo, ContextTcl* ctx); static Tcl_Obj* argsToList(const QList& args); static QVariant tclObjToVariant(Tcl_Obj* obj); -- cgit v1.2.3