File Coverage

blib/lib/Spreadsheet/WriteExcelXML/Worksheet.pm

Criterion	Covered	Total	%
statement	1022	1217	83.9
branch	415	566	73.3
condition	157	230	68.2
subroutine	83	106	78.3
pod	0	59	0.0
total	1677	2178	77.0

package Spreadsheet::WriteExcelXML::Worksheet;

###############################################################################
#
# Worksheet - A writer class for Excel Worksheets.
#
#
# Used in conjunction with Spreadsheet::WriteExcelXML
#
# Copyright 2000-2010, John McNamara, [e-mail]
#
# Documentation after __END__
#

use Exporter;
use strict;
use Carp;
use Spreadsheet::WriteExcelXML::XMLwriter;
use Spreadsheet::WriteExcelXML::Format;
use Spreadsheet::WriteExcelXML::Utility qw(xl_cell_to_rowcol xl_rowcol_to_cell);




use vars qw($VERSION @ISA);
@ISA = qw(Spreadsheet::WriteExcelXML::XMLwriter);

$VERSION = '0.15';

###############################################################################
#
# new()
#
# Constructor. Creates a new Worksheet object from a XMLwriter object
#
sub new {

    my $class                   = shift;
    my $self                    = Spreadsheet::WriteExcelXML::XMLwriter->new();
    my $rowmax                  = 1_048_576;
    my $colmax                  = 16_384;
    my $strmax                  = 32767;

    $self->{_name}              = $_[0];
    $self->{_index}             = $_[1];
    $self->{_filehandle}        = $_[2];
    $self->{_indentation}       = $_[3];
    $self->{_activesheet}       = $_[4];
    $self->{_firstsheet}        = $_[5];
    $self->{_1904}              = $_[6];
    $self->{_lower_cell_limits} = $_[7];

    $self->{_ext_sheets}        = [];
    $self->{_fileclosed}        = 0;
    $self->{_offset}            = 0;
    $self->{_xls_rowmax}        = $rowmax;
    $self->{_xls_colmax}        = $colmax;
    $self->{_xls_strmax}        = $strmax;
    $self->{_dim_rowmin}        = $rowmax +1;
    $self->{_dim_rowmax}        = 0;
    $self->{_dim_colmin}        = $colmax +1;
    $self->{_dim_colmax}        = 0;
    $self->{_dim_changed}       = 0;
    $self->{_colinfo}           = [];
    $self->{_selection}         = [0, 0];
    $self->{_panes}             = [];
    $self->{_active_pane}       = 3;
    $self->{_frozen}            = 0;
    $self->{_selected}          = 0;

    $self->{_paper_size}        = 0x0;
    $self->{_orientation}       = 0x1;
    $self->{_header}            = '';
    $self->{_footer}            = '';
    $self->{_hcenter}           = 0;
    $self->{_vcenter}           = 0;
    $self->{_margin_head}       = 0.50;
    $self->{_margin_foot}       = 0.50;
    $self->{_margin_left}       = 0.75;
    $self->{_margin_right}      = 0.75;
    $self->{_margin_top}        = 1.00;
    $self->{_margin_bottom}     = 1.00;

    $self->{_repeat_rows}       = '';
    $self->{_repeat_cols}       = '';

    $self->{_print_gridlines}   = 0;
    $self->{_screen_gridlines}  = 1;
    $self->{_print_headers}     = 0;

    $self->{_page_order}        = 0;
    $self->{_black_white}       = 0;
    $self->{_draft_quality}     = 0;
    $self->{_print_comments}    = 0;
    $self->{_page_start}        = 0;

    $self->{_fit_page}          = 0;
    $self->{_fit_width}         = 0;
    $self->{_fit_height}        = 0;

    $self->{_hbreaks}           = [];
    $self->{_vbreaks}           = [];

    $self->{_protect}           = 0;
    $self->{_password}          = undef;

    $self->{_set_cols}          = {};
    $self->{_set_rows}          = {};

    $self->{_zoom}              = 100;
    $self->{_print_scale}       = 100;

    $self->{_leading_zeros}     = 0;

    $self->{_outline_row_level} = 0;
    $self->{_outline_style}     = 0;
    $self->{_outline_below}     = 1;
    $self->{_outline_right}     = 1;
    $self->{_outline_on}        = 1;

    $self->{_names}             = {};

    $self->{_write_match}       = [];

    $self->{prev_col}           = -1;

    $self->{_table}             = [];
    $self->{_merge}             = {};
    $self->{_comment}           = {};

    $self->{_autofilter}        = '';
    $self->{_filter_on}         = 0;
    $self->{_filter_range}      = [];
    $self->{_filter_cols}       = {};



    $self->{_datatypes}         = {String   => 1,
                                   Number   => 2,
                                   DateTime => 3,
                                   Formula  => 4,
                                   Blank    => 5,
                                   HRef     => 6,
                                   Merge    => 7,
                                   Comment  => 8,
                                  };

    # Set older cell limits if required for backward compatibility.
    if ( $self->{_lower_cell_limits} ) {
        $self->{_xls_rowmax} = 65536;
        $self->{_xls_colmax} = 256;
    }


    bless $self, $class;
    $self->_initialize();
    return $self;
}


###############################################################################
#
# _initialize()
#
# Placeholder.
#
sub _initialize {

    my $self = shift;
}


###############################################################################
#
# _close()
#
# Write the worksheet elements.
#
sub _close {

    my $self = shift;
    my $sheetnames = shift;
    my $num_sheets = scalar @$sheetnames;

    $self->_write_xml_start_tag(1, 1, 0, 'Worksheet',
                                         'ss:Name',
                                         $self->{_name});

    # Write the Name elements such as print area and repeat rows.
    $self->_write_names();

    # Write the Table element and the child Row, Cell and Data elements.
    $self->_write_xml_table();

    # Write the worksheet page setup options.
    $self->_write_worksheet_options();

    # Store horizontal and vertical pagebreaks.
    $self->_store_pagebreaks();

    # Store autofilter information.
    $self->_write_autofilter();

    # Close Workbook tag. WriteExcel _store_eof().
    $self->_write_xml_end_tag(1, 1, 1, 'Worksheet');

}


###############################################################################
#
# get_name().
#
# Retrieve the worksheet name.
#
sub get_name {

    my $self    = shift;

    return $self->{_name};
}


###############################################################################
#
# select()
#
# Set this worksheet as a selected worksheet, i.e. the worksheet has its tab
# highlighted.
#
sub select {

    my $self = shift;

    $self->{_selected} = 1;
}


###############################################################################
#
# activate()
#
# Set this worksheet as the active worksheet, i.e. the worksheet that is
# displayed when the workbook is opened. Also set it as selected.
#
sub activate {

    my $self = shift;

    $self->{_selected} = 1;
    ${$self->{_activesheet}} = $self->{_index};
}


###############################################################################
#
# set_first_sheet()
#
# Set this worksheet as the first visible sheet. This is necessary
# when there are a large number of worksheets and the activated
# worksheet is not visible on the screen.
#
sub set_first_sheet {

    my $self = shift;

    ${$self->{_firstsheet}} = $self->{_index};
}


###############################################################################
#
# protect($password)
#
# Set the worksheet protection flag to prevent accidental modification and to
# hide formulas if the locked and hidden format properties have been set.
#
sub protect {

    my $self = shift;

    $self->{_protect}   = 1;

    # No password in XML format.
}


###############################################################################
#
# set_column($firstcol, $lastcol, $width, $format, $hidden, $autofit)
#
# Set the width of a single column or a range of columns.
# See also: _store_colinfo
#
sub set_column {

    my $self = shift;
    my $cell = $_[0];

    # Check for a cell reference in A1 notation and substitute row and column
    if ($cell =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);

        # Returned values $row1 and $row2 aren't required here. Remove them.
        shift  @_;       # $row1
        splice @_, 1, 1; # $row2
    }


    my ($firstcol, $lastcol) = @_;

    # Ensure at least $firstcol, $lastcol and $width
    return if @_ < 3;

    # Check that column number is valid and store the max value
    return if $self->_check_dimensions(0, $lastcol);


    my $width   = $_[2];
    my $format  = _XF($self, 0, 0, $_[3]);
    my $hidden  = $_[4];
    my $autofit = $_[5];

    if (defined $width) {
        $width = $self->_size_col($_[2]);

        # The cell is hidden if the width is zero.
        $hidden = 1 if $width == 0;
    }


    foreach my $col ($firstcol .. $lastcol) {
        $self->{_set_cols}->{$col} = [$width, $format, $hidden, $autofit];
    }
}


###############################################################################
#
# set_selection()
#
# Set which cell or cells are selected in a worksheet: see also the
# sub _store_selection
#
sub set_selection {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    $self->{_selection} = [ @_ ];
}


###############################################################################
#
# freeze_panes()
#
# Set panes and mark them as frozen. See also _store_panes().
#
sub freeze_panes {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    $self->{_frozen} = 1;
    $self->{_panes}  = [ @_ ];
}


###############################################################################
#
# thaw_panes()
#
# Set panes and mark them as unfrozen. See also _store_panes().
#
sub thaw_panes {

    my $self = shift;

    $self->{_frozen} = 0;
    $self->{_panes}  = [ @_ ];
}


###############################################################################
#
# set_portrait()
#
# Set the page orientation as portrait.
#
sub set_portrait {

    my $self = shift;

    $self->{_orientation} = 1;
}


###############################################################################
#
# set_landscape()
#
# Set the page orientation as landscape.
#
sub set_landscape {

    my $self = shift;

    $self->{_orientation} = 0;
}


###############################################################################
#
# set_paper()
#
# Set the paper type. Ex. 1 = US Letter, 9 = A4
#
sub set_paper {

    my $self = shift;

    $self->{_paper_size} = $_[0] || 0;
}


###############################################################################
#
# set_header()
#
# Set the page header caption and optional margin.
#
sub set_header {

    my $self   = shift;
    my $string = $_[0] || '';

    if (length $string >= 255) {
        carp 'Header string must be less than 255 characters';
        return;
    }

    $self->{_header}      = $string;
    $self->{_margin_head} = $_[1] || 0.50;
}


###############################################################################
#
# set_footer()
#
# Set the page footer caption and optional margin.
#
sub set_footer {

    my $self   = shift;
    my $string = $_[0] || '';

    if (length $string >= 255) {
        carp 'Footer string must be less than 255 characters';
        return;
    }


    $self->{_footer}      = $string;
    $self->{_margin_foot} = $_[1] || 0.50;
}


###############################################################################
#
# center_horizontally()
#
# Center the page horizontally.
#
sub center_horizontally {

    my $self = shift;

    if (defined $_[0]) {
        $self->{_hcenter} = $_[0];
    }
    else {
        $self->{_hcenter} = 1;
    }
}


###############################################################################
#
# center_vertically()
#
# Center the page horinzontally.
#
sub center_vertically {

    my $self = shift;

    if (defined $_[0]) {
        $self->{_vcenter} = $_[0];
    }
    else {
        $self->{_vcenter} = 1;
    }
}


###############################################################################
#
# set_margins()
#
# Set all the page margins to the same value in inches.
#
sub set_margins {

    my $self = shift;

    $self->set_margin_left($_[0]);
    $self->set_margin_right($_[0]);
    $self->set_margin_top($_[0]);
    $self->set_margin_bottom($_[0]);
}


###############################################################################
#
# set_margins_LR()
#
# Set the left and right margins to the same value in inches.
#
sub set_margins_LR {

    my $self = shift;

    $self->set_margin_left($_[0]);
    $self->set_margin_right($_[0]);
}


###############################################################################
#
# set_margins_TB()
#
# Set the top and bottom margins to the same value in inches.
#
sub set_margins_TB {

    my $self = shift;

    $self->set_margin_top($_[0]);
    $self->set_margin_bottom($_[0]);
}


###############################################################################
#
# set_margin_left()
#
# Set the left margin in inches.
#
sub set_margin_left {

    my $self = shift;

    $self->{_margin_left} = defined $_[0] ? $_[0] : 0.75;
}


###############################################################################
#
# set_margin_right()
#
# Set the right margin in inches.
#
sub set_margin_right {

    my $self = shift;

    $self->{_margin_right} = defined $_[0] ? $_[0] : 0.75;
}


###############################################################################
#
# set_margin_top()
#
# Set the top margin in inches.
#
sub set_margin_top {

    my $self = shift;

    $self->{_margin_top} = defined $_[0] ? $_[0] : 1.00;
}


###############################################################################
#
# set_margin_bottom()
#
# Set the bottom margin in inches.
#
sub set_margin_bottom {

    my $self = shift;

    $self->{_margin_bottom} = defined $_[0] ? $_[0] : 1.00;
}


###############################################################################
#
# repeat_rows($first_row, $last_row)
#
# Set the rows to repeat at the top of each printed page. This is stored as
#  element.
#
sub repeat_rows {

    my $self = shift;

    my $row_min  = $_[0];
    my $row_max  = $_[1] || $_[0]; # Second row is optional

    my $area;

    # Convert the zero-indexed rows to R1:R2 notation.
    if ($row_min == $row_max) {
        $area = 'R' . ($row_min +1);
    }
    else {
        $area = 'R' . ($row_min +1) . ':' . 'R' . ($row_max +1);
    }

    # Build up the print area range "=Sheet2!R1:R2"
    my $sheetname = $self->_quote_sheetname($self->{_name});
    $area         = $sheetname . "!". $area;


    $self->{_repeat_rows} =  $area;
}


###############################################################################
#
# repeat_columns($first_col, $last_col)
#
# Set the columns to repeat at the left hand side of each printed page. This is
# stored as a  element.
#
sub repeat_columns {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);

        # Returned values $row1 and $row2 aren't required here. Remove them.
        shift  @_;       # $row1
        splice @_, 1, 1; # $row2
    }

    my $col_min  = $_[0];
    my $col_max  = $_[1] || $_[0]; # Second col is optional

    my $area;

    # Convert the zero-indexed cols to C1:C2 notation.
    if ($col_min == $col_max) {
        $area = 'C' . ($col_min +1);
    }
    else {
        $area = 'C' . ($col_min +1) . ':' . 'C' . ($col_max +1);
    }

    # Build up the print area range "=Sheet2!C1:C2"
    my $sheetname = $self->_quote_sheetname($self->{_name});
    $area         = $sheetname . "!". $area;


    $self->{_repeat_cols} =  $area;
}


###############################################################################
#
# print_area($first_row, $first_col, $last_row, $last_col)
#
# Set the print area in the current worksheet. This is stored as a
# element.
#
sub print_area {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    return if @_ != 4; # Require 4 parameters

    my ($row1, $col1, $row2, $col2) = @_;

    # Ignore max print area since this is the same as no print area for Excel.
    if ($row1 == 0                       and
        $col1 == 0                       and
        $row2 == $self->{_xls_rowmax} -1 and
        $col2 == $self->{_xls_colmax} -1
    ){return}

    # Build up the print area range "=Sheet2!R1C1:R2C1"
    my $area = $self->_convert_name_area($row1, $col1, $row2, $col2);

    $self->{_names}->{'Print_Area'} = $area;
}


###############################################################################
#
# autofilter($first_row, $first_col, $last_row, $last_col)
#
# Set the autofilter area in the worksheet.
#
sub autofilter {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    return if @_ != 4; # Require 4 parameters

    my ($row1, $col1, $row2, $col2) = @_;


    # Build up the print area range "=Sheet2!R1C1:R2C1"
    my $area = $self->_convert_name_area($row1, $col1, $row2, $col2);


    # Store the filter as a named range
    $self->{_names}->{'_FilterDatabase'} = $area;

    # Store the  information
    $area =~ s/[^!]+!//; # Remove sheet name
    $self->{_autofilter}   = $area;
    $self->{_filter_range} = [$col1, $col2];
}


###############################################################################
#
# filter_column($column, $criteria, ...)
#
# Set the column filter criteria.
#
sub filter_column {

    my $self        = shift;
    my $col         = $_[0];
    my $expression  = $_[1];


    # Check for a column reference in A1 notation and substitute.
    if ($col =~ /^\D/) {
        my $col_letter = $col;
        (undef, $col) = xl_cell_to_rowcol($col . '1');

        croak "Invalid column '$col_letter'" if $col >= $self->{_xls_colmax};
    }


    my ($col_first, $col_last) = @{$self->{_filter_range}};

    # Ignore column if it is outside filter range.
    return if $col < $col_first or $col > $col_last;


    my @tokens = split ' ', $expression;

    croak "Incorrect number of tokens in expression '$expression'"
          unless (@tokens == 3 or @tokens == 7);


    # We create an array slice to extract the operators from the arguments
    # and another to exclude the column placeholders.
    #
    # Index: 0 1 2  3  4 5 6
    #        x > 2
    #        x > 2 and x < 6

    my @slice1 = @tokens == 3 ? (1)    : (1,    3,   5   );
    my @slice2 = @tokens == 3 ? (1, 2) : (1, 2, 3,   5, 6);


    my %operators = (
                        '=='  => 'Equals',
                        '='   => 'Equals',
                        '=~'  => 'Equals',
                        'eq'  => 'Equals',

                        '!='  => 'DoesNotEqual',
                        '!~'  => 'DoesNotEqual',
                        'ne'  => 'DoesNotEqual',
                        '<>'  => 'DoesNotEqual',

                        '>'   => 'GreaterThan',
                        '>='  => 'GreaterThanOrEqual',
                        '<'   => 'LessThan',
                        '<='  => 'LessThanOrEqual',

                        'and' => 'AutoFilterAnd',
                        'or'  => 'AutoFilterOr',
                        '&&'  => 'AutoFilterAnd',
                        '||'  => 'AutoFilterOr',
                    );


    for (@tokens[@slice1]) {
        if (not exists $operators{$_}) {
            croak "Unknown operator '$_'";
        }
    }


    for (@tokens[@slice1]) {
        for my $key (keys %operators) {
            s/^\Q$key\E$/$operators{$key}/i;
        }
    }

    $self->{_filter_cols}->{$col} = [@tokens[@slice2]];
    $self->{_filter_on}           = 1;
}


###############################################################################
#
# _convert_name_area($first_row, $first_col, $last_row, $last_col)
#
# Convert zero indexed rows and columns to the R1C1 range required by worksheet
# named ranges, eg, "=Sheet2!R1C1:R2C1".
#
sub _convert_name_area {

    my $self = shift;

    my $row1    = $_[0];
    my $col1    = $_[1];
    my $row2    = $_[2];
    my $col2    = $_[3];

    my $range1 = '';
    my $range2 = '';
    my $area;


    # We need to handle some special cases that refer to rows or columns only.
    if (   $row1 == 0 and $row2 == $self->{_xls_rowmax} -1) {
       $range1 = 'C' . ($col1 +1);
       $range2 = 'C' . ($col2 +1);
    }
    elsif ($col1 == 0 and $col2 == $self->{_xls_colmax} -1) {
       $range1 = 'R' . ($row1 +1);
       $range2 = 'R' . ($row2 +1);
    }
    else {
       $range1 = 'R' . ($row1 +1) . 'C' . ($col1 +1);
       $range2 = 'R' . ($row2 +1) . 'C' . ($col2 +1);
    }


    # A repeated range is only written once.
    if ($range1 eq $range2) {
        $area = $range1;
    }
    else {
        $area = $range1 . ':' . $range2;
    }

    # Build up the print area range "=Sheet2!R1C1:R2C1"
    my $sheetname = $self->_quote_sheetname($self->{_name});
    $area = '=' . $sheetname . "!". $area;


    return $area;
}


###############################################################################
#
# hide_gridlines()
#
# Set the option to hide gridlines on the screen and the printed page.
#
# This was mainly useful for Excel 5 where printed gridlines were on by
# default.
#
sub hide_gridlines {

    my $self   = shift;
    my $option = $_[0];

    $option = 1 unless defined $option; # Default to hiding printed gridlines

    if ($option == 0) {
        $self->{_print_gridlines}  = 1; # 1 = display, 0 = hide
        $self->{_screen_gridlines} = 1;
    }
    elsif ($option == 1) {
        $self->{_print_gridlines}  = 0;
        $self->{_screen_gridlines} = 1;
    }
    else {
        $self->{_print_gridlines}  = 0;
        $self->{_screen_gridlines} = 0;
    }
}


###############################################################################
#
# print_gridlines()
#
# Turn on the printed gridlines.
#
sub print_gridlines {

    my $self   = shift;

    $self->{_print_gridlines} = defined $_[0] ? $_[0] : 1;
}


###############################################################################
#
# print_row_col_headers()
#
# Set the option to print the row and column headers on the printed page.
# See also the _store_print_headers() method below.
#
sub print_row_col_headers {

    my $self = shift;

    if (defined $_[0]) {
        $self->{_print_headers} = $_[0];
    }
    else {
        $self->{_print_headers} = 1;
    }
}


###############################################################################
#
# fit_to_pages($width, $height)
#
# Store the vertical and horizontal number of pages that will define the
# maximum area printed. See also _store_setup() and _store_wsbool() below.
#
sub fit_to_pages {

    my $self = shift;

    $self->{_fit_page}      = 1;
    $self->{_fit_width}     = $_[0] || 1;
    $self->{_fit_height}    = $_[1] || 1;
}


###############################################################################
#
# set_h_pagebreaks(@breaks)
#
# Store the horizontal page breaks on a worksheet.
#
sub set_h_pagebreaks {

    my $self = shift;

    push @{$self->{_hbreaks}}, @_;
}


###############################################################################
#
# set_v_pagebreaks(@breaks)
#
# Store the vertical page breaks on a worksheet.
#
sub set_v_pagebreaks {

    my $self = shift;

    push @{$self->{_vbreaks}}, @_;
}


###############################################################################
#
# set_zoom($scale)
#
# Set the worksheet zoom factor.
#
sub set_zoom {

    my $self  = shift;
    my $scale = $_[0] || 100;

    # Confine the scale to Excel's range
    if ($scale < 10 or $scale > 400) {
        carp "Zoom factor $scale outside range: 10 <= zoom <= 400";
        $scale = 100;
    }

    $self->{_zoom} = int $scale;
}


###############################################################################
#
# set_print_scale($scale)
#
# Set the scale factor for the printed page.
#
sub set_print_scale {

    my $self  = shift;
    my $scale = $_[0] || 100;

    # Confine the scale to Excel's range
    if ($scale < 10 or $scale > 400) {
        carp "Print scale $scale outside range: 10 <= zoom <= 400";
        $scale = 100;
    }

    # Turn off "fit to page" option
    $self->{_fit_page}    = 0;

    $self->{_print_scale} = int $scale;
}


###############################################################################
#
# keep_leading_zeros()
#
# Causes the write() method to treat integers with a leading zero as a string.
# This ensures that any leading zeros such, as in zip codes, are maintained.
#
sub keep_leading_zeros {

    my $self = shift;

    if (defined $_[0]) {
        $self->{_leading_zeros} = $_[0];
    }
    else {
        $self->{_leading_zeros} = 1;
    }
}


###############################################################################
#
# add_write_handler($re, $code_ref)
#
# Allow the user to add their own matches and handlers to the write() method.
#
sub add_write_handler {

    my $self = shift;

    return unless @_ == 2;
    return unless ref $_[1] eq 'CODE';

    push @{$self->{_write_match}}, [ @_ ];
}



###############################################################################
#
# write($row, $col, $token, $format)
#
# Parse $token and call appropriate write method. $row and $column are zero
# indexed. $format is optional.
#
# Returns: return value of called subroutine
#
sub write {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    my $token = $_[2];

    # Handle undefs as blanks
    $token = '' unless defined $token;


    # First try user defined matches.
    for my $aref (@{$self->{_write_match}}) {
        my $re  = $aref->[0];
        my $sub = $aref->[1];

        if ($token =~ /$re/) {
            my $match = &$sub($self, @_);
            return $match if defined $match;
        }
    }


    # Match an array ref.
    if (ref $token eq "ARRAY") {
        return $self->write_row(@_);
    }
    # Match integer with leading zero(s)
    elsif ($self->{_leading_zeros} and $token =~ /^0\d+$/) {
        return $self->write_string(@_);
    }
    # Match number
    elsif ($token =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/) {
        return $self->write_number(@_);
    }
    # Match http, https or ftp URL
    elsif ($token =~ m|^[fh]tt?ps?://|) {
        return $self->write_url(@_);
    }
    # Match mailto:
    elsif ($token =~ m/^mailto:/) {
        return $self->write_url(@_);
    }
    # Match internal or external sheet link
    elsif ($token =~ m[^(?:in|ex)ternal:]) {
        return $self->write_url(@_);
    }
    # Match formula
    elsif ($token =~ /^=/) {
        return $self->write_formula(@_);
    }
    # Match array formula
    elsif ($token =~ /^{=.*}$/) {
        return $self->write_formula(@_);
    }
    # Match blank
    elsif ($token eq '') {
        splice @_, 2, 1; # remove the empty string from the parameter list
        return $self->write_blank(@_);
    }
    # Default: match string
    else {
        return $self->write_string(@_);
    }
}


###############################################################################
#
# write_row($row, $col, $array_ref, $format)
#
# Write a row of data starting from ($row, $col). Call write_col() if any of
# the elements of the array ref are in turn array refs. This allows the writing
# of 1D or 2D arrays of data in one go.
#
# Returns: the first encountered error value or zero for no errors
#
sub write_row {

    my $self = shift;


    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    # Catch non array refs passed by user.
    if (ref $_[2] ne 'ARRAY') {
        croak "Not an array ref in call to write_row()$!";
    }

    my $row     = shift;
    my $col     = shift;
    my $tokens  = shift;
    my @options = @_;
    my $error   = 0;
    my $ret;

    foreach my $token (@$tokens) {

        # Check for nested arrays
        if (ref $token eq "ARRAY") {
            $ret = $self->write_col($row, $col, $token, @options);
        } else {
            $ret = $self->write    ($row, $col, $token, @options);
        }

        # Return only the first error encountered, if any.
        $error ||= $ret;
        $col++;
    }

    return $error;
}


