[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/AutoGen/postBuild/ckL2CacheSection.pl b/mcu/tools/AutoGen/postBuild/ckL2CacheSection.pl
new file mode 100644
index 0000000..4401bd4
--- /dev/null
+++ b/mcu/tools/AutoGen/postBuild/ckL2CacheSection.pl
@@ -0,0 +1,222 @@
+#!/usr/bin/perl
+#
+# Copyright Statement:
+# --------------------
+# This software is protected by Copyright and the information contained
+# herein is confidential. The software may not be copied and the information
+# contained herein may not be used or disclosed except with the written
+# permission of MediaTek Inc. (C) 2018
+#
+# BY OPENING THIS FILE, BUYER HEREBY UNEQUIVOCALLY ACKNOWLEDGES AND AGREES
+# THAT THE SOFTWARE/FIRMWARE AND ITS DOCUMENTATIONS ("MEDIATEK SOFTWARE")
+# RECEIVED FROM MEDIATEK AND/OR ITS REPRESENTATIVES ARE PROVIDED TO BUYER ON
+# AN "AS-IS" BASIS ONLY. MEDIATEK EXPRESSLY DISCLAIMS ANY AND ALL WARRANTIES,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT.
+# NEITHER DOES MEDIATEK PROVIDE ANY WARRANTY WHATSOEVER WITH RESPECT TO THE
+# SOFTWARE OF ANY THIRD PARTY WHICH MAY BE USED BY, INCORPORATED IN, OR
+# SUPPLIED WITH THE MEDIATEK SOFTWARE, AND BUYER AGREES TO LOOK ONLY TO SUCH
+# THIRD PARTY FOR ANY WARRANTY CLAIM RELATING THERETO. MEDIATEK SHALL ALSO
+# NOT BE RESPONSIBLE FOR ANY MEDIATEK SOFTWARE RELEASES MADE TO BUYER'S
+# SPECIFICATION OR TO CONFORM TO A PARTICULAR STANDARD OR OPEN FORUM.
+#
+# BUYER'S SOLE AND EXCLUSIVE REMEDY AND MEDIATEK'S ENTIRE AND CUMULATIVE
+# LIABILITY WITH RESPECT TO THE MEDIATEK SOFTWARE RELEASED HEREUNDER WILL BE,
+# AT MEDIATEK'S OPTION, TO REVISE OR REPLACE THE MEDIATEK SOFTWARE AT ISSUE,
+# OR REFUND ANY SOFTWARE LICENSE FEES OR SERVICE CHARGE PAID BY BUYER TO
+# MEDIATEK FOR SUCH MEDIATEK SOFTWARE AT ISSUE.
+#
+# THE TRANSACTION CONTEMPLATED HEREUNDER SHALL BE CONSTRUED IN ACCORDANCE
+# WITH THE LAWS OF THE STATE OF CALIFORNIA, USA, EXCLUDING ITS CONFLICT OF
+# LAWS PRINCIPLES. ANY DISPUTES, CONTROVERSIES OR CLAIMS ARISING THEREOF AND
+# RELATED THERETO SHALL BE SETTLED BY ARBITRATION IN SAN FRANCISCO, CA, UNDER
+# THE RULES OF THE INTERNATIONAL CHAMBER OF COMMERCE (ICC).
+#
+#*****************************************************************************
+#*
+#* Filename:
+#* ---------
+#* ckL2CacheSection.pl
+#*
+#* Project:
+#* --------
+#*
+#*
+#* Description:
+#* ------------
+#* This scripts is used to check if all symbols allocated in L2$ Lock section register to config file.
+#*
+#* Author:
+#* -------
+#* Yao Liu (mtk15073)
+#*
+#****************************************************************************/
+
+use strict;
+use warnings;
+
+BEGIN { push @INC , './tools/' } # add additional library path
+use FileInfoParser;
+use constant {
+ LOG => 0,
+ WARNING => 1,
+ FATAL => 2,
+};
+
+my ($MapFile, $Tempdir) = (@ARGV);
+&msg_handler(LOG, "Input file: $MapFile, $Tempdir\n");
+
+#record all official config info
+my %official_config;
+#record all symbols in L2Cache Lock Section
+my %symbol_hash;
+#record all symbols info from sym file
+my %addr_to_symbol;
+
+my $official_config = $Tempdir."~official_config.ldf";
+&msg_handler(FATAL, "official config file do not exist!\n") if(!-e $official_config);
+
+&Parse_Config_File();
+&Parse_MAP_File($MapFile);
+
+&Symbol_Check();
+
+exit 0;
+
+sub Parse_Config_File
+{
+ open CFG, "$official_config" or &msg_handler(FATAL, "Can not open $official_config!", __LINE__);
+ local $/ = undef;
+ my $tempOutput = <CFG>;
+ close CFG;
+
+ my ($SubSection, $bFlag, $sFlag) = (undef, 0, 0);
+ my @TotalSecArray;
+ my $BreakRegExp = "[\\*]{20}\\s[<]\\sGROUP\\s*CFG\\s[>]\\s[\\*]{20}";
+
+ #split entire config file into several configuration groups.
+ foreach my $line (split /\n/, $tempOutput) {
+ if($bFlag == 0) {
+ $bFlag = 1 if(($line =~ m/^\[Symbol\]\s+\[Obj\]\s+\[Lib\]$/));
+ next;
+ }
+ next if($line =~ m/^\s*$/);
+
+ if($line =~ m/^\s*$BreakRegExp\s*$/) {
+ $sFlag = 1;
+ if(defined $SubSection) {
+ push @TotalSecArray, $SubSection;
+ undef $SubSection;
+ }
+ next;
+ }
+ $SubSection .= $line."\n" if($sFlag == 1);
+ }
+ push @TotalSecArray, $SubSection if(defined $SubSection);
+
+ foreach my $content (@TotalSecArray) {
+ my @tempArray = split /\n/, $content;
+ my ($Section_ID, $name_flag, $size_flag);
+ foreach my $line (@tempArray) {
+ if($line =~ /^Section ID\s*:\s*(.*)$/) {
+ $Section_ID = $1;
+ $name_flag = 1;
+ next;
+ } elsif($line =~ /^Reserved size\s*:\s*(.*)$/ && $name_flag == 1) {
+ $official_config{$Section_ID}{"size"} = $1;
+ $size_flag = 1;
+ next;
+ } elsif(!($name_flag == 1 && $size_flag == 1)) {
+ &msg_handler(FATAL, "Wrong config format in $Section_ID!", __LINE__, $official_config);
+ }
+
+ if($line =~ m/^(\S+)\s+(\S+)\s+(\S+)\s*$/) {
+ $official_config{$Section_ID}{$1.":".$2.":".$3}{"symbol_name"} = $1;
+ $official_config{$Section_ID}{$1.":".$2.":".$3}{"obj"} = $2;
+ $official_config{$Section_ID}{$1.":".$2.":".$3}{"lib"} = $3;
+ } elsif($Section_ID =~ /L2CACHE_LOCK_RO_SECTION_\w+/) {
+ my $msg = "Illegal Line Format: $line";
+ &msg_handler(FATAL, "Illegal Line Format: $line", __LINE__, $official_config);
+ next;
+ }
+ }
+ }
+}
+
+sub Parse_MAP_File
+{
+ my ($map) = @_;
+ my $sym = $MapFile;
+ $sym =~ s/map/sym/;
+
+ open SYM, "<$sym" or &msg_handler(FATAL, "Can not open map $sym!", __LINE__);
+ map {$addr_to_symbol{uc($1)} = $5 if(/^(\w{8})\s+(\w)\s+(\w\s+)?CACHED_EXTSRAM_L2CACHE_LOCK_RO\s+(\w{8})\s+(\w+)$/)} (<SYM>);
+ close SYM;
+
+ my $flag = 0;
+ my ($input_section, $addr, $lib, $obj);
+ open MAP, "<$map" or &msg_handler(FATAL, "Can not open map $map!", __LINE__);
+ foreach my $line (<MAP>){
+ $flag = 1 if ($line =~ /^CACHED_EXTSRAM_L2CACHE_LOCK_RO$/);
+ next if (!($line =~ /^CACHED_EXTSRAM_L2CACHE_LOCK_RO$/ || $flag == 1));
+ last if ($line =~ /Image\$\$CACHED_EXTSRAM_L2CACHE_LOCK_RO\$\$ZI\$\$Limit = \.$/ && $flag == 1);
+
+ if ($line =~ /^\s(\w+)$/){
+ $input_section = $1;
+ ($addr, $lib, $obj) = (undef, undef, undef);
+ } elsif ($line =~ /\s+(\S+)?\s+0x(\w+)\s+(0x\w+)\s+.*\/?\/(\w+\.a)\((\w+\.obj)\)/){
+ # 0x91e5e3c0 0x8a ./build/MT6885_SP/NLWCTG/bin/lib/libsys_drv.a(idle_task.obj)
+ ($addr, $lib, $obj) = (uc($2), $4, $5);
+ my $symbol_name = $addr_to_symbol{$addr};
+ my $key = $symbol_name.":".$obj.":".$lib;
+ $symbol_hash{$input_section}{$key}{"symbol_name"} = $symbol_name;
+ $symbol_hash{$input_section}{$key}{"obj"} = $obj;
+ $symbol_hash{$input_section}{$key}{"lib"} = $lib;
+ } elsif ($line =~ /^\s+0x(\w+)\s+(\w+)$/) {
+ my $symbol_name = $2;
+ my $key = $symbol_name.":".$obj.":".$lib;
+ next if (exists $symbol_hash{$input_section}{$key});
+ $symbol_hash{$input_section}{$key}{"symbol_name"} = $symbol_name;
+ $symbol_hash{$input_section}{$key}{"obj"} = $obj;
+ $symbol_hash{$input_section}{$key}{"lib"} = $lib;
+ }
+ }
+}
+
+sub Symbol_Check
+{
+ foreach my $section (keys %symbol_hash){
+ next if(!exists $official_config{$section});
+ foreach my $key (keys %{$symbol_hash{$section}}){
+ &msg_handler(FATAL, "Symbol $symbol_hash{$section}{$key}{\"symbol_name\"} doesn't register to official congfig file!", __LINE__) if(!exists $official_config{$section}{$key});
+ }
+ }
+ &msg_handler(LOG, "The following symbols don't exist in current load:\n");
+ my $index = 0;
+ foreach my $section (keys %official_config){
+ foreach my $key (keys %{$official_config{$section}}){
+ next if ($key eq "size");
+ &msg_handler(LOG, "[$index] $official_config{$section}{$key}{\"symbol_name\"} $official_config{$section}{$key}{\"obj\"} $official_config{$section}{$key}{\"lib\"}", __LINE__) if(!exists $symbol_hash{$section}{$key});
+ $index++;
+ }
+ }
+ &msg_handler(LOG, "[Done]: Section check!");
+}
+
+sub msg_handler
+{
+ my ($type, $msg, $line_no) = (@_);
+ my $prompt_prefix;
+ if($type == LOG) {
+ print $msg . "\n";
+ }
+ elsif($type == WARNING) {
+ $prompt_prefix = ">> AAIS Warning : ";
+ print $prompt_prefix . $msg . "\n";
+ }
+ elsif($type == FATAL) {
+ $prompt_prefix = ">> *** AAIS Fatal : ";
+ my $location = "[at line $line_no] ";
+ die $prompt_prefix . $location . $msg . "\n";
+ }
+}