summaryrefslogtreecommitdiffstats
path: root/languages/perl
diff options
context:
space:
mode:
Diffstat (limited to 'languages/perl')
-rw-r--r--languages/perl/CMakeLists.txt7
-rw-r--r--languages/perl/app_templates/perlhello/CMakeLists.txt18
-rw-r--r--languages/perl/app_templates/perlhello/perlhello11
-rw-r--r--languages/perl/app_templates/perlhello/perlhello.kdevtemplate93
-rw-r--r--languages/perl/kdevperlsupport.desktop84
-rw-r--r--languages/perl/perlconfigwidget.h2
-rw-r--r--languages/perl/perldoc.cpp6
-rw-r--r--languages/perl/perlsupportpart.cpp44
-rw-r--r--languages/perl/perlsupportpart.h2
9 files changed, 64 insertions, 203 deletions
diff --git a/languages/perl/CMakeLists.txt b/languages/perl/CMakeLists.txt
index e458c240..8bb6b09f 100644
--- a/languages/perl/CMakeLists.txt
+++ b/languages/perl/CMakeLists.txt
@@ -30,7 +30,12 @@ link_directories(
##### other data ################################
-install( FILES kdevperlsupport.desktop perldoc.protocol DESTINATION ${SERVICES_INSTALL_DIR} )
+tde_create_translated_desktop(
+ SOURCE kdevperlsupport.desktop perldoc.protocol
+ DESTINATION ${SERVICES_INSTALL_DIR}
+ PO_DIR tdevelop-desktops
+)
+
install( FILES kdevperlsupport.rc DESTINATION ${DATA_INSTALL_DIR}/kdevperlsupport )
diff --git a/languages/perl/app_templates/perlhello/CMakeLists.txt b/languages/perl/app_templates/perlhello/CMakeLists.txt
index 507c6f7e..cfbf3eaa 100644
--- a/languages/perl/app_templates/perlhello/CMakeLists.txt
+++ b/languages/perl/app_templates/perlhello/CMakeLists.txt
@@ -9,10 +9,15 @@
#
#################################################
-add_custom_target( perlhello.tar.gz ALL
- COMMAND ${TAR} zcf perlhello.tar.gz -C ${CMAKE_CURRENT_SOURCE_DIR}
+set( _tarball_content
app.pl app.kdevelop
)
+list( SORT _tarball_content )
+
+tde_create_tarball(
+ TARGET perlhello.tar.gz
+ FILES ${_tarball_content}
+)
install( FILES
@@ -20,6 +25,9 @@ install( FILES
DESTINATION ${DATA_INSTALL_DIR}/kdevappwizard )
-install( FILES
- perlhello.kdevtemplate
- DESTINATION ${DATA_INSTALL_DIR}/kdevappwizard/templates )
+tde_create_translated_desktop(
+ SOURCE perlhello.kdevtemplate
+ DESTINATION ${DATA_INSTALL_DIR}/kdevappwizard/templates
+ KEYWORDS Category
+ PO_DIR tdevelop-desktops
+)
diff --git a/languages/perl/app_templates/perlhello/perlhello b/languages/perl/app_templates/perlhello/perlhello
index 1f015e1b..18636dcd 100644
--- a/languages/perl/app_templates/perlhello/perlhello
+++ b/languages/perl/app_templates/perlhello/perlhello
@@ -1,10 +1,11 @@
-# KDE Config File
+# TDE Config File
[General]
Name=Simple Perl script
-Name[fr]=Un simple script de test Hello world
-Icon=camel.png
-Category=Perl
+
Comment=This generates a simplistic 'Hello world' program in Perl (http://www.perl.org)
-Comment[fr]=Gnre un simple script de test du type Hello world dans le language PERL (http://www.perl.org).
+
+Category=Perl
+
+Icon=camel.png
FileTemplates=perl,ShellStyle
ShowFilesAfterGeneration=APPNAMELC.pl
diff --git a/languages/perl/app_templates/perlhello/perlhello.kdevtemplate b/languages/perl/app_templates/perlhello/perlhello.kdevtemplate
index ead7b5b8..6ebc83cf 100644
--- a/languages/perl/app_templates/perlhello/perlhello.kdevtemplate
+++ b/languages/perl/app_templates/perlhello/perlhello.kdevtemplate
@@ -1,65 +1,12 @@
-# KDE Config File
+# TDE Config File
[General]
Name=Simple Perl script
-Name[ca]=Simple script en Perl
-Name[da]=Simpelt Perl script
-Name[de]=Einfaches Perl-Skript
-Name[el]=Απλό σενάριο Perl
-Name[es]=Guión sencillo en Perl
-Name[et]=Lihtne Perli skript
-Name[eu]=Perl script sinplea
-Name[fa]=دست‌نوشتۀ سادۀ پرل
-Name[fr]=Script Perl simple
-Name[ga]=Script shimplí Perl
-Name[gl]=Script sinxelo en Perl
-Name[hu]=Egyszerű Perl-szkript
-Name[it]=Semplice script Perl
-Name[ja]=簡単な Perl スクリプト
-Name[nds]=Eenfach Perl-Skript
-Name[ne]=साधारण पर्ल स्क्रिप्ट
-Name[nl]=Eenvoudig Perl-script
-Name[pl]=Prosty skrypt w Perlu
-Name[pt]=Programa simples em Perl
-Name[pt_BR]=Programa simples em Perl
-Name[ru]=Простой скрипт Perl
-Name[sk]=Jednoduchý Perl skript
-Name[sr]=Једноставна Perl скрипта
-Name[sr@Latn]=Jednostavna Perl skripta
-Name[sv]=Enkelt Perl-skript
-Name[tr]=Basit Perl betiği
-Name[zh_CN]=简单 Perl 脚本
-Name[zh_TW]=簡單的 Perl 文稿
-Icon=camel.png
-Category=Perl
+
Comment=This generates a simplistic 'Hello world' program in Perl (http://www.perl.org)
-Comment[ca]=Genera un simple programa de 'Hello world' en Perl (http://www.perl.org)
-Comment[da]=Dette genererer et simplistisk 'Goddag verden' program i Perl (http://www.perl.org)
-Comment[de]=Hiermit wird ein einfaches "Hello World"-Programm in Perl erstellt (http://www.perl.org).
-Comment[el]=Αυτό δημιουργεί ένα απλό πρόγραμμα 'Γεια σου κόσμε' σε Perl (http://www.perl.org)
-Comment[es]=Genera un programa «Hola mundo» sencillo en Perl (http://www.perl.org)
-Comment[et]=Lihtsa "Tere, maailm" programmi loomine Perlis (http://www.perl.org)
-Comment[eu]=Honek "Kaixo mundua" Perl-en (http://www.perl.org) idatzitako programa sinple bat sortzen du.
-Comment[fa]=یک برنامۀ سادۀ «Hello world» در پرل (http://www.perl.org) تولید می‌کند
-Comment[fr]=Génère un programme « Bonjour monde » simple en Perl (http://www.perl.org)
-Comment[ga]=Cruthaíonn sé seo ríomhchlár simplí "Hello world" i Perl (http://www.perl.org/)
-Comment[gl]=Isto xera un programa sinxelo en Perl 'Ola mundo'(http://www.perl.org)
-Comment[hu]=Létrehoz egy egyszerű 'Hello world' programot Perlben (http://www.perl.org)
-Comment[it]=Genera un semplice programma di "Hello world" in Perl (http://www.perl.org)
-Comment[ja]=Perl で書かれた簡単な Hello world プログラムを作成します
-Comment[nds]=Dit stellt en eenfach "Moin Welt"-Programm in Perl op.(http://www.perl.org).
-Comment[ne]=यसले पर्लमा साधारण 'हेल्लो वोल्ड' कार्यक्रम उत्पन्न गर्दछ (http://www.perl.org)
-Comment[nl]=Dit genereert een eenvoudig Hello World-programma in Perl (http://www.perl.org)
-Comment[pl]=Generuje prosty skrypt "Witaj świecie" w Perlu (http://www.perl.org)
-Comment[pt]=Isto gera um programa simples 'Olá mundo' em Perl (http://www.perl.org)
-Comment[pt_BR]=Isto gera um programa simples 'Olá mundo' em Perl (http://www.perl.org)
-Comment[ru]=Создание простой программы 'Hello world' на Perl (http://www.perl.org)
-Comment[sk]=Vygeneruje jednoduchý Ahoj svet program v Perl (http://www.perl.org)
-Comment[sr]=Прави једноставан „Здраво свете“ програм у Perl-у (http://www.perl.org)
-Comment[sr@Latn]=Pravi jednostavan „Zdravo svete“ program u Perl-u (http://www.perl.org)
-Comment[sv]=Detta skapar ett förenklat 'Hello world'-program i Perl (http://www.perl.org)
-Comment[tr]=Bu, Perl'de basit bir "Merhaba Dünya" programı yaratır (http://www.perl.org)
-Comment[zh_CN]=这将生成一个简单的 Perl 语言“Hello world”程序
-Comment[zh_TW]=產生一個簡單的 Perl （http://www.perl.org） 的 Hello world 程式
+
+Category=Perl
+
+Icon=camel.png
FileTemplates=perl,ShellStyle
ShowFilesAfterGeneration=%{dest}/%{APPNAMELC}.pl
Archive=perlhello.tar.gz
@@ -78,31 +25,3 @@ Dest=%{dest}/%{APPNAMELC}.pl
[MSG]
Type=message
Comment=A simple Perl script was created in %{dest}
-Comment[ca]=Un simple script en Perl ha estat creat en %{dest}
-Comment[da]=Et simpelt Perl script blev oprettet i %{dest}
-Comment[de]=Ein einfaches Perl-Skript wurde in %{dest} erstellt.
-Comment[el]=Ένα απλό σενάριο Perl δημιουργήθηκε στο %{dest}
-Comment[es]=Un sencillo guión en Perl ha sido creado en %{dest}
-Comment[et]=Lihtne Perli skript loodi asukohta %{dest}
-Comment[eu]=Perl script sinple bat sortu da hemen: %{dest}
-Comment[fa]=یک دست‌نوشتۀ سادۀ پرل در %{dest} ایجاد شد
-Comment[fr]=Un script Perl simple a été créé dans %{dest}
-Comment[ga]=Cruthaíodh script shimplí Perl i %{dest}
-Comment[gl]=Creouse un script sinxelo en Perl en %{dest}
-Comment[hu]=Létrejött egy egyszerű Perl-szkript itt: %{dest}
-Comment[it]=È stato creato un semplice script Perl in %{dest}
-Comment[ja]=簡単な Perl スクリプトを %{dest} に作成しました
-Comment[nds]=In %{dest} wöör en eenfach Perl-Skript opstellt.
-Comment[ne]=साधारण पर्ल स्क्रिप्ट %{dest} मा सिर्जना गरियो
-Comment[nl]=Een eenvoudig Perl-script is aangemaakt in %{dest}
-Comment[pl]=Prosty skrypt w Perlu został utworzony w %{dest}
-Comment[pt]=Foi criado um programa simples em Perl em %{dest}
-Comment[pt_BR]=Foi criado um programa simples em Perl em %{dest}
-Comment[ru]=Простой скрипт Perl создан в %{dest}
-Comment[sk]=Jednoduchý Perl skript bol vytvorený v %{dest}
-Comment[sr]=Једноставна Perl скрипта направљена је у %{dest}
-Comment[sr@Latn]=Jednostavna Perl skripta napravljena je u %{dest}
-Comment[sv]=Ett enkelt Perl-skript skapades i %{dest}
-Comment[tr]=Basit Perl betiği %{dest} içinde yaratıldı.
-Comment[zh_CN]=在 %{dest} 创建了一个简单的 Perl 脚本
-Comment[zh_TW]=一個簡單的 Perl 文稿已建立於 %{dest}
diff --git a/languages/perl/kdevperlsupport.desktop b/languages/perl/kdevperlsupport.desktop
index 7ba0cecd..82b2a512 100644
--- a/languages/perl/kdevperlsupport.desktop
+++ b/languages/perl/kdevperlsupport.desktop
@@ -1,85 +1,13 @@
[Desktop Entry]
-Type=Service
-Exec=blubb
-Comment=Perl Support
-Comment[ca]=Suport per a Perl
-Comment[da]=Perl-understøttelse
-Comment[de]=Perl-Unterstützung für TDevelop
-Comment[el]=Υποστήριξη Perl
-Comment[es]=Soporte para Perl
-Comment[et]=Perli toetus
-Comment[eu]=Perl euskarria
-Comment[fa]=پشتیبانی پرل
-Comment[fr]=Prise en charge du langage Perl
-Comment[ga]=Tacaíocht Perl
-Comment[gl]=Soporte para Perl
-Comment[hi]=पर्ल समर्थन
-Comment[hu]=Perl-támogatás
-Comment[is]=Perl stuðningur
-Comment[it]=Supporto Perl
-Comment[ja]=Perl サポート
-Comment[nds]=Ünnerstütten för Perl
-Comment[ne]=पर्ल समर्थन
-Comment[nl]=Ondersteuning voor Perl
-Comment[pl]=Obsługa Perla
-Comment[pt]=Suporte a Perl
-Comment[pt_BR]=Suporte ao Perl
-Comment[ru]=Поддержка языка Perl
-Comment[sk]=Perl podpora
-Comment[sl]=Podpora za perl
-Comment[sr]=Подршка за Perl
-Comment[sr@Latn]=Podrška za Perl
-Comment[sv]=Perl-stöd
-Comment[ta]=பெர்ல் ஆதரவு
-Comment[tg]=Ёрӣ намудани забони Perl
-Comment[tr]=Perl Desteği
-Comment[zh_CN]=Perl 支持
-Comment[zh_TW]=Perl 支援
Name=KDevPerlSupport
-Name[da]=TDevelop Perl-understøttelse
-Name[de]=Unterstützung für Perl (TDevelop)
-Name[hi]=के-डेव-पर्ल-समर्थन
-Name[nds]=Perl-Ünnerstütten för TDevelop
-Name[pl]=KDevObsługaPerla
-Name[sk]=KDev Perl podpora
-Name[sv]=TDevelop Perl-stöd
-Name[ta]=கெடெவ் பெர்ல் ஆதரவு
-Name[zh_TW]=TDevelop Perl 支援
+
GenericName=Perl Support
-GenericName[ca]=Suport per a Perl
-GenericName[da]=Perl-understøttelse
-GenericName[de]=Unterstützung für Perl
-GenericName[el]=Υποστήριξη Perl
-GenericName[es]=Soporte para Perl
-GenericName[et]=Perli toetus
-GenericName[eu]=Perl euskarria
-GenericName[fa]=پشتیبانی پرل
-GenericName[fr]=Prise en charge du langage PERL
-GenericName[ga]=Tacaíocht Perl
-GenericName[gl]=Soporte para Perl
-GenericName[hi]=पर्ल समर्थन
-GenericName[hu]=Perl-támogatás
-GenericName[it]=Supporto per Perl
-GenericName[ja]=Perl サポート
-GenericName[nds]=Ünnerstütten för Perl
-GenericName[ne]=पर्ल समर्थन
-GenericName[nl]=Ondersteuning voor Perl
-GenericName[pl]=Obsługa Perla
-GenericName[pt]=Suporte a Perl
-GenericName[pt_BR]=Suporte ao Perl
-GenericName[ru]=Поддержка языка Perl
-GenericName[sk]=Perl podpora
-GenericName[sl]=Podpora za perl
-GenericName[sr]=Подршка за Perl
-GenericName[sr@Latn]=Podrška za Perl
-GenericName[sv]=Perl-stöd
-GenericName[ta]=பெர்ல் ஆதரவு
-GenericName[tg]=Ёрӣ намудани забони Perl
-GenericName[tr]=Perl Desteği
-GenericName[zh_CN]=Perl 支持
-GenericName[zh_TW]=Perl 支援
+
+Comment=Perl Support
+
+Type=Service
+Exec=blubb
X-TDE-ServiceTypes=TDevelop/LanguageSupport
X-TDE-Library=libkdevperlsupport
X-TDevelop-Version=5
X-TDevelop-Language=Perl
-
diff --git a/languages/perl/perlconfigwidget.h b/languages/perl/perlconfigwidget.h
index 743bd1bc..1484d42b 100644
--- a/languages/perl/perlconfigwidget.h
+++ b/languages/perl/perlconfigwidget.h
@@ -18,7 +18,7 @@
class PerlConfigWidget : public PerlConfigWidgetBase
{
- Q_OBJECT
+ TQ_OBJECT
public:
diff --git a/languages/perl/perldoc.cpp b/languages/perl/perldoc.cpp
index 4255d633..63a23af5 100644
--- a/languages/perl/perldoc.cpp
+++ b/languages/perl/perldoc.cpp
@@ -8,9 +8,9 @@
#include <tqtextstream.h>
#include <kdebug.h>
#include <tdelocale.h>
-#include <kstandarddirs.h>
-#include <kinstance.h>
-#include <kprocess.h>
+#include <tdestandarddirs.h>
+#include <tdeinstance.h>
+#include <tdeprocess.h>
#include <tdeversion.h>
#include <tdeglobal.h>
diff --git a/languages/perl/perlsupportpart.cpp b/languages/perl/perlsupportpart.cpp
index 3236e72e..910e9f7e 100644
--- a/languages/perl/perlsupportpart.cpp
+++ b/languages/perl/perlsupportpart.cpp
@@ -28,7 +28,7 @@
#include <kstatusbar.h>
#include "kdevmainwindow.h"
-#include <kprocess.h>
+#include <tdeprocess.h>
#include <stdlib.h>
#include <unistd.h>
@@ -45,45 +45,45 @@
//#include "programmingbycontract.h"
typedef KDevGenericFactory<PerlSupportPart> PerlSupportFactory;
-static const KDevPluginInfo data("kdevperlsupport");
-K_EXPORT_COMPONENT_FACTORY( libkdevperlsupport, PerlSupportFactory( data ) )
+static const KDevPluginInfo pluginData("kdevperlsupport");
+K_EXPORT_COMPONENT_FACTORY( libkdevperlsupport, PerlSupportFactory( pluginData ) )
PerlSupportPart::PerlSupportPart(TQObject *parent, const char *name, const TQStringList &)
- : KDevLanguageSupport(&data, parent, name ? name : "PerlSupportPart")
+ : KDevLanguageSupport(&pluginData, parent, name ? name : "PerlSupportPart")
{
setInstance(PerlSupportFactory::instance());
setXMLFile("kdevperlsupport.rc");
- connect( core(), TQT_SIGNAL(projectOpened()), this, TQT_SLOT(projectOpened()) );
- connect( core(), TQT_SIGNAL(projectClosed()), this, TQT_SLOT(projectClosed()) );
- connect( partController(), TQT_SIGNAL(savedFile(const KURL&)),
- this, TQT_SLOT(savedFile(const KURL&)) );
+ connect( core(), TQ_SIGNAL(projectOpened()), this, TQ_SLOT(projectOpened()) );
+ connect( core(), TQ_SIGNAL(projectClosed()), this, TQ_SLOT(projectClosed()) );
+ connect( partController(), TQ_SIGNAL(savedFile(const KURL&)),
+ this, TQ_SLOT(savedFile(const KURL&)) );
TDEAction *action;
action = new TDEAction( i18n("Execute Main Program"), "application-x-executable", 0,
- this, TQT_SLOT(slotExecute()),
+ this, TQ_SLOT(slotExecute()),
actionCollection(), "build_exec" );
action->setToolTip( i18n("Runs the Perl program") );
action = new TDEAction( i18n("Execute String..."), "application-x-executable", 0,
- this, TQT_SLOT(slotExecuteString()),
+ this, TQ_SLOT(slotExecuteString()),
actionCollection(), "build_execstring" );
action->setToolTip( i18n("Executes a string as Perl code") );
action = new TDEAction( i18n("Start Perl Interpreter"), "application-x-executable", 0,
- this, TQT_SLOT(slotStartInterpreter()),
+ this, TQ_SLOT(slotStartInterpreter()),
actionCollection(), "build_runinterpreter" );
action->setToolTip( i18n("Starts the Perl interpreter without a program") );
action = new TDEAction( i18n("Find Perl Function Documentation..."), 0,
- this, TQT_SLOT(slotPerldocFunction()),
+ this, TQ_SLOT(slotPerldocFunction()),
actionCollection(), "help_perldocfunction" );
action->setToolTip( i18n("Show the documentation page of a Perl function") );
action = new TDEAction( i18n("Find Perl FAQ Entry..."), 0,
- this, TQT_SLOT(slotPerldocFAQ()),
+ this, TQ_SLOT(slotPerldocFAQ()),
actionCollection(), "help_perldocfaq" );
action->setToolTip( i18n("Show the FAQ entry for a keyword") );
@@ -106,14 +106,14 @@ void PerlSupportPart::projectOpened()
{
kdDebug(9007) << "projectOpened()" << endl;
- connect( project(), TQT_SIGNAL(addedFilesToProject(const TQStringList &)),
- this, TQT_SLOT(addedFilesToProject(const TQStringList &)) );
- connect( project(), TQT_SIGNAL(removedFilesFromProject(const TQStringList &)),
- this, TQT_SLOT(removedFilesFromProject(const TQStringList &)) );
+ connect( project(), TQ_SIGNAL(addedFilesToProject(const TQStringList &)),
+ this, TQ_SLOT(addedFilesToProject(const TQStringList &)) );
+ connect( project(), TQ_SIGNAL(removedFilesFromProject(const TQStringList &)),
+ this, TQ_SLOT(removedFilesFromProject(const TQStringList &)) );
// We want to parse only after all components have been
// properly initialized
- TQTimer::singleShot(0, this, TQT_SLOT(initialParse()));
+ TQTimer::singleShot(0, this, TQ_SLOT(initialParse()));
}
@@ -262,9 +262,9 @@ void PerlSupportPart::initialParse()
if (project()) {
//copy from cpp support : give user some feedback
mainWindow()->statusBar()->message( i18n("Updating...") );
- kapp->processEvents( );
+ tdeApp->processEvents( );
- kapp->setOverrideCursor(waitCursor);
+ tdeApp->setOverrideCursor(waitCursor);
TQStringList files = project()->allFiles();
m_parser->initialParse();
@@ -281,7 +281,7 @@ void PerlSupportPart::initialParse()
//update progress bar
bar->setProgress( n++ );
if( (n%5) == 0 )
- kapp->processEvents();
+ tdeApp->processEvents();
}
parseUseFiles();
emit updatedSourceInfo();
@@ -289,7 +289,7 @@ void PerlSupportPart::initialParse()
//remove progressbar
mainWindow( )->statusBar( )->removeWidget( bar );
delete bar;
- kapp->restoreOverrideCursor();
+ tdeApp->restoreOverrideCursor();
mainWindow()->statusBar()->message( i18n("Done") );
} else {
diff --git a/languages/perl/perlsupportpart.h b/languages/perl/perlsupportpart.h
index 00c6bc69..409d7bec 100644
--- a/languages/perl/perlsupportpart.h
+++ b/languages/perl/perlsupportpart.h
@@ -18,7 +18,7 @@
class PerlSupportPart : public KDevLanguageSupport
{
- Q_OBJECT
+ TQ_OBJECT
public:
generated by cgit v1.2.3 (git 2.46.0) at 2025-10-19 18:38:07 +0000