diff options
Diffstat (limited to 'tdevprj2tdevelop')
| -rw-r--r-- | tdevprj2tdevelop | 299 |
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; -} |