###############################################################################
#
# write_col($row, $col, $array_ref, $format)
#
# Write a column of data starting from ($row, $col). Call write_row() if any of
# the elements of the array ref are in turn array refs. This allows the writing
# of 1D or 2D arrays of data in one go.
#
# Returns: the first encountered error value or zero for no errors
#
sub write_col {

    my $self = shift;


    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    # Catch non array refs passed by user.
    if (ref $_[2] ne 'ARRAY') {
        croak "Not an array ref in call to write_col()$!";
    }

    my $row     = shift;
    my $col     = shift;
    my $tokens  = shift;
    my @options = @_;
    my $error   = 0;
    my $ret;

    foreach my $token (@$tokens) {

        # write() will deal with any nested arrays
        $ret = $self->write($row, $col, $token, @options);

        # Return only the first error encountered, if any.
        $error ||= $ret;
        $row++;
    }

    return $error;
}


###############################################################################
#
# write_comment($row, $col, $comment)
#
# Write a comment to the specified row and column (zero indexed). The maximum
# comment size is 30831 chars. Excel5 probably accepts 32k-1 chars. However, it
# can only display 30831 chars. Excel 7 and 2000 will crash above 32k-1.
#
# In Excel 5 a comment is referred to as a NOTE.
#
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#         -3 : long comment truncated to 30831 chars
#
sub write_comment {

    my $self      = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }


    if (@_ < 3) { return -1 } # Check the number of args

    my $row         = $_[0];
    my $col         = $_[1];
    my $comment     = $_[2];
    my $length      = length($_[2]);
    my $error       = 0;
    my $max_len     = 30831; # Maintain same max as binary file.
    my $type        = $self->{_datatypes}->{Comment};

    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row, $col);

    # String must be <= 30831 chars
    if ($length > $max_len) {
        $comment    = substr($comment, 0, $max_len);
        $error      = -3;
    }


    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row, $col);


    # Add a datatype to the cell if it doesn't already contain one.
    # This prevents an empty cell with a comment from being ignored.
    #
    if (not $self->{_table}->[$row]->[$col]) {
        $self->{_table}->[$row]->[$col] = [$type];
    }

    # Store the comment.
    $self->{_comment}->{$row}->{$col} = $comment;

    return $error;
}


###############################################################################
#
# _XF()
#
# Returns an index to the XF record in the workbook.
#
# Note: this is a function, not a method.
#
sub _XF {

    # TODO $row and $col aren't actually required in the XML version and
    # should eventually be removed. They are required in the Biff version
    # to allow for row and col formats.

    my $self   = $_[0];
    my $row    = $_[1];
    my $col    = $_[2];
    my $format = $_[3];

    if (ref($format)) {
        return $format->get_xf_index();
    }
    else {
        return 0; # 0x0F for Spreadsheet::WriteExcel
    }
}


###############################################################################
###############################################################################
#
# Internal methods
#



###############################################################################
#
# _substitute_cellref()
#
# Substitute an Excel cell reference in A1 notation for  zero based row and
# column values in an argument list.
#
# Ex: ("A4", "Hello") is converted to (3, 0, "Hello").
#
sub _substitute_cellref {

    my $self = shift;
    my $cell = uc(shift);

    # Convert a column range: 'A:A' or 'B:G'.
    # A range such as A:A is equivalent to A1:Rowmax, so add rows as required
    if ($cell =~ /\$?([A-Z]{1,3}):\$?([A-Z]{1,3})/) {
        my ($row1, $col1) =  $self->_cell_to_rowcol($1 .'1');
        my ($row2, $col2) =  $self->_cell_to_rowcol($2 . $self->{_xls_rowmax});
        return $row1, $col1, $row2, $col2, @_;
    }

    # Convert a cell range: 'A1:B7'
    if ($cell =~ /\$?([A-Z]{1,3}\$?\d+):\$?([A-Z]{1,3}\$?\d+)/) {
        my ($row1, $col1) =  $self->_cell_to_rowcol($1);
        my ($row2, $col2) =  $self->_cell_to_rowcol($2);
        return $row1, $col1, $row2, $col2, @_;
    }

    # Convert a cell reference: 'A1' or 'AD2000'
    if ($cell =~ /\$?([A-Z]{1,3}\$?\d+)/) {
        my ($row1, $col1) =  $self->_cell_to_rowcol($1);
        return $row1, $col1, @_;

    }

    croak("Unknown cell reference $cell");
}


###############################################################################
#
# _cell_to_rowcol($cell_ref)
#
# Convert an Excel cell reference in A1 notation to a zero based row and column
# reference; converts C1 to (0, 2).
#
# See also: http://www.perlmonks.org/index.pl?node_id=270352
#
# Returns: ($row, $col, $row_absolute, $col_absolute)
#
#
sub _cell_to_rowcol {

    my $self =  shift;

    my $cell =  $_[0];
       $cell =~ /(\$?)([A-Z]{1,3})(\$?)(\d+)/;

    my $col_abs = $1 eq "" ? 0 : 1;
    my $col     = $2;
    my $row_abs = $3 eq "" ? 0 : 1;
    my $row     = $4;

    # Convert base26 column string to number
    # All your Base are belong to us.
    my @chars  = split //, $col;
    my $expn   = 0;
    $col       = 0;

    while (@chars) {
        my $char = pop(@chars); # LS char first
        $col += (ord($char) -ord('A') +1) * (26**$expn);
        $expn++;
    }

    # Convert 1-index to zero-index
    $row--;
    $col--;

    # TODO Check row and column range
    return $row, $col, $row_abs, $col_abs;
}


###############################################################################
#
# _sort_pagebreaks()
#
#
# This is an internal method that is used to filter elements of the array of
# pagebreaks used in the _store_hbreak() and _store_vbreak() methods. It:
#   1. Removes duplicate entries from the list.
#   2. Sorts the list.
#   3. Removes 0 from the list if present.
#
sub _sort_pagebreaks {

    my $self= shift;

    my %hash;
    my @array;

    @hash{@_} = undef;                       # Hash slice to remove duplicates
    @array    = sort {$a <=> $b} keys %hash; # Numerical sort
    shift @array if $array[0] == 0;          # Remove zero

    # 1000 vertical pagebreaks appears to be an internal Excel 5 limit.
    # It is slightly higher in Excel 97/200, approx. 1026
    splice(@array, 1000) if (@array > 1000);

    return @array
}


###############################################################################
#
# outline_settings($visible, $symbols_below, $symbols_right, $auto_style)
#
# This method sets the properties for outlining and grouping. The defaults
# correspond to Excel's defaults.
#
sub outline_settings {

    my $self                = shift;

    $self->{_outline_on}    = defined $_[0] ? $_[0] : 1;
    $self->{_outline_below} = defined $_[1] ? $_[1] : 1;
    $self->{_outline_right} = defined $_[2] ? $_[2] : 1;
    $self->{_outline_style} =         $_[3] || 0;

    # Ensure this is a boolean vale for Window2
    $self->{_outline_on}    = 1 if $self->{_outline_on};
}




###############################################################################
###############################################################################
#
# Public Methods
#


###############################################################################
#
# write_number($row, $col, $num, $format)
#
# Write a double to the specified row and column (zero indexed).
# An integer can be written as a double. Excel will display an
# integer. $format is optional.
#
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#
sub write_number {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    if (@_ < 3) { return -1 }                    # Check the number of args


    my $row     = $_[0];                         # Zero indexed row
    my $col     = $_[1];                         # Zero indexed column
    my $num     = $_[2];
    my $xf      = _XF($self, $row, $col, $_[3]); # The cell format
    my $type    = $self->{_datatypes}->{Number}; # The data type

    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row, $col);

    $self->{_table}->[$row]->[$col] = [$type, $num, $xf];

    return 0;
}


###############################################################################
#
# write_string ($row, $col, $string, $format, $html)
#
# Write a string to the specified row and column (zero indexed).
# $format is optional.
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#         -3 : long string truncated to 32767 chars
#
sub write_string {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    if (@_ < 3) { return -1 }                    # Check the number of args

    my $row     = $_[0];                         # Zero indexed row
    my $col     = $_[1];                         # Zero indexed column
    my $str     = $_[2];
    my $xf      = _XF($self, $row, $col, $_[3]); # The cell format
    my $html    = $_[4] || 0;                    # Cell contains html text
    my $comment = '';                            # Cell comment
    my $type    = $self->{_datatypes}->{String}; # The data type

    my $str_error = 0;

    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row, $col);

    if (length $str > $self->{_xls_strmax}) { # LABEL must be < 32767 chars
        $str       = substr($str, 0, $self->{_xls_strmax});
        $str_error = -3;
    }

    # Check if the cell already has a comment
    if ($self->{_table}->[$row]->[$col]) {
        $comment =  $self->{_table}->[$row]->[$col]->[4];
    }


    $self->{_table}->[$row]->[$col] = [$type, $str, $xf, $html, $comment];

    return $str_error;
}


###############################################################################
#
# write_html_string ($row, $col, $string, $format)
#
# Write a string to the specified row and column (zero indexed).
#
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#         -3 : long string truncated to 32767 chars
#
sub write_html_string {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    if (@_ < 3) { return -1 }           # Check the number of args

    my $row     = $_[0];                # Zero indexed row
    my $col     = $_[1];                # Zero indexed column
    my $str     = $_[2];
    my $xf      = $_[3];                # The cell format
    my $html    = 1;                    # Cell contains html text


    return $self->write_string($row, $col, $str, $xf, $html);
}


###############################################################################
#
# write_blank($row, $col, $format)
#
# Write a blank cell to the specified row and column (zero indexed).
# A blank cell is used to specify formatting without adding a string
# or a number.
#
# A blank cell without a format serves no purpose. Therefore, we don't write
# a BLANK record unless a format is specified. This is mainly an optimisation
# for the write_row() and write_col() methods.
#
# Returns  0 : normal termination (including no format)
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#
sub write_blank {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    # Check the number of args
    return -1 if @_ < 2;

    # Don't write a blank cell unless it has a format
    return 0 if not defined $_[2];


    my $record  = 0x0201;                        # Record identifier
    my $length  = 0x0006;                        # Number of bytes to follow

    my $row     = $_[0];                         # Zero indexed row
    my $col     = $_[1];                         # Zero indexed column
    my $xf      = _XF($self, $row, $col, $_[2]); # The cell format
    my $type    = $self->{_datatypes}->{Blank};  # The data type

    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row, $col);

    $self->{_table}->[$row]->[$col] = [$type, undef, $xf];

    return 0;
}


###############################################################################
#
# write_formula($row, $col, $formula, $format)
#
# Write a formula to the specified row and column (zero indexed).
#
# $format is optional.
#
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#
sub write_formula{

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    if (@_ < 3) { return -1 }   # Check the number of args

    my $row     = $_[0];      # Zero indexed row
    my $col     = $_[1];      # Zero indexed column
    my $formula = $_[2];      # The formula text string


    my $xf      = _XF($self, $row, $col, $_[3]);  # The cell format
    my $type    = $self->{_datatypes}->{Formula}; # The data type


    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row, $col);


    my $array_range = 'RC' if $formula =~ s/^{(.*)}$/$1/;

    # Add the = sign if it doesn't exist
    $formula =~ s/^([^=])/=$1/;


    # Convert A1 style references in the formula to R1C1 references
    $formula    = $self->_convert_formula($row, $col, $formula);


    $self->{_table}->[$row]->[$col] = [$type, $formula, $xf, $array_range];

    return 0;
}


###############################################################################
#
# write_array_formula($row1, $col1, $row2, $col2, $formula, $format)
#
# Write an array formula to the specified row and column (zero indexed).
#
# $format is optional.
#
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#
sub write_array_formula {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    if (@_ < 5) { return -1 }   # Check the number of args

    my $record  = 0x0006;       # Record identifier
    my $length;                 # Bytes to follow

    my $row1    = $_[0];        # First row
    my $col1    = $_[1];        # First column
    my $row2    = $_[2];        # Last row
    my $col2    = $_[3];        # Last column
    my $formula = $_[4];        # The formula text string

    my $xf      = _XF($self, $row1, $col1, $_[5]); # The cell format
    my $type    = $self->{_datatypes}->{Formula};  # The data type


    # Swap last row/col with first row/col as necessary
    ($row1, $row2) = ($row2, $row1) if $row1 > $row2;
    ($col1, $col2) = ($col1, $col2) if $col1 > $col2;


    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row2, $col2);


    # Define array range
    my $array_range;

    if ($row1 == $row2 and $col1 == $col2) {
        $array_range = 'RC';
    }
    else {
        $array_range = xl_rowcol_to_cell($row1, $col1) . ':' .
                       xl_rowcol_to_cell($row2, $col2);
        $array_range = $self->_convert_formula($row1, $col1, $array_range);
    }


    # Remove array formula braces and add = as required.
    $formula =~ s/^{(.*)}$/$1/;
    $formula =~ s/^([^=])/=$1/;


    # Convert A1 style references in the formula to R1C1 references
    $formula = $self->_convert_formula($row1, $col1, $formula);

    $self->{_table}->[$row1]->[$col1] = [$type, $formula, $xf, $array_range];

    return 0;
}


###############################################################################
#
# store_formula($formula)
#
# Pre-parse a formula. This is used in conjunction with repeat_formula()
# to repetitively rewrite a formula without re-parsing it.
#
sub store_formula{


    my $self = shift;

    # TODO Update for ExcelXML format
}


###############################################################################
#
# repeat_formula($row, $col, $formula, $format, ($pattern => $replacement,...))
#
# Write a formula to the specified row and column (zero indexed) by
# substituting $pattern $replacement pairs in the $formula created via
# store_formula(). This allows the user to repetitively rewrite a formula
# without the significant overhead of parsing.
#
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#
sub repeat_formula {

    my $self = shift;

    # TODO Update for ExcelXML format
}


###############################################################################
#
# write_url($row, $col, $url, $string, $format)
#
# Write a hyperlink. This is comprised of two elements: the visible label and
# the invisible link. The visible label is the same as the link unless an
# alternative string is specified. The label is written using the
# write_string() method. Therefore the max characters string limit applies.
# $string and $format are optional and their order is interchangeable.
#
# The hyperlink can be to a http, ftp, mail, internal sheet, or external
# directory url.
#
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#         -3 : long string truncated to 32767 chars
#
sub write_url {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    if (@_ < 3) { return -1 }                   # Check the number of args


    # Reverse the order of $string and $format if necessary. We work on a copy
    # in order to protect the callers args. We don't use "local @_" in case of
    # perl50005 threads.
    #
    my @args = @_;
    ($args[3], $args[4]) = ($args[4], $args[3]) if ref $args[3];


    my $row     = $args[0];                         # Zero indexed row
    my $col     = $args[1];                         # Zero indexed column
    my $url     = $args[2];                         # URL string
    my $str     = $args[3];                         # Alternative label
    my $xf      = _XF($self, $row, $col, $args[4]); # Tool tip
    my $tip     = $args[5];                         # XML data type
    my $type    = $self->{_datatypes}->{HRef};


    $url        =~ s/^internal:/#/; # Remove designators required by SWE.
    $url        =~ s/^external://;  # Remove designators required by SWE.
    $str        = $url unless defined $str;

    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row, $col);

    my $str_error = 0;


    $self->{_table}->[$row]->[$col] = [$type, $url, $xf, $str, $tip];

    return $str_error;
}


###############################################################################
#
# write_url_range($row1, $col1, $row2, $col2, $url, $string, $format)
#
# This is the more general form of write_url(). It allows a hyperlink to be
# written to a range of cells. This function also decides the type of hyperlink
# to be written. These are either, Web (http, ftp, mailto), Internal
# (Sheet1!A1) or external ('c:\temp\foo.xls#Sheet1!A1').
#
# See also write_url() above for a general description and return values.
#
sub write_url_range {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    # Check the number of args
    return -1 if @_ < 5;


    # Reverse the order of $string and $format if necessary. We work on a copy
    # in order to protect the callers args. We don't use "local @_" in case of
    # perl50005 threads.
    #
    my @args = @_;

    ($args[5], $args[6]) = ($args[6], $args[5]) if ref $args[5];

    my $url = $args[4];


    # Check for internal/external sheet links or default to web link
    return $self->_write_url_internal(@args) if $url =~ m[^internal:];
    return $self->_write_url_external(@args) if $url =~ m[^external:];
    return $self->_write_url_web(@args);
}


###############################################################################
#
# write_date_time ($row, $col, $string, $format)
#
# Write a datetime string in ISO8601 "yyyy-mm-ddThh:mm:ss.ss" format as a
# number representing an Excel date. $format is optional.
#
# Returns  0 : normal termination
#         -1 : insufficient number of arguments
#         -2 : row or column out of range
#         -3 : Invalid date_time, written as string
#
sub write_date_time {

    my $self = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }

    if (@_ < 3) { return -1 }                        # Check the number of args

    my $row       = $_[0];                           # Zero indexed row
    my $col       = $_[1];                           # Zero indexed column
    my $str       = $_[2];
    my $xf        = _XF($self, $row, $col, $_[3]);   # The cell format
    my $type      = $self->{_datatypes}->{DateTime}; # The data type


    # Check that row and col are valid and store max and min values
    return -2 if $self->_check_dimensions($row, $col);

    my $str_error = 0;
    my $date_time = $self->convert_date_time($str);

    # If the date isn't valid then write it as a string.
    if (not defined $date_time) {
        $type      = $self->{_datatypes}->{String};
        $str_error = -3;
    }

    $self->{_table}->[$row]->[$col] = [$type, $str, $xf];

    return $str_error;
}



###############################################################################
#
# convert_date_time($date_time_string)
#
# The function takes a date and time in ISO8601 "yyyy-mm-ddThh:mm:ss.ss" format
# and converts it to a decimal number representing a valid Excel date.
#
# Dates and times in Excel are represented by real numbers. The integer part of
# the number stores the number of days since the epoch and the fractional part
# stores the percentage of the day in seconds. The epoch can be either 1900 or
# 1904.
#
# Parameter: Date and time string in one of the following formats:
#               yyyy-mm-ddThh:mm:ss.ss  # Standard
#               yyyy-mm-ddT             # Date only
#                         Thh:mm:ss.ss  # Time only
#
# Returns:
#            A decimal number representing a valid Excel date, or
#            undef if the date is invalid.
#
sub convert_date_time {

    my $self      = shift;
    my $date_time = $_[0];

    my $days      = 0; # Number of days since epoch
    my $seconds   = 0; # Time expressed as fraction of 24h hours in seconds

    my ($year, $month, $day);
    my ($hour, $min, $sec);


    # Strip leading and trailing whitespace.
    $date_time =~ s/^\s+//;
    $date_time =~ s/\s+$//;

    # Check for invalid date char.
    return if     $date_time =~ /[^0-9T:\-\.Z]/;

    # Check for "T" after date or before time.
    return unless $date_time =~ /\dT|T\d/;

    # Strip trailing Z in ISO8601 date.
    $date_time =~ s/Z$//;


    # Split into date and time.
    my ($date, $time) = split /T/, $date_time;


    # We allow the time portion of the input DateTime to be optional.
    if ($time ne '') {
        # Match hh:mm:ss.sss+ where the seconds are optional
        if ($time =~ /^(\d\d):(\d\d)(:(\d\d(\.\d+)?))?/) {
            $hour   = $1;
            $min    = $2;
            $sec    = $4 || 0;
        }
        else {
            return undef; # Not a valid time format.
        }

        # Some boundary checks
        return if $hour >= 24;
        return if $min  >= 60;
        return if $sec  >= 60;

        # Excel expresses seconds as a fraction of the number in 24 hours.
        $seconds = ($hour *60*60 + $min *60 + $sec) / (24 *60 *60);
    }


    # We allow the date portion of the input DateTime to be optional.
    return $seconds if $date eq '';


    # Match date as yyyy-mm-dd.
    if ($date =~ /^(\d\d\d\d)-(\d\d)-(\d\d)$/) {
        $year   = $1;
        $month  = $2;
        $day    = $3;
    }
    else {
        return undef; # Not a valid date format.
    }

    # Set the epoch as 1900 or 1904. Defaults to 1900.
    my $date_1904 = $self->{_1904};


    # Special cases for Excel.
    if (not $date_1904) {
        return      $seconds if $date eq '1899-12-31'; # Excel 1900 epoch
        return      $seconds if $date eq '1900-01-00'; # Excel 1900 epoch
        return 60 + $seconds if $date eq '1900-02-29'; # Excel false leapday
    }


    # We calculate the date by calculating the number of days since the epoch
    # and adjust for the number of leap days. We calculate the number of leap
    # days by normalising the year in relation to the epoch. Thus the year 2000
    # becomes 100 for 4 and 100 year leapdays and 400 for 400 year leapdays.
    #
    my $epoch   = $date_1904 ? 1904 : 1900;
    my $offset  = $date_1904 ?    4 :    0;
    my $norm    = 300;
    my $range   = $year -$epoch;


    # Set month days and check for leap year.
    my @mdays   = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    my $leap    = 0;
       $leap    = 1  if $year % 4 == 0 and $year % 100 or $year % 400 == 0;
    $mdays[1]   = 29 if $leap;


    # Some boundary checks
    return if $year  < $epoch or $year  > 9999;
    return if $month < 1      or $month > 12;
    return if $day   < 1      or $day   > $mdays[$month -1];

    # Accumulate the number of days since the epoch.
    $days  = $day;                              # Add days for current month
    $days += $mdays[$_] for 0 .. $month -2;     # Add days for past months
    $days += $range *365;                       # Add days for past years
    $days += int(($range)                /  4); # Add leapdays
    $days -= int(($range +$offset)       /100); # Subtract 100 year leapdays
    $days += int(($range +$offset +$norm)/400); # Add 400 year leapdays
    $days -= $leap;                             # Already counted above


    # Adjust for Excel erroneously treating 1900 as a leap year.
    $days++ if $date_1904 == 0 and $days > 59;

    return $days + $seconds;
}

###############################################################################
#
# insert_bitmap($row, $col, $filename, $x, $y, $scale_x, $scale_y)
#
# Insert a 24bit bitmap image in a worksheet. The main record required is
# IMDATA but it must be proceeded by a OBJ record to define its position.
#
sub insert_bitmap {

    my $self        = shift;

    # Can't store images in ExcelXML

    # TODO Update for ExcelXML format

}


###############################################################################
#
# set_row($row, $height, $XF, $hidden, $level)
#
# This method is used to set the height and XF format for a row.
#
sub set_row {

    my $self    = shift;
    my $row     = $_[0];

    # Ensure at least $row and $height
    return if @_ < 2;

    # Check that row number is valid and store the max value
    return if $self->_check_dimensions($row, 0);


    my $height  = $_[1];
    my $format  = _XF($self, 0, 0, $_[2]);
    my $hidden  = $_[3];
    my $autofit = $_[4];

    if ($height) {
        $height = $self->_size_row($_[1]);

        # The cell is hidden if the width is zero.
        $hidden = 1 if $height == 0;
    }


    $self->{_set_rows}->{$row} = [$height, $format, $hidden, $autofit];
}


###############################################################################
#
# _check_dimensions($row, $col)
#
# Check that $row and $col are valid and store max and min values for use in
# DIMENSIONS record. See, _store_dimensions().
#
sub _check_dimensions {

    my $self    = shift;
    my $row     = $_[0];
    my $col     = $_[1];

    if ($row >= $self->{_xls_rowmax}) { return -2 }
    if ($col >= $self->{_xls_colmax}) { return -2 }

    $self->{_dim_changed} = 1;

    if ($row <  $self->{_dim_rowmin}) { $self->{_dim_rowmin} = $row }
    if ($row >  $self->{_dim_rowmax}) { $self->{_dim_rowmax} = $row }
    if ($col <  $self->{_dim_colmin}) { $self->{_dim_colmin} = $col }
    if ($col >  $self->{_dim_colmax}) { $self->{_dim_colmax} = $col }

    return 0;
}




###############################################################################
#
# _store_window2()
#
# Write BIFF record Window2.
#
sub _store_window2 {

    use integer;    # Avoid << shift bug in Perl 5.6.0 on HP-UX

    my $self           = shift;
    my $record         = 0x023E;     # Record identifier
    my $length         = 0x000A;     # Number of bytes to follow

    my $grbit          = 0x00B6;     # Option flags
    my $rwTop          = 0x0000;     # Top row visible in window
    my $colLeft        = 0x0000;     # Leftmost column visible in window
    my $rgbHdr         = 0x00000000; # Row/column heading and gridline color

    # The options flags that comprise $grbit
    my $fDspFmla       = 0;                          # 0 - bit
    my $fDspGrid       = $self->{_screen_gridlines}; # 1
    my $fDspRwCol      = 1;                          # 2
    my $fFrozen        = $self->{_frozen};           # 3
    my $fDspZeros      = 1;                          # 4
    my $fDefaultHdr    = 1;                          # 5
    my $fArabic        = 0;                          # 6
    my $fDspGuts       = $self->{_outline_on};       # 7
    my $fFrozenNoSplit = 0;                          # 0 - bit
    my $fSelected      = $self->{_selected};         # 1
    my $fPaged         = 1;                          # 2

    # TODO Update for ExcelXML format
}


###############################################################################
#
# _store_defcol()
#
# Write BIFF record DEFCOLWIDTH if COLINFO records are in use.
#
sub _store_defcol {

    my $self     = shift;
    my $record   = 0x0055;      # Record identifier
    my $length   = 0x0002;      # Number of bytes to follow

    my $colwidth = 0x0008;      # Default column width

    # TODO Update for ExcelXML format
}


###############################################################################
#
# _store_colinfo($firstcol, $lastcol, $width, $format, $autofit)
#
# Write XML  elements to define column widths.
#
#
sub _store_colinfo {

    my $self     = shift;

    # Extract only the columns that have been defined.
    my @cols     = sort {$a <=> $b} keys %{$self->{_set_cols}};
    return unless @cols;

    my @attribs;
    my $previous = -1;
    my $span     = 0;

    for my $col (@cols) {
        if (not $span) {
            my $width   = $self->{_set_cols}->{$col}->[0];
            my $format  = $self->{_set_cols}->{$col}->[1];
            my $hidden  = $self->{_set_cols}->{$col}->[2];
            my $autofit = $self->{_set_cols}->{$col}->[3] || 0;

            push @attribs, "ss:Index",         $col +1  if $col != $previous+1;
            push @attribs, "ss:StyleID", "s" . $format  if $format;
            push @attribs, "ss:Hidden",        $hidden  if $hidden;
            push @attribs, "ss:AutoFitWidth",  $autofit;
            push @attribs, "ss:Width",         $width   if $width;

            # Note. "Overview of SpreadsheetML" states that the ss:Index
            # attribute is implicit in a Column element directly following a
            # Column element with an ss:Span attribute. However Excel doesn't
            # comply. In order to test directly against Excel we follow suit
            # and make ss:Index explicit. To get the implicit behaviour move
            # the next line outside the for() loop.
            $previous = $col;
        }

        # $previous = $col; # See note above.
        local $^W = 0; # Ignore warnings about undefs in array ref comparison.

        # Check if the same attributes are shared over consecutive columns.
        if (exists $self->{_set_cols}->{$col +1}        and
            join("|", @{$self->{_set_cols}->{$col   }}) eq
            join("|", @{$self->{_set_cols}->{$col +1}}))
        {
            $span++;
            next;
        }

        push @attribs, "ss:Span", $span if $span;
        $self->_write_xml_element(3, 1, 0, 'Column', @attribs);

        @attribs = ();
        $span    = 0;
    }
}


