[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/copyFiles.pl b/mcu/tools/copyFiles.pl
new file mode 100644
index 0000000..d597722
--- /dev/null
+++ b/mcu/tools/copyFiles.pl
@@ -0,0 +1,41 @@
+#!/usr/local/bin/perl
+#$file = $ARGV[0];
+#$FIXPATH = $ARGV[1];
+#$RELEASE_DIR = $ARGV[2];
+$FIXPATH = $ARGV[0];
+print "$FIXPATH\n";
+
+$RELEASE_DIR = $ARGV[1];
+print "$RELEASE_DIR\n";
+shift(@ARGV);
+shift(@ARGV);
+@Files="@ARGV";
+
+open(F,">$FIXPATH\\make\\~copy.tmp") or die "Cannot open $FIXPATH\\make\\~copy.tmp";
+print F @Files;
+close(F);
+
+print "perl pcore\\tools\\lnitem.pl $FIXPATH\\make\\~copy.tmp";
+system("perl pcore\\tools\\lnitem.pl $FIXPATH\\make\\~copy.tmp");
+
+open(F,"<$FIXPATH\\make\\~copy.tmp") or die "Cannot open $file: $!";
+while(<F>) {
+ chomp($_);
+ if (-e $_) {
+ if(!-e "$RELEASE_DIR\\$_") {
+ system("md $RELEASE_DIR\\$_");
+ system("rd $RELEASE_DIR\\$_");
+ }
+ print "copy /y $FIXPATH\\$_ $RELEASE_DIR\\$_\n";
+ system("copy /y $FIXPATH\\$_ $RELEASE_DIR\\$_");
+ } else {
+ chop($_);
+ if(!-e "$RELEASE_DIR\\$_") {
+ system("md $RELEASE_DIR\\$_");
+ system("rd $RELEASE_DIR\\$_");
+ }
+ print "copy /y $FIXPATH\\$_ $RELEASE_DIR\\$_\n";
+ system("copy /y $FIXPATH\\$_ $RELEASE_DIR\\$_");
+ }
+}
+close(F);