summaryrefslogtreecommitdiffstats
path: root/tdevprj2tdevelop
diff options
context:
space:
mode:
Diffstat (limited to 'tdevprj2tdevelop')
-rw-r--r--tdevprj2tdevelop299
1 files changed, 299 insertions, 0 deletions
diff --git a/tdevprj2tdevelop b/tdevprj2tdevelop
new file mode 100644
index 00000000..79966df0
--- /dev/null
+++ b/tdevprj2tdevelop
@@ -0,0 +1,299 @@
+#!/usr/bin/perl
+
+if ($#ARGV != 0) {
+ die "Need one argument";
+}
+
+$filename = $ARGV[0];
+unless ($filename =~ /\.kdevprj/) {
+ die "Not a .kdevprj file";
+}
+
+
+$ingeneral = 0;
+$inlfvgroups = 0;
+
+open(FILE, "<$filename") || die "File not found";
+while (<FILE>) {
+ if (/\[General\]/) {
+ $ingeneral = 1;
+ $inlfvgroups = 0;
+ $inbin = 0;
+ } elsif (/\[LFV Groups\]/) {
+ $ingeneral = 0;
+ $inlfvgroups = 1;
+ $inbin = 0;
+ } elsif (/\[Config for BinMakefileAm\]/) {
+ $ingeneral = 0;
+ $inlfvgroups = 0;
+ $inbin = 1;
+ } elsif (/\[(.*)\]/) {
+ push(@sourcefiles, $1);
+ $ingeneral = 0;
+ $inlfvgroups = 0;
+ $inbin = 0;
+ }
+
+ if ($ingeneral) {
+ if (/^author=(.*)/) {
+ $author = $1;
+ } elsif (/^configure_args=(.*)/) {
+ $configure_args = $1;
+ } elsif (/^email=(.*)/) {
+ $email = $1;
+ } elsif (/^make_options=(.*)/) {
+ $make_options = $1;
+ if ($makeoptions =~ /-n/) {
+ $dontact = "true";
+ }
+ if ($makeoptions =~ /-j([0-9]+)/) {
+ $numberofjobs = $1;
+ }
+ if ($makeoptions =~ /-f/) {
+ $abortonerror = "true";
+ }
+ } elsif (/^project_name=(.*)/) {
+ $project_name = $1;
+ } elsif (/^project_type=(.*)/) {
+ $project_type = $1;
+ } elsif (/^sub_dir=([^\/]*)/) {
+ $subdir = $1;
+ }
+ }
+
+ if ($inlfvgroups) {
+ if (/^groups=(.*)/) {
+ $lfvgroups = $1;
+ } elsif (/(.*)=(.*)/) {
+ $group = $1;
+ $pattern = $2;
+ $pattern =~ s/^(.*),$/$1/;
+ $lfvgrouppattern{$group} = $pattern;
+ }
+ }
+
+ if ($inbin) {
+ if (/^bin_program=(.*)/) {
+ $bin_program = $1;
+ } elsif (/^path_to_bin_program=(.*)/) {
+ $path_to_bin_program = $1;
+ $path_to_bin_program =~ s#^\./(.*)$#$1#;
+ $path_to_bin_program =~ s#^(.*)/#$1#;
+ $path_to_bin_program = $path_to_bin_program . "/";
+ } elsif (/^cflags=(.*)/) {
+ $cflags = $1;
+ } elsif (/^cxxflags=(.*)/) {
+ $cxxflags = $1;
+ }
+ }
+
+}
+close FILE;
+
+# Choose language support
+$primarylanguage = "C++";
+if ($project_type eq "normal_c"
+ || $project_type eq "normal_gnome") {
+ $primarylanguage = "C";
+}
+
+# Choose project management
+$projectmanagement = "TDevCustomProject";
+if ($project_type =~ /normal_kde|mini_kde|normalogl_kde|normal_kde2|mini_kde2|mdi_kde2/
+ || $project_type =~ /kde2_normal|kicker_app|tdeio_slave|kc_module|kpart_plugin|ktheme/) {
+ $projectmanagement = "KDevTDEAutoProject";
+}
+if ($project_type =~ /normal_cpp/) {
+ $projectmanagement = "KDevAutoProject";
+}
+
+# Keywords
+if ($project_type =~ /normal_kde|mini_kde|normalogl_kde|normal_kde2|mini_kde2|mdi_kde2/
+ || $project_type =~ /kde2_normal|kicker_app|tdeio_slave|kc_module|kpart_plugin|ktheme/) {
+ $keywords = $keywords . ",KDE";
+}
+if ($project_type =~ /normal_kde|mini_kde|normalogl_kde|normal_kde2|mini_kde2|mdi_kde2/
+ || $project_type =~ /kde2_normal|kicker_app|tdeio_slave|kc_module|kpart_plugin|ktheme/
+ || $project_type =~ /normal_qt|normal_qt2|mdi_qt2|mdi_qextmdi/) {
+ $keywords = $keywords . ",Qt";
+}
+
+
+##
+## Let's go: write project file
+##
+
+$projectfilename = $filename;
+$projectfilename =~ s/^(.*)\.kdevprj$/$1.tdevelop/;
+open(FILE, ">$projectfilename");
+
+print FILE <<EOF;
+<!DOCTYPE tdevelop>
+<tdevelop>
+ <general>
+ <author>$author</author>
+ <email>$email</email>
+ <projectmanagement>$projectmanagement</projectmanagement>
+ <primarylanguage>$primarylanguage</primarylanguage>
+ <keywords>
+EOF
+
+foreach $key (split(/,/, $keywords)) {
+ next if ($key eq "");
+ print FILE <<EOF;
+ <keyword>$key</keyword>
+EOF
+}
+
+print FILE <<EOF;
+ </keywords>
+ </general>
+EOF
+
+# auto project specific
+
+if ($projectmanagement eq "KDevAutoProject" || $projectmanagement eq "KDevTDEAutoProject") {
+ print FILE <<EOF;
+ <kdevautoproject>
+ <general>
+ <mainprogram>$path_to_bin_program$bin_program</mainprogram>
+ </general>
+ <configure>
+ <configargs>$configure_args</configargs>
+ </configure>
+ <make>
+ <abortonerror>$abortonerror</abortonerror>
+ <numberofjobs>$numberofjobs</numberofjobs>
+ <dontact>$dontact</dontact>
+ <makebin/>
+ </make>
+ <compiler>
+ <cflags>$cflags</cflags>
+ <cxxflags>$cxxflags</cxxflags>
+ </compiler>
+ </kdevautoproject>
+EOF
+}
+
+if ($project_management eq "TDevCustomProject") {
+ print FILE <<EOF;
+ <kdevcustomproject>
+ <general>
+ <mainprogram>$path_to_bin_program/$bin_program</mainprogram>
+ </general>
+ <make>
+ <abortonerror>$abortonerror</abortonerror>
+ <numberofjobs>$numberofjobs</numberofjobs>
+ <dontact>$dontact</dontact>
+ <makebin/>
+ </make>
+ </kdevcustomproject>
+EOF
+}
+
+
+# file view
+print FILE <<EOF;
+ <tdevfileview>
+ <groups>
+EOF
+
+for $group (split /,/, $lfvgroups) {
+ next if ($group eq "");
+ $pattern = $lfvgrouppattern{$group};
+ $pattern =~ s/,/;/g;
+ print FILE <<EOF;
+ <group pattern="$pattern" name="$group" />
+EOF
+}
+
+print FILE <<EOF;
+ </groups>
+ </tdevfileview>
+ <tdevdoctreeview>
+ <ignoretocs>
+ <toc>gtk</toc>
+ <toc>gnustep</toc>
+ <toc>python</toc>
+ <toc>php</toc>
+ <toc>perl</toc>
+ </ignoretocs>
+ </tdevdoctreeview>
+EOF
+
+if ($projectmanagement eq "KDevAutoProject"
+ || $projectmanagement eq "KDevTDEAutoProject") {
+ print FILE <<EOF;
+ <kdevdebugger>
+ <general>
+ <dbgshell>libtool</dbgshell>
+ </general>
+ </kdevdebugger>
+EOF
+}
+
+print FILE <<EOF;
+</tdevelop>
+EOF
+close FILE;
+
+
+##
+## Write file list
+##
+
+if ($projectmanagement eq "TDevCustomProject") {
+ $filelistfilename = $filename;
+ $filelistfilename =~ s/^(.*).kdevprj$/$1.filelist/;
+ open(FILE, ">$filelistfilename");
+ for $file (@sourcefiles) {
+ print FILE "$file\n";
+ }
+ close FILE;
+}
+
+
+##
+## Convert templates
+##
+
+$projectdir = "";
+if ($filename =~ m#(.*/)[^/]*#) {
+ $projectdir = $1;
+}
+
+$oldtemplatedir = "${projectdir}$subdir/templates";
+
+if (open(FILE, "$oldtemplatedir/cpp_template")) {
+ mkdir "${projectdir}templates";
+ if (open(OFILE, ">${projectdir}templates/cpp")) {
+ while(<FILE>) {
+ s/\|EMAIL\|/\$EMAIL\$/;
+ s/\|AUTHOR\|/\$AUTHOR\$/;
+ s/\|VERSION\|/\$VERSION\$/;
+ s/\|DATE\|/\$DATE\$/;
+ s/\|YEAR\|/\$YEAR\$/;
+ s/\|FILENAME\|/\$FILENAME\$/;
+ print OFILE $_;
+ }
+ close OFILE;
+ }
+ close FILE;
+}
+
+if (open(FILE, "$oldtemplatedir/header_template")) {
+ mkdir "${projectdir}templates";
+ if (open(OFILE, ">${projectdir}templates/h")) {
+ while(<FILE>) {
+ s/\|EMAIL\|/\$EMAIL\$/;
+ s/\|AUTHOR\|/\$AUTHOR\$/;
+ s/\|VERSION\|/\$VERSION\$/;
+ s/\|DATE\|/\$DATE\$/;
+ s/\|YEAR\|/\$YEAR\$/;
+ s/\|FILENAME\|/\$FILENAME\$/;
+ print OFILE $_;
+ }
+ close OFILE;
+ }
+ close FILE;
+}