Finish renaming tdevelop components

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;
+}