[Feature]add MT2731_MP2_MR2_SVN388 baseline version
Change-Id: Ief04314834b31e27effab435d3ca8ba33b499059
diff --git a/src/bach/build.bach/tools/perl/Spreadsheet/ParseExcel/FmtDefault.pm b/src/bach/build.bach/tools/perl/Spreadsheet/ParseExcel/FmtDefault.pm
new file mode 100644
index 0000000..416866f
--- /dev/null
+++ b/src/bach/build.bach/tools/perl/Spreadsheet/ParseExcel/FmtDefault.pm
@@ -0,0 +1,221 @@
+package Spreadsheet::ParseExcel::FmtDefault;
+
+###############################################################################
+#
+# Spreadsheet::ParseExcel::FmtDefault - A class for Cell formats.
+#
+# Used in conjunction with Spreadsheet::ParseExcel.
+#
+# Copyright (c) 2009 John McNamara
+# Copyright (c) 2006-2008 Gabor Szabo
+# Copyright (c) 2000-2006 Kawai Takanori
+#
+# perltidy with standard settings.
+#
+# Documentation after __END__
+#
+
+use strict;
+use warnings;
+
+use Spreadsheet::ParseExcel::Utility qw(ExcelFmt);
+our $VERSION = '0.59';
+
+my %hFmtDefault = (
+ 0x00 => '@',
+ 0x01 => '0',
+ 0x02 => '0.00',
+ 0x03 => '#,##0',
+ 0x04 => '#,##0.00',
+ 0x05 => '($#,##0_);($#,##0)',
+ 0x06 => '($#,##0_);[RED]($#,##0)',
+ 0x07 => '($#,##0.00_);($#,##0.00_)',
+ 0x08 => '($#,##0.00_);[RED]($#,##0.00_)',
+ 0x09 => '0%',
+ 0x0A => '0.00%',
+ 0x0B => '0.00E+00',
+ 0x0C => '# ?/?',
+ 0x0D => '# ??/??',
+ 0x0E => 'yyyy-mm-dd', # Was 'm-d-yy', which is bad as system default
+ 0x0F => 'd-mmm-yy',
+ 0x10 => 'd-mmm',
+ 0x11 => 'mmm-yy',
+ 0x12 => 'h:mm AM/PM',
+ 0x13 => 'h:mm:ss AM/PM',
+ 0x14 => 'h:mm',
+ 0x15 => 'h:mm:ss',
+ 0x16 => 'm-d-yy h:mm',
+
+ #0x17-0x24 -- Differs in Natinal
+ 0x25 => '(#,##0_);(#,##0)',
+ 0x26 => '(#,##0_);[RED](#,##0)',
+ 0x27 => '(#,##0.00);(#,##0.00)',
+ 0x28 => '(#,##0.00);[RED](#,##0.00)',
+ 0x29 => '_(*#,##0_);_(*(#,##0);_(*"-"_);_(@_)',
+ 0x2A => '_($*#,##0_);_($*(#,##0);_(*"-"_);_(@_)',
+ 0x2B => '_(*#,##0.00_);_(*(#,##0.00);_(*"-"??_);_(@_)',
+ 0x2C => '_($*#,##0.00_);_($*(#,##0.00);_(*"-"??_);_(@_)',
+ 0x2D => 'mm:ss',
+ 0x2E => '[h]:mm:ss',
+ 0x2F => 'mm:ss.0',
+ 0x30 => '##0.0E+0',
+ 0x31 => '@',
+);
+
+#------------------------------------------------------------------------------
+# new (for Spreadsheet::ParseExcel::FmtDefault)
+#------------------------------------------------------------------------------
+sub new {
+ my ( $sPkg, %hKey ) = @_;
+ my $oThis = {};
+ bless $oThis;
+ return $oThis;
+}
+
+#------------------------------------------------------------------------------
+# TextFmt (for Spreadsheet::ParseExcel::FmtDefault)
+#------------------------------------------------------------------------------
+sub TextFmt {
+ my ( $oThis, $sTxt, $sCode ) = @_;
+ return $sTxt if ( ( !defined($sCode) ) || ( $sCode eq '_native_' ) );
+ return pack( 'U*', unpack( 'n*', $sTxt ) );
+}
+
+#------------------------------------------------------------------------------
+# FmtStringDef (for Spreadsheet::ParseExcel::FmtDefault)
+#------------------------------------------------------------------------------
+sub FmtStringDef {
+ my ( $oThis, $iFmtIdx, $oBook, $rhFmt ) = @_;
+ my $sFmtStr = $oBook->{FormatStr}->{$iFmtIdx};
+
+ if ( !( defined($sFmtStr) ) && defined($rhFmt) ) {
+ $sFmtStr = $rhFmt->{$iFmtIdx};
+ }
+ $sFmtStr = $hFmtDefault{$iFmtIdx} unless ($sFmtStr);
+ return $sFmtStr;
+}
+
+#------------------------------------------------------------------------------
+# FmtString (for Spreadsheet::ParseExcel::FmtDefault)
+#------------------------------------------------------------------------------
+sub FmtString {
+ my ( $oThis, $oCell, $oBook ) = @_;
+
+ my $sFmtStr =
+ $oThis->FmtStringDef( $oBook->{Format}[ $oCell->{FormatNo} ]->{FmtIdx},
+ $oBook );
+
+ # Special case for cells that use Lotus123 style leading
+ # apostrophe to designate text formatting.
+ if ( $oBook->{Format}[ $oCell->{FormatNo} ]->{Key123} ) {
+ $sFmtStr = '@';
+ }
+
+ unless ( defined($sFmtStr) ) {
+ if ( $oCell->{Type} eq 'Numeric' ) {
+ if ( int( $oCell->{Val} ) != $oCell->{Val} ) {
+ $sFmtStr = '0.00';
+ }
+ else {
+ $sFmtStr = '0';
+ }
+ }
+ elsif ( $oCell->{Type} eq 'Date' ) {
+ if ( int( $oCell->{Val} ) <= 0 ) {
+ $sFmtStr = 'h:mm:ss';
+ }
+ else {
+ $sFmtStr = 'yyyy-mm-dd';
+ }
+ }
+ else {
+ $sFmtStr = '@';
+ }
+ }
+ return $sFmtStr;
+}
+
+#------------------------------------------------------------------------------
+# ValFmt (for Spreadsheet::ParseExcel::FmtDefault)
+#------------------------------------------------------------------------------
+sub ValFmt {
+ my ( $oThis, $oCell, $oBook ) = @_;
+
+ my ( $Dt, $iFmtIdx, $iNumeric, $Flg1904 );
+
+ if ( $oCell->{Type} eq 'Text' ) {
+ $Dt =
+ ( ( defined $oCell->{Val} ) && ( $oCell->{Val} ne '' ) )
+ ? $oThis->TextFmt( $oCell->{Val}, $oCell->{Code} )
+ : '';
+
+ return $Dt;
+ }
+ else {
+ $Dt = $oCell->{Val};
+ $Flg1904 = $oBook->{Flg1904};
+ my $sFmtStr = $oThis->FmtString( $oCell, $oBook );
+
+ return ExcelFmt( $sFmtStr, $Dt, $Flg1904, $oCell->{Type} );
+ }
+}
+
+#------------------------------------------------------------------------------
+# ChkType (for Spreadsheet::ParseExcel::FmtDefault)
+#------------------------------------------------------------------------------
+sub ChkType {
+ my ( $oPkg, $iNumeric, $iFmtIdx ) = @_;
+ if ($iNumeric) {
+ if ( ( ( $iFmtIdx >= 0x0E ) && ( $iFmtIdx <= 0x16 ) )
+ || ( ( $iFmtIdx >= 0x2D ) && ( $iFmtIdx <= 0x2F ) ) )
+ {
+ return "Date";
+ }
+ else {
+ return "Numeric";
+ }
+ }
+ else {
+ return "Text";
+ }
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Spreadsheet::ParseExcel::FmtDefault - A class for Cell formats.
+
+=head1 SYNOPSIS
+
+See the documentation for Spreadsheet::ParseExcel.
+
+=head1 DESCRIPTION
+
+This module is used in conjunction with Spreadsheet::ParseExcel. See the documentation for Spreadsheet::ParseExcel.
+
+=head1 AUTHOR
+
+Maintainer 0.40+: John McNamara jmcnamara@cpan.org
+
+Maintainer 0.27-0.33: Gabor Szabo szabgab@cpan.org
+
+Original author: Kawai Takanori kwitknr@cpan.org
+
+=head1 COPYRIGHT
+
+Copyright (c) 2009-2010 John McNamara
+
+Copyright (c) 2006-2008 Gabor Szabo
+
+Copyright (c) 2000-2006 Kawai Takanori
+
+All rights reserved.
+
+You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.
+
+=cut