1 files changed, 0 insertions, 37 deletions
diff --git a/examples/keil_output_folder.pl b/examples/keil_output_folder.pl
deleted file mode 100644
index 69afc65e9..000000000
--- a/examples/keil_output_folder.pl
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl
-
-use File::Spec;
-use File::Find;
-use File::Path;
-use File::Glob;
-use File::stat;
-#use Time::Piece;
-#use Time::Seconds;
-
-$" = "\n"; # change list separator
-@PROJECT_LIST = (<device/device*/*.uvproj>, <host/host*/*.uvproj>);
-print "@PROJECT_LIST";
-
-foreach (@PROJECT_LIST)
-{
-  my $project_file = $_;
-  my $backup_file = $project_file . ".bck";
- 
-  rename $project_file, $backup_file or die "cannot rename $project_file to $backup_file";
-  
-  open (fin, $backup_file) or die "Can't open $backup_file to read\n";
-  open (fout, ">$project_file") or die "Can't open $project_file to write\n";
-  
-  my $target;
-  while (<fin>)
-  {
-    s/(<TargetName>.+) /\1_/; # replace space by underscore in target name if found
-  
-    $target = $1 and print $target . "\n" if /<TargetName>(.+)</;
-    my $keil_build = ".\\KeilBuild\\$target\\";
-    
-    print "replace $2 by $keil_build\n--> $_\n" if s/(<OutputDirectory>)(.+)</\1$keil_build</ || s/(<ListingPath>)(.+)</\1$keil_build</;
-    
-    printf fout;
-  }
-}
-\ No newline at end of file