[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/parse_lis.pl b/mcu/tools/parse_lis.pl
new file mode 100644
index 0000000..f11f40a
--- /dev/null
+++ b/mcu/tools/parse_lis.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+$lisfile = $ARGV[0];
+$output = $ARGV[1];
+
+open (FILE_HANDLE, "<$lisfile") or die "Cannot open $lisfile\n";
+ $backup = $/; undef $/;
+ $reading = <FILE_HANDLE>;
+ $/ = $backup;
+close FILE_HANDLE;
+
+open (W,">$output") or die "Cannot open output file $output:$!\n";
+
+if ($reading =~ /Memory Map of the image/) {
+ $reading = $';
+ if ($reading =~ /==============/) {
+ print W $`;
+ } else {
+ print W $reading;
+ }
+}
+close W;
+