###############################################################################
#
# _store_selection($first_row, $first_col, $last_row, $last_col)
#
# Write BIFF record SELECTION.
#
sub _store_selection {

    my $self     = shift;
    my $record   = 0x001D;                  # Record identifier
    my $length   = 0x000F;                  # Number of bytes to follow

    my $pnn      = $self->{_active_pane};   # Pane position
    my $rwAct    = $_[0];                   # Active row
    my $colAct   = $_[1];                   # Active column
    my $irefAct  = 0;                       # Active cell ref
    my $cref     = 1;                       # Number of refs

    my $rwFirst  = $_[0];                   # First row in reference
    my $colFirst = $_[1];                   # First col in reference
    my $rwLast   = $_[2] || $rwFirst;       # Last  row in reference
    my $colLast  = $_[3] || $colFirst;      # Last  col in reference

    # Swap last row/col for first row/col as necessary
    if ($rwFirst > $rwLast) {
        ($rwFirst, $rwLast) = ($rwLast, $rwFirst);
    }

    if ($colFirst > $colLast) {
        ($colFirst, $colLast) = ($colLast, $colFirst);
    }


    # TODO Update for ExcelXML format
}


###############################################################################
#
# _store_externcount($count)
#
# Write BIFF record EXTERNCOUNT to indicate the number of external sheet
# references in a worksheet.
#
# Excel only stores references to external sheets that are used in formulas.
# For simplicity we store references to all the sheets in the workbook
# regardless of whether they are used or not. This reduces the overall
# complexity and eliminates the need for a two way dialogue between the formula
# parser the worksheet objects.
#
sub _store_externcount {

    my $self     = shift;
    my $record   = 0x0016;          # Record identifier
    my $length   = 0x0002;          # Number of bytes to follow

    my $cxals    = $_[0];           # Number of external references

    # TODO Update for ExcelXML format
}


###############################################################################
#
# _store_externsheet($sheetname)
#
#
# Writes the Excel BIFF EXTERNSHEET record. These references are used by
# formulas. A formula references a sheet name via an index. Since we store a
# reference to all of the external worksheets the EXTERNSHEET index is the same
# as the worksheet index.
#
sub _store_externsheet {

    my $self      = shift;

    my $record    = 0x0017;         # Record identifier
    my $length;                     # Number of bytes to follow

    my $sheetname = $_[0];          # Worksheet name
    my $cch;                        # Length of sheet name
    my $rgch;                       # Filename encoding

    # References to the current sheet are encoded differently to references to
    # external sheets.
    #
    if ($self->{_name} eq $sheetname) {
        $sheetname = '';
        $length    = 0x02;  # The following 2 bytes
        $cch       = 1;     # The following byte
        $rgch      = 0x02;  # Self reference
    }
    else {
        $length    = 0x02 + length($_[0]);
        $cch       = length($sheetname);
        $rgch      = 0x03;  # Reference to a sheet in the current workbook
    }

    # TODO Update for ExcelXML format
}


###############################################################################
#
# _store_panes()
#
#
# Writes the Excel BIFF PANE record.
# The panes can either be frozen or thawed (unfrozen).
# Frozen panes are specified in terms of a integer number of rows and columns.
# Thawed panes are specified in terms of Excel's units for rows and columns.
#
sub _store_panes {

    my $self    = shift;
    my $record  = 0x0041;       # Record identifier
    my $length  = 0x000A;       # Number of bytes to follow

    my $y       = $_[0] || 0;   # Vertical split position
    my $x       = $_[1] || 0;   # Horizontal split position
    my $rwTop   = $_[2];        # Top row visible
    my $colLeft = $_[3];        # Leftmost column visible
    my $pnnAct  = $_[4];        # Active pane


    # Code specific to frozen or thawed panes.
    if ($self->{_frozen}) {
        # Set default values for $rwTop and $colLeft
        $rwTop   = $y unless defined $rwTop;
        $colLeft = $x unless defined $colLeft;
    }
    else {
        # Set default values for $rwTop and $colLeft
        $rwTop   = 0  unless defined $rwTop;
        $colLeft = 0  unless defined $colLeft;

        # Convert Excel's row and column units to the internal units.
        # The default row height is 12.75
        # The default column width is 8.43
        # The following slope and intersection values were interpolated.
        #
        $y = 20*$y      + 255;
        $x = 113.879*$x + 390;
    }


    # Determine which pane should be active. There is also the undocumented
    # option to override this should it be necessary: may be removed later.
    #
    if (not defined $pnnAct) {
        $pnnAct = 0 if ($x != 0 && $y != 0); # Bottom right
        $pnnAct = 1 if ($x != 0 && $y == 0); # Top right
        $pnnAct = 2 if ($x == 0 && $y != 0); # Bottom left
        $pnnAct = 3 if ($x == 0 && $y == 0); # Top left
    }

    $self->{_active_pane} = $pnnAct; # Used in _store_selection

    # TODO Update for ExcelXML format
}


###############################################################################
#
# _store_setup()
#
# Store the  child element .
#
sub _store_setup {

    my $self         = shift;

    # Write the  child element.
    my   @layout;
    push @layout, 'x:Orientation', 'Landscape'  if $self->{_orientation} == 0;
    push @layout, 'x:CenterHorizontal', 1       if $self->{_hcenter}     == 1;
    push @layout, 'x:CenterVertical',   1       if $self->{_vcenter}     == 1;
    push @layout, 'x:StartPageNumber',
                  $self->{_start_page}          if $self->{_page_start}  >  0;


    # Write the  child element.
    my   @header;
    push @header,   'x:Margin',
                    $self->{_margin_head}   if $self->{_margin_head} != 0.5;
    push @header,   'x:Data',
                    $self->{_header}        if $self->{_header}     ne '';


    # Write the  child element.
    my   @footer;
    push @footer,   'x:Margin',
                    $self->{_margin_foot} if $self->{_margin_foot} != 0.5;
    push @footer,   'x:Data',
                    $self->{_footer}      if $self->{_footer}      ne '';


    # Write the  child element.
    my   @margins;
    push @margins, 'x:Bottom',
                    $self->{_margin_bottom} if $self->{_margin_bottom} != 1.00;
    push @margins, 'x:Left',
                    $self->{_margin_left}   if $self->{_margin_left}   != 0.75;
    push @margins, 'x:Right',
                    $self->{_margin_right}  if $self->{_margin_right}  != 0.75;
    push @margins, 'x:Top',
                    $self->{_margin_top}    if $self->{_margin_top}    != 1.00;



    $self->_write_xml_element(4, 1, 1, 'Layout', @layout) if @layout;
    $self->_write_xml_element(4, 1, 1, 'Header', @header) if @header;
    $self->_write_xml_element(4, 1, 1, 'Footer', @footer) if @footer;
    $self->_write_xml_element(4, 1, 1, 'PageMargins', @margins) if @margins;
}


###############################################################################
#
# _store_print()
#
# Store the  child element .
#
sub _store_print {

    my $self = shift;


    if ($self->{_fit_width} > 1) {
        $self->_write_xml_start_tag(4, 0, 0, 'FitWidth');
        $self->_write_xml_content  ($self->{_fit_width});
        $self->_write_xml_end_tag  (0, 1, 0, 'FitWidth');
    }

    if ($self->{_fit_height} > 1) {
        $self->_write_xml_start_tag(4, 0, 0, 'FitHeight');
        $self->_write_xml_content  ($self->{_fit_height});
        $self->_write_xml_end_tag  (0, 1, 0, 'FitHeight');
    }


    # Print scale won't work without this.
    $self->_write_xml_element(4,1,0,'ValidPrinterInfo');


    $self->_write_xml_element(4,1,0,'BlackAndWhite') if $self->{_black_white};
    $self->_write_xml_element(4,1,0,'LeftToRight')   if $self->{_page_order};
    $self->_write_xml_element(4,1,0,'DraftQuality')  if $self->{_draft_quality};


    if ($self->{_paper_size}) {
        $self->_write_xml_start_tag(4, 0, 0, 'PaperSizeIndex');
        $self->_write_xml_content  ($self->{_paper_size});
        $self->_write_xml_end_tag  (0, 1, 0, 'PaperSizeIndex');
    }

    if ($self->{_print_scale} != 100) {
        $self->_write_xml_start_tag(4, 0, 0, 'Scale');
        $self->_write_xml_content  ($self->{_print_scale});
        $self->_write_xml_end_tag  (0, 1, 0, 'Scale');
    }


    $self->_write_xml_element(4,1,0,'Gridlines')   if $self->{_print_gridlines};
    $self->_write_xml_element(4,1,0,'RowColHeadings')if $self->{_print_headers};
}


###############################################################################
#
# _write_names()
#
# Write the   element.
#
sub _write_names {

    my $self = shift;


    if (not keys %{$self->{_names}} and
        not $self->{_repeat_rows}   and
        not $self->{_repeat_cols}
    ){return}


    if ($self->{_repeat_rows} or $self->{_repeat_cols}) {
        $self->{_names}->{Print_Titles} = '=' .
                                          join ',',
                                          grep {/\S/}
                                          $self->{_repeat_cols},
                                          $self->{_repeat_rows}
    }


    $self->_write_xml_start_tag(2, 1, 0, 'Names');

    # Sort the  elements lexically and case insensitively.
    for my $key (sort {lc $a cmp lc $b} keys %{$self->{_names}}) {

        my @attributes = (
                            'NamedRange',
                                           'ss:Name',
                                            $key,
                                           'ss:RefersTo',
                            $self->{_names}->{$key}
                         );

        # Temp workaround to hide _FilterDatabase.
        # TODO. make this configurable later.
        if ($key eq '_FilterDatabase') {
            push @attributes, 'ss:Hidden' => 1;
        }


        $self->_write_xml_element(3, 1, 0, @attributes);

    }

    $self->_write_xml_end_tag  (2, 1, 0, 'Names');

}


###############################################################################
#
# merge_range($first_row, $first_col, $last_row, $last_col, $string, $format)
#
# This is a wrapper to ensure correct use of the merge_cells method, i.e. write
# the first cell of the range, write the formatted blank cells in the range and
# then call the merge_cells record. Failing to do the steps in this order will
# cause Excel 97 to crash.
#
sub merge_range {

    my $self    = shift;

    # Check for a cell reference in A1 notation and substitute row and column
    if ($_[0] =~ /^\D/) {
        @_ = $self->_substitute_cellref(@_);
    }
    croak "Incorrect number of arguments" if @_ != 6;
    croak "Final argument must be a format object" unless ref $_[5];

    my $rwFirst  = $_[0];
    my $colFirst = $_[1];
    my $rwLast   = $_[2];
    my $colLast  = $_[3];
    my $string   = $_[4];
    my $format   = $_[5];


    # Excel doesn't allow a single cell to be merged
    croak "Can't merge single cell" if $rwFirst  == $rwLast and
                                       $colFirst == $colLast;

    # Swap last row/col with first row/col as necessary
    ($rwFirst,  $rwLast ) = ($rwLast,  $rwFirst ) if $rwFirst  > $rwLast;
    ($colFirst, $colLast) = ($colLast, $colFirst) if $colFirst > $colLast;


    # Check that column number is valid and store the max value
    return if $self->_check_dimensions($rwLast, $colLast);


    # Store the merge range as a HoHoHoA
    $self->{_merge}->{$rwFirst}->{$colFirst} = [$colLast -$colFirst,
                                                $rwLast  -$rwFirst];

    # Write the first cell
    return $self->write($rwFirst, $colFirst, $string, $format);
}


###############################################################################
#
# _store_pagebreaks()
#
# Store horizontal and vertical pagebreaks.
#
sub _store_pagebreaks {

    my $self = shift;

    return if  not @{$self->{_hbreaks}}
           and not @{$self->{_vbreaks}} ;

    $self->_write_xml_start_tag(2, 1, 0, 'PageBreaks',
                                         'xmlns',
                                         'urn:schemas-microsoft-com:' .
                                         'office:excel');


    if (@{$self->{_vbreaks}}) {
        my @breaks  = $self->_sort_pagebreaks(@{$self->{_vbreaks}});

        $self->_write_xml_start_tag(3, 1, 0, 'ColBreaks');

        for my $break (@breaks) {
            $self->_write_xml_start_tag(4, 0, 0, 'ColBreak');
            $self->_write_xml_start_tag(0, 0, 0, 'Column'  );
            $self->_write_xml_content  ($break             );
            $self->_write_xml_end_tag  (0, 0, 0, 'Column'  );
            $self->_write_xml_end_tag  (0, 1, 0, 'ColBreak');
        }

        $self->_write_xml_end_tag(3, 1, 0, 'ColBreaks');

    }

    if (@{$self->{_hbreaks}}) {
        my @breaks  = $self->_sort_pagebreaks(@{$self->{_hbreaks}});

        $self->_write_xml_start_tag(3, 1, 0, 'RowBreaks');

        for my $break (@breaks) {
            $self->_write_xml_start_tag(4, 0, 0, 'RowBreak');
            $self->_write_xml_start_tag(0, 0, 0, 'Row'     );
            $self->_write_xml_content  ($break             );
            $self->_write_xml_end_tag  (0, 0, 0, 'Row'     );
            $self->_write_xml_end_tag  (0, 1, 0, 'RowBreak');
        }

        $self->_write_xml_end_tag(3, 1, 0, 'RowBreaks');
    }

    $self->_write_xml_end_tag(2, 1, 0, 'PageBreaks');
}



###############################################################################
#
# _store_protect()
#
# Set the Biff PROTECT record to indicate that the worksheet is protected.
#
sub _store_protect {

    my $self        = shift;

    # Exit unless sheet protection has been specified
    return unless $self->{_protect};

    my $record      = 0x0012;               # Record identifier
    my $length      = 0x0002;               # Bytes to follow

    my $fLock       = $self->{_protect};    # Worksheet is protected

    # TODO Update for ExcelXML format
}



###############################################################################
#
# _size_col($col)
#
# Convert the width of a cell from user's units to pixels. Excel rounds the
# column width to the nearest pixel. Excel XML also scales the pixel value
# by 0.75.
#
sub _size_col {

    my $self  = shift;
    my $width = $_[0];

    # The relationship is different for user units less than 1.
    if ($width < 1) {
        return 0.75 * int($width *12);
    }
    else {
        return 0.75 * (int($width *7 ) +5);
    }
}


###############################################################################
#
# _size_row($row)
#
# Convert the height of a cell from user's units to pixels. By interpolation
# the relationship is: y = 4/3x. Excel XML also scales the pixel value by 0.75.
#
sub _size_row {

    my $self    = shift;
    my $height  = $_[0];

    return 0.75 * int(4/3 *$height);
}


###############################################################################
#
# _store_zoom($zoom)
#
#
# Store the window zoom factor. This should be a reduced fraction but for
# simplicity we will store all fractions with a numerator of 100.
#
sub _store_zoom {

    my $self        = shift;

    # If scale is 100 we don't need to write a record
    return if $self->{_zoom} == 100;

    my $record      = 0x00A0;               # Record identifier
    my $length      = 0x0004;               # Bytes to follow

    # TODO Update for ExcelXML format
}


###############################################################################
#
# _store_comment
#
# Store the Excel 5 NOTE record. This format is not compatible with the Excel 7
# record.
#
sub _store_comment {

    my $self      = shift;
    if (@_ < 3) { return -1 }

    # TODO Update for ExcelXML format

}








###############################################################################
#
# New XML code
#
###############################################################################






###############################################################################
#
# _write_xml_table()
#
# Write the stored data into the  element. 




2891




 





 





 





 





 





 



 # 




2892




 





 





 





 





 





 



 # TODO Add note about data structure 




2893




 





 





 





 





 





 



 # 




2894




 





 





 





 





 





 



 sub _write_xml_table { 




2895




 





 





 





 





 





 



   




2896




73





 





 




  
73
  




 





202



     my $self = shift; 




2897




 





 





 





 





 





 



   




2898




 





 





 





 





 





 



     # Don't write  element if it contains no data. 




2899




73




  
100
  




 





 





 





225



     return unless $self->{_dim_changed}; 




2900




 





 





 





 





 





 



   




2901




 





 





 





 





 





 



   




2902




 





 





 





 





 





 



   




2903




 





 





 





 





 





 



     $self->_write_xml_start_tag(2, 1, 0, 'Table', 




2904




 





 





 





 





 





 



                                          'ss:ExpandedColumnCount', 




2905




 





 





 





 





 





 



                                           $self->{_dim_colmax} +1, 




2906




 





 





 





 





 





 



                                          'ss:ExpandedRowCount', 




2907




48





 





 





 





 





215



                                           $self->{_dim_rowmax} +1, 




2908




 





 





 





 





 





 



                                        ); 




2909




48





 





 





 





 





238



     $self->_store_colinfo(); 




2910




 





 





 





 





 





 



   




2911




 





 





 





 





 





 



     # Write stored  and  data 




2912




48





 





 





 





 





166



     $self->_write_xml_rows(); 




2913




 





 





 





 





 





 



   




2914




48





 





 





 





 





170



     $self->_write_xml_end_tag(2, 1, 0, 'Table'); 




2915




 





 





 





 





 





 



 } 




2916




 





 





 





 





 





 



   




2917




 





 





 





 





 





 



   




2918




 





 





 





 





 





 



 ############################################################################### 




2919




 





 





 





 





 





 



 # 




2920




 





 





 





 





 





 



 # _write_xml_rows() 




2921




 





 





 





 





 





 



 # 




2922




 





 





 





 





 





 



 # Write all  elements. 




2923




 





 





 





 





 





 



 # 




2924




 





 





 





 





 





 



 sub _write_xml_rows { 




2925




 





 





 





 





 





 



   




2926




48





 





 




  
48
  




 





105



     my $self     = shift; 




2927




 





 





 





 





 





 



   




2928




48





 





 





 





 





96



     my @attribs; 




2929




48





 





 





 





 





92



     my $previous = -1; 




2930




48





 





 





 





 





89



     my $span     = 0; 




2931




 





 





 





 





 





 



   




2932




48





 





 





 





 





161



     for my $row (0 .. $self->{_dim_rowmax}) { 




2933




 





 





 





 





 





 



   




2934




2228377




  
100
  



  
100
  




 





 





5329256



         next unless $self->{_set_rows}->{$row} or $self->{_table}->[$row]; 




2935




 





 





 





 





 





 



   




2936




183




  
100
  




 





 





 





397



         if (not $span) { 




2937




163





 





 





 





 





490



             my $height  = $self->{_set_rows}->{$row}->[0]; 




2938




163





 





 





 





 





301



             my $format  = $self->{_set_rows}->{$row}->[1]; 




2939




163





 





 





 





 





318



             my $hidden  = $self->{_set_rows}->{$row}->[2]; 




2940




163





 




  
 50
  




 





 





548



             my $autofit = $self->{_set_rows}->{$row}->[3] || 0; 




2941




 





 





 





 





 





 



   




2942




163




  
100
  




 





 





 





440



             push @attribs, "ss:Index",         $row +1  if $row != $previous+1; 




2943




163




  
100
  



  
 66
  




 





 





623



             push @attribs, "ss:AutoFitHeight", $autofit if $height or $autofit; 




2944




163




  
100
  




 





 





 





424



             push @attribs, "ss:Height",        $height  if $height; 




2945




163




  
100
  




 





 





 





353



             push @attribs, "ss:Hidden",        $hidden  if $hidden; 




2946




163




  
100
  




 





 





 





359



             push @attribs, "ss:StyleID",  "s" . $format if $format; 




2947




 





 





 





 





 





 



   




2948




 





 





 





 





 





 



             # See ss:Index note in _store_colinfo 




2949




163





 





 





 





 





320



             $previous = $row; 




2950




 





 





 





 





 





 



         } 




2951




 





 





 





 





 





 



   




2952




 





 





 





 





 





 



         # $previous = $row; # See ss:Index note in _store_colinfo 




2953




183





 





 





 





 





547



         local $^W = 0; # Ignore warnings about undefs in array ref comparison. 




2954




 





 





 





 





 





 



   




2955




 





 





 





 





 





 



         # Check if the same attributes are shared over consecutive columns. 




2956




183




  
100
  



  
100
  




 





 





739



         if (not    $self->{_table}->[$row   ]           and 




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




2957




 





 





 





 





 





 



             not    $self->{_table}->[$row +1]           and 




2958




 





 





 





 





 





 



             exists $self->{_set_rows}->{$row   }        and 




2959




 





 





 





 





 





 



             exists $self->{_set_rows}->{$row +1}        and 




2960




24





 





 





 





 





115



             join("|", @{$self->{_set_rows}->{$row   }}) eq 




2961




24





 





 





 





 





119



             join("|", @{$self->{_set_rows}->{$row +1}})) 




2962




 





 





 





 





 





 



         { 




2963




20





 





 





 





 





34



             $span++; 




2964




20





 





 





 





 





60



             next; 




2965




 





 





 





 





 





 



         } 




2966




 





 





 





 





 





 



   




2967




163




  
100
  




 





 





 





408



         push @attribs, "ss:Span", $span if $span; 




2968




 





 





 





 





 





 



   




2969




 





 





 





 





 





 



         # Write  with  data or formatted  without  data. 




2970




 





 





 





 





 





 



         # 




2971




163




  
100
  




 





 





 





374



         if (my $row_ref = $self->{_table}->[$row]) { 




2972




147





 





 





 





 





513



             $self->_write_xml_start_tag(3, 1, 0, 'Row', @attribs); 




2973




 





 





 





 





 





 



   




2974




147





 





 





 





 





259



             my $col           = 0; 




2975




147





 





 





 





 





277



             $self->{prev_col} = -1; 




2976




 





 





 





 





 





 



   




2977




147





 





 





 





 





341



             for my $col_ref (@$row_ref) { 




2978




33678




  
100
  




 





 





 





51325



                 $self->_write_xml_cell($row, $col) if $col_ref; 




2979




33678





 





 





 





 





45375



                 $col++; 




2980




 





 





 





 





 





 



             } 




2981




147





 





 





 





 





481



             $self->_write_xml_end_tag(3, 1, 0, 'Row'); 




2982




 





 





 





 





 





 



         } 




2983




 





 





 





 





 





 



         else { 




2984




16





 





 





 





 





71



             $self->_write_xml_element(3, 1, 0, 'Row', @attribs); 




2985




 





 





 





 





 





 



         } 




2986




 





 





 





 





 





 



   




2987




 





 





 





 





 





 



   




2988




163





 





 





 





 





346



         @attribs = (); 




2989




163





 





 





 





 





460



         $span    = 0; 




2990




 





 





 





 





 





 



     } 




2991




 





 





 





 





 





 



 } 




2992




 





 





 





 





 





 



   




2993




 





 





 





 





 





 



   




2994




 





 





 





 





 





 



 ############################################################################### 




2995




 





 





 





 





 





 



 # 




2996




 





 





 





 





 





 



 # _write_xml_cell() 




2997




 





 





 





 





 





 



 # 




2998




 





 





 





 





 





 



 # Write a  element start tag. 




2999




 





 





 





 





 





 



 # 




