diff options
| author |   Unit 193 <unit193@unit193.net> | 2023-04-30 18:30:36 -0400 |
|---|---|---|
| committer | Unit 193 <unit193@unit193.net> | 2023-04-30 18:30:36 -0400 |
| commit | 3565aad630864ecdbe53fdaa501ea708555b3c7c (patch) | |
| tree | c743e4ad0bad39ebdb2f514c7cc52d34a257ebbe /Plugins/ScriptingTcl | |
| parent | 1fdc150116cad39aae5c5da407c3312b47a59e3a (diff) | |
New upstream version 3.4.4+dfsg.upstream/3.4.4+dfsg
Diffstat (limited to 'Plugins/ScriptingTcl')
58 files changed, 972 insertions, 321 deletions
diff --git a/Plugins/ScriptingTcl/ScriptingTcl.pro b/Plugins/ScriptingTcl/ScriptingTcl.pro index 85d7740..80a11fe 100644 --- a/Plugins/ScriptingTcl/ScriptingTcl.pro +++ b/Plugins/ScriptingTcl/ScriptingTcl.pro @@ -42,9 +42,8 @@ linux: { message("Looking for $$TCL_CONFIG") } !exists($$TCL_CONFIG) { - # Debian case - DEBIAN_ARCH_PATH=$$system(dpkg-architecture -qDEB_HOST_MULTIARCH) - TCL_CONFIG = /usr/lib/$$DEBIAN_ARCH_PATH/tcl$$TCL_VERSION/tclConfig.sh + # Debian, FreeBSD, Ubuntu Bionic case + TCL_CONFIG = $$system(echo "puts [::tcl::pkgconfig get libdir,runtime]" | tclsh)/tcl$$TCL_VERSION/tclConfig.sh } message("Looking for $$TCL_CONFIG") !exists($$TCL_CONFIG) { @@ -81,27 +80,18 @@ linux: { macx: { # Find tclsh - #TCLSH = $$system(echo "puts 1" | tclsh) - #!contains(TCLSH, 1): { - # error("Could not find tclsh executable. ScriptingTcl plugin requires it to find out all Tcl libraries and headers. Make tclsh available in PATH.") - #} - #TCLSH = $$system(which tclsh) + TCLSH = $$system(echo "puts 1" | tclsh) + !contains(TCLSH, 1): { + error("Could not find tclsh executable. ScriptingTcl plugin requires it to find out all Tcl libraries and headers. Make tclsh available in PATH.") + } + TCLSH = $$system(which tclsh) # Find its version - #TCL_VERSION = $$system(echo "puts [info tclversion]" | tclsh) - #message("Found tclsh: $$TCLSH (version: $$TCL_VERSION)") + TCL_VERSION = $$system(echo "puts [info tclversion]" | tclsh) + message("Found tclsh: $$TCLSH (version: $$TCL_VERSION)") # Find tclConfig.sh - #TCL_CONFIG_DIR = $$system(echo "puts [info library]" | tclsh) - #TCL_CONFIG = $$TCL_CONFIG_DIR/../../tclConfig.sh - - XCRUN = $$system(xcrun --version) - !contains(XCRUN, xcrun): { - error("Could not find xcrun executable. ScriptingTcl plugin requires it to find out all Tcl libraries and headers.") - } - - SDK_PATH = $$system(xcrun --show-sdk-path) - TCL_CONFIG = $$SDK_PATH/System/Library/Frameworks/Tcl.framework/Versions/Current/tclConfig.sh + TCL_CONFIG = $$system(echo "puts [::tcl::pkgconfig get libdir,runtime]" | tclsh)/tclConfig.sh # Define other libs required when linking with Tcl eval($$system(cat $$TCL_CONFIG | grep TCL_LIBS)) @@ -148,31 +138,3 @@ win32: { RESOURCES += \ scriptingtcl.qrc - - -TRANSLATIONS += ScriptingTcl_ro_RO.ts \ - ScriptingTcl_de.ts \ - ScriptingTcl_it.ts \ - ScriptingTcl_zh_CN.ts \ - ScriptingTcl_sk.ts \ - ScriptingTcl_ru.ts \ - ScriptingTcl_pt_BR.ts \ - ScriptingTcl_fr.ts \ - ScriptingTcl_es.ts \ - ScriptingTcl_pl.ts - - - - - - - - - - - - - - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_de.qm b/Plugins/ScriptingTcl/ScriptingTcl_de.qm Binary files differdeleted file mode 100644 index 9dad8df..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_de.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_de.ts b/Plugins/ScriptingTcl/ScriptingTcl_de.ts deleted file mode 100644 index 4433954..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_de.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="de_DE"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation type="unfinished"></translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_es.qm b/Plugins/ScriptingTcl/ScriptingTcl_es.qm Binary files differdeleted file mode 100644 index 9dad8df..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_es.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_es.ts b/Plugins/ScriptingTcl/ScriptingTcl_es.ts deleted file mode 100644 index c1244be..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_es.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="es_ES"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation type="unfinished"></translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_fr.qm b/Plugins/ScriptingTcl/ScriptingTcl_fr.qm Binary files differdeleted file mode 100644 index f172932..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_fr.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_fr.ts b/Plugins/ScriptingTcl/ScriptingTcl_fr.ts deleted file mode 100644 index a810f23..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_fr.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="fr_FR"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation>Aucune base de données valide dans le contexte courant, appeler la commande Tcl’s « %1 ».</translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation>Syntaxe de commande invalide « %1 ». Devrait être : %2</translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation>Erreur de la commande Tcl « %1 » : %2</translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_it.qm b/Plugins/ScriptingTcl/ScriptingTcl_it.qm Binary files differdeleted file mode 100644 index 9dad8df..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_it.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_it.ts b/Plugins/ScriptingTcl/ScriptingTcl_it.ts deleted file mode 100644 index ae772c8..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_it.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="it_IT"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation type="unfinished"></translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_pl.qm b/Plugins/ScriptingTcl/ScriptingTcl_pl.qm Binary files differdeleted file mode 100644 index 1232971..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_pl.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_pl.ts b/Plugins/ScriptingTcl/ScriptingTcl_pl.ts deleted file mode 100644 index 7766394..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_pl.ts +++ /dev/null @@ -1,26 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="pl_PL"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <oldsource>No database available in current context, while called Tcl's 'db' command.</oldsource> - <translation>Brak dostępnej bazy w bieżącym kontekście, podczas wywołania polecenie Tcl '%1'.</translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <oldsource>Invalid 'db' command sytax. Should be: db eval sql</oldsource> - <translation>Niepoprawna składnia polecenia '%1'. Powinno być: %2</translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <oldsource>Error from Tcl's' 'db' command: %1</oldsource> - <translation>Wystąpił błąd w poleceniu Tcl '%1': %2</translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.qm b/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.qm Binary files differdeleted file mode 100644 index c02994c..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.ts b/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.ts deleted file mode 100644 index 513e55b..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="pt_BR"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation type="unfinished"></translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.qm b/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.qm Binary files differdeleted file mode 100644 index 2856eb9..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.ts b/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.ts deleted file mode 100644 index 5396db4..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="ro_RO"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation type="unfinished"></translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_ru.qm b/Plugins/ScriptingTcl/ScriptingTcl_ru.qm Binary files differdeleted file mode 100644 index df87278..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_ru.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_ru.ts b/Plugins/ScriptingTcl/ScriptingTcl_ru.ts deleted file mode 100644 index 7a2c2d9..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_ru.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="ru_RU"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation>При вызове команды Tcl %1 в текущем контексте нет доступных баз данных.</translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation>Некорректный синтаксис команды '%1'. Должно быть: %2</translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation>Ошибка в команде Tcl '%1': %2</translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_sk.qm b/Plugins/ScriptingTcl/ScriptingTcl_sk.qm Binary files differdeleted file mode 100644 index 1776294..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_sk.qm +++ /dev/null diff --git a/Plugins/ScriptingTcl/ScriptingTcl_sk.ts b/Plugins/ScriptingTcl/ScriptingTcl_sk.ts deleted file mode 100644 index 6e9733e..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_sk.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="sk_SK"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation type="unfinished"></translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/ScriptingTcl_zh_CN.qm b/Plugins/ScriptingTcl/ScriptingTcl_zh_CN.qm deleted file mode 100644 index be651ee..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_zh_CN.qm +++ /dev/null @@ -1 +0,0 @@ -<d! `
\ No newline at end of file diff --git a/Plugins/ScriptingTcl/ScriptingTcl_zh_CN.ts b/Plugins/ScriptingTcl/ScriptingTcl_zh_CN.ts deleted file mode 100644 index 8c120c9..0000000 --- a/Plugins/ScriptingTcl/ScriptingTcl_zh_CN.ts +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<!DOCTYPE TS> -<TS version="2.1" language="zh_CN"> -<context> - <name>ScriptingTcl</name> - <message> - <location filename="scriptingtcl.cpp" line="411"/> - <source>No database available in current context, while called Tcl's '%1' command.</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="433"/> - <source>Invalid '%1' command sytax. Should be: %2</source> - <translation type="unfinished"></translation> - </message> - <message> - <location filename="scriptingtcl.cpp" line="445"/> - <location filename="scriptingtcl.cpp" line="576"/> - <source>Error from Tcl's' '%1' command: %2</source> - <translation type="unfinished"></translation> - </message> -</context> -</TS> diff --git a/Plugins/ScriptingTcl/scriptingtcl.cpp b/Plugins/ScriptingTcl/scriptingtcl.cpp index cc48aa0..2754afe 100644 --- a/Plugins/ScriptingTcl/scriptingtcl.cpp +++ b/Plugins/ScriptingTcl/scriptingtcl.cpp @@ -20,7 +20,7 @@ ScriptingTcl::~ScriptingTcl() bool ScriptingTcl::init() { - Q_INIT_RESOURCE(scriptingtcl); + SQLS_INIT_RESOURCE(scriptingtcl); QMutexLocker locker(mainInterpMutex); mainContext = new ContextTcl(); return true; @@ -31,7 +31,7 @@ void ScriptingTcl::deinit() QMutexLocker locker(mainInterpMutex); safe_delete(mainContext); Tcl_Finalize(); - Q_CLEANUP_RESOURCE(scriptingtcl); + SQLS_CLEANUP_RESOURCE(scriptingtcl); } QString ScriptingTcl::getLanguage() const @@ -106,21 +106,21 @@ QString ScriptingTcl::getIconPath() const return ":/scriptingtcl/scriptingtcl.png"; } -QVariant ScriptingTcl::evaluate(ScriptingPlugin::Context* context, const QString& code, const QList<QVariant>& args, Db* db, bool locking) +QVariant ScriptingTcl::evaluate(ScriptingPlugin::Context* context, const QString& code, const FunctionInfo& funcInfo, + const QList<QVariant>& args, Db* db, bool locking) { ContextTcl* ctx = getContext(context); if (!ctx) return QVariant(); - setArgs(ctx, args); - return compileAndEval(ctx, code, db, locking); + return compileAndEval(ctx, code, funcInfo, args, db, locking); } -QVariant ScriptingTcl::evaluate(const QString& code, const QList<QVariant>& args, Db* db, bool locking, QString* errorMessage) +QVariant ScriptingTcl::evaluate(const QString& code, const FunctionInfo& funcInfo, const QList<QVariant>& args, + Db* db, bool locking, QString* errorMessage) { QMutexLocker locker(mainInterpMutex); - setArgs(mainContext, args); - QVariant results = compileAndEval(mainContext, code, db, locking); + QVariant results = compileAndEval(mainContext, code, funcInfo, args, db, locking); if (errorMessage && !mainContext->error.isEmpty()) *errorMessage = mainContext->error; @@ -137,21 +137,25 @@ ScriptingTcl::ContextTcl* ScriptingTcl::getContext(ScriptingPlugin::Context* con return ctx; } -QVariant ScriptingTcl::compileAndEval(ScriptingTcl::ContextTcl* ctx, const QString& code, Db* db, bool locking) +QVariant ScriptingTcl::compileAndEval(ScriptingTcl::ContextTcl* ctx, const QString& code, const FunctionInfo& funcInfo, + const QList<QVariant>& args, Db* db, bool locking) { - ScriptObject* scriptObj = nullptr; - if (!ctx->scriptCache.contains(code)) - { - scriptObj = new ScriptObject(code); - ctx->scriptCache.insert(code, scriptObj); - } - else - { - scriptObj = ctx->scriptCache[code]; - } + ScriptObject* scriptObj = getScript(code, funcInfo, ctx); + Tcl_ResetResult(ctx->interp); ctx->error.clear(); + setArgs(ctx, args); + + int i = 0; + for (const QString& key : funcInfo.getArguments()) + { + if (i >= args.size()) + break; + + setVariable(ctx, key, args[i++]); + } + ctx->db = db; ctx->useDbLocking = locking; @@ -180,6 +184,19 @@ void ScriptingTcl::setArgs(ScriptingTcl::ContextTcl* ctx, const QList<QVariant>& setVariable(ctx, "argv", args); } +ScriptingTcl::ScriptObject* ScriptingTcl::getScript(const QString code, const ScriptingPlugin::FunctionInfo& funcInfo, ContextTcl* ctx) +{ + static const QString keyTpl = QStringLiteral("{%1} %2"); + + QString key = keyTpl.arg(funcInfo.getArguments().join(" "), code); + if (ctx->scriptCache.contains(key)) + return ctx->scriptCache[key]; + + ScriptObject* scriptObj = new ScriptObject(code); + ctx->scriptCache.insert(key, scriptObj); + return scriptObj; +} + Tcl_Obj* ScriptingTcl::argsToList(const QList<QVariant>& args) { Tcl_Obj** objArray = new Tcl_Obj*[args.size()]; @@ -431,7 +448,7 @@ int ScriptingTcl::dbCommand(ClientData clientData, Tcl_Interp* interp, int objc, return dbEvalOneColumn(ctx, interp, objv); } - result = Tcl_NewStringObj(tr("Invalid '%1' command sytax. Should be: %2").arg("db", "db eval sql").toUtf8().constData(), -1); + result = Tcl_NewStringObj(tr("Invalid '%1' command syntax. Should be: %2").arg("db", "db eval sql").toUtf8().constData(), -1); Tcl_SetObjResult(interp, result); return TCL_ERROR; } @@ -443,7 +460,7 @@ int ScriptingTcl::initTclCommand(ClientData clientData, Tcl_Interp* interp, int if (objc > 1) { - Tcl_Obj* result = Tcl_NewStringObj(tr("Error from Tcl's' '%1' command: %2").arg("tcl_init", "invalid # args: tcl_init").toUtf8().constData(), -1); + Tcl_Obj* result = Tcl_NewStringObj(tr("Error from Tcl's '%1' command: %2").arg("tcl_init", "invalid # args: tcl_init").toUtf8().constData(), -1); Tcl_SetObjResult(interp, result); return TCL_ERROR; } 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<QVariant>& args, Db* db, bool locking = false); - QVariant evaluate(const QString& code, const QList<QVariant>& args, Db* db, bool locking = false, QString* errorMessage = nullptr); + QVariant evaluate(Context* context, const QString& code, const FunctionInfo& funcInfo, + const QList<QVariant>& args, Db* db, bool locking = false); + QVariant evaluate(const QString& code, const FunctionInfo& funcInfo, const QList<QVariant>& 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<QVariant>& args, Db* db, bool locking); QVariant extractResult(ContextTcl* ctx); void setArgs(ContextTcl* ctx, const QList<QVariant>& args); + ScriptObject* getScript(const QString code, const FunctionInfo& funcInfo, ContextTcl* ctx); static Tcl_Obj* argsToList(const QList<QVariant>& args); static QVariant tclObjToVariant(Tcl_Obj* obj); diff --git a/Plugins/ScriptingTcl/scriptingtcl.qrc b/Plugins/ScriptingTcl/scriptingtcl.qrc index f0da6f5..8a0d047 100644 --- a/Plugins/ScriptingTcl/scriptingtcl.qrc +++ b/Plugins/ScriptingTcl/scriptingtcl.qrc @@ -2,19 +2,4 @@ <qresource prefix="/scriptingtcl"> <file>scriptingtcl.png</file> </qresource> - <qresource prefix="/msg"> - <file>ScriptingTcl_ro_RO.qm</file> - <file>ScriptingTcl_de.qm</file> - - - <file>ScriptingTcl_pl.qm</file> - <file>ScriptingTcl_ru.qm</file> - <file>ScriptingTcl_fr.qm</file> - <file>ScriptingTcl_sk.qm</file> - <file>ScriptingTcl_zh_CN.qm</file> - </qresource> </RCC> - - - - diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl.ts new file mode 100644 index 0000000..2b6df14 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished"/> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished"/> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished"/> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished"/> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_af_ZA.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_af_ZA.ts new file mode 100644 index 0000000..0c2a7fc --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_af_ZA.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="af" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_ar_SA.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_ar_SA.ts new file mode 100644 index 0000000..6ebc14c --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_ar_SA.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="ar" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_ca_ES.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_ca_ES.ts new file mode 100644 index 0000000..1df64bc --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_ca_ES.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="ca" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_cs_CZ.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_cs_CZ.ts new file mode 100644 index 0000000..c410384 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_cs_CZ.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="cs" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_da_DK.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_da_DK.ts new file mode 100644 index 0000000..1b8f5bf --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_da_DK.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="da" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_de_DE.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_de_DE.ts new file mode 100644 index 0000000..7cb0a8b --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_de_DE.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="de" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_el_GR.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_el_GR.ts new file mode 100644 index 0000000..f218ab3 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_el_GR.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="el" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_en_US.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_en_US.ts new file mode 100644 index 0000000..afd699a --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_en_US.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="en" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_es_ES.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_es_ES.ts new file mode 100644 index 0000000..6f043cf --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_es_ES.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="es-ES" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>No hay una base de datos disponible en el contexto actual mientras se llamaba al comando de Tcl's '%1'.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Error del comando de Tcl's' '%1': %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_fa_IR.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_fa_IR.ts new file mode 100644 index 0000000..78e47d6 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_fa_IR.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="fa" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_fi_FI.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_fi_FI.ts new file mode 100644 index 0000000..dc8df47 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_fi_FI.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="fi" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_fr_FR.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_fr_FR.ts new file mode 100644 index 0000000..e963cae --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_fr_FR.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="fr" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>Aucune base de données disponible dans le contexte actuel, tant que TCL '%1' est utilisé.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation>Syntaxe de commande '%1' invalide. Devrait être : %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation>Erreur de TCL '%1' commande : %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Erreur de TCL '%1' commande : %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_he_IL.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_he_IL.ts new file mode 100644 index 0000000..4d78b02 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_he_IL.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="he" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>אין מסד נתונים זמין בהקשר נוכחי, בקריאה לפקודת Tcl '%1'.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>שגיאה מפקודת Tcl'''%1': %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_hu_HU.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_hu_HU.ts new file mode 100644 index 0000000..0a84624 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_hu_HU.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="hu" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_it_IT.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_it_IT.ts new file mode 100644 index 0000000..d48fbc7 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_it_IT.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="it" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>Nessun database disponibile nel contesto attuale, mentre si richiamava il comando QtScript %1.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation>Sintassi del comando non valida '%1' dovrebbe essere: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation>Errore da Tcls' '%1' comando: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Errore da Tcl's' '%1' comando: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_ja_JP.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_ja_JP.ts new file mode 100644 index 0000000..79d7062 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_ja_JP.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="ja" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_kaa.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_kaa.ts new file mode 100644 index 0000000..f3230e1 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_kaa.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="kaa" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_ko_KR.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_ko_KR.ts new file mode 100644 index 0000000..49f4df9 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_ko_KR.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="ko" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_nl_NL.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_nl_NL.ts new file mode 100644 index 0000000..920739f --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_nl_NL.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="nl" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_no_NO.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_no_NO.ts new file mode 100644 index 0000000..4af53f3 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_no_NO.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="no" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_pl_PL.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_pl_PL.ts new file mode 100644 index 0000000..0fb9377 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_pl_PL.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="pl" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>Brak dostępnej bazy w bieżącym kontekście, podczas wywołania polecenie Tcl '%1'.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation>Niepoprawna składnia polecenia '%1'. Powinno być: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation>Wystąpił błąd w poleceniu Tcl '%1': %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Wystąpił błąd w poleceniu Tcl '%1': %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_pt_BR.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_pt_BR.ts new file mode 100644 index 0000000..59d495c --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_pt_BR.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="pt-BR" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>Nenhum banco de dados disponível no contexto atual, enquanto chamado comando Tcl 's '%1'</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation>Síntaxe inválida do comando '%1'. Tente: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation>Erro Tcl %1' comando: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Erro de Tcl 's '%1' comando: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_pt_PT.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_pt_PT.ts new file mode 100644 index 0000000..6141c94 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_pt_PT.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="pt-PT" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_ro_RO.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_ro_RO.ts new file mode 100644 index 0000000..343f6dc --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_ro_RO.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="ro" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_ru_RU.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_ru_RU.ts new file mode 100644 index 0000000..3eaf3df --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_ru_RU.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="ru" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>При вызове команды Tcl %1 в текущем контексте нет доступных баз данных.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation>Некорректный синтаксис команды '%1'. Должно быть: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation>Ошибка в команде Tcl '%1': %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Ошибка в команде Tcl '%1': %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_sk_SK.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_sk_SK.ts new file mode 100644 index 0000000..6899532 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_sk_SK.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="sk" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_sr_SP.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_sr_SP.ts new file mode 100644 index 0000000..b03f665 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_sr_SP.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="sr" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_sv_SE.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_sv_SE.ts new file mode 100644 index 0000000..4c3357a --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_sv_SE.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="sv-SE" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_tr_TR.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_tr_TR.ts new file mode 100644 index 0000000..7e5d4ba --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_tr_TR.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="tr" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>Tcl's '%1' komutu sonucunda, uygun bir veritabanı bulunmuyor.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Tcl's' '%1'komutunda hata komut: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_uk_UA.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_uk_UA.ts new file mode 100644 index 0000000..11c4085 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_uk_UA.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="uk" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_vi_VN.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_vi_VN.ts new file mode 100644 index 0000000..bf2c657 --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_vi_VN.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="vi" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation type="unfinished">No database available in current context, while called Tcl's '%1' command.</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's' '%1' command: %2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_zh_CN.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_zh_CN.ts new file mode 100644 index 0000000..fd5f54c --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_zh_CN.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="zh-CN" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>调用 Tcl 的 '%1' 命令期间，当前上下文没有可用的数据库。</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation>命令'%1' 语法错误，应改正为：%2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Tcl 的 '%1' 命令错误：%2</translation> + </message> + </context> +</TS> diff --git a/Plugins/ScriptingTcl/translations/ScriptingTcl_zh_TW.ts b/Plugins/ScriptingTcl/translations/ScriptingTcl_zh_TW.ts new file mode 100644 index 0000000..96e252c --- /dev/null +++ b/Plugins/ScriptingTcl/translations/ScriptingTcl_zh_TW.ts @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="utf-8"?> +<!DOCTYPE TS> +<TS version="2.1" language="zh-TW" sourcelanguage="en"> + <context> + <name>ScriptingTcl</name> + <message> + <location filename="../scriptingtcl.cpp" line="429"/> + <source>No database available in current context, while called Tcl's '%1' command.</source> + <translation>呼叫 Tcl 命令 '%1' 期間，當前上下文沒有可用的資料庫。</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="451"/> + <source>Invalid '%1' command syntax. Should be: %2</source> + <translation type="unfinished">Invalid '%1' command syntax. Should be: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="463"/> + <source>Error from Tcl's '%1' command: %2</source> + <translation type="unfinished">Error from Tcl's '%1' command: %2</translation> + </message> + <message> + <location filename="../scriptingtcl.cpp" line="594"/> + <source>Error from Tcl's' '%1' command: %2</source> + <translation>Tcl 命令 '%1' 錯誤：%2</translation> + </message> + </context> +</TS> |