File Coverage

blib/lib/HTML/FormatNroff/Table/Nroff.pm

Criterion	Covered	Total	%
statement	79	94	84.0
branch	14	24	58.3
condition	3	6	50.0
subroutine	11	12	91.6
pod	5	6	83.3
total	112	142	78.8

package HTML::FormatNroff::Table::Nroff;

use 5.004;
use strict;
use warnings;
use parent 'HTML::FormatNroff::Table';

use HTML::FormatNroff::Table::Row::Nroff;
use Carp;

sub rnd {
    my ($num) = @_;

    my $result = int $num;
    my $frac   = $num - $result;

    print STDERR "frac $frac\n";
    if ( $frac > .5 ) {
        $result++;
    }
    return $result;
}

my $_width_used = 0;

sub calculate_width {
    my ( $self, $total, $num ) = @_;

    my $page_width = $self->{'page_width'};
    unless ($page_width) { $page_width = 6; }

    my $width = $page_width;

    my $table_width = $self->{'width'};
    if ($table_width) {
        $table_width =~ s/([0-9]*)%/$1/;

        $width = $page_width * $table_width / 100;
    }

    my $start = $num * $width / $total;

    if ( $start < 1 ) {

        # try to make this column as big as the biggest string
        $start = int $num / 12;
    }

    if ( ( $_width_used + $start ) <= $width ) {
        $_width_used += $start;
        return $start;
    }

    return $width - $_width_used;
}

sub attributes {
    my ($self) = @_;

    my @attributes;

    my $tab_attr = 'tab(' . $self->{'tab'} . ')';
    push( @attributes, $tab_attr );

    unless ( $self->{'width'} and $self->{'width'} ne '100%' ) {
        push( @attributes, 'expand' );
    }

    if ( $self->{'align'} eq 'center' ) {
        push( @attributes, $self->{'align'} );
    }
    return (@attributes);
}

sub output {
    my ($self) = @_;

    # if the table is empty, forget it.
    unless ( defined $self->{"current_row"} ) {
        $self->{'formatter'}->out("\n.sp\n");
        return;
    }

    # start the table
    $self->{'formatter'}->out("\n.in 0\n.sp\n.TS\n");

    # put out attributes, if any
    my $attribute;
    my @atts = $self->attributes();
    my $cnt  = @atts;

    foreach $attribute ( $self->attributes() ) {
        $self->{'formatter'}->out("$attribute");
        if ( $cnt > 1 ) {
            $self->{'formatter'}->out(", ");
        }
        $cnt--;
    }
    $self->{'formatter'}->out(";\n");

    # put out data
    my @row_widths;
    $self->row_iterator( 'widths', \@row_widths );

    my $arrayref;
    my @maxvals;

    #    my @sum;

    foreach $arrayref (@row_widths) {
        my $i;

        #	print STDERR "ROW\n";

        for $i ( 0 .. $#{$arrayref} ) {

            #	    print STDERR "$i -> ", $$arrayref[$i], " max is ",
            #	    $maxvals[$i], "\n";

            unless (( defined $maxvals[$i] )
                and ( $maxvals[$i] > $$arrayref[$i] ) ) {
                $maxvals[$i] = $$arrayref[$i];
            }

            #	    $sum[$i] += $$arrayref[$i];
        }
    }

    my $total = 0;
    map { $total += $_; } @maxvals;

    $_width_used = 0;
    my @widths =
      map { sprintf( "%.2f", $self->calculate_width( $total, $_ ) ); }
      @maxvals;

    # put out format
    $self->row_iterator( 'output_format', $self->{'formatter'}, @widths );

    # put out data
    $self->row_iterator( 'output', $self->{'formatter'}, $self->{'tab'} );

    # end the table
    $self->{'formatter'}->out(".TE\n");
}

sub add_row {
    my ( $self, %attr ) = @_;

    if ( defined( $self->{"current_row"} ) ) {
        push( @{ $self->{'previous_rows'} }, $self->{"current_row"} );
    }
    $self->{"current_row"} = HTML::FormatNroff::Table::Row::Nroff->new(%attr);
}

sub row_iterator {
    my ( $self, $method, @args ) = @_;

    my $row;
    foreach $row ( @{ $self->{'previous_rows'} } ) {
        $row->$method( 0, @args );
    }

    if ( defined $self->{"current_row"} ) {
        $self->{"current_row"}->$method( 1, @args );
    }
}

1;
__END__