[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/DebuggingSuite/initLogParser.pl b/mcu/tools/DebuggingSuite/initLogParser.pl
new file mode 100644
index 0000000..9f5f111
--- /dev/null
+++ b/mcu/tools/DebuggingSuite/initLogParser.pl
@@ -0,0 +1,313 @@
+#!/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) 2006
+#
+# 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:
+#* ---------
+#* initLogParser.pl
+#*
+#* Project:
+#* --------
+#*
+#*
+#* Description:
+#* ------------
+#* This script parses raw data of the boot-up log
+#*
+#* Author:
+#* -------
+#* Dot Li (mtk02439)
+#*
+#*============================================================================
+#* HISTORY
+#* Below this line, this part is controlled by PVCS VM. DO NOT MODIFY!!
+#*------------------------------------------------------------------------------
+#* $Revision$
+#* $Modtime$
+#* $Log$
+#*
+#* 04 17 2013 dot.li
+#* [MOLY00019590] [SystemService][Init] Smartphone modem boot-up trace phase 2
+#* .
+#*
+#* 03 12 2013 dot.li
+#* [MOLY00011540] [SystemService][Init] Smartphone modem boot-up trace
+#* .
+#*
+#*------------------------------------------------------------------------------
+#* Upper this line, this part is controlled by PVCS VM. DO NOT MODIFY!!
+#*============================================================================
+#****************************************************************************/
+
+BEGIN { push @INC, "pcore/" , '..' } # add additional library path
+
+#****************************************************************************
+# Input arguments
+#****************************************************************************
+my $LOG_STAGE = $ARGV[0];
+
+my $DebugPrint = 1; # 1 for debug; 0 for non-debug
+
+#****************************************************************************
+# >>> Handle boot-up stage
+#****************************************************************************
+#****************************************************************************
+# 1 >>> Abort at stage 1
+#****************************************************************************
+if ($LOG_STAGE eq "HS1") {
+ print "MD init stage 1\n";
+
+ #****************************************************************************
+ # 1-1 >>> Parsing stage 1 label
+ #****************************************************************************
+ my $stage1_label_file = "../../../pcore/driver/sys_drv/init/inc/bootarm.h";
+
+ &error_handler("$stage1_label_file: NOT exist!", __FILE__, __LINE__) if (!-e $stage1_label_file);
+ open (FILE_HANDLE, "<$stage1_label_file") or &error_handler("$stage1_label_file: file error!", __FILE__, __LINE__);
+
+ my ($line, $add_label, @boot_stage_label, @boot_stage_code, $i);
+
+ $add_label = 0; # not start enum
+ $i = 0;
+
+ # parsing enum info
+ while ($line = <FILE_HANDLE>) {
+ if ($line =~ m/#define LABEL/) {
+ $boot_stage_label[$i] = $1 if ($line =~ m/(LABEL_(\w|\d)+)/ );
+ $boot_stage_code[$i] = $1 if ($line =~ m/((0x|0X)[0-9A-Fa-f]+)/ );
+ $i++;
+ }
+ }
+
+ #****************************************************************************
+ # 1-2 >>> Matching and output result
+ #****************************************************************************
+
+ print "Magic:";
+ $hex=$ARGV[1];
+ while($hex =~ /(.{2})/sg) {
+ print chr(hex($1));
+ }
+ print " (0x$ARGV[1])\n";
+
+ if ($ARGV[1] =~ /30305f49/) {
+ $matching = 0;
+
+ for($i = 0; $i < $#boot_stage_label; $i++) {
+ if(hex($boot_stage_code[$i]) == hex($ARGV[2])) {
+ print "last label record: $boot_stage_label[$i]\n";
+ $matching = 1;
+ last;
+ }
+ }
+ print "No matching stage found!!\n" if ($matching == 0);
+ }
+} # boot stage HS1
+#****************************************************************************
+# 2 >>> Abort at stage 2
+# input format: ./initLogParser.pl HS2 [project flavor] [log file]
+#****************************************************************************
+if ($LOG_STAGE eq "HS2") {
+
+ #****************************************************************************
+ # 2-0 >>> Parse CPU speed
+ #****************************************************************************
+
+ use FileInfoParser;
+ my %MAKEFILE_OPTIONS;
+ my $themf = "../../make/" . $ARGV[1];
+ if(1!=&FileInfo::Parse_MAKEFILE($themf, \%MAKEFILE_OPTIONS))
+ {
+ &sysUtil::sysgen_die("[1.1]Parse MakeFile failed");
+ }
+
+ my $CPU_MHZ = $MAKEFILE_OPTIONS{'MCU_CLOCK'};
+
+ $CPU_MHZ =~ s/\D//g;
+
+ my $LOG_FILE = $ARGV[2];
+
+ # to align error message file name format
+ $LOG_FILE =~ s/^.\\|^\\//;
+
+ #****************************************************************************
+ # 2-1 >>> Print out input parameters for checking
+ #****************************************************************************
+ if ($DebugPrint == 1) {
+ print "LOG_STAGE: $LOG_STAGE\n";
+ print "LOG_FILE: $LOG_FILE\n";
+ print "\n";
+ }
+
+ my (@boot_log_raw, $boot_log, $start_idx, $i);
+
+ #****************************************************************************
+ # 2-2 >>> Read In Exception Log
+ #****************************************************************************
+ print "Starting stage1... (Read in boot-up log)\n" if($DebugPrint == 1);
+
+ &error_handler("$LOG_FILE: NOT exist!", __FILE__, __LINE__) if (!-e $LOG_FILE);
+ open (FILE_HANDLE, "<$LOG_FILE") or &error_handler("$LOG_FILE: file error!", __FILE__, __LINE__);
+ #binmode FILE_HANDLE;
+
+ # parsing log file
+ use constant TASK_MAGIC => 0x4B534154;
+
+ my ($line, @data32);
+
+ $i = 0;
+ while ($line = <FILE_HANDLE>) {
+ if ($line =~ /(\w+) (\w+) (\w+) (\w+)/) {
+ $data32[0] = $1;
+ $data32[1] = $2;
+ $data32[2] = $3;
+ $data32[3] = $4;
+ foreach $_ (@data32) {
+ $boot_log_raw[$i++] = hex($_);
+ }
+ }
+ }
+
+ close (FILE_HANDLE);
+
+ #****************************************************************************
+ # 2-3 >>> Parse Header for log address
+ #****************************************************************************
+ print "Starting stage2... (Parse header for log address)\n" if($DebugPrint == 1);
+
+ $start_idx = $boot_log_raw[0]/16;
+ #print "$boot_log_raw[0] , $start_idx\n";
+
+ #****************************************************************************
+ # 2-4 >>> Parse Boot-Up Log
+ #****************************************************************************
+ print "Starting stage3... (Parse boot-up log)\n" if($DebugPrint == 1);
+
+ $boot_log .= "CPU Speed = ".$CPU_MHZ." MHz\n";
+
+ print "MD init stage 2\n";
+ my @boot_stage = &hs2_label_parse();
+
+ $boot_log .= sprintf("%4s%10s (%10s)\t\tLog\n","Idx","msec","CPU cycle");
+
+ my ($parse_task, $log_size, $ts_msec, $temp_str);
+ $i = $start_idx;
+ while($i < @boot_log_raw) {
+ if($boot_log_raw[$i] != 0) {
+ if($boot_log_raw[$i] == TASK_MAGIC) {
+ $parse_task = $boot_log_raw[$i+1];
+ } else {
+ $log_size++;
+ $ts_msec = sprintf("%.2f", $boot_log_raw[$i+1] / $CPU_MHZ / 1000); # milli-second
+ if ($parse_task == 1) {
+ $boot_log .= sprintf("[%2d]%10.2f ms (%10d)\t\t[Task] Start of task index $boot_log_raw[$i] init \n", $log_size, $ts_msec, $boot_log_raw[$i+1]);
+ } else {
+ $boot_log .= sprintf("[%2d]%10.2f ms (%10d)\t\Start of $boot_stage[$boot_log_raw[$i]]\n", $log_size, $ts_msec, $boot_log_raw[$i+1]);
+ }
+ }
+ }
+ $i += 2;
+ }
+
+ # print to console
+ print $boot_log;
+ print "Number of log = $log_size\n" if($DebugPrint == 1);
+
+ #****************************************************************************
+ # 2-5 >>> Output to a TXT
+ #****************************************************************************
+ print "Output to $LOG_FILE.txt\n";
+ open (FILE_HANDLE, ">$LOG_FILE.txt") or &error_handler("$LOG_FILE: file error!", __FILE__, __LINE__);
+ print FILE_HANDLE $boot_log;
+ close (FILE_HANDLE);
+
+} # boot stage HS2
+
+#****************************************************************************
+# oo >>> Finished
+#****************************************************************************
+exit 0;
+
+
+#****************************************************************************
+# subroutine: error_handler
+# input: $error_msg: error message
+# $file: filename
+# $line_no: line number
+#****************************************************************************
+sub error_handler
+{
+ my ($error_msg, $file, $line_no) = @_;
+
+ my $final_error_msg = "BOOT LOG PARSER ERROR: $error_msg at $file line $line_no\n";
+ die $final_error_msg;
+}
+
+
+#****************************************************************************
+# subroutine: hs2_label_parse
+#****************************************************************************
+sub hs2_label_parse
+{
+ my $stage2_label_file = "../../../pcore/driver/sys_drv/init/inc/init_trc_id.h";
+
+ &error_handler("$stage2_label_file: NOT exist!", __FILE__, __LINE__) if (!-e $stage2_label_file);
+ open (FILE_HANDLE, "<$stage2_label_file") or &error_handler("$stage2_label_file: file error!", __FILE__, __LINE__);
+
+ my ($line, $add_label, @label_arr, $i);
+
+ $add_label = 0; # not start enum
+ $i = 0;
+
+ # parsing enum info
+ while ($line = <FILE_HANDLE>) {
+ if ($line =~ m/typedef enum {/) {
+ $add_label = 1;
+ }
+
+ if ($line =~ m/} BOOT;/) {
+ $add_label = 2;
+ }
+
+ if($add_label == 1) {
+ if ($line =~ m/(BOOT_(\w|\d)+)/) {
+ $label_arr[$i++]=$1;
+ }
+ }
+ }
+
+
+ return @label_arr;
+}