3000




 





 





 





 





 





 



 sub _write_xml_cell { 




3001




 





 





 





 





 





 



   




3002




254





 





 




  
254
  




 





427



     my $self      = shift; 




3003




 





 





 





 





 





 



   




3004




254





 





 





 





 





417



     my $row         = $_[0]; 




3005




254





 





 





 





 





372



     my $col         = $_[1]; 




3006




 





 





 





 





 





 



   




3007




254





 





 





 





 





569



     my $datatype    = $self->{_table}->[$row]->[$col]->[0]; 




3008




254





 





 





 





 





467



     my $data        = $self->{_table}->[$row]->[$col]->[1]; 




3009




254





 





 





 





 





461



     my $format      = $self->{_table}->[$row]->[$col]->[2]; 




3010




 





 





 





 





 





 



   




3011




254





 





 





 





 





369



     my @attribs; 




3012




254





 





 





 





 





403



     my $comment = ''; 




3013




 





 





 





 





 





 



   




3014




 





 





 





 





 





 



   




3015




 





 





 





 





 





 



     ########################################################################### 




3016




 





 





 





 





 





 



     # 




3017




 





 





 





 





 





 



     # Only add the cell index if it doesn't follow another cell. 




3018




 





 





 





 





 





 



     # 




3019




254




  
100
  




 





 





 





621



     push @attribs, "ss:Index",   $col +1 if $col != $self->{prev_col} +1; 




3020




 





 





 





 





 





 



   




3021




 





 





 





 





 





 



   




3022




 





 





 





 





 





 



     ########################################################################### 




3023




 





 





 





 





 





 



     # 




3024




 





 





 





 





 





 



     # Check for merged cells. 




3025




 





 





 





 





 





 



     # 




3026




254




  
100
  



  
100
  




 





 





643



     if (exists $self->{_merge}->{$row}   and 




3027




 





 





 





 





 





 



         exists $self->{_merge}->{$row}->{$col}) 




3028




 





 





 





 





 





 



     { 




3029




19





 





 





 





 





34



         my ($across, $down) = @{$self->{_merge}->{$row}->{$col}}; 




 




19





 





 





 





 





46



   




3030




 





 





 





 





 





 



   




3031




19




  
100
  




 





 





 





54



         push @attribs, "ss:MergeAcross", $across if $across; 




3032




19




  
100
  




 





 





 





44



         push @attribs, "ss:MergeDown",   $down   if $down; 




3033




 





 





 





 





 





 



   




3034




 





 





 





 





 





 



         # Fill the merge range to ensure that it doesn't contain any data types. 




3035




19





 





 





 





 





43



         for my $m_row (0 .. $down) { 




3036




40





 





 





 





 





63



             for my $m_col (0 .. $across) { 




3037




84




  
100
  



  
100
  




 





 





225



                 next if $m_row == 0 and $m_col == 0; 




3038




65





 





 





 





 





179



                 $self->{_table}->[$row +$m_row ]->[$col +$m_col] = undef; 




3039




 





 





 





 





 





 



              } 




3040




 





 





 





 





 





 



         } 




3041




 





 





 





 





 





 



   




3042




 





 





 





 





 





 



         # Fill the last col so that $self->{prev_col} is incremented correctly. 




3043




19





 





 





 





 





40



         my $type = $self->{_datatypes}->{Merge}; 




3044




19





 





 





 





 





48



         $self->{_table}->[$row]->[$col +$across] = [$type]; 




3045




 





 





 





 





 





 



     } 




3046




 





 





 





 





 





 



   




3047




 





 





 





 





 





 



   




3048




 





 





 





 





 





 



     ########################################################################### 




3049




 





 





 





 





 





 



     # 




3050




 





 





 





 





 





 



     # Check for cell comments. 




3051




 





 





 





 





 





 



     # 




3052




254




  
100
  



  
100
  




 





 





603



     if (exists $self->{_comment}->{$row}   and 




3053




 





 





 





 





 





 



         exists $self->{_comment}->{$row}->{$col}) 




3054




 





 





 





 





 





 



     { 




3055




8





 





 





 





 





18



         $comment = $self->{_comment}->{$row}->{$col}; 




3056




 





 





 





 





 





 



     } 




3057




 





 





 





 





 





 



   




3058




 





 





 





 





 





 



   




3059




 





 





 





 





 





 



     # Add the format attribute. 




3060




254




  
100
  




 





 





 





633



     push @attribs, "ss:StyleID", "s" . $format if $format; 




3061




 





 





 





 





 





 



   




3062




 





 





 





 





 





 



   




3063




 





 





 





 





 





 



     # Add to the attribute list for data types with additional options 




3064




254




  
100
  




 





 





 





660



     if ($datatype == $self->{_datatypes}->{Formula}) { 




3065




7





 





 





 





 





19



         my $array_range = $self->{_table}->[$row]->[$col]->[3]; 




3066




 





 





 





 





 





 



   




3067




7




  
100
  




 





 





 





26



         push @attribs, "ss:ArrayRange", $array_range if $array_range; 




3068




7





 





 





 





 





16



         push @attribs, "ss:Formula", $data; 




3069




 





 





 





 





 





 



     } 




3070




 





 





 





 





 





 



   




3071




254




  
100
  




 





 





 





566



     if ($datatype == $self->{_datatypes}->{HRef}) { 




3072




7





 





 





 





 





26



         push @attribs, "ss:HRef", $data; 




3073




 





 





 





 





 





 



   




3074




7





 





 





 





 





31



         my $tip = $self->{_table}->[$row]->[$col]->[4]; 




3075




7




  
100
  




 





 





 





34



         push @attribs, "x:HRefScreenTip", $tip if defined $tip ; 




3076




 





 





 





 





 





 



     } 




3077




 





 





 





 





 





 



   




3078




 





 





 





 





 





 



   




3079




 





 





 





 





 





 



     ########################################################################### 




3080




 





 





 





 





 





 



     # 




3081




 





 





 





 





 





 



     # Write the  data for various data types. 




3082




 





 





 





 





 





 



     # 




3083




 





 





 





 





 





 



   




3084




 





 





 





 





 





 



     # Write the Number data element 




3085




254




  
100
  




 





 





 





834



     if ($datatype == $self->{_datatypes}->{Number}) { 




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
 50
  




 





 





 





 



   




3086




39





 





 





 





 





164



         $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3087




39





 





 





 





 





118



         $self->_write_xml_cell_data('Number', $data); 




3088




39




  
100
  




 





 





 





103



         $self->_write_xml_cell_comment($comment) if $comment; 




3089




39





 





 





 





 





114



         $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3090




 





 





 





 





 





 



     } 




3091




 





 





 





 





 





 



   




3092




 





 





 





 





 





 



   




3093




 





 





 





 





 





 



     # Write the String data element 




3094




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{String}) { 




3095




184





 





 





 





 





338



         my $html = $self->{_table}->[$row]->[$col]->[3]; 




3096




 





 





 





 





 





 



   




3097




184





 





 





 





 





601



         $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3098




 





 





 





 





 





 



   




3099




184




  
100
  




 





 





 





407



         if ($html){$self->_write_xml_html_string($data);} 




 




5





 





 





 





 





15



   




3100




179





 





 





 





 





411



         else      {$self->_write_xml_cell_data('String', $data);} 




3101




 





 





 





 





 





 



   




3102




184




  
100
  




 





 





 





563



         $self->_write_xml_cell_comment($comment) if $comment; 




3103




184





 





 





 





 





458



         $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3104




 





 





 





 





 





 



     } 




3105




 





 





 





 





 





 



   




3106




 





 





 





 





 





 



   




3107




 





 





 





 





 





 



     # Write the DateTime data element 




3108




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{DateTime}) { 




3109




1





 





 





 





 





5



         $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3110




1





 





 





 





 





4



         $self->_write_xml_cell_data('DateTime', $data); 




3111




1




  
 50
  




 





 





 





6



         $self->_write_xml_cell_comment($comment) if $comment; 




3112




1





 





 





 





 





5



         $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3113




 





 





 





 





 





 



     } 




3114




 





 





 





 





 





 



   




3115




 





 





 





 





 





 



   




3116




 





 





 





 





 





 



     # Write an empty Data element for a formula data 




3117




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{Formula}) { 




3118




7




  
100
  




 





 





 





17



         if ($comment) { 




3119




1





 





 





 





 





5



             $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3120




1





 





 





 





 





4



             $self->_write_xml_cell_comment($comment); 




3121




1





 





 





 





 





4



             $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3122




 





 





 





 





 





 



         } 




3123




 





 





 





 





 





 



         else { 




3124




6





 





 





 





 





22



             $self->_write_xml_element(4, 1, 0, 'Cell', @attribs); 




3125




 





 





 





 





 





 



         } 




3126




 





 





 





 





 





 



     } 




3127




 





 





 





 





 





 



   




3128




 





 





 





 





 





 



   




3129




 





 





 





 





 





 



     # Write the HRef data element 




3130




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{HRef}) { 




3131




 





 





 





 





 





 



   




3132




7





 





 





 





 





29



         $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3133




 





 





 





 





 





 



   




3134




7





 





 





 





 





23



         my $data = $self->{_table}->[$row]->[$col]->[3]; 




3135




7





 





 





 





 





21



         my $type; 




3136




 





 





 





 





 





 



   




3137




 





 





 





 





 





 



         # Match DateTime string. 




3138




7




  
 50
  



  
 33
  




 





 





22



         if ($self->convert_date_time($data)) { 




 




 




  
 50
  




 





 





 





 



   




 




 




  
 50
  




 





 





 





 



   




3139



  
0
  




 





 





 





 





0



             $type = 'DateTime'; 




3140




 





 





 





 





 





 



         } 




3141




 





 





 





 





 





 



         # Match integer with leading zero(s) 




3142




 





 





 





 





 





 



         elsif ($self->{_leading_zeros} and $data =~ /^0\d+$/) { 




3143



  
0
  




 





 





 





 





0



             $type = 'String'; 




3144




 





 





 





 





 





 



         } 




3145




 





 





 





 





 





 



         # Match number. 




3146




 





 





 





 





 





 



         elsif ($data =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/) { 




3147



  
0
  




 





 





 





 





0



             $type = 'Number'; 




3148




 





 





 





 





 





 



         } 




3149




 





 





 





 





 





 



         # Default to string. 




3150




 





 





 





 





 





 



         else { 




3151




7





 





 





 





 





18



             $type = 'String'; 




3152




 





 





 





 





 





 



         } 




3153




 





 





 





 





 





 



   




3154




7




  
100
  




 





 





 





18



         $self->_write_xml_cell_comment($comment) if $comment; 




3155




7





 





 





 





 





45



         $self->_write_xml_cell_data($type, $data); 




3156




7





 





 





 





 





34



         $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3157




 





 





 





 





 





 



     } 




3158




 





 





 





 





 





 



   




3159




 





 





 





 





 





 



   




3160




 





 





 





 





 





 



     # Write an empty Data element for a blank cell 




3161




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{Blank}) { 




3162




1




  
 50
  




 





 





 





7



         if ($comment) { 




3163



  
0
  




 





 





 





 





0



             $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3164



  
0
  




 





 





 





 





0



             $self->_write_xml_cell_comment($comment); 




3165



  
0
  




 





 





 





 





0



             $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3166




 





 





 





 





 





 



         } 




3167




 





 





 





 





 





 



         else { 




3168




1





 





 





 





 





6



             $self->_write_xml_element(4, 1, 0, 'Cell', @attribs); 




3169




 





 





 





 





 





 



         } 




3170




 





 





 





 





 





 



     } 




3171




 





 





 





 





 





 



   




3172




 





 





 





 





 





 



     # Write an empty Data element for an empty cell with a comment; 




3173




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{Comment}) { 




3174




1




  
 50
  




 





 





 





3



         if ($comment) { 




3175




1





 





 





 





 





4



             $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3176




1





 





 





 





 





6



             $self->_write_xml_cell_comment($comment); 




3177




1





 





 





 





 





10



             $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3178




 





 





 





 





 





 



         } 




3179




 





 





 





 





 





 



         else { 




3180



  
0
  




 





 





 





 





0



             $self->_write_xml_element(4, 1, 0, 'Cell', @attribs); 




3181




 





 





 





 





 





 



         } 




3182




 





 





 





 





 





 



     } 




3183




 





 





 





 





 





 



   




3184




 





 





 





 





 





 



     # Ignore merge cells 




3185




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{Merge}) { 




3186




 





 





 





 





 





 



         # Do nothing. 




3187




 





 





 





 





 





 



     } 




3188




 





 





 





 





 





 



   




3189




 





 





 





 





 





 



   




3190




254





 





 





 





 





472



     $self->{prev_col} = $col; 




3191




254





 





 





 





 





501



     return; 




3192




 





 





 





 





 





 



 } 




3193




 





 





 





 





 





 



   




3194




 





 





 





 





 





 



   




3195




 





 





 





 





 





 



 ############################################################################### 




3196




 





 





 





 





 





 



 # 




3197




 





 





 





 





 





 



 # _write_xml_cell_data() 




3198




 





 





 





 





 





 



 # 




3199




 





 





 





 





 





 



 # Write a generic Data element. 




3200




 





 





 





 





 





 



 # 




3201




 





 





 





 





 





 



 sub _write_xml_cell_data { 




3202




 





 





 





 





 





 



   




3203




226





 





 




  
226
  




 





398



     my $self  = shift; 




3204




 





 





 





 





 





 



   




3205




226





 





 





 





 





363



     my $datatype    = $_[0]; 




3206




226





 





 





 





 





351



     my $data        = $_[1]; 




3207




 





 





 





 





 





 



   




3208




226





 





 





 





 





669



     $self->_write_xml_start_tag(5, 0, 0, 'Data', 'ss:Type', $datatype); 




3209




 





 





 





 





 





 



   




3210




226




  
100
  




 





 





 





499



     if ($datatype eq 'Number') {$self->_write_xml_unencoded_content($data)} 




 




39





 





 





 





 





280



   




3211




187





 





 





 





 





522



     else                       {$self->_write_xml_content($data)          } 




3212




 





 





 





 





 





 



   




3213




226





 





 





 





 





666



     $self->_write_xml_end_tag(0, 1, 0, 'Data'); 




3214




 





 





 





 





 





 



 } 




3215




 





 





 





 





 





 



   




3216




 





 





 





 





 





 



   




3217




 





 





 





 





 





 



 ############################################################################### 




3218




 





 





 





 





 





 



 # 




3219




 





 





 





 





 





 



 # _write_xml_html_string() 




3220




 





 





 





 





 





 



 # 




3221




 





 





 





 





 





 



 # Write a string Data element with html text. 




3222




 





 





 





 





 





 



 # 




3223




 





 





 





 





 





 



 sub _write_xml_html_string { 




3224




 





 





 





 





 





 



   




3225




5





 





 




  
5
  




 





9



     my $self  = shift; 




3226




5





 





 





 





 





10



     my $data  = $_[0]; 




3227




 





 





 





 





 





 



   




3228




5





 





 





 





 





17



     $self->_write_xml_start_tag(5, 0, 0, 'ss:Data', 




3229




 





 





 





 





 





 



                                          'ss:Type', 




3230




 





 





 





 





 





 



                                          'String', 




3231




 





 





 





 





 





 



                                          'xmlns', 




3232




 





 





 





 





 





 



                                          'http://www.w3.org/TR/REC-html40' 




3233




 





 





 





 





 





 



                                          ); 




3234




 





 





 





 





 





 



   




3235




5





 





 





 





 





21



     $self->_write_xml_unencoded_content($data); 




3236




 





 





 





 





 





 



   




3237




5





 





 





 





 





15



     $self->_write_xml_end_tag(0, 1, 0, 'ss:Data'); 




3238




 





 





 





 





 





 



 } 




3239




 





 





 





 





 





 



   




3240




 





 





 





 





 





 



   




3241




 





 





 





 





 





 



 ############################################################################### 




3242




 





 





 





 





 





 



 # 




3243




 





 





 





 





 





 



 # _write_xml_cell_comment() 




3244




 





 





 





 





 





 



 # 




3245




 





 





 





 





 





 



 # Write a cell Comment element. 




3246




 





 





 





 





 





 



 # 




3247




 





 





 





 





 





 



 sub _write_xml_cell_comment { 




3248




 





 





 





 





 





 



   




3249




8





 





 




  
8
  




 





14



     my $self    = shift; 




3250




8





 





 





 





 





12



     my $comment = $_[0]; 




3251




 





 





 





 





 





 



   




3252




8





 





 





 





 





24



     $self->_write_xml_start_tag(5, 1, 0, 'Comment'); 




3253




 





 





 





 





 





 



   




3254




8





 





 





 





 





26



     $self->_write_xml_start_tag(6, 0, 0, 'ss:Data', 




3255




 





 





 





 





 





 



                                          'xmlns', 




3256




 





 





 





 





 





 



                                          'http://www.w3.org/TR/REC-html40' 




3257




 





 





 





 





 





 



                                          ); 




3258




 





 





 





 





 





 



   




3259




8





 





 





 





 





25



     $self->_write_xml_unencoded_content($comment); 




3260




 





 





 





 





 





 



   




3261




8





 





 





 





 





22



     $self->_write_xml_end_tag(0, 1, 0, 'ss:Data'); 




3262




 





 





 





 





 





 



   




3263




8





 





 





 





 





25



     $self->_write_xml_end_tag(5, 1, 0, 'Comment'); 




3264




 





 





 





 





 





 



   




3265




 





 





 





 





 





 



 } 




3266




 





 





 





 





 





 



   




3267




 





 





 





 





 





 



   




3268




 





 





 





 





 





 



 ############################################################################### 




3269




 





 





 





 





 





 



 # 




3270




 





 





 





 





 





 



 # _convert_formula($row, $col, $A1_formula) 




3271




 





 





 





 





 





 



 # 




3272




 





 





 





 





 





 



 # Converts a string containing an Excel formula in A1 notation into a string 




3273




 





 





 





 





 





 



 # containing a formula in R1C1 notation. 




3274




 





 





 





 





 





 



 # 




3275




 





 





 





 





 





 



 # Instead of parsing the formula into its component parts, as Spreadsheet:: 




3276




 





 





 





 





 





 



 # WriteExcel::Formula does, we convert the A1 style references to R1C1 




3277




 





 





 





 





 





 



 # references using regexes. This avoid the significant overhead of the 




3278




 





 





 





 





 





 



 # Parse::RecDescent parser in S::WE::Formula. The main problem with this 




3279




 





 





 





 





 





 



 # simplified approach is that there is potential for false matches. Such as 




3280




 





 





 





 





 





 



 # B5 in the following formula (only the last is a valid match). 




3281




 





 





 





 





 





 



 # 




3282




 





 





 





 





 





 



 # "= "B5" & SheetB5!B5" 




3283




 





 





 





 





 





 



 # 




3284




 





 





 





 





 





 



 # The method used here is to replace potential false matches before converting 




3285




 





 





 





 





 





 



 # the real A1 cell references and then substitute back the replaced data. 




3286




 





 





 





 





 





 



 # 




3287




 





 





 





 





 





 



 # Returns: a string. A representation of a formula in R1C1 notation. 




3288




 





 





 





 





 





 



 # 




3289




 





 





 





 





 





 



 sub _convert_formula { 




3290




 





 





 





 





 





 



   




3291




81





 





 




  
81
  




 





37218



     my $self = shift; 




3292




 





 





 





 





 





 



   




3293




81





 





 





 





 





158



     my $row     = $_[0]; 




3294




81





 





 





 





 





133



     my $col     = $_[1]; 




3295




81





 





 





 





 





143



     my $formula = $_[2]; 




3296




 





 





 





 





 





 



   




3297




81





 





 





 





 





173



     my @strings; 




3298




 





 





 





 





 





 



     my @sheets; 




3299




 





 





 





 





 





 



   




3300




 





 





 





 





 





 



     # Replace double quoted strings in formula. Strings may contain escaped 




3301




 





 





 





 





 





 



     # double quotes. Regex by merlyn. 




3302




 





 





 





 





 





 



     # See http://www.perlmonks.org/index.pl?node_id=330280 




3303




 





 





 





 





 





 



     # 




3304




81





 





 





 





 





393



     push @strings, $1 while $formula =~ s/("([^"]|"")*")/__swe__str__/; # " 




3305




 





 





 





 





 





 



   




3306




 





 





 





 





 





 



   




3307




 





 





 





 





 





 



     # Replace worksheet references in formula, such as Sheet1! or 'Sheet 1'! 




3308




 





 





 





 





 





 



     # 




3309




81





 





 





 





 





