summaryrefslogtreecommitdiffstats
path: root/tdevprj2tdevelop
diff options
context:
space:
mode:
Diffstat (limited to 'tdevprj2tdevelop')
-rw-r--r--tdevprj2tdevelop299
1 files changed, 0 insertions, 299 deletions
diff --git a/tdevprj2tdevelop b/tdevprj2tdevelop
deleted file mode 100644
index 79966df0..00000000
--- a/tdevprj2tdevelop
+++ /dev/null
@@ -1,299 +0,0 @@
-#!/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;
-}