custom3rdparty.pl

这个是MTK平台的资料包括：文件系统

#!/usr/bin/perl -w

#  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).
#

# According to your environment, please reset these three lines.
$sevenZipPath = "C:\\Progra~1\\7-Zip";
$MinGWPath = "C:\\MinGW";
$MSYSPath = "C:\\MSYS";

die "MSYS folder $MSYSPath did NOT exist\n" if (!-d $MSYSPath);
$MSYSPath .= "\\1.0";
die "MSYS folder $MSYSPath did NOT exist\n" if (!-d $MSYSPath);
die "MinGW folder $MinGWPath did NOT exist\n" if (!-d $MinGWPath);
die "7zip folder $sevenZipPath did NOT exist\n" if (!-d $sevenZipPath);

$sevenZipFile = "${sevenZipPath}\\7za.exe";
$MinGWMake = "${MinGWPath}\\bin\\mingw32-make.exe";
die "MinGW file $MinGWMake did NOT exist\n" if (!-e $MinGWMake);
die "7zip file $sevenZipFile did NOT exist\n" if (!-e $sevenZipFile);

@mapDirs = (
 [ "${MinGWPath}\\bin", qw(tools\MinGW\bin) ],
 [ "${MinGWPath}\\lib", qw(tools\MinGW\lib) ],
 [ "${MinGWPath}\\include", qw(tools\MinGW\include) ],
 [ "${MSYSPath}\\bin", qw(tools\MSYS\bin) ],
 [ "${MSYSPath}\\etc", qw(tools\MSYS\etc) ],
);

@mapFiles = (
 [ $MinGWMake, qw(tools make.exe) ],
 [ $sevenZipFile, qw(lcmmi\Customer\ResGenerator 7za.exe) ],
 [ $sevenZipFile, qw(plutommi\Customer\ResGenerator 7za.exe) ],
);

@mdDirs = qw(tools tools\MinGW tools\MSYS);
foreach (@mdDirs) { system("mkdir $_") if (!-d $_);}

for $i (0 .. $#mapDirs) {
  die "Folder $mapDirs[$i][0] did NOT exist\n" if (!-d $mapDirs[$i][0]);
  print("Copy folder $mapDirs[$i][0] to $mapDirs[$i][1]\n");
  system("mkdir $mapDirs[$i][1]") if (!-d $mapDirs[$i][1]);
  system("xcopy /Y /Q /S $mapDirs[$i][0] $mapDirs[$i][1]");
}

for $i (0 .. $#mapFiles) {
  if (-d $mapFiles[$i][1]) {
    print("Copy file $mapFiles[$i][0] to $mapFiles[$i][1]\\$mapFiles[$i][2]\n");
    system("copy /Y $mapFiles[$i][0] $mapFiles[$i][1]\\$mapFiles[$i][2] > nul 2>&1");
  }
}

exit 0;