351



     push @sheets,  $1 while $formula =~ s/(('[^']+'|[\w\.]+)!)/__swe__sht__/; 




3310




 





 





 





 





 





 



   




3311




 





 





 





 





 





 



   




3312




 





 





 





 





 





 



     # Replace valid A1 cell references with R1C1 references. Cell ranges such 




3313




 





 





 





 





 





 



     # as B5:G10 are replaced in two passes. 




3314




 





 





 





 





 





 



     # The negative look-ahead is to prevent false matches such as =LOG10(LOG10) 




3315




 





 





 





 





 





 



     # 




3316




81





 





 





 





 





504



     $formula =~ s{(\$?[A-Z]{1,3}\$?\d+)(?![(\d])} 




 




87





 





 





 





 





227



   




3317




 





 





 





 





 





 



                  {$self->_A1_to_R1C1($row, $col, $1)}eg; 




3318




 





 





 





 





 





 



   




3319




 





 





 





 





 





 



   




3320




 





 





 





 





 





 



     # Replace row ranges such as 2:9 with R1C1 references. 




3321




81





 





 





 





 





268



     # 




 




5





 





 





 





 





16



   




3322




 





 





 





 





 





 



     $formula =~ s{(\$?\d+:\$?\d+)} 




3323




 





 





 





 





 





 



                  {$self->_row_range_to_R1C1($row, $1)}eg; 




3324




 





 





 





 





 





 



   




3325




 





 





 





 





 





 



   




3326




 





 





 





 





 





 



     # Replace column ranges such as A:Z with R1C1 references. 




3327




 





 





 





 





 





 



     # The negative look-behind is to prevent false column matches such 




3328




 





 





 





 





 





 



     # as "=A1:A1" => "=RC:RC" 




3329




 





 





 





 





 





 



     # 




3330




 





 





 





 





 





 



     # Note: there is a tricky parse due to the increased column limits that 




3331




81





 





 





 





 





198



     # isn't handled here. RC:RC is now a valid column range in A1 notation. 




 




6





 





 





 





 





19



   




3332




 





 





 





 





 





 



     # Fix later. Maybe. 




3333




 





 





 





 





 





 



     $formula =~ s{(?




3334




 





 





 





 





 





 



                  {$self->_col_range_to_R1C1($col, $1)}eg; 




3335




 





 





 





 





 





 



   




3336




 





 





 





 





 





 



   




3337




81





 





 





 





 





234



     # Quoted A1 style alphanumeric sheetnames don't need quoting when 




3338




 





 





 





 





 





 



     # converted to R1C1 style. For example "='A1'!A1" becomes "=A1!RC" (without 




3339




 





 





 





 





 





 



     # the single quotes since A1 isn't a reserved name in R1C1 notation). 




3340




 





 





 





 





 





 



     s/^'([a-zA-Z0-9]+)'!$/$1!/ for @sheets; 




3341




 





 





 





 





 





 



   




3342




 





 





 





 





 





 



   




3343




81





 





 





 





 





203



     # However, sheet names that looks like R1C1 notation do have to be single 




3344




 





 





 





 





 





 



     # quoted. For example "='R4C'!A1"  becomes "='R4C'!RC". 




3345




 





 





 





 





 





 



     # 




3346




 





 





 





 





 





 



     s/^((R\d*|R\[\d+\])?(C\d*|C\[\d+\])?)!$/\'$1\'!/ for @sheets; 




3347




 





 





 





 





 





 



   




3348




81





 





 





 





 





222



   




 




22





 





 





 





 





79



   




3349




81





 





 





 





 





198



     # Replace temporarily escaped strings. Note that the s///s are performed in 




 




12





 





 





 





 





45



   




3350




 





 





 





 





 





 



     # reverse order to the substitutions above in case of nested strings. 




3351




81





 





 





 





 





426



     $formula =~ s/__swe__sht__/shift @sheets /e while @sheets; 




3352




 





 





 





 





 





 



     $formula =~ s/__swe__str__/shift @strings/e while @strings; 




3353




 





 





 





 





 





 



   




3354




 





 





 





 





 





 



     return $formula; 




3355




 





 





 





 





 





 



 } 




3356




 





 





 





 





 





 



   




3357




 





 





 





 





 





 



   




3358




 





 





 





 





 





 



 ############################################################################### 




3359




 





 





 





 





 





 



 # 




3360




 





 





 





 





 





 



 # _A1_to_R1C1($A1_string) 




3361




 





 





 





 





 





 



 # 




3362




 





 





 





 





 





 



 # Converts a string containing an Excel cell reference in A1 notation into a 




3363




 





 





 





 





 





 



 # string containing a formula in R1C1 notation. For example: 




3364




 





 





 





 





 





 



 # 




3365




 





 





 





 





 





 



 #   '=G1' in cell (0, 0) becomes '=RC[6]'. 




3366




 





 





 





 





 





 



 # 




3367




 





 





 





 





 





 



 # The R1C1 value is relative to the row and column from which it is referred. 




3368




 





 





 





 





 





 



 # With reference to the above example: 




3369




 





 





 





 





 





 



 # 




3370




 





 





 





 





 





 



 #   '=G1' in cell (1, 0) becomes '=R[-1]C[6]'. 




3371




 





 





 





 





 





 



 # 




3372




 





 





 





 





 





 



 # Returns: a string. A representation of a cell reference in R1C1 notation. 




3373




 





 





 





 





 





 



 # 




3374




87





 





 




  
87
  




 





139



 # 




3375




 





 





 





 





 





 



 sub _A1_to_R1C1 { 




3376




87





 





 





 





 





127



   




3377




87





 





 





 





 





136



     my $self =  shift; 




3378




 





 





 





 





 





 



   




3379




87





 





 





 





 





192



     my $current_row = $_[0]; 




3380




 





 





 





 





 





 



     my $current_col = $_[1]; 




3381




 





 





 





 





 





 



   




3382




87





 





 





 





 





165



     my ($row, $col, $row_abs, $col_abs) = $self->_cell_to_rowcol($_[2]); 




3383




 





 





 





 





 





 



   




3384




87




  
100
  




 





 





 





172



     # Row part 




3385




16





 





 





 





 





33



     my $r1c1 = 'R'; 




3386




 





 





 





 





 





 



   




3387




 





 





 





 





 





 



     if ($row_abs) { 




3388




71




  
100
  




 





 





 





203



         $r1c1 .= $row +1; # 1 based 




3389




 





 





 





 





 





 



     } 




3390




 





 





 





 





 





 



     else { 




3391




 





 





 





 





 





 



         $r1c1 .= '[' . ($row -$current_row) . ']' unless $row == $current_row; 




3392




87





 





 





 





 





139



     } 




3393




 





 





 





 





 





 



   




3394




87




  
100
  




 





 





 





153



     # Column part 




3395




16





 





 





 





 





27



     $r1c1 .= 'C'; 




3396




 





 





 





 





 





 



   




3397




 





 





 





 





 





 



     if ($col_abs) { 




3398




71




  
100
  




 





 





 





163



         $r1c1 .= $col +1; # 1 based 




3399




 





 





 





 





 





 



     } 




3400




 





 





 





 





 





 



     else { 




3401




87





 





 





 





 





305



         $r1c1 .= '[' . ($col -$current_col) . ']' unless $col == $current_col; 




3402




 





 





 





 





 





 



     } 




3403




 





 





 





 





 





 



   




3404




 





 





 





 





 





 



     return $r1c1; 




3405




 





 





 





 





 





 



 } 




3406




 





 





 





 





 





 



   




3407




 





 





 





 





 





 



   




3408




 





 





 





 





 





 



 ############################################################################### 




3409




 





 





 





 





 





 



 # 




3410




 





 





 





 





 





 



 # _row_range_to_R1C1($string) 




3411




 





 





 





 





 





 



 # 




3412




 





 





 





 





 





 



 # Replace row ranges with R1C1 references. For example: 




3413




 





 





 





 





 





 



 # 




3414




 





 





 





 





 





 



 #   '=20:120' in cell (7, 0) becomes '=R[12]:R[112]' 




3415




 





 





 





 





 





 



 # 




3416




 





 





 





 





 





 



 # Returns: a string. A representation of a row cell reference in R1C1 notation. 




3417




 





 





 





 





 





 



   




3418




5





 





 




  
5
  




 





7



 # 




3419




 





 





 





 





 





 



 sub _row_range_to_R1C1 { 




3420




5





 





 





 





 





10



   




3421




5





 





 





 





 





12



     my $self =  shift; 




3422




 





 





 





 





 





 



   




3423




 





 





 





 





 





 



     my $current_row = $_[0] +1; # One based 




3424




 





 





 





 





 





 



     my $range       = $_[1]; 




3425




5





 





 





 





 





17



   




3426




 





 





 





 





 





 



   




3427




5





 





 





 





 





14



     # Split the range into 2 rows 




3428




 





 





 





 





 





 



     my ($row1, $row2) = split ':', $range; 




3429




10





 





 





 





 





23



   




3430




 





 





 





 





 





 



     for my $row ($row1, $row2) { 




3431




 





 





 





 





 





 



   




3432




 





 





 





 





 





 



         my $row_abs = $row =~ s/\$//; 




3433




10





 





 





 





 





17



   




3434




 





 





 





 





 





 



         # TODO Check row range 




3435




10




  
100
  




 





 





 





22



   




3436




4





 





 





 





 





6



         my $r1c1 = 'R'; 




3437




 





 





 





 





 





 



   




3438




 





 





 





 





 





 



         if ($row_abs) { 




3439




6




  
100
  




 





 





 





20



             $r1c1 .= $row; 




3440




 





 





 





 





 





 



         } 




3441




 





 





 





 





 





 



         else { 




3442




10





 





 





 





 





21



             $r1c1 .= '['.($row -$current_row) .']' unless $row == $current_row; 




3443




 





 





 





 





 





 



         } 




3444




 





 





 





 





 





 



   




3445




 





 





 





 





 





 



         $row = $r1c1; 




3446




5




  
100
  




 





 





 





12



     } 




 




3





 





 





 





 





11



   




3447




2





 





 





 





 





9



   




3448




 





 





 





 





 





 



     # A single row range such as 'R2:R2' is represented as 'R2' 




3449




 





 





 





 





 





 



     if ($row1 eq $row2) {return $row1        } 




3450




 





 





 





 





 





 



     else                {return "$row1:$row2"} 




3451




 





 





 





 





 





 



 } 




3452




 





 





 





 





 





 



   




3453




 





 





 





 





 





 



   




3454




 





 





 





 





 





 



 ############################################################################### 




3455




 





 





 





 





 





 



 # 




3456




 





 





 





 





 





 



 # _col_range_to_R1C1($string) 




3457




 





 





 





 





 





 



 # 




3458




 





 





 





 





 





 



 # Replace column ranges with R1C1 references. For example: 




3459




 





 





 





 





 





 



 # 




3460




 





 





 





 





 





 



 #   '=D:Z' in cell (6, 0) becomes '=C[3]:C[25]' 




3461




 





 





 





 





 





 



 # 




3462




 





 





 





 





 





 



 # Returns: a string. A representation of a col range reference in R1C1 notation. 




3463




6





 





 




  
6
  




 





11



 # 




3464




 





 





 





 





 





 



 sub _col_range_to_R1C1 { 




3465




6





 





 





 





 





13



   




3466




6





 





 





 





 





13



     my $self =  shift; 




3467




 





 





 





 





 





 



   




3468




 





 





 





 





 





 



     my $current_col = $_[0] +1; # One based 




3469




 





 





 





 





 





 



     my $range       = $_[1]; 




3470




6





 





 





 





 





21



   




3471




 





 





 





 





 





 



   




3472




 





 





 





 





 





 



     # Split the range into 2 cols 




3473




 





 





 





 





 





 



     my ($col_letter1, $col_letter2) = split ':', $range; 




3474




6





 





 





 





 





18



   




3475




 





 





 





 





 





 



     # Note $col is used as an alias. The original values are changed in place. 




3476




12





 





 





 





 





14



     # This should probably be refactored into a function. 




3477




12





 





 





 





 





24



     for my $col ($col_letter1, $col_letter2) { 




3478




 





 





 





 





 





 



   




3479




12





 





 





 





 





38



         my $col_abs; 




3480




 





 





 





 





 





 



         my $col_letter = $col; 




3481




 





 





 





 





 





 



   




3482




12





 





 





 





 





21



         (undef, $col, undef, $col_abs) = xl_cell_to_rowcol($col . '1'); 




3483




 





 





 





 





 





 



   




3484




12




  
 50
  




 





 





 





34



         # Switch from 0 based to 1 based. 




3485



  
0
  




 





 





 





 





0



         $col++; 




3486




0





 





 





 





 





0



   




3487




 





 





 





 





 





 



         if ($col > $self->{_xls_colmax}) { 




3488




 





 





 





 





 





 



             warn "$col_letter is not an Excel column label.\n"; # TODO Carp 




3489




12





 





 





 





 





19



             return $range; 




3490




 





 





 





 





 





 



         } 




3491




12




  
100
  




 





 





 





25



   




3492




4





 





 





 





 





8



         my $r1c1 = 'C'; 




3493




 





 





 





 





 





 



   




3494




 





 





 





 





 





 



         if ($col_abs) { 




3495




8




  
 50
  




 





 





 





24



             $r1c1 .= $col; 




3496




 





 





 





 





 





 



         } 




3497




12





 





 





 





 





23



         else { 




3498




 





 





 





 





 





 



             $r1c1 .= '['.($col -$current_col).']' unless $col == $current_col; 




3499




 





 





 





 





 





 



         } 




3500




 





 





 





 





 





 



         $col = $r1c1; 




3501




6




  
100
  




 





 





 





17



     } 




 




4





 





 





 





 





16



   




3502




2





 





 





 





 





8



   




3503




 





 





 





 





 





 



     # A single column range such as 'C3:C3' is represented as 'C3' 




3504




 





 





 





 





 





 



     if ($col_letter1 eq $col_letter2) {return $col_letter1               } 




3505




 





 





 





 





 





 



     else                              {return "$col_letter1:$col_letter2"} 




3506




 





 





 





 





 





 



 } 




3507




 





 





 





 





 





 



   




3508




 





 





 





 





 





 



   




3509




 





 





 





 





 





 



 ############################################################################### 




3510




 





 





 





 





 





 



 # 




3511




 





 





 





 





 





 



 # _write_worksheet_options() 




3512




 





 





 





 





 





 



 # 




3513




 





 





 





 





 





 



 # Write the  element if the worksheet options have changed. 




3514




73





 





 




  
73
  




 





139



 # 




3515




 





 





 





 





 





 



 sub _write_worksheet_options { 




3516




73





 





 





 





 





210



   




3517




 





 





 





 





 





 



     my $self = shift; 




3518




 





 





 





 





 





 



   




3519




73




  
100
  




 





 





 





227



     my ($options_changed, $print_changed, $setup_changed) = 




3520




 





 





 





 





 





 



        $self->_options_changed(); 




3521




31





 





 





 





 





122



   




3522




 





 





 





 





 





 



     return unless $options_changed; 




3523




 





 





 





 





 





 



   




3524




 





 





 





 





 





 



     $self->_write_xml_start_tag(2, 1, 0, 'WorksheetOptions', 




3525




 





 





 





 





 





 



                                          'xmlns', 




3526




 





 





 





 





 





 



                                          'urn:schemas-microsoft-com:' . 




3527




31




  
100
  




 





 





 





77



                                          'office:excel'); 




3528




14





 





 





 





 





40



   




3529




14





 





 





 





 





38



   




3530




14





 





 





 





 





35



     if ($setup_changed) { 




3531




 





 





 





 





 





 



         $self->_write_xml_start_tag(3, 1, 0, 'PageSetup'); 




3532




 





 





 





 





 





 



         $self->_store_setup(); 




3533




 





 





 





 





 





 



         $self->_write_xml_end_tag  (3, 1, 0, 'PageSetup'); 




3534




31




  
100
  




 





 





 





87



     } 




3535




 





 





 





 





 





 



   




3536




 





 





 





 





 





 



   




3537




31




  
100
  




 





 





 





66



     $self->_write_xml_element(3,1,0,'FitToPage') if $self->{_fit_page}; 




3538




12





 





 





 





 





39



   




3539




12





 





 





 





 





39



   




3540




12





 





 





 





 





30



     if ($print_changed) { 




3541




 





 





 





 





 





 



         $self->_write_xml_start_tag(3, 1, 0, 'Print'); 




3542




 





 





 





 





 





 



         $self->_store_print(); 




3543




 





 





 





 





 





 



         $self->_write_xml_end_tag  (3, 1, 0, 'Print'); 




3544




31




  
100
  




 





 





 





80



     } 




3545




 





 





 





 





 





 



   




3546




31




  
100
  




 





 





 





129



     $self->_write_xml_element(3,1,0,'DoNotDisplayGridlines') 




3547




 





 





 





 





 





 



                              if $self->{_screen_gridlines} == 0; 




3548




31





 





 





 





 





77



   




3549




 





 





 





 





 





 



     $self->_write_xml_element(3,1,0,'FilterOn') if $self->{_filter_on}; 




3550




 





 





 





 





 





 



   




3551




 





 





 





 





 





 



     $self->_write_xml_end_tag(2, 1, 0, 'WorksheetOptions'); 




3552




 





 





 





 





 





 



 } 




3553




 





 





 





 





 





 



   




3554




 





 





 





 





 





 



   




3555




 





 





 





 





 





 



 ############################################################################### 




3556




 





 





 





 





 





 



 # 




3557




 





 





 





 





 





 



 # _options_changed() 




3558




 





 





 





 





 





 



 # 




3559




 





 





 





 





 





 



 # Check to see if any of the worksheet options have changed. 




3560




73





 





 




  
73
  




 





149



 # 




3561




 





 





 





 





 





 



 sub _options_changed { 




3562




73





 





 





 





 





151



   




3563




73





 





 





 





 





123



     my $self = shift; 




3564




73





 





 





 





 





122



   




3565




 





 





 





 





 





 



     my $options_changed = 0; 




3566




 





 





 





 





 





 



     my $print_changed   = 0; 




3567




73




  
100
  



  
100
  




 





 





1660



     my $setup_changed   = 0; 




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




3568




 





 





 





 





 





 



   




3569




 





 





 





 





 





 



   




3570




 





 





 





 





 





 



     if ( 




3571




 





 





 





 





 





 



         $self->{_orientation}       == 0    or 




3572




 





 





 





 





 





 



         $self->{_hcenter}           == 1    or 




3573




 





 





 





 





 





 



         $self->{_vcenter}           == 1    or 




3574




 





 





 





 





 





 



         $self->{_header}            ne ''   or 




3575




 





 





 





 





 





 



         $self->{_footer}            ne ''   or 




3576




 





 





 





 





 





 



         $self->{_margin_head}       != 0.50 or 




3577




 





 





 





 





 





 



         $self->{_margin_foot}       != 0.50 or 




3578




 





 





 





 





 





 



         $self->{_margin_left}       != 0.75 or 




3579




 





 





 





 





 





 



         $self->{_margin_right}      != 0.75 or 




3580




 





 





 





 





 





 



         $self->{_margin_top}        != 1.00 or 




3581




14





 





 





 





 





25



         $self->{_margin_bottom}     != 1.00 




3582




 





 





 





 





 





 



        ) 




3583




 





 





 





 





 





 



     { 




3584




 





 





 





 





 





 



         $setup_changed = 1; 




3585




 





 





 





 





 





 



     } 




3586




73




  
100
  



  
 66
  




 





 





329



   




3587




2





 





 





 





 





4



   




3588




2





 





 





 





 





4



     # Special case for 1x1 page fit. 




3589




2





 





 





 





 





3



     if ($self->{_fit_width}  == 1 and $self->{_fit_height} == 1) { 




3590




 





 





 





 





 





 



         $options_changed     = 1; 




3591




 





 





 





 





 





 



         $self->{_fit_width}  = 0; 




3592




 





 





 





 





 





 



         $self->{_fit_height} = 0; 




3593




73




  
100
  



  
 66
  




 





 





1392



     } 




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
 33
  




 





 





 



   




 




 





 




  
 33
  




 





 





 



   




 




 





 




  
 33
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




3594




 





 





 





 





 





 



   




3595




 





 





 





 





 





 



   




3596




 





 





 





 





 





 



     if ( 




3597




 





 





 





 





 





 



         $self->{_fit_width}          > 1    or 




3598




 





 





 





 





 





 



         $self->{_fit_height}         > 1    or 




3599




 





 





 





 





 





 



         $self->{_page_order}        == 1    or 




3600




 





 





 





 





 





 



         $self->{_black_white}       == 1    or 




3601




 





 





 





 





 





 



         $self->{_draft_quality}     == 1    or 




3602




 





 





 





 





 





 



         $self->{_print_comments}    == 1    or 




3603




 





 





 





 





 





 



         $self->{_paper_size}        != 0    or 




3604




66





 





 





 





 





290



         $self->{_print_scale}       != 100  or 




3605




63





 





 





 





 





208



         $self->{_print_gridlines}   == 1    or 




3606




 





 





 





 





 





 



         $self->{_print_headers}     == 1    or 




3607




 





 





 





 





 





 



         @{$self->{_hbreaks}}         > 0    or 




3608




12





 





 





 





 





19



         @{$self->{_vbreaks}}         > 0 




3609




 





 





 





 





 





 



        ) 




3610




 





 





 





 





 





 



     { 




3611




 





 





 





 





 





 



         $print_changed = 1; 




3612




73




  
100
  



  
100
  




 





 





310



     } 




3613




 





 





 





 





 





 



   




3614




 





 





 





 





 





 



   




3615




 





 





 





 





 





 



     if ( 




3616




 





 





 





 





 





 



         $print_changed or 




3617




26





 





 





 





 





39



         $setup_changed 




3618




 





 





 





 





 





 



        ) 




3619




 





 





 





 





 





 



     { 




3620




 





 





 





 





 





 



         $options_changed = 1; 




3621




73




  
100
  




 





 





 





203



     } 




3622




73




  
100
  




 





 





 





175



   




3623




 





 





 





 





 





 



   




3624




73





 





 





 





 





227



     $options_changed = 1 if $self->{_screen_gridlines} == 0; 




3625




 





 





 





 





 





 



     $options_changed = 1 if $self->{_filter_on}; 




3626




 





 





 





 





 





 



   




3627




 





 





 





 





 





 



     return ($options_changed, $print_changed, $setup_changed); 




3628




 





 





 





 





 





 



 } 




3629




 





 





 





 





 





 



   




3630




 





 





 





 





 





 



   




3631




 





 





 





 





 





 



 ############################################################################### 




3632




 





 





 





 





 





 



 # 




3633




 





 





 





 





 





 



 # _write_autofilter() 




3634




 





 





 





 





 





 



 # 




3635




 





 





 





 





 





 



 # Write the  element. 




3636




73





 





 




  
73
  




 





129



 # 




3637




 





 





 





 





 





 



 sub _write_autofilter { 




3638




73




  
100
  




 





 





 





200



   




3639




 





 





 





 





 





 



     my $self = shift; 




3640




 





 





 





 





 





 



   




3641




 





 





 





 





 





 



     return unless $self->{_autofilter}; 




3642




 





 





 





 





 





 



   




3643




2





 





 





 





 





13



     $self->_write_xml_start_tag(2, 1, 0, 'AutoFilter', 




3644




 





 





 





 





 





 



                                          'x:Range', 




3645




 





 





 





 





 





 



                                           $self->{_autofilter}, 




3646




 





 





 





 





 





 



                                          'xmlns', 




3647




 





 





 





 





 





 



                                          'urn:schemas-microsoft-com:' . 




3648




2





 





 





 





 





10



                                          'office:excel'); 




3649




 





 





 





 





 





 



   




3650




2





 





 





 





 





8



   




3651




 





 





 





 





 





 



     $self->_write_autofilter_column(); 




3652




 





 





 





 





 





 



   




3653




 





 





 





 





 





 



     $self->_write_xml_end_tag(2, 1, 0, 'AutoFilter'); 




3654




 





 





 





 





 





 



 } 




3655




 





 





 





 





 





 



   




3656




 





 





 





 





 





 



   




3657




 





 





 





 





 





 



 ############################################################################### 




3658




 





 





 





 





 





 



 # 




3659




 





 





 





 





 





 



 # _write_autofilter_column() 




3660




 





 





 





 





 





 



 # 




3661




 





 





 





 





 





 



 # Write the  and  elements. The format 




3662




 





 





 





 





 





 



 # of this is a little complicated. 




3663




2





 





 




  
2
  




 





6



 # 




3664




2





 





 





 





 





6



 sub _write_autofilter_column { 




3665




 





 





 





 





 





 



   




3666




 





 





 





 





 





 



     my $self     = shift; 




3667




2





 





 





 





 





5



     my @tokens; 




 




2





 





 





 





 





10



   




3668




 





 





 





 





 





 



   




3669




2





 





 





 





 





7



   




3670




 





 





 





 





 





 



     my ($col_first, $col_last) = @{$self->{_filter_range}}; 




3671




 





 





 





 





 





 



   




3672




2





 





 





 





 





10



     my $prev_col = $col_first -1; 




3673




 





 





 





 





 





 



   




3674




 





 





 





 





 





 



   




3675




8




  
100
  




 





 





 





30



     for my $col ($col_first .. $col_last) { 




3676




 





 





 





 





 





 



   




3677




4





 





 





 





 





11



         # Check for rows with defined filter criteria. 




3678




 





 





 





 





 





 



         if (defined $self->{_filter_cols}->{$col}) { 




3679




 





 





 





 





 





 



   




3680




4




  
100
  




 





 





 





16



             my   @attribs = ('AutoFilterColumn'); 




3681




4





 





 





 





 





23



   




3682




4





 





 





 





 





8



             # The col indices are relative to the first column 




3683




 





 





 





 





 





 



             push @attribs, "x:Index", $col +1 -$col_first if $col != $prev_col +1; 




3684




4





 





 





 





 





15



             push @attribs, "x:Type", 'Custom'; 




3685




 





 





 





 





 





 



             $prev_col = $col; 




3686




4





 





 





 





 





8



   




 




4





 





 





 





 





17



   




3687




 





 





 





 





 





 



             $self->_write_xml_start_tag(3, 1, 0, @attribs); 




3688




 





 





 





 





 





 



   




3689




 





 





 





 





 





 



             @tokens = @{$self->{_filter_cols}->{$col}}; 




3690




 





 





 





 





 





 



   




3691




 





 





 





 





 





 



   




3692




4




  
100
  




 





 





 





26



             # Excel allows either one or two filter conditions 




3693




2





 





 





 





 





9



   




3694




 





 





 





 





 





 



             # Single criterion. 




3695




2





 





 





 





 





26



             if (@tokens == 2) { 




3696




 





 





 





 





 





 



                 my ($op, $value) = @tokens; 




3697




 





 





 





 





 





 



   




3698




 





 





 





 





 





 



                 $self->_write_xml_element(4, 1, 0, 'AutoFilterCondition', 




3699




 





 





 





 





 





 



                                                    'x:Operator', 




3700




 





 





 





 





 





 



                                                     $op, 




3701




 





 





 





 





 





 



                                                    'x:Value', 




3702




 





 





 





 





 





 



                                                     $value); 




3703




2





 





 





 





 





9



             } 




3704




 





 





 





 





 





 



             # Double criteria, either 'And' or 'Or'. 




3705




 





 





 





 





 





 



             else { 




3706




2





 





 





 





 





11



                 my ($op1, $value1, $op2, $op3, $value3) = @tokens; 




3707




 





 





 





 





 





 



   




3708




2





 





 





 





 





11



                 #  or  




3709




 





 





 





 





 





 



                 $self->_write_xml_start_tag(4, 1, 0, $op2); 




3710




 





 





 





 





 





 



   




3711




 





 





 





 





 





 



                 $self->_write_xml_element(5, 1, 0, 'AutoFilterCondition', 




3712




 





 





 





 





 





 



                                                    'x:Operator', 




3713




 





 





 





 





 





 



                                                     $op1, 




3714




2





 





 





 





 





10



                                                    'x:Value', 




3715




 





 





 





 





 





 



                                                     $value1); 




3716




 





 





 





 





 





 



   




3717




 





 





 





 





 





 



                 $self->_write_xml_element(5, 1, 0, 'AutoFilterCondition', 




3718




 





 





 





 





 





 



                                                    'x:Operator', 




3719




 





 





 





 





 





 



                                                     $op3, 




3720




2





 





 





 





 





9



                                                    'x:Value', 




3721




 





 





 





 





 





 



                                                     $value3); 




3722




 





 





 





 





 





 



   




3723




 





 





 





 





 





 



                 $self->_write_xml_end_tag(4, 1, 0, $op2); 




3724




4





 





 





 





 





16



   




3725




 





 





 





 





 





 



             } 




3726




 





 





 





 





 





 



   




3727




 





 





 





 





 





 



             $self->_write_xml_end_tag(3, 1, 0, 'AutoFilterColumn'); 




3728




 





 





 





 





 





 



         } 




3729




 





 





 





 





 





 



     } 




3730




 





 





 





 





 





 



 } 




3731




 





 





 





 





 





 



   




3732




 





 





 





 





 





 



   




3733




 





 





 





 





 





 



 ############################################################################### 




3734




 





 





 





 





 





 



 # 




3735




 





 





 





 





 





 



 # _quote_sheetname() 




3736




 





 





 





 





 





 



 # 




3737




 





 





 





 





 





 



 # Sheetnames used in references should be quoted if they contain any spaces, 




3738




 





 





 





 





 





 



 # special characters or if the look like something that isn't a sheet name. 




3739




 





 





 





 





 





 



 # However, the rules are complex so for now we just quote anything that doesn't 




3740




 





 





 





 





 





 



 # look like a simple sheet name. 




3741




22





 





 




  
22
  




 





42



 # 




3742




22





 





 





 





 





39



 sub _quote_sheetname { 




3743




 





 





 





 





 





 



   




3744




 





 





 





 





 





 



     my $self      = shift; 




3745




22




  
100
  




 





 





 





102



     my $sheetname = $_[0]; 




3746




2





 





 





 





 





10



   




3747




 





 





 





 





 





 



   




3748




 





 





 





 





 





 



     if ($sheetname  =~ /^Sheet\d+$/) { 




3749




20





 





 





 





 





61



         return $sheetname; 




3750




 





 





 





 





 





 



     } 




3751




 





 





 





 





 





 



     else { 




3752




 





 





 





 





 





 



         return "'" . $sheetname . "'"; 




3753




 





 





 





 





 





 



     } 




3754




 





 





 





 





 





 



 } 




3755




 





 





 





 





 





 



   




3756




 





 





 





 





 





 



   




3757




 





 





 





 





 





 



   




3758




 





 





 





 





 





 



   




3759




 





 





 





 





 





 



 1; 




3760




 





 





 





 





 





 



   




3761




 





 





 





 





 





 



   




3762




 





 





 





 





 





 



 __END__
#
# TODO Add note about data structure
#
sub _write_xml_table {

    my $self = shift;

    # Don't write  element if it contains no data. 




2899




73




  
100
  




 





 





 





225



     return unless $self->{_dim_changed}; 




2900




 





 





 





 





 





 



   




2901




 





 





 





 





 





 



   




2902




 





 





 





 





 





 



   




2903




 





 





 





 





 





 



     $self->_write_xml_start_tag(2, 1, 0, 'Table', 




2904




 





 





 





 





 





 



                                          'ss:ExpandedColumnCount', 




2905




 





 





 





 





 





 



                                           $self->{_dim_colmax} +1, 




2906




 





 





 





 





 





 



                                          'ss:ExpandedRowCount', 




2907




48





 





 





 





 





215



                                           $self->{_dim_rowmax} +1, 




2908




 





 





 





 





 





 



                                        ); 




2909




48





 





 





 





 





238



     $self->_store_colinfo(); 




2910




 





 





 





 





 





 



   




2911




 





 





 





 





 





 



     # Write stored  and  data 




2912




48





 





 





 





 





166



     $self->_write_xml_rows(); 




2913




 





 





 





 





 





 



   




2914




48





 





 





 





 





170



     $self->_write_xml_end_tag(2, 1, 0, 'Table'); 




2915




 





 





 





 





 





 



 } 




2916




 





 





 





 





 





 



   




2917




 





 





 





 





 





 



   




2918




 





 





 





 





 





 



 ############################################################################### 




2919




 





 





 





 





 





 



 # 




2920




 





 





 





 





 





 



 # _write_xml_rows() 




2921




 





 





 





 





 





 



 # 




2922




 





 





 





 





 





 



 # Write all  elements. 




2923




 





 





 





 





 





 



 # 




2924




 





 





 





 





 





 



 sub _write_xml_rows { 




2925




 





 





 





 





 





 



   




2926




48





 





 




  
48
  




 





105



     my $self     = shift; 




2927




 





 





 





 





 





 



   




2928




48





 





 





 





 





96



     my @attribs; 




2929




48





 





 





 





 





92



     my $previous = -1; 




2930




48





 





 





 





 





89



     my $span     = 0; 




2931




 





 





 





 





 





 



   




2932




48





 





 





 





 





161



     for my $row (0 .. $self->{_dim_rowmax}) { 




2933




 





 





 





 





 





 



   




2934




2228377




  
100
  



  
100
  




 





 





5329256



         next unless $self->{_set_rows}->{$row} or $self->{_table}->[$row]; 




2935




 





 





 





 





 





 



   




2936




183




  
100
  




 





 





 





397



         if (not $span) { 




2937




163





 





 





 





 





490



             my $height  = $self->{_set_rows}->{$row}->[0]; 




2938




163





 





 





 





 





301



             my $format  = $self->{_set_rows}->{$row}->[1]; 




2939




163





 





 





 





 





318



             my $hidden  = $self->{_set_rows}->{$row}->[2]; 




2940




163





 




  
 50
  




 





 





548



             my $autofit = $self->{_set_rows}->{$row}->[3] || 0; 




2941




 





 





 





 





 





 



   




2942




163




  
100
  




 





 





 





440



             push @attribs, "ss:Index",         $row +1  if $row != $previous+1; 




2943




163




  
100
  



  
 66
  




 





 





623



             push @attribs, "ss:AutoFitHeight", $autofit if $height or $autofit; 




2944




163




  
100
  




 





 





 





424



             push @attribs, "ss:Height",        $height  if $height; 




2945




163




  
100
  




 





 





 





353



             push @attribs, "ss:Hidden",        $hidden  if $hidden; 




2946




163




  
100
  




 





 





 





359



             push @attribs, "ss:StyleID",  "s" . $format if $format; 




2947




 





 





 





 





 





 



   




2948




 





 





 





 





 





 



             # See ss:Index note in _store_colinfo 




2949




163





 





 





 





 





320



             $previous = $row; 




2950




 





 





 





 





 





 



         } 




2951




 





 





 





 





 





 



   




2952




 





 





 





 





 





 



         # $previous = $row; # See ss:Index note in _store_colinfo 




2953




183





 





 





 





 





547



         local $^W = 0; # Ignore warnings about undefs in array ref comparison. 




2954




 





 





 





 





 





 



   




2955




 





 





 





 





 





 



         # Check if the same attributes are shared over consecutive columns. 




2956




183




  
100
  



  
100
  




 





 





739



         if (not    $self->{_table}->[$row   ]           and 




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




2957




 





 





 





 





 





 



             not    $self->{_table}->[$row +1]           and 




2958




 





 





 





 





 





 



             exists $self->{_set_rows}->{$row   }        and 




2959




 





 





 





 





 





 



             exists $self->{_set_rows}->{$row +1}        and 




2960




24





 





 





 





 





115



             join("|", @{$self->{_set_rows}->{$row   }}) eq 




2961




24





 





 





 





 





119



             join("|", @{$self->{_set_rows}->{$row +1}})) 




2962




 





 





 





 





 





 



         { 




2963




20





 





 





 





 





34



             $span++; 




2964




20





 





 





 





 





60



             next; 




2965




 





 





 





 





 





 



         } 




2966




 





 





 





 





 





 



   




2967




163




  
100
  




 





 





 





408



         push @attribs, "ss:Span", $span if $span; 




2968




 





 





 





 





 





 



   




2969




 





 





 





 





 





 



         # Write  with  data or formatted  without  data. 




2970




 





 





 





 





 





 



         # 




2971




163




  
100
  




 





 





 





374



         if (my $row_ref = $self->{_table}->[$row]) { 




2972




147





 





 





 





 





513



             $self->_write_xml_start_tag(3, 1, 0, 'Row', @attribs); 




2973




 





 





 





 





 





 



   




2974




147





 





 





 





 





259



             my $col           = 0; 




2975




147





 





 





 





 





277



             $self->{prev_col} = -1; 




2976




 





 





 





 





 





 



   




2977




147





 





 





 





 





341



             for my $col_ref (@$row_ref) { 




2978




33678




  
100
  




 





 





 





51325



                 $self->_write_xml_cell($row, $col) if $col_ref; 




2979




33678





 





 





 





 





45375



                 $col++; 




2980




 





 





 





 





 





 



             } 




2981




147





 





 





 





 





481



             $self->_write_xml_end_tag(3, 1, 0, 'Row'); 




2982




 





 





 





 





 





 



         } 




2983




 





 





 





 





 





 



         else { 




2984




16





 





 





 





 





71



             $self->_write_xml_element(3, 1, 0, 'Row', @attribs); 




2985




 





 





 





 





 





 



         } 




2986




 





 





 





 





 





 



   




2987




 





 





 





 





 





 



   




2988




163





 





 





 





 





346



         @attribs = (); 




2989




163





 





 





 





 





460



         $span    = 0; 




2990




 





 





 





 





 





 



     } 




2991




 





 





 





 





 





 



 } 




2992




 





 





 





 





 





 



   




2993




 





 





 





 





 





 



   




2994




 





 





 





 





 





 



 ############################################################################### 




2995




 





 





 





 





 





 



 # 




2996




 





 





 





 





 





 



 # _write_xml_cell() 




2997




 





 





 





 





 





 



 # 




2998




 





 





 





 





 





 



 # Write a  element start tag. 




2999




 





 





 





 





 





 



 # 




3000




 





 





 





 





 





 



 sub _write_xml_cell { 




3001




 





 





 





 





 





 



   




3002




254





 





 




  
254
  




 





427



     my $self      = shift; 




3003




 





 





 





 





 





 



   




3004




254





 





 





 





 





417



     my $row         = $_[0]; 




3005




254





 





 





 





 





372



     my $col         = $_[1]; 




3006




 





 





 





 





 





 



   




3007




254





 





 





 





 





569



     my $datatype    = $self->{_table}->[$row]->[$col]->[0]; 




3008




254





 





 





 





 





467



     my $data        = $self->{_table}->[$row]->[$col]->[1]; 




3009




254





 





 





 





 





461



     my $format      = $self->{_table}->[$row]->[$col]->[2]; 




3010




 





 





 





 





 





 



   




3011




254





 





 





 





 





369



     my @attribs; 




3012




254





 





 





 





 





403



     my $comment = ''; 




3013




 





 





 





 





 





 



   




3014




 





 





 





 





 





 



   




3015




 





 





 





 





 





 



     ########################################################################### 




3016




 





 





 





 





 





 



     # 




3017




 





 





 





 





 





 



     # Only add the cell index if it doesn't follow another cell. 




3018




 





 





 





 





 





 



     # 




3019




254




  
100
  




 





 





 





621



     push @attribs, "ss:Index",   $col +1 if $col != $self->{prev_col} +1; 




3020




 





 





 





 





 





 



   




3021




 





 





 





 





 





 



   




3022




 





 





 





 





 





 



     ########################################################################### 




3023




 





 





 





 





 





 



     # 




3024




 





 





 





 





 





 



     # Check for merged cells. 




3025




 





 





 





 





 





 



     # 




3026




254




  
100
  



  
100
  




 





 





643



     if (exists $self->{_merge}->{$row}   and 




3027




 





 





 





 





 





 



         exists $self->{_merge}->{$row}->{$col}) 




3028




 





 





 





 





 





 



     { 




3029




19





 





 





 





 





34



         my ($across, $down) = @{$self->{_merge}->{$row}->{$col}}; 




 




19





 





 





 





 





46



   




3030




 





 





 





 





 





 



   




3031




19




  
100
  




 





 





 





54



         push @attribs, "ss:MergeAcross", $across if $across; 




3032




19




  
100
  




 





 





 





44



         push @attribs, "ss:MergeDown",   $down   if $down; 




3033




 





 





 





 





 





 



   




3034




 





 





 





 





 





 



         # Fill the merge range to ensure that it doesn't contain any data types. 




3035




19





 





 





 





 





43



         for my $m_row (0 .. $down) { 




3036




40





 





 





 





 





63



             for my $m_col (0 .. $across) { 




3037




84




  
100
  



  
100
  




 





 





225



                 next if $m_row == 0 and $m_col == 0; 




3038




65





 





 





 





 





179



                 $self->{_table}->[$row +$m_row ]->[$col +$m_col] = undef; 




3039




 





 





 





 





 





 



              } 




3040




 





 





 





 





 





 



         } 




3041




 





 





 





 





 





 



   




3042




 





 





 





 





 





 



         # Fill the last col so that $self->{prev_col} is incremented correctly. 




3043




19





 





 





 





 





40



         my $type = $self->{_datatypes}->{Merge}; 




3044




19





 





 





 





 





48



         $self->{_table}->[$row]->[$col +$across] = [$type]; 




3045




 





 





 





 





 





 



     } 




3046




 





 





 





 





 





 



   




3047




 





 





 





 





 





 



   




3048




 





 





 





 





 





 



     ########################################################################### 




3049




 





 





 





 





 





 



     # 




3050




 





 





 





 





 





 



     # Check for cell comments. 




3051




 





 





 





 





 





 



     # 




3052




254




  
100
  



  
100
  




 





 





603



     if (exists $self->{_comment}->{$row}   and 




3053




 





 





 





 





 





 



         exists $self->{_comment}->{$row}->{$col}) 




3054




 





 





 





 





 





 



     { 




3055




8





 





 





 





 





18



         $comment = $self->{_comment}->{$row}->{$col}; 




3056




 





 





 





 





 





 



     } 




3057




 





 





 





 





 





 



   




3058




 





 





 





 





 





 



   




3059




 





 





 





 





 





 



     # Add the format attribute. 




3060




254




  
100
  




 





 





 





633



     push @attribs, "ss:StyleID", "s" . $format if $format; 




3061




 





 





 





 





 





 



   




3062




 





 





 





 





 





 



   




3063




 





 





 





 





 





 



     # Add to the attribute list for data types with additional options 




3064




254




  
100
  




 





 





 





660



     if ($datatype == $self->{_datatypes}->{Formula}) { 




3065




7





 





 





 





 





19



         my $array_range = $self->{_table}->[$row]->[$col]->[3]; 




3066




 





 





 





 





 





 



   




3067




7




  
100
  




 





 





 





26



         push @attribs, "ss:ArrayRange", $array_range if $array_range; 




3068




7





 





 





 





 





16



         push @attribs, "ss:Formula", $data; 




3069




 





 





 





 





 





 



     } 




3070




 





 





 





 





 





 



   




3071




254




  
100
  




 





 





 





566



     if ($datatype == $self->{_datatypes}->{HRef}) { 




3072




7





 





 





 





 





26



         push @attribs, "ss:HRef", $data; 




3073




 





 





 





 





 





 



   




3074




7





 





 





 





 





31



         my $tip = $self->{_table}->[$row]->[$col]->[4]; 




3075




7




  
100
  




 





 





 





34



         push @attribs, "x:HRefScreenTip", $tip if defined $tip ; 




3076




 





 





 





 





 





 



     } 




3077




 





 





 





 





 





 



   




3078




 





 





 





 





 





 



   




3079




 





 





 





 





 





 



     ########################################################################### 




3080




 





 





 





 





 





 



     # 




3081




 





 





 





 





 





 



     # Write the  data for various data types. 




3082




 





 





 





 





 





 



     # 




3083




 





 





 





 





 





 



   




3084




 





 





 





 





 





 



     # Write the Number data element 




3085




254




  
100
  




 





 





 





834



     if ($datatype == $self->{_datatypes}->{Number}) { 




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
100
  




 





 





 





 



   




 




 




  
 50
  




 





 





 





 



   




3086




39





 





 





 





 





164



         $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3087




39





 





 





 





 





118



         $self->_write_xml_cell_data('Number', $data); 




3088




39




  
100
  




 





 





 





103



         $self->_write_xml_cell_comment($comment) if $comment; 




3089




39





 





 





 





 





114



         $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3090




 





 





 





 





 





 



     } 




3091




 





 





 





 





 





 



   




3092




 





 





 





 





 





 



   




3093




 





 





 





 





 





 



     # Write the String data element 




3094




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{String}) { 




3095




184





 





 





 





 





338



         my $html = $self->{_table}->[$row]->[$col]->[3]; 




3096




 





 





 





 





 





 



   




3097




184





 





 





 





 





601



         $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3098




 





 





 





 





 





 



   




3099




184




  
100
  




 





 





 





407



         if ($html){$self->_write_xml_html_string($data);} 




 




5





 





 





 





 





15



   




3100




179





 





 





 





 





411



         else      {$self->_write_xml_cell_data('String', $data);} 




3101




 





 





 





 





 





 



   




3102




184




  
100
  




 





 





 





563



         $self->_write_xml_cell_comment($comment) if $comment; 




3103




184





 





 





 





 





458



         $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3104




 





 





 





 





 





 



     } 




3105




 





 





 





 





 





 



   




3106




 





 





 





 





 





 



   




3107




 





 





 





 





 





 



     # Write the DateTime data element 




3108




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{DateTime}) { 




3109




1





 





 





 





 





5



         $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3110




1





 





 





 





 





4



         $self->_write_xml_cell_data('DateTime', $data); 




3111




1




  
 50
  




 





 





 





6



         $self->_write_xml_cell_comment($comment) if $comment; 




3112




1





 





 





 





 





5



         $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3113




 





 





 





 





 





 



     } 




3114




 





 





 





 





 





 



   




3115




 





 





 





 





 





 



   




3116




 





 





 





 





 





 



     # Write an empty Data element for a formula data 




3117




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{Formula}) { 




3118




7




  
100
  




 





 





 





17



         if ($comment) { 




3119




1





 





 





 





 





5



             $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3120




1





 





 





 





 





4



             $self->_write_xml_cell_comment($comment); 




3121




1





 





 





 





 





4



             $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3122




 





 





 





 





 





 



         } 




3123




 





 





 





 





 





 



         else { 




3124




6





 





 





 





 





22



             $self->_write_xml_element(4, 1, 0, 'Cell', @attribs); 




3125




 





 





 





 





 





 



         } 




3126




 





 





 





 





 





 



     } 




3127




 





 





 





 





 





 



   




3128




 





 





 





 





 





 



   




3129




 





 





 





 





 





 



     # Write the HRef data element 




3130




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{HRef}) { 




3131




 





 





 





 





 





 



   




3132




7





 





 





 





 





29



         $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3133




 





 





 





 





 





 



   




3134




7





 





 





 





 





23



         my $data = $self->{_table}->[$row]->[$col]->[3]; 




3135




7





 





 





 





 





21



         my $type; 




3136




 





 





 





 





 





 



   




3137




 





 





 





 





 





 



         # Match DateTime string. 




3138




7




  
 50
  



  
 33
  




 





 





22



         if ($self->convert_date_time($data)) { 




 




 




  
 50
  




 





 





 





 



   




 




 




  
 50
  




 





 





 





 



   




3139



  
0
  




 





 





 





 





0



             $type = 'DateTime'; 




3140




 





 





 





 





 





 



         } 




3141




 





 





 





 





 





 



         # Match integer with leading zero(s) 




3142




 





 





 





 





 





 



         elsif ($self->{_leading_zeros} and $data =~ /^0\d+$/) { 




3143



  
0
  




 





 





 





 





0



             $type = 'String'; 




3144




 





 





 





 





 





 



         } 




3145




 





 





 





 





 





 



         # Match number. 




3146




 





 





 





 





 





 



         elsif ($data =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/) { 




3147



  
0
  




 





 





 





 





0



             $type = 'Number'; 




3148




 





 





 





 





 





 



         } 




3149




 





 





 





 





 





 



         # Default to string. 




3150




 





 





 





 





 





 



         else { 




3151




7





 





 





 





 





18



             $type = 'String'; 




3152




 





 





 





 





 





 



         } 




3153




 





 





 





 





 





 



   




3154




7




  
100
  




 





 





 





18



         $self->_write_xml_cell_comment($comment) if $comment; 




3155




7





 





 





 





 





45



         $self->_write_xml_cell_data($type, $data); 




3156




7





 





 





 





 





34



         $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3157




 





 





 





 





 





 



     } 




