[Feature][Modem]Update MTK MODEM V1.6 baseline version: MOLY.NR15.R3.MD700.IVT.MP1MR3.MP.V1.6
MTK modem version: MT2735_IVT_MOLY.NR15.R3.MD700.IVT.MP1MR3.MP.V1.6.tar.gz
RF modem version: NA
Change-Id: I45a4c2752fa9d1a618beacd5d40737fb39ab64fb
diff --git a/mcu/tools/echoLongString2.pl b/mcu/tools/echoLongString2.pl
new file mode 100644
index 0000000..5ccefcb
--- /dev/null
+++ b/mcu/tools/echoLongString2.pl
@@ -0,0 +1,47 @@
+#!/usr/local/bin/perl
+$OUTPUT = shift(@ARGV);
+#print "$OUTPUT\n";
+
+$ITEM = shift(@ARGV);
+#print "$ITEM\n";
+
+@INPUT = @ARGV;
+#print "@INPUT\n";
+
+#@new_output = sort @INPUT;
+#print "@new_output\n";
+
+foreach my $file (@INPUT) {
+ if ((-e $file) && (open(FILE_HANDLER,"<$file")))
+ {
+ while(<FILE_HANDLER>) {
+ if($_ !~ /^\s/) {
+ if($_ !~ /.+\s$/) {
+ push @output, $_;
+ } else {
+ chomp;
+ push @output, $_;
+ }
+ }
+ }
+ close(FILE_HANDLER);
+ }
+ else
+ {
+ print STDERR "[Error] fail to open $file\n";
+ }
+}
+
+my %saw;
+@output = grep (!$saw{$_}++, @output);
+if(-e $OUTPUT) {
+ open(W,">>$OUTPUT") or die "Cannot open $OUTPUT";
+} else {
+ open(W,">$OUTPUT") or die "Cannot open $OUTPUT";
+}
+foreach my $def (@output)
+{
+ print W "$ITEM$def\n";
+}
+close(W);
+