[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/init/MBIS_conf.ini b/mcu/tools/init/MBIS_conf.ini
new file mode 100644
index 0000000..3f5e5ef
--- /dev/null
+++ b/mcu/tools/init/MBIS_conf.ini
@@ -0,0 +1,11 @@
+[INIT_CONF]
+BM_LIST=mtk02874,mtk02662,mtk02880,mtk03366,mtk03709,mtk03367,mtk02862,mtk02849
+PROJECT_LIST=TECHFAITH68V3_DEMO_umts(VENUS_LEVEL1),LIBRA35_DEMO_gprs(OBIGO_Q05A_FTE),MT6238_EVB_gprs(GEMINI),MT6235_EVB_gprs,AMBER38_DEMO_gprs,CAP16_gprs,DS269_gprs,GW616_gprs,MT6223_EVB_gprs,MT6238_EVB_gprs,PISCES23SB_NC_128X128_328_gprs,AMBER38_512256_gprs,AMBER38_DEMO_gprs(BT21),AMBER38_DEMO_gprs(OBIGO_Q05A),AQUARIUS38_512256_gprs,AST36_DEMO_gprs,CLARK23_DEMO_gprs,CRYSTAL25V3_DEMO_gprs,CRYSTAL25V3SB_QVGA_6432_gsm,GEMINI23C_DEMO_gprs(FM),GEMINI23C_EVB_gprs,GEMINI25_DEMO_gprs(JBLENDIA),HEPHAESTUS68_DEMO_umts,HEPHAESTUS68_DEMO_umts(GEMINI),JADE36V2_DEMO_gprs(RF_DESENSE_FM_GSM_ON),JADE36V2_DEMO_gprs(RF_DESENSE_MIN_MSDC_8MA),LIBRA35_12864_gprs,LIBRA35_DEMO_gprs(SW_VIDEO),MT6223_CIF_gprs(QCIFPLUS),MT6223C_MODEM_DEMO_gprs,MT6223D_MODEM_DEMO_gprs,MT6225_SYNC_LCM_gprs,MT6225_MGM_EVB_gprs,MT6229_EDGE_MODULE_gprs,MT6235_EVB_BURST_MCP_gprs(EX_DB),MT6235_EVB_BURST_MCP_gprs(IJET),MT6235_EVB_gprs(SW_VIDEO),MT6235B_EVB_gprs(MATV),MT6236_EVB_gprs(GEMINI),MT6236_EVB_gprs(RF_DESENSE_FM_ANIMATION_OFF),MT6236_EVB_gprs(RF_DESENSE_MIN_EMI_CURRENT),MT6236_EVB_gprs(RF_DESENSE_NO_LCD_UPDATE),MT6236_EVB_gprs(SW_FLEX),MT6236B_EVB_gprs,MT6238_EVB_gprs(MSHUTTER_6239),MT6253_EVB_gprs(GEMINI),MT6253DBT_basic(BT),MT6268_basic(KTEST),MT6268_EVB_umts(NON_DEBUG),MT6268_l1s(2G_ONLY),MT6268T_l1s,PHOENIX29_gprs,PISCES23_DEMO_gsm,SUPERMAN29V31_3D_gprs,SUPERMAN29V31_DEMO_gprs(R4),TECHFAITH68V3_512256_umts,TIANYU23CIF12832_DEMO_gprs(RVCT31),TIANYU23CIF_DEMO_gprs(KAL_ASSERT_SHRINKING),TIANYU23CSB_NC_128x128_DEMO_gsm(KAL_ASSERT_SHRINKING),TIANYU23D_DEMO_gsm,TIANYU35_5921_DEMO_gprs,UNICORN53V3_6432_gprs(KAL_ASSERT_SHRINKING),UNICORN53V3_12832_gprs,UNICORN53V3_DEMO_gprs(OG_MEDIAENTRY_QCIF),UNICORN53V3_DEMO_gprs(RVCT31_VENUS_LEVEL1),UNICORN53V3_DEMO_gsm,UNICORN53V4_DEMO_gprs(RF_DESENSE),WISDOM35B_DEMO_gprs,AMBER38_DEMO_gprs(MoDIS2010),AQUARIUS38_DEMO_gprs(FTE),LIBRA35_DEMO_gprs,MT6268_EVB_umts(MoDIS2010),MT6516_gprs(GEMINI),TIANYU23CSB_NB_128X128_DEMO_gsm,UNICORN53V3_DEMO_gprs(FTE_MoDIS2010),Zeus23SB_NEP_162_DEMO_gsm,AMBER38_DEMO_gprs(SLIM_AT),AMBER38GEMINI_DEMO_gprs,EMERALD35_DEMO_gprs,GEMINI23C_DEMO_gsm(BT),GEMINI25_6432_gprs(QCIFPLUS),GEMINI25_12832_gprs(OBIGO_Q03C_MMS_V02),GEMINI25_DEMO_gprs(RVCT31),GEMINI25_DEMO_gprs,GEMINI25_JAVA_12832_gprs,HUAQIN35_DEMO_gprs,HUAQIN35B_DEMO_gprs(VENUS_LEVEL1),JADE36_DEMO_gprs,JADE36V2_DEMO_gprs(RF_DESENSE_CAMERA_FH),JADE36V2_DEMO_gprs(RF_DESENSE_MIN_EMI_CURRENT),JADE36V2_DEMO_gprs(RF_DESENSE_NO_LCM_UPDATE),JADE36V2_DEMO_gprs,LIBRA35_DEMO_gprs(RVCT31),MT6223_CIF_gprs(QVGA_RELEASE),MT6223D_328_GEMINI_gsm,MT6225_basic,MT6235_basic,MT6235_G5730A_BT_COCLOCK_gprs,MT6236_EVB_gprs(RF_DESENSE_VBOOST_OFF),MT6236_EVB_gprs(VIDEO_V2),MT6236MT_gprs,MT6238_EVB_gprs(SUB_LCD),MT6253D_basic,MT6268_EVB_umts(E2),MT6270A_basic,PISCES23_DEMO_gprs(AR1000),PISCES23SB_328_gsm,RACHEL35_USB_EDGE_MODULE_gprs,SUPERMAN29V31_DEMO_gprs(Q05A_JBLENDIA),TECHFAITH68_DEMO_umts(O3_OE),TECHFAITH68V3_DEMO_umts(RVCT31_GEMINI),TIANYU23CIF_6432_gprs(PRODUCTION_RELEASE),TIANYU23CIF_QVGA_6432_gprs(PRODUCTION_RELEASE),TIANYU23CSB_NC_128x128_DEMO_gsm(RVCT31),TIANYU25_DEMO_gprs(QQIM),TIANYU29_6611_DEMO_gprs,UNICORN53V2_DEMO_gprs(RF_DESENSE),UNICORN53V3_6432_gprs,UNICORN53V3_DEMO_gprs(OG_MEDIAENTRY),UNICORN53V3_DEMO_gprs(RF_DESENSE),UNICORN53V3_JAVA_12832_gprs(PRODUCTION_RELEASE),UNICORN53V4_DEMO_gprs,MT6268_EVB_umts(TWO_MIC_NR_FORTEMEDIA),MT6235B_EVB_gprs(MT6616_SINGLE_ANTENNA),MT6268A_EVB_umts,MT6253MT_gprs,MT6236_EVB_gprs(RF_DESENSE_MIN_MSDC_8MA),UNICORN53V3_12832_gprs(OBIGO_Q03C_MMS_V02),AMBER38_DEMO_gprs(VENUS_LEVEL1)
+EN_ALL_PROJECT=TRUE
+EN_OBJ_LOG=TRUE
+
+[NOTIFY_INFO]
+SMTP = smtp.mediatek.inc
+MBIS_ADMIN_MAIL = amber.su@mediatek.com
+MBIS_NOTIFY_MAIL = amber.su@mediatek.com
+#MBIS_NOTIFY_MAIL = amber.su@mediatek.com, xenia.tsou@mediatek.com
\ No newline at end of file
diff --git a/mcu/tools/init/cat.pl b/mcu/tools/init/cat.pl
new file mode 100644
index 0000000..619a0ec
--- /dev/null
+++ b/mcu/tools/init/cat.pl
@@ -0,0 +1,165 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* cat.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* This script concatenate files and print on the standard output
+##
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+
+my @target = "";
+my $column = -1;
+my $binmode = -1;
+# parse parameters
+foreach my $arg (@ARGV)
+{
+ if ($arg =~ /^\-cut=(\d+)\b/i)
+ {
+ print "$1\n";
+ $column = $1;
+ ($column < 0) && &Usage;
+ }
+ elsif ($arg =~ /^-binary\b/i)
+ {
+ $binmode = 1;
+ }
+ else
+ {
+ push(@target,$arg);
+ }
+}
+($#target < 0) && &Usage;
+
+# replace backslash with slash
+foreach my $arg (@target)
+{
+ $arg =~ s/\\/\//g;
+}
+
+# print each file content
+my @fs = glob("@target");
+&printAllContent(@fs) if($column == -1);
+&printCutContent(@fs) if($column != -1);
+
+
+#******************************************************************************
+## FUNCTION
+## printAllContent
+##******************************************************************************
+sub printAllContent
+{
+ foreach my $file (@_)
+ {
+ open FH, $file or die "[cat.pl][Error:] Failed to open [$file]";
+ if($binmode eq 1)
+ {
+ binmode FH;
+ binmode STDOUT;
+ }
+ print while(<FH>);
+ close FH;
+ }
+}
+
+
+#******************************************************************************
+## FUNCTION
+## printCutContent
+##******************************************************************************
+sub printCutContent
+{
+ my @line = ();
+ foreach my $file (@_)
+ {
+ open FH, $file or die "[cat.pl][Error:] Failed to open [$file]";
+ while(<FH>)
+ {
+ @line = split(' ',$_);
+ next if($#line < $column);
+ if($line[$column] ne "")
+ {
+ print $line[$column];
+ print "\n";
+ }
+ }
+ close FH;
+ }
+}
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ cat.pl [source[file1, files2]]
+Example:
+ perl cat.pl file1.c file2.c
+ perl cat.pl *.cpp *.c
+ perl cat.pl -cut=1 in.txt
+ perl cat.pl -binary foo.bin
+Description:
+ This script concatenate files and print on the standard output.
+
+ -cut=number only output the [#number] column in each line.
+ -binary read/write as binary mode
+ [ex1]:
+ in.txt:
+ string0 string1 string2
+ dog cat frog
+ command:
+ perl cat.pl -cut=1 in.txt
+ output:
+ string1
+ cat
+
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/chdir.pl b/mcu/tools/init/chdir.pl
new file mode 100644
index 0000000..888554b
--- /dev/null
+++ b/mcu/tools/init/chdir.pl
@@ -0,0 +1,72 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* chdir.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* change the directory
+##
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+
+chdir("$ARGV[0]");
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ chdir.pl [folder]
+Example:
+ perl chdir.pl folder
+Description:
+ change the directory
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/chkOS.pl b/mcu/tools/init/chkOS.pl
new file mode 100644
index 0000000..03f7c2b
--- /dev/null
+++ b/mcu/tools/init/chkOS.pl
@@ -0,0 +1,72 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* chkOS.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* This script print current operation system
+##
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+
+print $^O;
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ chkOS.pl
+Example:
+ perl chkOS.pl
+Description:
+ This script print current OS
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/chmod.pl b/mcu/tools/init/chmod.pl
new file mode 100755
index 0000000..6173692
--- /dev/null
+++ b/mcu/tools/init/chmod.pl
@@ -0,0 +1,118 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* chmod.pl
+##*
+##* Project:
+##* --------
+##* MOLY
+##*
+##* Description:
+##* ------------
+##* This script change the permission of the files
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+
+use strict;
+use warnings;
+
+($#ARGV < 1) && &Usage;
+
+# the mode
+my $mode = shift(@ARGV);
+
+# source files
+my @src = @ARGV;
+
+if ($mode =~ /^[0]+[0-7]{3}\b/)
+{
+ @src = glob("@src");
+ change_mode($mode,@src);
+}
+else
+{
+ &Usage;
+}
+
+#******************************************************************************
+## FUNCTION
+## change_mode
+## DESCRIPTION
+## change files permission
+## PARAMETER
+## $mode [IN] a number which format is 0XXX
+## $src [IN] an array of source files
+##
+## EXAMPLE
+## &change_mode(0644, @src);
+###******************************************************************************
+sub change_mode
+{
+ my ($cmode, @src) = @_ ;
+ foreach my $src_file (@src)
+ {
+ chmod(oct($cmode) ,$src_file) or die "[chmod.pl][Error:] chmod failed: $src_file $!";
+ }
+}
+
+
+#******************************************************************************
+## FUNCTION
+## Usage
+## DESCRIPTION
+## Display the manipulation of this script
+##******************************************************************************
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ chmod.pl [permission][source[file1, file2,...]]
+Example:
+ perl chmod.pl 0644 foo.c foo.h
+ perl chmod.pl 0700 foo_folder/*.h
+
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/compare.pl b/mcu/tools/init/compare.pl
new file mode 100644
index 0000000..910d21a
--- /dev/null
+++ b/mcu/tools/init/compare.pl
@@ -0,0 +1,108 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* compare.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* This script compare the input two files
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+use File::Compare;
+
+($#ARGV < 1) && &Usage;
+
+my $src_a = shift(@ARGV);
+my $src_b = shift(@ARGV);
+($#ARGV > -1) && &Usage;
+
+my $value = compare("$src_a","$src_b");
+&judge($value);
+
+sub judge
+{
+ my $i = $_[0];
+ if($i == 0){
+ print "They are equal\n";
+ exit 0;
+ }
+ elsif ($i == 1){
+ print "They are NOT equal\n";
+ exit 1;
+ }
+ else
+ {
+ die "[compare.pl][Error:] $!\n";
+ exit -1;
+ }
+}
+
+#******************************************************************************
+## FUNCTION
+## Usage
+## DESCRIPTION
+## Display the manipulation of this script
+##******************************************************************************
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ perl compare.pl [file1] [files2]
+Example:
+ perl compare.pl source1.c source2.c
+Description:
+ compares the contents of two sources
+ return 0 if equal
+ return 1 if not equal
+ return -1 if error
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/copy_attrib.pl b/mcu/tools/init/copy_attrib.pl
new file mode 100644
index 0000000..ceef109
--- /dev/null
+++ b/mcu/tools/init/copy_attrib.pl
@@ -0,0 +1,33 @@
+use strict;
+use Time::HiRes qw(stat);
+
+my $input = $ARGV[0];
+my $output = $ARGV[1];
+
+if (! -e $input)
+{
+ die "Fail to find input: $input";
+}
+elsif(! -e $output)
+{
+ die "Fail to find output: $output";
+}
+
+my @st_in = stat($input);
+if (@st_in)
+{
+ my $permit = $st_in[2] & 07777;
+ my $atime = int($st_in[8]);
+ if ($st_in[8] > $atime)
+ {
+ $atime += 1;
+ }
+ my $mtime = int($st_in[9]);
+ if ($st_in[9] > $mtime)
+ {
+ $mtime += 1;
+ }
+ chmod($permit, $output);
+ utime($atime, $mtime, $output);
+}
+
diff --git a/mcu/tools/init/copy_files.pl b/mcu/tools/init/copy_files.pl
new file mode 100644
index 0000000..8ec7320
--- /dev/null
+++ b/mcu/tools/init/copy_files.pl
@@ -0,0 +1,200 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* copy_files.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* This script copy the files and directories to another position and
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+
+use strict;
+use warnings;
+use File::Copy;
+use File::Basename;
+
+($#ARGV < 1) && &Usage;
+
+#opt
+my $opt = $ARGV[0];
+shift(@ARGV);
+
+# the destination
+my $dest = pop(@ARGV);
+
+# source files
+my @src = @ARGV;
+
+if ($opt =~ /^\-f\b/i)
+{
+ @src = glob("@src");
+ copy_file($dest,@src);
+}
+elsif ($opt =~ /^\-r\b/i)
+{
+ copy_dir(@src,$dest);
+}
+else
+{
+ &Usage;
+}
+
+#******************************************************************************
+## FUNCTION
+## copy_files
+## DESCRIPTION
+## copy files to another position
+## PARAMETER
+## @src [IN] an array of source files
+## $des [IN] the destination of copying files
+##
+## EXAMPLE
+## ©_files($des, @src);
+###******************************************************************************
+sub copy_file
+{
+ my ($des, @src) = @_ ;
+ my $bname = "";
+ my $result = 0;
+ foreach my $src_file (@src)
+ {
+ if (-f $des)
+ {
+ unlink($des) or die "[copy_files.pl][Error:] remove '$des' failed: $!";
+ }
+ elsif (-d $des)
+ {
+ $bname = basename($src_file);
+ if (-e "$des/$bname")
+ {
+ unlink("$des/$bname") or die "[copy_files.pl][Error:] remove '$des/$bname' failed: $!";
+ }
+ }
+ if ($^O eq "MSWin32") {
+ copy($src_file ,$des) or die "[copy_files.pl][Error:] copy '$src_file' to '$des' failed: $!";
+ } else {
+ $result = system("cp -p \'$src_file\' \'$des\'");
+ die "[copy_files.pl][Error:] copy '$src_file' to '$des' failed: $!" if ($result);
+ }
+ }
+}
+
+
+#******************************************************************************
+## FUNCTION
+## copy_dir
+## DESCRIPTION
+## Copy a directory including sub directories
+## PARAMETER
+## $from_dir [IN] source folder
+## $to_dir [IN] destination folder
+## EXAMPLE
+###******************************************************************************
+sub copy_dir
+{
+ my $result =0;
+ my ($from_dir, $to_dir) = @_;
+ opendir my($dir), $from_dir or die "[copy_files.pl][Error:] Could not open dir '$from_dir': $!";
+ for my $file (readdir $dir)
+ {
+ next if ($file =~/\.$/ || $file =~/\b\.\.\b/ );
+ my $src = "$from_dir/$file";
+ my $dest = "$to_dir/$file";
+
+ if(!-d $to_dir)
+ {
+ mkdir($to_dir) or die "[copy_files.pl][Error:] Create folder '$to_dir' failed: $!";
+ }
+
+ if(-d $src)
+ {
+ ©_dir($src, $dest);
+ }
+ else
+ {
+ if(-e $dest){
+ unlink("$dest") or die "[copy_files.pl][Error:] remove '$dest' failed: $!";
+ }
+ if ($^O eq "MSWin32"){
+ copy($src, $dest) or die "[copy_files.pl][Error:] copy '$src' to '$dest' failed: $!";
+ chmod(0640,$dest) if ($^O eq "MSWin32");
+ } else {
+ $result = system("cp -p \'$src\' \'$dest\'");
+ die "[copy_files.pl][Error:] copy '$src' to '$dest' failed: $!" if ($result);
+ }
+ }
+ }
+ closedir($dir);
+}
+
+
+#******************************************************************************
+## FUNCTION
+## Usage
+## DESCRIPTION
+## Display the manipulation of this script
+##******************************************************************************
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ copy_files.pl [-f|-r] [source[file1, file2,...]] [destination]
+Example:
+ perl copy_files.pl -f source_file1 source_file2 destination
+ perl copy_files.pl -f source_file destination_file
+ perl copy_files.pl -r source_DIR destination_DIR
+Description:
+ -f Suppresses prompting to confirm you want to overwrite an existing destination file.
+ -r copy directories recursively
+
+_END_OF_USAGE
+ exit 1;
+}
+
diff --git a/mcu/tools/init/dir.pl b/mcu/tools/init/dir.pl
new file mode 100644
index 0000000..17fe2f6
--- /dev/null
+++ b/mcu/tools/init/dir.pl
@@ -0,0 +1,180 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* dir.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* list directory contents
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+use File::Basename;
+
+($#ARGV < 0) && &Usage;
+
+my $newline = 0;
+my $basename = 0;
+my @target;
+
+# parse parameters
+foreach my $arg (@ARGV)
+{
+ if ($arg =~ /^\-n\b/i)
+ {
+ $newline = 1;
+ }
+ elsif ($arg =~/^\-b\b/i)
+ {
+ $basename = 1;
+ }
+ else
+ {
+ push(@target,$arg);
+ }
+}
+($#target > 0) && &Usage;
+
+# glob the parameter, if not found then invoke sub not_found()
+my @filelist = <$target[0]>;
+¬_found if(!@filelist);
+
+my $all_not_found = 1;
+foreach my $file (@filelist)
+{
+ if( -e $file){
+ $file = basename($file) if($basename == 1);
+ print "$file";
+
+ if ($newline == 0){
+ print "\t";
+ }
+ else
+ {
+ print "\n";
+ }
+ $all_not_found = 0;
+ }
+}
+
+¬_found if($all_not_found == 1);
+print "\n" if($newline == 0);
+
+sub not_found
+{
+ die "[Error:][dir.pl] File Not Found $!";
+}
+#my $path = $ARGV[0];
+#opendir(DIR, $path) || die "[dir.pl][Error:] failed $!";
+#my @dirs = grep !/^\./, readdir(DIR);
+#foreach my $file (@dirs)
+#{
+# print "$file\t";
+#}
+#print "\n";
+#closedir(DIR);
+
+
+#******************************************************************************
+## FUNCTION
+## Usage
+## DESCRIPTION
+## Display the manipulation of this script
+##******************************************************************************
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ perl dir.pl [Path]
+Description:
+ list directory contents
+ -n list by \\n, default is \\t [ex3]
+ -b display the file name and extension only [ex4]
+Example:
+ List_folder:
+ foo.pl
+ sum.pl
+ =====================================
+ ex1:
+ Command:
+ perl dir.pl "List_folder/"
+ Output:
+ List_folder/
+ ------------------------------------
+ ex2:
+ Command:
+ perl dir.pl "List_folder/*.pl"
+ Output:
+ List_folder/foo.pl List_folder/sum.pl
+ ------------------------------------
+ ex3:
+ Command:
+ perl dir.pl -n "List_folder/*.pl"
+ Output:
+ List_folder/foo.pl
+ List_folder/sum.pl
+ ------------------------------------
+ ex4:
+ Command:
+ perl dir.pl -b -n "List_folder/*.pl"
+ Output:
+ foo.pl
+ sum.pl
+ ------------------------------------
+ ex5:
+ Command:
+ perl dir.pl "List_folder/*.c"
+ Output:
+ [Error:][dir.pl] File Not Found
+ ------------------------------------
+
+_END_OF_USAGE
+ exit 1;
+}
+
diff --git a/mcu/tools/init/echo.pl b/mcu/tools/init/echo.pl
new file mode 100644
index 0000000..8f988bc
--- /dev/null
+++ b/mcu/tools/init/echo.pl
@@ -0,0 +1,106 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* echo.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* This script just print the input string
+##
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+
+($#ARGV < 0) && &Usage;
+
+my @argvs;
+my $newline_on = 0;
+my $time_on = 0;
+foreach my $argv (@ARGV)
+{
+ if($argv =~ /^\-n\b/ )
+ {
+ $newline_on = 1;
+ }
+ elsif ($argv =~ /^\-t\b/)
+ {
+ $time_on = 1;
+ }
+ else
+ {
+ push(@argvs, $argv);
+ }
+}
+
+($#argvs < 0) && &Usage;
+
+print("@argvs");
+if($time_on == 1)
+{
+ print(time);
+}
+if($newline_on == 1)
+{
+ print("\n");
+}
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ echo.pl [string]
+Example:
+ perl echo.pl hello world
+ perl echo.pl "hello world"
+Description:
+ This script print the input string,
+ -n output newline \\n
+ -t output time info after input
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/format_pipe.pl b/mcu/tools/init/format_pipe.pl
new file mode 100644
index 0000000..af5f497
--- /dev/null
+++ b/mcu/tools/init/format_pipe.pl
@@ -0,0 +1,35 @@
+use strict;
+
+my $backup = $/;
+undef $/;
+my $input = <>;
+$/ = $backup;
+
+my @text = split(/[\n\r]+/, $input);
+my $flag_7z = 0;
+foreach my $line (@text)
+{
+ next if ($line eq "");
+ if (($line =~ /^\s*7-Zip/i) || ($line =~ /^\s*Listing archive/i))
+ {
+ $flag_7z = 1;
+ next;
+ }
+ if ($flag_7z)
+ {
+ if ($line =~ /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\d+)\s+(.+)\s*$/)
+ {
+ $line = $6;
+ }
+ else
+ {
+ next;
+ }
+ }
+ $line =~ s/\\/\//g;
+ next if ($line =~ /\/$/);
+ next if (-d $line);
+ $line =~ s/ /\\?/g;
+ $line =~ s/\#/\\\\\\#/g;
+ print $line . "\n";
+}
diff --git a/mcu/tools/init/get_filename.pl b/mcu/tools/init/get_filename.pl
new file mode 100644
index 0000000..0f87845
--- /dev/null
+++ b/mcu/tools/init/get_filename.pl
@@ -0,0 +1,93 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* get_filename.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* Given a string containing the path to a file or directory, this function will return the trailing filename.
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+use File::Basename;
+
+($#ARGV < 0) && &Usage;
+
+my @argvs;
+@argvs = @ARGV;
+
+foreach my $str (@argvs)
+{
+ my ($filename, $dir, $suffix) = fileparse($str, qr/\.[^.]*/);
+ print $filename;
+ print "\n";
+}
+
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ perl get_filename.pl [string]
+Description:
+ Given a string containing the path to a file or directory, this function will return the trailing filename.
+Example:
+ #EX1:
+ perl get_filename.pl foo_folder/foo.lib
+ output:
+ foo.lib
+ -----------------------------
+ #EX2:
+ perl get_filename.pl hello.c foo_folder/foo.lib
+ #output:
+ hello
+ foo
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/mkdir.pl b/mcu/tools/init/mkdir.pl
new file mode 100644
index 0000000..c8e710e
--- /dev/null
+++ b/mcu/tools/init/mkdir.pl
@@ -0,0 +1,89 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* mkdir.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* make directories
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+use File::Path;
+
+($#ARGV < 0) && &Usage;
+
+my @target = @ARGV;
+
+
+foreach my $f (@target)
+{
+ mkpath($f) or die "[mkdir.pl][Error:] Create folder $f failed $!";
+}
+
+
+#******************************************************************************
+## FUNCTION
+## Usage
+## DESCRIPTION
+## Display the manipulation of this script
+##******************************************************************************
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ mkdir.pl [Folders[folder1, folder2,...]]
+Example:
+ perl mkdir.pl folder1 folder2
+Description:
+ make directories
+_END_OF_USAGE
+ exit 1;
+}
+
diff --git a/mcu/tools/init/move.pl b/mcu/tools/init/move.pl
new file mode 100644
index 0000000..dbb7a9a
--- /dev/null
+++ b/mcu/tools/init/move.pl
@@ -0,0 +1,101 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* move.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* This script move (rename) files
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+use File::Copy;
+
+($#ARGV < 1) && &Usage;
+
+my $opt = $ARGV[0];
+shift(@ARGV);
+($#ARGV < 1) && &Usage;
+
+my $dest = pop(@ARGV);
+my @srcs = @ARGV;
+
+if ($opt =~ /^\-f\b/i)
+{
+ foreach my $src(@srcs)
+ {
+ move($src,$dest) or die "[move.pl][Error:] Can Not move $src to $dest $!";
+ }
+}
+else
+{
+ &Usage;
+}
+
+#******************************************************************************
+## FUNCTION
+## Usage
+## DESCRIPTION
+## Display the manipulation of this script
+##******************************************************************************
+
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ move.pl [-f] [source[file1, files2]] [destination]
+Example:
+ perl move.pl -f source1.c source2.c dest_folder/
+ perl move.pl -f source.c rename.c
+Description:
+ move (rename) files
+ -f do not prompt before overwriting
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/recursive_dir.pl b/mcu/tools/init/recursive_dir.pl
new file mode 100644
index 0000000..135dcbc
--- /dev/null
+++ b/mcu/tools/init/recursive_dir.pl
@@ -0,0 +1,205 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* find.pl
+##*
+##* Project:
+##* --------
+##* MOLY_Software
+##*
+##* Description:
+##* ------------
+##* list directory contents
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+use File::Find;
+
+my $option = "all";
+my $root_dir;
+my $regex;
+my $re_code;
+my @all_list;
+
+# process arguments
+if($#ARGV >= 0){
+ $option = shift;
+ if ($option =~ /^\-f\b/) {
+ $option = "file";
+ } elsif ($option =~ /^\-d\b/) {
+ $option = "folder";
+ } else {
+ unshift @ARGV, $option;
+ $option = "all";
+ }
+}
+$root_dir = shift || '.';
+$regex = shift || '.';
+&error_handler("$root_dir can Not be found !", __FILE__, __LINE__) if(! -e $root_dir);
+
+# search recursively
+find(\&want ,$root_dir);
+
+# list the search results by option
+$re_code = &output_lists(\@all_list, $regex);
+&error_handler("execution failed!", __FILE__, __LINE__) if($re_code != 0);
+
+#******************************************************************************
+# FUNCTION
+# want
+# DESCRIPTION
+# The function does whatever verifications you want.
+#******************************************************************************
+sub want
+{
+ if ($option eq "all") {
+ push @all_list, $File::Find::name if(-e $_);
+ } elsif ($option eq "file") {
+ push @all_list, $File::Find::name if(-f $_);
+ } elsif ($option eq "folder") {
+ push @all_list, $File::Find::name if(-d $_);
+ } else {
+ &error_handler("No such option valut: $option !", __FILE__, __LINE__)
+ }
+}
+
+
+#******************************************************************************
+# FUNCTION
+# output_lists
+# DESCRIPTION
+# output the files/folders according to regular expr
+# PARAMETER
+# @list : output list
+# $rule : regular expression
+#******************************************************************************
+sub output_lists
+{
+ my $lists = shift;
+ my $rule = shift;
+ foreach my $f (@$lists)
+ {
+ next if($f eq ".");
+ next if($f eq "..");
+ print $f."\n" if($f =~ /$rule$/);
+ }
+
+ return 0;
+}
+
+
+#****************************************************************************
+# FUNCTION
+# error_handler
+# PARAMETER
+# $error_msg: error message
+# $file : file
+# $line_no : line number
+#****************************************************************************
+sub error_handler
+{
+ my ($error_msg, $file, $line_no) = @_;
+
+ my $final_error_msg = "RECURSIVE_DIR Error: $error_msg at $file line $line_no\n";
+ print $final_error_msg;
+ die $final_error_msg;
+}
+
+
+#******************************************************************************
+# FUNCTION
+# Usage
+# DESCRIPTION
+# Display the manipulation of this script
+#******************************************************************************
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ perl recursive_dir.pl [-f|-d] [path] [regular expression]
+Description:
+ List directory/sub-directory contents.
+ By default, the path and regular expression is '.'
+ -f only list the files.
+ -d only list the folders.
+Example:
+ current path:
+ -foo (folder)
+ --foo.pl (file)
+ -sum.txt (file)
+ =====================================
+ ex1:
+ Command:
+ perl recursive_dir.pl
+ Output:
+ ./sum.txt
+ ./foo
+ ./foo/foo.pl
+ ------------------------------------
+ ex2:
+ Command:
+ perl recursive_dir.pl -f
+ Output:
+ ./sum.txt
+ ./foo/foo.pl
+ ------------------------------------
+ ex3:
+ Command:
+ perl recursive_dir.pl foo
+ Output:
+ foo
+ foo/foo.pl
+ ------------------------------------
+ ex4:
+ Command:
+ perl recursive_dir.pl foo "\\.pl"
+ Output:
+ foo/foo.pl
+ ------------------------------------
+
+_END_OF_USAGE
+ exit 1;
+}
+
diff --git a/mcu/tools/init/remove.pl b/mcu/tools/init/remove.pl
new file mode 100644
index 0000000..9554daa
--- /dev/null
+++ b/mcu/tools/init/remove.pl
@@ -0,0 +1,106 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* move.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* This script remove files
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+use File::Copy;
+
+($#ARGV < 0) && &Usage;
+
+#opt
+my $opt = $ARGV[0];
+shift(@ARGV);
+($#ARGV < 0) && &Usage;
+
+my @target = @ARGV;
+
+foreach my $arg (@target)
+{
+# $arg =~ s/\\/\//g;
+}
+
+if ($opt =~ /^\-f\b/i)
+{
+
+ my @f = glob("@target");
+ unlink @f or die "[remove.pl][Error:] Remove @f failed $!";
+}
+else
+{
+ &Usage;
+}
+
+
+
+#******************************************************************************
+## FUNCTION
+## Usage
+## DESCRIPTION
+## Display the manipulation of this script
+##******************************************************************************
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ remove.pl [-f] [source[file1, files2]]
+Example:
+ perl remove.pl -f file1.c file2.c
+Description:
+ remove files
+ -f Quiet mode, do not ask when delete files
+
+_END_OF_USAGE
+ exit 1;
+}
diff --git a/mcu/tools/init/rmdir.pl b/mcu/tools/init/rmdir.pl
new file mode 100644
index 0000000..d3efb2f
--- /dev/null
+++ b/mcu/tools/init/rmdir.pl
@@ -0,0 +1,106 @@
+#!/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) 2005
+#
+# 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:
+##* ---------
+##* rmdir.pl
+##*
+##* Project:
+##* --------
+##* Maui_Software
+##*
+##* Description:
+##* ------------
+##* This script removes all directories and files in the specified directory
+## in addition to the directory itself. Used to remove a directory tree.
+##*
+##* Author:
+##* -------
+##* kk Lin-Wang (mtk04222)
+##*
+##*============================================================================
+use strict;
+use warnings;
+use File::Path;
+
+($#ARGV < 0) && &Usage;
+
+#opt
+my $opt = $ARGV[0];
+shift(@ARGV);
+($#ARGV < 0) && &Usage;
+
+my @target = @ARGV;
+
+if ($opt =~ /^\-f\b/i)
+{
+
+ foreach my $f (@target){
+ rmtree($f) or die "[rmdir.pl][Error:] Remove $f failed $!";
+ }
+}
+else
+{
+ &Usage;
+}
+
+
+#******************************************************************************
+## FUNCTION
+## Usage
+## DESCRIPTION
+## Display the manipulation of this script
+##******************************************************************************
+sub Usage
+{
+ warn <<"_END_OF_USAGE";
+Usage:
+ rmdir.pl [-f] [source[files|folder]]
+Example:
+ perl rmdir.pl -f folder1 folder2
+ perl rmdir.pl -f files1 folder2
+Description:
+ Removes all directories and files in the specified directory
+ in addition to the directory itself. Used to remove a directory tree.
+
+ -f Quiet mode, do not ask when delete folder
+
+_END_OF_USAGE
+ exit 1;
+}
+
diff --git a/mcu/tools/init/strcmpex_linux.exe b/mcu/tools/init/strcmpex_linux.exe
new file mode 100755
index 0000000..c818c02
--- /dev/null
+++ b/mcu/tools/init/strcmpex_linux.exe
Binary files differ
diff --git a/mcu/tools/init/strcmpex_window.exe b/mcu/tools/init/strcmpex_window.exe
new file mode 100755
index 0000000..d8510c6
--- /dev/null
+++ b/mcu/tools/init/strcmpex_window.exe
Binary files differ