3158




 





 





 





 





 





 



   




3159




 





 





 





 





 





 



   




3160




 





 





 





 





 





 



     # Write an empty Data element for a blank cell 




3161




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{Blank}) { 




3162




1




  
 50
  




 





 





 





7



         if ($comment) { 




3163



  
0
  




 





 





 





 





0



             $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3164



  
0
  




 





 





 





 





0



             $self->_write_xml_cell_comment($comment); 




3165



  
0
  




 





 





 





 





0



             $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3166




 





 





 





 





 





 



         } 




3167




 





 





 





 





 





 



         else { 




3168




1





 





 





 





 





6



             $self->_write_xml_element(4, 1, 0, 'Cell', @attribs); 




3169




 





 





 





 





 





 



         } 




3170




 





 





 





 





 





 



     } 




3171




 





 





 





 





 





 



   




3172




 





 





 





 





 





 



     # Write an empty Data element for an empty cell with a comment; 




3173




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{Comment}) { 




3174




1




  
 50
  




 





 





 





3



         if ($comment) { 




3175




1





 





 





 





 





4



             $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs); 




3176




1





 





 





 





 





6



             $self->_write_xml_cell_comment($comment); 




3177




1





 





 





 





 





10



             $self->_write_xml_end_tag(4, 1, 0, 'Cell'); 




3178




 





 





 





 





 





 



         } 




3179




 





 





 





 





 





 



         else { 




3180



  
0
  




 





 





 





 





0



             $self->_write_xml_element(4, 1, 0, 'Cell', @attribs); 




3181




 





 





 





 





 





 



         } 




3182




 





 





 





 





 





 



     } 




3183




 





 





 





 





 





 



   




3184




 





 





 





 





 





 



     # Ignore merge cells 




3185




 





 





 





 





 





 



     elsif ($datatype == $self->{_datatypes}->{Merge}) { 




3186




 





 





 





 





 





 



         # Do nothing. 




3187




 





 





 





 





 





 



     } 




3188




 





 





 





 





 





 



   




3189




 





 





 





 





 





 



   




3190




254





 





 





 





 





472



     $self->{prev_col} = $col; 




3191




254





 





 





 





 





501



     return; 




3192




 





 





 





 





 





 



 } 




3193




 





 





 





 





 





 



   




3194




 





 





 





 





 





 



   




3195




 





 





 





 





 





 



 ############################################################################### 




3196




 





 





 





 





 





 



 # 




3197




 





 





 





 





 





 



 # _write_xml_cell_data() 




3198




 





 





 





 





 





 



 # 




3199




 





 





 





 





 





 



 # Write a generic Data element. 




3200




 





 





 





 





 





 



 # 




3201




 





 





 





 





 





 



 sub _write_xml_cell_data { 




3202




 





 





 





 





 





 



   




3203




226





 





 




  
226
  




 





398



     my $self  = shift; 




3204




 





 





 





 





 





 



   




3205




226





 





 





 





 





363



     my $datatype    = $_[0]; 




3206




226





 





 





 





 





351



     my $data        = $_[1]; 




3207




 





 





 





 





 





 



   




3208




226





 





 





 





 





669



     $self->_write_xml_start_tag(5, 0, 0, 'Data', 'ss:Type', $datatype); 




3209




 





 





 





 





 





 



   




3210




226




  
100
  




 





 





 





499



     if ($datatype eq 'Number') {$self->_write_xml_unencoded_content($data)} 




 




39





 





 





 





 





280



   




3211




187





 





 





 





 





522



     else                       {$self->_write_xml_content($data)          } 




3212




 





 





 





 





 





 



   




3213




226





 





 





 





 





666



     $self->_write_xml_end_tag(0, 1, 0, 'Data'); 




3214




 





 





 





 





 





 



 } 




3215




 





 





 





 





 





 



   




3216




 





 





 





 





 





 



   




3217




 





 





 





 





 





 



 ############################################################################### 




3218




 





 





 





 





 





 



 # 




3219




 





 





 





 





 





 



 # _write_xml_html_string() 




3220




 





 





 





 





 





 



 # 




3221




 





 





 





 





 





 



 # Write a string Data element with html text. 




3222




 





 





 





 





 





 



 # 




3223




 





 





 





 





 





 



 sub _write_xml_html_string { 




3224




 





 





 





 





 





 



   




3225




5





 





 




  
5
  




 





9



     my $self  = shift; 




3226




5





 





 





 





 





10



     my $data  = $_[0]; 




3227




 





 





 





 





 





 



   




3228




5





 





 





 





 





17



     $self->_write_xml_start_tag(5, 0, 0, 'ss:Data', 




3229




 





 





 





 





 





 



                                          'ss:Type', 




3230




 





 





 





 





 





 



                                          'String', 




3231




 





 





 





 





 





 



                                          'xmlns', 




3232




 





 





 





 





 





 



                                          'http://www.w3.org/TR/REC-html40' 




3233




 





 





 





 





 





 



                                          ); 




3234




 





 





 





 





 





 



   




3235




5





 





 





 





 





21



     $self->_write_xml_unencoded_content($data); 




3236




 





 





 





 





 





 



   




3237




5





 





 





 





 





15



     $self->_write_xml_end_tag(0, 1, 0, 'ss:Data'); 




3238




 





 





 





 





 





 



 } 




3239




 





 





 





 





 





 



   




3240




 





 





 





 





 





 



   




3241




 





 





 





 





 





 



 ############################################################################### 




3242




 





 





 





 





 





 



 # 




3243




 





 





 





 





 





 



 # _write_xml_cell_comment() 




3244




 





 





 





 





 





 



 # 




3245




 





 





 





 





 





 



 # Write a cell Comment element. 




3246




 





 





 





 





 





 



 # 




3247




 





 





 





 





 





 



 sub _write_xml_cell_comment { 




3248




 





 





 





 





 





 



   




3249




8





 





 




  
8
  




 





14



     my $self    = shift; 




3250




8





 





 





 





 





12



     my $comment = $_[0]; 




3251




 





 





 





 





 





 



   




3252




8





 





 





 





 





24



     $self->_write_xml_start_tag(5, 1, 0, 'Comment'); 




3253




 





 





 





 





 





 



   




3254




8





 





 





 





 





26



     $self->_write_xml_start_tag(6, 0, 0, 'ss:Data', 




3255




 





 





 





 





 





 



                                          'xmlns', 




3256




 





 





 





 





 





 



                                          'http://www.w3.org/TR/REC-html40' 




3257




 





 





 





 





 





 



                                          ); 




3258




 





 





 





 





 





 



   




3259




8





 





 





 





 





25



     $self->_write_xml_unencoded_content($comment); 




3260




 





 





 





 





 





 



   




3261




8





 





 





 





 





22



     $self->_write_xml_end_tag(0, 1, 0, 'ss:Data'); 




3262




 





 





 





 





 





 



   




3263




8





 





 





 





 





25



     $self->_write_xml_end_tag(5, 1, 0, 'Comment'); 




3264




 





 





 





 





 





 



   




3265




 





 





 





 





 





 



 } 




3266




 





 





 





 





 





 



   




3267




 





 





 





 





 





 



   




3268




 





 





 





 





 





 



 ############################################################################### 




3269




 





 





 





 





 





 



 # 




3270




 





 





 





 





 





 



 # _convert_formula($row, $col, $A1_formula) 




3271




 





 





 





 





 





 



 # 




3272




 





 





 





 





 





 



 # Converts a string containing an Excel formula in A1 notation into a string 




3273




 





 





 





 





 





 



 # containing a formula in R1C1 notation. 




3274




 





 





 





 





 





 



 # 




3275




 





 





 





 





 





 



 # Instead of parsing the formula into its component parts, as Spreadsheet:: 




3276




 





 





 





 





 





 



 # WriteExcel::Formula does, we convert the A1 style references to R1C1 




3277




 





 





 





 





 





 



 # references using regexes. This avoid the significant overhead of the 




3278




 





 





 





 





 





 



 # Parse::RecDescent parser in S::WE::Formula. The main problem with this 




3279




 





 





 





 





 





 



 # simplified approach is that there is potential for false matches. Such as 




3280




 





 





 





 





 





 



 # B5 in the following formula (only the last is a valid match). 




3281




 





 





 





 





 





 



 # 




3282




 





 





 





 





 





 



 # "= "B5" & SheetB5!B5" 




3283




 





 





 





 





 





 



 # 




3284




 





 





 





 





 





 



 # The method used here is to replace potential false matches before converting 




3285




 





 





 





 





 





 



 # the real A1 cell references and then substitute back the replaced data. 




3286




 





 





 





 





 





 



 # 




3287




 





 





 





 





 





 



 # Returns: a string. A representation of a formula in R1C1 notation. 




3288




 





 





 





 





 





 



 # 




3289




 





 





 





 





 





 



 sub _convert_formula { 




3290




 





 





 





 





 





 



   




3291




81





 





 




  
81
  




 





37218



     my $self = shift; 




3292




 





 





 





 





 





 



   




3293




81





 





 





 





 





158



     my $row     = $_[0]; 




3294




81





 





 





 





 





133



     my $col     = $_[1]; 




3295




81





 





 





 





 





143



     my $formula = $_[2]; 




3296




 





 





 





 





 





 



   




3297




81





 





 





 





 





173



     my @strings; 




3298




 





 





 





 





 





 



     my @sheets; 




3299




 





 





 





 





 





 



   




3300




 





 





 





 





 





 



     # Replace double quoted strings in formula. Strings may contain escaped 




3301




 





 





 





 





 





 



     # double quotes. Regex by merlyn. 




3302




 





 





 





 





 





 



     # See http://www.perlmonks.org/index.pl?node_id=330280 




3303




 





 





 





 





 





 



     # 




3304




81





 





 





 





 





393



     push @strings, $1 while $formula =~ s/("([^"]|"")*")/__swe__str__/; # " 




3305




 





 





 





 





 





 



   




3306




 





 





 





 





 





 



   




3307




 





 





 





 





 





 



     # Replace worksheet references in formula, such as Sheet1! or 'Sheet 1'! 




3308




 





 





 





 





 





 



     # 




3309




81





 





 





 





 





