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.pro | 58 ++++---------------- Plugins/ScriptingTcl/ScriptingTcl_de.qm | Bin 23 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_de.ts | 23 -------- Plugins/ScriptingTcl/ScriptingTcl_es.qm | Bin 23 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_es.ts | 23 -------- Plugins/ScriptingTcl/ScriptingTcl_fr.qm | Bin 665 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_fr.ts | 23 -------- Plugins/ScriptingTcl/ScriptingTcl_it.qm | Bin 23 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_it.ts | 23 -------- Plugins/ScriptingTcl/ScriptingTcl_pl.qm | Bin 653 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_pl.ts | 26 --------- Plugins/ScriptingTcl/ScriptingTcl_pt_BR.qm | Bin 23 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_pt_BR.ts | 23 -------- Plugins/ScriptingTcl/ScriptingTcl_ro_RO.qm | Bin 30 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_ro_RO.ts | 23 -------- Plugins/ScriptingTcl/ScriptingTcl_ru.qm | Bin 620 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_ru.ts | 23 -------- Plugins/ScriptingTcl/ScriptingTcl_sk.qm | Bin 27 -> 0 bytes Plugins/ScriptingTcl/ScriptingTcl_sk.ts | 23 -------- Plugins/ScriptingTcl/ScriptingTcl_zh_CN.qm | 1 - Plugins/ScriptingTcl/ScriptingTcl_zh_CN.ts | 23 -------- Plugins/ScriptingTcl/scriptingtcl.cpp | 59 +++++++++++++-------- Plugins/ScriptingTcl/scriptingtcl.h | 9 ++-- Plugins/ScriptingTcl/scriptingtcl.qrc | 15 ------ Plugins/ScriptingTcl/translations/ScriptingTcl.ts | 27 ++++++++++ .../translations/ScriptingTcl_af_ZA.ts | 27 ++++++++++ .../translations/ScriptingTcl_ar_SA.ts | 27 ++++++++++ .../translations/ScriptingTcl_ca_ES.ts | 27 ++++++++++ .../translations/ScriptingTcl_cs_CZ.ts | 27 ++++++++++ .../translations/ScriptingTcl_da_DK.ts | 27 ++++++++++ .../translations/ScriptingTcl_de_DE.ts | 27 ++++++++++ .../translations/ScriptingTcl_el_GR.ts | 27 ++++++++++ .../translations/ScriptingTcl_en_US.ts | 27 ++++++++++ .../translations/ScriptingTcl_es_ES.ts | 27 ++++++++++ .../translations/ScriptingTcl_fa_IR.ts | 27 ++++++++++ .../translations/ScriptingTcl_fi_FI.ts | 27 ++++++++++ .../translations/ScriptingTcl_fr_FR.ts | 27 ++++++++++ .../translations/ScriptingTcl_he_IL.ts | 27 ++++++++++ .../translations/ScriptingTcl_hu_HU.ts | 27 ++++++++++ .../translations/ScriptingTcl_it_IT.ts | 27 ++++++++++ .../translations/ScriptingTcl_ja_JP.ts | 27 ++++++++++ .../ScriptingTcl/translations/ScriptingTcl_kaa.ts | 27 ++++++++++ .../translations/ScriptingTcl_ko_KR.ts | 27 ++++++++++ .../translations/ScriptingTcl_nl_NL.ts | 27 ++++++++++ .../translations/ScriptingTcl_no_NO.ts | 27 ++++++++++ .../translations/ScriptingTcl_pl_PL.ts | 27 ++++++++++ .../translations/ScriptingTcl_pt_BR.ts | 27 ++++++++++ .../translations/ScriptingTcl_pt_PT.ts | 27 ++++++++++ .../translations/ScriptingTcl_ro_RO.ts | 27 ++++++++++ .../translations/ScriptingTcl_ru_RU.ts | 27 ++++++++++ .../translations/ScriptingTcl_sk_SK.ts | 27 ++++++++++ .../translations/ScriptingTcl_sr_SP.ts | 27 ++++++++++ .../translations/ScriptingTcl_sv_SE.ts | 27 ++++++++++ .../translations/ScriptingTcl_tr_TR.ts | 27 ++++++++++ .../translations/ScriptingTcl_uk_UA.ts | 27 ++++++++++ .../translations/ScriptingTcl_vi_VN.ts | 27 ++++++++++ .../translations/ScriptingTcl_zh_CN.ts | 27 ++++++++++ .../translations/ScriptingTcl_zh_TW.ts | 27 ++++++++++ 58 files changed, 972 insertions(+), 321 deletions(-) delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_de.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_de.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_es.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_es.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_fr.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_fr.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_it.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_it.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_pl.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_pl.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_pt_BR.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_pt_BR.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_ro_RO.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_ro_RO.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_ru.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_ru.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_sk.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_sk.ts delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_zh_CN.qm delete mode 100644 Plugins/ScriptingTcl/ScriptingTcl_zh_CN.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_af_ZA.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_ar_SA.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_ca_ES.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_cs_CZ.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_da_DK.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_de_DE.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_el_GR.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_en_US.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_es_ES.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_fa_IR.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_fi_FI.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_fr_FR.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_he_IL.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_hu_HU.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_it_IT.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_ja_JP.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_kaa.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_ko_KR.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_nl_NL.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_no_NO.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_pl_PL.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_pt_BR.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_pt_PT.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_ro_RO.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_ru_RU.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_sk_SK.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_sr_SP.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_sv_SE.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_tr_TR.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_uk_UA.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_vi_VN.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_zh_CN.ts create mode 100644 Plugins/ScriptingTcl/translations/ScriptingTcl_zh_TW.ts (limited to 'Plugins/ScriptingTcl') 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 deleted file mode 100644 index 9dad8df..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_de.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - - - - - Invalid '%1' command sytax. Should be: %2 - - - - - - Error from Tcl's' '%1' command: %2 - - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_es.qm b/Plugins/ScriptingTcl/ScriptingTcl_es.qm deleted file mode 100644 index 9dad8df..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_es.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - - - - - Invalid '%1' command sytax. Should be: %2 - - - - - - Error from Tcl's' '%1' command: %2 - - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_fr.qm b/Plugins/ScriptingTcl/ScriptingTcl_fr.qm deleted file mode 100644 index f172932..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_fr.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - Aucune base de données valide dans le contexte courant, appeler la commande Tcl’s « %1 ». - - - - Invalid '%1' command sytax. Should be: %2 - Syntaxe de commande invalide « %1 ». Devrait être : %2 - - - - - Error from Tcl's' '%1' command: %2 - Erreur de la commande Tcl « %1 » : %2 - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_it.qm b/Plugins/ScriptingTcl/ScriptingTcl_it.qm deleted file mode 100644 index 9dad8df..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_it.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - - - - - Invalid '%1' command sytax. Should be: %2 - - - - - - Error from Tcl's' '%1' command: %2 - - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_pl.qm b/Plugins/ScriptingTcl/ScriptingTcl_pl.qm deleted file mode 100644 index 1232971..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_pl.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - No database available in current context, while called Tcl's 'db' command. - Brak dostępnej bazy w bieżącym kontekście, podczas wywołania polecenie Tcl '%1'. - - - - Invalid '%1' command sytax. Should be: %2 - Invalid 'db' command sytax. Should be: db eval sql - Niepoprawna składnia polecenia '%1'. Powinno być: %2 - - - - - Error from Tcl's' '%1' command: %2 - Error from Tcl's' 'db' command: %1 - Wystąpił błąd w poleceniu Tcl '%1': %2 - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.qm b/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.qm deleted file mode 100644 index c02994c..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_pt_BR.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - - - - - Invalid '%1' command sytax. Should be: %2 - - - - - - Error from Tcl's' '%1' command: %2 - - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.qm b/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.qm deleted file mode 100644 index 2856eb9..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_ro_RO.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - - - - - Invalid '%1' command sytax. Should be: %2 - - - - - - Error from Tcl's' '%1' command: %2 - - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_ru.qm b/Plugins/ScriptingTcl/ScriptingTcl_ru.qm deleted file mode 100644 index df87278..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_ru.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - При вызове команды Tcl %1 в текущем контексте нет доступных баз данных. - - - - Invalid '%1' command sytax. Should be: %2 - Некорректный синтаксис команды '%1'. Должно быть: %2 - - - - - Error from Tcl's' '%1' command: %2 - Ошибка в команде Tcl '%1': %2 - - - diff --git a/Plugins/ScriptingTcl/ScriptingTcl_sk.qm b/Plugins/ScriptingTcl/ScriptingTcl_sk.qm deleted file mode 100644 index 1776294..0000000 Binary files a/Plugins/ScriptingTcl/ScriptingTcl_sk.qm and /dev/null differ 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - - - - - Invalid '%1' command sytax. Should be: %2 - - - - - - Error from Tcl's' '%1' command: %2 - - - - 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 @@ - - - - - ScriptingTcl - - - No database available in current context, while called Tcl's '%1' command. - - - - - Invalid '%1' command sytax. Should be: %2 - - - - - - Error from Tcl's' '%1' command: %2 - - - - 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& args, Db* db, bool locking) +QVariant ScriptingTcl::evaluate(ScriptingPlugin::Context* context, const QString& code, const FunctionInfo& funcInfo, + const QList& 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& args, Db* db, bool locking, QString* errorMessage) +QVariant ScriptingTcl::evaluate(const QString& code, const FunctionInfo& funcInfo, const QList& 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& 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& 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& 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& 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); 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 @@ scriptingtcl.png - - ScriptingTcl_ro_RO.qm - ScriptingTcl_de.qm - - - ScriptingTcl_pl.qm - ScriptingTcl_ru.qm - ScriptingTcl_fr.qm - ScriptingTcl_sk.qm - ScriptingTcl_zh_CN.qm - - - - - 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + + + + + Invalid '%1' command syntax. Should be: %2 + + + + + Error from Tcl's '%1' command: %2 + + + + + Error from Tcl's' '%1' command: %2 + + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No hay una base de datos disponible en el contexto actual mientras se llamaba al comando de Tcl's '%1'. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error del comando de Tcl's' '%1': %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + Aucune base de données disponible dans le contexte actuel, tant que TCL '%1' est utilisé. + + + + Invalid '%1' command syntax. Should be: %2 + Syntaxe de commande '%1' invalide. Devrait être : %2 + + + + Error from Tcl's '%1' command: %2 + Erreur de TCL '%1' commande : %2 + + + + Error from Tcl's' '%1' command: %2 + Erreur de TCL '%1' commande : %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + אין מסד נתונים זמין בהקשר נוכחי, בקריאה לפקודת Tcl '%1'. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + שגיאה מפקודת Tcl'''%1': %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + Nessun database disponibile nel contesto attuale, mentre si richiamava il comando QtScript %1. + + + + Invalid '%1' command syntax. Should be: %2 + Sintassi del comando non valida '%1' dovrebbe essere: %2 + + + + Error from Tcl's '%1' command: %2 + Errore da Tcls' '%1' comando: %2 + + + + Error from Tcl's' '%1' command: %2 + Errore da Tcl's' '%1' comando: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + Brak dostępnej bazy w bieżącym kontekście, podczas wywołania polecenie Tcl '%1'. + + + + Invalid '%1' command syntax. Should be: %2 + Niepoprawna składnia polecenia '%1'. Powinno być: %2 + + + + Error from Tcl's '%1' command: %2 + Wystąpił błąd w poleceniu Tcl '%1': %2 + + + + Error from Tcl's' '%1' command: %2 + Wystąpił błąd w poleceniu Tcl '%1': %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + Nenhum banco de dados disponível no contexto atual, enquanto chamado comando Tcl 's '%1' + + + + Invalid '%1' command syntax. Should be: %2 + Síntaxe inválida do comando '%1'. Tente: %2 + + + + Error from Tcl's '%1' command: %2 + Erro Tcl %1' comando: %2 + + + + Error from Tcl's' '%1' command: %2 + Erro de Tcl 's '%1' comando: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + При вызове команды Tcl %1 в текущем контексте нет доступных баз данных. + + + + Invalid '%1' command syntax. Should be: %2 + Некорректный синтаксис команды '%1'. Должно быть: %2 + + + + Error from Tcl's '%1' command: %2 + Ошибка в команде Tcl '%1': %2 + + + + Error from Tcl's' '%1' command: %2 + Ошибка в команде Tcl '%1': %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + Tcl's '%1' komutu sonucunda, uygun bir veritabanı bulunmuyor. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Tcl's' '%1'komutunda hata komut: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + No database available in current context, while called Tcl's '%1' command. + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Error from Tcl's' '%1' command: %2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + 调用 Tcl 的 '%1' 命令期间，当前上下文没有可用的数据库。 + + + + Invalid '%1' command syntax. Should be: %2 + 命令'%1' 语法错误，应改正为：%2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Tcl 的 '%1' 命令错误：%2 + + + 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 @@ + + + + + ScriptingTcl + + + No database available in current context, while called Tcl's '%1' command. + 呼叫 Tcl 命令 '%1' 期間，當前上下文沒有可用的資料庫。 + + + + Invalid '%1' command syntax. Should be: %2 + Invalid '%1' command syntax. Should be: %2 + + + + Error from Tcl's '%1' command: %2 + Error from Tcl's '%1' command: %2 + + + + Error from Tcl's' '%1' command: %2 + Tcl 命令 '%1' 錯誤：%2 + + + -- cgit v1.2.3