[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/custom3rdParty.pl b/mcu/tools/custom3rdParty.pl
new file mode 100644
index 0000000..3881f92
--- /dev/null
+++ b/mcu/tools/custom3rdParty.pl
@@ -0,0 +1,93 @@
+#!/usr/bin/perl -w
+
+# According to your environment, please reset these three lines.
+$sevenZipPath = "C:\\Progra~1\\7-Zip"; # According to your environment, please reset this lines.
+$convertPath = "C:\\Progra~1\\ImageMagick-6.3.6-Q16"; # According to your environment, please reset this lines.
+die "7zip folder $sevenZipPath did NOT exist\n" if (!-d $sevenZipPath);
+die "convert folder $convertPath did NOT exist\n" if (!-d $convertPath);
+
+$sevenZipFile = "${sevenZipPath}\\7za.exe";
+$convertFile = "${convertPath}\\convert.exe";
+die "7zip file $sevenZipFile did NOT exist\n" if (!-e $sevenZipFile);
+die "convert file $convertFile did NOT exist\n" if (!-e $convertFile);
+
+$MinGWPath = "C:\\MinGW"; # According to your environment, please reset this lines.
+die "MinGW folder $MinGWPath did NOT exist\n" if (!-d $MinGWPath);
+
+#********************************************************************
+# confirm package
+#********************************************************************
+my $local_path = `cd`;
+chomp $local_path;
+my $make_path = $local_path."\\make";
+
+my $package = "";
+system ("dir $make_path\\rel_*.mak /b >rel.tmp");
+
+open(F, "rel.tmp") || die "Can not open tmp file!";
+while(<F>)
+{
+ chomp;
+ if ($_ =~ /_(OBJ)_/i)
+ {
+ $package = $1;
+ last;
+ }
+}
+close(F);
+system ("del /q rel.tmp");
+
+#********************************************************************
+# confirm which tool needed in OBJ package
+#********************************************************************
+if ($package !~ /OBJ/i)
+{
+ $MSYSPath = "C:\\MSYS"; # According to your environment, please reset this lines.
+ die "MSYS folder $MSYSPath did NOT exist\n" if (!-d $MSYSPath);
+ $MSYSPath .= "\\1.0";
+ die "MSYS folder $MSYSPath did NOT exist\n" if (!-d $MSYSPath);
+
+ @mapDirs = (
+ [ "${MinGWPath}\\bin", qw(pcore\tools\MinGW\bin) ],
+ [ "${MinGWPath}\\lib", qw(pcore\tools\MinGW\lib) ],
+ [ "${MinGWPath}\\include", qw(pcore\tools\MinGW\include) ],
+ [ "${MSYSPath}\\bin", qw(pcore\tools\MSYS\bin) ],
+ [ "${MSYSPath}\\etc", qw(pcore\tools\MSYS\etc) ],
+ );
+}
+
+#********************************************************************
+# copy MinGW, MSYS directories
+#********************************************************************
+for $i (0 .. $#mapDirs)
+{
+ die "Folder $mapDirs[$i][0] did NOT exist\n" if (!-d $mapDirs[$i][0]);
+ print("Copy folder $mapDirs[$i][0] to $mapDirs[$i][1]\n");
+ system("mkdir $mapDirs[$i][1]") if (!-d $mapDirs[$i][1]);
+ system("xcopy /Y /Q /S $mapDirs[$i][0] $mapDirs[$i][1]");
+}
+
+#********************************************************************
+# copy make.exe, 7za.exe, convert.exe
+#********************************************************************
+$MinGWMake = "${MinGWPath}\\bin\\mingw32-make.exe";
+die "MinGW file $MinGWMake did NOT exist\n" if (!-e $MinGWMake);
+@mapFiles = (
+ [ $MinGWMake, qw(pcore\tools make.exe) ],
+ [ $sevenZipFile, qw(lcmmi\Customer\ResGenerator 7za.exe) ],
+ [ $convertFile, qw(lcmmi\Customer\ResGenerator convert.exe) ],
+ [ $sevenZipFile, qw(plutommi\Customer\ResGenerator 7za.exe) ],
+ [ $convertFile, qw(plutommi\Customer\ResGenerator convert.exe) ],
+);
+
+for $i (0 .. $#mapFiles) {
+ if (-d $mapFiles[$i][1]) {
+ print("Copy file $mapFiles[$i][0] to $mapFiles[$i][1]\\$mapFiles[$i][2]\n");
+ system("copy /Y $mapFiles[$i][0] $mapFiles[$i][1]\\$mapFiles[$i][2] > nul 2>&1");
+ }
+}
+
+system ("pcore\\tools\\chk_env.exe");
+
+exit 0;
+