[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/armversion.pl b/mcu/tools/armversion.pl
new file mode 100644
index 0000000..aae51eb
--- /dev/null
+++ b/mcu/tools/armversion.pl
@@ -0,0 +1,33 @@
+my @argv = @ARGV;
+#print "argv:@argv";
+($#argv < 0) && &Usage;
+
+while(<@argv>)
+{
+ if (/(\w+?)]/i)
+ {
+ if($1 >= 794)
+ {
+ $para1=$1;
+ print "GEQ794";
+# return $para1;
+ }
+ else
+ {
+ $para1=$1;
+ print "LSS794";
+# return $para1;
+ }
+ }
+}
+
+
+sub Usage
+{
+ print "\nUsage:\n perl Armversion.pl <armlinkinfo> \n";
+ print "\nDescription:\n";
+ print " <file> = armlink_info in option.mak n";
+ print "Example:\n";
+ print " perl Armversion.pl armlink_info\n";
+ exit 1;
+}
\ No newline at end of file