351



     push @sheets,  $1 while $formula =~ s/(('[^']+'|[\w\.]+)!)/__swe__sht__/; 




3310




 





 





 





 





 





 



   




3311




 





 





 





 





 





 



   




3312




 





 





 





 





 





 



     # Replace valid A1 cell references with R1C1 references. Cell ranges such 




3313




 





 





 





 





 





 



     # as B5:G10 are replaced in two passes. 




3314




 





 





 





 





 





 



     # The negative look-ahead is to prevent false matches such as =LOG10(LOG10) 




3315




 





 





 





 





 





 



     # 




3316




81





 





 





 





 





504



     $formula =~ s{(\$?[A-Z]{1,3}\$?\d+)(?![(\d])} 




 




87





 





 





 





 





227



   




3317




 





 





 





 





 





 



                  {$self->_A1_to_R1C1($row, $col, $1)}eg; 




3318




 





 





 





 





 





 



   




3319




 





 





 





 





 





 



   




3320




 





 





 





 





 





 



     # Replace row ranges such as 2:9 with R1C1 references. 




3321




81





 





 





 





 





268



     # 




 




5





 





 





 





 





16



   




3322




 





 





 





 





 





 



     $formula =~ s{(\$?\d+:\$?\d+)} 




3323




 





 





 





 





 





 



                  {$self->_row_range_to_R1C1($row, $1)}eg; 




3324




 





 





 





 





 





 



   




3325




 





 





 





 





 





 



   




3326




 





 





 





 





 





 



     # Replace column ranges such as A:Z with R1C1 references. 




3327




 





 





 





 





 





 



     # The negative look-behind is to prevent false column matches such 




3328




 





 





 





 





 





 



     # as "=A1:A1" => "=RC:RC" 




3329




 





 





 





 





 





 



     # 




3330




 





 





 





 





 





 



     # Note: there is a tricky parse due to the increased column limits that 




3331




81





 





 





 





 





198



     # isn't handled here. RC:RC is now a valid column range in A1 notation. 




 




6





 





 





 





 





19



   




3332




 





 





 





 





 





 



     # Fix later. Maybe. 




3333




 





 





 





 





 





 



     $formula =~ s{(?




3334




 





 





 





 





 





 



                  {$self->_col_range_to_R1C1($col, $1)}eg; 




3335




 





 





 





 





 





 



   




3336




 





 





 





 





 





 



   




3337




81





 





 





 





 





234



     # Quoted A1 style alphanumeric sheetnames don't need quoting when 




3338




 





 





 





 





 





 



     # converted to R1C1 style. For example "='A1'!A1" becomes "=A1!RC" (without 




3339




 





 





 





 





 





 



     # the single quotes since A1 isn't a reserved name in R1C1 notation). 




3340




 





 





 





 





 





 



     s/^'([a-zA-Z0-9]+)'!$/$1!/ for @sheets; 




3341




 





 





 





 





 





 



   




3342




 





 





 





 





 





 



   




3343




81





 





 





 





 





203



     # However, sheet names that looks like R1C1 notation do have to be single 




3344




 





 





 





 





 





 



     # quoted. For example "='R4C'!A1"  becomes "='R4C'!RC". 




3345




 





 





 





 





 





 



     # 




3346




 





 





 





 





 





 



     s/^((R\d*|R\[\d+\])?(C\d*|C\[\d+\])?)!$/\'$1\'!/ for @sheets; 




3347




 





 





 





 





 





 



   




3348




81





 





 





 





 





222



   




 




22





 





 





 





 





79



   




3349




81





 





 





 





 





198



     # Replace temporarily escaped strings. Note that the s///s are performed in 




 




12





 





 





 





 





45



   




3350




 





 





 





 





 





 



     # reverse order to the substitutions above in case of nested strings. 




3351




81





 





 





 





 





426



     $formula =~ s/__swe__sht__/shift @sheets /e while @sheets; 




3352




 





 





 





 





 





 



     $formula =~ s/__swe__str__/shift @strings/e while @strings; 




3353




 





 





 





 





 





 



   




3354




 





 





 





 





 





 



     return $formula; 




3355




 





 





 





 





 





 



 } 




3356




 





 





 





 





 





 



   




3357




 





 





 





 





 





 



   




3358




 





 





 





 





 





 



 ############################################################################### 




3359




 





 





 





 





 





 



 # 




3360




 





 





 





 





 





 



 # _A1_to_R1C1($A1_string) 




3361




 





 





 





 





 





 



 # 




3362




 





 





 





 





 





 



 # Converts a string containing an Excel cell reference in A1 notation into a 




3363




 





 





 





 





 





 



 # string containing a formula in R1C1 notation. For example: 




3364




 





 





 





 





 





 



 # 




3365




 





 





 





 





 





 



 #   '=G1' in cell (0, 0) becomes '=RC[6]'. 




3366




 





 





 





 





 





 



 # 




3367




 





 





 





 





 





 



 # The R1C1 value is relative to the row and column from which it is referred. 




3368




 





 





 





 





 





 



 # With reference to the above example: 




3369




 





 





 





 





 





 



 # 




3370




 





 





 





 





 





 



 #   '=G1' in cell (1, 0) becomes '=R[-1]C[6]'. 




3371




 





 





 





 





 





 



 # 




3372




 





 





 





 





 





 



 # Returns: a string. A representation of a cell reference in R1C1 notation. 




3373




 





 





 





 





 





 



 # 




3374




87





 





 




  
87
  




 





139



 # 




3375




 





 





 





 





 





 



 sub _A1_to_R1C1 { 




3376




87





 





 





 





 





127



   




3377




87





 





 





 





 





136



     my $self =  shift; 




3378




 





 





 





 





 





 



   




3379




87





 





 





 





 





192



     my $current_row = $_[0]; 




3380




 





 





 





 





 





 



     my $current_col = $_[1]; 




3381




 





 





 





 





 





 



   




3382




87





 





 





 





 





165



     my ($row, $col, $row_abs, $col_abs) = $self->_cell_to_rowcol($_[2]); 




3383




 





 





 





 





 





 



   




3384




87




  
100
  




 





 





 





172



     # Row part 




3385




16





 





 





 





 





33



     my $r1c1 = 'R'; 




3386




 





 





 





 





 





 



   




3387




 





 





 





 





 





 



     if ($row_abs) { 




3388




71




  
100
  




 





 





 





203



         $r1c1 .= $row +1; # 1 based 




3389




 





 





 





 





 





 



     } 




3390




 





 





 





 





 





 



     else { 




3391




 





 





 





 





 





 



         $r1c1 .= '[' . ($row -$current_row) . ']' unless $row == $current_row; 




3392




87





 





 





 





 





139



     } 




3393




 





 





 





 





 





 



   




3394




87




  
100
  




 





 





 





153



     # Column part 




3395




16





 





 





 





 





27



     $r1c1 .= 'C'; 




3396




 





 





 





 





 





 



   




3397




 





 





 





 





 





 



     if ($col_abs) { 




3398




71




  
100
  




 





 





 





163



         $r1c1 .= $col +1; # 1 based 




3399




 





 





 





 





 





 



     } 




3400




 





 





 





 





 





 



     else { 




3401




87





 





 





 





 





305



         $r1c1 .= '[' . ($col -$current_col) . ']' unless $col == $current_col; 




3402




 





 





 





 





 





 



     } 




3403




 





 





 





 





 





 



   




3404




 





 





 





 





 





 



     return $r1c1; 




3405




 





 





 





 





 





 



 } 




3406




 





 





 





 





 





 



   




3407




 





 





 





 





 





 



   




3408




 





 





 





 





 





 



 ############################################################################### 




3409




 





 





 





 





 





 



 # 




3410




 





 





 





 





 





 



 # _row_range_to_R1C1($string) 




3411




 





 





 





 





 





 



 # 




3412




 





 





 





 





 





 



 # Replace row ranges with R1C1 references. For example: 




3413




 





 





 





 





 





 



 # 




3414




 





 





 





 





 





 



 #   '=20:120' in cell (7, 0) becomes '=R[12]:R[112]' 




3415




 





 





 





 





 





 



 # 




3416




 





 





 





 





 





 



 # Returns: a string. A representation of a row cell reference in R1C1 notation. 




3417




 





 





 





 





 





 



   




3418




5





 





 




  
5
  




 





7



 # 




3419




 





 





 





 





 





 



 sub _row_range_to_R1C1 { 




3420




5





 





 





 





 





10



   




3421




5





 





 





 





 





12



     my $self =  shift; 




3422




 





 





 





 





 





 



   




3423




 





 





 





 





 





 



     my $current_row = $_[0] +1; # One based 




3424




 





 





 





 





 





 



     my $range       = $_[1]; 




3425




5





 





 





 





 





17



   




3426




 





 





 





 





 





 



   




3427




5





 





 





 





 





14



     # Split the range into 2 rows 




3428




 





 





 





 





 





 



     my ($row1, $row2) = split ':', $range; 




3429




10





 





 





 





 





23



   




3430




 





 





 





 





 





 



     for my $row ($row1, $row2) { 




3431




 





 





 





 





 





 



   




3432




 





 





 





 





 





 



         my $row_abs = $row =~ s/\$//; 




3433




10





 





 





 





 





17



   




3434




 





 





 





 





 





 



         # TODO Check row range 




3435




10




  
100
  




 





 





 





22



   




3436




4





 





 





 





 





6



         my $r1c1 = 'R'; 




3437




 





 





 





 





 





 



   




3438




 





 





 





 





 





 



         if ($row_abs) { 




3439




6




  
100
  




 





 





 





20



             $r1c1 .= $row; 




3440




 





 





 





 





 





 



         } 




3441




 





 





 





 





 





 



         else { 




3442




10





 





 





 





 





21



             $r1c1 .= '['.($row -$current_row) .']' unless $row == $current_row; 




3443




 





 





 





 





 





 



         } 




3444




 





 





 





 





 





 



   




3445




 





 





 





 





 





 



         $row = $r1c1; 




3446




5




  
100
  




 





 





 





12



     } 




 




3





 





 





 





 





11



   




3447




2





 





 





 





 





9



   




3448




 





 





 





 





 





 



     # A single row range such as 'R2:R2' is represented as 'R2' 




3449




 





 





 





 





 





 



     if ($row1 eq $row2) {return $row1        } 




3450




 





 





 





 





 





 



     else                {return "$row1:$row2"} 




3451




 





 





 





 





 





 



 } 




3452




 





 





 





 





 





 



   




3453




 





 





 





 





 





 



   




3454




 





 





 





 





 





 



 ############################################################################### 




3455




 





 





 





 





 





 



 # 




3456




 





 





 





 





 





 



 # _col_range_to_R1C1($string) 




3457




 





 





 





 





 





 



 # 




3458




 





 





 





 





 





 



 # Replace column ranges with R1C1 references. For example: 




3459




 





 





 





 





 





 



 # 




3460




 





 





 





 





 





 



 #   '=D:Z' in cell (6, 0) becomes '=C[3]:C[25]' 




3461




 





 





 





 





 





 



 # 




3462




 





 





 





 





 





 



 # Returns: a string. A representation of a col range reference in R1C1 notation. 




3463




6





 





 




  
6
  




 





11



 # 




3464




 





 





 





 





 





 



 sub _col_range_to_R1C1 { 




3465




6





 





 





 





 





13



   




3466




6





 





 





 





 





13



     my $self =  shift; 




3467




 





 





 





 





 





 



   




3468




 





 





 





 





 





 



     my $current_col = $_[0] +1; # One based 




3469




 





 





 





 





 





 



     my $range       = $_[1]; 




3470




6





 





 





 





 





21



   




3471




 





 





 





 





 





 



   




3472




 





 





 





 





 





 



     # Split the range into 2 cols 




3473




 





 





 





 





 





 



     my ($col_letter1, $col_letter2) = split ':', $range; 




3474




6





 





 





 





 





18



   




3475




 





 





 





 





 





 



     # Note $col is used as an alias. The original values are changed in place. 




3476




12





 





 





 





 





14



     # This should probably be refactored into a function. 




3477




12





 





 





 





 





24



     for my $col ($col_letter1, $col_letter2) { 




3478




 





 





 





 





 





 



   




3479




12





 





 





 





 





38



         my $col_abs; 




3480




 





 





 





 





 





 



         my $col_letter = $col; 




3481




 





 





 





 





 





 



   




3482




12





 





 





 





 





21



         (undef, $col, undef, $col_abs) = xl_cell_to_rowcol($col . '1'); 




3483




 





 





 





 





 





 



   




3484




12




  
 50
  




 





 





 





34



         # Switch from 0 based to 1 based. 




3485



  
0
  




 





 





 





 





0



         $col++; 




3486




0





 





 





 





 





0



   




3487




 





 





 





 





 





 



         if ($col > $self->{_xls_colmax}) { 




3488




 





 





 





 





 





 



             warn "$col_letter is not an Excel column label.\n"; # TODO Carp 




3489




12





 





 





 





 





19



             return $range; 




3490




 





 





 





 





 





 



         } 




3491




12




  
100
  




 





 





 





25



   




3492




4





 





 





 





 





8



         my $r1c1 = 'C'; 




3493




 





 





 





 





 





 



   




3494




 





 





 





 





 





 



         if ($col_abs) { 




3495




8




  
 50
  




 





 





 





24



             $r1c1 .= $col; 




3496




 





 





 





 





 





 



         } 




3497




12





 





 





 





 





23



         else { 




3498




 





 





 





 





 





 



             $r1c1 .= '['.($col -$current_col).']' unless $col == $current_col; 




3499




 





 





 





 





 





 



         } 




3500




 





 





 





 





 





 



         $col = $r1c1; 




3501




6




  
100
  




 





 





 





17



     } 




 




4





 





 





 





 





16



   




3502




2





 





 





 





 





8



   




3503




 





 





 





 





 





 



     # A single column range such as 'C3:C3' is represented as 'C3' 




3504




 





 





 





 





 





 



     if ($col_letter1 eq $col_letter2) {return $col_letter1               } 




3505




 





 





 





 





 





 



     else                              {return "$col_letter1:$col_letter2"} 




3506




 





 





 





 





 





 



 } 




3507




 





 





 





 





 





 



   




3508




 





 





 





 





 





 



   




3509




 





 





 





 





 





 



 ############################################################################### 




3510




 





 





 





 





 





 



 # 




3511




 





 





 





 





 





 



 # _write_worksheet_options() 




3512




 





 





 





 





 





 



 # 




3513




 





 





 





 





 





 



 # Write the  element if the worksheet options have changed. 




3514




73





 





 




  
73
  




 





139



 # 




3515




 





 





 





 





 





 



 sub _write_worksheet_options { 




3516




73





 





 





 





 





210



   




3517




 





 





 





 





 





 



     my $self = shift; 




3518




 





 





 





 





 





 



   




3519




73




  
100
  




 





 





 





227



     my ($options_changed, $print_changed, $setup_changed) = 




3520




 





 





 





 





 





 



        $self->_options_changed(); 




3521




31





 





 





 





 





122



   




3522




 





 





 





 





 





 



     return unless $options_changed; 




3523




 





 





 





 





 





 



   




3524




 





 





 





 





 





 



     $self->_write_xml_start_tag(2, 1, 0, 'WorksheetOptions', 




3525




 





 





 





 





 





 



                                          'xmlns', 




3526




 





 





 





 





 





 



                                          'urn:schemas-microsoft-com:' . 




3527




31




  
100
  




 





 





 





77



                                          'office:excel'); 




3528




14





 





 





 





 





40



   




3529




14





 





 





 





 





38



   




3530




14





 





 





 





 





35



     if ($setup_changed) { 




3531




 





 





 





 





 





 



         $self->_write_xml_start_tag(3, 1, 0, 'PageSetup'); 




3532




 





 





 





 





 





 



         $self->_store_setup(); 




3533




 





 





 





 





 





 



         $self->_write_xml_end_tag  (3, 1, 0, 'PageSetup'); 




3534




31




  
100
  




 





 





 





87



     } 




3535




 





 





 





 





 





 



   




3536




 





 





 





 





 





 



   




3537




31




  
100
  




 





 





 





66



     $self->_write_xml_element(3,1,0,'FitToPage') if $self->{_fit_page}; 




3538




12





 





 





 





 





39



   




3539




12





 





 





 





 





39



   




3540




12





 





 





 





 





30



     if ($print_changed) { 




3541




 





 





 





 





 





 



         $self->_write_xml_start_tag(3, 1, 0, 'Print'); 




3542




 





 





 





 





 





 



         $self->_store_print(); 




3543




 





 





 





 





 





 



         $self->_write_xml_end_tag  (3, 1, 0, 'Print'); 




3544




31




  
100
  




 





 





 





80



     } 




3545




 





 





 





 





 





 



   




3546




31




  
100
  




 





 





 





129



     $self->_write_xml_element(3,1,0,'DoNotDisplayGridlines') 




3547




 





 





 





 





 





 



                              if $self->{_screen_gridlines} == 0; 




3548




31





 





 





 





 





77



   




3549




 





 





 





 





 





 



     $self->_write_xml_element(3,1,0,'FilterOn') if $self->{_filter_on}; 




3550




 





 





 





 





 





 



   




3551




 





 





 





 





 





 



     $self->_write_xml_end_tag(2, 1, 0, 'WorksheetOptions'); 




3552




 





 





 





 





 





 



 } 




3553




 





 





 





 





 





 



   




3554




 





 





 





 





 





 



   




3555




 





 





 





 





 





 



 ############################################################################### 




3556




 





 





 





 





 





 



 # 




3557




 





 





 





 





 





 



 # _options_changed() 




3558




 





 





 





 





 





 



 # 




3559




 





 





 





 





 





 



 # Check to see if any of the worksheet options have changed. 




3560




73





 





 




  
73
  




 





149



 # 




3561




 





 





 





 





 





 



 sub _options_changed { 




3562




73





 





 





 





 





151



   




3563




73





 





 





 





 





123



     my $self = shift; 




3564




73





 





 





 





 





122



   




3565




 





 





 





 





 





 



     my $options_changed = 0; 




3566




 





 





 





 





 





 



     my $print_changed   = 0; 




3567




73




  
100
  



  
100
  




 





 





1660



     my $setup_changed   = 0; 




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




3568




 





 





 





 





 





 



   




3569




 





 





 





 





 





 



   




3570




 





 





 





 





 





 



     if ( 




3571




 





 





 





 





 





 



         $self->{_orientation}       == 0    or 




3572




 





 





 





 





 





 



         $self->{_hcenter}           == 1    or 




3573




 





 





 





 





 





 



         $self->{_vcenter}           == 1    or 




3574




 





 





 





 





 





 



         $self->{_header}            ne ''   or 




3575




 





 





 





 





 





 



         $self->{_footer}            ne ''   or 




3576




 





 





 





 





 





 



         $self->{_margin_head}       != 0.50 or 




3577




 





 





 





 





 





 



         $self->{_margin_foot}       != 0.50 or 




3578




 





 





 





 





 





 



         $self->{_margin_left}       != 0.75 or 




3579




 





 





 





 





 





 



         $self->{_margin_right}      != 0.75 or 




3580




 





 





 





 





 





 



         $self->{_margin_top}        != 1.00 or 




3581




14





 





 





 





 





25



         $self->{_margin_bottom}     != 1.00 




3582




 





 





 





 





 





 



        ) 




3583




 





 





 





 





 





 



     { 




3584




 





 





 





 





 





 



         $setup_changed = 1; 




3585




 





 





 





 





 





 



     } 




3586




73




  
100
  



  
 66
  




 





 





329



   




3587




2





 





 





 





 





4



   




3588




2





 





 





 





 





4



     # Special case for 1x1 page fit. 




3589




2





 





 





 





 





3



     if ($self->{_fit_width}  == 1 and $self->{_fit_height} == 1) { 




3590




 





 





 





 





 





 



         $options_changed     = 1; 




3591




 





 





 





 





 





 



         $self->{_fit_width}  = 0; 




3592




 





 





 





 





 





 



         $self->{_fit_height} = 0; 




3593




73




  
100
  



  
 66
  




 





 





1392



     } 




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
 33
  




 





 





 



   




 




 





 




  
 33
  




 





 





 



   




 




 





 




  
 33
  




 





 





 



   




 




 





 




  
 66
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




 




 





 




  
100
  




 





 





 



   




3594




 





 





 





 





 





 



   




3595




 





 





 





 





 





 



   




3596




 





 





 





 





 





 



     if ( 




3597




 





 





 





 





 





 



         $self->{_fit_width}          > 1    or 




3598




 





 





 





 





 





 



         $self->{_fit_height}         > 1    or 




3599




 





 





 





 





 





 



         $self->{_page_order}        == 1    or 




3600




 





 





 





 





 





 



         $self->{_black_white}       == 1    or 




3601




 





 





 





 





 





 



         $self->{_draft_quality}     == 1    or 




3602




 





 





 





 





 





 



         $self->{_print_comments}    == 1    or 




3603




 





 





 





 





 





 



         $self->{_paper_size}        != 0    or 




3604




66





 





 





 





 





290



         $self->{_print_scale}       != 100  or 




3605




63





 





 





 





 





208



         $self->{_print_gridlines}   == 1    or 




3606




 





 





 





 





 





 



         $self->{_print_headers}     == 1    or 




3607




 





 





 





 





 





 



         @{$self->{_hbreaks}}         > 0    or 




3608




12





 





 





 





 





19



         @{$self->{_vbreaks}}         > 0 




3609




 





 





 





 





 





 



        ) 




3610




 





 





 





 





 





 



     { 




3611




 





 





 





 





 





 



         $print_changed = 1; 




3612




73




  
100
  



  
100
  




 





 





310



     } 




3613




 





 





 





 





 





 



   




3614




 





 





 





 





 





 



   




3615




 





 





 





 





 





 



     if ( 




3616




 





 





 





 





 





 



         $print_changed or 




3617




26





 





 





 





 





39



         $setup_changed 




3618




 





 





 





 





 





 



        ) 




3619




 





 





 





 





 





 



     { 




3620




 





 





 





 





 





 



         $options_changed = 1; 




3621




73




  
100
  




 





 





 





203



     } 




3622




73




  
100
  




 





 





 





175



   




3623




 





 





 





 





 





 



   




3624




73





 





 





 





 





227



     $options_changed = 1 if $self->{_screen_gridlines} == 0; 




3625




 





 





 





 





 





 



     $options_changed = 1 if $self->{_filter_on}; 




3626




 





 





 





 





 





 



   




3627




 





 





 





 





 





 



     return ($options_changed, $print_changed, $setup_changed); 




3628




 





 





 





 





 





 



 } 




3629




 





 





 





 





 





 



   




3630




 





 





 





 





 





 



   




3631




 





 





 





 





 





 



 ############################################################################### 




3632




 





 





 





 





 





 



 # 




3633




 





 





 





 





 





 



 # _write_autofilter() 




3634




 





 





 





 





 





 



 # 




3635




 





 





 





 





 





 



 # Write the  element. 




3636




73





 





 




  
73
  




 





129



 # 




3637




 





 





 





 





 





 



 sub _write_autofilter { 




3638




73




  
100
  




 





 





 





200



   




3639




 





 





 





 





 





 



     my $self = shift; 




3640




 





 





 





 





 





 



   




3641




 





 





 





 





 





 



     return unless $self->{_autofilter}; 




3642




 





 





 





 





 





 



   




3643




2





 





 





 





 





13



     $self->_write_xml_start_tag(2, 1, 0, 'AutoFilter', 




3644




 





 





 





 





 





 



                                          'x:Range', 




3645




 





 





 





 





 





 



                                           $self->{_autofilter}, 




3646




 





 





 





 





 





 



                                          'xmlns', 




3647




 





 





 





 





 





 



                                          'urn:schemas-microsoft-com:' . 




3648




2





 





 





 





 





10



                                          'office:excel'); 




3649




 





 





 





 





 





 



   




3650




2





 





 





 





 





8



   




3651




 





 





 





 





 





 



     $self->_write_autofilter_column(); 




3652




 





 





 





 





 





 



   




3653




 





 





 





 





 





 



     $self->_write_xml_end_tag(2, 1, 0, 'AutoFilter'); 




3654




 





 





 





 





 





 



 } 




3655




 





 





 





 





 





 



   




3656




 





 





 





 





 





 



   




3657




 





 





 





 





 





 



 ############################################################################### 




3658




 





 





 





 





 





 



 # 




3659




 





 





 





 





 





 



 # _write_autofilter_column() 




3660




 





 





 





 





 





 



 # 




3661




 





 





 





 





 





 



 # Write the  and  elements. The format 




3662




 





 





 





 





 





 



 # of this is a little complicated. 




3663




2





 





 




  
2
  




 





6



 # 




3664




2





 





 





 





 





6



 sub _write_autofilter_column { 




3665




 





 





 





 





 





 



   




3666




 





 





 





 





 





 



     my $self     = shift; 




3667




2





 





 





 





 





5



     my @tokens; 




 




2





 





 





 





 





10



   




3668




 





 





 





 





 





 



   




3669




2





 





 





 





 





7



   




3670




 





 





 





 





 





 



     my ($col_first, $col_last) = @{$self->{_filter_range}}; 




3671




 





 





 





 





 





 



   




3672




2





 





 





 





 





10



     my $prev_col = $col_first -1; 




3673




 





 





 





 





 





 



   




3674




 





 





 





 





 





 



   




3675




8




  
100
  




 





 





 





30



     for my $col ($col_first .. $col_last) { 




3676




 





 





 





 





 





 



   




3677




4





 





 





 





 





11



         # Check for rows with defined filter criteria. 




3678




 





 





 





 





 





 



         if (defined $self->{_filter_cols}->{$col}) { 




3679




 





 





 





 





 





 



   




3680




4




  
100
  




 





 





 





16



             my   @attribs = ('AutoFilterColumn'); 




3681




4





 





 





 





 





23



   




3682




4





 





 





 





 





8



             # The col indices are relative to the first column 




3683




 





 





 





 





 





 



             push @attribs, "x:Index", $col +1 -$col_first if $col != $prev_col +1; 




3684




4





 





 





 





 





15



             push @attribs, "x:Type", 'Custom'; 




3685




 





 





 





 





 





 



             $prev_col = $col; 




3686




4





 





 





 





 





8



   




 




4





 





 





 





 





17



   




3687




 





 





 





 





 





 



             $self->_write_xml_start_tag(3, 1, 0, @attribs); 




3688




 





 





 





 





 





 



   




3689




 





 





 





 





 





 



             @tokens = @{$self->{_filter_cols}->{$col}}; 




3690




 





 





 





 





 





 



   




3691




 





 





 





 





 





 



   




3692




4




  
100
  




 





 





 





26



             # Excel allows either one or two filter conditions 




3693




2





 





 





 





 





9



   




3694




 





 





 





 





 





 



             # Single criterion. 




3695




2





 





 





 





 





26



             if (@tokens == 2) { 




3696




 





 





 





 





 





 



                 my ($op, $value) = @tokens; 




3697




 





 





 





 





 





 



   




3698




 





 





 





 





 





 



                 $self->_write_xml_element(4, 1, 0, 'AutoFilterCondition', 




3699




 





 





 





 





 





 



                                                    'x:Operator', 




3700




 





 





 





 





 





 



                                                     $op, 




3701




 





 





 





 





 





 



                                                    'x:Value', 




3702




 





 





 





 





 





 



                                                     $value); 




3703




2





 





 





 





 





9



             } 




3704




 





 





 





 





 





 



             # Double criteria, either 'And' or 'Or'. 




3705




 





 





 





 





 





 



             else { 




3706




2





 





 





 





 





11



                 my ($op1, $value1, $op2, $op3, $value3) = @tokens; 




3707




 





 





 





 





 





 



   




3708




2





 





 





 





 





11



                 #  or  




3709




 





 





 





 





 





 



                 $self->_write_xml_start_tag(4, 1, 0, $op2); 




3710




 





 





 





 





 





 



   




3711




 





 





 





 





 





 



                 $self->_write_xml_element(5, 1, 0, 'AutoFilterCondition', 




3712




 





 





 





 





 





 



                                                    'x:Operator', 




3713




 





 





 





 





 





 



                                                     $op1, 




3714




2





 





 





 





 





10



                                                    'x:Value', 




3715




 





 





 





 





 





 



                                                     $value1); 




3716




 





 





 





 





 





 



   




3717




 





 





 





 





 





 



                 $self->_write_xml_element(5, 1, 0, 'AutoFilterCondition', 




3718




 





 





 





 





 





 



                                                    'x:Operator', 




3719




 





 





 





 





 





 



                                                     $op3, 




3720




2





 





 





 





 





9



                                                    'x:Value', 




3721




 





 





 





 





 





 



                                                     $value3); 




3722




 





 





 





 





 





 



   




3723




 





 





 





 





 





 



                 $self->_write_xml_end_tag(4, 1, 0, $op2); 




3724




4





 





 





 





 





16



   




3725




 





 





 





 





 





 



             } 




3726




 





 





 





 





 





 



   




3727




 





 





 





 





 





 



             $self->_write_xml_end_tag(3, 1, 0, 'AutoFilterColumn'); 




3728




 





 





 





 





 





 



         } 




3729




 





 





 





 





 





 



     } 




3730




 





 





 





 





 





 



 } 




3731




 





 





 





 





 





 



   




3732




 





 





 





 





 





 



   




3733




 





 





 





 





 





 



 ############################################################################### 




3734




 





 





 





 





 





 



 # 




3735




 





 





 





 





 





 



 # _quote_sheetname() 




3736




 





 





 





 





 





 



 # 




3737




 





 





 





 





 





 



 # Sheetnames used in references should be quoted if they contain any spaces, 




3738




 





 





 





 





 





 



 # special characters or if the look like something that isn't a sheet name. 




3739




 





 





 





 





 





 



 # However, the rules are complex so for now we just quote anything that doesn't 




3740




 





 





 





 





 





 



 # look like a simple sheet name. 




3741




22





 





 




  
22
  




 





42



 # 




3742




22





 





 





 





 





39



 sub _quote_sheetname { 




3743




 





 





 





 





 





 



   




3744




 





 





 





 





 





 



     my $self      = shift; 




3745




22




  
100
  




 





 





 





102



     my $sheetname = $_[0]; 




3746




2





 





 





 





 





10



   




3747




 





 





 





 





 





 



   




3748




 





 





 





 





 





 



     if ($sheetname  =~ /^Sheet\d+$/) { 




3749




20





 





 





 





 





61



         return $sheetname; 




3750




 





 





 





 





 





 



     } 




3751




 





 





 





 





 





 



     else { 




3752




 





 





 





 





 





 



         return "'" . $sheetname . "'"; 




3753




 





 





 





 





 





 



     } 




3754




 





 





 





 





 





 



 } 




3755




 





 





 





 





 





 



   




3756




 





 





 





 





 





 



   




3757




 





 





 





 





 





 



   




3758




 





 





 





 





 





 



   




3759




 





 





 





 





 





 



 1; 




3760




 





 





 





 





 





 



   




3761




 





 





 





 





 





 



   




3762




 





 





 





 





 





 



 __END__
    return unless $self->{_dim_changed};



    $self->_write_xml_start_tag(2, 1, 0, 'Table',
                                         'ss:ExpandedColumnCount',
                                          $self->{_dim_colmax} +1,
                                         'ss:ExpandedRowCount',
                                          $self->{_dim_rowmax} +1,
                                       );
    $self->_store_colinfo();

    # Write stored  and  data
    $self->_write_xml_rows();

    $self->_write_xml_end_tag(2, 1, 0, 'Table');
}


###############################################################################
#
# _write_xml_rows()
#
# Write all  elements.
#
sub _write_xml_rows {

    my $self     = shift;

    my @attribs;
    my $previous = -1;
    my $span     = 0;

    for my $row (0 .. $self->{_dim_rowmax}) {

        next unless $self->{_set_rows}->{$row} or $self->{_table}->[$row];

        if (not $span) {
            my $height  = $self->{_set_rows}->{$row}->[0];
            my $format  = $self->{_set_rows}->{$row}->[1];
            my $hidden  = $self->{_set_rows}->{$row}->[2];
            my $autofit = $self->{_set_rows}->{$row}->[3] || 0;

            push @attribs, "ss:Index",         $row +1  if $row != $previous+1;
            push @attribs, "ss:AutoFitHeight", $autofit if $height or $autofit;
            push @attribs, "ss:Height",        $height  if $height;
            push @attribs, "ss:Hidden",        $hidden  if $hidden;
            push @attribs, "ss:StyleID",  "s" . $format if $format;

            # See ss:Index note in _store_colinfo
            $previous = $row;
        }

        # $previous = $row; # See ss:Index note in _store_colinfo
        local $^W = 0; # Ignore warnings about undefs in array ref comparison.

        # Check if the same attributes are shared over consecutive columns.
        if (not    $self->{_table}->[$row   ]           and
            not    $self->{_table}->[$row +1]           and
            exists $self->{_set_rows}->{$row   }        and
            exists $self->{_set_rows}->{$row +1}        and
            join("|", @{$self->{_set_rows}->{$row   }}) eq
            join("|", @{$self->{_set_rows}->{$row +1}}))
        {
            $span++;
            next;
        }

        push @attribs, "ss:Span", $span if $span;

        # Write  with  data or formatted  without  data.
        #
        if (my $row_ref = $self->{_table}->[$row]) {
            $self->_write_xml_start_tag(3, 1, 0, 'Row', @attribs);

            my $col           = 0;
            $self->{prev_col} = -1;

            for my $col_ref (@$row_ref) {
                $self->_write_xml_cell($row, $col) if $col_ref;
                $col++;
            }
            $self->_write_xml_end_tag(3, 1, 0, 'Row');
        }
        else {
            $self->_write_xml_element(3, 1, 0, 'Row', @attribs);
        }


        @attribs = ();
        $span    = 0;
    }
}


###############################################################################
#
# _write_xml_cell()
#
# Write a  element start tag.
#
sub _write_xml_cell {

    my $self      = shift;

    my $row         = $_[0];
    my $col         = $_[1];

    my $datatype    = $self->{_table}->[$row]->[$col]->[0];
    my $data        = $self->{_table}->[$row]->[$col]->[1];
    my $format      = $self->{_table}->[$row]->[$col]->[2];

    my @attribs;
    my $comment = '';


    ###########################################################################
    #
    # Only add the cell index if it doesn't follow another cell.
    #
    push @attribs, "ss:Index",   $col +1 if $col != $self->{prev_col} +1;


    ###########################################################################
    #
    # Check for merged cells.
    #
    if (exists $self->{_merge}->{$row}   and
        exists $self->{_merge}->{$row}->{$col})
    {
        my ($across, $down) = @{$self->{_merge}->{$row}->{$col}};

        push @attribs, "ss:MergeAcross", $across if $across;
        push @attribs, "ss:MergeDown",   $down   if $down;

        # Fill the merge range to ensure that it doesn't contain any data types.
        for my $m_row (0 .. $down) {
            for my $m_col (0 .. $across) {
                next if $m_row == 0 and $m_col == 0;
                $self->{_table}->[$row +$m_row ]->[$col +$m_col] = undef;
             }
        }

        # Fill the last col so that $self->{prev_col} is incremented correctly.
        my $type = $self->{_datatypes}->{Merge};
        $self->{_table}->[$row]->[$col +$across] = [$type];
    }


    ###########################################################################
    #
    # Check for cell comments.
    #
    if (exists $self->{_comment}->{$row}   and
        exists $self->{_comment}->{$row}->{$col})
    {
        $comment = $self->{_comment}->{$row}->{$col};
    }


    # Add the format attribute.
    push @attribs, "ss:StyleID", "s" . $format if $format;


    # Add to the attribute list for data types with additional options
    if ($datatype == $self->{_datatypes}->{Formula}) {
        my $array_range = $self->{_table}->[$row]->[$col]->[3];

        push @attribs, "ss:ArrayRange", $array_range if $array_range;
        push @attribs, "ss:Formula", $data;
    }

    if ($datatype == $self->{_datatypes}->{HRef}) {
        push @attribs, "ss:HRef", $data;

        my $tip = $self->{_table}->[$row]->[$col]->[4];
        push @attribs, "x:HRefScreenTip", $tip if defined $tip ;
    }


    ###########################################################################
    #
    # Write the  data for various data types.
    #

    # Write the Number data element
    if ($datatype == $self->{_datatypes}->{Number}) {
        $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs);
        $self->_write_xml_cell_data('Number', $data);
        $self->_write_xml_cell_comment($comment) if $comment;
        $self->_write_xml_end_tag(4, 1, 0, 'Cell');
    }


    # Write the String data element
    elsif ($datatype == $self->{_datatypes}->{String}) {
        my $html = $self->{_table}->[$row]->[$col]->[3];

        $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs);

        if ($html){$self->_write_xml_html_string($data);}
        else      {$self->_write_xml_cell_data('String', $data);}

        $self->_write_xml_cell_comment($comment) if $comment;
        $self->_write_xml_end_tag(4, 1, 0, 'Cell');
    }


    # Write the DateTime data element
    elsif ($datatype == $self->{_datatypes}->{DateTime}) {
        $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs);
        $self->_write_xml_cell_data('DateTime', $data);
        $self->_write_xml_cell_comment($comment) if $comment;
        $self->_write_xml_end_tag(4, 1, 0, 'Cell');
    }


    # Write an empty Data element for a formula data
    elsif ($datatype == $self->{_datatypes}->{Formula}) {
        if ($comment) {
            $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs);
            $self->_write_xml_cell_comment($comment);
            $self->_write_xml_end_tag(4, 1, 0, 'Cell');
        }
        else {
            $self->_write_xml_element(4, 1, 0, 'Cell', @attribs);
        }
    }


    # Write the HRef data element
    elsif ($datatype == $self->{_datatypes}->{HRef}) {

        $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs);

        my $data = $self->{_table}->[$row]->[$col]->[3];
        my $type;

        # Match DateTime string.
        if ($self->convert_date_time($data)) {
            $type = 'DateTime';
        }
        # Match integer with leading zero(s)
        elsif ($self->{_leading_zeros} and $data =~ /^0\d+$/) {
            $type = 'String';
        }
        # Match number.
        elsif ($data =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/) {
            $type = 'Number';
        }
        # Default to string.
        else {
            $type = 'String';
        }

        $self->_write_xml_cell_comment($comment) if $comment;
        $self->_write_xml_cell_data($type, $data);
        $self->_write_xml_end_tag(4, 1, 0, 'Cell');
    }


    # Write an empty Data element for a blank cell
    elsif ($datatype == $self->{_datatypes}->{Blank}) {
        if ($comment) {
            $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs);
            $self->_write_xml_cell_comment($comment);
            $self->_write_xml_end_tag(4, 1, 0, 'Cell');
        }
        else {
            $self->_write_xml_element(4, 1, 0, 'Cell', @attribs);
        }
    }

    # Write an empty Data element for an empty cell with a comment;
    elsif ($datatype == $self->{_datatypes}->{Comment}) {
        if ($comment) {
            $self->_write_xml_start_tag(4, 1, 0, 'Cell', @attribs);
            $self->_write_xml_cell_comment($comment);
            $self->_write_xml_end_tag(4, 1, 0, 'Cell');
        }
        else {
            $self->_write_xml_element(4, 1, 0, 'Cell', @attribs);
        }
    }

    # Ignore merge cells
    elsif ($datatype == $self->{_datatypes}->{Merge}) {
        # Do nothing.
    }


    $self->{prev_col} = $col;
    return;
}


