HTML::FormatTableCellNroff - Format HTML Table entry

FormatNroff documentation Contained in the FormatNroff distribution.

Index

Code Index:

NAME

Top

HTML::FormatTableCellNroff - Format HTML Table entry

SYNOPSIS

Top

 require HTML::FormatTableCellNroff;
 $cell = new HTML::FormatTableCellNroff(%attr);

DESCRIPTION

Top

The HTML::FormatTableCellNroff is used to record information about a table entry and produce format information about the entry. It is used by FormatTableNroff to process HTML tables.

METHODS

Top

$nroff_cell->format_str($width);

Produce a tbl format specification for the current cell, consisting of an alignment character, width (in inches), and any subsequent colspan specifications. An example is "cw(2i)".

$nroff_cell->output($formatter);

 Output a table cell entry using the formatter defined by $formatter.
 The nroff 
 T{
 .ad 1
 .fi
     contents
 .nf
 }T 
 construct is used to format text inside a cell. Bold is used for a table
 header.

SEE ALSO

Top

HTML::FormatNroff, HTML::FormatTableCell, HTML::FormatTableRow, HTML::FormatTableRowNroff

COPYRIGHT

Top

Copyright (c) 1997 Frederick Hirsch. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Top

Frederick Hirsch <f.hirsch@opengroup.org>

FormatNroff documentation Contained in the FormatNroff distribution. 
package HTML::FormatTableCellNroff;


require 5.004;

require HTML::FormatTableCell;
@ISA=qw(HTML::FormatTableCell);

use strict;
use Carp;

my $_max_tbl_cell = 300;
	
my %_formats = (
    left => "l",
    center => "c",
    right => "r",
);


sub format_str {
    my($self, $width) = @_;

    my $result = $_formats{ $self->{'align'} };
    if($width) { $result .= "w(" . $width . "i)"; }
    my $cnt = $self->{'colspan'};
    while($cnt > 1) {
	$result .= " s";	
	$cnt--;
    }
    return $result;
}


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

    $formatter->out("T{\n.ad l\n.fi\n");
    if($self->{'header'} eq 'header') {
	$formatter->font_start('B');
    }
    my $text = $self->{'text'};
    $text =~ s/ +/ /;
# need to split to avoid buffer overrun in tbl, using $_max_tbl_cell as magic number
    my $len = length($text);
    while($len > 0) {
	if($len < $_max_tbl_cell) {
	    $formatter->out($text);	
	    $len = 0;
	} else {
	    my $place = index($text, " ", $_max_tbl_cell/2);
	    $formatter->out(substr($text, 0, $place));
	    $formatter->out("\n");
	    $text = substr($text, $place + 1);
	    $len = length($text);
	}
    }

    if($self->{'header'} eq 'header') {
	$formatter->font_end();
    }
    $formatter->out("\n.nf\nT}");
}


1;