[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/SetLintEnv.pl b/mcu/tools/SetLintEnv.pl
new file mode 100644
index 0000000..d28d6d3
--- /dev/null
+++ b/mcu/tools/SetLintEnv.pl
@@ -0,0 +1,164 @@
+#!/usr/local/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).
+#
+#################################################################################
+
+ use Win32::Process;
+ use Win32;
+ use File::Basename;
+
+
+# ..\make\comp.mak
+
+# mount net use from G to Z except M: K: U: , T:
+# W:\ is first priority
+
+my @drvs = ("W","X","Y","Z","G","H","I","J","L","N","O","P","Q","R","S","V");
+
+my $CheckPath;
+my $result="FALSE";
+my $gotNetDrvChar;
+
+my $complintlogdir;
+my $component;
+#print " \$argv[0]= $ARGV[0] \n";
+
+#$(COMPLINTLOGDIR)
+
+$complintlogdir = $ARGV[1];
+$component = $ARGV[2];
+
+
+
+#######################
+
+
+foreach $adrv ( @drvs )
+{
+ if ( $result ne "TRUE" )
+ {
+ $CheckPath = $adrv;
+# print " drv == $adrv \n";
+ &checkLoop;
+ $idx++;
+ } else
+ {
+ break;
+ }
+}
+
+#######################
+
+
+my $env_tmp = $ENV{TMP};
+
+if ( $env_tmp !~ /\\$/ )
+{
+ $env_tmp = "$env_tmp"."\\";
+}
+
+
+
+#if( ! -e "$env_tmp"."aa.lnt" )
+#{
+# print("copy pcore\\tools\\aa.lnt $env_tmp \n");
+# system("copy pcore\\tools\\aa.lnt $env_tmp \n");
+#}
+
+
+
+
+
+open(F, ">$ARGV[0]") or die $!;
+
+ print F "Net_ReadOnly_DIR = $FullCheckPath\n";
+ print F "COMPLINTLOGDIR = $complintlogdir\n";
+ print F "COMPONENT = $component\n";
+
+close(F);
+
+
+
+
+
+###############################################
+
+sub checkLintFile {
+ if ( -d $_[0] )
+ {
+ if (( -e $_[0]."lint-nt.exe" ) && ( -e $_[0]."co-ads.lnt" ) )
+ {
+ return "TRUE";
+ } else
+ {
+ return "FALSE";
+ }
+ } else
+ {
+ return "FALSE";
+ }
+}
+########################################
+sub checkLoop {
+ $FullCheckPath = $CheckPath.":\\";
+ if ( -d $FullCheckPath )
+ {
+ $result = &checkLintFile( $FullCheckPath );
+
+ if ( $result eq "TRUE" )
+ {
+ $gotNetDrvChar = $CheckPath;
+ #print " Lint Net Drv == $gotNetDrvChar \n";
+ return;
+ }
+ } else
+ {
+ system "net use "."$CheckPath".": /delete \n"; # delete Unavailable NET driver
+ print " cmd==". " net use "."$CheckPath".": \\\\srdfs01\\lint \n";
+ system "net use "."$CheckPath".": \\\\srdfs01\\lint \n";
+ }
+
+ if ( -d $FullCheckPath )
+ {
+ $result = &checkLintFile( $FullCheckPath );
+ if ( $result eq "TRUE" )
+ {
+ $gotNetDrvChar = $CheckPath;
+ print " Lint Net Drv == $gotNetDrvChar \n";
+ return;
+ }
+ }
+
+} # sub checkLoop