###############################################################################
#
# _write_xml_cell_data()
#
# Write a generic Data element.
#
sub _write_xml_cell_data {

    my $self  = shift;

    my $datatype    = $_[0];
    my $data        = $_[1];

    $self->_write_xml_start_tag(5, 0, 0, 'Data', 'ss:Type', $datatype);

    if ($datatype eq 'Number') {$self->_write_xml_unencoded_content($data)}
    else                       {$self->_write_xml_content($data)          }

    $self->_write_xml_end_tag(0, 1, 0, 'Data');
}


###############################################################################
#
# _write_xml_html_string()
#
# Write a string Data element with html text.
#
sub _write_xml_html_string {

    my $self  = shift;
    my $data  = $_[0];

    $self->_write_xml_start_tag(5, 0, 0, 'ss:Data',
                                         'ss:Type',
                                         'String',
                                         'xmlns',
                                         'http://www.w3.org/TR/REC-html40'
                                         );

    $self->_write_xml_unencoded_content($data);

    $self->_write_xml_end_tag(0, 1, 0, 'ss:Data');
}


###############################################################################
#
# _write_xml_cell_comment()
#
# Write a cell Comment element.
#
sub _write_xml_cell_comment {

    my $self    = shift;
    my $comment = $_[0];

    $self->_write_xml_start_tag(5, 1, 0, 'Comment');

    $self->_write_xml_start_tag(6, 0, 0, 'ss:Data',
                                         'xmlns',
                                         'http://www.w3.org/TR/REC-html40'
                                         );

    $self->_write_xml_unencoded_content($comment);

    $self->_write_xml_end_tag(0, 1, 0, 'ss:Data');

    $self->_write_xml_end_tag(5, 1, 0, 'Comment');

}


###############################################################################
#
# _convert_formula($row, $col, $A1_formula)
#
# Converts a string containing an Excel formula in A1 notation into a string
# containing a formula in R1C1 notation.
#
# Instead of parsing the formula into its component parts, as Spreadsheet::
# WriteExcel::Formula does, we convert the A1 style references to R1C1
# references using regexes. This avoid the significant overhead of the
# Parse::RecDescent parser in S::WE::Formula. The main problem with this
# simplified approach is that there is potential for false matches. Such as
# B5 in the following formula (only the last is a valid match).
#
# "= "B5" & SheetB5!B5"
#
# The method used here is to replace potential false matches before converting
# the real A1 cell references and then substitute back the replaced data.
#
# Returns: a string. A representation of a formula in R1C1 notation.
#
sub _convert_formula {

    my $self = shift;

    my $row     = $_[0];
    my $col     = $_[1];
    my $formula = $_[2];

    my @strings;
    my @sheets;

    # Replace double quoted strings in formula. Strings may contain escaped
    # double quotes. Regex by merlyn.
    # See http://www.perlmonks.org/index.pl?node_id=330280
    #
    push @strings, $1 while $formula =~ s/("([^"]|"")*")/__swe__str__/; # "


    # Replace worksheet references in formula, such as Sheet1! or 'Sheet 1'!
    #
    push @sheets,  $1 while $formula =~ s/(('[^']+'|[\w\.]+)!)/__swe__sht__/;


    # Replace valid A1 cell references with R1C1 references. Cell ranges such
    # as B5:G10 are replaced in two passes.
    # The negative look-ahead is to prevent false matches such as =LOG10(LOG10)
    #
    $formula =~ s{(\$?[A-Z]{1,3}\$?\d+)(?![(\d])}
                 {$self->_A1_to_R1C1($row, $col, $1)}eg;


    # Replace row ranges such as 2:9 with R1C1 references.
    #
    $formula =~ s{(\$?\d+:\$?\d+)}
                 {$self->_row_range_to_R1C1($row, $1)}eg;


    # Replace column ranges such as A:Z with R1C1 references.
    # The negative look-behind is to prevent false column matches such
    # as "=A1:A1" => "=RC:RC"
    #
    # Note: there is a tricky parse due to the increased column limits that
    # isn't handled here. RC:RC is now a valid column range in A1 notation.
    # Fix later. Maybe.
    $formula =~ s{(?
                 {$self->_col_range_to_R1C1($col, $1)}eg;


    # Quoted A1 style alphanumeric sheetnames don't need quoting when
    # converted to R1C1 style. For example "='A1'!A1" becomes "=A1!RC" (without
    # the single quotes since A1 isn't a reserved name in R1C1 notation).
    s/^'([a-zA-Z0-9]+)'!$/$1!/ for @sheets;


    # However, sheet names that looks like R1C1 notation do have to be single
    # quoted. For example "='R4C'!A1"  becomes "='R4C'!RC".
    #
    s/^((R\d*|R\[\d+\])?(C\d*|C\[\d+\])?)!$/\'$1\'!/ for @sheets;


    # Replace temporarily escaped strings. Note that the s///s are performed in
    # reverse order to the substitutions above in case of nested strings.
    $formula =~ s/__swe__sht__/shift @sheets /e while @sheets;
    $formula =~ s/__swe__str__/shift @strings/e while @strings;

    return $formula;
}


###############################################################################
#
# _A1_to_R1C1($A1_string)
#
# Converts a string containing an Excel cell reference in A1 notation into a
# string containing a formula in R1C1 notation. For example:
#
#   '=G1' in cell (0, 0) becomes '=RC[6]'.
#
# The R1C1 value is relative to the row and column from which it is referred.
# With reference to the above example:
#
#   '=G1' in cell (1, 0) becomes '=R[-1]C[6]'.
#
# Returns: a string. A representation of a cell reference in R1C1 notation.
#
#
sub _A1_to_R1C1 {

    my $self =  shift;

    my $current_row = $_[0];
    my $current_col = $_[1];

    my ($row, $col, $row_abs, $col_abs) = $self->_cell_to_rowcol($_[2]);

    # Row part
    my $r1c1 = 'R';

    if ($row_abs) {
        $r1c1 .= $row +1; # 1 based
    }
    else {
        $r1c1 .= '[' . ($row -$current_row) . ']' unless $row == $current_row;
    }

    # Column part
    $r1c1 .= 'C';

    if ($col_abs) {
        $r1c1 .= $col +1; # 1 based
    }
    else {
        $r1c1 .= '[' . ($col -$current_col) . ']' unless $col == $current_col;
    }

    return $r1c1;
}


###############################################################################
#
# _row_range_to_R1C1($string)
#
# Replace row ranges with R1C1 references. For example:
#
#   '=20:120' in cell (7, 0) becomes '=R[12]:R[112]'
#
# Returns: a string. A representation of a row cell reference in R1C1 notation.

#
sub _row_range_to_R1C1 {

    my $self =  shift;

    my $current_row = $_[0] +1; # One based
    my $range       = $_[1];


    # Split the range into 2 rows
    my ($row1, $row2) = split ':', $range;

    for my $row ($row1, $row2) {

        my $row_abs = $row =~ s/\$//;

        # TODO Check row range

        my $r1c1 = 'R';

        if ($row_abs) {
            $r1c1 .= $row;
        }
        else {
            $r1c1 .= '['.($row -$current_row) .']' unless $row == $current_row;
        }

        $row = $r1c1;
    }

    # A single row range such as 'R2:R2' is represented as 'R2'
    if ($row1 eq $row2) {return $row1        }
    else                {return "$row1:$row2"}
}


###############################################################################
#
# _col_range_to_R1C1($string)
#
# Replace column ranges with R1C1 references. For example:
#
#   '=D:Z' in cell (6, 0) becomes '=C[3]:C[25]'
#
# Returns: a string. A representation of a col range reference in R1C1 notation.
#
sub _col_range_to_R1C1 {

    my $self =  shift;

    my $current_col = $_[0] +1; # One based
    my $range       = $_[1];


    # Split the range into 2 cols
    my ($col_letter1, $col_letter2) = split ':', $range;

    # Note $col is used as an alias. The original values are changed in place.
    # This should probably be refactored into a function.
    for my $col ($col_letter1, $col_letter2) {

        my $col_abs;
        my $col_letter = $col;

        (undef, $col, undef, $col_abs) = xl_cell_to_rowcol($col . '1');

        # Switch from 0 based to 1 based.
        $col++;

        if ($col > $self->{_xls_colmax}) {
            warn "$col_letter is not an Excel column label.\n"; # TODO Carp
            return $range;
        }

        my $r1c1 = 'C';

        if ($col_abs) {
            $r1c1 .= $col;
        }
        else {
            $r1c1 .= '['.($col -$current_col).']' unless $col == $current_col;
        }
        $col = $r1c1;
    }

    # A single column range such as 'C3:C3' is represented as 'C3'
    if ($col_letter1 eq $col_letter2) {return $col_letter1               }
    else                              {return "$col_letter1:$col_letter2"}
}


###############################################################################
#
# _write_worksheet_options()
#
# Write the  element if the worksheet options have changed.
#
sub _write_worksheet_options {

    my $self = shift;

    my ($options_changed, $print_changed, $setup_changed) =
       $self->_options_changed();

    return unless $options_changed;

    $self->_write_xml_start_tag(2, 1, 0, 'WorksheetOptions',
                                         'xmlns',
                                         'urn:schemas-microsoft-com:' .
                                         'office:excel');


    if ($setup_changed) {
        $self->_write_xml_start_tag(3, 1, 0, 'PageSetup');
        $self->_store_setup();
        $self->_write_xml_end_tag  (3, 1, 0, 'PageSetup');
    }


    $self->_write_xml_element(3,1,0,'FitToPage') if $self->{_fit_page};


    if ($print_changed) {
        $self->_write_xml_start_tag(3, 1, 0, 'Print');
        $self->_store_print();
        $self->_write_xml_end_tag  (3, 1, 0, 'Print');
    }

    $self->_write_xml_element(3,1,0,'DoNotDisplayGridlines')
                             if $self->{_screen_gridlines} == 0;

    $self->_write_xml_element(3,1,0,'FilterOn') if $self->{_filter_on};

    $self->_write_xml_end_tag(2, 1, 0, 'WorksheetOptions');
}


###############################################################################
#
# _options_changed()
#
# Check to see if any of the worksheet options have changed.
#
sub _options_changed {

    my $self = shift;

    my $options_changed = 0;
    my $print_changed   = 0;
    my $setup_changed   = 0;


    if (
        $self->{_orientation}       == 0    or
        $self->{_hcenter}           == 1    or
        $self->{_vcenter}           == 1    or
        $self->{_header}            ne ''   or
        $self->{_footer}            ne ''   or
        $self->{_margin_head}       != 0.50 or
        $self->{_margin_foot}       != 0.50 or
        $self->{_margin_left}       != 0.75 or
        $self->{_margin_right}      != 0.75 or
        $self->{_margin_top}        != 1.00 or
        $self->{_margin_bottom}     != 1.00
       )
    {
        $setup_changed = 1;
    }


    # Special case for 1x1 page fit.
    if ($self->{_fit_width}  == 1 and $self->{_fit_height} == 1) {
        $options_changed     = 1;
        $self->{_fit_width}  = 0;
        $self->{_fit_height} = 0;
    }


    if (
        $self->{_fit_width}          > 1    or
        $self->{_fit_height}         > 1    or
        $self->{_page_order}        == 1    or
        $self->{_black_white}       == 1    or
        $self->{_draft_quality}     == 1    or
        $self->{_print_comments}    == 1    or
        $self->{_paper_size}        != 0    or
        $self->{_print_scale}       != 100  or
        $self->{_print_gridlines}   == 1    or
        $self->{_print_headers}     == 1    or
        @{$self->{_hbreaks}}         > 0    or
        @{$self->{_vbreaks}}         > 0
       )
    {
        $print_changed = 1;
    }


    if (
        $print_changed or
        $setup_changed
       )
    {
        $options_changed = 1;
    }


    $options_changed = 1 if $self->{_screen_gridlines} == 0;
    $options_changed = 1 if $self->{_filter_on};

    return ($options_changed, $print_changed, $setup_changed);
}


###############################################################################
#
# _write_autofilter()
#
# Write the  element.
#
sub _write_autofilter {

    my $self = shift;

    return unless $self->{_autofilter};

    $self->_write_xml_start_tag(2, 1, 0, 'AutoFilter',
                                         'x:Range',
                                          $self->{_autofilter},
                                         'xmlns',
                                         'urn:schemas-microsoft-com:' .
                                         'office:excel');


    $self->_write_autofilter_column();

    $self->_write_xml_end_tag(2, 1, 0, 'AutoFilter');
}


###############################################################################
#
# _write_autofilter_column()
#
# Write the  and  elements. The format
# of this is a little complicated.
#
sub _write_autofilter_column {

    my $self     = shift;
    my @tokens;


    my ($col_first, $col_last) = @{$self->{_filter_range}};

    my $prev_col = $col_first -1;


    for my $col ($col_first .. $col_last) {

        # Check for rows with defined filter criteria.
        if (defined $self->{_filter_cols}->{$col}) {

            my   @attribs = ('AutoFilterColumn');

            # The col indices are relative to the first column
            push @attribs, "x:Index", $col +1 -$col_first if $col != $prev_col +1;
            push @attribs, "x:Type", 'Custom';
            $prev_col = $col;

            $self->_write_xml_start_tag(3, 1, 0, @attribs);

            @tokens = @{$self->{_filter_cols}->{$col}};


            # Excel allows either one or two filter conditions

            # Single criterion.
            if (@tokens == 2) {
                my ($op, $value) = @tokens;

                $self->_write_xml_element(4, 1, 0, 'AutoFilterCondition',
                                                   'x:Operator',
                                                    $op,
                                                   'x:Value',
                                                    $value);
            }
            # Double criteria, either 'And' or 'Or'.
            else {
                my ($op1, $value1, $op2, $op3, $value3) = @tokens;

                #  or
                $self->_write_xml_start_tag(4, 1, 0, $op2);

                $self->_write_xml_element(5, 1, 0, 'AutoFilterCondition',
                                                   'x:Operator',
                                                    $op1,
                                                   'x:Value',
                                                    $value1);

                $self->_write_xml_element(5, 1, 0, 'AutoFilterCondition',
                                                   'x:Operator',
                                                    $op3,
                                                   'x:Value',
                                                    $value3);

                $self->_write_xml_end_tag(4, 1, 0, $op2);

            }

            $self->_write_xml_end_tag(3, 1, 0, 'AutoFilterColumn');
        }
    }
}


###############################################################################
#
# _quote_sheetname()
#
# Sheetnames used in references should be quoted if they contain any spaces,
# special characters or if the look like something that isn't a sheet name.
# However, the rules are complex so for now we just quote anything that doesn't
# look like a simple sheet name.
#
sub _quote_sheetname {

    my $self      = shift;
    my $sheetname = $_[0];


    if ($sheetname  =~ /^Sheet\d+$/) {
        return $sheetname;
    }
    else {
        return "'" . $sheetname . "'";
    }
}




1;


__END__