File Coverage

blib/lib/HTML/TextToHTML.pm

Criterion	Covered	Total	%
statement	1550	1803	85.9
branch	515	688	74.8
condition	270	387	69.7
subroutine	66	69	95.6
pod	64	64	100.0
total	2465	3011	81.8

package HTML::TextToHTML;
{
  $HTML::TextToHTML::VERSION = '2.5201';
}
use 5.8.1;
use strict;
#------------------------------------------------------------------------

=head1 NAME

HTML::TextToHTML - convert plain text file to HTML.

=head1 VERSION

version 2.5201

=head1 SYNOPSIS

  From the command line:

    txt2html I

  From Scripts:

    use HTML::TextToHTML;

    # create a new object
    my $conv = new HTML::TextToHTML();

    # convert a file
    $conv->txt2html(infile=>[$text_file],
                     outfile=>$html_file,
		     title=>"Wonderful Things",
		     mail=>1,
      ]);

    # reset arguments
    $conv->args(infile=>[], mail=>0);

    # convert a string
    $newstring = $conv->process_chunk($mystring)

=head1 DESCRIPTION

HTML::TextToHTML converts plain text files to HTML. The txt2html script
uses this module to do the same from the command-line.

It supports headings, tables, lists, simple character markup, and
hyperlinking, and is highly customizable. It recognizes some of the
apparent structure of the source document (mostly whitespace and
typographic layout), and attempts to mark that structure explicitly
using HTML. The purpose for this tool is to provide an easier way of
converting existing text documents to HTML format, giving something nicer
than just whapping the text into a big PRE block.

=head2 History

The original txt2html script was written by Seth Golub (see
http://www.aigeek.com/txt2html/), and converted to a perl module by
Kathryn Andersen (see http://www.katspace.com/tools/text_to_html/) and
made into a sourceforge project by Sun Tong (see
http://sourceforge.net/projects/txt2html/).  Earlier versions of the
HTML::TextToHTML module called the included script texthyper so as not
to clash with the original txt2html script, but now the projects have
all been merged.

=head1 OPTIONS

All arguments can be set when the object is created, and further options
can be set when calling the actual txt2html method. Arguments
to methods can take a hash of arguments.

Note that all option-names must match exactly -- no abbreviations are
allowed.  The argument-keys are expected to have values matching those
required for that argument -- whether that be a boolean, a string, a
reference to an array or a reference to a hash.  These will replace any
value for that argument that might have been there before.

=over

=item append_file

    append_file=>I

If you want something appended by default, put the filename here.
The appended text will not be processed at all, so make sure it's
plain text or correct HTML.  i.e. do not have things like:
    Mary Andersen [e-mail]
but instead, have:
    Mary Andersen <[e-mail]>

(default: nothing)

=item append_head

    append_head=>I

If you want something appended to the head by default, put the filename here.
The appended text will not be processed at all, so make sure it's
plain text or correct HTML.  i.e. do not have things like:
    Mary Andersen [e-mail]
but instead, have:
    Mary Andersen <[e-mail]>

(default: nothing)

=item body_deco

    body_deco=>I

Body decoration string: a string to be added to the BODY tag so that
one can set attributes to the BODY (such as class, style, bgcolor etc)
For example, "class='withimage'".

=item bold_delimiter

    bold_delimiter=>I

This defines what character (or string) is taken to be the delimiter of
text which is to be interpreted as bold (that is, to be given a STRONG
tag).  If this is empty, then no bolding of text will be done.
(default: #)

=item bullets

    bullets=>I

This defines what single characters are taken to be "bullet" characters
for unordered lists.  Note that because this is used as a character
class, if you use '-' it must come first.
(default:-=o*\267)

=item bullets_ordered

    bullets_ordered=>I

This defines what single characters are taken to be "bullet" placeholder
characters for ordered lists.  Ordered lists are normally marked by
a number or letter followed by '.' or ')' or ']' or ':'.  If an ordered
bullet is used, then it simply indicates that this is an ordered list,
without giving explicit numbers.

Note that because this is used as a character class, if you use '-' it
must come first.
(default:nothing)

=item caps_tag

    caps_tag=>I

Tag to put around all-caps lines
(default: STRONG)
If an empty tag is given, then no tag will be put around all-caps lines.

=item custom_heading_regexp

    custom_heading_regexp=>\@custom_headings

Add patterns for headings.  Header levels are assigned by regexp in the
order seen in the input text. When a line matches a custom header
regexp, it is tagged as a header.  If it's the first time that
particular regexp has matched, the next available header level is
associated with it and applied to the line.  Any later matches of that
regexp will use the same header level.  Therefore, if you want to match
numbered header lines, you could use something like this:

    my @custom_headings = ('^ *\d+\. \w+',
			   '^ *\d+\.\d+\. \w+',
			   '^ *\d+\.\d+\.\d+\. \w+');

    ...
	custom_heading_regexp=>\@custom_headings,
    ...

Then lines like

                " 1. Examples "
                " 1.1. Things"
            and " 4.2.5. Cold Fusion"

Would be marked as H1, H2, and H3 (assuming they were found in that
order, and that no other header styles were encountered).
If you prefer that the first one specified always be H1, the second
always be H2, the third H3, etc, then use the "explicit_headings"
option.

This expects a reference to an array of strings.

(default: none)

=item default_link_dict

    default_link_dict=>I

The name of the default "user" link dictionary.
(default: "$ENV{'HOME'}/.txt2html.dict" -- this is the same as for
the txt2html script.  If there is no $ENV{HOME} then it is just '.txt2html.dict')

=item demoronize

    demoronize=>1

Convert Microsoft-generated character codes that are non-ISO codes into
something more reasonable.
(default:true)

=item doctype

    doctype=>I

This gets put in the DOCTYPE field at the top of the document, unless it's
empty.

Default :
'-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd'

If B is true, the contents of this is ignored, unless it's
empty, in which case no DOCTYPE declaration is output.

=item eight_bit_clean

    eight_bit_clean=>1

If false, convert Latin-1 characters to HTML entities.
If true, this conversion is disabled; also "demoronize" is set to
false, since this also changes 8-bit characters.
(default: false)

=item escape_HTML_chars

    escape_HTML_chars=>1

turn & E E into & > <
(default: true)

=item explicit_headings

    explicit_headings=>1

Don't try to find any headings except the ones specified in the
--custom_heading_regexp option.
Also, the custom headings will not be assigned levels in the order they
are encountered in the document, but in the order they are specified on
the custom_heading_regexp option.
(default: false)

=item extract

    extract=>1

Extract Mode; don't put HTML headers or footers on the result, just
the plain HTML (thus making the result suitable for inserting into
another document (or as part of the output of a CGI script).
(default: false)

=item hrule_min

    hrule_min=>I

Min number of ---s for an HRule.
(default: 4)

=item indent_width

    indent_width=>I

Indents this many spaces for each level of a list.
(default: 2)

=item indent_par_break

    indent_par_break=>1

Treat paragraphs marked solely by indents as breaks with indents.
That is, instead of taking a three-space indent as a new paragraph,
put in a  and three non-breaking spaces instead.
(see also --preserve_indent)
(default: false)

=item infile

    infile=>\@my_files
    infile=>['chapter1.txt', 'chapter2.txt']

The name of the input file(s).
This expects a reference to an array of filenames.

The special filename '-' designates STDIN.

See also L and L.

(default:-)

=item inhandle

    inhandle=>\@my_handles
    inhandle=>[\*MYINHANDLE, \*STDIN]

An array of input filehandles; use this instead of
L or L to use a filehandle or filehandles
as input.

=item instring

    instring=>\@my_strings
    instring=>[$string1, $string2]

An array of input strings; use this instead of
L or L to use a string or strings
as input.

=item italic_delimiter

    italic_delimiter=>I

This defines what character (or string) is taken to be the delimiter of
text which is to be interpreted as italic (that is, to be given a EM
tag).  If this is empty, no italicising of text will be done.
(default: *)

=item underline_delimiter

    underline_delimiter=>I

This defines what character (or string) is taken to be the delimiter of
text which is to be interpreted as underlined (that is, to be given a U
tag).  If this is empty, no underlining of text will be done.
(default: _)

=item links_dictionaries

    links_dictionaries=>\@my_link_dicts
    links_dictionaries=>['url_links.dict', 'format_links.dict']

File(s) to use as a link-dictionary.  There can be more than one of
these.  These are in addition to the Global Link Dictionary and the User
Link Dictionary.  This expects a reference to an array of filenames.

=item link_only

    link_only=>1

Do no escaping or marking up at all, except for processing the links
dictionary file and applying it.  This is useful if you want to use
the linking feature on an HTML document.  If the HTML is a
complete document (includes HTML,HEAD,BODY tags, etc) then you'll
probably want to use the --extract option also.
(default: false)

=item lower_case_tags

     lower_case_tags=>1

Force all tags to be in lower-case.

=item mailmode

    mailmode=>1

Deal with mail headers & quoted text.  The mail header paragraph is
given the class 'mail_header', and mail-quoted text is given the class
'quote_mail'.
(default: false)

=item make_anchors

    make_anchors=>0

Should we try to make anchors in headings?
(default: true)

=item make_links

    make_links=>0

Should we try to build links?  If this is false, then the links
dictionaries are not consulted and only structural text-to-HTML
conversion is done.  (default: true)

=item make_tables

    make_tables=>1

Should we try to build tables?  If true, spots tables and marks them up
appropriately.  See L for information on how tables
should be formatted.

This overrides the detection of lists; if something looks like a table,
it is taken as a table, and list-checking is not done for that
paragraph.

(default: false)

=item min_caps_length

    min_caps_length=>I

min sequential CAPS for an all-caps line
(default: 3)

=item outfile

    outfile=>I

The name of the output file.  If it is "-" then the output goes
to Standard Output.
(default: - )

=item outhandle

The output filehandle; if this is given then the output goes
to this filehandle instead of to the file given in L.

=item par_indent

    par_indent=>I

Minumum number of spaces indented in first lines of paragraphs.
  Only used when there's no blank line
preceding the new paragraph.
(default: 2)

=item preformat_trigger_lines

    preformat_trigger_lines=>I

How many lines of preformatted-looking text are needed to switch to
          <= 0 : Preformat entire document
             1 : one line triggers
          >= 2 : two lines trigger

(default: 2)

=item endpreformat_trigger_lines

    endpreformat_trigger_lines=>I

How many lines of unpreformatted-looking text are needed to switch from
           <= 0 : Never preformat within document
              1 : one line triggers
           >= 2 : two lines trigger
(default: 2)

NOTE for preformat_trigger_lines and endpreformat_trigger_lines:
A zero takes precedence.  If one is zero, the other is ignored.
If both are zero, entire document is preformatted.

=item preformat_start_marker

    preformat_start_marker=>I

What flags the start of a preformatted section if --use_preformat_marker
is true.

(default: "^(:?(:?<)|<)PRE(:?(:?>)|>)\$")

=item preformat_end_marker

    preformat_end_marker=>I

What flags the end of a preformatted section if --use_preformat_marker
is true.

(default: "^(:?(:?<)|<)/PRE(:?(:?>)|>)\$")

=item preformat_whitespace_min

    preformat_whitespace_min=>I

Minimum number of consecutive whitespace characters to trigger
normal preformatting.
NOTE: Tabs are expanded to spaces before this check is made.
That means if B is 8 and this is 5, then one tab may be
expanded to 8 spaces, which is enough to trigger preformatting.
(default: 5)

=item prepend_file

    prepend_file=>I

If you want something prepended to the processed body text, put the
filename here.  The prepended text will not be processed at all, so make
sure it's plain text or correct HTML.

(default: nothing)

=item preserve_indent

    preserve_indent=>1

Preserve the first-line indentation of paragraphs marked with indents
by replacing the spaces of the first line with non-breaking spaces.
(default: false)

=item short_line_length

    short_line_length=>I

Lines this short (or shorter) must be intentionally broken and are kept
that short.
(default: 40)

=item style_url

    style_url=>I

This gives the URL of a stylesheet; a LINK tag will be added to the
output.

=item tab_width

    tab_width=>I

How many spaces equal a tab?
(default: 8)

=item table_type

    table_type=>{ ALIGN=>0, PGSQL=>0, BORDER=>1, DELIM=>0 }

This determines which types of tables will be recognised when "make_tables"
is true.  The possible types are ALIGN, PGSQL, BORDER and DELIM.
(default: all types are true)

=item title

    title=>I </td>
</tr>

<tr>
<td  class="h" >
<a name="529">529</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="530">530</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> You can specify a title.  Otherwise it will use a blank one. </td>
</tr>

<tr>
<td  class="h" >
<a name="531">531</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: nothing) </td>
</tr>

<tr>
<td  class="h" >
<a name="532">532</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="533">533</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item titlefirst </td>
</tr>

<tr>
<td  class="h" >
<a name="534">534</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="535">535</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     titlefirst=>1 </td>
</tr>

<tr>
<td  class="h" >
<a name="536">536</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="537">537</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Use the first non-blank line as the title. (See also "title") </td>
</tr>

<tr>
<td  class="h" >
<a name="538">538</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="539">539</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item underline_length_tolerance </td>
</tr>

<tr>
<td  class="h" >
<a name="540">540</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="541">541</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     underline_length_tolerance=>I<n> </td>
</tr>

<tr>
<td  class="h" >
<a name="542">542</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="543">543</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> How much longer or shorter can underlines be and still be underlines? </td>
</tr>

<tr>
<td  class="h" >
<a name="544">544</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: 1) </td>
</tr>

<tr>
<td  class="h" >
<a name="545">545</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="546">546</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item underline_offset_tolerance </td>
</tr>

<tr>
<td  class="h" >
<a name="547">547</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="548">548</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     underline_offset_tolerance=>I<n> </td>
</tr>

<tr>
<td  class="h" >
<a name="549">549</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="550">550</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> How far offset can underlines be and still be underlines? </td>
</tr>

<tr>
<td  class="h" >
<a name="551">551</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: 1) </td>
</tr>

<tr>
<td  class="h" >
<a name="552">552</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="553">553</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item unhyphenation </td>
</tr>

<tr>
<td  class="h" >
<a name="554">554</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="555">555</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     unhyphenation=>0 </td>
</tr>

<tr>
<td  class="h" >
<a name="556">556</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="557">557</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Enables unhyphenation of text. </td>
</tr>

<tr>
<td  class="h" >
<a name="558">558</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: true) </td>
</tr>

<tr>
<td  class="h" >
<a name="559">559</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="560">560</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item use_mosaic_header </td>
</tr>

<tr>
<td  class="h" >
<a name="561">561</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="562">562</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use_mosaic_header=>1 </td>
</tr>

<tr>
<td  class="h" >
<a name="563">563</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="564">564</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Use this option if you want to force the heading styles to match what Mosaic </td>
</tr>

<tr>
<td  class="h" >
<a name="565">565</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> outputs.  (Underlined with "***"s is H1, </td>
</tr>

<tr>
<td  class="h" >
<a name="566">566</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> with "==="s is H2, with "+++" is H3, with "---" is H4, with "~~~" is H5 </td>
</tr>

<tr>
<td  class="h" >
<a name="567">567</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> and with "..." is H6) </td>
</tr>

<tr>
<td  class="h" >
<a name="568">568</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This was the behavior of txt2html up to version 1.10. </td>
</tr>

<tr>
<td  class="h" >
<a name="569">569</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: false) </td>
</tr>

<tr>
<td  class="h" >
<a name="570">570</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="571">571</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item use_preformat_marker </td>
</tr>

<tr>
<td  class="h" >
<a name="572">572</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="573">573</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use_preformat_marker=>1 </td>
</tr>

<tr>
<td  class="h" >
<a name="574">574</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="575">575</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Turn on preformatting when encountering "<PRE>" on a line by itself, and turn </td>
</tr>

<tr>
<td  class="h" >
<a name="576">576</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> it off when there's a line containing only "</PRE>". </td>
</tr>

<tr>
<td  class="h" >
<a name="577">577</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> When such preformatted text is detected, the PRE tag will be given the </td>
</tr>

<tr>
<td  class="h" >
<a name="578">578</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> class 'quote_explicit'. </td>
</tr>

<tr>
<td  class="h" >
<a name="579">579</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: off) </td>
</tr>

<tr>
<td  class="h" >
<a name="580">580</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="581">581</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item xhtml </td>
</tr>

<tr>
<td  class="h" >
<a name="582">582</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="583">583</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     xhtml=>1 </td>
</tr>

<tr>
<td  class="h" >
<a name="584">584</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="585">585</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Try to make the output conform to the XHTML standard, including </td>
</tr>

<tr>
<td  class="h" >
<a name="586">586</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> closing all open tags and marking empty tags correctly.  This </td>
</tr>

<tr>
<td  class="h" >
<a name="587">587</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> turns on --lower_case_tags and overrides the --doctype option. </td>
</tr>

<tr>
<td  class="h" >
<a name="588">588</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Note that if you add a header or a footer file, it is up to you </td>
</tr>

<tr>
<td  class="h" >
<a name="589">589</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to make it conform; the header/footer isn't touched by this. </td>
</tr>

<tr>
<td  class="h" >
<a name="590">590</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Likewise, if you make link-dictionary entries that break XHTML, </td>
</tr>

<tr>
<td  class="h" >
<a name="591">591</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> then this won't fix them, except to the degree of putting all tags </td>
</tr>

<tr>
<td  class="h" >
<a name="592">592</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> into lower-case. </td>
</tr>

<tr>
<td  class="h" >
<a name="593">593</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="594">594</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: true) </td>
</tr>

<tr>
<td  class="h" >
<a name="595">595</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="596">596</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="597">597</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="598">598</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 DEBUGGING </td>
</tr>

<tr>
<td  class="h" >
<a name="599">599</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="600">600</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> There are global variables for setting types and levels </td>
</tr>

<tr>
<td  class="h" >
<a name="601">601</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> of debugging.  These should only be used by developers. </td>
</tr>

<tr>
<td  class="h" >
<a name="602">602</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="603">603</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over </td>
</tr>

<tr>
<td  class="h" >
<a name="604">604</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="605">605</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $HTML::TextToHTML::Debug </td>
</tr>

<tr>
<td  class="h" >
<a name="606">606</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="607">607</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $HTML::TextToHTML::Debug = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="608">608</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      </td>
</tr>

<tr>
<td  class="h" >
<a name="609">609</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Enable copious debugging output. </td>
</tr>

<tr>
<td  class="h" >
<a name="610">610</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: false) </td>
</tr>

<tr>
<td  class="h" >
<a name="611">611</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="612">612</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $HTML::TextToHTML::DictDebug </td>
</tr>

<tr>
<td  class="h" >
<a name="613">613</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="614">614</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $HTML::TextToHTML::DictDebug = I<n>; </td>
</tr>

<tr>
<td  class="h" >
<a name="615">615</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="616">616</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Debug mode for link dictionaries. Bitwise-Or what you want to see: </td>
</tr>

<tr>
<td  class="h" >
<a name="617">617</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="618">618</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           1: The parsing of the dictionary </td>
</tr>

<tr>
<td  class="h" >
<a name="619">619</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           2: The code that will make the links </td>
</tr>

<tr>
<td  class="h" >
<a name="620">620</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           4: When each rule matches something </td>
</tr>

<tr>
<td  class="h" >
<a name="621">621</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           8: When each tag is created </td>
</tr>

<tr>
<td  class="h" >
<a name="622">622</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="623">623</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (default: 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="624">624</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="625">625</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="626">626</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="627">627</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="628">628</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="629">629</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $Debug = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="630">630</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $DictDebug = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="631">631</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="632">632</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 METHODS </td>
</tr>

<tr>
<td  class="h" >
<a name="633">633</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="634">634</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="635">635</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="636">636</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #------------------------------------------------------------------------ </td>
</tr>

<tr>
<td  class="h" >
<a name="637">637</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#637-1"> 
6
 </a> 
</td>

<td >

 

</td>

<td >

5318

</td>

<td class="s"> use YAML::Syck; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

22693

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2434

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="638">638</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="639">639</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $PROG = 'HTML::TextToHTML'; </td>
</tr>

<tr>
<td  class="h" >
<a name="640">640</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="641">641</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #------------------------------------------------------------------------ </td>
</tr>

<tr>
<td  class="h" >
<a name="642">642</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="643">643</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> ######################################## </td>
</tr>

<tr>
<td  class="h" >
<a name="644">644</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Definitions  (Don't change these) </td>
</tr>

<tr>
<td  class="h" >
<a name="645">645</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # </td>
</tr>

<tr>
<td  class="h" >
<a name="646">646</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="647">647</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # These are just constants I use for making bit vectors to keep track </td>
</tr>

<tr>
<td  class="h" >
<a name="648">648</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # of what modes I'm in and what actions I've taken on the current and </td>
</tr>

<tr>
<td  class="h" >
<a name="649">649</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # previous lines. </td>
</tr>

<tr>
<td  class="h" >
<a name="650">650</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="651">651</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $NONE         = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="652">652</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LIST         = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="653">653</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $HRULE        = 2; </td>
</tr>

<tr>
<td  class="h" >
<a name="654">654</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $PAR          = 4; </td>
</tr>

<tr>
<td  class="h" >
<a name="655">655</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $PRE          = 8; </td>
</tr>

<tr>
<td  class="h" >
<a name="656">656</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $END          = 16; </td>
</tr>

<tr>
<td  class="h" >
<a name="657">657</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $BREAK        = 32; </td>
</tr>

<tr>
<td  class="h" >
<a name="658">658</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $HEADER       = 64; </td>
</tr>

<tr>
<td  class="h" >
<a name="659">659</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $MAILHEADER   = 128; </td>
</tr>

<tr>
<td  class="h" >
<a name="660">660</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $MAILQUOTE    = 256; </td>
</tr>

<tr>
<td  class="h" >
<a name="661">661</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $CAPS         = 512; </td>
</tr>

<tr>
<td  class="h" >
<a name="662">662</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LINK         = 1024; </td>
</tr>

<tr>
<td  class="h" >
<a name="663">663</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $PRE_EXPLICIT = 2048; </td>
</tr>

<tr>
<td  class="h" >
<a name="664">664</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $TABLE        = 4096; </td>
</tr>

<tr>
<td  class="h" >
<a name="665">665</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $IND_BREAK    = 8192; </td>
</tr>

<tr>
<td  class="h" >
<a name="666">666</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LIST_START   = 16384; </td>
</tr>

<tr>
<td  class="h" >
<a name="667">667</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LIST_ITEM    = 32768; </td>
</tr>

<tr>
<td  class="h" >
<a name="668">668</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="669">669</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Constants for Link-processing </td>
</tr>

<tr>
<td  class="h" >
<a name="670">670</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # bit-vectors for what to do with a particular link-dictionary entry </td>
</tr>

<tr>
<td  class="h" >
<a name="671">671</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LINK_NOCASE    = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="672">672</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LINK_EVAL      = 2; </td>
</tr>

<tr>
<td  class="h" >
<a name="673">673</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LINK_HTML      = 4; </td>
</tr>

<tr>
<td  class="h" >
<a name="674">674</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LINK_ONCE      = 8; </td>
</tr>

<tr>
<td  class="h" >
<a name="675">675</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $LINK_SECT_ONCE = 16; </td>
</tr>

<tr>
<td  class="h" >
<a name="676">676</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="677">677</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Constants for Ordered Lists and Unordered Lists. </td>
</tr>

<tr>
<td  class="h" >
<a name="678">678</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # And Definition Lists. </td>
</tr>

<tr>
<td  class="h" >
<a name="679">679</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # I use this in the list stack to keep track of what's what. </td>
</tr>

<tr>
<td  class="h" >
<a name="680">680</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="681">681</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $OL = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="682">682</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $UL = 2; </td>
</tr>

<tr>
<td  class="h" >
<a name="683">683</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $DL = 3; </td>
</tr>

<tr>
<td  class="h" >
<a name="684">684</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="685">685</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Constants for table types </td>
</tr>

<tr>
<td  class="h" >
<a name="686">686</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $TAB_ALIGN  = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="687">687</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $TAB_PGSQL  = 2; </td>
</tr>

<tr>
<td  class="h" >
<a name="688">688</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $TAB_BORDER = 3; </td>
</tr>

<tr>
<td  class="h" >
<a name="689">689</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our $TAB_DELIM  = 4; </td>
</tr>

<tr>
<td  class="h" >
<a name="690">690</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="691">691</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Constants for tags </td>
</tr>

<tr>
<td  class="h" >
<a name="692">692</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> use constant { </td>
</tr>

<tr>
<td  class="h" >
<a name="693">693</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

174798

</td>

<td class="s">     TAG_START	=> 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="694">694</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     TAG_END	=> 2, </td>
</tr>

<tr>
<td  class="h" >
<a name="695">695</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     TAG_EMPTY	=> 3, </td>
</tr>

<tr>
<td  class="h" >
<a name="696">696</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#696-1"> 
6
 </a> 
</td>

<td >

 

</td>

<td >

51

</td>

<td class="s"> }; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="697">697</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="698">698</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Character entity names </td>
</tr>

<tr>
<td  class="h" >
<a name="699">699</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # characters to replace with entities </td>
</tr>

<tr>
<td  class="h" >
<a name="700">700</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our %char_entities = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="701">701</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\241", "¡",  "\242", "¢",   "\243", "£", </td>
</tr>

<tr>
<td  class="h" >
<a name="702">702</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\244", "¤", "\245", "¥",    "\246", "¦", </td>
</tr>

<tr>
<td  class="h" >
<a name="703">703</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\247", "§",   "\250", "¨",    "\251", "©", </td>
</tr>

<tr>
<td  class="h" >
<a name="704">704</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\252", "ª",   "\253", "«",  "\254", "¬", </td>
</tr>

<tr>
<td  class="h" >
<a name="705">705</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\255", "­",    "\256", "®",    "\257", "&hibar;", </td>
</tr>

<tr>
<td  class="h" >
<a name="706">706</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\260", "°",    "\261", "±", "\262", "²", </td>
</tr>

<tr>
<td  class="h" >
<a name="707">707</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\263", "³",   "\264", "´",  "\265", "µ", </td>
</tr>

<tr>
<td  class="h" >
<a name="708">708</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\266", "¶",   "\270", "¸",  "\271", "¹", </td>
</tr>

<tr>
<td  class="h" >
<a name="709">709</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\272", "º",   "\273", "»",  "\274", "¼", </td>
</tr>

<tr>
<td  class="h" >
<a name="710">710</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\275", "½", "\276", "¾", "\277", "¿", </td>
</tr>

<tr>
<td  class="h" >
<a name="711">711</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\300", "À", "\301", "Á", "\302", "Â", </td>
</tr>

<tr>
<td  class="h" >
<a name="712">712</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\303", "Ã", "\304", "Ä",   "\305", "Å", </td>
</tr>

<tr>
<td  class="h" >
<a name="713">713</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\306", "Æ",  "\307", "Ç", "\310", "È", </td>
</tr>

<tr>
<td  class="h" >
<a name="714">714</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\311", "É", "\312", "Ê",  "\313", "Ë", </td>
</tr>

<tr>
<td  class="h" >
<a name="715">715</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\314", "Ì", "\315", "Í", "\316", "Î", </td>
</tr>

<tr>
<td  class="h" >
<a name="716">716</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\317", "Ï",   "\320", "Ð",    "\321", "Ñ", </td>
</tr>

<tr>
<td  class="h" >
<a name="717">717</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\322", "Ò", "\323", "Ó", "\324", "Ô", </td>
</tr>

<tr>
<td  class="h" >
<a name="718">718</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\325", "Õ", "\326", "Ö",   "\327", "×", </td>
</tr>

<tr>
<td  class="h" >
<a name="719">719</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\330", "Ø", "\331", "Ù", "\332", "Ú", </td>
</tr>

<tr>
<td  class="h" >
<a name="720">720</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\333", "Û",  "\334", "Ü",   "\335", "Ý", </td>
</tr>

<tr>
<td  class="h" >
<a name="721">721</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\336", "Þ",  "\337", "ß",  "\340", "à", </td>
</tr>

<tr>
<td  class="h" >
<a name="722">722</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\341", "á", "\342", "â",  "\343", "ã", </td>
</tr>

<tr>
<td  class="h" >
<a name="723">723</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\344", "ä",   "\345", "å",  "\346", "æ", </td>
</tr>

<tr>
<td  class="h" >
<a name="724">724</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\347", "ç", "\350", "è", "\351", "é", </td>
</tr>

<tr>
<td  class="h" >
<a name="725">725</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\352", "ê",  "\353", "ë",   "\354", "ì", </td>
</tr>

<tr>
<td  class="h" >
<a name="726">726</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\355", "í", "\356", "î",  "\357", "ï", </td>
</tr>

<tr>
<td  class="h" >
<a name="727">727</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\360", "ð",    "\361", "ñ", "\362", "ò", </td>
</tr>

<tr>
<td  class="h" >
<a name="728">728</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\363", "ó", "\364", "ô",  "\365", "õ", </td>
</tr>

<tr>
<td  class="h" >
<a name="729">729</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\366", "ö",   "\367", "÷", "\370", "ø", </td>
</tr>

<tr>
<td  class="h" >
<a name="730">730</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\371", "ù", "\372", "ú", "\373", "û", </td>
</tr>

<tr>
<td  class="h" >
<a name="731">731</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\374", "ü",   "\375", "ý", "\376", "þ", </td>
</tr>

<tr>
<td  class="h" >
<a name="732">732</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\377", "ÿ",   "\267", "·", </td>
</tr>

<tr>
<td  class="h" >
<a name="733">733</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> ); </td>
</tr>

<tr>
<td  class="h" >
<a name="734">734</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="735">735</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # alignments for tables </td>
</tr>

<tr>
<td  class="h" >
<a name="736">736</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our @alignments    = ('', '', ' ALIGN="RIGHT"', ' ALIGN="CENTER"'); </td>
</tr>

<tr>
<td  class="h" >
<a name="737">737</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our @lc_alignments = ('', '', ' align="right"', ' align="center"'); </td>
</tr>

<tr>
<td  class="h" >
<a name="738">738</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> our @xhtml_alignments = </td>
</tr>

<tr>
<td  class="h" >
<a name="739">739</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   ('', '', ' style="text-align: right;"', ' style="text-align: center;"'); </td>
</tr>

<tr>
<td  class="h" >
<a name="740">740</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="741">741</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #---------------------------------------------------------------# </td>
</tr>

<tr>
<td  class="h" >
<a name="742">742</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Object interface </td>
</tr>

<tr>
<td  class="h" >
<a name="743">743</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #---------------------------------------------------------------# </td>
</tr>

<tr>
<td  class="h" >
<a name="744">744</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="745">745</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 new </td>
</tr>

<tr>
<td  class="h" >
<a name="746">746</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="747">747</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $conv = new HTML::TextToHTML() </td>
</tr>

<tr>
<td  class="h" >
<a name="748">748</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="749">749</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $conv = new HTML::TextToHTML(titlefirst=>1, </td>
</tr>

<tr>
<td  class="h" >
<a name="750">750</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="751">751</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="752">752</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="753">753</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Create a new object with new. If arguments are given, these arguments </td>
</tr>

<tr>
<td  class="h" >
<a name="754">754</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> will be used in invocations of other methods. </td>
</tr>

<tr>
<td  class="h" >
<a name="755">755</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="756">756</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> See L</OPTIONS> for the possible values of the arguments. </td>
</tr>

<tr>
<td  class="h" >
<a name="757">757</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="758">758</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="759">759</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="760">760</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub new </td>
</tr>

<tr>
<td  class="h" >
<a name="761">761</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="762">762</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#762-1"> 
26
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#762-1"> 
1
 </a> 
</td>

<td >

39005

</td>

<td class="s">     my $invocant = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="763">763</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

74

</td>

<td class="s">     my $self     = {}; </td>
</tr>

<tr>
<td  class="h" >
<a name="764">764</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="765">765</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#765-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

205

</td>

<td class="s">     my $class = ref($invocant) || $invocant;    # Object or class name </td>
</tr>

<tr>
<td  class="h" >
<a name="766">766</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

113

</td>

<td class="s">     init_our_data($self); </td>
</tr>

<tr>
<td  class="h" >
<a name="767">767</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="768">768</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # bless self </td>
</tr>

<tr>
<td  class="h" >
<a name="769">769</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

70

</td>

<td class="s">     bless($self, $class); </td>
</tr>

<tr>
<td  class="h" >
<a name="770">770</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="771">771</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

118

</td>

<td class="s">     $self->args(@_); </td>
</tr>

<tr>
<td  class="h" >
<a name="772">772</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="773">773</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

93

</td>

<td class="s">     return $self; </td>
</tr>

<tr>
<td  class="h" >
<a name="774">774</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # new </td>
</tr>

<tr>
<td  class="h" >
<a name="775">775</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="776">776</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 args </td>
</tr>

<tr>
<td  class="h" >
<a name="777">777</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="778">778</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $conv->args(short_line_length=>60, </td>
</tr>

<tr>
<td  class="h" >
<a name="779">779</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	titlefirst=>1, </td>
</tr>

<tr>
<td  class="h" >
<a name="780">780</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	.... </td>
</tr>

<tr>
<td  class="h" >
<a name="781">781</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="782">782</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="783">783</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Updates the current arguments/options of the HTML::TextToHTML object. </td>
</tr>

<tr>
<td  class="h" >
<a name="784">784</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Takes hash of arguments, which will be used in invocations of other </td>
</tr>

<tr>
<td  class="h" >
<a name="785">785</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> methods. </td>
</tr>

<tr>
<td  class="h" >
<a name="786">786</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> See L</OPTIONS> for the possible values of the arguments. </td>
</tr>

<tr>
<td  class="h" >
<a name="787">787</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="788">788</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="789">789</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="790">790</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub args </td>
</tr>

<tr>
<td  class="h" >
<a name="791">791</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="792">792</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#792-1"> 
96
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#792-1"> 
1
 </a> 
</td>

<td >

4877

</td>

<td class="s">     my $self      = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="793">793</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

461

</td>

<td class="s">     my %args = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="794">794</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="795">795</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#795-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

281

</td>

<td class="s">     if (%args) </td>
</tr>

<tr>
<td  class="h" >
<a name="796">796</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="797">797</a>
</td>

<td  class="c3" >

71

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#797-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

187

</td>

<td class="s">         if ($Debug) </td>
</tr>

<tr>
<td  class="h" >
<a name="798">798</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="799">799</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "========args(hash)========\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="800">800</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR Dump(%args); </td>
</tr>

<tr>
<td  class="h" >
<a name="801">801</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="802">802</a>
</td>

<td  class="c3" >

71

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

96

</td>

<td class="s"> 	my $arg; </td>
</tr>

<tr>
<td  class="h" >
<a name="803">803</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	my $val; </td>
</tr>

<tr>
<td  class="h" >
<a name="804">804</a>
</td>

<td  class="c3" >

71

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

308

</td>

<td class="s"> 	while (($arg, $val) = each %args) </td>
</tr>

<tr>
<td  class="h" >
<a name="805">805</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="806">806</a>
</td>

<td  class="c3" >

281

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#806-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

673

</td>

<td class="s">             if (defined $val) </td>
</tr>

<tr>
<td  class="h" >
<a name="807">807</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="808">808</a>
</td>

<td  class="c3" >

281

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#808-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

595

</td>

<td class="s">                 if ($arg =~ /^-/) </td>
</tr>

<tr>
<td  class="h" >
<a name="809">809</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="810">810</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     $arg =~ s/^-//;    # get rid of first dash </td>
</tr>

<tr>
<td  class="h" >
<a name="811">811</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     $arg =~ s/^-//;    # get rid of possible second dash </td>
</tr>

<tr>
<td  class="h" >
<a name="812">812</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="813">813</a>
</td>

<td  class="c3" >

281

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#813-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

632

</td>

<td class="s">                 if ($Debug) </td>
</tr>

<tr>
<td  class="h" >
<a name="814">814</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="815">815</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     print STDERR "--", $arg; </td>
</tr>

<tr>
<td  class="h" >
<a name="816">816</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="817">817</a>
</td>

<td  class="c3" >

281

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

491

</td>

<td class="s">                 $self->{$arg} = $val; </td>
</tr>

<tr>
<td  class="h" >
<a name="818">818</a>
</td>

<td  class="c3" >

281

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#818-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1053

</td>

<td class="s">                 if ($Debug) </td>
</tr>

<tr>
<td  class="h" >
<a name="819">819</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="820">820</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     print STDERR " ", $val, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="821">821</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="822">822</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="823">823</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="824">824</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="825">825</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

290

</td>

<td class="s">     $self->deal_with_options(); </td>
</tr>

<tr>
<td  class="h" >
<a name="826">826</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#826-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

225

</td>

<td class="s">     if ($Debug) </td>
</tr>

<tr>
<td  class="h" >
<a name="827">827</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="828">828</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         print STDERR Dump($self); </td>
</tr>

<tr>
<td  class="h" >
<a name="829">829</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="830">830</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="831">831</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

313

</td>

<td class="s">     return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="832">832</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # args </td>
</tr>

<tr>
<td  class="h" >
<a name="833">833</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="834">834</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 process_chunk </td>
</tr>

<tr>
<td  class="h" >
<a name="835">835</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="836">836</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $newstring = $conv->process_chunk($mystring); </td>
</tr>

<tr>
<td  class="h" >
<a name="837">837</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="838">838</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Convert a string to a HTML fragment.  This assumes that this string is </td>
</tr>

<tr>
<td  class="h" >
<a name="839">839</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> at the least, a single paragraph, but it can contain more than that. </td>
</tr>

<tr>
<td  class="h" >
<a name="840">840</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This returns the processed string.  If you want to pass arguments to </td>
</tr>

<tr>
<td  class="h" >
<a name="841">841</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> alter the behaviour of this conversion, you need to do that earlier, </td>
</tr>

<tr>
<td  class="h" >
<a name="842">842</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> either when you create the object, or with the L</args> method. </td>
</tr>

<tr>
<td  class="h" >
<a name="843">843</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="844">844</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $newstring = $conv->process_chunk($mystring, </td>
</tr>

<tr>
<td  class="h" >
<a name="845">845</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			    close_tags=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="846">846</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="847">847</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> If there are open tags (such as lists) in the input string, </td>
</tr>

<tr>
<td  class="h" >
<a name="848">848</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> process_chunk will automatically close them, unless you specify not </td>
</tr>

<tr>
<td  class="h" >
<a name="849">849</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to, with the close_tags option. </td>
</tr>

<tr>
<td  class="h" >
<a name="850">850</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="851">851</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $newstring = $conv->process_chunk($mystring, </td>
</tr>

<tr>
<td  class="h" >
<a name="852">852</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			    is_fragment=>1); </td>
</tr>

<tr>
<td  class="h" >
<a name="853">853</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="854">854</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> If you want this string to be treated as a fragment, and not assumed to </td>
</tr>

<tr>
<td  class="h" >
<a name="855">855</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> be a paragraph, set is_fragment to true.  If there is more than one </td>
</tr>

<tr>
<td  class="h" >
<a name="856">856</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> paragraph in the string (ie it contains blank lines) then this option </td>
</tr>

<tr>
<td  class="h" >
<a name="857">857</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> will be ignored. </td>
</tr>

<tr>
<td  class="h" >
<a name="858">858</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="859">859</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="860">860</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="861">861</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub process_chunk ($$;%) </td>
</tr>

<tr>
<td  class="h" >
<a name="862">862</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="863">863</a>
</td>

<td  class="c3" >

345

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#863-1"> 
345
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#863-1"> 
1
 </a> 
</td>

<td >

5661

</td>

<td class="s">     my $self  = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="864">864</a>
</td>

<td  class="c3" >

345

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

750

</td>

<td class="s">     my $chunk = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="865">865</a>
</td>

<td  class="c3" >

345

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1219

</td>

<td class="s">     my %args  = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="866">866</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         close_tags  => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="867">867</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         is_fragment => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="868">868</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="869">869</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="870">870</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="871">871</a>
</td>

<td  class="c3" >

345

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

639

</td>

<td class="s">     my $ret_str = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="872">872</a>
</td>

<td  class="c3" >

345

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2347

</td>

<td class="s">     my @paras   = split(/\r?\n\r?\n/, $chunk); </td>
</tr>

<tr>
<td  class="h" >
<a name="873">873</a>
</td>

<td  class="c3" >

345

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

486

</td>

<td class="s">     my $ind     = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="874">874</a>
</td>

<td  class="c3" >

345

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#874-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

943

</td>

<td class="s">     if (@paras == 1)    # just one paragraph </td>
</tr>

<tr>
<td  class="h" >
<a name="875">875</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="876">876</a>
</td>

<td  class="c3" >

342

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1240

</td>

<td class="s">         $ret_str .= $self->process_para( </td>
</tr>

<tr>
<td  class="h" >
<a name="877">877</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             $chunk, </td>
</tr>

<tr>
<td  class="h" >
<a name="878">878</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             close_tags  => $args{close_tags}, </td>
</tr>

<tr>
<td  class="h" >
<a name="879">879</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             is_fragment => $args{is_fragment} </td>
</tr>

<tr>
<td  class="h" >
<a name="880">880</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="881">881</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="882">882</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="883">883</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="884">884</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">         my $ind = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="885">885</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">         foreach my $para (@paras) </td>
</tr>

<tr>
<td  class="h" >
<a name="886">886</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="887">887</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # if the paragraph doesn't end with a newline, add one </td>
</tr>

<tr>
<td  class="h" >
<a name="888">888</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#888-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

395

</td>

<td class="s">             $para .= "\n" if ($para !~ /\n$/); </td>
</tr>

<tr>
<td  class="h" >
<a name="889">889</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#889-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

330

</td>

<td class="s">             if ($ind == @paras - 1)    # last one </td>
</tr>

<tr>
<td  class="h" >
<a name="890">890</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="891">891</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">                 $ret_str .= $self->process_para( </td>
</tr>

<tr>
<td  class="h" >
<a name="892">892</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     $para, </td>
</tr>

<tr>
<td  class="h" >
<a name="893">893</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     close_tags  => $args{close_tags}, </td>
</tr>

<tr>
<td  class="h" >
<a name="894">894</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     is_fragment => 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="895">895</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ); </td>
</tr>

<tr>
<td  class="h" >
<a name="896">896</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="897">897</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             else </td>
</tr>

<tr>
<td  class="h" >
<a name="898">898</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="899">899</a>
</td>

<td  class="c3" >

94

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

375

</td>

<td class="s">                 $ret_str .= $self->process_para( </td>
</tr>

<tr>
<td  class="h" >
<a name="900">900</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     $para, </td>
</tr>

<tr>
<td  class="h" >
<a name="901">901</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     close_tags  => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="902">902</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     is_fragment => 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="903">903</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ); </td>
</tr>

<tr>
<td  class="h" >
<a name="904">904</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="905">905</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

299

</td>

<td class="s">             $ind++; </td>
</tr>

<tr>
<td  class="h" >
<a name="906">906</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="907">907</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="908">908</a>
</td>

<td  class="c3" >

345

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1418

</td>

<td class="s">     $ret_str; </td>
</tr>

<tr>
<td  class="h" >
<a name="909">909</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # process_chunk </td>
</tr>

<tr>
<td  class="h" >
<a name="910">910</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="911">911</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 process_para </td>
</tr>

<tr>
<td  class="h" >
<a name="912">912</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="913">913</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $newstring = $conv->process_para($mystring); </td>
</tr>

<tr>
<td  class="h" >
<a name="914">914</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="915">915</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Convert a string to a HTML fragment.  This assumes that this string is </td>
</tr>

<tr>
<td  class="h" >
<a name="916">916</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> at the most a single paragraph, with no blank lines in it.  If you don't </td>
</tr>

<tr>
<td  class="h" >
<a name="917">917</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> know whether your string will contain blank lines or not, use the </td>
</tr>

<tr>
<td  class="h" >
<a name="918">918</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> L</process_chunk> method instead. </td>
</tr>

<tr>
<td  class="h" >
<a name="919">919</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="920">920</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This returns the processed string.  If you want to pass arguments to </td>
</tr>

<tr>
<td  class="h" >
<a name="921">921</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> alter the behaviour of this conversion, you need to do that earlier, </td>
</tr>

<tr>
<td  class="h" >
<a name="922">922</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> either when you create the object, or with the L</args> method. </td>
</tr>

<tr>
<td  class="h" >
<a name="923">923</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="924">924</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $newstring = $conv->process_para($mystring, </td>
</tr>

<tr>
<td  class="h" >
<a name="925">925</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			    close_tags=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="926">926</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="927">927</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> If there are open tags (such as lists) in the input string, process_para </td>
</tr>

<tr>
<td  class="h" >
<a name="928">928</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> will automatically close them, unless you specify not to, with the </td>
</tr>

<tr>
<td  class="h" >
<a name="929">929</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> close_tags option. </td>
</tr>

<tr>
<td  class="h" >
<a name="930">930</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="931">931</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $newstring = $conv->process_para($mystring, </td>
</tr>

<tr>
<td  class="h" >
<a name="932">932</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			    is_fragment=>1); </td>
</tr>

<tr>
<td  class="h" >
<a name="933">933</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="934">934</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> If you want this string to be treated as a fragment, and not assumed to be </td>
</tr>

<tr>
<td  class="h" >
<a name="935">935</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> a paragraph, set is_fragment to true. </td>
</tr>

<tr>
<td  class="h" >
<a name="936">936</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="937">937</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="938">938</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="939">939</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub process_para ($$;%) </td>
</tr>

<tr>
<td  class="h" >
<a name="940">940</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="941">941</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#941-1"> 
440
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#941-1"> 
1
 </a> 
</td>

<td >

2573

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="942">942</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

884

</td>

<td class="s">     my $para = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="943">943</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1745

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="944">944</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         close_tags  => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="945">945</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         is_fragment => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="946">946</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="947">947</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="948">948</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="949">949</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # if this is an external call, do certain initializations </td>
</tr>

<tr>
<td  class="h" >
<a name="950">950</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1168

</td>

<td class="s">     $self->do_init_call(); </td>
</tr>

<tr>
<td  class="h" >
<a name="951">951</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="952">952</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

702

</td>

<td class="s">     my $para_action = $NONE; </td>
</tr>

<tr>
<td  class="h" >
<a name="953">953</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="954">954</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # tables and mailheaders don't carry over from one para to the next </td>
</tr>

<tr>
<td  class="h" >
<a name="955">955</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#955-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1172

</td>

<td class="s">     if ($self->{__mode} & $TABLE) </td>
</tr>

<tr>
<td  class="h" >
<a name="956">956</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="957">957</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         $self->{__mode} ^= $TABLE; </td>
</tr>

<tr>
<td  class="h" >
<a name="958">958</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="959">959</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#959-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1218

</td>

<td class="s">     if ($self->{__mode} & $MAILHEADER) </td>
</tr>

<tr>
<td  class="h" >
<a name="960">960</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="961">961</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">         $self->{__mode} ^= $MAILHEADER; </td>
</tr>

<tr>
<td  class="h" >
<a name="962">962</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="963">963</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="964">964</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # convert Microsoft character codes into sensible characters </td>
</tr>

<tr>
<td  class="h" >
<a name="965">965</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#965-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1059

</td>

<td class="s">     if ($self->{demoronize}) </td>
</tr>

<tr>
<td  class="h" >
<a name="966">966</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="967">967</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1234

</td>

<td class="s">         demoronize_char($para); </td>
</tr>

<tr>
<td  class="h" >
<a name="968">968</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="969">969</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="970">970</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # if we are not just linking, we are discerning structure </td>
</tr>

<tr>
<td  class="h" >
<a name="971">971</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#971-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1092

</td>

<td class="s">     if (!$self->{link_only}) </td>
</tr>

<tr>
<td  class="h" >
<a name="972">972</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="973">973</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="974">974</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Chop trailing whitespace and DOS CRs </td>
</tr>

<tr>
<td  class="h" >
<a name="975">975</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

731

</td>

<td class="s">         $para =~ s/[ \011]*\015$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="976">976</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Chop leading whitespace and DOS CRs </td>
</tr>

<tr>
<td  class="h" >
<a name="977">977</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1072

</td>

<td class="s">         $para =~ s/^[ \011]*\015//; </td>
</tr>

<tr>
<td  class="h" >
<a name="978">978</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1015

</td>

<td class="s">         $para =~ s/\r//g;             # remove any stray carriage returns </td>
</tr>

<tr>
<td  class="h" >
<a name="979">979</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="980">980</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

694

</td>

<td class="s">         my @done_lines = ();          # lines which have been processed </td>
</tr>

<tr>
<td  class="h" >
<a name="981">981</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="982">982</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # The PRE_EXPLICIT structure can carry over from one </td>
</tr>

<tr>
<td  class="h" >
<a name="983">983</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # paragraph to the next, but it is ended with the </td>
</tr>

<tr>
<td  class="h" >
<a name="984">984</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # explicit end-tag designated for it. </td>
</tr>

<tr>
<td  class="h" >
<a name="985">985</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Therefore we can shortcut for this by checking </td>
</tr>

<tr>
<td  class="h" >
<a name="986">986</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # for the end of the PRE_EXPLICIT and chomping off </td>
</tr>

<tr>
<td  class="h" >
<a name="987">987</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # the preformatted string part of this para before </td>
</tr>

<tr>
<td  class="h" >
<a name="988">988</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # we have to split it into lines. </td>
</tr>

<tr>
<td  class="h" >
<a name="989">989</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Note that after this check, we could *still* be </td>
</tr>

<tr>
<td  class="h" >
<a name="990">990</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # in PRE_EXPLICIT mode. </td>
</tr>

<tr>
<td  class="h" >
<a name="991">991</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#991-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1335

</td>

<td class="s">         if ($self->{__mode} & $PRE_EXPLICIT) </td>
</tr>

<tr>
<td  class="h" >
<a name="992">992</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="993">993</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             my $pre_str = </td>
</tr>

<tr>
<td  class="h" >
<a name="994">994</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               $self->split_end_explicit_preformat(para_ref => \$para); </td>
</tr>

<tr>
<td  class="h" >
<a name="995">995</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#995-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             if ($pre_str) </td>
</tr>

<tr>
<td  class="h" >
<a name="996">996</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="997">997</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 push @done_lines, $pre_str; </td>
</tr>

<tr>
<td  class="h" >
<a name="998">998</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="999">999</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1000">1000</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1001">1001</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1001-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1001-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

2197

</td>

<td class="s">         if (defined $para && $para ne "") </td>
</tr>

<tr>
<td  class="h" >
<a name="1002">1002</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1003">1003</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # </td>
</tr>

<tr>
<td  class="h" >
<a name="1004">1004</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # Now we split the paragraph into lines </td>
</tr>

<tr>
<td  class="h" >
<a name="1005">1005</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # </td>
</tr>

<tr>
<td  class="h" >
<a name="1006">1006</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

750

</td>

<td class="s">             my $para_len         = length($para); </td>
</tr>

<tr>
<td  class="h" >
<a name="1007">1007</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1743

</td>

<td class="s">             my @para_lines       = split(/^/, $para); </td>
</tr>

<tr>
<td  class="h" >
<a name="1008">1008</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

694

</td>

<td class="s">             my @para_line_len    = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="1009">1009</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

770

</td>

<td class="s">             my @para_line_indent = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="1010">1010</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

603

</td>

<td class="s">             my @para_line_action = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="1011">1011</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

773

</td>

<td class="s">             my $i                = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1012">1012</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

967

</td>

<td class="s">             foreach my $line (@para_lines) </td>
</tr>

<tr>
<td  class="h" >
<a name="1013">1013</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1014">1014</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 # Change all tabs to spaces </td>
</tr>

<tr>
<td  class="h" >
<a name="1015">1015</a>
</td>

<td  class="c3" >

1603

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3879

</td>

<td class="s">                 while ($line =~ /\011/) </td>
</tr>

<tr>
<td  class="h" >
<a name="1016">1016</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1017">1017</a>
</td>

<td  class="c3" >

124

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

198

</td>

<td class="s">                     my $tw = $self->{tab_width}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1018">1018</a>
</td>

<td  class="c3" >

124

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

347

</td>

<td class="s">                     $line =~ s/\011/" " x ($tw - (length($`) % $tw))/e; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

124

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

622

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1019">1019</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1020">1020</a>
</td>

<td  class="c3" >

1603

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2127

</td>

<td class="s">                 push @para_line_len, length($line); </td>
</tr>

<tr>
<td  class="h" >
<a name="1021">1021</a>
</td>

<td  class="c3" >

1603

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1021-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4022

</td>

<td class="s">                 if ($line =~ /^\s*$/) </td>
</tr>

<tr>
<td  class="h" >
<a name="1022">1022</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1023">1023</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # if the line is blank, use the previous indent </td>
</tr>

<tr>
<td  class="h" >
<a name="1024">1024</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # if there is one </td>
</tr>

<tr>
<td  class="h" >
<a name="1025">1025</a>
</td>

<td  class="c3" >

26

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1025-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">                     push @para_line_indent, </td>
</tr>

<tr>
<td  class="h" >
<a name="1026">1026</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                       ($i == 0 ? 0 : $para_line_indent[$i - 1]); </td>
</tr>

<tr>
<td  class="h" >
<a name="1027">1027</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1028">1028</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 else </td>
</tr>

<tr>
<td  class="h" >
<a name="1029">1029</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1030">1030</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # count the number of leading spaces </td>
</tr>

<tr>
<td  class="h" >
<a name="1031">1031</a>
</td>

<td  class="c3" >

1577

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4243

</td>

<td class="s">                     my ($ws) = $line =~ /^( *)[^ ]/; </td>
</tr>

<tr>
<td  class="h" >
<a name="1032">1032</a>
</td>

<td  class="c3" >

1577

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2655

</td>

<td class="s">                     push @para_line_indent, length($ws); </td>
</tr>

<tr>
<td  class="h" >
<a name="1033">1033</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1034">1034</a>
</td>

<td  class="c3" >

1603

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1785

</td>

<td class="s">                 push @para_line_action, $NONE; </td>
</tr>

<tr>
<td  class="h" >
<a name="1035">1035</a>
</td>

<td  class="c3" >

1603

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2473

</td>

<td class="s">                 $i++; </td>
</tr>

<tr>
<td  class="h" >
<a name="1036">1036</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1037">1037</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1038">1038</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # There are two more structures which carry over from one </td>
</tr>

<tr>
<td  class="h" >
<a name="1039">1039</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # paragraph to the next: LIST, PRE </td>
</tr>

<tr>
<td  class="h" >
<a name="1040">1040</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # There are also certain things which will immediately end </td>
</tr>

<tr>
<td  class="h" >
<a name="1041">1041</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # multi-paragraph LIST and PRE, if found at the start </td>
</tr>

<tr>
<td  class="h" >
<a name="1042">1042</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # of a paragraph: </td>
</tr>

<tr>
<td  class="h" >
<a name="1043">1043</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # A list will be ended by </td>
</tr>

<tr>
<td  class="h" >
<a name="1044">1044</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # TABLE, MAILHEADER, HEADER, custom-header </td>
</tr>

<tr>
<td  class="h" >
<a name="1045">1045</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # A PRE will be ended by </td>
</tr>

<tr>
<td  class="h" >
<a name="1046">1046</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # TABLE, MAILHEADER and non-pre text </td>
</tr>

<tr>
<td  class="h" >
<a name="1047">1047</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1048">1048</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

713

</td>

<td class="s">             my $is_table         = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1049">1049</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

461

</td>

<td class="s">             my $table_type       = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1050">1050</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

476

</td>

<td class="s">             my $is_mailheader    = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1051">1051</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

494

</td>

<td class="s">             my $is_header        = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1052">1052</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

512

</td>

<td class="s">             my $is_custom_header = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1053">1053</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1053-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

496

</td>

<td class="s">             if (@{$self->{custom_heading_regexp}}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1348

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1054">1054</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1055">1055</a>
</td>

<td  class="c3" >

155

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

428

</td>

<td class="s">                 $is_custom_header = </td>
</tr>

<tr>
<td  class="h" >
<a name="1056">1056</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   $self->is_custom_heading(line => $para_lines[0]); </td>
</tr>

<tr>
<td  class="h" >
<a name="1057">1057</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1058">1058</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1058-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1058-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1756

</td>

<td class="s">             if (   $self->{make_tables} </td>
</tr>

<tr>
<td  class="h" >
<a name="1059">1059</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && @para_lines > 1) </td>
</tr>

<tr>
<td  class="h" >
<a name="1060">1060</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1061">1061</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

408

</td>

<td class="s">                 $table_type = $self->get_table_type( </td>
</tr>

<tr>
<td  class="h" >
<a name="1062">1062</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     rows_ref => \@para_lines, </td>
</tr>

<tr>
<td  class="h" >
<a name="1063">1063</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     para_len => $para_len </td>
</tr>

<tr>
<td  class="h" >
<a name="1064">1064</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1065">1065</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

216

</td>

<td class="s">                 $is_table = ($table_type != 0); </td>
</tr>

<tr>
<td  class="h" >
<a name="1066">1066</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1067">1067</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1067-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1067-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

2916

</td>

<td class="s">             if (   !$self->{explicit_headings} </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1068">1068</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && @para_lines > 1 </td>
</tr>

<tr>
<td  class="h" >
<a name="1069">1069</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && !$is_table) </td>
</tr>

<tr>
<td  class="h" >
<a name="1070">1070</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1071">1071</a>
</td>

<td  class="c3" >

269

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1357

</td>

<td class="s">                 $is_header = $self->is_heading( </td>
</tr>

<tr>
<td  class="h" >
<a name="1072">1072</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     line_ref => \$para_lines[0], </td>
</tr>

<tr>
<td  class="h" >
<a name="1073">1073</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     next_ref => \$para_lines[1] </td>
</tr>

<tr>
<td  class="h" >
<a name="1074">1074</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1075">1075</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1076">1076</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # Note that it is concievable that someone has </td>
</tr>

<tr>
<td  class="h" >
<a name="1077">1077</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # partially disabled mailmode by making a custom header </td>
</tr>

<tr>
<td  class="h" >
<a name="1078">1078</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # which matches the start of mail. </td>
</tr>

<tr>
<td  class="h" >
<a name="1079">1079</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # This is stupid, but allowable, so we check. </td>
</tr>

<tr>
<td  class="h" >
<a name="1080">1080</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1080-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1080-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

2395

</td>

<td class="s">             if (   $self->{mailmode} </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1081">1081</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && !$is_table </td>
</tr>

<tr>
<td  class="h" >
<a name="1082">1082</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && !$is_custom_header) </td>
</tr>

<tr>
<td  class="h" >
<a name="1083">1083</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1084">1084</a>
</td>

<td  class="c3" >

196

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

528

</td>

<td class="s">                 $is_mailheader = $self->is_mailheader(rows_ref => \@para_lines); </td>
</tr>

<tr>
<td  class="h" >
<a name="1085">1085</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1086">1086</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1087">1087</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # end the list if we can end it </td>
</tr>

<tr>
<td  class="h" >
<a name="1088">1088</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1088-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1088-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1652

</td>

<td class="s">             if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1089">1089</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ($self->{__mode} & $LIST) </td>
</tr>

<tr>
<td  class="h" >
<a name="1090">1090</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && (   $is_table </td>
</tr>

<tr>
<td  class="h" >
<a name="1091">1091</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     || $is_mailheader </td>
</tr>

<tr>
<td  class="h" >
<a name="1092">1092</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     || $is_header </td>
</tr>

<tr>
<td  class="h" >
<a name="1093">1093</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     || $is_custom_header) </td>
</tr>

<tr>
<td  class="h" >
<a name="1094">1094</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               ) </td>
</tr>

<tr>
<td  class="h" >
<a name="1095">1095</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1096">1096</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">                 my $list_end = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1097">1097</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">                 my $action   = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1098">1098</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

59

</td>

<td class="s">                 $self->endlist( </td>
</tr>

<tr>
<td  class="h" >
<a name="1099">1099</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     num_lists       => $self->{__listnum}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1100">1100</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     prev_ref        => \$list_end, </td>
</tr>

<tr>
<td  class="h" >
<a name="1101">1101</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     line_action_ref => \$action </td>
</tr>

<tr>
<td  class="h" >
<a name="1102">1102</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1103">1103</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">                 push @done_lines, $list_end; </td>
</tr>

<tr>
<td  class="h" >
<a name="1104">1104</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20

</td>

<td class="s">                 $self->{__prev_para_action} |= $END; </td>
</tr>

<tr>
<td  class="h" >
<a name="1105">1105</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1106">1106</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1107">1107</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # end the PRE if we can end it </td>
</tr>

<tr>
<td  class="h" >
<a name="1108">1108</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1108-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1108-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1465

</td>

<td class="s">             if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-4"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1109">1109</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                    ($self->{__mode} & $PRE) </td>
</tr>

<tr>
<td  class="h" >
<a name="1110">1110</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && !($self->{__mode} & $PRE_EXPLICIT) </td>
</tr>

<tr>
<td  class="h" >
<a name="1111">1111</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && (   $is_table </td>
</tr>

<tr>
<td  class="h" >
<a name="1112">1112</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     || $is_mailheader </td>
</tr>

<tr>
<td  class="h" >
<a name="1113">1113</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     || !$self->is_preformatted($para_lines[0])) </td>
</tr>

<tr>
<td  class="h" >
<a name="1114">1114</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && ($self->{preformat_trigger_lines} != 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="1115">1115</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               ) </td>
</tr>

<tr>
<td  class="h" >
<a name="1116">1116</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1117">1117</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">                 my $pre_end = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1118">1118</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

44

</td>

<td class="s">                 my $tag     = $self->close_tag('pre'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1119">1119</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

30

</td>

<td class="s">                 $pre_end = "${tag}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1120">1120</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">                 $self->{__mode} ^= ($PRE & $self->{__mode}); </td>
</tr>

<tr>
<td  class="h" >
<a name="1121">1121</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">                 push @done_lines, $pre_end; </td>
</tr>

<tr>
<td  class="h" >
<a name="1122">1122</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

26

</td>

<td class="s">                 $self->{__prev_para_action} |= $END; </td>
</tr>

<tr>
<td  class="h" >
<a name="1123">1123</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1124">1124</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1125">1125</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # The PRE and PRE_EXPLICIT structure can carry over </td>
</tr>

<tr>
<td  class="h" >
<a name="1126">1126</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # from one paragraph to the next, but because we don't </td>
</tr>

<tr>
<td  class="h" >
<a name="1127">1127</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # want trailing newlines, such newlines would have been </td>
</tr>

<tr>
<td  class="h" >
<a name="1128">1128</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # gotten rid of in the previous call.  However, with </td>
</tr>

<tr>
<td  class="h" >
<a name="1129">1129</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # a preformatted text, we do want the blank lines in it </td>
</tr>

<tr>
<td  class="h" >
<a name="1130">1130</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # to be preserved, so let's add a blank line in here. </td>
</tr>

<tr>
<td  class="h" >
<a name="1131">1131</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1131-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1032

</td>

<td class="s">             if ($self->{__mode} & $PRE) </td>
</tr>

<tr>
<td  class="h" >
<a name="1132">1132</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1133">1133</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">                 push @done_lines, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1134">1134</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1135">1135</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1136">1136</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # Now, we do certain things which are only found at the </td>
</tr>

<tr>
<td  class="h" >
<a name="1137">1137</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # start of a paragraph: </td>
</tr>

<tr>
<td  class="h" >
<a name="1138">1138</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # HEADER, custom-header, TABLE and MAILHEADER </td>
</tr>

<tr>
<td  class="h" >
<a name="1139">1139</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # These could concievably eat the rest of the paragraph. </td>
</tr>

<tr>
<td  class="h" >
<a name="1140">1140</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1141">1141</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1141-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1218

</td>

<td class="s">             if ($is_custom_header) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1142">1142</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1143">1143</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 # custom header eats the first line </td>
</tr>

<tr>
<td  class="h" >
<a name="1144">1144</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">                 my $header = shift @para_lines; </td>
</tr>

<tr>
<td  class="h" >
<a name="1145">1145</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">                 shift @para_line_len; </td>
</tr>

<tr>
<td  class="h" >
<a name="1146">1146</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">                 shift @para_line_indent; </td>
</tr>

<tr>
<td  class="h" >
<a name="1147">1147</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">                 shift @para_line_action; </td>
</tr>

<tr>
<td  class="h" >
<a name="1148">1148</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">                 $self->custom_heading(line_ref => \$header); </td>
</tr>

<tr>
<td  class="h" >
<a name="1149">1149</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">                 push @done_lines, $header; </td>
</tr>

<tr>
<td  class="h" >
<a name="1150">1150</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

24

</td>

<td class="s">                 $self->{__prev_para_action} |= $HEADER; </td>
</tr>

<tr>
<td  class="h" >
<a name="1151">1151</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1152">1152</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             elsif ($is_header) </td>
</tr>

<tr>
<td  class="h" >
<a name="1153">1153</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1154">1154</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 # normal header eats the first two lines </td>
</tr>

<tr>
<td  class="h" >
<a name="1155">1155</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

98

</td>

<td class="s">                 my $header = shift @para_lines; </td>
</tr>

<tr>
<td  class="h" >
<a name="1156">1156</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

74

</td>

<td class="s">                 shift @para_line_len; </td>
</tr>

<tr>
<td  class="h" >
<a name="1157">1157</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

77

</td>

<td class="s">                 shift @para_line_indent; </td>
</tr>

<tr>
<td  class="h" >
<a name="1158">1158</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">                 shift @para_line_action; </td>
</tr>

<tr>
<td  class="h" >
<a name="1159">1159</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

71

</td>

<td class="s">                 my $underline = shift @para_lines; </td>
</tr>

<tr>
<td  class="h" >
<a name="1160">1160</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

69

</td>

<td class="s">                 shift @para_line_len; </td>
</tr>

<tr>
<td  class="h" >
<a name="1161">1161</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

84

</td>

<td class="s">                 shift @para_line_indent; </td>
</tr>

<tr>
<td  class="h" >
<a name="1162">1162</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

73

</td>

<td class="s">                 shift @para_line_action; </td>
</tr>

<tr>
<td  class="h" >
<a name="1163">1163</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

213

</td>

<td class="s">                 $self->heading( </td>
</tr>

<tr>
<td  class="h" >
<a name="1164">1164</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     line_ref => \$header, </td>
</tr>

<tr>
<td  class="h" >
<a name="1165">1165</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     next_ref => \$underline </td>
</tr>

<tr>
<td  class="h" >
<a name="1166">1166</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1167">1167</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

121

</td>

<td class="s">                 push @done_lines, $header; </td>
</tr>

<tr>
<td  class="h" >
<a name="1168">1168</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

151

</td>

<td class="s">                 $self->{__prev_para_action} |= $HEADER; </td>
</tr>

<tr>
<td  class="h" >
<a name="1169">1169</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1170">1170</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1171">1171</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # do the table stuff on the array of lines </td>
</tr>

<tr>
<td  class="h" >
<a name="1172">1172</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1172-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1172-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1495

</td>

<td class="s">             if ($self->{make_tables} && $is_table) </td>
</tr>

<tr>
<td  class="h" >
<a name="1173">1173</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1174">1174</a>
</td>

<td  class="c3" >

22

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1174-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

93

</td>

<td class="s">                 if ( </td>
</tr>

<tr>
<td  class="h" >
<a name="1175">1175</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     $self->tablestuff( </td>
</tr>

<tr>
<td  class="h" >
<a name="1176">1176</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         table_type => $table_type, </td>
</tr>

<tr>
<td  class="h" >
<a name="1177">1177</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         rows_ref   => \@para_lines, </td>
</tr>

<tr>
<td  class="h" >
<a name="1178">1178</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         para_len   => $para_len </td>
</tr>

<tr>
<td  class="h" >
<a name="1179">1179</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ) </td>
</tr>

<tr>
<td  class="h" >
<a name="1180">1180</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   ) </td>
</tr>

<tr>
<td  class="h" >
<a name="1181">1181</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1182">1182</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # this has used up all the lines </td>
</tr>

<tr>
<td  class="h" >
<a name="1183">1183</a>
</td>

<td  class="c3" >

22

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

75

</td>

<td class="s">                     push @done_lines, @para_lines; </td>
</tr>

<tr>
<td  class="h" >
<a name="1184">1184</a>
</td>

<td  class="c3" >

22

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

56

</td>

<td class="s">                     @para_lines = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="1185">1185</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1186">1186</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1187">1187</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1188">1188</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # check of this para is a mail-header </td>
</tr>

<tr>
<td  class="h" >
<a name="1189">1189</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1189-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1189-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1163

</td>

<td class="s">             if (   $is_mailheader </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1190">1190</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && !($self->{__mode} & $TABLE) </td>
</tr>

<tr>
<td  class="h" >
<a name="1191">1191</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && @para_lines) </td>
</tr>

<tr>
<td  class="h" >
<a name="1192">1192</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1193">1193</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">                 $self->mailheader(rows_ref => \@para_lines); </td>
</tr>

<tr>
<td  class="h" >
<a name="1194">1194</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 # this has used up all the lines </td>
</tr>

<tr>
<td  class="h" >
<a name="1195">1195</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

165

</td>

<td class="s">                 push @done_lines, @para_lines; </td>
</tr>

<tr>
<td  class="h" >
<a name="1196">1196</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">                 @para_lines = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="1197">1197</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1198">1198</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1199">1199</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # </td>
</tr>

<tr>
<td  class="h" >
<a name="1200">1200</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # Now go through the paragraph lines one at a time </td>
</tr>

<tr>
<td  class="h" >
<a name="1201">1201</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # Note that we won't have TABLE, MAILHEADER, HEADER modes </td>
</tr>

<tr>
<td  class="h" >
<a name="1202">1202</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # because they would have eaten the lines </td>
</tr>

<tr>
<td  class="h" >
<a name="1203">1203</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # </td>
</tr>

<tr>
<td  class="h" >
<a name="1204">1204</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

614

</td>

<td class="s">             my $prev        = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1205">1205</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

699

</td>

<td class="s">             my $prev_action = $self->{__prev_para_action}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1206">1206</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1129

</td>

<td class="s">             for (my $i = 0; $i < @para_lines; $i++) </td>
</tr>

<tr>
<td  class="h" >
<a name="1207">1207</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1208">1208</a>
</td>

<td  class="c3" >

1166

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1396

</td>

<td class="s">                 my $prev_ref; </td>
</tr>

<tr>
<td  class="h" >
<a name="1209">1209</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 my $prev_action_ref; </td>
</tr>

<tr>
<td  class="h" >
<a name="1210">1210</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 my $prev_line_indent; </td>
</tr>

<tr>
<td  class="h" >
<a name="1211">1211</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 my $prev_line_len; </td>
</tr>

<tr>
<td  class="h" >
<a name="1212">1212</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1212-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2157

</td>

<td class="s">                 if ($i == 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="1213">1213</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1214">1214</a>
</td>

<td  class="c3" >

350

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

523

</td>

<td class="s">                     $prev_ref         = \$prev; </td>
</tr>

<tr>
<td  class="h" >
<a name="1215">1215</a>
</td>

<td  class="c3" >

350

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

498

</td>

<td class="s">                     $prev_action_ref  = \$prev_action; </td>
</tr>

<tr>
<td  class="h" >
<a name="1216">1216</a>
</td>

<td  class="c3" >

350

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

441

</td>

<td class="s">                     $prev_line_indent = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1217">1217</a>
</td>

<td  class="c3" >

350

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

461

</td>

<td class="s">                     $prev_line_len    = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1218">1218</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1219">1219</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 else </td>
</tr>

<tr>
<td  class="h" >
<a name="1220">1220</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1221">1221</a>
</td>

<td  class="c3" >

816

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1256

</td>

<td class="s">                     $prev_ref         = \$para_lines[$i - 1]; </td>
</tr>

<tr>
<td  class="h" >
<a name="1222">1222</a>
</td>

<td  class="c3" >

816

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1098

</td>

<td class="s">                     $prev_action_ref  = \$para_line_action[$i - 1]; </td>
</tr>

<tr>
<td  class="h" >
<a name="1223">1223</a>
</td>

<td  class="c3" >

816

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1001

</td>

<td class="s">                     $prev_line_indent = $para_line_indent[$i - 1]; </td>
</tr>

<tr>
<td  class="h" >
<a name="1224">1224</a>
</td>

<td  class="c3" >

816

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1171

</td>

<td class="s">                     $prev_line_len    = $para_line_len[$i - 1]; </td>
</tr>

<tr>
<td  class="h" >
<a name="1225">1225</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1226">1226</a>
</td>

<td  class="c3" >

1166

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1159

</td>

<td class="s">                 my $next_ref; </td>
</tr>

<tr>
<td  class="h" >
<a name="1227">1227</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1227-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1996

</td>

<td class="s">                 if ($i == $#para_lines) </td>
</tr>

<tr>
<td  class="h" >
<a name="1228">1228</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1229">1229</a>
</td>

<td  class="c3" >

350

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

488

</td>

<td class="s">                     $next_ref = undef; </td>
</tr>

<tr>
<td  class="h" >
<a name="1230">1230</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1231">1231</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 else </td>
</tr>

<tr>
<td  class="h" >
<a name="1232">1232</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1233">1233</a>
</td>

<td  class="c3" >

816

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1340

</td>

<td class="s">                     $next_ref = \$para_lines[$i + 1]; </td>
</tr>

<tr>
<td  class="h" >
<a name="1234">1234</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1235">1235</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1236">1236</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1236-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3954

</td>

<td class="s">                 $para_lines[$i] = escape($para_lines[$i]) </td>
</tr>

<tr>
<td  class="h" >
<a name="1237">1237</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   if ($self->{escape_HTML_chars}); </td>
</tr>

<tr>
<td  class="h" >
<a name="1238">1238</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1239">1239</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1239-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1239-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

4347

</td>

<td class="s">                 if ($self->{mailmode} </td>
</tr>

<tr>
<td  class="h" >
<a name="1240">1240</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     && !($self->{__mode} & ($PRE_EXPLICIT))) </td>
</tr>

<tr>
<td  class="h" >
<a name="1241">1241</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1242">1242</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1385

</td>

<td class="s">                     $self->mailquote( </td>
</tr>

<tr>
<td  class="h" >
<a name="1243">1243</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_ref        => \$para_lines[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1244">1244</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_action_ref => \$para_line_action[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1245">1245</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_ref        => $prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="1246">1246</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_action_ref => $prev_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="1247">1247</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         next_ref        => $next_ref </td>
</tr>

<tr>
<td  class="h" >
<a name="1248">1248</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1249">1249</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1250">1250</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1251">1251</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1251-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1251-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

3439

</td>

<td class="s">                 if (   ($self->{__mode} & $PRE) </td>
</tr>

<tr>
<td  class="h" >
<a name="1252">1252</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     && ($self->{preformat_trigger_lines} != 0)) </td>
</tr>

<tr>
<td  class="h" >
<a name="1253">1253</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1254">1254</a>
</td>

<td  class="c3" >

85

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

248

</td>

<td class="s">                     $self->endpreformat( </td>
</tr>

<tr>
<td  class="h" >
<a name="1255">1255</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         para_lines_ref  => \@para_lines, </td>
</tr>

<tr>
<td  class="h" >
<a name="1256">1256</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         para_action_ref => \@para_line_action, </td>
</tr>

<tr>
<td  class="h" >
<a name="1257">1257</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         ind             => $i, </td>
</tr>

<tr>
<td  class="h" >
<a name="1258">1258</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_ref        => $prev_ref </td>
</tr>

<tr>
<td  class="h" >
<a name="1259">1259</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1260">1260</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1261">1261</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1262">1262</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1262-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2702

</td>

<td class="s">                 if (!($self->{__mode} & $PRE)) </td>
</tr>

<tr>
<td  class="h" >
<a name="1263">1263</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1264">1264</a>
</td>

<td  class="c3" >

1086

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2922

</td>

<td class="s">                     $self->hrule( </td>
</tr>

<tr>
<td  class="h" >
<a name="1265">1265</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         para_lines_ref  => \@para_lines, </td>
</tr>

<tr>
<td  class="h" >
<a name="1266">1266</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         para_action_ref => \@para_line_action, </td>
</tr>

<tr>
<td  class="h" >
<a name="1267">1267</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         ind             => $i </td>
</tr>

<tr>
<td  class="h" >
<a name="1268">1268</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1269">1269</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1270">1270</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1270-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1270-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

6679

</td>

<td class="s">                 if (!($self->{__mode} & ($PRE)) </td>
</tr>

<tr>
<td  class="h" >
<a name="1271">1271</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     && ($para_lines[$i] !~ /^\s*$/)) </td>
</tr>

<tr>
<td  class="h" >
<a name="1272">1272</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1273">1273</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3083

</td>

<td class="s">                     $self->liststuff( </td>
</tr>

<tr>
<td  class="h" >
<a name="1274">1274</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         para_lines_ref       => \@para_lines, </td>
</tr>

<tr>
<td  class="h" >
<a name="1275">1275</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         para_action_ref      => \@para_line_action, </td>
</tr>

<tr>
<td  class="h" >
<a name="1276">1276</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         para_line_indent_ref => \@para_line_indent, </td>
</tr>

<tr>
<td  class="h" >
<a name="1277">1277</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         ind                  => $i, </td>
</tr>

<tr>
<td  class="h" >
<a name="1278">1278</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_ref             => $prev_ref </td>
</tr>

<tr>
<td  class="h" >
<a name="1279">1279</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1280">1280</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1281">1281</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1281-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1281-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

8049

</td>

<td class="s">                 if (   !($para_line_action[$i] & ($HEADER | $LIST)) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1282">1282</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     && !($self->{__mode} & ($LIST | $PRE)) </td>
</tr>

<tr>
<td  class="h" >
<a name="1283">1283</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     && $self->{__preformat_enabled}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1284">1284</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1285">1285</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2876

</td>

<td class="s">                     $self->preformat( </td>
</tr>

<tr>
<td  class="h" >
<a name="1286">1286</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         mode_ref        => \$self->{__mode}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1287">1287</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_ref        => \$para_lines[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1288">1288</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_action_ref => \$para_line_action[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1289">1289</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_ref        => $prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="1290">1290</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         next_ref        => $next_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="1291">1291</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_action_ref => $prev_action_ref </td>
</tr>

<tr>
<td  class="h" >
<a name="1292">1292</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1293">1293</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1294">1294</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1294-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3127

</td>

<td class="s">                 if (!($self->{__mode} & ($PRE))) </td>
</tr>

<tr>
<td  class="h" >
<a name="1295">1295</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1296">1296</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3999

</td>

<td class="s">                     $self->paragraph( </td>
</tr>

<tr>
<td  class="h" >
<a name="1297">1297</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_ref        => \$para_lines[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1298">1298</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_action_ref => \$para_line_action[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1299">1299</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_ref        => $prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="1300">1300</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_action_ref => $prev_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="1301">1301</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_indent     => $para_line_indent[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1302">1302</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_indent     => $prev_line_indent, </td>
</tr>

<tr>
<td  class="h" >
<a name="1303">1303</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         is_fragment     => $args{is_fragment}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1304">1304</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         ind             => $i, </td>
</tr>

<tr>
<td  class="h" >
<a name="1305">1305</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1306">1306</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1307">1307</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1307-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3215

</td>

<td class="s">                 if (!($self->{__mode} & ($PRE | $LIST))) </td>
</tr>

<tr>
<td  class="h" >
<a name="1308">1308</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1309">1309</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2496

</td>

<td class="s">                     $self->shortline( </td>
</tr>

<tr>
<td  class="h" >
<a name="1310">1310</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_ref        => \$para_lines[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1311">1311</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_action_ref => \$para_line_action[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1312">1312</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_ref        => $prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="1313">1313</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_action_ref => $prev_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="1314">1314</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         prev_line_len   => $prev_line_len </td>
</tr>

<tr>
<td  class="h" >
<a name="1315">1315</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1316">1316</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1317">1317</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1317-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2879

</td>

<td class="s">                 if (!($self->{__mode} & ($PRE))) </td>
</tr>

<tr>
<td  class="h" >
<a name="1318">1318</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1319">1319</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3272

</td>

<td class="s">                     $self->caps( </td>
</tr>

<tr>
<td  class="h" >
<a name="1320">1320</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_ref        => \$para_lines[$i], </td>
</tr>

<tr>
<td  class="h" >
<a name="1321">1321</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         line_action_ref => \$para_line_action[$i] </td>
</tr>

<tr>
<td  class="h" >
<a name="1322">1322</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1323">1323</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1324">1324</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1325">1325</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 # put the "prev" line in front of the first line </td>
</tr>

<tr>
<td  class="h" >
<a name="1326">1326</a>
</td>

<td  class="c3" >

1166

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1326-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1326-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

6802

</td>

<td class="s">                 $para_lines[$i] = $prev . $para_lines[$i] </td>
</tr>

<tr>
<td  class="h" >
<a name="1327">1327</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   if ($i == 0 && ($prev !~ /^\s*$/)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1328">1328</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1329">1329</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1330">1330</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # para action is the action of the last line of the para </td>
</tr>

<tr>
<td  class="h" >
<a name="1331">1331</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

795

</td>

<td class="s">             $para_action = $para_line_action[$#para_line_action]; </td>
</tr>

<tr>
<td  class="h" >
<a name="1332">1332</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1332-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1069

</td>

<td class="s">             $para_action = $NONE if (!defined $para_action); </td>
</tr>

<tr>
<td  class="h" >
<a name="1333">1333</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1334">1334</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # push them on the done lines </td>
</tr>

<tr>
<td  class="h" >
<a name="1335">1335</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

903

</td>

<td class="s">             push @done_lines, @para_lines; </td>
</tr>

<tr>
<td  class="h" >
<a name="1336">1336</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1421

</td>

<td class="s">             @para_lines = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="1337">1337</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1338">1338</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1339">1339</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # now put the para back together as one string </td>
</tr>

<tr>
<td  class="h" >
<a name="1340">1340</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1367

</td>

<td class="s">         $para = join('', @done_lines); </td>
</tr>

<tr>
<td  class="h" >
<a name="1341">1341</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1342">1342</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # if this is a paragraph, and we are in XHTML mode, </td>
</tr>

<tr>
<td  class="h" >
<a name="1343">1343</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # close an open paragraph. </td>
</tr>

<tr>
<td  class="h" >
<a name="1344">1344</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1344-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1056

</td>

<td class="s">         if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1345">1345</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1346">1346</a>
</td>

<td  class="c3" >

367

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

468

</td>

<td class="s">             my $open_tag = @{$self->{__tags}}[$#{$self->{__tags}}]; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

367

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

674

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

367

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

680

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1347">1347</a>
</td>

<td  class="c3" >

367

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1347-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1347-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1868

</td>

<td class="s">             if (defined $open_tag && $open_tag eq 'p') </td>
</tr>

<tr>
<td  class="h" >
<a name="1348">1348</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1349">1349</a>
</td>

<td  class="c3" >

233

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

620

</td>

<td class="s">                 $para .= $self->close_tag('p'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1350">1350</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1351">1351</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1352">1352</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1353">1353</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1353-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1353-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

7267

</td>

<td class="s">         if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1354">1354</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             $self->{unhyphenation} </td>
</tr>

<tr>
<td  class="h" >
<a name="1355">1355</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1356">1356</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # ends in hyphen & next line starts w/letters </td>
</tr>

<tr>
<td  class="h" >
<a name="1357">1357</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             && ($para =~ /[^\W\d_]\-\n\s*[^\W\d_]/s) && !( </td>
</tr>

<tr>
<td  class="h" >
<a name="1358">1358</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 $self->{__mode} & </td>
</tr>

<tr>
<td  class="h" >
<a name="1359">1359</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ($PRE | $HEADER | $MAILHEADER | $TABLE | $BREAK) </td>
</tr>

<tr>
<td  class="h" >
<a name="1360">1360</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             ) </td>
</tr>

<tr>
<td  class="h" >
<a name="1361">1361</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           ) </td>
</tr>

<tr>
<td  class="h" >
<a name="1362">1362</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1363">1363</a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

37

</td>

<td class="s">             $self->unhyphenate_para(\$para); </td>
</tr>

<tr>
<td  class="h" >
<a name="1364">1364</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1365">1365</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # chop trailing newlines for continuing lists and PRE </td>
</tr>

<tr>
<td  class="h" >
<a name="1366">1366</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1366-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1366-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

2311

</td>

<td class="s">         if (   $self->{__mode} & $LIST </td>
</tr>

<tr>
<td  class="h" >
<a name="1367">1367</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || $self->{__mode} & $PRE) </td>
</tr>

<tr>
<td  class="h" >
<a name="1368">1368</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1369">1369</a>
</td>

<td  class="c3" >

86

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

459

</td>

<td class="s">             $para =~ s/\n$//g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1370">1370</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1371">1371</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1372">1372</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1373">1373</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # apply links and bold/italic/underline formatting </td>
</tr>

<tr>
<td  class="h" >
<a name="1374">1374</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1374-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1507

</td>

<td class="s">     if ($para !~ /^\s*$/) </td>
</tr>

<tr>
<td  class="h" >
<a name="1375">1375</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1376">1376</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1429

</td>

<td class="s">         $self->apply_links( </td>
</tr>

<tr>
<td  class="h" >
<a name="1377">1377</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             para_ref        => \$para, </td>
</tr>

<tr>
<td  class="h" >
<a name="1378">1378</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             para_action_ref => \$para_action </td>
</tr>

<tr>
<td  class="h" >
<a name="1379">1379</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1380">1380</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1381">1381</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1382">1382</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # close any open lists if required to </td>
</tr>

<tr>
<td  class="h" >
<a name="1383">1383</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1383-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1383-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1394

</td>

<td class="s">     if (   $args{close_tags} </td>
</tr>

<tr>
<td  class="h" >
<a name="1384">1384</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $self->{__mode} & $LIST)    # End all lists </td>
</tr>

<tr>
<td  class="h" >
<a name="1385">1385</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1386">1386</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s">         $self->endlist( </td>
</tr>

<tr>
<td  class="h" >
<a name="1387">1387</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             num_lists       => $self->{__listnum}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1388">1388</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             prev_ref        => \$para, </td>
</tr>

<tr>
<td  class="h" >
<a name="1389">1389</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_action_ref => \$para_action </td>
</tr>

<tr>
<td  class="h" >
<a name="1390">1390</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1391">1391</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1392">1392</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # close any open tags </td>
</tr>

<tr>
<td  class="h" >
<a name="1393">1393</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1393-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1393-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1118

</td>

<td class="s">     if ($args{close_tags} && $self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1394">1394</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1395">1395</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">         while (@{$self->{__tags}}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

22

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1396">1396</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1397">1397</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $para .= $self->close_tag(''); </td>
</tr>

<tr>
<td  class="h" >
<a name="1398">1398</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1399">1399</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1400">1400</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1401">1401</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # convert remaining Microsoft character codes into sensible HTML </td>
</tr>

<tr>
<td  class="h" >
<a name="1402">1402</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1402-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1402-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

2307

</td>

<td class="s">     if ($self->{demoronize} && !$self->{eight_bit_clean}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1403">1403</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1404">1404</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1084

</td>

<td class="s">         $para = demoronize_code($para); </td>
</tr>

<tr>
<td  class="h" >
<a name="1405">1405</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1406">1406</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # All the matching and formatting is done.  Now we can </td>
</tr>

<tr>
<td  class="h" >
<a name="1407">1407</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # replace non-ASCII characters with character entities. </td>
</tr>

<tr>
<td  class="h" >
<a name="1408">1408</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1408-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1303

</td>

<td class="s">     if (!$self->{eight_bit_clean}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1409">1409</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1410">1410</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

28107

</td>

<td class="s">         my @chars = split(//, $para); </td>
</tr>

<tr>
<td  class="h" >
<a name="1411">1411</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3997

</td>

<td class="s">         foreach $_ (@chars) </td>
</tr>

<tr>
<td  class="h" >
<a name="1412">1412</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1413">1413</a>
</td>

<td  class="c3" >

100265

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1413-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

200944

</td>

<td class="s">             $_ = $char_entities{$_} if defined($char_entities{$_}); </td>
</tr>

<tr>
<td  class="h" >
<a name="1414">1414</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1415">1415</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12184

</td>

<td class="s">         $para = join('', @chars); </td>
</tr>

<tr>
<td  class="h" >
<a name="1416">1416</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1417">1417</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1418">1418</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

988

</td>

<td class="s">     $self->{__prev_para_action} = $para_action; </td>
</tr>

<tr>
<td  class="h" >
<a name="1419">1419</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1420">1420</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2450

</td>

<td class="s">     return $para; </td>
</tr>

<tr>
<td  class="h" >
<a name="1421">1421</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # process_para </td>
</tr>

<tr>
<td  class="h" >
<a name="1422">1422</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1423">1423</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 txt2html </td>
</tr>

<tr>
<td  class="h" >
<a name="1424">1424</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1425">1425</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $conv->txt2html(%args); </td>
</tr>

<tr>
<td  class="h" >
<a name="1426">1426</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1427">1427</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Convert a text file to HTML.  Takes a hash of arguments.  See </td>
</tr>

<tr>
<td  class="h" >
<a name="1428">1428</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> L</OPTIONS> for the possible values of the arguments.  Arguments which </td>
</tr>

<tr>
<td  class="h" >
<a name="1429">1429</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> have already been set with B<new> or B<args> will remain as they are, </td>
</tr>

<tr>
<td  class="h" >
<a name="1430">1430</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> unless they are overridden. </td>
</tr>

<tr>
<td  class="h" >
<a name="1431">1431</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1432">1432</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="1433">1433</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1434">1434</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub txt2html ($;$) </td>
</tr>

<tr>
<td  class="h" >
<a name="1435">1435</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="1436">1436</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1436-1"> 
38
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1436-1"> 
1
 </a> 
</td>

<td >

39948

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1437">1437</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1438">1438</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1438-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

140

</td>

<td class="s">     if (@_) </td>
</tr>

<tr>
<td  class="h" >
<a name="1439">1439</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1440">1440</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

138

</td>

<td class="s">         $self->args(@_); </td>
</tr>

<tr>
<td  class="h" >
<a name="1441">1441</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1442">1442</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1443">1443</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

158

</td>

<td class="s">     $self->do_init_call(); </td>
</tr>

<tr>
<td  class="h" >
<a name="1444">1444</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1445">1445</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

91

</td>

<td class="s">     my $outhandle; </td>
</tr>

<tr>
<td  class="h" >
<a name="1446">1446</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $outhandle_needs_closing; </td>
</tr>

<tr>
<td  class="h" >
<a name="1447">1447</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1448">1448</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # set up the output </td>
</tr>

<tr>
<td  class="h" >
<a name="1449">1449</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1449-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

339

</td>

<td class="s">     if ($self->{outhandle}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1450">1450</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1451">1451</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">         $outhandle               = $self->{outhandle}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1452">1452</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">         $outhandle_needs_closing = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1453">1453</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1454">1454</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($self->{outfile} eq "-") </td>
</tr>

<tr>
<td  class="h" >
<a name="1455">1455</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1456">1456</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $outhandle               = *STDOUT; </td>
</tr>

<tr>
<td  class="h" >
<a name="1457">1457</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $outhandle_needs_closing = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1458">1458</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1459">1459</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="1460">1460</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1461">1461</a>
</td>

<td  class="c3" >

37

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1461-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5903

</td>

<td class="s">         open($outhandle, "> " . $self->{outfile}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1462">1462</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           || die "Error: unable to open ", $self->{outfile}, ": $!\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1463">1463</a>
</td>

<td  class="c3" >

37

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

124

</td>

<td class="s">         $outhandle_needs_closing = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1464">1464</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1465">1465</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1466">1466</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # slurp up a paragraph at a time, a file at a time </td>
</tr>

<tr>
<td  class="h" >
<a name="1467">1467</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

298

</td>

<td class="s">     local $/ = ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="1468">1468</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

98

</td>

<td class="s">     my $para        = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1469">1469</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

81

</td>

<td class="s">     my $count       = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1470">1470</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

70

</td>

<td class="s">     my $print_count = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1471">1471</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

100

</td>

<td class="s">     my @sources     = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="1472">1472</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

91

</td>

<td class="s">     my $source_type; </td>
</tr>

<tr>
<td  class="h" >
<a name="1473">1473</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1473-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1473-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

269

</td>

<td class="s">     if ($self->{infile} and @{$self->{infile}}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

38

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

264

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1474">1474</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1475">1475</a>
</td>

<td  class="c3" >

36

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

82

</td>

<td class="s">         @sources     = @{$self->{infile}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

36

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

149

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1476">1476</a>
</td>

<td  class="c3" >

36

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

87

</td>

<td class="s">         $source_type = 'file'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1477">1477</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1478">1478</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($self->{inhandle} and @{$self->{inhandle}}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1479">1479</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1480">1480</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">         @sources     = @{$self->{inhandle}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1481">1481</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">         $source_type = 'filehandle'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1482">1482</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1483">1483</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($self->{instring} and @{$self->{instring}}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1484">1484</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1485">1485</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         @sources     = @{$self->{instring}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1486">1486</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $source_type = 'string'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1487">1487</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1488">1488</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

72

</td>

<td class="s">     my $inhandle; </td>
</tr>

<tr>
<td  class="h" >
<a name="1489">1489</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

68

</td>

<td class="s">     my $inhandle_needs_closing = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1490">1490</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

124

</td>

<td class="s">     foreach my $source (@sources) </td>
</tr>

<tr>
<td  class="h" >
<a name="1491">1491</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1492">1492</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

76

</td>

<td class="s">         $inhandle = undef; </td>
</tr>

<tr>
<td  class="h" >
<a name="1493">1493</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1493-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

150

</td>

<td class="s">         if ($source_type eq 'file') </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1494">1494</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1495">1495</a>
</td>

<td  class="c3" >

36

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1495-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1495-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

302

</td>

<td class="s">             if (!$source or $source eq '-') </td>
</tr>

<tr>
<td  class="h" >
<a name="1496">1496</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1497">1497</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $inhandle               = *STDIN; </td>
</tr>

<tr>
<td  class="h" >
<a name="1498">1498</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $inhandle_needs_closing = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1499">1499</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1500">1500</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             else </td>
</tr>

<tr>
<td  class="h" >
<a name="1501">1501</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1502">1502</a>
</td>

<td  class="c3" >

36

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1502-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1502-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

2084

</td>

<td class="s">                 if (-f $source && open($inhandle, $source)) </td>
</tr>

<tr>
<td  class="h" >
<a name="1503">1503</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1504">1504</a>
</td>

<td  class="c3" >

36

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

109

</td>

<td class="s">                     $inhandle_needs_closing = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1505">1505</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1506">1506</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 else    # error </td>
</tr>

<tr>
<td  class="h" >
<a name="1507">1507</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1508">1508</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     warn "Could not open $source\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1509">1509</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     next; </td>
</tr>

<tr>
<td  class="h" >
<a name="1510">1510</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1511">1511</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1512">1512</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1513">1513</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ($source_type eq 'filehandle') </td>
</tr>

<tr>
<td  class="h" >
<a name="1514">1514</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1515">1515</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">             $inhandle               = $source; </td>
</tr>

<tr>
<td  class="h" >
<a name="1516">1516</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">             $inhandle_needs_closing = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1517">1517</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1518">1518</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1518-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

142

</td>

<td class="s">         if ($source_type eq 'string') </td>
</tr>

<tr>
<td  class="h" >
<a name="1519">1519</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1520">1520</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # process the string </td>
</tr>

<tr>
<td  class="h" >
<a name="1521">1521</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $para = $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="1522">1522</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $para =~ s/\n$//;    # trim the endline </td>
</tr>

<tr>
<td  class="h" >
<a name="1523">1523</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1523-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             if ($count == 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="1524">1524</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1525">1525</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $self->do_file_start($outhandle, $para); </td>
</tr>

<tr>
<td  class="h" >
<a name="1526">1526</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1527">1527</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $self->{__done_with_sect_link} = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1528">1528</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $para = $self->process_chunk($para, close_tags => 0); </td>
</tr>

<tr>
<td  class="h" >
<a name="1529">1529</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print $outhandle $para, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1530">1530</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $print_count++; </td>
</tr>

<tr>
<td  class="h" >
<a name="1531">1531</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $count++; </td>
</tr>

<tr>
<td  class="h" >
<a name="1532">1532</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1533">1533</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else                     # file or filehandle </td>
</tr>

<tr>
<td  class="h" >
<a name="1534">1534</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1535">1535</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

988

</td>

<td class="s">             while (<$inhandle>) </td>
</tr>

<tr>
<td  class="h" >
<a name="1536">1536</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1537">1537</a>
</td>

<td  class="c3" >

339

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

722

</td>

<td class="s">                 $para = $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="1538">1538</a>
</td>

<td  class="c3" >

339

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1849

</td>

<td class="s">                 $para =~ s/\n$//;    # trim the endline </td>
</tr>

<tr>
<td  class="h" >
<a name="1539">1539</a>
</td>

<td  class="c3" >

339

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1539-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1027

</td>

<td class="s">                 if ($count == 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="1540">1540</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="1541">1541</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

172

</td>

<td class="s">                     $self->do_file_start($outhandle, $para); </td>
</tr>

<tr>
<td  class="h" >
<a name="1542">1542</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="1543">1543</a>
</td>

<td  class="c3" >

339

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

835

</td>

<td class="s">                 $self->{__done_with_sect_link} = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1544">1544</a>
</td>

<td  class="c3" >

339

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1068

</td>

<td class="s">                 $para = $self->process_chunk($para, close_tags => 0); </td>
</tr>

<tr>
<td  class="h" >
<a name="1545">1545</a>
</td>

<td  class="c3" >

339

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4768

</td>

<td class="s">                 print $outhandle $para, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1546">1546</a>
</td>

<td  class="c3" >

339

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

398

</td>

<td class="s">                 $print_count++; </td>
</tr>

<tr>
<td  class="h" >
<a name="1547">1547</a>
</td>

<td  class="c3" >

339

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2321

</td>

<td class="s">                 $count++; </td>
</tr>

<tr>
<td  class="h" >
<a name="1548">1548</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1549">1549</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1549-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

139

</td>

<td class="s">             if ($inhandle_needs_closing) </td>
</tr>

<tr>
<td  class="h" >
<a name="1550">1550</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1551">1551</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1517

</td>

<td class="s">                 close($inhandle); </td>
</tr>

<tr>
<td  class="h" >
<a name="1552">1552</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1553">1553</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1554">1554</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     }    # for each file </td>
</tr>

<tr>
<td  class="h" >
<a name="1555">1555</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1556">1556</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

144

</td>

<td class="s">     $self->{__prev} = ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="1557">1557</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1557-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

197

</td>

<td class="s">     if ($self->{__mode} & $LIST)    # End all lists </td>
</tr>

<tr>
<td  class="h" >
<a name="1558">1558</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1559">1559</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

48

</td>

<td class="s">         $self->endlist( </td>
</tr>

<tr>
<td  class="h" >
<a name="1560">1560</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             num_lists       => $self->{__listnum}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1561">1561</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             prev_ref        => \$self->{__prev}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1562">1562</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_action_ref => \$self->{__line_action} </td>
</tr>

<tr>
<td  class="h" >
<a name="1563">1563</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="1564">1564</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1565">1565</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

102

</td>

<td class="s">     print $outhandle $self->{__prev}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1566">1566</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1567">1567</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # end open preformats </td>
</tr>

<tr>
<td  class="h" >
<a name="1568">1568</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1568-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

124

</td>

<td class="s">     if ($self->{__mode} & $PRE) </td>
</tr>

<tr>
<td  class="h" >
<a name="1569">1569</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1570">1570</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">         my $tag = $self->close_tag('pre'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1571">1571</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">         print $outhandle $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="1572">1572</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1573">1573</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1574">1574</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # close all open tags </td>
</tr>

<tr>
<td  class="h" >
<a name="1575">1575</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1575-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1575-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

287

</td>

<td class="s">     if (   $self->{xhtml} </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

70

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1576">1576</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !$self->{extract} </td>
</tr>

<tr>
<td  class="h" >
<a name="1577">1577</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && @{$self->{__tags}}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1578">1578</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1579">1579</a>
</td>

<td  class="c3" >

12

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1579-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">         if ($DictDebug & 8) </td>
</tr>

<tr>
<td  class="h" >
<a name="1580">1580</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1581">1581</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "closing all tags at end\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1582">1582</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1583">1583</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # close any open tags (until we get to the body) </td>
</tr>

<tr>
<td  class="h" >
<a name="1584">1584</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20

</td>

<td class="s">         my $open_tag = @{$self->{__tags}}[$#{$self->{__tags}}]; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1585">1585</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1585-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

33

</td>

<td class="s">         while (@{$self->{__tags}} </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

94

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1586">1586</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             && $open_tag ne 'body' </td>
</tr>

<tr>
<td  class="h" >
<a name="1587">1587</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             && $open_tag ne 'html') </td>
</tr>

<tr>
<td  class="h" >
<a name="1588">1588</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1589">1589</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print $outhandle $self->close_tag(''); </td>
</tr>

<tr>
<td  class="h" >
<a name="1590">1590</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $open_tag = @{$self->{__tags}}[$#{$self->{__tags}}]; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1591">1591</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1592">1592</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

46

</td>

<td class="s">         print $outhandle "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1593">1593</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1594">1594</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1595">1595</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1595-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

140

</td>

<td class="s">     if ($self->{append_file}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1596">1596</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1597">1597</a>
</td>

<td  class="c3" >

2

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1597-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

73

</td>

<td class="s">         if (-r $self->{append_file}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1598">1598</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1599">1599</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

83

</td>

<td class="s">             open(APPEND, $self->{append_file}); </td>
</tr>

<tr>
<td  class="h" >
<a name="1600">1600</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">             while (<APPEND>) </td>
</tr>

<tr>
<td  class="h" >
<a name="1601">1601</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="1602">1602</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">                 print $outhandle $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="1603">1603</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">                 $print_count++; </td>
</tr>

<tr>
<td  class="h" >
<a name="1604">1604</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="1605">1605</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20

</td>

<td class="s">             close(APPEND); </td>
</tr>

<tr>
<td  class="h" >
<a name="1606">1606</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1607">1607</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="1608">1608</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1609">1609</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "Can't find or read file ", $self->{append_file}, </td>
</tr>

<tr>
<td  class="h" >
<a name="1610">1610</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               " to append.\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1611">1611</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1612">1612</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1613">1613</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1614">1614</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # print the closing tags (if we have printed stuff at all) </td>
</tr>

<tr>
<td  class="h" >
<a name="1615">1615</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1615-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1615-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

289

</td>

<td class="s">     if ($print_count && !$self->{extract}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1616">1616</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1617">1617</a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

46

</td>

<td class="s">         print $outhandle $self->close_tag('body'), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1618">1618</a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s">         print $outhandle $self->close_tag('html'), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1619">1619</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1620">1620</a>
</td>

<td  class="c3" >

38

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1620-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

110

</td>

<td class="s">     if ($outhandle_needs_closing) </td>
</tr>

<tr>
<td  class="h" >
<a name="1621">1621</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1622">1622</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3632

</td>

<td class="s">         close($outhandle); </td>
</tr>

<tr>
<td  class="h" >
<a name="1623">1623</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1624">1624</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

627

</td>

<td class="s">     return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1625">1625</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1626">1626</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1627">1627</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 PRIVATE METHODS </td>
</tr>

<tr>
<td  class="h" >
<a name="1628">1628</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1629">1629</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> These are methods used internally, only of interest to developers. </td>
</tr>

<tr>
<td  class="h" >
<a name="1630">1630</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1631">1631</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="1632">1632</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1633">1633</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #---------------------------------------------------------------# </td>
</tr>

<tr>
<td  class="h" >
<a name="1634">1634</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Init-related subroutines </td>
</tr>

<tr>
<td  class="h" >
<a name="1635">1635</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1636">1636</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 init_our_data </td>
</tr>

<tr>
<td  class="h" >
<a name="1637">1637</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1638">1638</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $self->init_our_data(); </td>
</tr>

<tr>
<td  class="h" >
<a name="1639">1639</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1640">1640</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Initializes the internal object data. </td>
</tr>

<tr>
<td  class="h" >
<a name="1641">1641</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1642">1642</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="1643">1643</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub init_our_data ($) </td>
</tr>

<tr>
<td  class="h" >
<a name="1644">1644</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="1645">1645</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1645-1"> 
26
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1645-1"> 
1
 </a> 
</td>

<td >

191

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1646">1646</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1647">1647</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # </td>
</tr>

<tr>
<td  class="h" >
<a name="1648">1648</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # All the options, in alphabetical order </td>
</tr>

<tr>
<td  class="h" >
<a name="1649">1649</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # </td>
</tr>

<tr>
<td  class="h" >
<a name="1650">1650</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

101

</td>

<td class="s">     $self->{append_file}           = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1651">1651</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

71

</td>

<td class="s">     $self->{append_head}           = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1652">1652</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

70

</td>

<td class="s">     $self->{body_deco}             = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1653">1653</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

81

</td>

<td class="s">     $self->{bullets}               = '-=o*\267'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1654">1654</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

57

</td>

<td class="s">     $self->{bullets_ordered}       = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1655">1655</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

62

</td>

<td class="s">     $self->{bold_delimiter}        = '#'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1656">1656</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

65

</td>

<td class="s">     $self->{caps_tag}              = 'STRONG'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1657">1657</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

104

</td>

<td class="s">     $self->{custom_heading_regexp} = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1658">1658</a>
</td>

<td  class="c3" >

26

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1658-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

262

</td>

<td class="s">     $self->{default_link_dict}     = </td>
</tr>

<tr>
<td  class="h" >
<a name="1659">1659</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ($ENV{HOME} ? "$ENV{HOME}/.txt2html.dict" : '.txt2html.dict'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1660">1660</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

71

</td>

<td class="s">     $self->{doctype}                    = '-//W3C//DTD HTML 4.01//EN" </td>
</tr>

<tr>
<td  class="h" >
<a name="1661">1661</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "http://www.w3.org/TR/html4/strict.dtd'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1662">1662</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

54

</td>

<td class="s">     $self->{demoronize}                 = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1663">1663</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

54

</td>

<td class="s">     $self->{eight_bit_clean}            = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1664">1664</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

60

</td>

<td class="s">     $self->{escape_HTML_chars}          = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1665">1665</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

59

</td>

<td class="s">     $self->{explicit_headings}          = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1666">1666</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

52

</td>

<td class="s">     $self->{extract}                    = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1667">1667</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

94

</td>

<td class="s">     $self->{hrule_min}                  = 4; </td>
</tr>

<tr>
<td  class="h" >
<a name="1668">1668</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

124

</td>

<td class="s">     $self->{indent_width}               = 2; </td>
</tr>

<tr>
<td  class="h" >
<a name="1669">1669</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

58

</td>

<td class="s">     $self->{indent_par_break}           = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1670">1670</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

208

</td>

<td class="s">     $self->{infile}                     = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1671">1671</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

139

</td>

<td class="s">     $self->{inhandle}                   = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1672">1672</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

320

</td>

<td class="s">     $self->{instring}                   = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1673">1673</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

59

</td>

<td class="s">     $self->{italic_delimiter}           = '*'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1674">1674</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

68

</td>

<td class="s">     $self->{links_dictionaries}         = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1675">1675</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

58

</td>

<td class="s">     $self->{link_only}                  = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1676">1676</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

47

</td>

<td class="s">     $self->{lower_case_tags}            = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1677">1677</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

69

</td>

<td class="s">     $self->{mailmode}                   = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1678">1678</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

54

</td>

<td class="s">     $self->{make_anchors}               = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1679">1679</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

120

</td>

<td class="s">     $self->{make_links}                 = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1680">1680</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

56

</td>

<td class="s">     $self->{make_tables}                = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1681">1681</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s">     $self->{min_caps_length}            = 3; </td>
</tr>

<tr>
<td  class="h" >
<a name="1682">1682</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

58

</td>

<td class="s">     $self->{outfile}                    = '-'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1683">1683</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

128

</td>

<td class="s">     $self->{par_indent}                 = 2; </td>
</tr>

<tr>
<td  class="h" >
<a name="1684">1684</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

65

</td>

<td class="s">     $self->{preformat_trigger_lines}    = 2; </td>
</tr>

<tr>
<td  class="h" >
<a name="1685">1685</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

57

</td>

<td class="s">     $self->{endpreformat_trigger_lines} = 2; </td>
</tr>

<tr>
<td  class="h" >
<a name="1686">1686</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

68

</td>

<td class="s">     $self->{preformat_start_marker}     = "^(:?(:?<)|<)PRE(:?(:?>)|>)\$"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1687">1687</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

53

</td>

<td class="s">     $self->{preformat_end_marker}       = "^(:?(:?<)|<)/PRE(:?(:?>)|>)\$"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1688">1688</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

47

</td>

<td class="s">     $self->{preformat_whitespace_min}   = 5; </td>
</tr>

<tr>
<td  class="h" >
<a name="1689">1689</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

60

</td>

<td class="s">     $self->{prepend_file}               = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1690">1690</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

51

</td>

<td class="s">     $self->{preserve_indent}            = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1691">1691</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

53

</td>

<td class="s">     $self->{short_line_length}          = 40; </td>
</tr>

<tr>
<td  class="h" >
<a name="1692">1692</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

79

</td>

<td class="s">     $self->{style_url}                  = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1693">1693</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

60

</td>

<td class="s">     $self->{tab_width}                  = 8; </td>
</tr>

<tr>
<td  class="h" >
<a name="1694">1694</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

184

</td>

<td class="s">     $self->{table_type}                 = { </td>
</tr>

<tr>
<td  class="h" >
<a name="1695">1695</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ALIGN  => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="1696">1696</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         PGSQL  => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="1697">1697</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         BORDER => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="1698">1698</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         DELIM  => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="1699">1699</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     }; </td>
</tr>

<tr>
<td  class="h" >
<a name="1700">1700</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

76

</td>

<td class="s">     $self->{title}                      = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1701">1701</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

58

</td>

<td class="s">     $self->{titlefirst}                 = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1702">1702</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

62

</td>

<td class="s">     $self->{underline_delimiter}        = '_'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1703">1703</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

65

</td>

<td class="s">     $self->{underline_length_tolerance} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1704">1704</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

63

</td>

<td class="s">     $self->{underline_offset_tolerance} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1705">1705</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

57

</td>

<td class="s">     $self->{unhyphenation}              = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1706">1706</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

56

</td>

<td class="s">     $self->{use_mosaic_header}          = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1707">1707</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

69

</td>

<td class="s">     $self->{use_preformat_marker}       = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1708">1708</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

54

</td>

<td class="s">     $self->{xhtml}                      = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1709">1709</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1710">1710</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # accumulation variables </td>
</tr>

<tr>
<td  class="h" >
<a name="1711">1711</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

48

</td>

<td class="s">     $self->{__file}               = "";    # Current file being processed </td>
</tr>

<tr>
<td  class="h" >
<a name="1712">1712</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

131

</td>

<td class="s">     $self->{__heading_styles}     = {}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1713">1713</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

64

</td>

<td class="s">     $self->{__num_heading_styles} = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1714">1714</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

75

</td>

<td class="s">     $self->{__links_table}        = {}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1715">1715</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

73

</td>

<td class="s">     $self->{__links_table_order}  = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1716">1716</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

67

</td>

<td class="s">     $self->{__links_table_patterns} = {}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1717">1717</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

64

</td>

<td class="s">     $self->{__search_patterns}    = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1718">1718</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

64

</td>

<td class="s">     $self->{__repl_code}          = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1719">1719</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

50

</td>

<td class="s">     $self->{__prev_para_action}   = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1720">1720</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

48

</td>

<td class="s">     $self->{__non_header_anchor}  = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1721">1721</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

46

</td>

<td class="s">     $self->{__mode}               = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1722">1722</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

160

</td>

<td class="s">     $self->{__listnum}            = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1723">1723</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

56

</td>

<td class="s">     $self->{__list_nice_indent}   = ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="1724">1724</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

62

</td>

<td class="s">     $self->{__list_indent}        = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="1725">1725</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1726">1726</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

53

</td>

<td class="s">     $self->{__call_init_done} = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1727">1727</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1728">1728</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # </td>
</tr>

<tr>
<td  class="h" >
<a name="1729">1729</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # The global links data </td>
</tr>

<tr>
<td  class="h" >
<a name="1730">1730</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # </td>
</tr>

<tr>
<td  class="h" >
<a name="1731">1731</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

46

</td>

<td class="s">     my $system_dict = <<'EOT'; </td>
</tr>

<tr>
<td  class="h" >
<a name="1732">1732</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # </td>
</tr>

<tr>
<td  class="h" >
<a name="1733">1733</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Global links dictionary file for HTML::TextToHTML </td>
</tr>

<tr>
<td  class="h" >
<a name="1734">1734</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # http://www.katspace.com/tools/text_to_html </td>
</tr>

<tr>
<td  class="h" >
<a name="1735">1735</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # http://txt2html.sourceforge.net/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1736">1736</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # based on links dictionary for Seth Golub's txt2html </td>
</tr>

<tr>
<td  class="h" >
<a name="1737">1737</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # http://www.aigeek.com/txt2html/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1738">1738</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # </td>
</tr>

<tr>
<td  class="h" >
<a name="1739">1739</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # This dictionary contains some patterns for converting obvious URLs, </td>
</tr>

<tr>
<td  class="h" >
<a name="1740">1740</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # ftp sites, hostnames, email addresses and the like to hrefs. </td>
</tr>

<tr>
<td  class="h" >
<a name="1741">1741</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # </td>
</tr>

<tr>
<td  class="h" >
<a name="1742">1742</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Original adapted from the html.pl package by Oscar Nierstrasz in </td>
</tr>

<tr>
<td  class="h" >
<a name="1743">1743</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # the Software Archive of the Software Composition Group </td>
</tr>

<tr>
<td  class="h" >
<a name="1744">1744</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # http://iamwww.unibe.ch/~scg/Src/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1745">1745</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # </td>
</tr>

<tr>
<td  class="h" >
<a name="1746">1746</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1747">1747</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Some people even like to mark the URL label explicitly <URL:foo:label> </td>
</tr>

<tr>
<td  class="h" >
<a name="1748">1748</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> /<URL:([-\w\.\/:~_\@]+):([a-zA-Z0-9'() ]+)>/ -h-> <A HREF="$1">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1749">1749</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1750">1750</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Some people like to mark URLs explicitly <URL:foo> </td>
</tr>

<tr>
<td  class="h" >
<a name="1751">1751</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> /<URL:\s*(\S+?)\s*>/ -h-> <A HREF="$1">$1</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1752">1752</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1753">1753</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #  <http://site> </td>
</tr>

<tr>
<td  class="h" >
<a name="1754">1754</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> /<(http:\S+?)\s*>/ -h-> <<A HREF="$1">$1</A>> </td>
</tr>

<tr>
<td  class="h" >
<a name="1755">1755</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1756">1756</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Urls: <service>:<rest-of-url> </td>
</tr>

<tr>
<td  class="h" >
<a name="1757">1757</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1758">1758</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |snews:[\w\.]+|        -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1759">1759</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |news:[\w\.]+|         -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1760">1760</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |nntp:[\w/\.:+\-]+|    -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1761">1761</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |http:[\w/\.:\@+\-~\%#?=&;,]+[\w/]|  -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1762">1762</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |shttp:[\w/\.:+\-~\%#?=&;,]+| -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1763">1763</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |https:[\w/\.:+\-~\%#?=&;,]+| -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1764">1764</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |file:[\w/\.:+\-]+|     -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1765">1765</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |ftp:[\w/\.:+\-]+|      -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1766">1766</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |wais:[\w/\.:+\-]+|     -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1767">1767</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |gopher:[\w/\.:+\-]+|   -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1768">1768</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |telnet:[\w/\@\.:+\-]+|   -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="1769">1769</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1770">1770</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1771">1771</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # catch some newsgroups to avoid confusion with sites: </td>
</tr>

<tr>
<td  class="h" >
<a name="1772">1772</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(alt\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1773">1773</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(bionet\.[\w\.+\-]+[\w+\-]+)| -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1774">1774</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(bit\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1775">1775</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(biz\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1776">1776</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(clari\.[\w\.+\-]+[\w+\-]+)|  -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1777">1777</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(comp\.[\w\.+\-]+[\w+\-]+)|   -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1778">1778</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(gnu\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1779">1779</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(humanities\.[\w\.+\-]+[\w+\-]+)|  </td>
</tr>

<tr>
<td  class="h" >
<a name="1780">1780</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1781">1781</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(k12\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1782">1782</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(misc\.[\w\.+\-]+[\w+\-]+)|   -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1783">1783</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(news\.[\w\.+\-]+[\w+\-]+)|   -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1784">1784</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(rec\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1785">1785</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(soc\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1786">1786</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(talk\.[\w\.+\-]+[\w+\-]+)|   -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1787">1787</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(us\.[\w\.+\-]+[\w+\-]+)|     -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1788">1788</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(ch\.[\w\.+\-]+[\w+\-]+)|     -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1789">1789</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])(de\.[\w\.+\-]+[\w+\-]+)|     -h-> $1<A HREF="news:$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1790">1790</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1791">1791</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # FTP locations (with directory): </td>
</tr>

<tr>
<td  class="h" >
<a name="1792">1792</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # anonymous@<site>:<path> </td>
</tr>

<tr>
<td  class="h" >
<a name="1793">1793</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |(anonymous\@)([[:alpha:]][\w\.+\-]+\.[[:alpha:]]{2,}):(\s*)([\w\d+\-/\.]+)| </td>
</tr>

<tr>
<td  class="h" >
<a name="1794">1794</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> $1<A HREF="ftp://$2/$4">$2:$4</A>$3 </td>
</tr>

<tr>
<td  class="h" >
<a name="1795">1795</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1796">1796</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # ftp@<site>:<path> </td>
</tr>

<tr>
<td  class="h" >
<a name="1797">1797</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |(ftp\@)([[:alpha:]][\w\.+\-]+\.[[:alpha:]]{2,}):(\s*)([\w\d+\-/\.]+)| </td>
</tr>

<tr>
<td  class="h" >
<a name="1798">1798</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> $1<A HREF="ftp://$2/$4">$2:$4</A>$3 </td>
</tr>

<tr>
<td  class="h" >
<a name="1799">1799</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1800">1800</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Email address </td>
</tr>

<tr>
<td  class="h" >
<a name="1801">1801</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |[[:alnum:]_\+\-\.]+\@([[:alnum:]][\w\.+\-]+\.[[:alpha:]]{2,})| </td>
</tr>

<tr>
<td  class="h" >
<a name="1802">1802</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -> mailto:$& </td>
</tr>

<tr>
<td  class="h" >
<a name="1803">1803</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1804">1804</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # <site>:<path> </td>
</tr>

<tr>
<td  class="h" >
<a name="1805">1805</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@>])([[:alpha:]][\w\.+\-]+\.[[:alpha:]]{2,}):(\s*)([\w\d+\-/\.]+)| </td>
</tr>

<tr>
<td  class="h" >
<a name="1806">1806</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> $1<A HREF="ftp://$2/$4">$2:$4</A>$3 </td>
</tr>

<tr>
<td  class="h" >
<a name="1807">1807</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1808">1808</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # NB: don't confuse an http server with a port number for </td>
</tr>

<tr>
<td  class="h" >
<a name="1809">1809</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # an FTP location! </td>
</tr>

<tr>
<td  class="h" >
<a name="1810">1810</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # internet number version: <internet-num>:<path> </td>
</tr>

<tr>
<td  class="h" >
<a name="1811">1811</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@])(\d{2,}\.\d{2,}\.\d+\.\d+):([\w\d+\-/\.]+)| </td>
</tr>

<tr>
<td  class="h" >
<a name="1812">1812</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> $1<A HREF="ftp://$2/$3">$2:$3</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1813">1813</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1814">1814</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # telnet <site> <port> </td>
</tr>

<tr>
<td  class="h" >
<a name="1815">1815</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |telnet ([[:alpha:]][\w+\-]+(\.[\w\.+\-]+)+\.[[:alpha:]]{2,})\s+(\d{2,4})| </td>
</tr>

<tr>
<td  class="h" >
<a name="1816">1816</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> telnet <A HREF="telnet://$1:$3/">$1 $3</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1817">1817</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1818">1818</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # ftp <site> </td>
</tr>

<tr>
<td  class="h" >
<a name="1819">1819</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |ftp ([[:alpha:]][\w+\-]+(\.[\w\.+\-]+)+\.[[:alpha:]]{2,})| </td>
</tr>

<tr>
<td  class="h" >
<a name="1820">1820</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> ftp <A HREF="ftp://$1/">$1</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1821">1821</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1822">1822</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # host with "ftp" in the machine name </td>
</tr>

<tr>
<td  class="h" >
<a name="1823">1823</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |\b([[:alpha:]][\w])*ftp[\w]*(\.[\w+\-]+){2,}| -h-> ftp <A HREF="ftp://$&/">$&</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1824">1824</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1825">1825</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # ftp.foo.net/blah/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1826">1826</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |ftp(\.[\w\@:-]+)+/\S+| -> ftp://$& </td>
</tr>

<tr>
<td  class="h" >
<a name="1827">1827</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1828">1828</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # www.thehouse.org/txt2html/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1829">1829</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |www(\.[\w\@:-]+)+/\S+| -> http://$& </td>
</tr>

<tr>
<td  class="h" >
<a name="1830">1830</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1831">1831</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # host with "www" in the machine name </td>
</tr>

<tr>
<td  class="h" >
<a name="1832">1832</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |\b([[:alpha:]][\w])*www[\w]*(\.[\w+\-]+){2,}| -> http://$&/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1833">1833</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1834">1834</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # <site> <port> </td>
</tr>

<tr>
<td  class="h" >
<a name="1835">1835</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([[:alpha:]][\w+\-]+\.[\w+\-]+\.[[:alpha:]]{2,})\s+(\d{2,4})| </td>
</tr>

<tr>
<td  class="h" >
<a name="1836">1836</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> <A HREF="telnet://$1:$2/">$1 $2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1837">1837</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1838">1838</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # just internet numbers with port: </td>
</tr>

<tr>
<td  class="h" >
<a name="1839">1839</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@])(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(\d{1,4})| </td>
</tr>

<tr>
<td  class="h" >
<a name="1840">1840</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> $1<A HREF="telnet://$2:$3">$2 $3</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1841">1841</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1842">1842</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # just internet numbers: </td>
</tr>

<tr>
<td  class="h" >
<a name="1843">1843</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> |([^\w\-/\.:\@])(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})| </td>
</tr>

<tr>
<td  class="h" >
<a name="1844">1844</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   -h-> $1<A HREF="telnet://$2">$2</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="1845">1845</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1846">1846</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # RFCs </td>
</tr>

<tr>
<td  class="h" >
<a name="1847">1847</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> /RFC ?(\d+)/ -i-> http://www.cis.ohio-state.edu/rfc/rfc$1.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="1848">1848</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1849">1849</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Mark _underlined stuff_ as <U>underlined stuff</U> </td>
</tr>

<tr>
<td  class="h" >
<a name="1850">1850</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Don't mistake variable names for underlines, and </td>
</tr>

<tr>
<td  class="h" >
<a name="1851">1851</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # take account of possible trailing punctuation </td>
</tr>

<tr>
<td  class="h" >
<a name="1852">1852</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #/([ \t\n])_([[:alpha:]][[:alnum:]\s-]*[[:alpha:]])_([\s\.;:,\!\?])/ -h-> $1<U>$2</U>$3 </td>
</tr>

<tr>
<td  class="h" >
<a name="1853">1853</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1854">1854</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Seth and his amazing conversion program    :-) </td>
</tr>

<tr>
<td  class="h" >
<a name="1855">1855</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1856">1856</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "Seth Golub"  -o-> http://www.aigeek.com/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1857">1857</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "txt2html"    -o-> http://txt2html.sourceforge.net/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1858">1858</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1859">1859</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # Kathryn and her amazing modules 8-) </td>
</tr>

<tr>
<td  class="h" >
<a name="1860">1860</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "Kathryn Andersen"  -o-> http://www.katspace.com/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1861">1861</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "HTML::TextToHTML"  -o-> http://www.katspace.com/tools/text_to_html/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1862">1862</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "hypertoc"          -o-> http://www.katspace.com/tools/hypertoc/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1863">1863</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "HTML::GenToc"      -o-> http://www.katspace.com/tools/hypertoc/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1864">1864</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1865">1865</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # End of global dictionary </td>
</tr>

<tr>
<td  class="h" >
<a name="1866">1866</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> EOT </td>
</tr>

<tr>
<td  class="h" >
<a name="1867">1867</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1868">1868</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # pre-parse the above data by removing unwanted lines </td>
</tr>

<tr>
<td  class="h" >
<a name="1869">1869</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # skip lines that start with '#' </td>
</tr>

<tr>
<td  class="h" >
<a name="1870">1870</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1412

</td>

<td class="s">     $system_dict =~ s/^\#.*$//mg; </td>
</tr>

<tr>
<td  class="h" >
<a name="1871">1871</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # skip lines that end with unescaped ':' </td>
</tr>

<tr>
<td  class="h" >
<a name="1872">1872</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5923

</td>

<td class="s">     $system_dict =~ s/^.*[^\\]:\s*$//mg; </td>
</tr>

<tr>
<td  class="h" >
<a name="1873">1873</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1874">1874</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

87

</td>

<td class="s">     $self->{__global_links_data} = $system_dict; </td>
</tr>

<tr>
<td  class="h" >
<a name="1875">1875</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1876">1876</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # init_our_data </td>
</tr>

<tr>
<td  class="h" >
<a name="1877">1877</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1878">1878</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #---------------------------------------------------------------# </td>
</tr>

<tr>
<td  class="h" >
<a name="1879">1879</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # txt2html-related subroutines </td>
</tr>

<tr>
<td  class="h" >
<a name="1880">1880</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1881">1881</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 deal_with_options </td>
</tr>

<tr>
<td  class="h" >
<a name="1882">1882</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1883">1883</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $self->deal_with_options(); </td>
</tr>

<tr>
<td  class="h" >
<a name="1884">1884</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1885">1885</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> do extra processing related to particular options </td>
</tr>

<tr>
<td  class="h" >
<a name="1886">1886</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1887">1887</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="1888">1888</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub deal_with_options ($) </td>
</tr>

<tr>
<td  class="h" >
<a name="1889">1889</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="1890">1890</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1890-1"> 
96
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1890-1"> 
1
 </a> 
</td>

<td >

132

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1891">1891</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1892">1892</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1892-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

305

</td>

<td class="s">     if (!$self->{make_links}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1893">1893</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1894">1894</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $self->{'links_dictionaries'} = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1895">1895</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1896">1896</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1896-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

270

</td>

<td class="s">     if ($self->{append_file}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1897">1897</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1898">1898</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1898-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

86

</td>

<td class="s">         if (!-r $self->{append_file}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1899">1899</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1900">1900</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "Can't find or read ", $self->{append_file}, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1901">1901</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $self->{append_file} = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1902">1902</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1903">1903</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1904">1904</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1904-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

222

</td>

<td class="s">     if ($self->{prepend_file}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1905">1905</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1906">1906</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1906-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if (!-r $self->{prepend_file}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1907">1907</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1908">1908</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "Can't find or read ", $self->{prepend_file}, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1909">1909</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $self->{'prepend_file'} = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1910">1910</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1911">1911</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1912">1912</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1912-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

239

</td>

<td class="s">     if ($self->{append_head}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1913">1913</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1914">1914</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1914-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if (!-r $self->{append_head}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1915">1915</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="1916">1916</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "Can't find or read ", $self->{append_head}, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1917">1917</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $self->{'append_head'} = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1918">1918</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="1919">1919</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1920">1920</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1921">1921</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1921-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

238

</td>

<td class="s">     if (!$self->{outfile}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1922">1922</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1923">1923</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $self->{'outfile'} = "-"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1924">1924</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1925">1925</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1926">1926</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1926-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

244

</td>

<td class="s">     $self->{'preformat_trigger_lines'} = 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="1927">1927</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if ($self->{preformat_trigger_lines} < 0); </td>
</tr>

<tr>
<td  class="h" >
<a name="1928">1928</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1928-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

226

</td>

<td class="s">     $self->{'preformat_trigger_lines'} = 2 </td>
</tr>

<tr>
<td  class="h" >
<a name="1929">1929</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if ($self->{preformat_trigger_lines} > 2); </td>
</tr>

<tr>
<td  class="h" >
<a name="1930">1930</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1931">1931</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1931-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

244

</td>

<td class="s">     $self->{'endpreformat_trigger_lines'} = 1 </td>
</tr>

<tr>
<td  class="h" >
<a name="1932">1932</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if ($self->{preformat_trigger_lines} == 0); </td>
</tr>

<tr>
<td  class="h" >
<a name="1933">1933</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1933-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

222

</td>

<td class="s">     $self->{'endpreformat_trigger_lines'} = 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="1934">1934</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if ($self->{endpreformat_trigger_lines} < 0); </td>
</tr>

<tr>
<td  class="h" >
<a name="1935">1935</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1935-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

204

</td>

<td class="s">     $self->{'endpreformat_trigger_lines'} = 2 </td>
</tr>

<tr>
<td  class="h" >
<a name="1936">1936</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if ($self->{endpreformat_trigger_lines} > 2); </td>
</tr>

<tr>
<td  class="h" >
<a name="1937">1937</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1938">1938</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#1938-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

322

</td>

<td class="s">     $self->{__preformat_enabled} = </td>
</tr>

<tr>
<td  class="h" >
<a name="1939">1939</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       (($self->{endpreformat_trigger_lines} != 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="1940">1940</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           || $self->{use_preformat_marker}); </td>
</tr>

<tr>
<td  class="h" >
<a name="1941">1941</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1942">1942</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1942-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1068

</td>

<td class="s">     if ($self->{use_mosaic_header}) </td>
</tr>

<tr>
<td  class="h" >
<a name="1943">1943</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="1944">1944</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         my $num_heading_styles = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1945">1945</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         my %heading_styles     = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="1946">1946</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $heading_styles{"*"}          = ++$num_heading_styles; </td>
</tr>

<tr>
<td  class="h" >
<a name="1947">1947</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $heading_styles{"="}          = ++$num_heading_styles; </td>
</tr>

<tr>
<td  class="h" >
<a name="1948">1948</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $heading_styles{"+"}          = ++$num_heading_styles; </td>
</tr>

<tr>
<td  class="h" >
<a name="1949">1949</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $heading_styles{"-"}          = ++$num_heading_styles; </td>
</tr>

<tr>
<td  class="h" >
<a name="1950">1950</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $heading_styles{"~"}          = ++$num_heading_styles; </td>
</tr>

<tr>
<td  class="h" >
<a name="1951">1951</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $heading_styles{"."}          = ++$num_heading_styles; </td>
</tr>

<tr>
<td  class="h" >
<a name="1952">1952</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $self->{__heading_styles}     = \%heading_styles; </td>
</tr>

<tr>
<td  class="h" >
<a name="1953">1953</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $self->{__num_heading_styles} = $num_heading_styles; </td>
</tr>

<tr>
<td  class="h" >
<a name="1954">1954</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1955">1955</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # XHTML implies lower case </td>
</tr>

<tr>
<td  class="h" >
<a name="1956">1956</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#1956-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

325

</td>

<td class="s">     $self->{'lower_case_tags'} = 1 if ($self->{xhtml}); </td>
</tr>

<tr>
<td  class="h" >
<a name="1957">1957</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1958">1958</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1959">1959</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 escape </td>
</tr>

<tr>
<td  class="h" >
<a name="1960">1960</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1961">1961</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $newtext = escape($text); </td>
</tr>

<tr>
<td  class="h" >
<a name="1962">1962</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1963">1963</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Escape & < and > </td>
</tr>

<tr>
<td  class="h" >
<a name="1964">1964</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1965">1965</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="1966">1966</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub escape ($) </td>
</tr>

<tr>
<td  class="h" >
<a name="1967">1967</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="1968">1968</a>
</td>

<td  class="c3" >

2835

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1968-1"> 
2835
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1968-1"> 
1
 </a> 
</td>

<td >

4773

</td>

<td class="s">     my ($text) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="1969">1969</a>
</td>

<td  class="c3" >

2835

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3744

</td>

<td class="s">     $text =~ s/&/&/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1970">1970</a>
</td>

<td  class="c3" >

2835

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3288

</td>

<td class="s">     $text =~ s/>/>/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1971">1971</a>
</td>

<td  class="c3" >

2835

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3091

</td>

<td class="s">     $text =~ s/</</g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1972">1972</a>
</td>

<td  class="c3" >

2835

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5594

</td>

<td class="s">     return $text; </td>
</tr>

<tr>
<td  class="h" >
<a name="1973">1973</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1974">1974</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1975">1975</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 demoronize_char </td>
</tr>

<tr>
<td  class="h" >
<a name="1976">1976</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1977">1977</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $newtext = demoronize_char($text); </td>
</tr>

<tr>
<td  class="h" >
<a name="1978">1978</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1979">1979</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Convert Microsoft character entities into characters. </td>
</tr>

<tr>
<td  class="h" >
<a name="1980">1980</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1981">1981</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Added by Alan Jackson, alan at ajackson dot org, and based </td>
</tr>

<tr>
<td  class="h" >
<a name="1982">1982</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> on the demoronize script by John Walker, http://www.fourmilab.ch/ </td>
</tr>

<tr>
<td  class="h" >
<a name="1983">1983</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1984">1984</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="1985">1985</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub demoronize_char($) </td>
</tr>

<tr>
<td  class="h" >
<a name="1986">1986</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="1987">1987</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1987-1"> 
440
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#1987-1"> 
1
 </a> 
</td>

<td >

823

</td>

<td class="s">     my $s = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1988">1988</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #   Map strategically incompatible non-ISO characters in the </td>
</tr>

<tr>
<td  class="h" >
<a name="1989">1989</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #   range 0x82 -- 0x9F into plausible substitutes where </td>
</tr>

<tr>
<td  class="h" >
<a name="1990">1990</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #   possible. </td>
</tr>

<tr>
<td  class="h" >
<a name="1991">1991</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1992">1992</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

849

</td>

<td class="s">     $s =~ s/\x82/,/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1993">1993</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

748

</td>

<td class="s">     $s =~ s/\x84/,,/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1994">1994</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1218

</td>

<td class="s">     $s =~ s/\x85/.../g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1995">1995</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1996">1996</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

853

</td>

<td class="s">     $s =~ s/\x88/^/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1997">1997</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="1998">1998</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

840

</td>

<td class="s">     $s =~ s/\x8B/</g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1999">1999</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

925

</td>

<td class="s">     $s =~ s/\x8C/Oe/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2000">2000</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2001">2001</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

716

</td>

<td class="s">     $s =~ s/\x91/`/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2002">2002</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

794

</td>

<td class="s">     $s =~ s/\x92/'/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2003">2003</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

920

</td>

<td class="s">     $s =~ s/\x93/"/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2004">2004</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

718

</td>

<td class="s">     $s =~ s/\x94/"/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2005">2005</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

673

</td>

<td class="s">     $s =~ s/\x95/*/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2006">2006</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

736

</td>

<td class="s">     $s =~ s/\x96/-/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2007">2007</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

659

</td>

<td class="s">     $s =~ s/\x97/--/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2008">2008</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2009">2009</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

678

</td>

<td class="s">     $s =~ s/\x9B/>/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2010">2010</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

785

</td>

<td class="s">     $s =~ s/\x9C/oe/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2011">2011</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2012">2012</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

931

</td>

<td class="s">     return $s; </td>
</tr>

<tr>
<td  class="h" >
<a name="2013">2013</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2014">2014</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2015">2015</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 demoronize_code </td>
</tr>

<tr>
<td  class="h" >
<a name="2016">2016</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2017">2017</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $newtext = demoronize_code($text); </td>
</tr>

<tr>
<td  class="h" >
<a name="2018">2018</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2019">2019</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> convert Microsoft character entities into HTML code </td>
</tr>

<tr>
<td  class="h" >
<a name="2020">2020</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2021">2021</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2022">2022</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub demoronize_code($) </td>
</tr>

<tr>
<td  class="h" >
<a name="2023">2023</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2024">2024</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2024-1"> 
433
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2024-1"> 
1
 </a> 
</td>

<td >

671

</td>

<td class="s">     my $s = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2025">2025</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #   Map strategically incompatible non-ISO characters in the </td>
</tr>

<tr>
<td  class="h" >
<a name="2026">2026</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #   range 0x82 -- 0x9F into plausible substitutes where </td>
</tr>

<tr>
<td  class="h" >
<a name="2027">2027</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #   possible. </td>
</tr>

<tr>
<td  class="h" >
<a name="2028">2028</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2029">2029</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

979

</td>

<td class="s">     $s =~ s-\x83-<em>f</em>-g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2030">2030</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2031">2031</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

728

</td>

<td class="s">     $s =~ s-\x98-<sup>~</sup>-g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2032">2032</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

786

</td>

<td class="s">     $s =~ s-\x99-<sup>TM</sup>-g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2033">2033</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2034">2034</a>
</td>

<td  class="c3" >

433

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1056

</td>

<td class="s">     return $s; </td>
</tr>

<tr>
<td  class="h" >
<a name="2035">2035</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2036">2036</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2037">2037</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 get_tag </td>
</tr>

<tr>
<td  class="h" >
<a name="2038">2038</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2039">2039</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $tag = $self->get_tag($in_tag); </td>
</tr>

<tr>
<td  class="h" >
<a name="2040">2040</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2041">2041</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $tag = $self->get_tag($in_tag, </td>
</tr>

<tr>
<td  class="h" >
<a name="2042">2042</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	tag_type=>TAG_START, </td>
</tr>

<tr>
<td  class="h" >
<a name="2043">2043</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	inside_tag=>''); </td>
</tr>

<tr>
<td  class="h" >
<a name="2044">2044</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2045">2045</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> output the tag wanted (add the <> and the / if necessary) </td>
</tr>

<tr>
<td  class="h" >
<a name="2046">2046</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> - output in lower or upper case </td>
</tr>

<tr>
<td  class="h" >
<a name="2047">2047</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> - do tag-related processing </td>
</tr>

<tr>
<td  class="h" >
<a name="2048">2048</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> options: </td>
</tr>

<tr>
<td  class="h" >
<a name="2049">2049</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   tag_type=>TAG_START | tag_type=>TAG_END | tag_type=>TAG_EMPTY </td>
</tr>

<tr>
<td  class="h" >
<a name="2050">2050</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   (default start) </td>
</tr>

<tr>
<td  class="h" >
<a name="2051">2051</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   inside_tag=>string (default empty) </td>
</tr>

<tr>
<td  class="h" >
<a name="2052">2052</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2053">2053</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2054">2054</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub get_tag ($$;%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2055">2055</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2056">2056</a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2056-1"> 
3522
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2056-1"> 
1
 </a> 
</td>

<td >

4143

</td>

<td class="s">     my $self   = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2057">2057</a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4032

</td>

<td class="s">     my $in_tag = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2058">2058</a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9954

</td>

<td class="s">     my %args   = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2059">2059</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         tag_type   => TAG_START, </td>
</tr>

<tr>
<td  class="h" >
<a name="2060">2060</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         inside_tag => '', </td>
</tr>

<tr>
<td  class="h" >
<a name="2061">2061</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2062">2062</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2063">2063</a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4635

</td>

<td class="s">     my $inside_tag = $args{inside_tag}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2064">2064</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2065">2065</a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3497

</td>

<td class="s">     my $open_tag = @{$self->{__tags}}[$#{$self->{__tags}}]; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5817

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5702

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2066">2066</a>
</td>

<td  class="c3" >

3522

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2066-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8313

</td>

<td class="s">     if (!defined $open_tag) </td>
</tr>

<tr>
<td  class="h" >
<a name="2067">2067</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2068">2068</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

164

</td>

<td class="s">         $open_tag = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="2069">2069</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2070">2070</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # close any open tags that need closing </td>
</tr>

<tr>
<td  class="h" >
<a name="2071">2071</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Note that we only have to check for the structural tags we make, </td>
</tr>

<tr>
<td  class="h" >
<a name="2072">2072</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # not every possible HTML tag </td>
</tr>

<tr>
<td  class="h" >
<a name="2073">2073</a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5263

</td>

<td class="s">     my $tag_prefix = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="2074">2074</a>
</td>

<td  class="c3" >

3522

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2074-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7216

</td>

<td class="s">     if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2075">2075</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2076">2076</a>
</td>

<td  class="c3" >

3219

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2076-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2076-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

41525

</td>

<td class="s">         if (    $open_tag eq 'p' </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-3"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-4"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-4"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-5"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-5"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-6"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-6"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-7"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-7"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-8"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-9"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-10"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-11"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-12"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-13"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2077">2077</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $in_tag eq 'p' </td>
</tr>

<tr>
<td  class="h" >
<a name="2078">2078</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $args{tag_type} != TAG_END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2079">2079</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2080">2080</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">             $tag_prefix = $self->close_tag('p'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2081">2081</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2082">2082</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ( $open_tag eq 'p' </td>
</tr>

<tr>
<td  class="h" >
<a name="2083">2083</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $in_tag =~ /^(hr|ul|ol|dl|pre|table|h)/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2084">2084</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2085">2085</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

30

</td>

<td class="s">             $tag_prefix = $self->close_tag('p'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2086">2086</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2087">2087</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ( $open_tag eq 'li' </td>
</tr>

<tr>
<td  class="h" >
<a name="2088">2088</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $in_tag eq 'li' </td>
</tr>

<tr>
<td  class="h" >
<a name="2089">2089</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $args{tag_type} != TAG_END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2090">2090</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2091">2091</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # close a LI before the next LI </td>
</tr>

<tr>
<td  class="h" >
<a name="2092">2092</a>
</td>

<td  class="c3" >

70

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

175

</td>

<td class="s">             $tag_prefix = $self->close_tag('li'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2093">2093</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2094">2094</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ( $open_tag eq 'li' </td>
</tr>

<tr>
<td  class="h" >
<a name="2095">2095</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $in_tag =~ /^(ul|ol)$/ </td>
</tr>

<tr>
<td  class="h" >
<a name="2096">2096</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $args{tag_type} == TAG_END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2097">2097</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2098">2098</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # close the LI before the list closes </td>
</tr>

<tr>
<td  class="h" >
<a name="2099">2099</a>
</td>

<td  class="c3" >

47

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1307

</td>

<td class="s">             $tag_prefix = $self->close_tag('li'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2100">2100</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2101">2101</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ( $open_tag eq 'dt' </td>
</tr>

<tr>
<td  class="h" >
<a name="2102">2102</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $in_tag eq 'dd' </td>
</tr>

<tr>
<td  class="h" >
<a name="2103">2103</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $args{tag_type} != TAG_END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2104">2104</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2105">2105</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # close a DT before the next DD </td>
</tr>

<tr>
<td  class="h" >
<a name="2106">2106</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $tag_prefix = $self->close_tag('dt'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2107">2107</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2108">2108</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ( $open_tag eq 'dd' </td>
</tr>

<tr>
<td  class="h" >
<a name="2109">2109</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $in_tag eq 'dt' </td>
</tr>

<tr>
<td  class="h" >
<a name="2110">2110</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $args{tag_type} != TAG_END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2111">2111</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2112">2112</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # close a DD before the next DT </td>
</tr>

<tr>
<td  class="h" >
<a name="2113">2113</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s">             $tag_prefix = $self->close_tag('dd'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2114">2114</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2115">2115</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ( $open_tag eq 'dd' </td>
</tr>

<tr>
<td  class="h" >
<a name="2116">2116</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $in_tag         eq 'dl' </td>
</tr>

<tr>
<td  class="h" >
<a name="2117">2117</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and $args{tag_type} == TAG_END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2118">2118</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2119">2119</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # close the DD before the list closes </td>
</tr>

<tr>
<td  class="h" >
<a name="2120">2120</a>
</td>

<td  class="c3" >

5

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">             $tag_prefix = $self->close_tag('dd'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2121">2121</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2122">2122</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2123">2123</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2124">2124</a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4376

</td>

<td class="s">     my $out_tag = $in_tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="2125">2125</a>
</td>

<td  class="c3" >

3522

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2125-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6095

</td>

<td class="s">     if ($args{tag_type} == TAG_END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2126">2126</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2127">2127</a>
</td>

<td  class="c3" >

91

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

214

</td>

<td class="s">         $out_tag = $self->close_tag($in_tag); </td>
</tr>

<tr>
<td  class="h" >
<a name="2128">2128</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2129">2129</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="2130">2130</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2131">2131</a>
</td>

<td  class="c3" >

3431

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2131-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5754

</td>

<td class="s">         if ($self->{lower_case_tags}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2132">2132</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2133">2133</a>
</td>

<td  class="c3" >

3146

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3937

</td>

<td class="s">             $out_tag =~ tr/A-Z/a-z/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2134">2134</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2135">2135</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else    # upper case </td>
</tr>

<tr>
<td  class="h" >
<a name="2136">2136</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2137">2137</a>
</td>

<td  class="c3" >

285

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

349

</td>

<td class="s">             $out_tag =~ tr/a-z/A-Z/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2138">2138</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2139">2139</a>
</td>

<td  class="c3" >

3431

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2139-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6029

</td>

<td class="s">         if ($args{tag_type} == TAG_EMPTY) </td>
</tr>

<tr>
<td  class="h" >
<a name="2140">2140</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2141">2141</a>
</td>

<td  class="c3" >

901

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2141-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1701

</td>

<td class="s">             if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2142">2142</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="2143">2143</a>
</td>

<td  class="c3" >

821

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1593

</td>

<td class="s">                 $out_tag = "<${out_tag}${inside_tag}/>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2144">2144</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="2145">2145</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             else </td>
</tr>

<tr>
<td  class="h" >
<a name="2146">2146</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="2147">2147</a>
</td>

<td  class="c3" >

80

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

138

</td>

<td class="s">                 $out_tag = "<${out_tag}${inside_tag}>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2148">2148</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="2149">2149</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2150">2150</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="2151">2151</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2152">2152</a>
</td>

<td  class="c3" >

2530

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2428

</td>

<td class="s">             push @{$self->{__tags}}, $in_tag; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

2530

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4446

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2153">2153</a>
</td>

<td  class="c3" >

2530

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4531

</td>

<td class="s">             $out_tag = "<${out_tag}${inside_tag}>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2154">2154</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2155">2155</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2156">2156</a>
</td>

<td  class="c3" >

3522

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2156-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6410

</td>

<td class="s">     $out_tag = $tag_prefix . $out_tag if $tag_prefix; </td>
</tr>

<tr>
<td  class="h" >
<a name="2157">2157</a>
</td>

<td  class="c3" >

3522

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2157-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6492

</td>

<td class="s">     if ($DictDebug & 8) </td>
</tr>

<tr>
<td  class="h" >
<a name="2158">2158</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2159">2159</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         print STDERR </td>
</tr>

<tr>
<td  class="h" >
<a name="2160">2160</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           "open_tag = '${open_tag}', in_tag = '${in_tag}', tag_type = ", </td>
</tr>

<tr>
<td  class="h" >
<a name="2161">2161</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           $args{tag_type}, </td>
</tr>

<tr>
<td  class="h" >
<a name="2162">2162</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           ", inside_tag = '${inside_tag}', out_tag = '$out_tag'\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2163">2163</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2164">2164</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2165">2165</a>
</td>

<td  class="c3" >

3522

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10155

</td>

<td class="s">     return $out_tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="2166">2166</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # get_tag </td>
</tr>

<tr>
<td  class="h" >
<a name="2167">2167</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2168">2168</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 close_tag </td>
</tr>

<tr>
<td  class="h" >
<a name="2169">2169</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2170">2170</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> $tag = $self->close_tag($in_tag); </td>
</tr>

<tr>
<td  class="h" >
<a name="2171">2171</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2172">2172</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> close the open tag </td>
</tr>

<tr>
<td  class="h" >
<a name="2173">2173</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2174">2174</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2175">2175</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub close_tag ($$) </td>
</tr>

<tr>
<td  class="h" >
<a name="2176">2176</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2177">2177</a>
</td>

<td  class="c3" >

2459

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2177-1"> 
2459
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2177-1"> 
1
 </a> 
</td>

<td >

2994

</td>

<td class="s">     my $self   = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2178">2178</a>
</td>

<td  class="c3" >

2459

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3094

</td>

<td class="s">     my $in_tag = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2179">2179</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2180">2180</a>
</td>

<td  class="c3" >

2459

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2550

</td>

<td class="s">     my $open_tag = pop @{$self->{__tags}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

2459

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4213

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2181">2181</a>
</td>

<td  class="c3" >

2459

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2181-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

5079

</td>

<td class="s">     $in_tag ||= $open_tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="2182">2182</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # put the open tag back on the stack if the in-tag is not the same </td>
</tr>

<tr>
<td  class="h" >
<a name="2183">2183</a>
</td>

<td  class="c3" >

2459

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2183-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2183-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

9397

</td>

<td class="s">     if (defined $open_tag && $open_tag ne $in_tag) </td>
</tr>

<tr>
<td  class="h" >
<a name="2184">2184</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2185">2185</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">         push @{$self->{__tags}}, $open_tag; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2186">2186</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2187">2187</a>
</td>

<td  class="c3" >

2459

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2973

</td>

<td class="s">     my $out_tag = $in_tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="2188">2188</a>
</td>

<td  class="c3" >

2459

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2188-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4356

</td>

<td class="s">     if ($self->{lower_case_tags}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2189">2189</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2190">2190</a>
</td>

<td  class="c3" >

2324

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2766

</td>

<td class="s">         $out_tag =~ tr/A-Z/a-z/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2191">2191</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2192">2192</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else    # upper case </td>
</tr>

<tr>
<td  class="h" >
<a name="2193">2193</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2194">2194</a>
</td>

<td  class="c3" >

135

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

150

</td>

<td class="s">         $out_tag =~ tr/a-z/A-Z/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2195">2195</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2196">2196</a>
</td>

<td  class="c3" >

2459

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3625

</td>

<td class="s">     $out_tag = "<\/${out_tag}>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2197">2197</a>
</td>

<td  class="c3" >

2459

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2197-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4428

</td>

<td class="s">     if ($DictDebug & 8) </td>
</tr>

<tr>
<td  class="h" >
<a name="2198">2198</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2199">2199</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         print STDERR </td>
</tr>

<tr>
<td  class="h" >
<a name="2200">2200</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "close_tag: open_tag = '${open_tag}', in_tag = '${in_tag}', out_tag = '$out_tag'\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2201">2201</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2202">2202</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2203">2203</a>
</td>

<td  class="c3" >

2459

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5471

</td>

<td class="s">     return $out_tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="2204">2204</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2205">2205</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2206">2206</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 hrule </td>
</tr>

<tr>
<td  class="h" >
<a name="2207">2207</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2208">2208</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    $self->hrule(para_lines_ref=>$para_lines, </td>
</tr>

<tr>
<td  class="h" >
<a name="2209">2209</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	     para_action_ref=>$para_action, </td>
</tr>

<tr>
<td  class="h" >
<a name="2210">2210</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	     ind=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="2211">2211</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2212">2212</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Deal with horizontal rules. </td>
</tr>

<tr>
<td  class="h" >
<a name="2213">2213</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2214">2214</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2215">2215</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub hrule ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2216">2216</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2217">2217</a>
</td>

<td  class="c3" >

1086

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2217-1"> 
1086
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2217-1"> 
1
 </a> 
</td>

<td >

1329

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2218">2218</a>
</td>

<td  class="c3" >

1086

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4362

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2219">2219</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_lines_ref  => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2220">2220</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2221">2221</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ind             => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2222">2222</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2223">2223</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2224">2224</a>
</td>

<td  class="c3" >

1086

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1428

</td>

<td class="s">     my $para_lines_ref  = $args{para_lines_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2225">2225</a>
</td>

<td  class="c3" >

1086

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1434

</td>

<td class="s">     my $para_action_ref = $args{para_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2226">2226</a>
</td>

<td  class="c3" >

1086

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1261

</td>

<td class="s">     my $ind             = $args{ind}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2227">2227</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2228">2228</a>
</td>

<td  class="c3" >

1086

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1459

</td>

<td class="s">     my $hrmin = $self->{hrule_min}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2229">2229</a>
</td>

<td  class="c3" >

1086

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2229-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9486

</td>

<td class="s">     if ($para_lines_ref->[$ind] =~ /^\s*([-_~=\*]\s*){$hrmin,}$/) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2230">2230</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2231">2231</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

57

</td>

<td class="s">         my $tag = $self->get_tag("hr", tag_type => TAG_EMPTY); </td>
</tr>

<tr>
<td  class="h" >
<a name="2232">2232</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s">         $para_lines_ref->[$ind] = "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2233">2233</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

65

</td>

<td class="s">         $para_action_ref->[$ind] |= $HRULE; </td>
</tr>

<tr>
<td  class="h" >
<a name="2234">2234</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2235">2235</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($para_lines_ref->[$ind] =~ /\014/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2236">2236</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2237">2237</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Linefeeds become horizontal rules </td>
</tr>

<tr>
<td  class="h" >
<a name="2238">2238</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">         $para_action_ref->[$ind] |= $HRULE; </td>
</tr>

<tr>
<td  class="h" >
<a name="2239">2239</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">         my $tag = $self->get_tag("hr", tag_type => TAG_EMPTY); </td>
</tr>

<tr>
<td  class="h" >
<a name="2240">2240</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">         $para_lines_ref->[$ind] =~ s/\014/\n${tag}\n/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2241">2241</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2242">2242</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2243">2243</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2244">2244</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 shortline </td>
</tr>

<tr>
<td  class="h" >
<a name="2245">2245</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2246">2246</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->shortline(line_ref=>$line_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2247">2247</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     line_action_ref=>$line_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2248">2248</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_ref=>$prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2249">2249</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_action_ref=>$prev_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2250">2250</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_line_len=>$prev_line_len); </td>
</tr>

<tr>
<td  class="h" >
<a name="2251">2251</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2252">2252</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Deal with short lines. </td>
</tr>

<tr>
<td  class="h" >
<a name="2253">2253</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2254">2254</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2255">2255</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub shortline ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2256">2256</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2257">2257</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2257-1"> 
802
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2257-1"> 
1
 </a> 
</td>

<td >

989

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2258">2258</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4058

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2259">2259</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2260">2260</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2261">2261</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2262">2262</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2263">2263</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_line_len   => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2264">2264</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2265">2265</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2266">2266</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1147

</td>

<td class="s">     my $mode_ref        = $args{mode_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2267">2267</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1095

</td>

<td class="s">     my $line_ref        = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2268">2268</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

893

</td>

<td class="s">     my $line_action_ref = $args{line_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2269">2269</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

898

</td>

<td class="s">     my $prev_ref        = $args{prev_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2270">2270</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

839

</td>

<td class="s">     my $prev_action_ref = $args{prev_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2271">2271</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2226

</td>

<td class="s">     my $prev_line_len   = $args{prev_line_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2272">2272</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2273">2273</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Short lines should be broken even on list item lines iff the </td>
</tr>

<tr>
<td  class="h" >
<a name="2274">2274</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # following line is more text.  I haven't figured out how to do </td>
</tr>

<tr>
<td  class="h" >
<a name="2275">2275</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # that yet.  For now, I'll just not break on short lines in lists. </td>
</tr>

<tr>
<td  class="h" >
<a name="2276">2276</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # (sorry) </td>
</tr>

<tr>
<td  class="h" >
<a name="2277">2277</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2278">2278</a>
</td>

<td  class="c3" >

802

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1592

</td>

<td class="s">     my $tag = $self->get_tag('br', tag_type => TAG_EMPTY); </td>
</tr>

<tr>
<td  class="h" >
<a name="2279">2279</a>
</td>

<td  class="c3" >

802

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2279-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2279-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

954

</td>

<td class="s">     if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-4"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2280">2280</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">            ${$line_ref} !~ /^\s*$/ </td>
</tr>

<tr>
<td  class="h" >
<a name="2281">2281</a>
</td>

<td  class="c3" >

320

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1859

</td>

<td class="s">         && ${$prev_ref} !~ /^\s*$/ </td>
</tr>

<tr>
<td  class="h" >
<a name="2282">2282</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && ($prev_line_len < $self->{short_line_length}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2283">2283</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !( </td>
</tr>

<tr>
<td  class="h" >
<a name="2284">2284</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

188

</td>

<td class="s">             ${$line_action_ref} & </td>
</tr>

<tr>
<td  class="h" >
<a name="2285">2285</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             ($END | $HEADER | $HRULE | $LIST | $IND_BREAK | $PAR) </td>
</tr>

<tr>
<td  class="h" >
<a name="2286">2286</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ) </td>
</tr>

<tr>
<td  class="h" >
<a name="2287">2287</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !(${$prev_action_ref} & ($HEADER | $HRULE | $BREAK | $IND_BREAK)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2288">2288</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ) </td>
</tr>

<tr>
<td  class="h" >
<a name="2289">2289</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2290">2290</a>
</td>

<td  class="c3" >

48

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

53

</td>

<td class="s">         ${$prev_ref} .= $tag . chop(${$prev_ref}); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

48

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

73

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

48

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

108

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2291">2291</a>
</td>

<td  class="c3" >

48

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

59

</td>

<td class="s">         ${$prev_action_ref} |= $BREAK; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

48

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

136

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2292">2292</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2293">2293</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2294">2294</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2295">2295</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_mailheader </td>
</tr>

<tr>
<td  class="h" >
<a name="2296">2296</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2297">2297</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_mailheader(rows_ref=>$rows_ref)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2298">2298</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2299">2299</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="2300">2300</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2301">2301</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2302">2302</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Is this a mailheader line? </td>
</tr>

<tr>
<td  class="h" >
<a name="2303">2303</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2304">2304</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2305">2305</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_mailheader ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2306">2306</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2307">2307</a>
</td>

<td  class="c3" >

207

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2307-1"> 
207
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2307-1"> 
1
 </a> 
</td>

<td >

272

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2308">2308</a>
</td>

<td  class="c3" >

207

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

505

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2309">2309</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2310">2310</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2311">2311</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2312">2312</a>
</td>

<td  class="c3" >

207

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

272

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2313">2313</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2314">2314</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # a mail header is assumed to be the whole </td>
</tr>

<tr>
<td  class="h" >
<a name="2315">2315</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # paragraph which starts with a From , From: or Newsgroups: line </td>
</tr>

<tr>
<td  class="h" >
<a name="2316">2316</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2317">2317</a>
</td>

<td  class="c3" >

207

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2317-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1843

</td>

<td class="s">     if ($rows_ref->[0] =~ /^(From:?)|(Newsgroups:) /) </td>
</tr>

<tr>
<td  class="h" >
<a name="2318">2318</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2319">2319</a>
</td>

<td  class="c3" >

22

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

63

</td>

<td class="s">         return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2320">2320</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2321">2321</a>
</td>

<td  class="c3" >

185

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

386

</td>

<td class="s">     return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2322">2322</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2323">2323</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # is_mailheader </td>
</tr>

<tr>
<td  class="h" >
<a name="2324">2324</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2325">2325</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 mailheader </td>
</tr>

<tr>
<td  class="h" >
<a name="2326">2326</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2327">2327</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->mailheader(rows_ref=>$rows_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="2328">2328</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2329">2329</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Deal with a mailheader. </td>
</tr>

<tr>
<td  class="h" >
<a name="2330">2330</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2331">2331</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2332">2332</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub mailheader ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2333">2333</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2334">2334</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2334-1"> 
11
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2334-1"> 
1
 </a> 
</td>

<td >

18

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2335">2335</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

35

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2336">2336</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2337">2337</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2338">2338</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2339">2339</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2340">2340</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2341">2341</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # a mail header is assumed to be the whole </td>
</tr>

<tr>
<td  class="h" >
<a name="2342">2342</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # paragraph which starts with a From: or Newsgroups: line </td>
</tr>

<tr>
<td  class="h" >
<a name="2343">2343</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

19

</td>

<td class="s">     my $tag  = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="2344">2344</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20

</td>

<td class="s">     my @rows = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

34

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2345">2345</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2346">2346</a>
</td>

<td  class="c3" >

11

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2346-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

46

</td>

<td class="s">     if ($self->is_mailheader(%args)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2347">2347</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2348">2348</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

21

</td>

<td class="s">         $self->{__mode} |= $MAILHEADER; </td>
</tr>

<tr>
<td  class="h" >
<a name="2349">2349</a>
</td>

<td  class="c3" >

11

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2349-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">         if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2350">2350</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2351">2351</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

167

</td>

<td class="s">             $rows[0] = escape($rows[0]); </td>
</tr>

<tr>
<td  class="h" >
<a name="2352">2352</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2353">2353</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

50

</td>

<td class="s">         $self->anchor_mail(\$rows[0]); </td>
</tr>

<tr>
<td  class="h" >
<a name="2354">2354</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

28

</td>

<td class="s">         chomp ${rows}[0]; </td>
</tr>

<tr>
<td  class="h" >
<a name="2355">2355</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

46

</td>

<td class="s">         $tag = $self->get_tag('p', inside_tag => " class='mail_header'"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2356">2356</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

154

</td>

<td class="s">         my $tag2 = $self->get_tag('br', tag_type => TAG_EMPTY); </td>
</tr>

<tr>
<td  class="h" >
<a name="2357">2357</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">         $rows[0] = </td>
</tr>

<tr>
<td  class="h" >
<a name="2358">2358</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           join('', "<!-- New Message -->\n", $tag, $rows[0], $tag2, "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2359">2359</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # now put breaks on the rest of the paragraph </td>
</tr>

<tr>
<td  class="h" >
<a name="2360">2360</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # apart from the last line </td>
</tr>

<tr>
<td  class="h" >
<a name="2361">2361</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

45

</td>

<td class="s">         for (my $rn = 1; $rn < @rows; $rn++) </td>
</tr>

<tr>
<td  class="h" >
<a name="2362">2362</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2363">2363</a>
</td>

<td  class="c3" >

43

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2363-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

98

</td>

<td class="s">             if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2364">2364</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="2365">2365</a>
</td>

<td  class="c3" >

43

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

82

</td>

<td class="s">                 $rows[$rn] = escape($rows[$rn]); </td>
</tr>

<tr>
<td  class="h" >
<a name="2366">2366</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="2367">2367</a>
</td>

<td  class="c3" >

43

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2367-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

129

</td>

<td class="s">             if ($rn != (@rows - 1)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2368">2368</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="2369">2369</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

72

</td>

<td class="s">                 $tag = $self->get_tag('br', tag_type => TAG_EMPTY); </td>
</tr>

<tr>
<td  class="h" >
<a name="2370">2370</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

64

</td>

<td class="s">                 chomp $rows[$rn]; </td>
</tr>

<tr>
<td  class="h" >
<a name="2371">2371</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

196

</td>

<td class="s">                 $rows[$rn] =~ s/$/${tag}\n/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2372">2372</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="2373">2373</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2374">2374</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2375">2375</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">     @{$rows_ref} = @rows; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

68

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2376">2376</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2377">2377</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # mailheader </td>
</tr>

<tr>
<td  class="h" >
<a name="2378">2378</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2379">2379</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 mailquote </td>
</tr>

<tr>
<td  class="h" >
<a name="2380">2380</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2381">2381</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->mailquote(line_ref=>$line_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2382">2382</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     line_action_ref=>$line_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2383">2383</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_ref=>$prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2384">2384</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_action_ref=>$prev_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2385">2385</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     next_ref=>$next_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="2386">2386</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2387">2387</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Deal with quoted mail. </td>
</tr>

<tr>
<td  class="h" >
<a name="2388">2388</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2389">2389</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2390">2390</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub mailquote ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2391">2391</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2392">2392</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2392-1"> 
519
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2392-1"> 
1
 </a> 
</td>

<td >

613

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2393">2393</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2426

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2394">2394</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2395">2395</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2396">2396</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2397">2397</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2398">2398</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         next_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2399">2399</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2400">2400</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2401">2401</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

667

</td>

<td class="s">     my $line_ref        = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2402">2402</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

707

</td>

<td class="s">     my $line_action_ref = $args{line_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2403">2403</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

566

</td>

<td class="s">     my $prev_ref        = $args{prev_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2404">2404</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

595

</td>

<td class="s">     my $prev_action_ref = $args{prev_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2405">2405</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

579

</td>

<td class="s">     my $next_ref        = $args{next_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2406">2406</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2407">2407</a>
</td>

<td  class="c3" >

519

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

611

</td>

<td class="s">     my $tag = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="2408">2408</a>
</td>

<td  class="c3" >

519

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2408-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2408-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

652

</td>

<td class="s">     if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2409">2409</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2410">2410</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             (${$line_ref} =~ /^\w*>/)    # Handle "FF> Werewolves." </td>
</tr>

<tr>
<td  class="h" >
<a name="2411">2411</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

97

</td>

<td class="s">             || (${$line_ref} =~ /^[\|:]/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2412">2412</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         )                                  # Handle "[|:] There wolves." </td>
</tr>

<tr>
<td  class="h" >
<a name="2413">2413</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && defined($next_ref) && (${$next_ref} !~ /^\s*$/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2414">2414</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ) </td>
</tr>

<tr>
<td  class="h" >
<a name="2415">2415</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2416">2416</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

52

</td>

<td class="s">         $tag = $self->get_tag('br', tag_type => TAG_EMPTY); </td>
</tr>

<tr>
<td  class="h" >
<a name="2417">2417</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">         ${$line_ref} =~ s/$/${tag}/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

87

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2418">2418</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">         ${$line_action_ref} |= ($BREAK | $MAILQUOTE); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2419">2419</a>
</td>

<td  class="c3" >

24

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2419-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">         if (!(${$prev_action_ref} & ($BREAK | $MAILQUOTE))) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

102

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2420">2420</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2421">2421</a>
</td>

<td  class="c3" >

10

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

24

</td>

<td class="s">             $tag = $self->get_tag('p', inside_tag => " class='quote_mail'"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2422">2422</a>
</td>

<td  class="c3" >

10

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">             ${$prev_ref} .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

10

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2423">2423</a>
</td>

<td  class="c3" >

10

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

55

</td>

<td class="s">             ${$line_action_ref} |= $PAR; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

10

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2424">2424</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2425">2425</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2426">2426</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2427">2427</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2428">2428</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 subtract_modes </td>
</tr>

<tr>
<td  class="h" >
<a name="2429">2429</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      </td>
</tr>

<tr>
<td  class="h" >
<a name="2430">2430</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $newvector = subtract_modes($vector, $mask); </td>
</tr>

<tr>
<td  class="h" >
<a name="2431">2431</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2432">2432</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Subtracts modes listed in $mask from $vector. </td>
</tr>

<tr>
<td  class="h" >
<a name="2433">2433</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2434">2434</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2435">2435</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub subtract_modes ($$) </td>
</tr>

<tr>
<td  class="h" >
<a name="2436">2436</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2437">2437</a>
</td>

<td  class="c3" >

1039

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2437-1"> 
1039
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2437-1"> 
1
 </a> 
</td>

<td >

1443

</td>

<td class="s">     my ($vector, $mask) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="2438">2438</a>
</td>

<td  class="c3" >

1039

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5131

</td>

<td class="s">     return ($vector | $mask) - $mask; </td>
</tr>

<tr>
<td  class="h" >
<a name="2439">2439</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2440">2440</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2441">2441</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 paragraph </td>
</tr>

<tr>
<td  class="h" >
<a name="2442">2442</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2443">2443</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->paragraph(line_ref=>$line_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2444">2444</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     line_action_ref=>$line_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2445">2445</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_ref=>$prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2446">2446</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_action_ref=>$prev_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2447">2447</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     line_indent=>$line_indent, </td>
</tr>

<tr>
<td  class="h" >
<a name="2448">2448</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_indent=>$prev_indent, </td>
</tr>

<tr>
<td  class="h" >
<a name="2449">2449</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     is_fragment=>$is_fragment, </td>
</tr>

<tr>
<td  class="h" >
<a name="2450">2450</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     ind=>$ind); </td>
</tr>

<tr>
<td  class="h" >
<a name="2451">2451</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2452">2452</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Detect paragraph indentation. </td>
</tr>

<tr>
<td  class="h" >
<a name="2453">2453</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2454">2454</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2455">2455</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub paragraph ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2456">2456</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2457">2457</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2457-1"> 
1065
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2457-1"> 
1
 </a> 
</td>

<td >

1352

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2458">2458</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9948

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2459">2459</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2460">2460</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2461">2461</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2462">2462</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2463">2463</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_indent     => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2464">2464</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_indent     => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2465">2465</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         is_fragment     => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2466">2466</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ind             => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2467">2467</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2468">2468</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2469">2469</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1403

</td>

<td class="s">     my $line_ref        = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2470">2470</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1180

</td>

<td class="s">     my $line_action_ref = $args{line_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2471">2471</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1237

</td>

<td class="s">     my $prev_ref        = $args{prev_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2472">2472</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1221

</td>

<td class="s">     my $prev_action_ref = $args{prev_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2473">2473</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1156

</td>

<td class="s">     my $line_indent     = $args{line_indent}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2474">2474</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1172

</td>

<td class="s">     my $prev_indent     = $args{prev_indent}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2475">2475</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1082

</td>

<td class="s">     my $is_fragment     = $args{is_fragment}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2476">2476</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1235

</td>

<td class="s">     my $line_no         = $args{ind}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2477">2477</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2478">2478</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1248

</td>

<td class="s">     my $tag = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="2479">2479</a>
</td>

<td  class="c3" >

1065

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2479-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2479-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1115

</td>

<td class="s">     if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
 50
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-4"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-5"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-6"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-7"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-8"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-9"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-10"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-11"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-12"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2480">2480</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ${$line_ref} !~ /^\s*$/ </td>
</tr>

<tr>
<td  class="h" >
<a name="2481">2481</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !subtract_modes( </td>
</tr>

<tr>
<td  class="h" >
<a name="2482">2482</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             ${$line_action_ref}, $END | $MAILQUOTE | $CAPS | $BREAK </td>
</tr>

<tr>
<td  class="h" >
<a name="2483">2483</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ) </td>
</tr>

<tr>
<td  class="h" >
<a name="2484">2484</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && (   ${$prev_ref} =~ /^\s*$/ </td>
</tr>

<tr>
<td  class="h" >
<a name="2485">2485</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || (${$line_action_ref} & $END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2486">2486</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || ($line_indent > $prev_indent + $self->{par_indent})) </td>
</tr>

<tr>
<td  class="h" >
<a name="2487">2487</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !($is_fragment && $line_no == 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="2488">2488</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ) </td>
</tr>

<tr>
<td  class="h" >
<a name="2489">2489</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2490">2490</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2491">2491</a>
</td>

<td  class="c3" >

259

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2491-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2491-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1352

</td>

<td class="s">         if (   $self->{indent_par_break} </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2492">2492</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             && ${$prev_ref} !~ /^\s*$/ </td>
</tr>

<tr>
<td  class="h" >
<a name="2493">2493</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             && !(${$line_action_ref} & $END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2494">2494</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             && ($line_indent > $prev_indent + $self->{par_indent})) </td>
</tr>

<tr>
<td  class="h" >
<a name="2495">2495</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2496">2496</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $tag = $self->get_tag('br', tag_type => TAG_EMPTY); </td>
</tr>

<tr>
<td  class="h" >
<a name="2497">2497</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$prev_ref} .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2498">2498</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$prev_ref} .= " " x $line_indent; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2499">2499</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$line_ref} =~ s/^ {$line_indent}//; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2500">2500</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$prev_action_ref} |= $BREAK; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2501">2501</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$line_action_ref} |= $IND_BREAK; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2502">2502</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2503">2503</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ($self->{preserve_indent}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2504">2504</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2505">2505</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $tag = $self->get_tag('p'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2506">2506</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$prev_ref} .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2507">2507</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$prev_ref} .= " " x $line_indent; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2508">2508</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$line_ref} =~ s/^ {$line_indent}//; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2509">2509</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$line_action_ref} |= $PAR; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2510">2510</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2511">2511</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="2512">2512</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2513">2513</a>
</td>

<td  class="c3" >

259

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

744

</td>

<td class="s">             $tag = $self->get_tag('p'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2514">2514</a>
</td>

<td  class="c3" >

259

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

329

</td>

<td class="s">             ${$prev_ref} .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

259

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

480

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2515">2515</a>
</td>

<td  class="c3" >

259

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

334

</td>

<td class="s">             ${$line_action_ref} |= $PAR; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

259

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

981

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2516">2516</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2517">2517</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2518">2518</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # detect also a continuing indentation at the same level </td>
</tr>

<tr>
<td  class="h" >
<a name="2519">2519</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($self->{indent_par_break} </td>
</tr>

<tr>
<td  class="h" >
<a name="2520">2520</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !($self->{__mode} & ($PRE | $TABLE | $LIST)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2521">2521</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         && ${$prev_ref} !~ /^\s*$/ </td>
</tr>

<tr>
<td  class="h" >
<a name="2522">2522</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         && !(${$line_action_ref} & $END) </td>
</tr>

<tr>
<td  class="h" >
<a name="2523">2523</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         && (${$prev_action_ref} & ($IND_BREAK | $PAR)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2524">2524</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !subtract_modes(${$line_action_ref}, $END | $MAILQUOTE | $CAPS) </td>
</tr>

<tr>
<td  class="h" >
<a name="2525">2525</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && ($line_indent > $self->{par_indent}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2526">2526</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && ($line_indent == $prev_indent)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2527">2527</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2528">2528</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $tag = $self->get_tag('br', tag_type => TAG_EMPTY); </td>
</tr>

<tr>
<td  class="h" >
<a name="2529">2529</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         ${$prev_ref} .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2530">2530</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         ${$prev_ref} .= " " x $line_indent; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2531">2531</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         ${$line_ref} =~ s/^ {$line_indent}//; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2532">2532</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         ${$prev_action_ref} |= $BREAK; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2533">2533</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         ${$line_action_ref} |= $IND_BREAK; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2534">2534</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2535">2535</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2536">2536</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2537">2537</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 listprefix </td>
</tr>

<tr>
<td  class="h" >
<a name="2538">2538</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2539">2539</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ($prefix, $number, $rawprefix, $term) = $self->listprefix($line); </td>
</tr>

<tr>
<td  class="h" >
<a name="2540">2540</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2541">2541</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Detect and parse a list item. </td>
</tr>

<tr>
<td  class="h" >
<a name="2542">2542</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2543">2543</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2544">2544</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub listprefix ($$) </td>
</tr>

<tr>
<td  class="h" >
<a name="2545">2545</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2546">2546</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2546-1"> 
1327
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2546-1"> 
1
 </a> 
</td>

<td >

1546

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2547">2547</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1774

</td>

<td class="s">     my $line = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2548">2548</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2549">2549</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1420

</td>

<td class="s">     my ($prefix, $number, $rawprefix, $term); </td>
</tr>

<tr>
<td  class="h" >
<a name="2550">2550</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2551">2551</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2007

</td>

<td class="s">     my $bullets         = $self->{bullets}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2552">2552</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1745

</td>

<td class="s">     my $bullets_ordered = $self->{bullets_ordered}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2553">2553</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1637

</td>

<td class="s">     my $number_match    = '(\d+|[^\W\d])'; </td>
</tr>

<tr>
<td  class="h" >
<a name="2554">2554</a>
</td>

<td  class="c3" >

1327

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2554-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2513

</td>

<td class="s">     if ($bullets_ordered) </td>
</tr>

<tr>
<td  class="h" >
<a name="2555">2555</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2556">2556</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

26

</td>

<td class="s">         $number_match = '(\d+|[[:alpha:]]|[' . "${bullets_ordered}])"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2557">2557</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2558">2558</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2061

</td>

<td class="s">     $self->{__number_match} = $number_match; </td>
</tr>

<tr>
<td  class="h" >
<a name="2559">2559</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1466

</td>

<td class="s">     my $term_match = '(\w\w+)'; </td>
</tr>

<tr>
<td  class="h" >
<a name="2560">2560</a>
</td>

<td  class="c3" >

1327

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1701

</td>

<td class="s">     $self->{__term_match} = $term_match; </td>
</tr>

<tr>
<td  class="h" >
<a name="2561">2561</a>
</td>

<td  class="c3" >

1327

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2561-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2561-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

25180

</td>

<td class="s">     return (0, 0, 0, 0) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2562">2562</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if ( !($line =~ /^\s*[${bullets}]\s+\S/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2563">2563</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !($line =~ /^\s*${number_match}[\.\)\]:]\s+\S/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2564">2564</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !($line =~ /^\s*${term_match}:$/)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2565">2565</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2566">2566</a>
</td>

<td  class="c3" >

204

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

925

</td>

<td class="s">     ($term)   = $line =~ /^\s*${term_match}:$/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2567">2567</a>
</td>

<td  class="c3" >

204

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5893

</td>

<td class="s">     ($number) = $line =~ /^\s*${number_match}\S\s+\S/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2568">2568</a>
</td>

<td  class="c3" >

204

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2568-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2020

</td>

<td class="s">     $number = 0 unless defined($number); </td>
</tr>

<tr>
<td  class="h" >
<a name="2569">2569</a>
</td>

<td  class="c3" >

204

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2569-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2569-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

679

</td>

<td class="s">     if (   $bullets_ordered </td>
</tr>

<tr>
<td  class="h" >
<a name="2570">2570</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $number =~ /[${bullets_ordered}]/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2571">2571</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2572">2572</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">         $number = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2573">2573</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2574">2574</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2575">2575</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # That slippery exception of "o" as a bullet </td>
</tr>

<tr>
<td  class="h" >
<a name="2576">2576</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # (This ought to be determined using the context of what lists </td>
</tr>

<tr>
<td  class="h" >
<a name="2577">2577</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #  we have in progress, but this will probably work well enough.) </td>
</tr>

<tr>
<td  class="h" >
<a name="2578">2578</a>
</td>

<td  class="c3" >

204

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2578-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2578-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1213

</td>

<td class="s">     if ($bullets =~ /o/ && $line =~ /^\s*o\s/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2579">2579</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2580">2580</a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">         $number = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2581">2581</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2582">2582</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2583">2583</a>
</td>

<td  class="c3" >

204

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2583-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

512

</td>

<td class="s">     if ($term) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2584">2584</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2585">2585</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

295

</td>

<td class="s">         ($rawprefix) = $line =~ /^(\s*${term_match}.)$/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2586">2586</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">         $prefix = $rawprefix; </td>
</tr>

<tr>
<td  class="h" >
<a name="2587">2587</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

76

</td>

<td class="s">         $prefix =~ s/${term_match}//;    # Take the term out </td>
</tr>

<tr>
<td  class="h" >
<a name="2588">2588</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2589">2589</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($number) </td>
</tr>

<tr>
<td  class="h" >
<a name="2590">2590</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2591">2591</a>
</td>

<td  class="c3" >

75

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4423

</td>

<td class="s">         ($rawprefix) = $line =~ /^(\s*${number_match}.)/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2592">2592</a>
</td>

<td  class="c3" >

75

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1921

</td>

<td class="s">         $prefix = $rawprefix; </td>
</tr>

<tr>
<td  class="h" >
<a name="2593">2593</a>
</td>

<td  class="c3" >

75

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3823

</td>

<td class="s">         $prefix =~ s/${number_match}//;    # Take the number out </td>
</tr>

<tr>
<td  class="h" >
<a name="2594">2594</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2595">2595</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="2596">2596</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2597">2597</a>
</td>

<td  class="c3" >

115

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

756

</td>

<td class="s">         ($rawprefix) = $line =~ /^(\s*[${bullets}].)/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2598">2598</a>
</td>

<td  class="c3" >

115

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

231

</td>

<td class="s">         $prefix = $rawprefix; </td>
</tr>

<tr>
<td  class="h" >
<a name="2599">2599</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2600">2600</a>
</td>

<td  class="c3" >

204

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2511

</td>

<td class="s">     ($prefix, $number, $rawprefix, $term); </td>
</tr>

<tr>
<td  class="h" >
<a name="2601">2601</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # listprefix </td>
</tr>

<tr>
<td  class="h" >
<a name="2602">2602</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2603">2603</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 startlist </td>
</tr>

<tr>
<td  class="h" >
<a name="2604">2604</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2605">2605</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->startlist(prefix=>$prefix, </td>
</tr>

<tr>
<td  class="h" >
<a name="2606">2606</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     number=>0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2607">2607</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     rawprefix=>$rawprefix, </td>
</tr>

<tr>
<td  class="h" >
<a name="2608">2608</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     term=>$term, </td>
</tr>

<tr>
<td  class="h" >
<a name="2609">2609</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     para_lines_ref=>$para_lines_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2610">2610</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     para_action_ref=>$para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2611">2611</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     ind=>0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2612">2612</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_ref=>$prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2613">2613</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     total_prefix=>$total_prefix); </td>
</tr>

<tr>
<td  class="h" >
<a name="2614">2614</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2615">2615</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Start a list. </td>
</tr>

<tr>
<td  class="h" >
<a name="2616">2616</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2617">2617</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2618">2618</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub startlist ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2619">2619</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2620">2620</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2620-1"> 
68
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2620-1"> 
1
 </a> 
</td>

<td >

95

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2621">2621</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

736

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2622">2622</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prefix          => '', </td>
</tr>

<tr>
<td  class="h" >
<a name="2623">2623</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         number          => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2624">2624</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rawprefix       => '', </td>
</tr>

<tr>
<td  class="h" >
<a name="2625">2625</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         term            => '', </td>
</tr>

<tr>
<td  class="h" >
<a name="2626">2626</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_lines_ref  => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2627">2627</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2628">2628</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ind             => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2629">2629</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2630">2630</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         total_prefix    => '', </td>
</tr>

<tr>
<td  class="h" >
<a name="2631">2631</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2632">2632</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2633">2633</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

129

</td>

<td class="s">     my $prefix          = $args{prefix}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2634">2634</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

120

</td>

<td class="s">     my $number          = $args{number}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2635">2635</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

100

</td>

<td class="s">     my $rawprefix       = $args{rawprefix}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2636">2636</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

101

</td>

<td class="s">     my $term            = $args{term}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2637">2637</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

95

</td>

<td class="s">     my $para_lines_ref  = $args{para_lines_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2638">2638</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

94

</td>

<td class="s">     my $para_action_ref = $args{para_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2639">2639</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

86

</td>

<td class="s">     my $ind             = $args{ind}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2640">2640</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

101

</td>

<td class="s">     my $prev_ref        = $args{prev_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2641">2641</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2642">2642</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

95

</td>

<td class="s">     my $tag = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="2643">2643</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

171

</td>

<td class="s">     $self->{__listprefix}->[$self->{__listnum}] = $prefix; </td>
</tr>

<tr>
<td  class="h" >
<a name="2644">2644</a>
</td>

<td  class="c3" >

68

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2644-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

179

</td>

<td class="s">     if ($number) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2645">2645</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2646">2646</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2647">2647</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # It doesn't start with 1,a,A.  Let's not screw with it. </td>
</tr>

<tr>
<td  class="h" >
<a name="2648">2648</a>
</td>

<td  class="c3" >

28

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2648-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2648-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

159

</td>

<td class="s">         if (($number ne "1") && ($number ne "a") && ($number ne "A")) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2649">2649</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2650">2650</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

19

</td>

<td class="s">             return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2651">2651</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2652">2652</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

62

</td>

<td class="s">         $tag = $self->get_tag('ol'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2653">2653</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

40

</td>

<td class="s">         ${$prev_ref} .= join('', $self->{__list_nice_indent}, $tag, "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

81

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2654">2654</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

63

</td>

<td class="s">         $self->{__list}->[$self->{__listnum}] = $OL; </td>
</tr>

<tr>
<td  class="h" >
<a name="2655">2655</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2656">2656</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($term) </td>
</tr>

<tr>
<td  class="h" >
<a name="2657">2657</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2658">2658</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

21

</td>

<td class="s">         $tag = $self->get_tag('dl'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2659">2659</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">         ${$prev_ref} .= join('', $self->{__list_nice_indent}, $tag, "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2660">2660</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

22

</td>

<td class="s">         $self->{__list}->[$self->{__listnum}] = $DL; </td>
</tr>

<tr>
<td  class="h" >
<a name="2661">2661</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2662">2662</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="2663">2663</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2664">2664</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

85

</td>

<td class="s">         $tag = $self->get_tag('ul'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2665">2665</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

54

</td>

<td class="s">         ${$prev_ref} .= join('', $self->{__list_nice_indent}, $tag, "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

104

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2666">2666</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

90

</td>

<td class="s">         $self->{__list}->[$self->{__listnum}] = $UL; </td>
</tr>

<tr>
<td  class="h" >
<a name="2667">2667</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2668">2668</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2669">2669</a>
</td>

<td  class="c3" >

64

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

171

</td>

<td class="s">     $self->{__list_indent}->[$self->{__listnum}] = length($args{total_prefix}); </td>
</tr>

<tr>
<td  class="h" >
<a name="2670">2670</a>
</td>

<td  class="c3" >

64

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

98

</td>

<td class="s">     $self->{__listnum}++; </td>
</tr>

<tr>
<td  class="h" >
<a name="2671">2671</a>
</td>

<td  class="c3" >

64

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

181

</td>

<td class="s">     $self->{__list_nice_indent} = </td>
</tr>

<tr>
<td  class="h" >
<a name="2672">2672</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       " " x $self->{__listnum} x $self->{indent_width}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2673">2673</a>
</td>

<td  class="c3" >

64

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

109

</td>

<td class="s">     $para_action_ref->[$ind] |= $LIST; </td>
</tr>

<tr>
<td  class="h" >
<a name="2674">2674</a>
</td>

<td  class="c3" >

64

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

95

</td>

<td class="s">     $para_action_ref->[$ind] |= $LIST_START; </td>
</tr>

<tr>
<td  class="h" >
<a name="2675">2675</a>
</td>

<td  class="c3" >

64

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

90

</td>

<td class="s">     $self->{__mode}          |= $LIST; </td>
</tr>

<tr>
<td  class="h" >
<a name="2676">2676</a>
</td>

<td  class="c3" >

64

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

255

</td>

<td class="s">     1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2677">2677</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # startlist </td>
</tr>

<tr>
<td  class="h" >
<a name="2678">2678</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2679">2679</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 endlist </td>
</tr>

<tr>
<td  class="h" >
<a name="2680">2680</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2681">2681</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->endlist(num_lists=>0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2682">2682</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	prev_ref=>$prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2683">2683</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	line_action_ref=>$line_action_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="2684">2684</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2685">2685</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> End N lists </td>
</tr>

<tr>
<td  class="h" >
<a name="2686">2686</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2687">2687</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2688">2688</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub endlist ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2689">2689</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2690">2690</a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2690-1"> 
53
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2690-1"> 
1
 </a> 
</td>

<td >

82

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2691">2691</a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

285

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2692">2692</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         num_lists       => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2693">2693</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2694">2694</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2695">2695</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2696">2696</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2697">2697</a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

96

</td>

<td class="s">     my $n               = $args{num_lists}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2698">2698</a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2368

</td>

<td class="s">     my $prev_ref        = $args{prev_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2699">2699</a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

271

</td>

<td class="s">     my $line_action_ref = $args{line_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2700">2700</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2701">2701</a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">     my $tag = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="2702">2702</a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

148

</td>

<td class="s">     for (; $n > 0; $n--, $self->{__listnum}--) </td>
</tr>

<tr>
<td  class="h" >
<a name="2703">2703</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2704">2704</a>
</td>

<td  class="c3" >

64

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

207

</td>

<td class="s">         $self->{__list_nice_indent} = </td>
</tr>

<tr>
<td  class="h" >
<a name="2705">2705</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           " " x ($self->{__listnum} - 1) x $self->{indent_width}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2706">2706</a>
</td>

<td  class="c3" >

64

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2706-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

338

</td>

<td class="s">         if ($self->{__list}->[$self->{__listnum} - 1] == $UL) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-3"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2707">2707</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2708">2708</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">             $tag = $self->get_tag('ul', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="2709">2709</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

45

</td>

<td class="s">             ${$prev_ref} .= join('', $self->{__list_nice_indent}, $tag, "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

114

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2710">2710</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

231

</td>

<td class="s">             pop @{$self->{__list_indent}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

152

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2711">2711</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2712">2712</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ($self->{__list}->[$self->{__listnum} - 1] == $OL) </td>
</tr>

<tr>
<td  class="h" >
<a name="2713">2713</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2714">2714</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

65

</td>

<td class="s">             $tag = $self->get_tag('ol', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="2715">2715</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

37

</td>

<td class="s">             ${$prev_ref} .= join('', $self->{__list_nice_indent}, $tag, "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

75

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2716">2716</a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

38

</td>

<td class="s">             pop @{$self->{__list_indent}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

24

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

93

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2717">2717</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2718">2718</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ($self->{__list}->[$self->{__listnum} - 1] == $DL) </td>
</tr>

<tr>
<td  class="h" >
<a name="2719">2719</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2720">2720</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20

</td>

<td class="s">             $tag = $self->get_tag('dl', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="2721">2721</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">             ${$prev_ref} .= join('', $self->{__list_nice_indent}, $tag, "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2722">2722</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">             pop @{$self->{__list_indent}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

24

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2723">2723</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2724">2724</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="2725">2725</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2726">2726</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "Encountered list of unknown type\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2727">2727</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2728">2728</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2729">2729</a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

69

</td>

<td class="s">     ${$line_action_ref} |= $END; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

53

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

82

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2730">2730</a>
</td>

<td  class="c3" >

53

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2730-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

225

</td>

<td class="s">     $self->{__mode} ^= $LIST if (!$self->{__listnum}); </td>
</tr>

<tr>
<td  class="h" >
<a name="2731">2731</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # endlist </td>
</tr>

<tr>
<td  class="h" >
<a name="2732">2732</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2733">2733</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 continuelist </td>
</tr>

<tr>
<td  class="h" >
<a name="2734">2734</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2735">2735</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->continuelist(para_lines_ref=>$para_lines_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2736">2736</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			para_action_ref=>$para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2737">2737</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			ind=>0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2738">2738</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			term=>$term); </td>
</tr>

<tr>
<td  class="h" >
<a name="2739">2739</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2740">2740</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Continue a list. </td>
</tr>

<tr>
<td  class="h" >
<a name="2741">2741</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2742">2742</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2743">2743</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub continuelist ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2744">2744</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2745">2745</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2745-1"> 
158
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2745-1"> 
1
 </a> 
</td>

<td >

185

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2746">2746</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

796

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2747">2747</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_lines_ref  => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2748">2748</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2749">2749</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ind             => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2750">2750</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         term            => '', </td>
</tr>

<tr>
<td  class="h" >
<a name="2751">2751</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2752">2752</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2753">2753</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

214

</td>

<td class="s">     my $para_lines_ref  = $args{para_lines_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2754">2754</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

199

</td>

<td class="s">     my $para_action_ref = $args{para_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2755">2755</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

197

</td>

<td class="s">     my $ind             = $args{ind}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2756">2756</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

194

</td>

<td class="s">     my $term            = $args{term}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2757">2757</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2758">2758</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

294

</td>

<td class="s">     my $list_indent = $self->{__list_nice_indent}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2759">2759</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

216

</td>

<td class="s">     my $bullets     = $self->{bullets}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2760">2760</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

204

</td>

<td class="s">     my $num_match   = $self->{__number_match}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2761">2761</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

197

</td>

<td class="s">     my $term_match  = $self->{__term_match}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2762">2762</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

187

</td>

<td class="s">     my $tag         = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="2763">2763</a>
</td>

<td  class="c3" >

158

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2763-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2763-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1158

</td>

<td class="s">     if (   $self->{__list}->[$self->{__listnum} - 1] == $UL </td>
</tr>

<tr>
<td  class="h" >
<a name="2764">2764</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $para_lines_ref->[$ind] =~ /^\s*[${bullets}]\s*/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2765">2765</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2766">2766</a>
</td>

<td  class="c3" >

88

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

188

</td>

<td class="s">         $tag = $self->get_tag('li'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2767">2767</a>
</td>

<td  class="c3" >

88

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

718

</td>

<td class="s">         $para_lines_ref->[$ind] =~ s/^\s*[${bullets}]\s*/${list_indent}${tag}/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2768">2768</a>
</td>

<td  class="c3" >

88

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

218

</td>

<td class="s">         $para_action_ref->[$ind] |= $LIST_ITEM; </td>
</tr>

<tr>
<td  class="h" >
<a name="2769">2769</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2770">2770</a>
</td>

<td  class="c3" >

158

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2770-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

445

</td>

<td class="s">     if ($self->{__list}->[$self->{__listnum} - 1] == $OL) </td>
</tr>

<tr>
<td  class="h" >
<a name="2771">2771</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2772">2772</a>
</td>

<td  class="c3" >

61

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

135

</td>

<td class="s">         $tag = $self->get_tag('li'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2773">2773</a>
</td>

<td  class="c3" >

61

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8672

</td>

<td class="s">         $para_lines_ref->[$ind] =~ s/^\s*${num_match}.\s*/${list_indent}${tag}/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2774">2774</a>
</td>

<td  class="c3" >

61

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2135

</td>

<td class="s">         $para_action_ref->[$ind] |= $LIST_ITEM; </td>
</tr>

<tr>
<td  class="h" >
<a name="2775">2775</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2776">2776</a>
</td>

<td  class="c3" >

158

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2776-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2776-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

560

</td>

<td class="s">     if (   $self->{__list}->[$self->{__listnum} - 1] == $DL </td>
</tr>

<tr>
<td  class="h" >
<a name="2777">2777</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $term) </td>
</tr>

<tr>
<td  class="h" >
<a name="2778">2778</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2779">2779</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

29

</td>

<td class="s">         $tag = $self->get_tag('dt'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2780">2780</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">         my $tag2 = $self->get_tag('dt', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="2781">2781</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">         $term =~ s/_/ /g;    # underscores are now spaces in the term </td>
</tr>

<tr>
<td  class="h" >
<a name="2782">2782</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

217

</td>

<td class="s">         $para_lines_ref->[$ind] =~ </td>
</tr>

<tr>
<td  class="h" >
<a name="2783">2783</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           s/^\s*${term_match}.$/${list_indent}${tag}${term}${tag2}/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2784">2784</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s">         $tag = $self->get_tag('dd'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2785">2785</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

26

</td>

<td class="s">         $para_lines_ref->[$ind] .= ${tag}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2786">2786</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

21

</td>

<td class="s">         $para_action_ref->[$ind] |= $LIST_ITEM; </td>
</tr>

<tr>
<td  class="h" >
<a name="2787">2787</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2788">2788</a>
</td>

<td  class="c3" >

158

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

488

</td>

<td class="s">     $para_action_ref->[$ind] |= $LIST; </td>
</tr>

<tr>
<td  class="h" >
<a name="2789">2789</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # continuelist </td>
</tr>

<tr>
<td  class="h" >
<a name="2790">2790</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2791">2791</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 liststuff </td>
</tr>

<tr>
<td  class="h" >
<a name="2792">2792</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2793">2793</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->liststuff(para_lines_ref=>$para_lines_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2794">2794</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     para_action_ref=>$para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2795">2795</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     para_line_indent_ref=>$para_line_indent_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2796">2796</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     ind=>0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2797">2797</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_ref=>$prev_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="2798">2798</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2799">2799</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Process a list (higher-level method). </td>
</tr>

<tr>
<td  class="h" >
<a name="2800">2800</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2801">2801</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2802">2802</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub liststuff ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2803">2803</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2804">2804</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2804-1"> 
1060
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2804-1"> 
1
 </a> 
</td>

<td >

1470

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2805">2805</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5527

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2806">2806</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_lines_ref       => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2807">2807</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_action_ref      => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2808">2808</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_line_indent_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2809">2809</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ind                  => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2810">2810</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_ref             => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2811">2811</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2812">2812</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2813">2813</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1472

</td>

<td class="s">     my $para_lines_ref       = $args{para_lines_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2814">2814</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1286

</td>

<td class="s">     my $para_action_ref      = $args{para_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2815">2815</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1359

</td>

<td class="s">     my $para_line_indent_ref = $args{para_line_indent_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2816">2816</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1224

</td>

<td class="s">     my $ind                  = $args{ind}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2817">2817</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1143

</td>

<td class="s">     my $prev_ref             = $args{prev_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2818">2818</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2819">2819</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1198

</td>

<td class="s">     my $i; </td>
</tr>

<tr>
<td  class="h" >
<a name="2820">2820</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2821">2821</a>
</td>

<td  class="c3" >

1060

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2335

</td>

<td class="s">     my ($prefix, $number, $rawprefix, $term) = </td>
</tr>

<tr>
<td  class="h" >
<a name="2822">2822</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       $self->listprefix($para_lines_ref->[$ind]); </td>
</tr>

<tr>
<td  class="h" >
<a name="2823">2823</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2824">2824</a>
</td>

<td  class="c3" >

1060

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2824-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2961

</td>

<td class="s">     if (!$prefix) </td>
</tr>

<tr>
<td  class="h" >
<a name="2825">2825</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2826">2826</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # if the previous line is not blank </td>
</tr>

<tr>
<td  class="h" >
<a name="2827">2827</a>
</td>

<td  class="c3" >

896

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2827-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2827-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

4267

</td>

<td class="s">         if ($ind > 0 && $para_lines_ref->[$ind - 1] !~ /^\s*$/) </td>
</tr>

<tr>
<td  class="h" >
<a name="2828">2828</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2829">2829</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # inside a list item </td>
</tr>

<tr>
<td  class="h" >
<a name="2830">2830</a>
</td>

<td  class="c3" >

592

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1630

</td>

<td class="s">             return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2831">2831</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2832">2832</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # This might be a new paragraph within an existing list item; </td>
</tr>

<tr>
<td  class="h" >
<a name="2833">2833</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # It will be the first line, and have the same indentation </td>
</tr>

<tr>
<td  class="h" >
<a name="2834">2834</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # as the list's indentation. </td>
</tr>

<tr>
<td  class="h" >
<a name="2835">2835</a>
</td>

<td  class="c3" >

304

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2835-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2835-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1615

</td>

<td class="s">         if (   $ind == 0 </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2836">2836</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             && $self->{__listnum} </td>
</tr>

<tr>
<td  class="h" >
<a name="2837">2837</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             && $para_line_indent_ref->[$ind] == </td>
</tr>

<tr>
<td  class="h" >
<a name="2838">2838</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             $self->{__list_indent}->[$self->{__listnum} - 1]) </td>
</tr>

<tr>
<td  class="h" >
<a name="2839">2839</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2840">2840</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # start a paragraph </td>
</tr>

<tr>
<td  class="h" >
<a name="2841">2841</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

35

</td>

<td class="s">             my $tag = $self->get_tag('p'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2842">2842</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">             ${$prev_ref} .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

21

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2843">2843</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

21

</td>

<td class="s">             $para_action_ref->[$ind] |= $PAR; </td>
</tr>

<tr>
<td  class="h" >
<a name="2844">2844</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">             return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2845">2845</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2846">2846</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # This ain't no list.  We'll want to end all of them. </td>
</tr>

<tr>
<td  class="h" >
<a name="2847">2847</a>
</td>

<td  class="c3" >

292

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2847-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

673

</td>

<td class="s">         if ($self->{__listnum}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2848">2848</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2849">2849</a>
</td>

<td  class="c3" >

16

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

81

</td>

<td class="s">             $self->endlist( </td>
</tr>

<tr>
<td  class="h" >
<a name="2850">2850</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 num_lists       => $self->{__listnum}, </td>
</tr>

<tr>
<td  class="h" >
<a name="2851">2851</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 prev_ref        => $prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2852">2852</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 line_action_ref => \$para_action_ref->[$ind] </td>
</tr>

<tr>
<td  class="h" >
<a name="2853">2853</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2854">2854</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2855">2855</a>
</td>

<td  class="c3" >

292

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1142

</td>

<td class="s">         return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2856">2856</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2857">2857</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2858">2858</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # If numbers with more than one digit grow to the left instead of </td>
</tr>

<tr>
<td  class="h" >
<a name="2859">2859</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # to the right, the prefix will shrink and we'll fail to match the </td>
</tr>

<tr>
<td  class="h" >
<a name="2860">2860</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # right list.  We need to account for this. </td>
</tr>

<tr>
<td  class="h" >
<a name="2861">2861</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

185

</td>

<td class="s">     my $prefix_alternate; </td>
</tr>

<tr>
<td  class="h" >
<a name="2862">2862</a>
</td>

<td  class="c3" >

164

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2862-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

458

</td>

<td class="s">     if (length("" . $number) > 1) </td>
</tr>

<tr>
<td  class="h" >
<a name="2863">2863</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2864">2864</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $prefix_alternate = (" " x (length("" . $number) - 1)) . $prefix; </td>
</tr>

<tr>
<td  class="h" >
<a name="2865">2865</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2866">2866</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2867">2867</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Maybe we're going back up to a previous list </td>
</tr>

<tr>
<td  class="h" >
<a name="2868">2868</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2868-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1014

</td>

<td class="s">     for ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2869">2869</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         $i = $self->{__listnum} - 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2870">2870</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ($i >= 0) && ($prefix ne $self->{__listprefix}->[$i]); </td>
</tr>

<tr>
<td  class="h" >
<a name="2871">2871</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         $i-- </td>
</tr>

<tr>
<td  class="h" >
<a name="2872">2872</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ) </td>
</tr>

<tr>
<td  class="h" >
<a name="2873">2873</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2874">2874</a>
</td>

<td  class="c3" >

73

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2874-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

396

</td>

<td class="s">         if (length("" . $number) > 1) </td>
</tr>

<tr>
<td  class="h" >
<a name="2875">2875</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2876">2876</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2876-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             last if $prefix_alternate eq $self->{__listprefix}->[$i]; </td>
</tr>

<tr>
<td  class="h" >
<a name="2877">2877</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2878">2878</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2879">2879</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2880">2880</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

183

</td>

<td class="s">     my $islist; </td>
</tr>

<tr>
<td  class="h" >
<a name="2881">2881</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2882">2882</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Measure the indent from where the text starts, not where the </td>
</tr>

<tr>
<td  class="h" >
<a name="2883">2883</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # prefix starts.  This won't screw anything up, and if we don't do </td>
</tr>

<tr>
<td  class="h" >
<a name="2884">2884</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # it, the next line might appear to be indented relative to this </td>
</tr>

<tr>
<td  class="h" >
<a name="2885">2885</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # line, and get tagged as a new paragraph. </td>
</tr>

<tr>
<td  class="h" >
<a name="2886">2886</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

309

</td>

<td class="s">     my $bullets         = $self->{bullets}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2887">2887</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

268

</td>

<td class="s">     my $bullets_ordered = $self->{bullets_ordered}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2888">2888</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

238

</td>

<td class="s">     my $term_match      = $self->{__term_match}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2889">2889</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4940

</td>

<td class="s">     my ($total_prefix)  = </td>
</tr>

<tr>
<td  class="h" >
<a name="2890">2890</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       $para_lines_ref->[$ind] =~ /^(\s*[${bullets}${bullets_ordered}\w]+.\s*)/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2891">2891</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # a DL indent starts from the edge of the term, plus indent_width </td>
</tr>

<tr>
<td  class="h" >
<a name="2892">2892</a>
</td>

<td  class="c3" >

164

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2892-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2033

</td>

<td class="s">     if ($term) </td>
</tr>

<tr>
<td  class="h" >
<a name="2893">2893</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2894">2894</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

167

</td>

<td class="s">         ($total_prefix) = $para_lines_ref->[$ind] =~ /^(\s*)${term_match}.$/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2895">2895</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

35

</td>

<td class="s">         $total_prefix .= " " x $self->{indent_width}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2896">2896</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2897">2897</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2898">2898</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Of course, we only use it if it really turns out to be a list. </td>
</tr>

<tr>
<td  class="h" >
<a name="2899">2899</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2900">2900</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

206

</td>

<td class="s">     $islist = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2901">2901</a>
</td>

<td  class="c3" >

164

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

182

</td>

<td class="s">     $i++; </td>
</tr>

<tr>
<td  class="h" >
<a name="2902">2902</a>
</td>

<td  class="c3" >

164

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2902-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2902-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1113

</td>

<td class="s">     if (($i > 0) && ($i != $self->{__listnum})) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2903">2903</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2904">2904</a>
</td>

<td  class="c3" >

23

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

91

</td>

<td class="s">         $self->endlist( </td>
</tr>

<tr>
<td  class="h" >
<a name="2905">2905</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             num_lists       => $self->{__listnum} - $i, </td>
</tr>

<tr>
<td  class="h" >
<a name="2906">2906</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             prev_ref        => $prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2907">2907</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_action_ref => \$para_action_ref->[$ind] </td>
</tr>

<tr>
<td  class="h" >
<a name="2908">2908</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2909">2909</a>
</td>

<td  class="c3" >

23

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

35

</td>

<td class="s">         $islist = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2910">2910</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2911">2911</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif (!$self->{__listnum} || ($i != $self->{__listnum})) </td>
</tr>

<tr>
<td  class="h" >
<a name="2912">2912</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2913">2913</a>
</td>

<td  class="c3" >

70

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2913-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2913-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

418

</td>

<td class="s">         if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-4"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-5"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2914">2914</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                ($para_line_indent_ref->[$ind] > 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="2915">2915</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || $ind == 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="2916">2916</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || ($ind > 0 && ($para_lines_ref->[$ind - 1] =~ /^\s*$/)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2917">2917</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || (   $ind > 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="2918">2918</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && $para_action_ref->[$ind - 1] & ($BREAK | $HEADER | $CAPS)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2919">2919</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           ) </td>
</tr>

<tr>
<td  class="h" >
<a name="2920">2920</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2921">2921</a>
</td>

<td  class="c3" >

68

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

279

</td>

<td class="s">             $islist = $self->startlist( </td>
</tr>

<tr>
<td  class="h" >
<a name="2922">2922</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 prefix          => $prefix, </td>
</tr>

<tr>
<td  class="h" >
<a name="2923">2923</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 number          => $number, </td>
</tr>

<tr>
<td  class="h" >
<a name="2924">2924</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 rawprefix       => $rawprefix, </td>
</tr>

<tr>
<td  class="h" >
<a name="2925">2925</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 term            => $term, </td>
</tr>

<tr>
<td  class="h" >
<a name="2926">2926</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 para_lines_ref  => $para_lines_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2927">2927</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 para_action_ref => $para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2928">2928</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ind             => $ind, </td>
</tr>

<tr>
<td  class="h" >
<a name="2929">2929</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 prev_ref        => $prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2930">2930</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 total_prefix    => $total_prefix </td>
</tr>

<tr>
<td  class="h" >
<a name="2931">2931</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2932">2932</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2933">2933</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="2934">2934</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="2935">2935</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2936">2936</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # We have something like this: "- foo" which usually </td>
</tr>

<tr>
<td  class="h" >
<a name="2937">2937</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # turns out not to be a list. </td>
</tr>

<tr>
<td  class="h" >
<a name="2938">2938</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">             return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2939">2939</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="2940">2940</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2941">2941</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2942">2942</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->continuelist( </td>
</tr>

<tr>
<td  class="h" >
<a name="2943">2943</a>
</td>

<td  class="c3" >

162

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2943-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

677

</td>

<td class="s">         para_lines_ref  => $para_lines_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2944">2944</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_action_ref => $para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2945">2945</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ind             => $ind, </td>
</tr>

<tr>
<td  class="h" >
<a name="2946">2946</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         term            => $term </td>
</tr>

<tr>
<td  class="h" >
<a name="2947">2947</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ) </td>
</tr>

<tr>
<td  class="h" >
<a name="2948">2948</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if ($self->{__mode} & $LIST); </td>
</tr>

<tr>
<td  class="h" >
<a name="2949">2949</a>
</td>

<td  class="c3" >

162

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2949-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

834

</td>

<td class="s">     $para_line_indent_ref->[$ind] = length($total_prefix) if $islist; </td>
</tr>

<tr>
<td  class="h" >
<a name="2950">2950</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # liststuff </td>
</tr>

<tr>
<td  class="h" >
<a name="2951">2951</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2952">2952</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 get_table_type </td>
</tr>

<tr>
<td  class="h" >
<a name="2953">2953</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2954">2954</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $table_type = $self->get_table_type(rows_ref=>$rows_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="2955">2955</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 					para_len=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="2956">2956</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2957">2957</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Figure out the table type of this table, if any </td>
</tr>

<tr>
<td  class="h" >
<a name="2958">2958</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2959">2959</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="2960">2960</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub get_table_type ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="2961">2961</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="2962">2962</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2962-1"> 
123
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#2962-1"> 
1
 </a> 
</td>

<td >

386

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2963">2963</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

460

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2964">2964</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="2965">2965</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="2966">2966</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="2967">2967</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2968">2968</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

161

</td>

<td class="s">     my $table_type = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2969">2969</a>
</td>

<td  class="c3" >

123

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#2969-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#2969-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

695

</td>

<td class="s">     if (   $self->{table_type}->{DELIM} </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-3"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-4"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-4"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2970">2970</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $self->is_delim_table(%args)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2971">2971</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2972">2972</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">         $table_type = $TAB_DELIM; </td>
</tr>

<tr>
<td  class="h" >
<a name="2973">2973</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2974">2974</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($self->{table_type}->{ALIGN} </td>
</tr>

<tr>
<td  class="h" >
<a name="2975">2975</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $self->is_aligned_table(%args)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2976">2976</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2977">2977</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">         $table_type = $TAB_ALIGN; </td>
</tr>

<tr>
<td  class="h" >
<a name="2978">2978</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2979">2979</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($self->{table_type}->{PGSQL} </td>
</tr>

<tr>
<td  class="h" >
<a name="2980">2980</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $self->is_pgsql_table(%args)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2981">2981</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2982">2982</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">         $table_type = $TAB_PGSQL; </td>
</tr>

<tr>
<td  class="h" >
<a name="2983">2983</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2984">2984</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($self->{table_type}->{BORDER} </td>
</tr>

<tr>
<td  class="h" >
<a name="2985">2985</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $self->is_border_table(%args)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2986">2986</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2987">2987</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">         $table_type = $TAB_BORDER; </td>
</tr>

<tr>
<td  class="h" >
<a name="2988">2988</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2989">2989</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2990">2990</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

418

</td>

<td class="s">     return $table_type; </td>
</tr>

<tr>
<td  class="h" >
<a name="2991">2991</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2992">2992</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2993">2993</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_aligned_table </td>
</tr>

<tr>
<td  class="h" >
<a name="2994">2994</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2995">2995</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_aligned_table(rows_ref=>$rows_ref, para_len=>0)) </td>
</tr>

<tr>
<td  class="h" >
<a name="2996">2996</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="2997">2997</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="2998">2998</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2999">2999</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3000">3000</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Check if the given paragraph-array is an aligned table </td>
</tr>

<tr>
<td  class="h" >
<a name="3001">3001</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3002">3002</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3003">3003</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_aligned_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3004">3004</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3005">3005</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3005-1"> 
116
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3005-1"> 
1
 </a> 
</td>

<td >

173

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3006">3006</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

373

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3007">3007</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3008">3008</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3009">3009</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3010">3010</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3011">3011</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

187

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3012">3012</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

144

</td>

<td class="s">     my $para_len = $args{para_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3013">3013</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3014">3014</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # TABLES: spot and mark up tables.  We combine the lines of the </td>
</tr>

<tr>
<td  class="h" >
<a name="3015">3015</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # paragraph using the string bitwise or (|) operator, the result </td>
</tr>

<tr>
<td  class="h" >
<a name="3016">3016</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # being in $spaces.  A character in $spaces is a space only if </td>
</tr>

<tr>
<td  class="h" >
<a name="3017">3017</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # there was a space at that position in every line of the </td>
</tr>

<tr>
<td  class="h" >
<a name="3018">3018</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # paragraph.  $space can be used to search for contiguous spaces </td>
</tr>

<tr>
<td  class="h" >
<a name="3019">3019</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # that occur on all lines of the paragraph.  If this results in at </td>
</tr>

<tr>
<td  class="h" >
<a name="3020">3020</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # least two columns, the paragraph is identified as a table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3021">3021</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3022">3022</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Note that this sub must be called before checking for preformatted </td>
</tr>

<tr>
<td  class="h" >
<a name="3023">3023</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # lines because a table may well have whitespace to the left, in </td>
</tr>

<tr>
<td  class="h" >
<a name="3024">3024</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # which case it must not be incorrectly recognised as a preformat. </td>
</tr>

<tr>
<td  class="h" >
<a name="3025">3025</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

148

</td>

<td class="s">     my @rows = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

292

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3026">3026</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

152

</td>

<td class="s">     my @starts; </td>
</tr>

<tr>
<td  class="h" >
<a name="3027">3027</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

154

</td>

<td class="s">     my $spaces = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3028">3028</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

137

</td>

<td class="s">     my $max    = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3029">3029</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

138

</td>

<td class="s">     my $min    = $para_len; </td>
</tr>

<tr>
<td  class="h" >
<a name="3030">3030</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

179

</td>

<td class="s">     foreach my $row (@rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3031">3031</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3032">3032</a>
</td>

<td  class="c3" >

611

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1117

</td>

<td class="s">         ($spaces |= $row) =~ tr/ /\xff/c; </td>
</tr>

<tr>
<td  class="h" >
<a name="3033">3033</a>
</td>

<td  class="c3" >

611

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3033-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1100

</td>

<td class="s">         $min = length $row if length $row < $min; </td>
</tr>

<tr>
<td  class="h" >
<a name="3034">3034</a>
</td>

<td  class="c3" >

611

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3034-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1201

</td>

<td class="s">         $max = length $row if $max < length $row; </td>
</tr>

<tr>
<td  class="h" >
<a name="3035">3035</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3036">3036</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

269

</td>

<td class="s">     $spaces = substr $spaces, 0, $min; </td>
</tr>

<tr>
<td  class="h" >
<a name="3037">3037</a>
</td>

<td  class="c3" >

116

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3037-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

354

</td>

<td class="s">     push(@starts, 0) unless $spaces =~ /^ /; </td>
</tr>

<tr>
<td  class="h" >
<a name="3038">3038</a>
</td>

<td  class="c3" >

116

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

485

</td>

<td class="s">     while ($spaces =~ /((?:^| ) +)(?=[^ ])/g) </td>
</tr>

<tr>
<td  class="h" >
<a name="3039">3039</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3040">3040</a>
</td>

<td  class="c3" >

47

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

229

</td>

<td class="s">         push @starts, pos($spaces); </td>
</tr>

<tr>
<td  class="h" >
<a name="3041">3041</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3042">3042</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3043">3043</a>
</td>

<td  class="c3" >

116

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3043-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3043-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

509

</td>

<td class="s">     if (2 <= @rows and 2 <= @starts) </td>
</tr>

<tr>
<td  class="h" >
<a name="3044">3044</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3045">3045</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s">         return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3046">3046</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3047">3047</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="3048">3048</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3049">3049</a>
</td>

<td  class="c3" >

109

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

922

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3050">3050</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3051">3051</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="3052">3052</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3053">3053</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_pgsql_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3054">3054</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3055">3055</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_pgsql_table(rows_ref=>$rows_ref, para_len=>0)) </td>
</tr>

<tr>
<td  class="h" >
<a name="3056">3056</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3057">3057</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="3058">3058</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3059">3059</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3060">3060</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Check if the given paragraph-array is a Postgresql table </td>
</tr>

<tr>
<td  class="h" >
<a name="3061">3061</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (the ascii format produced by Postgresql) </td>
</tr>

<tr>
<td  class="h" >
<a name="3062">3062</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3063">3063</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> A PGSQL table can start with an optional table-caption, </td>
</tr>

<tr>
<td  class="h" >
<a name="3064">3064</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3065">3065</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has a row of column headings separated by | </td>
</tr>

<tr>
<td  class="h" >
<a name="3066">3066</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has a row of ------+----- </td>
</tr>

<tr>
<td  class="h" >
<a name="3067">3067</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has one or more rows of column values separated by | </td>
</tr>

<tr>
<td  class="h" >
<a name="3068">3068</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has a row-count (N rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3069">3069</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3070">3070</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3071">3071</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_pgsql_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3072">3072</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3073">3073</a>
</td>

<td  class="c3" >

109

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3073-1"> 
109
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3073-1"> 
1
 </a> 
</td>

<td >

155

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3074">3074</a>
</td>

<td  class="c3" >

109

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

343

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3075">3075</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3076">3076</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3077">3077</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3078">3078</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3079">3079</a>
</td>

<td  class="c3" >

109

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

154

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3080">3080</a>
</td>

<td  class="c3" >

109

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

140

</td>

<td class="s">     my $para_len = $args{para_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3081">3081</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3082">3082</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # A PGSQL table must have at least 4 rows (see above). </td>
</tr>

<tr>
<td  class="h" >
<a name="3083">3083</a>
</td>

<td  class="c3" >

109

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3083-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

132

</td>

<td class="s">     if (@{$rows_ref} < 4) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

109

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

280

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3084">3084</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3085">3085</a>
</td>

<td  class="c3" >

63

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

465

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3086">3086</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3087">3087</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3088">3088</a>
</td>

<td  class="c3" >

46

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

70

</td>

<td class="s">     my @rows = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

46

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

144

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3089">3089</a>
</td>

<td  class="c3" >

46

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3089-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3089-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

335

</td>

<td class="s">     if ($rows[0] !~ /\|/ && $rows[0] =~ /^\s*\w+/)    # possible caption </td>
</tr>

<tr>
<td  class="h" >
<a name="3090">3090</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3091">3091</a>
</td>

<td  class="c3" >

29

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

49

</td>

<td class="s">         shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3092">3092</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3093">3093</a>
</td>

<td  class="c3" >

46

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3093-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

108

</td>

<td class="s">     if (@rows < 4) </td>
</tr>

<tr>
<td  class="h" >
<a name="3094">3094</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3095">3095</a>
</td>

<td  class="c3" >

10

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

79

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3096">3096</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3097">3097</a>
</td>

<td  class="c3" >

36

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3097-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

116

</td>

<td class="s">     if ($rows[0] !~ /^\s*\w+\s+\|\s+/)                # Colname | </td>
</tr>

<tr>
<td  class="h" >
<a name="3098">3098</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3099">3099</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

260

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3100">3100</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3101">3101</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3101-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

28

</td>

<td class="s">     if ($rows[1] !~ /^\s*[-]+[+][-]+/)                # ----+---- </td>
</tr>

<tr>
<td  class="h" >
<a name="3102">3102</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3103">3103</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3104">3104</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3105">3105</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3105-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">     if ($rows[2] !~ /^\s*[^|]*\s+\|\s+/)              # value | </td>
</tr>

<tr>
<td  class="h" >
<a name="3106">3106</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3107">3107</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3108">3108</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3109">3109</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # check the last row for rowcount </td>
</tr>

<tr>
<td  class="h" >
<a name="3110">3110</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3110-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">     if ($rows[$#rows] !~ /\(\d+\s+rows\)/) </td>
</tr>

<tr>
<td  class="h" >
<a name="3111">3111</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3112">3112</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3113">3113</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3114">3114</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3115">3115</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

28

</td>

<td class="s">     return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3116">3116</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="3117">3117</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3118">3118</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_border_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3119">3119</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3120">3120</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_border_table(rows_ref=>$rows_ref, para_len=>0)) </td>
</tr>

<tr>
<td  class="h" >
<a name="3121">3121</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3122">3122</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="3123">3123</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3124">3124</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3125">3125</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Check if the given paragraph-array is a Border table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3126">3126</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3127">3127</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> A BORDER table can start with an optional table-caption, </td>
</tr>

<tr>
<td  class="h" >
<a name="3128">3128</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3129">3129</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has a row of +------+-----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3130">3130</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has a row of column headings separated by | </td>
</tr>

<tr>
<td  class="h" >
<a name="3131">3131</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has a row of +------+-----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3132">3132</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has one or more rows of column values separated by | </td>
</tr>

<tr>
<td  class="h" >
<a name="3133">3133</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     then it has a row of +------+-----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3134">3134</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3135">3135</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3136">3136</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_border_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3137">3137</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3138">3138</a>
</td>

<td  class="c3" >

105

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3138-1"> 
105
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3138-1"> 
1
 </a> 
</td>

<td >

142

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3139">3139</a>
</td>

<td  class="c3" >

105

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

291

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3140">3140</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3141">3141</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3142">3142</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3143">3143</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3144">3144</a>
</td>

<td  class="c3" >

105

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

146

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3145">3145</a>
</td>

<td  class="c3" >

105

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

125

</td>

<td class="s">     my $para_len = $args{para_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3146">3146</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3147">3147</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # A BORDER table must have at least 5 rows (see above) </td>
</tr>

<tr>
<td  class="h" >
<a name="3148">3148</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # And note that it could be indented with spaces </td>
</tr>

<tr>
<td  class="h" >
<a name="3149">3149</a>
</td>

<td  class="c3" >

105

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3149-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

114

</td>

<td class="s">     if (@{$rows_ref} < 5) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

105

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

245

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3150">3150</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3151">3151</a>
</td>

<td  class="c3" >

77

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

312

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3152">3152</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3153">3153</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3154">3154</a>
</td>

<td  class="c3" >

28

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

47

</td>

<td class="s">     my @rows = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

28

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

87

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3155">3155</a>
</td>

<td  class="c3" >

28

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3155-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3155-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

199

</td>

<td class="s">     if ($rows[0] !~ /\|/ && $rows[0] =~ /^\s*\w+/)    # possible caption </td>
</tr>

<tr>
<td  class="h" >
<a name="3156">3156</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3157">3157</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">         shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3158">3158</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3159">3159</a>
</td>

<td  class="c3" >

28

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3159-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

69

</td>

<td class="s">     if (@rows < 5) </td>
</tr>

<tr>
<td  class="h" >
<a name="3160">3160</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3161">3161</a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

40

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3162">3162</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3163">3163</a>
</td>

<td  class="c3" >

20

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3163-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">     if ($rows[0] !~ /^\s*[+][-]+[+][-]+[+][-+]*$/)    # +----+----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3164">3164</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3165">3165</a>
</td>

<td  class="c3" >

16

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

83

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3166">3166</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3167">3167</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3167-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

29

</td>

<td class="s">     if ($rows[1] !~ /^\s*\|\s*\w+\s+\|\s+.*\|$/)      # | Colname | </td>
</tr>

<tr>
<td  class="h" >
<a name="3168">3168</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3169">3169</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3170">3170</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3171">3171</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3171-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">     if ($rows[2] !~ /^\s*[+][-]+[+][-]+[+][-+]*$/)    # +----+----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3172">3172</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3173">3173</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3174">3174</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3175">3175</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3175-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">     if ($rows[3] !~ /^\s*\|\s*[^|]*\s+\|\s+.*\|$/)    # | value | </td>
</tr>

<tr>
<td  class="h" >
<a name="3176">3176</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3177">3177</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3178">3178</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3179">3179</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # check the last row for +------+------+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3180">3180</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3180-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

22

</td>

<td class="s">     if ($rows[$#rows] !~ /^\s*[+][-]+[+][-]+[+][-+]*$/)    # +----+----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3181">3181</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3182">3182</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3183">3183</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3184">3184</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3185">3185</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">     return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3186">3186</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # is_border_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3187">3187</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3188">3188</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_delim_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3189">3189</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3190">3190</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_delim_table(rows_ref=>$rows_ref, para_len=>0)) </td>
</tr>

<tr>
<td  class="h" >
<a name="3191">3191</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3192">3192</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="3193">3193</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3194">3194</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3195">3195</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Check if the given paragraph-array is a Delimited table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3196">3196</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3197">3197</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> A DELIM table can start with an optional table-caption, </td>
</tr>

<tr>
<td  class="h" >
<a name="3198">3198</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> then it has at least two rows which start and end and are </td>
</tr>

<tr>
<td  class="h" >
<a name="3199">3199</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> punctuated by a non-alphanumeric delimiter. </td>
</tr>

<tr>
<td  class="h" >
<a name="3200">3200</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3201">3201</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | val1 | val2 | </td>
</tr>

<tr>
<td  class="h" >
<a name="3202">3202</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | val3 | val4 | </td>
</tr>

<tr>
<td  class="h" >
<a name="3203">3203</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3204">3204</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3205">3205</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_delim_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3206">3206</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3207">3207</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3207-1"> 
123
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3207-1"> 
1
 </a> 
</td>

<td >

216

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3208">3208</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

376

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3209">3209</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3210">3210</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3211">3211</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3212">3212</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3213">3213</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

175

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3214">3214</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

162

</td>

<td class="s">     my $para_len = $args{para_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3215">3215</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3216">3216</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # </td>
</tr>

<tr>
<td  class="h" >
<a name="3217">3217</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # And note that it could be indented with spaces </td>
</tr>

<tr>
<td  class="h" >
<a name="3218">3218</a>
</td>

<td  class="c3" >

123

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3218-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

129

</td>

<td class="s">     if (@{$rows_ref} < 2) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

315

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3219">3219</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3220">3220</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3221">3221</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3222">3222</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3223">3223</a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

148

</td>

<td class="s">     my @rows = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

123

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

315

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3224">3224</a>
</td>

<td  class="c3" >

123

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3224-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3224-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

721

</td>

<td class="s">     if ($rows[0] !~ /[^\w\s]/ && $rows[0] =~ /^\s*\w+/)    # possible caption </td>
</tr>

<tr>
<td  class="h" >
<a name="3225">3225</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3226">3226</a>
</td>

<td  class="c3" >

44

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

77

</td>

<td class="s">         shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3227">3227</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3228">3228</a>
</td>

<td  class="c3" >

123

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3228-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

295

</td>

<td class="s">     if (@rows < 2) </td>
</tr>

<tr>
<td  class="h" >
<a name="3229">3229</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3230">3230</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

285

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3231">3231</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3232">3232</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # figure out if the row starts with a possible delimiter </td>
</tr>

<tr>
<td  class="h" >
<a name="3233">3233</a>
</td>

<td  class="c3" >

93

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

151

</td>

<td class="s">     my $delim = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3234">3234</a>
</td>

<td  class="c3" >

93

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3234-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

296

</td>

<td class="s">     if ($rows[0] =~ /^\s*([^[:alnum:]])/) </td>
</tr>

<tr>
<td  class="h" >
<a name="3235">3235</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3236">3236</a>
</td>

<td  class="c3" >

55

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

176

</td>

<td class="s">         $delim = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3237">3237</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # have to get rid of ^ and [] and \ </td>
</tr>

<tr>
<td  class="h" >
<a name="3238">3238</a>
</td>

<td  class="c3" >

55

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

111

</td>

<td class="s">         $delim =~ s/\^//g; </td>
</tr>

<tr>
<td  class="h" >
<a name="3239">3239</a>
</td>

<td  class="c3" >

55

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

79

</td>

<td class="s">         $delim =~ s/\[//g; </td>
</tr>

<tr>
<td  class="h" >
<a name="3240">3240</a>
</td>

<td  class="c3" >

55

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">         $delim =~ s/\]//g; </td>
</tr>

<tr>
<td  class="h" >
<a name="3241">3241</a>
</td>

<td  class="c3" >

55

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

87

</td>

<td class="s">         $delim =~ s/\\//g; </td>
</tr>

<tr>
<td  class="h" >
<a name="3242">3242</a>
</td>

<td  class="c3" >

55

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3242-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

129

</td>

<td class="s">         if (!$delim)    # no delimiter after all </td>
</tr>

<tr>
<td  class="h" >
<a name="3243">3243</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3244">3244</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">             return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3245">3245</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3246">3246</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3247">3247</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="3248">3248</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3249">3249</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

332

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3250">3250</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3251">3251</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # There needs to be at least three delimiters in the row </td>
</tr>

<tr>
<td  class="h" >
<a name="3252">3252</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

920

</td>

<td class="s">     my @all_delims = ($rows[0] =~ /[${delim}]/g); </td>
</tr>

<tr>
<td  class="h" >
<a name="3253">3253</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

119

</td>

<td class="s">     my $total_num_delims = @all_delims; </td>
</tr>

<tr>
<td  class="h" >
<a name="3254">3254</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3254-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

138

</td>

<td class="s">     if ($total_num_delims < 3) </td>
</tr>

<tr>
<td  class="h" >
<a name="3255">3255</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3256">3256</a>
</td>

<td  class="c3" >

16

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

146

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3257">3257</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3258">3258</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # All rows must start and end with the delimiter </td>
</tr>

<tr>
<td  class="h" >
<a name="3259">3259</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # and have $total_num_delims number of them </td>
</tr>

<tr>
<td  class="h" >
<a name="3260">3260</a>
</td>

<td  class="c3" >

38

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

69

</td>

<td class="s">     foreach my $row (@rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3261">3261</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3262">3262</a>
</td>

<td  class="c3" >

71

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3262-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

736

</td>

<td class="s">         if ($row !~ /^\s*[${delim}]/) </td>
</tr>

<tr>
<td  class="h" >
<a name="3263">3263</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3264">3264</a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

119

</td>

<td class="s">             return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3265">3265</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3266">3266</a>
</td>

<td  class="c3" >

63

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3266-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

588

</td>

<td class="s">         if ($row !~ /[${delim}]\s*$/) </td>
</tr>

<tr>
<td  class="h" >
<a name="3267">3267</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3268">3268</a>
</td>

<td  class="c3" >

23

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

303

</td>

<td class="s">             return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3269">3269</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3270">3270</a>
</td>

<td  class="c3" >

40

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

427

</td>

<td class="s">         @all_delims = ($row =~ /[${delim}]/g); </td>
</tr>

<tr>
<td  class="h" >
<a name="3271">3271</a>
</td>

<td  class="c3" >

40

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3271-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

177

</td>

<td class="s">         if (@all_delims != $total_num_delims) </td>
</tr>

<tr>
<td  class="h" >
<a name="3272">3272</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3273">3273</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3274">3274</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3275">3275</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3276">3276</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3277">3277</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

45

</td>

<td class="s">     return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3278">3278</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # is_delim_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3279">3279</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3280">3280</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 tablestuff </td>
</tr>

<tr>
<td  class="h" >
<a name="3281">3281</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3282">3282</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->tablestuff(table_type=>0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3283">3283</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		      rows_ref=>$rows_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3284">3284</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		      para_len=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="3285">3285</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3286">3286</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Process a table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3287">3287</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3288">3288</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3289">3289</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub tablestuff ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3290">3290</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3291">3291</a>
</td>

<td  class="c3" >

22

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3291-1"> 
22
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3291-1"> 
1
 </a> 
</td>

<td >

37

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3292">3292</a>
</td>

<td  class="c3" >

22

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

113

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3293">3293</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         table_type => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3294">3294</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref   => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3295">3295</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len   => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3296">3296</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3297">3297</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3298">3298</a>
</td>

<td  class="c3" >

22

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

140

</td>

<td class="s">     my $table_type = $args{table_type}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3299">3299</a>
</td>

<td  class="c3" >

22

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3299-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

70

</td>

<td class="s">     if ($table_type eq $TAB_ALIGN) </td>
</tr>

<tr>
<td  class="h" >
<a name="3300">3300</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3301">3301</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

38

</td>

<td class="s">         return $self->make_aligned_table(%args); </td>
</tr>

<tr>
<td  class="h" >
<a name="3302">3302</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3303">3303</a>
</td>

<td  class="c3" >

15

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3303-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

49

</td>

<td class="s">     if ($table_type eq $TAB_PGSQL) </td>
</tr>

<tr>
<td  class="h" >
<a name="3304">3304</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3305">3305</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

24

</td>

<td class="s">         return $self->make_pgsql_table(%args); </td>
</tr>

<tr>
<td  class="h" >
<a name="3306">3306</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3307">3307</a>
</td>

<td  class="c3" >

11

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3307-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">     if ($table_type eq $TAB_BORDER) </td>
</tr>

<tr>
<td  class="h" >
<a name="3308">3308</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3309">3309</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

24

</td>

<td class="s">         return $self->make_border_table(%args); </td>
</tr>

<tr>
<td  class="h" >
<a name="3310">3310</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3311">3311</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3311-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

29

</td>

<td class="s">     if ($table_type eq $TAB_DELIM) </td>
</tr>

<tr>
<td  class="h" >
<a name="3312">3312</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3313">3313</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">         return $self->make_delim_table(%args); </td>
</tr>

<tr>
<td  class="h" >
<a name="3314">3314</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3315">3315</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # tablestuff </td>
</tr>

<tr>
<td  class="h" >
<a name="3316">3316</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3317">3317</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 make_aligned_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3318">3318</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3319">3319</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->make_aligned_table(rows_ref=>$rows_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3320">3320</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			      para_len=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="3321">3321</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3322">3322</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make an Aligned table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3323">3323</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3324">3324</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3325">3325</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub make_aligned_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3326">3326</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3327">3327</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3327-1"> 
7
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3327-1"> 
1
 </a> 
</td>

<td >

13

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3328">3328</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3329">3329</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3330">3330</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3331">3331</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3332">3332</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3333">3333</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3334">3334</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

21

</td>

<td class="s">     my $para_len = $args{para_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3335">3335</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3336">3336</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # TABLES: spot and mark up tables.  We combine the lines of the </td>
</tr>

<tr>
<td  class="h" >
<a name="3337">3337</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # paragraph using the string bitwise or (|) operator, the result </td>
</tr>

<tr>
<td  class="h" >
<a name="3338">3338</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # being in $spaces.  A character in $spaces is a space only if </td>
</tr>

<tr>
<td  class="h" >
<a name="3339">3339</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # there was a space at that position in every line of the </td>
</tr>

<tr>
<td  class="h" >
<a name="3340">3340</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # paragraph.  $space can be used to search for contiguous spaces </td>
</tr>

<tr>
<td  class="h" >
<a name="3341">3341</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # that occur on all lines of the paragraph.  If this results in at </td>
</tr>

<tr>
<td  class="h" >
<a name="3342">3342</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # least two columns, the paragraph is identified as a table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3343">3343</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3344">3344</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Note that this sub must be called before checking for preformatted </td>
</tr>

<tr>
<td  class="h" >
<a name="3345">3345</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # lines because a table may well have whitespace to the left, in </td>
</tr>

<tr>
<td  class="h" >
<a name="3346">3346</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # which case it must not be incorrectly recognised as a preformat. </td>
</tr>

<tr>
<td  class="h" >
<a name="3347">3347</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     my @rows = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3348">3348</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     my @starts; </td>
</tr>

<tr>
<td  class="h" >
<a name="3349">3349</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my @ends; </td>
</tr>

<tr>
<td  class="h" >
<a name="3350">3350</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $spaces; </td>
</tr>

<tr>
<td  class="h" >
<a name="3351">3351</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     my $max = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3352">3352</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     my $min = $para_len; </td>
</tr>

<tr>
<td  class="h" >
<a name="3353">3353</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">     foreach my $row (@rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3354">3354</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3355">3355</a>
</td>

<td  class="c3" >

33

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

67

</td>

<td class="s">         ($spaces |= $row) =~ tr/ /\xff/c; </td>
</tr>

<tr>
<td  class="h" >
<a name="3356">3356</a>
</td>

<td  class="c3" >

33

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3356-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

78

</td>

<td class="s">         $min = length $row if length $row < $min; </td>
</tr>

<tr>
<td  class="h" >
<a name="3357">3357</a>
</td>

<td  class="c3" >

33

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3357-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

83

</td>

<td class="s">         $max = length $row if $max < length $row; </td>
</tr>

<tr>
<td  class="h" >
<a name="3358">3358</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3359">3359</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

19

</td>

<td class="s">     $spaces = substr $spaces, 0, $min; </td>
</tr>

<tr>
<td  class="h" >
<a name="3360">3360</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3360-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

38

</td>

<td class="s">     push(@starts, 0) unless $spaces =~ /^ /; </td>
</tr>

<tr>
<td  class="h" >
<a name="3361">3361</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

49

</td>

<td class="s">     while ($spaces =~ /((?:^| ) +)(?=[^ ])/g) </td>
</tr>

<tr>
<td  class="h" >
<a name="3362">3362</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3363">3363</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

34

</td>

<td class="s">         push @ends,   pos($spaces) - length $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3364">3364</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

51

</td>

<td class="s">         push @starts, pos($spaces); </td>
</tr>

<tr>
<td  class="h" >
<a name="3365">3365</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3366">3366</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3366-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">     shift(@ends) if $spaces =~ /^ /; </td>
</tr>

<tr>
<td  class="h" >
<a name="3367">3367</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">     push(@ends, $max); </td>
</tr>

<tr>
<td  class="h" >
<a name="3368">3368</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3369">3369</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Two or more rows and two or more columns indicate a table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3370">3370</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3370-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3370-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

49

</td>

<td class="s">     if (2 <= @rows and 2 <= @starts) </td>
</tr>

<tr>
<td  class="h" >
<a name="3371">3371</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3372">3372</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">         $self->{__mode} |= $TABLE; </td>
</tr>

<tr>
<td  class="h" >
<a name="3373">3373</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3374">3374</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # For each column, guess whether it should be left, centre or </td>
</tr>

<tr>
<td  class="h" >
<a name="3375">3375</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # right aligned by examining all cells in that column for space </td>
</tr>

<tr>
<td  class="h" >
<a name="3376">3376</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # to the left or the right.  A simple majority among those cells </td>
</tr>

<tr>
<td  class="h" >
<a name="3377">3377</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # that actually have space to one side or another decides (if no </td>
</tr>

<tr>
<td  class="h" >
<a name="3378">3378</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # alignment gets a majority, left alignment wins by default). </td>
</tr>

<tr>
<td  class="h" >
<a name="3379">3379</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">         my @align; </td>
</tr>

<tr>
<td  class="h" >
<a name="3380">3380</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">         my $cell = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3381">3381</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">         foreach my $col (0 .. $#starts) </td>
</tr>

<tr>
<td  class="h" >
<a name="3382">3382</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3383">3383</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">             my @count = (0, 0, 0, 0); </td>
</tr>

<tr>
<td  class="h" >
<a name="3384">3384</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">             foreach my $row (@rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3385">3385</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3386">3386</a>
</td>

<td  class="c3" >

69

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

106

</td>

<td class="s">                 my $width = $ends[$col] - $starts[$col]; </td>
</tr>

<tr>
<td  class="h" >
<a name="3387">3387</a>
</td>

<td  class="c3" >

69

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

118

</td>

<td class="s">                 $cell = substr $row, $starts[$col], $width; </td>
</tr>

<tr>
<td  class="h" >
<a name="3388">3388</a>
</td>

<td  class="c3" >

69

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3388-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3388-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

388

</td>

<td class="s">                 ++$count[($cell =~ /^ / ? 2 : 0) + </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3389">3389</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   ($cell =~ / $/ || length($cell) < $width ? 1 : 0)]; </td>
</tr>

<tr>
<td  class="h" >
<a name="3390">3390</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3391">3391</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

29

</td>

<td class="s">             $align[$col] = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3392">3392</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

26

</td>

<td class="s">             my $population = $count[1] + $count[2] + $count[3]; </td>
</tr>

<tr>
<td  class="h" >
<a name="3393">3393</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">             foreach (1 .. 3) </td>
</tr>

<tr>
<td  class="h" >
<a name="3394">3394</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3395">3395</a>
</td>

<td  class="c3" >

24

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3395-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

71

</td>

<td class="s">                 if ($count[$_] * 2 > $population) </td>
</tr>

<tr>
<td  class="h" >
<a name="3396">3396</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="3397">3397</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">                     $align[$col] = $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="3398">3398</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

35

</td>

<td class="s">                     last; </td>
</tr>

<tr>
<td  class="h" >
<a name="3399">3399</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="3400">3400</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3401">3401</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3402">3402</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3403">3403</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         foreach my $row (@rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3404">3404</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3405">3405</a>
</td>

<td  class="c3" >

69

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

161

</td>

<td class="s">             $row = join '', $self->get_tag('tr'), ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3406">3406</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 map { </td>
</tr>

<tr>
<td  class="h" >
<a name="3407">3407</a>
</td>

<td  class="c3" >

33

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

79

</td>

<td class="s">                     $cell = substr $row, $starts[$_], $ends[$_] - $starts[$_]; </td>
</tr>

<tr>
<td  class="h" >
<a name="3408">3408</a>
</td>

<td  class="c3" >

69

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

118

</td>

<td class="s">                     $cell =~ s/^ +//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3409">3409</a>
</td>

<td  class="c3" >

69

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

150

</td>

<td class="s">                     $cell =~ s/ +$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3410">3410</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3411">3411</a>
</td>

<td  class="c3" >

69

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3411-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

154

</td>

<td class="s">                     if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3412">3412</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3413">3413</a>
</td>

<td  class="c3" >

69

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

113

</td>

<td class="s">                         $cell = escape($cell); </td>
</tr>

<tr>
<td  class="h" >
<a name="3414">3414</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3415">3415</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3416">3416</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3417">3417</a>
</td>

<td  class="c3" >

69

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3417-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

257

</td>

<td class="s">                         $self->get_tag( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3418">3418</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                             'td', </td>
</tr>

<tr>
<td  class="h" >
<a name="3419">3419</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                             inside_tag => ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3420">3420</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                 $self->{xhtml} ? $xhtml_alignments[$align[$_]] </td>
</tr>

<tr>
<td  class="h" >
<a name="3421">3421</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                 : ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3422">3422</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                       $self->{lower_case_tags} </td>
</tr>

<tr>
<td  class="h" >
<a name="3423">3423</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                     ? $lc_alignments[$align[$_]] </td>
</tr>

<tr>
<td  class="h" >
<a name="3424">3424</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                     : $alignments[$align[$_]] </td>
</tr>

<tr>
<td  class="h" >
<a name="3425">3425</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                 ) </td>
</tr>

<tr>
<td  class="h" >
<a name="3426">3426</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                             ) </td>
</tr>

<tr>
<td  class="h" >
<a name="3427">3427</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         ), </td>
</tr>

<tr>
<td  class="h" >
<a name="3428">3428</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         $cell, </td>
</tr>

<tr>
<td  class="h" >
<a name="3429">3429</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         $self->close_tag('td') </td>
</tr>

<tr>
<td  class="h" >
<a name="3430">3430</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3431">3431</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   } 0 .. $#starts </td>
</tr>

<tr>
<td  class="h" >
<a name="3432">3432</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               ), </td>
</tr>

<tr>
<td  class="h" >
<a name="3433">3433</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               $self->close_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3434">3434</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3435">3435</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3436">3436</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # put the <TABLE> around the rows </td>
</tr>

<tr>
<td  class="h" >
<a name="3437">3437</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         my $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3438">3438</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3438-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">         if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3439">3439</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3440">3440</a>
</td>

<td  class="c3" >

5

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">             $tag = $self->get_tag('table', inside_tag => ' summary=""'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3441">3441</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3442">3442</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="3443">3443</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3444">3444</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">             $tag = $self->get_tag('table'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3445">3445</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3446">3446</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

24

</td>

<td class="s">         $rows[0] = join("\n", $tag, $rows[0]); </td>
</tr>

<tr>
<td  class="h" >
<a name="3447">3447</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

22

</td>

<td class="s">         $tag = $self->close_tag('table', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="3448">3448</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">         $rows[$#rows] .= "\n${tag}"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3449">3449</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">         @{$rows_ref} = @rows; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

29

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3450">3450</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

59

</td>

<td class="s">         return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3451">3451</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3452">3452</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="3453">3453</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3454">3454</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3455">3455</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3456">3456</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # make_aligned_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3457">3457</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3458">3458</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 make_pgsql_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3459">3459</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3460">3460</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->make_pgsql_table(rows_ref=>$rows_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3461">3461</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			      para_len=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="3462">3462</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3463">3463</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make a PGSQL table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3464">3464</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3465">3465</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3466">3466</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub make_pgsql_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3467">3467</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3468">3468</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3468-1"> 
4
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3468-1"> 
1
 </a> 
</td>

<td >

11

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3469">3469</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3470">3470</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3471">3471</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3472">3472</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3473">3473</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3474">3474</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3475">3475</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     my $para_len = $args{para_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3476">3476</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3477">3477</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # a PGSQL table can start with an optional table-caption, </td>
</tr>

<tr>
<td  class="h" >
<a name="3478">3478</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has a row of column headings separated by | </td>
</tr>

<tr>
<td  class="h" >
<a name="3479">3479</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has a row of ------+----- </td>
</tr>

<tr>
<td  class="h" >
<a name="3480">3480</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has one or more rows of column values separated by | </td>
</tr>

<tr>
<td  class="h" >
<a name="3481">3481</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has a row-count (N rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3482">3482</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Thus it must have at least 4 rows. </td>
</tr>

<tr>
<td  class="h" >
<a name="3483">3483</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s">     my @rows    = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

26

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3484">3484</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">     my $caption = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3485">3485</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3485-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3485-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

33

</td>

<td class="s">     if ($rows[0] !~ /\|/ && $rows[0] =~ /^\s*\w+/)    # possible caption </td>
</tr>

<tr>
<td  class="h" >
<a name="3486">3486</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3487">3487</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">         $caption = shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3488">3488</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3489">3489</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

41

</td>

<td class="s">     my @headings = split(/\s+\|\s+/, shift @rows); </td>
</tr>

<tr>
<td  class="h" >
<a name="3490">3490</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # skip the ----+--- line </td>
</tr>

<tr>
<td  class="h" >
<a name="3491">3491</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3492">3492</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # grab the N rows line </td>
</tr>

<tr>
<td  class="h" >
<a name="3493">3493</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">     my $n_rows = pop @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3494">3494</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3495">3495</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # now start making the table </td>
</tr>

<tr>
<td  class="h" >
<a name="3496">3496</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">     my @tab_lines = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="3497">3497</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">     my $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3498">3498</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $tag2; </td>
</tr>

<tr>
<td  class="h" >
<a name="3499">3499</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3499-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

19

</td>

<td class="s">     if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3500">3500</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3501">3501</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         $tag = $self->get_tag('table', inside_tag => ' border="1" summary=""'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3502">3502</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3503">3503</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="3504">3504</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3505">3505</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">         $tag = $self->get_tag('table', inside_tag => ' border="1"'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3506">3506</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3507">3507</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3508">3508</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3508-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">     if ($caption) </td>
</tr>

<tr>
<td  class="h" >
<a name="3509">3509</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3510">3510</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">         $caption =~ s/^\s+//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3511">3511</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">         $caption =~ s/\s+$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3512">3512</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">         $tag     = $self->get_tag('caption'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3513">3513</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s">         $tag2    = $self->close_tag('caption'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3514">3514</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">         $caption = join('', $tag, $caption, $tag2, "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="3515">3515</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">         push @tab_lines, $caption; </td>
</tr>

<tr>
<td  class="h" >
<a name="3516">3516</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3517">3517</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # table header </td>
</tr>

<tr>
<td  class="h" >
<a name="3518">3518</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">     my $thead = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3519">3519</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">     $tag = $self->get_tag('thead'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3520">3520</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">     $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3521">3521</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

30

</td>

<td class="s">     $tag = $self->get_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3522">3522</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3523">3523</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     foreach my $col (@headings) </td>
</tr>

<tr>
<td  class="h" >
<a name="3524">3524</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3525">3525</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

46

</td>

<td class="s">         $col =~ s/^\s+//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3526">3526</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

37

</td>

<td class="s">         $col =~ s/\s+$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3527">3527</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

40

</td>

<td class="s">         $tag  = $self->get_tag('th'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3528">3528</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

81

</td>

<td class="s">         $tag2 = $self->close_tag('th'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3529">3529</a>
</td>

<td  class="c3" >

18

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

53

</td>

<td class="s">         $thead .= join('', $tag, $col, $tag2); </td>
</tr>

<tr>
<td  class="h" >
<a name="3530">3530</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3531">3531</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     $tag = $self->close_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3532">3532</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3533">3533</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     $tag = $self->close_tag('thead'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3534">3534</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">     $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3535">3535</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     push @tab_lines, "${thead}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3536">3536</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     $tag = $self->get_tag('tbody'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3537">3537</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3538">3538</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3539">3539</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # each row </td>
</tr>

<tr>
<td  class="h" >
<a name="3540">3540</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     foreach my $row (@rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3541">3541</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3542">3542</a>
</td>

<td  class="c3" >

141

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

175

</td>

<td class="s">         my $this_row = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3543">3543</a>
</td>

<td  class="c3" >

141

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

258

</td>

<td class="s">         $tag = $self->get_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3544">3544</a>
</td>

<td  class="c3" >

141

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

173

</td>

<td class="s">         $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3545">3545</a>
</td>

<td  class="c3" >

141

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

837

</td>

<td class="s">         my @cols = split(/\|/, $row); </td>
</tr>

<tr>
<td  class="h" >
<a name="3546">3546</a>
</td>

<td  class="c3" >

141

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

252

</td>

<td class="s">         foreach my $cell (@cols) </td>
</tr>

<tr>
<td  class="h" >
<a name="3547">3547</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3548">3548</a>
</td>

<td  class="c3" >

1274

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3646

</td>

<td class="s">             $cell =~ s/^\s+//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3549">3549</a>
</td>

<td  class="c3" >

1274

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2665

</td>

<td class="s">             $cell =~ s/\s+$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3550">3550</a>
</td>

<td  class="c3" >

1274

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3550-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2590

</td>

<td class="s">             if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3551">3551</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3552">3552</a>
</td>

<td  class="c3" >

1274

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2067

</td>

<td class="s">                 $cell = escape($cell); </td>
</tr>

<tr>
<td  class="h" >
<a name="3553">3553</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3554">3554</a>
</td>

<td  class="c3" >

1274

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3554-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2326

</td>

<td class="s">             if (!$cell) </td>
</tr>

<tr>
<td  class="h" >
<a name="3555">3555</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3556">3556</a>
</td>

<td  class="c3" >

422

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

486

</td>

<td class="s">                 $cell = ' '; </td>
</tr>

<tr>
<td  class="h" >
<a name="3557">3557</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3558">3558</a>
</td>

<td  class="c3" >

1274

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2193

</td>

<td class="s">             $tag  = $self->get_tag('td'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3559">3559</a>
</td>

<td  class="c3" >

1274

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2281

</td>

<td class="s">             $tag2 = $self->close_tag('td'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3560">3560</a>
</td>

<td  class="c3" >

1274

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2517

</td>

<td class="s">             $this_row .= join('', $tag, $cell, $tag2); </td>
</tr>

<tr>
<td  class="h" >
<a name="3561">3561</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3562">3562</a>
</td>

<td  class="c3" >

141

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

301

</td>

<td class="s">         $tag = $self->close_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3563">3563</a>
</td>

<td  class="c3" >

141

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

171

</td>

<td class="s">         $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3564">3564</a>
</td>

<td  class="c3" >

141

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

685

</td>

<td class="s">         push @tab_lines, "${this_row}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3565">3565</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3566">3566</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3567">3567</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # end the table </td>
</tr>

<tr>
<td  class="h" >
<a name="3568">3568</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">     $tag = $self->close_tag('tbody'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3569">3569</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3570">3570</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">     $tag = $self->get_tag('table', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="3571">3571</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3572">3572</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3573">3573</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # and add the N rows line </td>
</tr>

<tr>
<td  class="h" >
<a name="3574">3574</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">     $tag = $self->get_tag('p'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3575">3575</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">     push @tab_lines, "${tag}${n_rows}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3576">3576</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3576-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

19

</td>

<td class="s">     if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3577">3577</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3578">3578</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">         $tag = $self->get_tag('p', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="3579">3579</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

481

</td>

<td class="s">         $tab_lines[$#tab_lines] =~ s/\n/${tag}\n/; </td>
</tr>

<tr>
<td  class="h" >
<a name="3580">3580</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3581">3581</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3582">3582</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # replace the rows </td>
</tr>

<tr>
<td  class="h" >
<a name="3583">3583</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     @{$rows_ref} = @tab_lines; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

164

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3584">3584</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # make_pgsql_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3585">3585</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3586">3586</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 make_border_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3587">3587</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3588">3588</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->make_border_table(rows_ref=>$rows_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3589">3589</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			     para_len=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="3590">3590</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3591">3591</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make a BORDER table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3592">3592</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3593">3593</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3594">3594</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub make_border_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3595">3595</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3596">3596</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3596-1"> 
4
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3596-1"> 
1
 </a> 
</td>

<td >

8

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3597">3597</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3598">3598</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3599">3599</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3600">3600</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3601">3601</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3602">3602</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3603">3603</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">     my $para_len = $args{para_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3604">3604</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3605">3605</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # a BORDER table can start with an optional table-caption, </td>
</tr>

<tr>
<td  class="h" >
<a name="3606">3606</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has a row of +------+-----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3607">3607</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has a row of column headings separated by | </td>
</tr>

<tr>
<td  class="h" >
<a name="3608">3608</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has a row of +------+-----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3609">3609</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has one or more rows of column values separated by | </td>
</tr>

<tr>
<td  class="h" >
<a name="3610">3610</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has a row of +------+-----+ </td>
</tr>

<tr>
<td  class="h" >
<a name="3611">3611</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s">     my @rows    = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3612">3612</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">     my $caption = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3613">3613</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3613-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3613-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">     if ($rows[0] !~ /\|/ && $rows[0] =~ /^\s*\w+/)    # possible caption </td>
</tr>

<tr>
<td  class="h" >
<a name="3614">3614</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3615">3615</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $caption = shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3616">3616</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3617">3617</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # skip the +----+---+ line </td>
</tr>

<tr>
<td  class="h" >
<a name="3618">3618</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">     shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3619">3619</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # get the head row and cut off the start and end | </td>
</tr>

<tr>
<td  class="h" >
<a name="3620">3620</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">     my $head_row = shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3621">3621</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">     $head_row =~ s/^\s*\|//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3622">3622</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">     $head_row =~ s/\|$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3623">3623</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">     my @headings = split(/\s+\|\s+/, $head_row); </td>
</tr>

<tr>
<td  class="h" >
<a name="3624">3624</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # skip the +----+---+ line </td>
</tr>

<tr>
<td  class="h" >
<a name="3625">3625</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">     shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3626">3626</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # skip the last +----+---+ line </td>
</tr>

<tr>
<td  class="h" >
<a name="3627">3627</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s">     pop @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3628">3628</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3629">3629</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # now start making the table </td>
</tr>

<tr>
<td  class="h" >
<a name="3630">3630</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">     my @tab_lines = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="3631">3631</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">     my $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3632">3632</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3632-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">     if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3633">3633</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3634">3634</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         $tag = $self->get_tag('table', inside_tag => ' border="1" summary=""'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3635">3635</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3636">3636</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="3637">3637</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3638">3638</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">         $tag = $self->get_tag('table', inside_tag => ' border="1"'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3639">3639</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3640">3640</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3641">3641</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3641-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     if ($caption) </td>
</tr>

<tr>
<td  class="h" >
<a name="3642">3642</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3643">3643</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $caption =~ s/^\s+//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3644">3644</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $caption =~ s/\s+$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3645">3645</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $tag     = $self->get_tag('caption'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3646">3646</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $caption = $tag . $caption; </td>
</tr>

<tr>
<td  class="h" >
<a name="3647">3647</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $tag     = $self->close_tag('caption'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3648">3648</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $caption .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3649">3649</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         push @tab_lines, "$caption\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3650">3650</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3651">3651</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # table header </td>
</tr>

<tr>
<td  class="h" >
<a name="3652">3652</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s">     my $thead = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3653">3653</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     $tag = $self->get_tag('thead'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3654">3654</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3655">3655</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     $tag = $self->get_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3656">3656</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">     $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3657">3657</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     foreach my $col (@headings) </td>
</tr>

<tr>
<td  class="h" >
<a name="3658">3658</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3659">3659</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">         $col =~ s/^\s+//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3660">3660</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">         $col =~ s/\s+$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3661">3661</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

24

</td>

<td class="s">         $tag = $self->get_tag('th'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3662">3662</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3663">3663</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         $thead .= $col; </td>
</tr>

<tr>
<td  class="h" >
<a name="3664">3664</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">         $tag = $self->close_tag('th'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3665">3665</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27

</td>

<td class="s">         $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3666">3666</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3667">3667</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     $tag = $self->close_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3668">3668</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">     $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3669">3669</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     $tag = $self->close_tag('thead'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3670">3670</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">     $thead .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3671">3671</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     push @tab_lines, "${thead}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3672">3672</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">     $tag = $self->get_tag('tbody'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3673">3673</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3674">3674</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3675">3675</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # each row </td>
</tr>

<tr>
<td  class="h" >
<a name="3676">3676</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     foreach my $row (@rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3677">3677</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3678">3678</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # cut off the start and end | </td>
</tr>

<tr>
<td  class="h" >
<a name="3679">3679</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

121

</td>

<td class="s">         $row =~ s/^\s*\|//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3680">3680</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">         $row =~ s/\|$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3681">3681</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

45

</td>

<td class="s">         my $this_row = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3682">3682</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

60

</td>

<td class="s">         $tag = $self->get_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3683">3683</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

40

</td>

<td class="s">         $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3684">3684</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

99

</td>

<td class="s">         my @cols = split(/\|/, $row); </td>
</tr>

<tr>
<td  class="h" >
<a name="3685">3685</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

71

</td>

<td class="s">         foreach my $cell (@cols) </td>
</tr>

<tr>
<td  class="h" >
<a name="3686">3686</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3687">3687</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

288

</td>

<td class="s">             $cell =~ s/^\s+//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3688">3688</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

309

</td>

<td class="s">             $cell =~ s/\s+$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3689">3689</a>
</td>

<td  class="c3" >

112

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3689-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

230

</td>

<td class="s">             if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3690">3690</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3691">3691</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

188

</td>

<td class="s">                 $cell = escape($cell); </td>
</tr>

<tr>
<td  class="h" >
<a name="3692">3692</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3693">3693</a>
</td>

<td  class="c3" >

112

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3693-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

212

</td>

<td class="s">             if (!$cell) </td>
</tr>

<tr>
<td  class="h" >
<a name="3694">3694</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3695">3695</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $cell = ' '; </td>
</tr>

<tr>
<td  class="h" >
<a name="3696">3696</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3697">3697</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

203

</td>

<td class="s">             $tag = $self->get_tag('td'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3698">3698</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

139

</td>

<td class="s">             $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3699">3699</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

124

</td>

<td class="s">             $this_row .= $cell; </td>
</tr>

<tr>
<td  class="h" >
<a name="3700">3700</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

197

</td>

<td class="s">             $tag = $self->close_tag('td'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3701">3701</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

189

</td>

<td class="s">             $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3702">3702</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3703">3703</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

60

</td>

<td class="s">         $tag = $self->close_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3704">3704</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

37

</td>

<td class="s">         $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3705">3705</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

116

</td>

<td class="s">         push @tab_lines, "${this_row}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3706">3706</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3707">3707</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3708">3708</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # end the table </td>
</tr>

<tr>
<td  class="h" >
<a name="3709">3709</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">     $tag = $self->close_tag('tbody'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3710">3710</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3711">3711</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">     $tag = $self->get_tag('table', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="3712">3712</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3713">3713</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3714">3714</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # replace the rows </td>
</tr>

<tr>
<td  class="h" >
<a name="3715">3715</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">     @{$rows_ref} = @tab_lines; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

83

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3716">3716</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # make_border_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3717">3717</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3718">3718</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 make_delim_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3719">3719</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3720">3720</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->make_delim_table(rows_ref=>$rows_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3721">3721</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			    para_len=>0); </td>
</tr>

<tr>
<td  class="h" >
<a name="3722">3722</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3723">3723</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make a Delimited table. </td>
</tr>

<tr>
<td  class="h" >
<a name="3724">3724</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3725">3725</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3726">3726</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub make_delim_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3727">3727</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3728">3728</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3728-1"> 
7
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3728-1"> 
1
 </a> 
</td>

<td >

15

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3729">3729</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

30

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3730">3730</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         rows_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3731">3731</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_len => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3732">3732</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3733">3733</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3734">3734</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">     my $rows_ref = $args{rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3735">3735</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     my $para_len = $args{para_len}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3736">3736</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3737">3737</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # a DELIM table can start with an optional table-caption, </td>
</tr>

<tr>
<td  class="h" >
<a name="3738">3738</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # then it has at least two rows which start and end and are </td>
</tr>

<tr>
<td  class="h" >
<a name="3739">3739</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # punctuated by a non-alphanumeric delimiter. </td>
</tr>

<tr>
<td  class="h" >
<a name="3740">3740</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # A DELIM table has no table-header. </td>
</tr>

<tr>
<td  class="h" >
<a name="3741">3741</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     my @rows    = @{$rows_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3742">3742</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">     my $caption = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3743">3743</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3743-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3743-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

55

</td>

<td class="s">     if ($rows[0] !~ /\|/ && $rows[0] =~ /^\s*\w+/)    # possible caption </td>
</tr>

<tr>
<td  class="h" >
<a name="3744">3744</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3745">3745</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">         $caption = shift @rows; </td>
</tr>

<tr>
<td  class="h" >
<a name="3746">3746</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3747">3747</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # figure out the delimiter </td>
</tr>

<tr>
<td  class="h" >
<a name="3748">3748</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     my $delim = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3749">3749</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3749-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

35

</td>

<td class="s">     if ($rows[0] =~ /^\s*([^[:alnum:]])/) </td>
</tr>

<tr>
<td  class="h" >
<a name="3750">3750</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3751">3751</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">         $delim = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3752">3752</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3753">3753</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="3754">3754</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3755">3755</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3756">3756</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3757">3757</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3758">3758</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # now start making the table </td>
</tr>

<tr>
<td  class="h" >
<a name="3759">3759</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">     my @tab_lines = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="3760">3760</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">     my $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3761">3761</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3761-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

22

</td>

<td class="s">     if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3762">3762</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3763">3763</a>
</td>

<td  class="c3" >

5

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         $tag = $self->get_tag('table', inside_tag => ' border="1" summary=""'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3764">3764</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3765">3765</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="3766">3766</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3767">3767</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">         $tag = $self->get_tag('table', inside_tag => ' border="1"'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3768">3768</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3769">3769</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

19

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3770">3770</a>
</td>

<td  class="c3" >

7

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3770-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20

</td>

<td class="s">     if ($caption) </td>
</tr>

<tr>
<td  class="h" >
<a name="3771">3771</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3772">3772</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">         $caption =~ s/^\s+//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3773">3773</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">         $caption =~ s/\s+$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3774">3774</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">         $tag     = $self->get_tag('caption'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3775">3775</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">         $caption = $tag . $caption; </td>
</tr>

<tr>
<td  class="h" >
<a name="3776">3776</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">         $tag     = $self->close_tag('caption'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3777">3777</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">         $caption .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3778">3778</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">         push @tab_lines, "$caption\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3779">3779</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3780">3780</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3781">3781</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # each row </td>
</tr>

<tr>
<td  class="h" >
<a name="3782">3782</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">     foreach my $row (@rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="3783">3783</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3784">3784</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # cut off the start and end delimiter </td>
</tr>

<tr>
<td  class="h" >
<a name="3785">3785</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

245

</td>

<td class="s">         $row =~ s/^\s*[${delim}]//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3786">3786</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

153

</td>

<td class="s">         $row =~ s/[${delim}]$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3787">3787</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

46

</td>

<td class="s">         my $this_row = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3788">3788</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

63

</td>

<td class="s">         $tag = $self->get_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3789">3789</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">         $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3790">3790</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

162

</td>

<td class="s">         my @cols = split(/[${delim}]/, $row); </td>
</tr>

<tr>
<td  class="h" >
<a name="3791">3791</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

55

</td>

<td class="s">         foreach my $cell (@cols) </td>
</tr>

<tr>
<td  class="h" >
<a name="3792">3792</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3793">3793</a>
</td>

<td  class="c3" >

95

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

221

</td>

<td class="s">             $cell =~ s/^\s+//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3794">3794</a>
</td>

<td  class="c3" >

95

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

243

</td>

<td class="s">             $cell =~ s/\s+$//; </td>
</tr>

<tr>
<td  class="h" >
<a name="3795">3795</a>
</td>

<td  class="c3" >

95

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3795-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

218

</td>

<td class="s">             if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3796">3796</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3797">3797</a>
</td>

<td  class="c3" >

95

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

155

</td>

<td class="s">                 $cell = escape($cell); </td>
</tr>

<tr>
<td  class="h" >
<a name="3798">3798</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3799">3799</a>
</td>

<td  class="c3" >

95

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3799-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

190

</td>

<td class="s">             if (!$cell) </td>
</tr>

<tr>
<td  class="h" >
<a name="3800">3800</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3801">3801</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">                 $cell = ' '; </td>
</tr>

<tr>
<td  class="h" >
<a name="3802">3802</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3803">3803</a>
</td>

<td  class="c3" >

95

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

180

</td>

<td class="s">             $tag = $self->get_tag('td'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3804">3804</a>
</td>

<td  class="c3" >

95

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

174

</td>

<td class="s">             $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3805">3805</a>
</td>

<td  class="c3" >

95

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

108

</td>

<td class="s">             $this_row .= $cell; </td>
</tr>

<tr>
<td  class="h" >
<a name="3806">3806</a>
</td>

<td  class="c3" >

95

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

160

</td>

<td class="s">             $tag = $self->close_tag('td'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3807">3807</a>
</td>

<td  class="c3" >

95

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

282

</td>

<td class="s">             $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3808">3808</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3809">3809</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

65

</td>

<td class="s">         $tag = $self->close_tag('tr'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3810">3810</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

41

</td>

<td class="s">         $this_row .= $tag; </td>
</tr>

<tr>
<td  class="h" >
<a name="3811">3811</a>
</td>

<td  class="c3" >

30

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

107

</td>

<td class="s">         push @tab_lines, "${this_row}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3812">3812</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3813">3813</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3814">3814</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # end the table </td>
</tr>

<tr>
<td  class="h" >
<a name="3815">3815</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

21

</td>

<td class="s">     $tag = $self->get_tag('table', tag_type => TAG_END); </td>
</tr>

<tr>
<td  class="h" >
<a name="3816">3816</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

18

</td>

<td class="s">     push @tab_lines, "$tag\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3817">3817</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3818">3818</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # replace the rows </td>
</tr>

<tr>
<td  class="h" >
<a name="3819">3819</a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     @{$rows_ref} = @tab_lines; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

7

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

71

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3820">3820</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # make_delim_table </td>
</tr>

<tr>
<td  class="h" >
<a name="3821">3821</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3822">3822</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_preformatted </td>
</tr>

<tr>
<td  class="h" >
<a name="3823">3823</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3824">3824</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_preformatted($line)) </td>
</tr>

<tr>
<td  class="h" >
<a name="3825">3825</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3826">3826</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="3827">3827</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3828">3828</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3829">3829</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Returns true if the passed string is considered to be preformatted. </td>
</tr>

<tr>
<td  class="h" >
<a name="3830">3830</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3831">3831</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3832">3832</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_preformatted ($$) </td>
</tr>

<tr>
<td  class="h" >
<a name="3833">3833</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3834">3834</a>
</td>

<td  class="c3" >

921

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3834-1"> 
921
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3834-1"> 
1
 </a> 
</td>

<td >

1079

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3835">3835</a>
</td>

<td  class="c3" >

921

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1328

</td>

<td class="s">     my $line = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3836">3836</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3837">3837</a>
</td>

<td  class="c3" >

921

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1288

</td>

<td class="s">     my $pre_white_min = $self->{preformat_whitespace_min}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3838">3838</a>
</td>

<td  class="c3" >

921

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3838-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

5934

</td>

<td class="s">     my $result        = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3839">3839</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ($line =~ /\s{$pre_white_min,}\S+/o)    # whitespaces </td>
</tr>

<tr>
<td  class="h" >
<a name="3840">3840</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           || ($line =~ /\.{$pre_white_min,}\S+/o) </td>
</tr>

<tr>
<td  class="h" >
<a name="3841">3841</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     );                                          # dots </td>
</tr>

<tr>
<td  class="h" >
<a name="3842">3842</a>
</td>

<td  class="c3" >

921

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4537

</td>

<td class="s">     return $result; </td>
</tr>

<tr>
<td  class="h" >
<a name="3843">3843</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="3844">3844</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3845">3845</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 split_end_explicit_preformat </td>
</tr>

<tr>
<td  class="h" >
<a name="3846">3846</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3847">3847</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $front = $self->split_end_explicit_preformat(para_ref=>$para_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="3848">3848</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3849">3849</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Modifies the given string, and returns the front preformatted part. </td>
</tr>

<tr>
<td  class="h" >
<a name="3850">3850</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3851">3851</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3852">3852</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub split_end_explicit_preformat ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3853">3853</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3854">3854</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3854-1"> 
0
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3854-1"> 
1
 </a> 
</td>

<td >

0

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3855">3855</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3856">3856</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3857">3857</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3858">3858</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3859">3859</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $para_ref = $args{para_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3860">3860</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3861">3861</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $tag      = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3862">3862</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $pre_str  = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3863">3863</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $post_str = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3864">3864</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3864-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     if ($self->{__mode} & $PRE_EXPLICIT) </td>
</tr>

<tr>
<td  class="h" >
<a name="3865">3865</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3866">3866</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         my $pe_mark = $self->{preformat_end_marker}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3867">3867</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3867-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if (${para_ref} =~ /$pe_mark/io) </td>
</tr>

<tr>
<td  class="h" >
<a name="3868">3868</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3869">3869</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ($pre_str, $post_str) = split(/$pe_mark/, ${$para_ref}, 2); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3870">3870</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3870-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3871">3871</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3872">3872</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $pre_str = escape($pre_str); </td>
</tr>

<tr>
<td  class="h" >
<a name="3873">3873</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3874">3874</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $tag = $self->close_tag('pre'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3875">3875</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $pre_str .= "${tag}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3876">3876</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $self->{__mode} ^= (($PRE | $PRE_EXPLICIT) & $self->{__mode}); </td>
</tr>

<tr>
<td  class="h" >
<a name="3877">3877</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3878">3878</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else    # no end -- the whole thing is preformatted </td>
</tr>

<tr>
<td  class="h" >
<a name="3879">3879</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3880">3880</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $pre_str = ${$para_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3881">3881</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3881-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3882">3882</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3883">3883</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $pre_str = escape($pre_str); </td>
</tr>

<tr>
<td  class="h" >
<a name="3884">3884</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3885">3885</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$para_ref} = ''; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3886">3886</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3887">3887</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3888">3888</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     return $pre_str; </td>
</tr>

<tr>
<td  class="h" >
<a name="3889">3889</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # split_end_explicit_preformat </td>
</tr>

<tr>
<td  class="h" >
<a name="3890">3890</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3891">3891</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 endpreformat </td>
</tr>

<tr>
<td  class="h" >
<a name="3892">3892</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3893">3893</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->endpreformat(para_lines_ref=>$para_lines_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3894">3894</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			para_action_ref=>$para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3895">3895</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			ind=>0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3896">3896</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			prev_ref=>$prev_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="3897">3897</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3898">3898</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> End a preformatted section. </td>
</tr>

<tr>
<td  class="h" >
<a name="3899">3899</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3900">3900</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3901">3901</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub endpreformat ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3902">3902</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3903">3903</a>
</td>

<td  class="c3" >

85

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3903-1"> 
85
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3903-1"> 
1
 </a> 
</td>

<td >

104

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3904">3904</a>
</td>

<td  class="c3" >

85

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

387

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3905">3905</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_lines_ref  => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3906">3906</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3907">3907</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ind             => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3908">3908</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3909">3909</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3910">3910</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3911">3911</a>
</td>

<td  class="c3" >

85

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

130

</td>

<td class="s">     my $para_lines_ref  = $args{para_lines_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3912">3912</a>
</td>

<td  class="c3" >

85

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

105

</td>

<td class="s">     my $para_action_ref = $args{para_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3913">3913</a>
</td>

<td  class="c3" >

85

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

100

</td>

<td class="s">     my $ind             = $args{ind}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3914">3914</a>
</td>

<td  class="c3" >

85

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

98

</td>

<td class="s">     my $prev_ref        = $args{prev_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3915">3915</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3916">3916</a>
</td>

<td  class="c3" >

85

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

99

</td>

<td class="s">     my $tag = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3917">3917</a>
</td>

<td  class="c3" >

85

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3917-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

198

</td>

<td class="s">     if ($self->{__mode} & $PRE_EXPLICIT) </td>
</tr>

<tr>
<td  class="h" >
<a name="3918">3918</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3919">3919</a>
</td>

<td  class="c3" >

5

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s">         my $pe_mark = $self->{preformat_end_marker}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3920">3920</a>
</td>

<td  class="c3" >

5

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3920-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

57

</td>

<td class="s">         if ($para_lines_ref->[$ind] =~ /$pe_mark/io) </td>
</tr>

<tr>
<td  class="h" >
<a name="3921">3921</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3922">3922</a>
</td>

<td  class="c3" >

1

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3922-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">             if ($ind == 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="3923">3923</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3924">3924</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $tag = $self->close_tag('pre'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3925">3925</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $para_lines_ref->[$ind] = "${tag}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3926">3926</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3927">3927</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             else </td>
</tr>

<tr>
<td  class="h" >
<a name="3928">3928</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="3929">3929</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">                 $tag = $self->close_tag('pre'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3930">3930</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">                 $para_lines_ref->[$ind - 1] .= "${tag}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3931">3931</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">                 $para_lines_ref->[$ind] = ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="3932">3932</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3933">3933</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">             $self->{__mode} ^= (($PRE | $PRE_EXPLICIT) & $self->{__mode}); </td>
</tr>

<tr>
<td  class="h" >
<a name="3934">3934</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">             $para_action_ref->[$ind] |= $END; </td>
</tr>

<tr>
<td  class="h" >
<a name="3935">3935</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3936">3936</a>
</td>

<td  class="c3" >

5

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">         return; </td>
</tr>

<tr>
<td  class="h" >
<a name="3937">3937</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3938">3938</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3939">3939</a>
</td>

<td  class="c3" >

80

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3939-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#3939-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

175

</td>

<td class="s">     if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3940">3940</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         !$self->is_preformatted($para_lines_ref->[$ind]) </td>
</tr>

<tr>
<td  class="h" >
<a name="3941">3941</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3942">3942</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             $self->{endpreformat_trigger_lines} == 1 </td>
</tr>

<tr>
<td  class="h" >
<a name="3943">3943</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || ($ind + 1 < @{$para_lines_ref} </td>
</tr>

<tr>
<td  class="h" >
<a name="3944">3944</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && !$self->is_preformatted($para_lines_ref->[$ind + 1])) </td>
</tr>

<tr>
<td  class="h" >
<a name="3945">3945</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || $ind + 1 >= @{$para_lines_ref}    # last line of para </td>
</tr>

<tr>
<td  class="h" >
<a name="3946">3946</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ) </td>
</tr>

<tr>
<td  class="h" >
<a name="3947">3947</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ) </td>
</tr>

<tr>
<td  class="h" >
<a name="3948">3948</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3949">3949</a>
</td>

<td  class="c3" >

4

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3949-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">         if ($ind == 0) </td>
</tr>

<tr>
<td  class="h" >
<a name="3950">3950</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3951">3951</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $tag = $self->close_tag('pre'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3952">3952</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$prev_ref} = "${tag}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3953">3953</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3954">3954</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="3955">3955</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="3956">3956</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">             $tag = $self->close_tag('pre'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3957">3957</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">             $para_lines_ref->[$ind - 1] .= "${tag}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3958">3958</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3959">3959</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">         $self->{__mode} ^= ($PRE & $self->{__mode}); </td>
</tr>

<tr>
<td  class="h" >
<a name="3960">3960</a>
</td>

<td  class="c3" >

4

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">         $para_action_ref->[$ind] |= $END; </td>
</tr>

<tr>
<td  class="h" >
<a name="3961">3961</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3962">3962</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # endpreformat </td>
</tr>

<tr>
<td  class="h" >
<a name="3963">3963</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3964">3964</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 preformat </td>
</tr>

<tr>
<td  class="h" >
<a name="3965">3965</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3966">3966</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->preformat(mode_ref=>$mode_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3967">3967</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     line_ref=>$line_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3968">3968</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     line_action_ref=>$line_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3969">3969</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_ref=>$prev_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3970">3970</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     next_ref=>$next_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="3971">3971</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     prev_action_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="3972">3972</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3973">3973</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Detect and process a preformatted section. </td>
</tr>

<tr>
<td  class="h" >
<a name="3974">3974</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3975">3975</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3976">3976</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub preformat ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="3977">3977</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="3978">3978</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3978-1"> 
823
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#3978-1"> 
1
 </a> 
</td>

<td >

1209

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="3979">3979</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4989

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3980">3980</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         mode_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3981">3981</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3982">3982</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3983">3983</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3984">3984</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         next_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3985">3985</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         prev_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="3986">3986</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="3987">3987</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3988">3988</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1196

</td>

<td class="s">     my $mode_ref        = $args{mode_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3989">3989</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1147

</td>

<td class="s">     my $line_ref        = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3990">3990</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

959

</td>

<td class="s">     my $line_action_ref = $args{line_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3991">3991</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

882

</td>

<td class="s">     my $prev_ref        = $args{prev_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3992">3992</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

982

</td>

<td class="s">     my $next_ref        = $args{next_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3993">3993</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

949

</td>

<td class="s">     my $prev_action_ref = $args{prev_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3994">3994</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3995">3995</a>
</td>

<td  class="c3" >

823

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1013

</td>

<td class="s">     my $tag = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="3996">3996</a>
</td>

<td  class="c3" >

823

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3996-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1793

</td>

<td class="s">     if ($self->{use_preformat_marker}) </td>
</tr>

<tr>
<td  class="h" >
<a name="3997">3997</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="3998">3998</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">         my $pstart = $self->{preformat_start_marker}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3999">3999</a>
</td>

<td  class="c3" >

6

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#3999-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">         if (${$line_ref} =~ /$pstart/io) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

81

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4000">4000</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4001">4001</a>
</td>

<td  class="c3" >

1

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4001-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">             if (${$prev_ref} =~ s/<p>$//) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4002">4002</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="4003">4003</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 pop @{$self->{__tags}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4004">4004</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="4005">4005</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             $tag = </td>
</tr>

<tr>
<td  class="h" >
<a name="4006">4006</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4

</td>

<td class="s">               $self->get_tag('pre', inside_tag => " class='quote_explicit'"); </td>
</tr>

<tr>
<td  class="h" >
<a name="4007">4007</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">             ${$line_ref} = "${tag}\n"; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4008">4008</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s">             ${$mode_ref}        |= $PRE | $PRE_EXPLICIT; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4009">4009</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">             ${$line_action_ref} |= $PRE; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4010">4010</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">             return; </td>
</tr>

<tr>
<td  class="h" >
<a name="4011">4011</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4012">4012</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4013">4013</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4014">4014</a>
</td>

<td  class="c3" >

822

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4014-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#4014-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

881

</td>

<td class="s">     if ( </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4015">4015</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">            !(${$line_action_ref} & $MAILQUOTE) </td>
</tr>

<tr>
<td  class="h" >
<a name="4016">4016</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && !(${$prev_action_ref} & $MAILQUOTE) </td>
</tr>

<tr>
<td  class="h" >
<a name="4017">4017</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4018">4018</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             $self->{preformat_trigger_lines} == 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="4019">4019</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4020">4020</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 $self->is_preformatted(${$line_ref}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4021">4021</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4022">4022</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     $self->{preformat_trigger_lines} == 1 </td>
</tr>

<tr>
<td  class="h" >
<a name="4023">4023</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     || (defined $next_ref </td>
</tr>

<tr>
<td  class="h" >
<a name="4024">4024</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                         && $self->is_preformatted(${$next_ref})) </td>
</tr>

<tr>
<td  class="h" >
<a name="4025">4025</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ) </td>
</tr>

<tr>
<td  class="h" >
<a name="4026">4026</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             ) </td>
</tr>

<tr>
<td  class="h" >
<a name="4027">4027</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ) </td>
</tr>

<tr>
<td  class="h" >
<a name="4028">4028</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ) </td>
</tr>

<tr>
<td  class="h" >
<a name="4029">4029</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4030">4030</a>
</td>

<td  class="c3" >

20

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4030-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

33

</td>

<td class="s">         if (${$prev_ref} =~ s/<p>$//) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

69

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4031">4031</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4032">4032</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             pop @{$self->{__tags}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4033">4033</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4034">4034</a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

256

</td>

<td class="s">         $tag = $self->get_tag('pre'); </td>
</tr>

<tr>
<td  class="h" >
<a name="4035">4035</a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

200

</td>

<td class="s">         ${$line_ref} =~ s/^/${tag}\n/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

125

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4036">4036</a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

34

</td>

<td class="s">         ${$mode_ref}        |= $PRE; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

29

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4037">4037</a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">         ${$line_action_ref} |= $PRE; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

60

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4038">4038</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4039">4039</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # preformat </td>
</tr>

<tr>
<td  class="h" >
<a name="4040">4040</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4041">4041</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 make_new_anchor </td>
</tr>

<tr>
<td  class="h" >
<a name="4042">4042</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4043">4043</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $anchor = $self->make_new_anchor($heading_level); </td>
</tr>

<tr>
<td  class="h" >
<a name="4044">4044</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4045">4045</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make a new anchor. </td>
</tr>

<tr>
<td  class="h" >
<a name="4046">4046</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4047">4047</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4048">4048</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub make_new_anchor ($$) </td>
</tr>

<tr>
<td  class="h" >
<a name="4049">4049</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4050">4050</a>
</td>

<td  class="c3" >

73

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4050-1"> 
73
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4050-1"> 
1
 </a> 
</td>

<td >

131

</td>

<td class="s">     my $self          = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4051">4051</a>
</td>

<td  class="c3" >

73

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

105

</td>

<td class="s">     my $heading_level = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4052">4052</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4053">4053</a>
</td>

<td  class="c3" >

73

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

95

</td>

<td class="s">     my ($anchor, $i); </td>
</tr>

<tr>
<td  class="h" >
<a name="4054">4054</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4055">4055</a>
</td>

<td  class="c3" >

73

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4055-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

248

</td>

<td class="s">     return sprintf("%d", $self->{__non_header_anchor}++) if (!$heading_level); </td>
</tr>

<tr>
<td  class="h" >
<a name="4056">4056</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4057">4057</a>
</td>

<td  class="c3" >

62

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

114

</td>

<td class="s">     $anchor = "section"; </td>
</tr>

<tr>
<td  class="h" >
<a name="4058">4058</a>
</td>

<td  class="c3" >

62

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

154

</td>

<td class="s">     $self->{__heading_count}->[$heading_level - 1]++; </td>
</tr>

<tr>
<td  class="h" >
<a name="4059">4059</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4060">4060</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Reset lower order counters </td>
</tr>

<tr>
<td  class="h" >
<a name="4061">4061</a>
</td>

<td  class="c3" >

62

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

71

</td>

<td class="s">     for ($i = @{$self->{__heading_count}}; $i > $heading_level; $i--) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

62

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

214

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4062">4062</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4063">4063</a>
</td>

<td  class="c3" >

14

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

41

</td>

<td class="s">         $self->{__heading_count}->[$i - 1] = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4064">4064</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4065">4065</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4066">4066</a>
</td>

<td  class="c3" >

62

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

157

</td>

<td class="s">     for ($i = 0; $i < $heading_level; $i++) </td>
</tr>

<tr>
<td  class="h" >
<a name="4067">4067</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4068">4068</a>
</td>

<td  class="c3" >

151

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4068-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

352

</td>

<td class="s">         $self->{__heading_count}->[$i] = 1 </td>
</tr>

<tr>
<td  class="h" >
<a name="4069">4069</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           if !$self->{__heading_count}->[$i];    # In case they skip any </td>
</tr>

<tr>
<td  class="h" >
<a name="4070">4070</a>
</td>

<td  class="c3" >

151

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

685

</td>

<td class="s">         $anchor .= sprintf("_%d", $self->{__heading_count}->[$i]); </td>
</tr>

<tr>
<td  class="h" >
<a name="4071">4071</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4072">4072</a>
</td>

<td  class="c3" >

62

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

81

</td>

<td class="s">     chomp($anchor); </td>
</tr>

<tr>
<td  class="h" >
<a name="4073">4073</a>
</td>

<td  class="c3" >

62

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

164

</td>

<td class="s">     $anchor; </td>
</tr>

<tr>
<td  class="h" >
<a name="4074">4074</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # make_new_anchor </td>
</tr>

<tr>
<td  class="h" >
<a name="4075">4075</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4076">4076</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 anchor_mail </td>
</tr>

<tr>
<td  class="h" >
<a name="4077">4077</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4078">4078</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->anchor_mail($line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4079">4079</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4080">4080</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make an anchor for a mail section. </td>
</tr>

<tr>
<td  class="h" >
<a name="4081">4081</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4082">4082</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4083">4083</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub anchor_mail ($$) </td>
</tr>

<tr>
<td  class="h" >
<a name="4084">4084</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4085">4085</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4085-1"> 
11
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4085-1"> 
1
 </a> 
</td>

<td >

20

</td>

<td class="s">     my $self     = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4086">4086</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20

</td>

<td class="s">     my $line_ref = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4087">4087</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4088">4088</a>
</td>

<td  class="c3" >

11

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4088-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">     if ($self->{make_anchors}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4089">4089</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4090">4090</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">         my ($anchor) = $self->make_new_anchor(0); </td>
</tr>

<tr>
<td  class="h" >
<a name="4091">4091</a>
</td>

<td  class="c3" >

11

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4091-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">         if ($self->{lower_case_tags}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4092">4092</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4093">4093</a>
</td>

<td  class="c3" >

10

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">             ${$line_ref} =~ s/([^ ]*)/<a name="$anchor">$1<\/a>/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

10

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

192

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4094">4094</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4095">4095</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="4096">4096</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4097">4097</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">             ${$line_ref} =~ s/([^ ]*)/<A NAME="$anchor">$1<\/A>/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4098">4098</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4099">4099</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4100">4100</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # anchor_mail </td>
</tr>

<tr>
<td  class="h" >
<a name="4101">4101</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4102">4102</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 anchor_heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4103">4103</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4104">4104</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->anchor_heading($heading_level, $line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4105">4105</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4106">4106</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make an anchor for a heading. </td>
</tr>

<tr>
<td  class="h" >
<a name="4107">4107</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4108">4108</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4109">4109</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub anchor_heading ($$$) </td>
</tr>

<tr>
<td  class="h" >
<a name="4110">4110</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4111">4111</a>
</td>

<td  class="c3" >

63

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4111-1"> 
63
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4111-1"> 
1
 </a> 
</td>

<td >

107

</td>

<td class="s">     my $self     = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4112">4112</a>
</td>

<td  class="c3" >

63

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

89

</td>

<td class="s">     my $level    = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4113">4113</a>
</td>

<td  class="c3" >

63

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

82

</td>

<td class="s">     my $line_ref = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4114">4114</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4115">4115</a>
</td>

<td  class="c3" >

63

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4115-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

150

</td>

<td class="s">     if ($DictDebug & 8) </td>
</tr>

<tr>
<td  class="h" >
<a name="4116">4116</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4117">4117</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         print STDERR "anchor_heading: ", ${$line_ref}, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4118">4118</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4119">4119</a>
</td>

<td  class="c3" >

63

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4119-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

168

</td>

<td class="s">     if ($self->{make_anchors}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4120">4120</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4121">4121</a>
</td>

<td  class="c3" >

62

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

198

</td>

<td class="s">         my ($anchor) = $self->make_new_anchor($level); </td>
</tr>

<tr>
<td  class="h" >
<a name="4122">4122</a>
</td>

<td  class="c3" >

62

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4122-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

157

</td>

<td class="s">         if ($self->{lower_case_tags}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4123">4123</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4124">4124</a>
</td>

<td  class="c3" >

47

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

58

</td>

<td class="s">             ${$line_ref} =~ s/(<h.>)(.*)(<\/h.>)/$1<a name="$anchor">$2<\/a>$3/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

47

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

520

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4125">4125</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4126">4126</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="4127">4127</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4128">4128</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">             ${$line_ref} =~ s/(<H.>)(.*)(<\/H.>)/$1<A NAME="$anchor">$2<\/A>$3/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

138

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4129">4129</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4130">4130</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4131">4131</a>
</td>

<td  class="c3" >

63

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4131-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

263

</td>

<td class="s">     if ($DictDebug & 8) </td>
</tr>

<tr>
<td  class="h" >
<a name="4132">4132</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4133">4133</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         print STDERR "anchor_heading(after): ", ${$line_ref}, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4134">4134</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4135">4135</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # anchor_heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4136">4136</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4137">4137</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 heading_level </td>
</tr>

<tr>
<td  class="h" >
<a name="4138">4138</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4139">4139</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->heading_level($style); </td>
</tr>

<tr>
<td  class="h" >
<a name="4140">4140</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4141">4141</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Add a new heading style if this is a new heading style. </td>
</tr>

<tr>
<td  class="h" >
<a name="4142">4142</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4143">4143</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4144">4144</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub heading_level ($$) </td>
</tr>

<tr>
<td  class="h" >
<a name="4145">4145</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4146">4146</a>
</td>

<td  class="c3" >

63

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4146-1"> 
63
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4146-1"> 
1
 </a> 
</td>

<td >

108

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4147">4147</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4148">4148</a>
</td>

<td  class="c3" >

63

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

98

</td>

<td class="s">     my ($style) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="4149">4149</a>
</td>

<td  class="c3" >

63

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4149-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

278

</td>

<td class="s">     $self->{__heading_styles}->{$style} = ++$self->{__num_heading_styles} </td>
</tr>

<tr>
<td  class="h" >
<a name="4150">4150</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if !$self->{__heading_styles}->{$style}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4151">4151</a>
</td>

<td  class="c3" >

63

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

179

</td>

<td class="s">     $self->{__heading_styles}->{$style}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4152">4152</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # heading_level </td>
</tr>

<tr>
<td  class="h" >
<a name="4153">4153</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4154">4154</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_ul_list_line </td>
</tr>

<tr>
<td  class="h" >
<a name="4155">4155</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4156">4156</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_ul_list_line($line)) </td>
</tr>

<tr>
<td  class="h" >
<a name="4157">4157</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4158">4158</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="4159">4159</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4160">4160</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4161">4161</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Tests if this line starts a UL list item. </td>
</tr>

<tr>
<td  class="h" >
<a name="4162">4162</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4163">4163</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4164">4164</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_ul_list_line ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4165">4165</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4166">4166</a>
</td>

<td  class="c3" >

267

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4166-1"> 
267
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4166-1"> 
1
 </a> 
</td>

<td >

373

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4167">4167</a>
</td>

<td  class="c3" >

267

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

943

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4168">4168</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4169">4169</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4170">4170</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4171">4171</a>
</td>

<td  class="c3" >

267

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

426

</td>

<td class="s">     my $line = $args{line}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4172">4172</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4173">4173</a>
</td>

<td  class="c3" >

267

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

781

</td>

<td class="s">     my ($prefix, $number, $rawprefix, $term) = $self->listprefix($line); </td>
</tr>

<tr>
<td  class="h" >
<a name="4174">4174</a>
</td>

<td  class="c3" >

267

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4174-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#4174-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

962

</td>

<td class="s">     if ($prefix && !$number) </td>
</tr>

<tr>
<td  class="h" >
<a name="4175">4175</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4176">4176</a>
</td>

<td  class="c3" >

32

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

197

</td>

<td class="s">         return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="4177">4177</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4178">4178</a>
</td>

<td  class="c3" >

235

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2681

</td>

<td class="s">     return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4179">4179</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="4180">4180</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4181">4181</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4182">4182</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4183">4183</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_heading(line_ref=>$line_ref, next_ref=>$next_ref)) </td>
</tr>

<tr>
<td  class="h" >
<a name="4184">4184</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4185">4185</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="4186">4186</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4187">4187</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4188">4188</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Tests if this line is a heading.  Needs to take account of the </td>
</tr>

<tr>
<td  class="h" >
<a name="4189">4189</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> next line, because a standard heading is defined by "underlining" </td>
</tr>

<tr>
<td  class="h" >
<a name="4190">4190</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the text of the heading. </td>
</tr>

<tr>
<td  class="h" >
<a name="4191">4191</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4192">4192</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4193">4193</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_heading ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4194">4194</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4195">4195</a>
</td>

<td  class="c3" >

269

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4195-1"> 
269
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4195-1"> 
1
 </a> 
</td>

<td >

375

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4196">4196</a>
</td>

<td  class="c3" >

269

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1108

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4197">4197</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4198">4198</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         next_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4199">4199</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4200">4200</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4201">4201</a>
</td>

<td  class="c3" >

269

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

444

</td>

<td class="s">     my $line_ref = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4202">4202</a>
</td>

<td  class="c3" >

269

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

384

</td>

<td class="s">     my $next_ref = $args{next_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4203">4203</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4204">4204</a>
</td>

<td  class="c3" >

269

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4204-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#4204-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

332

</td>

<td class="s">     if (   ${$line_ref} !~ /^\s*$/ </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-3"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4205">4205</a>
</td>

<td  class="c3" >

235

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1232

</td>

<td class="s">         && !$self->is_ul_list_line(line => ${$line_ref}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4206">4206</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && defined $next_ref </td>
</tr>

<tr>
<td  class="h" >
<a name="4207">4207</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && ${$next_ref} =~ /^\s*[-=*.~+]+\s*$/) </td>
</tr>

<tr>
<td  class="h" >
<a name="4208">4208</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4209">4209</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

80

</td>

<td class="s">         my ($hoffset, $heading) = ${$line_ref} =~ /^(\s*)(.+)$/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

308

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4210">4210</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4210-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

148

</td>

<td class="s">         $hoffset = "" unless defined($hoffset); </td>
</tr>

<tr>
<td  class="h" >
<a name="4211">4211</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4211-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

129

</td>

<td class="s">         $heading = "" unless defined($heading); </td>
</tr>

<tr>
<td  class="h" >
<a name="4212">4212</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Unescape chars so we get an accurate length </td>
</tr>

<tr>
<td  class="h" >
<a name="4213">4213</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

123

</td>

<td class="s">         $heading =~ s/&[^;]+;/X/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="4214">4214</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

76

</td>

<td class="s">         my ($uoffset, $underline) = ${$next_ref} =~ /^(\s*)(\S+)\s*$/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

288

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4215">4215</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4215-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

139

</td>

<td class="s">         $uoffset   = "" unless defined($uoffset); </td>
</tr>

<tr>
<td  class="h" >
<a name="4216">4216</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4216-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

133

</td>

<td class="s">         $underline = "" unless defined($underline); </td>
</tr>

<tr>
<td  class="h" >
<a name="4217">4217</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

77

</td>

<td class="s">         my ($lendiff, $offsetdiff); </td>
</tr>

<tr>
<td  class="h" >
<a name="4218">4218</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

99

</td>

<td class="s">         $lendiff = length($heading) - length($underline); </td>
</tr>

<tr>
<td  class="h" >
<a name="4219">4219</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4219-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

133

</td>

<td class="s">         $lendiff *= -1 if $lendiff < 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4220">4220</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4221">4221</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

87

</td>

<td class="s">         $offsetdiff = length($hoffset) - length($uoffset); </td>
</tr>

<tr>
<td  class="h" >
<a name="4222">4222</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4222-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

129

</td>

<td class="s">         $offsetdiff *= -1 if $offsetdiff < 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4223">4223</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4223-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#4223-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

206

</td>

<td class="s">         if (   ($lendiff <= $self->{underline_length_tolerance}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4224">4224</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             || ($offsetdiff <= $self->{underline_offset_tolerance})) </td>
</tr>

<tr>
<td  class="h" >
<a name="4225">4225</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4226">4226</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

188

</td>

<td class="s">             return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="4227">4227</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4228">4228</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4229">4229</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4230">4230</a>
</td>

<td  class="c3" >

215

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

605

</td>

<td class="s">     return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4231">4231</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4232">4232</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # is_heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4233">4233</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4234">4234</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4235">4235</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      </td>
</tr>

<tr>
<td  class="h" >
<a name="4236">4236</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->heading(line_ref=>$line_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4237">4237</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	next_ref=>$next_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4238">4238</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4239">4239</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make a heading. </td>
</tr>

<tr>
<td  class="h" >
<a name="4240">4240</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Assumes is_heading is true. </td>
</tr>

<tr>
<td  class="h" >
<a name="4241">4241</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4242">4242</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4243">4243</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub heading ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4244">4244</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4245">4245</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4245-1"> 
54
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4245-1"> 
1
 </a> 
</td>

<td >

92

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4246">4246</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

205

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4247">4247</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4248">4248</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         next_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4249">4249</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4250">4250</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4251">4251</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

101

</td>

<td class="s">     my $line_ref = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4252">4252</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

79

</td>

<td class="s">     my $next_ref = $args{next_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4253">4253</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4254">4254</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

87

</td>

<td class="s">     my ($hoffset, $heading) = ${$line_ref} =~ /^(\s*)(.+)$/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

427

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4255">4255</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4255-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

143

</td>

<td class="s">     $hoffset = "" unless defined($hoffset); </td>
</tr>

<tr>
<td  class="h" >
<a name="4256">4256</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4256-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

118

</td>

<td class="s">     $heading = "" unless defined($heading); </td>
</tr>

<tr>
<td  class="h" >
<a name="4257">4257</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

175

</td>

<td class="s">     $heading =~ s/&[^;]+;/X/g;    # Unescape chars so we get an accurate length </td>
</tr>

<tr>
<td  class="h" >
<a name="4258">4258</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

63

</td>

<td class="s">     my ($uoffset, $underline) = ${$next_ref} =~ /^(\s*)(\S+)\s*$/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

293

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4259">4259</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4259-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

134

</td>

<td class="s">     $uoffset   = "" unless defined($uoffset); </td>
</tr>

<tr>
<td  class="h" >
<a name="4260">4260</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4260-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

131

</td>

<td class="s">     $underline = "" unless defined($underline); </td>
</tr>

<tr>
<td  class="h" >
<a name="4261">4261</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4262">4262</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

122

</td>

<td class="s">     $underline = substr($underline, 0, 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="4263">4263</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4264">4264</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Call it a different style if the heading is in all caps. </td>
</tr>

<tr>
<td  class="h" >
<a name="4265">4265</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4265-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

74

</td>

<td class="s">     $underline .= "C" if $self->iscaps(${$line_ref}); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

165

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4266">4266</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">     ${$next_ref} = " ";           # Eat the underline </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

101

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4267">4267</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

185

</td>

<td class="s">     $self->{__heading_level} = $self->heading_level($underline); </td>
</tr>

<tr>
<td  class="h" >
<a name="4268">4268</a>
</td>

<td  class="c3" >

54

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4268-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

147

</td>

<td class="s">     if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4269">4269</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4270">4270</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

79

</td>

<td class="s">         ${$line_ref} = escape(${$line_ref}); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

89

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

147

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4271">4271</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4272">4272</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

274

</td>

<td class="s">     $self->tagline("H" . $self->{__heading_level}, $line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4273">4273</a>
</td>

<td  class="c3" >

54

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

243

</td>

<td class="s">     $self->anchor_heading($self->{__heading_level}, $line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4274">4274</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4275">4275</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4276">4276</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 is_custom_heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4277">4277</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4278">4278</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->is_custom_heading($line)) </td>
</tr>

<tr>
<td  class="h" >
<a name="4279">4279</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4280">4280</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="4281">4281</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4282">4282</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4283">4283</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Check if the given line matches a custom heading. </td>
</tr>

<tr>
<td  class="h" >
<a name="4284">4284</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4285">4285</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4286">4286</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub is_custom_heading ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4287">4287</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4288">4288</a>
</td>

<td  class="c3" >

155

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4288-1"> 
155
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4288-1"> 
1
 </a> 
</td>

<td >

193

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4289">4289</a>
</td>

<td  class="c3" >

155

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

426

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4290">4290</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4291">4291</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4292">4292</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4293">4293</a>
</td>

<td  class="c3" >

155

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

215

</td>

<td class="s">     my $line = $args{line}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4294">4294</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4295">4295</a>
</td>

<td  class="c3" >

155

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

171

</td>

<td class="s">     foreach my $reg (@{$self->{custom_heading_regexp}}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

155

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

323

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4296">4296</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4297">4297</a>
</td>

<td  class="c3" >

161

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4297-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1064

</td>

<td class="s">         return 1 if ($line =~ /$reg/); </td>
</tr>

<tr>
<td  class="h" >
<a name="4298">4298</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4299">4299</a>
</td>

<td  class="c3" >

146

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

382

</td>

<td class="s">     return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4300">4300</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # is_custom_heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4301">4301</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4302">4302</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 custom_heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4303">4303</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4304">4304</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->custom_heading(line_ref=>$line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4305">4305</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4306">4306</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make a custom heading.  Assumes is_custom_heading is true. </td>
</tr>

<tr>
<td  class="h" >
<a name="4307">4307</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4308">4308</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4309">4309</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub custom_heading ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4310">4310</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4311">4311</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4311-1"> 
9
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4311-1"> 
1
 </a> 
</td>

<td >

88

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4312">4312</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

28

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4313">4313</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4314">4314</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4315">4315</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4316">4316</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">     my $line_ref = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4317">4317</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4318">4318</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     my $level; </td>
</tr>

<tr>
<td  class="h" >
<a name="4319">4319</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">     my $i = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4320">4320</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13

</td>

<td class="s">     foreach my $reg (@{$self->{custom_heading_regexp}}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

22

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4321">4321</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4322">4322</a>
</td>

<td  class="c3" >

11

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4322-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">         if (${$line_ref} =~ /$reg/) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

232

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4323">4323</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4324">4324</a>
</td>

<td  class="c3" >

9

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4324-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

26

</td>

<td class="s">             if ($self->{explicit_headings}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4325">4325</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="4326">4326</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $level = $i + 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="4327">4327</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="4328">4328</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             else </td>
</tr>

<tr>
<td  class="h" >
<a name="4329">4329</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="4330">4330</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s">                 $level = $self->heading_level("Cust" . $i); </td>
</tr>

<tr>
<td  class="h" >
<a name="4331">4331</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="4332">4332</a>
</td>

<td  class="c3" >

9

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4332-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">             if ($self->{escape_HTML_chars}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4333">4333</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="4334">4334</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">                 ${$line_ref} = escape(${$line_ref}); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4335">4335</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="4336">4336</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

40

</td>

<td class="s">             $self->tagline("H" . $level, $line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4337">4337</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32

</td>

<td class="s">             $self->anchor_heading($level, $line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4338">4338</a>
</td>

<td  class="c3" >

9

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

30

</td>

<td class="s">             last; </td>
</tr>

<tr>
<td  class="h" >
<a name="4339">4339</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4340">4340</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">         $i++; </td>
</tr>

<tr>
<td  class="h" >
<a name="4341">4341</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4342">4342</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # custom_heading </td>
</tr>

<tr>
<td  class="h" >
<a name="4343">4343</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4344">4344</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 unhyphenate_para </td>
</tr>

<tr>
<td  class="h" >
<a name="4345">4345</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4346">4346</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->unhyphenate_para($para_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4347">4347</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4348">4348</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Join up hyphenated words that are split across lines. </td>
</tr>

<tr>
<td  class="h" >
<a name="4349">4349</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4350">4350</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4351">4351</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub unhyphenate_para ($$) </td>
</tr>

<tr>
<td  class="h" >
<a name="4352">4352</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4353">4353</a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4353-1"> 
8
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4353-1"> 
1
 </a> 
</td>

<td >

15

</td>

<td class="s">     my $self     = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4354">4354</a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

15

</td>

<td class="s">     my $para_ref = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4355">4355</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4356">4356</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Treating this whole paragraph as one string, look for </td>
</tr>

<tr>
<td  class="h" >
<a name="4357">4357</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # 1 - whitespace </td>
</tr>

<tr>
<td  class="h" >
<a name="4358">4358</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # 2 - a word (ending in a hyphen, followed by a newline) </td>
</tr>

<tr>
<td  class="h" >
<a name="4359">4359</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # 3 - whitespace (starting on the next line) </td>
</tr>

<tr>
<td  class="h" >
<a name="4360">4360</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # 4 - a word with its punctuation </td>
</tr>

<tr>
<td  class="h" >
<a name="4361">4361</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Substitute this with </td>
</tr>

<tr>
<td  class="h" >
<a name="4362">4362</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # 1-whitespace 2-word 4-word newline 3-whitespace </td>
</tr>

<tr>
<td  class="h" >
<a name="4363">4363</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # We preserve the 3-whitespace because we don't want to mess up </td>
</tr>

<tr>
<td  class="h" >
<a name="4364">4364</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # our existing indentation. </td>
</tr>

<tr>
<td  class="h" >
<a name="4365">4365</a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s">     ${$para_ref} =~ </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

407

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4366">4366</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       /(\s*)([^\W\d_]*)\-\n(\s*)([^\W\d_]+[\)\}\]\.,:;\'\"\>]*\s*)/s; </td>
</tr>

<tr>
<td  class="h" >
<a name="4367">4367</a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">     ${$para_ref} =~ </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

8

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

534

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4368">4368</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> s/(\s*)([^\W\d_]*)\-\n(\s*)([^\W\d_]+[\)\}\]\.,:;\'\"\>]*\s*)/$1$2$4\n$3/gs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4369">4369</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # unhyphenate_para </td>
</tr>

<tr>
<td  class="h" >
<a name="4370">4370</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4371">4371</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 tagline </td>
</tr>

<tr>
<td  class="h" >
<a name="4372">4372</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4373">4373</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->tagline($tag, $line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4374">4374</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4375">4375</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Put the given tag around the given line. </td>
</tr>

<tr>
<td  class="h" >
<a name="4376">4376</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4377">4377</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4378">4378</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub tagline ($$$) </td>
</tr>

<tr>
<td  class="h" >
<a name="4379">4379</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4380">4380</a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4380-1"> 
66
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4380-1"> 
1
 </a> 
</td>

<td >

101

</td>

<td class="s">     my $self     = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4381">4381</a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

160

</td>

<td class="s">     my $tag      = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4382">4382</a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

84

</td>

<td class="s">     my $line_ref = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4383">4383</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4384">4384</a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

82

</td>

<td class="s">     chomp ${$line_ref};    # Drop newline </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

158

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4385">4385</a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

193

</td>

<td class="s">     my $tag1 = $self->get_tag($tag); </td>
</tr>

<tr>
<td  class="h" >
<a name="4386">4386</a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

179

</td>

<td class="s">     my $tag2 = $self->close_tag($tag); </td>
</tr>

<tr>
<td  class="h" >
<a name="4387">4387</a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

107

</td>

<td class="s">     ${$line_ref} =~ s/^\s*(.*)$/${tag1}$1${tag2}\n/; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

66

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

649

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4388">4388</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # tagline </td>
</tr>

<tr>
<td  class="h" >
<a name="4389">4389</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4390">4390</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 iscaps </td>
</tr>

<tr>
<td  class="h" >
<a name="4391">4391</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4392">4392</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->iscaps($line)) </td>
</tr>

<tr>
<td  class="h" >
<a name="4393">4393</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4394">4394</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="4395">4395</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4396">4396</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4397">4397</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Check if a line is all capitals. </td>
</tr>

<tr>
<td  class="h" >
<a name="4398">4398</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4399">4399</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4400">4400</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub iscaps </td>
</tr>

<tr>
<td  class="h" >
<a name="4401">4401</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4402">4402</a>
</td>

<td  class="c3" >

1117

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4402-1"> 
1117
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4402-1"> 
1
 </a> 
</td>

<td >

1239

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4403">4403</a>
</td>

<td  class="c3" >

1117

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2467

</td>

<td class="s">     local ($_) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="4404">4404</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4405">4405</a>
</td>

<td  class="c3" >

1117

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1944

</td>

<td class="s">     my $min_caps_len = $self->{min_caps_length}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4406">4406</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4407">4407</a>
</td>

<td  class="c3" >

1117

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11693

</td>

<td class="s">     /^[^[:lower:]<]*[[:upper:]]{$min_caps_len,}[^[:lower:]<]*$/; </td>
</tr>

<tr>
<td  class="h" >
<a name="4408">4408</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # iscaps </td>
</tr>

<tr>
<td  class="h" >
<a name="4409">4409</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4410">4410</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 caps </td>
</tr>

<tr>
<td  class="h" >
<a name="4411">4411</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4412">4412</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->caps(line_ref=>$line_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4413">4413</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		line_action_ref=>$line_action_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4414">4414</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4415">4415</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Detect and deal with an all-caps line. </td>
</tr>

<tr>
<td  class="h" >
<a name="4416">4416</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4417">4417</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4418">4418</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub caps </td>
</tr>

<tr>
<td  class="h" >
<a name="4419">4419</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4420">4420</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4420-1"> 
1065
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4420-1"> 
1
 </a> 
</td>

<td >

1270

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4421">4421</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3348

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4422">4422</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4423">4423</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4424">4424</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4425">4425</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4426">4426</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1370

</td>

<td class="s">     my $line_ref        = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4427">4427</a>
</td>

<td  class="c3" >

1065

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1264

</td>

<td class="s">     my $line_action_ref = $args{line_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4428">4428</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4429">4429</a>
</td>

<td  class="c3" >

1065

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4429-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#4429-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

2568

</td>

<td class="s">     if (   $self->{caps_tag} </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1063

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2354

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4430">4430</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && $self->iscaps(${$line_ref})) </td>
</tr>

<tr>
<td  class="h" >
<a name="4431">4431</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4432">4432</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">         $self->tagline($self->{caps_tag}, $line_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4433">4433</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s">         ${$line_action_ref} |= $CAPS; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4434">4434</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4435">4435</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # caps </td>
</tr>

<tr>
<td  class="h" >
<a name="4436">4436</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4437">4437</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 do_delim </td>
</tr>

<tr>
<td  class="h" >
<a name="4438">4438</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4439">4439</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->do_delim(line_ref=>$line_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4440">4440</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		    line_action_ref=>$line_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4441">4441</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		    delim=>'*', </td>
</tr>

<tr>
<td  class="h" >
<a name="4442">4442</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		    tag=>'STRONG'); </td>
</tr>

<tr>
<td  class="h" >
<a name="4443">4443</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4444">4444</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Deal with a line which has words delimited by the given delimiter; </td>
</tr>

<tr>
<td  class="h" >
<a name="4445">4445</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> this is used to deal with italics, bold and underline formatting. </td>
</tr>

<tr>
<td  class="h" >
<a name="4446">4446</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4447">4447</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4448">4448</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub do_delim </td>
</tr>

<tr>
<td  class="h" >
<a name="4449">4449</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4450">4450</a>
</td>

<td  class="c3" >

1318

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4450-1"> 
1318
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4450-1"> 
1
 </a> 
</td>

<td >

1811

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4451">4451</a>
</td>

<td  class="c3" >

1318

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6361

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4452">4452</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4453">4453</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4454">4454</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         delim           => '*', </td>
</tr>

<tr>
<td  class="h" >
<a name="4455">4455</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         tag             => 'STRONG', </td>
</tr>

<tr>
<td  class="h" >
<a name="4456">4456</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4457">4457</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4458">4458</a>
</td>

<td  class="c3" >

1318

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3039

</td>

<td class="s">     my $line_ref        = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4459">4459</a>
</td>

<td  class="c3" >

1318

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1550

</td>

<td class="s">     my $line_action_ref = $args{line_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4460">4460</a>
</td>

<td  class="c3" >

1318

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1594

</td>

<td class="s">     my $delim           = $args{delim}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4461">4461</a>
</td>

<td  class="c3" >

1318

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1629

</td>

<td class="s">     my $tag             = $args{tag}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4462">4462</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4463">4463</a>
</td>

<td  class="c3" >

1318

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4463-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4238

</td>

<td class="s">     if ($delim eq '#')   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-3"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-4"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4464">4464</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4465">4465</a>
</td>

<td  class="c3" >

438

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4465-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

487

</td>

<td class="s">         if (${$line_ref} =~ m/\B#([[:alpha:]])#\B/s) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

438

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1470

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4466">4466</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	{ </td>
</tr>

<tr>
<td  class="h" >
<a name="4467">4467</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s"> 	    ${$line_ref} =~ s/\B#([[:alpha:]])#\B/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4468">4468</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="4469">4469</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	# special treatment of # for the #num case and the #link case </td>
</tr>

<tr>
<td  class="h" >
<a name="4470">4470</a>
</td>

<td  class="c3" >

438

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4470-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

536

</td>

<td class="s"> 	if (${$line_ref} !~ m/<[aA]/) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

438

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2407

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4471">4471</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	{ </td>
</tr>

<tr>
<td  class="h" >
<a name="4472">4472</a>
</td>

<td  class="c3" >

342

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

498

</td>

<td class="s"> 	    ${$line_ref} =~ </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

342

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1635

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4473">4473</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> s/#([^\d#](?![^#]*(?:<li>|<LI>|<P>|<p>))[^#]*[^# \t\n])#/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4474">4474</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="4475">4475</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	else </td>
</tr>

<tr>
<td  class="h" >
<a name="4476">4476</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	{ </td>
</tr>

<tr>
<td  class="h" >
<a name="4477">4477</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

151

</td>

<td class="s"> 	    my $line_with_links = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="4478">4478</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

139

</td>

<td class="s"> 	    my $linkme = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="4479">4479</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

102

</td>

<td class="s"> 	    my $unmatched = ${$line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

151

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4480">4480</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

314

</td>

<td class="s"> 	    while ($unmatched =~  </td>
</tr>

<tr>
<td  class="h" >
<a name="4481">4481</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		   m/#([^\d#](?![^#]*(?:<li>|<LI>|<P>|<p>))[^#]*[^# \t\n])#/s) </td>
</tr>

<tr>
<td  class="h" >
<a name="4482">4482</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    { </td>
</tr>

<tr>
<td  class="h" >
<a name="4483">4483</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

9

</td>

<td class="s"> 		$line_with_links .= $`; </td>
</tr>

<tr>
<td  class="h" >
<a name="4484">4484</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s"> 		$linkme = $&; </td>
</tr>

<tr>
<td  class="h" >
<a name="4485">4485</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7

</td>

<td class="s"> 		$unmatched = $'; </td>
</tr>

<tr>
<td  class="h" >
<a name="4486">4486</a>
</td>

<td  class="c3" >

2

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4486-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

8

</td>

<td class="s"> 		if (!$self->in_link_context($linkme, $line_with_links)) </td>
</tr>

<tr>
<td  class="h" >
<a name="4487">4487</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		{ </td>
</tr>

<tr>
<td  class="h" >
<a name="4488">4488</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s"> 		    $linkme =~ </td>
</tr>

<tr>
<td  class="h" >
<a name="4489">4489</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			s/#([^\d#](?![^#]*(?:<li>|<LI>|<P>|<p>))[^#]*[^# \t\n])#/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4490">4490</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		} </td>
</tr>

<tr>
<td  class="h" >
<a name="4491">4491</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10

</td>

<td class="s"> 		$line_with_links .= $linkme; </td>
</tr>

<tr>
<td  class="h" >
<a name="4492">4492</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    } </td>
</tr>

<tr>
<td  class="h" >
<a name="4493">4493</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

252

</td>

<td class="s"> 	    ${$line_ref} = $line_with_links . $unmatched; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

368

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4494">4494</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="4495">4495</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4496">4496</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($delim eq '^') </td>
</tr>

<tr>
<td  class="h" >
<a name="4497">4497</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4498">4498</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">         ${$line_ref} =~ </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

16

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4499">4499</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> s/\^((?![^^]*(?:<li>|<LI>|<p>|<P>))(\w|["'<>])[^^]*)\^/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4500">4500</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">         ${$line_ref} =~ s/\B\^([[:alpha:]])\^\B/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4501">4501</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4502">4502</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif ($delim eq '_') </td>
</tr>

<tr>
<td  class="h" >
<a name="4503">4503</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4504">4504</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4504-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

529

</td>

<td class="s">         if (${$line_ref} =~ m/\B_([[:alpha:]])_\B/s) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1530

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4505">4505</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	{ </td>
</tr>

<tr>
<td  class="h" >
<a name="4506">4506</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s"> 	    ${$line_ref} =~ s/\B_([[:alpha:]])_\B/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4507">4507</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s"> 	    ${$line_ref} =~ </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4508">4508</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		s#(?<![_[:alnum:]])_([^_]+?[[:alnum:]"'\.\?\&;:<>])_#<${tag}>$1</${tag}>#gs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4509">4509</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="4510">4510</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	else </td>
</tr>

<tr>
<td  class="h" >
<a name="4511">4511</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	{ </td>
</tr>

<tr>
<td  class="h" >
<a name="4512">4512</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    # make sure we don't wallop links that have underscores </td>
</tr>

<tr>
<td  class="h" >
<a name="4513">4513</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    # need to make sure that _ delimiters are not mistaken for </td>
</tr>

<tr>
<td  class="h" >
<a name="4514">4514</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    # a_variable_name </td>
</tr>

<tr>
<td  class="h" >
<a name="4515">4515</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

627

</td>

<td class="s"> 	    my $line_with_links = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="4516">4516</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

571

</td>

<td class="s"> 	    my $linkme = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="4517">4517</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

441

</td>

<td class="s"> 	    my $unmatched = ${$line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

733

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4518">4518</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1551

</td>

<td class="s"> 	    while ($unmatched =~  </td>
</tr>

<tr>
<td  class="h" >
<a name="4519">4519</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			m#(?<![_[:alnum:]])_([^_]+?[[:alnum:]"'\.\?\&;:<>])_#s) </td>
</tr>

<tr>
<td  class="h" >
<a name="4520">4520</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    { </td>
</tr>

<tr>
<td  class="h" >
<a name="4521">4521</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

40

</td>

<td class="s"> 		$line_with_links .= $`; </td>
</tr>

<tr>
<td  class="h" >
<a name="4522">4522</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

29

</td>

<td class="s"> 		$linkme = $&; </td>
</tr>

<tr>
<td  class="h" >
<a name="4523">4523</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s"> 		$unmatched = $'; </td>
</tr>

<tr>
<td  class="h" >
<a name="4524">4524</a>
</td>

<td  class="c3" >

15

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4524-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

43

</td>

<td class="s"> 		if (!$self->in_link_context($linkme, $line_with_links)) </td>
</tr>

<tr>
<td  class="h" >
<a name="4525">4525</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		{ </td>
</tr>

<tr>
<td  class="h" >
<a name="4526">4526</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

90

</td>

<td class="s"> 		    $linkme =~ </td>
</tr>

<tr>
<td  class="h" >
<a name="4527">4527</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			s#(?<![_[:alnum:]])_([^_]+?[[:alnum:]"'\.\?\&;:<>])_#<${tag}>$1</${tag}>#gs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4528">4528</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		} </td>
</tr>

<tr>
<td  class="h" >
<a name="4529">4529</a>
</td>

<td  class="c3" >

15

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

89

</td>

<td class="s"> 		$line_with_links .= $linkme; </td>
</tr>

<tr>
<td  class="h" >
<a name="4530">4530</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    } </td>
</tr>

<tr>
<td  class="h" >
<a name="4531">4531</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

750

</td>

<td class="s"> 	    ${$line_ref} = $line_with_links . $unmatched; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1951

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4532">4532</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="4533">4533</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4534">4534</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     elsif (length($delim) eq 1)    # one-character, general </td>
</tr>

<tr>
<td  class="h" >
<a name="4535">4535</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4536">4536</a>
</td>

<td  class="c3" >

438

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4536-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

541

</td>

<td class="s">         if (${$line_ref} =~ m/\B[${delim}]([[:alpha:]])[${delim}]\B/s) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

438

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2813

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4537">4537</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	{ </td>
</tr>

<tr>
<td  class="h" >
<a name="4538">4538</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s"> 	    ${$line_ref} =~ s/\B[${delim}]([[:alpha:]])[${delim}]\B/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4539">4539</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="4540">4540</a>
</td>

<td  class="c3" >

438

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

546

</td>

<td class="s">         ${$line_ref} =~ </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

438

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3751

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4541">4541</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    s#(?<![${delim}])[${delim}]([^${delim}]+?[[:alnum:][:punct:]\&<>])[${delim}]#<${tag}>$1</${tag}>#gs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4542">4542</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4543">4543</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="4544">4544</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4545">4545</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3

</td>

<td class="s">         ${$line_ref} =~ </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

88

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4546">4546</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> s/(?<!${delim})${delim}((\w|["'])(\w|[-\s[:punct:]])*[^\s])${delim}/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4547">4547</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2

</td>

<td class="s">         ${$line_ref} =~ s/${delim}]([[:alpha:]])${delim}/<${tag}>$1<\/${tag}>/gs; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4548">4548</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4549">4549</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # do_delim </td>
</tr>

<tr>
<td  class="h" >
<a name="4550">4550</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4551">4551</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 glob2regexp </td>
</tr>

<tr>
<td  class="h" >
<a name="4552">4552</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4553">4553</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $regexp = glob2regexp($glob); </td>
</tr>

<tr>
<td  class="h" >
<a name="4554">4554</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4555">4555</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Convert very simple globs to regexps </td>
</tr>

<tr>
<td  class="h" >
<a name="4556">4556</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4557">4557</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4558">4558</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub glob2regexp </td>
</tr>

<tr>
<td  class="h" >
<a name="4559">4559</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4560">4560</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4560-1"> 
0
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4560-1"> 
1
 </a> 
</td>

<td >

0

</td>

<td class="s">     my ($glob) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="4561">4561</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4562">4562</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Escape funky chars </td>
</tr>

<tr>
<td  class="h" >
<a name="4563">4563</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     $glob =~ s/[^\w\[\]\*\?\|\\]/\\$&/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="4564">4564</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my ($regexp, $i, $len, $escaped) = ("", 0, length($glob), 0); </td>
</tr>

<tr>
<td  class="h" >
<a name="4565">4565</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4566">4566</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     for (; $i < $len; $i++) </td>
</tr>

<tr>
<td  class="h" >
<a name="4567">4567</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4568">4568</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         my $char = substr($glob, $i, 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="4569">4569</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4569-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if ($escaped) </td>
</tr>

<tr>
<td  class="h" >
<a name="4570">4570</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4571">4571</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $escaped = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4572">4572</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $regexp .= $char; </td>
</tr>

<tr>
<td  class="h" >
<a name="4573">4573</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             next; </td>
</tr>

<tr>
<td  class="h" >
<a name="4574">4574</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4575">4575</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4575-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if ($char eq "\\") </td>
</tr>

<tr>
<td  class="h" >
<a name="4576">4576</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4577">4577</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $escaped = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="4578">4578</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             next; </td>
</tr>

<tr>
<td  class="h" >
<a name="4579">4579</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $regexp .= $char; </td>
</tr>

<tr>
<td  class="h" >
<a name="4580">4580</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4581">4581</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4581-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if ($char eq "?") </td>
</tr>

<tr>
<td  class="h" >
<a name="4582">4582</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4583">4583</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $regexp .= "."; </td>
</tr>

<tr>
<td  class="h" >
<a name="4584">4584</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             next; </td>
</tr>

<tr>
<td  class="h" >
<a name="4585">4585</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4586">4586</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4586-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if ($char eq "*") </td>
</tr>

<tr>
<td  class="h" >
<a name="4587">4587</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4588">4588</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $regexp .= ".*"; </td>
</tr>

<tr>
<td  class="h" >
<a name="4589">4589</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             next; </td>
</tr>

<tr>
<td  class="h" >
<a name="4590">4590</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4591">4591</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $regexp .= $char;    # Normal character </td>
</tr>

<tr>
<td  class="h" >
<a name="4592">4592</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4593">4593</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     join('', "\\b", $regexp, "\\b"); </td>
</tr>

<tr>
<td  class="h" >
<a name="4594">4594</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # glob2regexp </td>
</tr>

<tr>
<td  class="h" >
<a name="4595">4595</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4596">4596</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 add_regexp_to_links_table </td>
</tr>

<tr>
<td  class="h" >
<a name="4597">4597</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4598">4598</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->add_regexp_to_links_table(label=>$label, </td>
</tr>

<tr>
<td  class="h" >
<a name="4599">4599</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				     pattern=>$pattern, </td>
</tr>

<tr>
<td  class="h" >
<a name="4600">4600</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				     url=>$url, </td>
</tr>

<tr>
<td  class="h" >
<a name="4601">4601</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				     switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4602">4602</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4603">4603</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Add the given regexp "link definition" to the links table. </td>
</tr>

<tr>
<td  class="h" >
<a name="4604">4604</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4605">4605</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4606">4606</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub add_regexp_to_links_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4607">4607</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4608">4608</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4608-1"> 
1352
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4608-1"> 
1
 </a> 
</td>

<td >

1606

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4609">4609</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6856

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4610">4610</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         label => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4611">4611</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         pattern => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4612">4612</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         url => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4613">4613</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         switches => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4614">4614</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4615">4615</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4616">4616</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5324

</td>

<td class="s">     my $label = $args{label}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4617">4617</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1610

</td>

<td class="s">     my $pattern = $args{pattern}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4618">4618</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1571

</td>

<td class="s">     my $URL = $args{url}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4619">4619</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1485

</td>

<td class="s">     my $switches = $args{switches}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4620">4620</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4621">4621</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # No sense adding a second one if it's already in there. </td>
</tr>

<tr>
<td  class="h" >
<a name="4622">4622</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # It would never get used. </td>
</tr>

<tr>
<td  class="h" >
<a name="4623">4623</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4623-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

7121

</td>

<td class="s">     if (!$self->{__links_table}->{$label}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4624">4624</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4625">4625</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4626">4626</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Keep track of the order they were added so we can </td>
</tr>

<tr>
<td  class="h" >
<a name="4627">4627</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # look for matches in the same order </td>
</tr>

<tr>
<td  class="h" >
<a name="4628">4628</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1286

</td>

<td class="s">         push(@{$self->{__links_table_order}}, ($label)); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4895

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4629">4629</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4630">4630</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3757

</td>

<td class="s"> 	$self->{__links_table_patterns}->{$label} = $pattern; </td>
</tr>

<tr>
<td  class="h" >
<a name="4631">4631</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2700

</td>

<td class="s">         $self->{__links_table}->{$label}        = $URL;      # Put it in The Table </td>
</tr>

<tr>
<td  class="h" >
<a name="4632">4632</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2458

</td>

<td class="s">         $self->{__links_switch_table}->{$label} = $switches; </td>
</tr>

<tr>
<td  class="h" >
<a name="4633">4633</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1577

</td>

<td class="s">         my $ind = @{$self->{__links_table_order}} - 1; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2283

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4634">4634</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4634-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

13506

</td>

<td class="s">         print STDERR " (", $ind, </td>
</tr>

<tr>
<td  class="h" >
<a name="4635">4635</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           ")\tLABEL: $label \tPATTERN: $pattern\n\tVALUE: $URL\n\tSWITCHES: $switches\n\n" </td>
</tr>

<tr>
<td  class="h" >
<a name="4636">4636</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           if ($DictDebug & 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="4637">4637</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4638">4638</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="4639">4639</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4640">4640</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4640-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if ($DictDebug & 1) </td>
</tr>

<tr>
<td  class="h" >
<a name="4641">4641</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4642">4642</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR " Skipping entry.  Key already in table.\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="4643">4643</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "\tLABEL: $label \tPATTERN: $pattern\n\tVALUE: $URL\n\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="4644">4644</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4645">4645</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4646">4646</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # add_regexp_to_links_table </td>
</tr>

<tr>
<td  class="h" >
<a name="4647">4647</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4648">4648</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 add_literal_to_links_table </td>
</tr>

<tr>
<td  class="h" >
<a name="4649">4649</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4650">4650</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->add_literal_to_links_table(label=>$label, </td>
</tr>

<tr>
<td  class="h" >
<a name="4651">4651</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				      pattern=>$pattern, </td>
</tr>

<tr>
<td  class="h" >
<a name="4652">4652</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				      url=>$url, </td>
</tr>

<tr>
<td  class="h" >
<a name="4653">4653</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				      switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4654">4654</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4655">4655</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Add the given literal "link definition" to the links table. </td>
</tr>

<tr>
<td  class="h" >
<a name="4656">4656</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4657">4657</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4658">4658</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub add_literal_to_links_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4659">4659</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4660">4660</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4660-1"> 
156
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4660-1"> 
1
 </a> 
</td>

<td >

191

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4661">4661</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

676

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4662">4662</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         label => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4663">4663</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         pattern => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4664">4664</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         url => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4665">4665</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         switches => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4666">4666</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4667">4667</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4668">4668</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

224

</td>

<td class="s">     my $label = $args{label}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4669">4669</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

197

</td>

<td class="s">     my $pattern = $args{pattern}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4670">4670</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

185

</td>

<td class="s">     my $URL = $args{url}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4671">4671</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

192

</td>

<td class="s">     my $switches = $args{switches}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4672">4672</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4673">4673</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

790

</td>

<td class="s">     $pattern =~ s/(\W)/\\$1/g;    # Escape non-alphanumeric chars </td>
</tr>

<tr>
<td  class="h" >
<a name="4674">4674</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

320

</td>

<td class="s">     $pattern = "\\b$pattern\\b";      # Make a regexp out of it </td>
</tr>

<tr>
<td  class="h" >
<a name="4675">4675</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

335

</td>

<td class="s">     $self->add_regexp_to_links_table(label=>$label, pattern=>$pattern, url=>$URL, switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4676">4676</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # add_literal_to_links_table </td>
</tr>

<tr>
<td  class="h" >
<a name="4677">4677</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4678">4678</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 add_glob_to_links_table </td>
</tr>

<tr>
<td  class="h" >
<a name="4679">4679</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4680">4680</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->add_glob_to_links_table(label=>$label, </td>
</tr>

<tr>
<td  class="h" >
<a name="4681">4681</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				   pattern=>$pattern, </td>
</tr>

<tr>
<td  class="h" >
<a name="4682">4682</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				   url=>$url, </td>
</tr>

<tr>
<td  class="h" >
<a name="4683">4683</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				   switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4684">4684</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4685">4685</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Add the given glob "link definition" to the links table. </td>
</tr>

<tr>
<td  class="h" >
<a name="4686">4686</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4687">4687</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4688">4688</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub add_glob_to_links_table ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4689">4689</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4690">4690</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4690-1"> 
0
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4690-1"> 
1
 </a> 
</td>

<td >

0

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4691">4691</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4692">4692</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         label => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4693">4693</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         pattern => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4694">4694</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         url => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4695">4695</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         switches => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4696">4696</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4697">4697</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4698">4698</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $label = $args{label}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4699">4699</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $pattern = $args{pattern}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4700">4700</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $URL = $args{url}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4701">4701</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my $switches = $args{switches}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4702">4702</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4703">4703</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     $self->add_regexp_to_links_table(pattern=>glob2regexp($pattern), </td>
</tr>

<tr>
<td  class="h" >
<a name="4704">4704</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	label=>$label, </td>
</tr>

<tr>
<td  class="h" >
<a name="4705">4705</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	url=>$URL, switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4706">4706</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # add_glob_to_links_table </td>
</tr>

<tr>
<td  class="h" >
<a name="4707">4707</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4708">4708</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 parse_dict </td>
</tr>

<tr>
<td  class="h" >
<a name="4709">4709</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      </td>
</tr>

<tr>
<td  class="h" >
<a name="4710">4710</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->parse_dict($dictfile, $dict); </td>
</tr>

<tr>
<td  class="h" >
<a name="4711">4711</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4712">4712</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Parse the dictionary file. </td>
</tr>

<tr>
<td  class="h" >
<a name="4713">4713</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (see also load_dictionary_links, for things that were stripped) </td>
</tr>

<tr>
<td  class="h" >
<a name="4714">4714</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4715">4715</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4716">4716</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub parse_dict ($$$) </td>
</tr>

<tr>
<td  class="h" >
<a name="4717">4717</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4718">4718</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4718-1"> 
26
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4718-1"> 
1
 </a> 
</td>

<td >

96

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4719">4719</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4720">4720</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

183

</td>

<td class="s">     my ($dictfile, $dict) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="4721">4721</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4722">4722</a>
</td>

<td  class="c3" >

26

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4722-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

108

</td>

<td class="s">     print STDERR "Parsing dictionary file $dictfile\n" </td>
</tr>

<tr>
<td  class="h" >
<a name="4723">4723</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       if ($DictDebug & 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="4724">4724</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4725">4725</a>
</td>

<td  class="c3" >

26

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4725-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

628

</td>

<td class="s">     if ($dict =~ /->\s*->/) </td>
</tr>

<tr>
<td  class="h" >
<a name="4726">4726</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4727">4727</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         my $message = "Two consecutive '->'s found in $dictfile\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="4728">4728</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         my $near; </td>
</tr>

<tr>
<td  class="h" >
<a name="4729">4729</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4730">4730</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Print out any useful context so they can find it. </td>
</tr>

<tr>
<td  class="h" >
<a name="4731">4731</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         ($near) = $dict =~ /([\S ]*\s*->\s*->\s*\S*)/; </td>
</tr>

<tr>
<td  class="h" >
<a name="4732">4732</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4732-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $message .= "\n$near\n" if $near =~ /\S/; </td>
</tr>

<tr>
<td  class="h" >
<a name="4733">4733</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         die $message; </td>
</tr>

<tr>
<td  class="h" >
<a name="4734">4734</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4735">4735</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4736">4736</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

56

</td>

<td class="s">     my ($key, $URL, $switches, $options); </td>
</tr>

<tr>
<td  class="h" >
<a name="4737">4737</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

361

</td>

<td class="s">     while ($dict =~ /\s*(.+)\s+\-+([iehos]+\-+)?\>\s*(.*\S+)\s*\n/ig) </td>
</tr>

<tr>
<td  class="h" >
<a name="4738">4738</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4739">4739</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2798

</td>

<td class="s">         $key      = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="4740">4740</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2025

</td>

<td class="s">         $options  = $2; </td>
</tr>

<tr>
<td  class="h" >
<a name="4741">4741</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4741-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2470

</td>

<td class="s">         $options  = "" unless defined($options); </td>
</tr>

<tr>
<td  class="h" >
<a name="4742">4742</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2226

</td>

<td class="s">         $URL      = $3; </td>
</tr>

<tr>
<td  class="h" >
<a name="4743">4743</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1402

</td>

<td class="s">         $switches = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4744">4744</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Case insensitivity </td>
</tr>

<tr>
<td  class="h" >
<a name="4745">4745</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4745-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2697

</td>

<td class="s">         $switches += $LINK_NOCASE if $options =~ /i/i; </td>
</tr>

<tr>
<td  class="h" >
<a name="4746">4746</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Evaluate as Perl code </td>
</tr>

<tr>
<td  class="h" >
<a name="4747">4747</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4747-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2894

</td>

<td class="s">         $switches += $LINK_EVAL if $options =~ /e/i; </td>
</tr>

<tr>
<td  class="h" >
<a name="4748">4748</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # provides HTML, not just URL </td>
</tr>

<tr>
<td  class="h" >
<a name="4749">4749</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4749-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3351

</td>

<td class="s">         $switches += $LINK_HTML if $options =~ /h/i; </td>
</tr>

<tr>
<td  class="h" >
<a name="4750">4750</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Only do this link once </td>
</tr>

<tr>
<td  class="h" >
<a name="4751">4751</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4751-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2506

</td>

<td class="s">         $switches += $LINK_ONCE if $options =~ /o/i; </td>
</tr>

<tr>
<td  class="h" >
<a name="4752">4752</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Only do this link once per section </td>
</tr>

<tr>
<td  class="h" >
<a name="4753">4753</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4753-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2431

</td>

<td class="s">         $switches += $LINK_SECT_ONCE if $options =~ /s/i; </td>
</tr>

<tr>
<td  class="h" >
<a name="4754">4754</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4755">4755</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10303

</td>

<td class="s">         $key =~ s/\s*$//;    # Chop trailing whitespace </td>
</tr>

<tr>
<td  class="h" >
<a name="4756">4756</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4757">4757</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4757-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4635

</td>

<td class="s">         if ($key =~ m|^/|)   # Regexp </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-3"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4758">4758</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4759">4759</a>
</td>

<td  class="c3" >

104

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

228

</td>

<td class="s">             $key = substr($key, 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="4760">4760</a>
</td>

<td  class="c3" >

104

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

304

</td>

<td class="s">             $key =~ s|/$||;    # Allow them to forget the closing / </td>
</tr>

<tr>
<td  class="h" >
<a name="4761">4761</a>
</td>

<td  class="c3" >

104

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

306

</td>

<td class="s">             $self->add_regexp_to_links_table(pattern=>$key, label=>$key, url=>$URL, switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4762">4762</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4763">4763</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ($key =~ /^\|/)    # alternate regexp format </td>
</tr>

<tr>
<td  class="h" >
<a name="4764">4764</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4765">4765</a>
</td>

<td  class="c3" >

1092

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2179

</td>

<td class="s">             $key = substr($key, 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="4766">4766</a>
</td>

<td  class="c3" >

1092

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2814

</td>

<td class="s">             $key =~ s/\|$//;      # Allow them to forget the closing | </td>
</tr>

<tr>
<td  class="h" >
<a name="4767">4767</a>
</td>

<td  class="c3" >

1092

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2831

</td>

<td class="s">             $key =~ s|/|\\/|g;    # Escape all slashes </td>
</tr>

<tr>
<td  class="h" >
<a name="4768">4768</a>
</td>

<td  class="c3" >

1092

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2485

</td>

<td class="s">             $self->add_regexp_to_links_table(pattern=>$key, label=>$key, url=>$URL, switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4769">4769</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4770">4770</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ($key =~ /\"/) </td>
</tr>

<tr>
<td  class="h" >
<a name="4771">4771</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4772">4772</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

266

</td>

<td class="s">             $key = substr($key, 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="4773">4773</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

453

</td>

<td class="s">             $key =~ s/\"$//;      # Allow them to forget the closing " </td>
</tr>

<tr>
<td  class="h" >
<a name="4774">4774</a>
</td>

<td  class="c3" >

156

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

406

</td>

<td class="s">             $self->add_literal_to_links_table(pattern=>$key, label=>$key, url=>$URL, switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4775">4775</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4776">4776</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="4777">4777</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4778">4778</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $self->add_glob_to_links_table(pattern=>$key, label=>$key, url=>$URL, switches=>$switches); </td>
</tr>

<tr>
<td  class="h" >
<a name="4779">4779</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4780">4780</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4781">4781</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4782">4782</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # parse_dict </td>
</tr>

<tr>
<td  class="h" >
<a name="4783">4783</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4784">4784</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 setup_dict_checking </td>
</tr>

<tr>
<td  class="h" >
<a name="4785">4785</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4786">4786</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->setup_dict_checking(); </td>
</tr>

<tr>
<td  class="h" >
<a name="4787">4787</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4788">4788</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Set up the dictionary checking. </td>
</tr>

<tr>
<td  class="h" >
<a name="4789">4789</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4790">4790</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4791">4791</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub setup_dict_checking ($) </td>
</tr>

<tr>
<td  class="h" >
<a name="4792">4792</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4793">4793</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4793-1"> 
26
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4793-1"> 
1
 </a> 
</td>

<td >

48

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4794">4794</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4795">4795</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # now create the replace funcs and precomile the regexes </td>
</tr>

<tr>
<td  class="h" >
<a name="4796">4796</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s">     my ($URL, $switches, $pattern, $options, $tag1, $tag2); </td>
</tr>

<tr>
<td  class="h" >
<a name="4797">4797</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my ($href, $r_sw); </td>
</tr>

<tr>
<td  class="h" >
<a name="4798">4798</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my @subs; </td>
</tr>

<tr>
<td  class="h" >
<a name="4799">4799</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

56

</td>

<td class="s">     my $i = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4800">4800</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

39

</td>

<td class="s">     foreach my $label (@{$self->{__links_table_order}}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

77

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4801">4801</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4802">4802</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3038

</td>

<td class="s">         $switches = $self->{__links_switch_table}->{$label}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4803">4803</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2518

</td>

<td class="s">         $pattern = $self->{__links_table_patterns}->{$label}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4804">4804</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4805">4805</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2451

</td>

<td class="s">         $href = $self->{__links_table}->{$label}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4806">4806</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4807">4807</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4807-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2445

</td>

<td class="s">         if (!($switches & $LINK_HTML)) </td>
</tr>

<tr>
<td  class="h" >
<a name="4808">4808</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4809">4809</a>
</td>

<td  class="c3" >

572

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1356

</td>

<td class="s">             $href =~ s#/#\\/#g; </td>
</tr>

<tr>
<td  class="h" >
<a name="4810">4810</a>
</td>

<td  class="c3" >

572

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4810-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1654

</td>

<td class="s">             $href = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4811">4811</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 $self->{lower_case_tags} </td>
</tr>

<tr>
<td  class="h" >
<a name="4812">4812</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 ? join('', '<a href="', $href, '">$&<\\/a>') </td>
</tr>

<tr>
<td  class="h" >
<a name="4813">4813</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 : join('', '<A HREF="', $href, '">$&<\\/A>') </td>
</tr>

<tr>
<td  class="h" >
<a name="4814">4814</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4815">4815</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4816">4816</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="4817">4817</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4818">4818</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # change the uppercase tags to lower case </td>
</tr>

<tr>
<td  class="h" >
<a name="4819">4819</a>
</td>

<td  class="c3" >

780

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4819-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1614

</td>

<td class="s">             if ($self->{lower_case_tags}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4820">4820</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="4821">4821</a>
</td>

<td  class="c3" >

750

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5118

</td>

<td class="s">                 $href =~ s#(</)([A-Z]*)(>)#${1}\L${2}${3}#g; </td>
</tr>

<tr>
<td  class="h" >
<a name="4822">4822</a>
</td>

<td  class="c3" >

750

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2297

</td>

<td class="s">                 $href =~ s/(<)([A-Z]*)(>)/${1}\L${2}${3}/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="4823">4823</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 # and the anchors </td>
</tr>

<tr>
<td  class="h" >
<a name="4824">4824</a>
</td>

<td  class="c3" >

750

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4418

</td>

<td class="s">                 $href =~ s/(<)(A\s*HREF)([^>]*>)/$1\L$2$3/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="4825">4825</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="4826">4826</a>
</td>

<td  class="c3" >

780

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2492

</td>

<td class="s">             $href =~ s#/#\\/#g; </td>
</tr>

<tr>
<td  class="h" >
<a name="4827">4827</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4828">4828</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4829">4829</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2117

</td>

<td class="s">         $r_sw = "s";    # Options for replacing </td>
</tr>

<tr>
<td  class="h" >
<a name="4830">4830</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4830-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2592

</td>

<td class="s">         $r_sw .= "i" if ($switches & $LINK_NOCASE); </td>
</tr>

<tr>
<td  class="h" >
<a name="4831">4831</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4831-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2183

</td>

<td class="s">         $r_sw .= "e" if ($switches & $LINK_EVAL); </td>
</tr>

<tr>
<td  class="h" >
<a name="4832">4832</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4833">4833</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Generate code for replacements. </td>
</tr>

<tr>
<td  class="h" >
<a name="4834">4834</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Create an anonymous subroutine for each replacement, </td>
</tr>

<tr>
<td  class="h" >
<a name="4835">4835</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # and store its reference in an array. </td>
</tr>

<tr>
<td  class="h" >
<a name="4836">4836</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # We need to do an "eval" to create these because we need to </td>
</tr>

<tr>
<td  class="h" >
<a name="4837">4837</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # be able to treat the *contents* of the $href variable </td>
</tr>

<tr>
<td  class="h" >
<a name="4838">4838</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # as if it were perl code, because sometimes the $href </td>
</tr>

<tr>
<td  class="h" >
<a name="4839">4839</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # contains things which need to be evaluated, such as $& or $1, </td>
</tr>

<tr>
<td  class="h" >
<a name="4840">4840</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # not just those cases where we have a "e" switch. </td>
</tr>

<tr>
<td  class="h" >
<a name="4841">4841</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3670

</td>

<td class="s">         my $code = <<EOT; </td>
</tr>

<tr>
<td  class="h" >
<a name="4842">4842</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> \$self->{__repl_code}->[$i] = </td>
</tr>

<tr>
<td  class="h" >
<a name="4843">4843</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="4844">4844</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> my \$al = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4845">4845</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> \$al =~ s/$pattern/$href/$r_sw; </td>
</tr>

<tr>
<td  class="h" >
<a name="4846">4846</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> return \$al; </td>
</tr>

<tr>
<td  class="h" >
<a name="4847">4847</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }; </td>
</tr>

<tr>
<td  class="h" >
<a name="4848">4848</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> EOT </td>
</tr>

<tr>
<td  class="h" >
<a name="4849">4849</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4849-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2572

</td>

<td class="s">         print STDERR $code if ($DictDebug & 2); </td>
</tr>

<tr>
<td  class="h" >
<a name="4850">4850</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1789

</td>

<td class="s">         push @subs, $code; </td>
</tr>

<tr>
<td  class="h" >
<a name="4851">4851</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4852">4852</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # compile searching pattern </td>
</tr>

<tr>
<td  class="h" >
<a name="4853">4853</a>
</td>

<td  class="c3" >

1352

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4853-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2193

</td>

<td class="s">         if ($switches & $LINK_NOCASE)    # i </td>
</tr>

<tr>
<td  class="h" >
<a name="4854">4854</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4855">4855</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

184

</td>

<td class="s">             $self->{__search_patterns}->[$i] = qr/$pattern/si; </td>
</tr>

<tr>
<td  class="h" >
<a name="4856">4856</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4857">4857</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="4858">4858</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="4859">4859</a>
</td>

<td  class="c3" >

1326

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

98623

</td>

<td class="s">             $self->{__search_patterns}->[$i] = qr/$pattern/s; </td>
</tr>

<tr>
<td  class="h" >
<a name="4860">4860</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="4861">4861</a>
</td>

<td  class="c3" >

1352

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2984

</td>

<td class="s">         $i++; </td>
</tr>

<tr>
<td  class="h" >
<a name="4862">4862</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4863">4863</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # now eval the replacements code string </td>
</tr>

<tr>
<td  class="h" >
<a name="4864">4864</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

643

</td>

<td class="s">     my $codes = join('', @subs); </td>
</tr>

<tr>
<td  class="h" >
<a name="4865">4865</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

188503

</td>

<td class="s">     eval "$codes"; </td>
</tr>

<tr>
<td  class="h" >
<a name="4866">4866</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # setup_dict_checking </td>
</tr>

<tr>
<td  class="h" >
<a name="4867">4867</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4868">4868</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 in_link_context </td>
</tr>

<tr>
<td  class="h" >
<a name="4869">4869</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4870">4870</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     if ($self->in_link_context($match, $before)) </td>
</tr>

<tr>
<td  class="h" >
<a name="4871">4871</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4872">4872</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	... </td>
</tr>

<tr>
<td  class="h" >
<a name="4873">4873</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4874">4874</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4875">4875</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Check if we are inside a link (<a ...>); certain kinds of substitution are </td>
</tr>

<tr>
<td  class="h" >
<a name="4876">4876</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> not allowed here. </td>
</tr>

<tr>
<td  class="h" >
<a name="4877">4877</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4878">4878</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4879">4879</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub in_link_context ($$$) </td>
</tr>

<tr>
<td  class="h" >
<a name="4880">4880</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4881">4881</a>
</td>

<td  class="c3" >

124

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4881-1"> 
124
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4881-1"> 
1
 </a> 
</td>

<td >

171

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4882">4882</a>
</td>

<td  class="c3" >

124

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

217

</td>

<td class="s">     my ($match, $before) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="4883">4883</a>
</td>

<td  class="c3" >

124

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4883-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

369

</td>

<td class="s">     return 1 if $match =~ m@</?A>@i;    # No links allowed inside match </td>
</tr>

<tr>
<td  class="h" >
<a name="4884">4884</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4885">4885</a>
</td>

<td  class="c3" >

112

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

124

</td>

<td class="s">     my ($final_open, $final_close); </td>
</tr>

<tr>
<td  class="h" >
<a name="4886">4886</a>
</td>

<td  class="c3" >

112

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4886-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

260

</td>

<td class="s">     if ($self->{lower_case_tags}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4887">4887</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4888">4888</a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4888-1"> 
6
 </a> 
</td>

<td >

 

</td>

<td >

6424

</td>

<td class="s">         $final_open  = rindex($before, "<a ") - $[; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2838

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

6

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20496

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

92

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

472

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4889">4889</a>
</td>

<td  class="c3" >

92

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

257

</td>

<td class="s">         $final_close = rindex($before, "</a>") - $[; </td>
</tr>

<tr>
<td  class="h" >
<a name="4890">4890</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4891">4891</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     else </td>
</tr>

<tr>
<td  class="h" >
<a name="4892">4892</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4893">4893</a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

72

</td>

<td class="s">         $final_open  = rindex($before, "<A ") - $[; </td>
</tr>

<tr>
<td  class="h" >
<a name="4894">4894</a>
</td>

<td  class="c3" >

20

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

44

</td>

<td class="s">         $final_close = rindex($before, "</A>") - $[; </td>
</tr>

<tr>
<td  class="h" >
<a name="4895">4895</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4896">4896</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4897">4897</a>
</td>

<td  class="c3" >

112

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4897-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#4897-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

601

</td>

<td class="s">     return 1 if ($final_open >= 0)    # Link opened </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#-2"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4898">4898</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       && ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4899">4899</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ($final_close < 0)            # and not closed    or </td>
</tr>

<tr>
<td  class="h" >
<a name="4900">4900</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         || ($final_open > $final_close) </td>
</tr>

<tr>
<td  class="h" >
<a name="4901">4901</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       );                              # one opened after last close </td>
</tr>

<tr>
<td  class="h" >
<a name="4902">4902</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4903">4903</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # Now check to see if we're inside a tag, matching a tag name, </td>
</tr>

<tr>
<td  class="h" >
<a name="4904">4904</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # or attribute name or value </td>
</tr>

<tr>
<td  class="h" >
<a name="4905">4905</a>
</td>

<td  class="c3" >

83

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

214

</td>

<td class="s">     $final_open  = rindex($before, "<") - $[; </td>
</tr>

<tr>
<td  class="h" >
<a name="4906">4906</a>
</td>

<td  class="c3" >

83

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

207

</td>

<td class="s">     $final_close = rindex($before, ">") - $[; </td>
</tr>

<tr>
<td  class="h" >
<a name="4907">4907</a>
</td>

<td  class="c3" >

83

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4907-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#4907-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

638

</td>

<td class="s">     ($final_open >= 0)                # Tag opened </td>
</tr>

<tr>
<td  class="h" >
<a name="4908">4908</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       && ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4909">4909</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ($final_close < 0)            # and not closed    or </td>
</tr>

<tr>
<td  class="h" >
<a name="4910">4910</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         || ($final_open > $final_close) </td>
</tr>

<tr>
<td  class="h" >
<a name="4911">4911</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       );                              # one opened after last close </td>
</tr>

<tr>
<td  class="h" >
<a name="4912">4912</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # in_link_context </td>
</tr>

<tr>
<td  class="h" >
<a name="4913">4913</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4914">4914</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 apply_links </td>
</tr>

<tr>
<td  class="h" >
<a name="4915">4915</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4916">4916</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->apply_links(para_ref=>$para_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4917">4917</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		       para_action_ref=>$para_action_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4918">4918</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4919">4919</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Apply links and formatting to this paragraph. </td>
</tr>

<tr>
<td  class="h" >
<a name="4920">4920</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4921">4921</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4922">4922</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub apply_links ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4923">4923</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4924">4924</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4924-1"> 
440
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4924-1"> 
1
 </a> 
</td>

<td >

581

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4925">4925</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1608

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4926">4926</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4927">4927</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         para_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4928">4928</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4929">4929</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4930">4930</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

737

</td>

<td class="s">     my $para_ref        = $args{para_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4931">4931</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

592

</td>

<td class="s">     my $para_action_ref = $args{para_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4932">4932</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4933">4933</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4933-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#4933-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

1144

</td>

<td class="s">     if ($self->{make_links} </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1627

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4934">4934</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         && @{$self->{__links_table_order}}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4935">4935</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4936">4936</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1309

</td>

<td class="s">         $self->check_dictionary_links( </td>
</tr>

<tr>
<td  class="h" >
<a name="4937">4937</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_ref        => $para_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4938">4938</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_action_ref => $para_action_ref </td>
</tr>

<tr>
<td  class="h" >
<a name="4939">4939</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4940">4940</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4941">4941</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4941-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1300

</td>

<td class="s">     if ($self->{bold_delimiter}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4942">4942</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4943">4943</a>
</td>

<td  class="c3" >

439

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4943-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1090

</td>

<td class="s">         my $tag = ($self->{lower_case_tags} ? 'strong' : 'STRONG'); </td>
</tr>

<tr>
<td  class="h" >
<a name="4944">4944</a>
</td>

<td  class="c3" >

439

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1807

</td>

<td class="s">         $self->do_delim( </td>
</tr>

<tr>
<td  class="h" >
<a name="4945">4945</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_ref        => $para_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4946">4946</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_action_ref => $para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4947">4947</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             delim           => $self->{bold_delimiter}, </td>
</tr>

<tr>
<td  class="h" >
<a name="4948">4948</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             tag             => $tag </td>
</tr>

<tr>
<td  class="h" >
<a name="4949">4949</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4950">4950</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4951">4951</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4951-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1325

</td>

<td class="s">     if ($self->{italic_delimiter}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4952">4952</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4953">4953</a>
</td>

<td  class="c3" >

439

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4953-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

989

</td>

<td class="s">         my $tag = ($self->{lower_case_tags} ? 'em' : 'EM'); </td>
</tr>

<tr>
<td  class="h" >
<a name="4954">4954</a>
</td>

<td  class="c3" >

439

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1276

</td>

<td class="s">         $self->do_delim( </td>
</tr>

<tr>
<td  class="h" >
<a name="4955">4955</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_ref        => $para_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4956">4956</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_action_ref => $para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4957">4957</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             delim           => $self->{italic_delimiter}, </td>
</tr>

<tr>
<td  class="h" >
<a name="4958">4958</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             tag             => $tag </td>
</tr>

<tr>
<td  class="h" >
<a name="4959">4959</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4960">4960</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4961">4961</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4961-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1315

</td>

<td class="s">     if ($self->{underline_delimiter}) </td>
</tr>

<tr>
<td  class="h" >
<a name="4962">4962</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="4963">4963</a>
</td>

<td  class="c3" >

440

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#4963-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1019

</td>

<td class="s">         my $tag = ($self->{lower_case_tags} ? 'u' : 'U'); </td>
</tr>

<tr>
<td  class="h" >
<a name="4964">4964</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1155

</td>

<td class="s">         $self->do_delim( </td>
</tr>

<tr>
<td  class="h" >
<a name="4965">4965</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_ref        => $para_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4966">4966</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             line_action_ref => $para_action_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4967">4967</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             delim           => $self->{underline_delimiter}, </td>
</tr>

<tr>
<td  class="h" >
<a name="4968">4968</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             tag             => $tag </td>
</tr>

<tr>
<td  class="h" >
<a name="4969">4969</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4970">4970</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="4971">4971</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4972">4972</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # apply_links </td>
</tr>

<tr>
<td  class="h" >
<a name="4973">4973</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4974">4974</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 check_dictionary_links </td>
</tr>

<tr>
<td  class="h" >
<a name="4975">4975</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4976">4976</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->check_dictionary_links(line_ref=>$line_ref, </td>
</tr>

<tr>
<td  class="h" >
<a name="4977">4977</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 				  line_action_ref=>$line_action_ref); </td>
</tr>

<tr>
<td  class="h" >
<a name="4978">4978</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4979">4979</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Check (and alter if need be) the bits in this line matching </td>
</tr>

<tr>
<td  class="h" >
<a name="4980">4980</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the patterns in the link dictionary. </td>
</tr>

<tr>
<td  class="h" >
<a name="4981">4981</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4982">4982</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="4983">4983</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub check_dictionary_links ($%) </td>
</tr>

<tr>
<td  class="h" >
<a name="4984">4984</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="4985">4985</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4985-1"> 
440
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#4985-1"> 
1
 </a> 
</td>

<td >

604

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="4986">4986</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1477

</td>

<td class="s">     my %args = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="4987">4987</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_ref        => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4988">4988</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         line_action_ref => undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="4989">4989</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         @_ </td>
</tr>

<tr>
<td  class="h" >
<a name="4990">4990</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="4991">4991</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

667

</td>

<td class="s">     my $line_ref        = $args{line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4992">4992</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

489

</td>

<td class="s">     my $line_action_ref = $args{line_action_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a name="4993">4993</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4994">4994</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

486

</td>

<td class="s">     my ($switches, $pattern, $options, $repl_func); </td>
</tr>

<tr>
<td  class="h" >
<a name="4995">4995</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">     my ($linkme, $line_with_links); </td>
</tr>

<tr>
<td  class="h" >
<a name="4996">4996</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="4997">4997</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # for each pattern, check and alter the line </td>
</tr>

<tr>
<td  class="h" >
<a name="4998">4998</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

537

</td>

<td class="s">     my $i = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="4999">4999</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

569

</td>

<td class="s">     foreach my $label (@{$self->{__links_table_order}}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1108

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5000">5000</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="5001">5001</a>
</td>

<td  class="c3" >

22880

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

43330

</td>

<td class="s">         $switches = $self->{__links_switch_table}->{$label}; </td>
</tr>

<tr>
<td  class="h" >
<a name="5002">5002</a>
</td>

<td  class="c3" >

22880

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

45146

</td>

<td class="s">         $pattern = $self->{__links_table_patterns}->{$label}; </td>
</tr>

<tr>
<td  class="h" >
<a name="5003">5003</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5004">5004</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # check the pattern </td>
</tr>

<tr>
<td  class="h" >
<a name="5005">5005</a>
</td>

<td  class="c3" >

22880

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5005-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

45573

</td>

<td class="s">         if ($switches & $LINK_ONCE)    # Do link only once </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td >

 

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#-2"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5006">5006</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5007">5007</a>
</td>

<td  class="c3" >

2640

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

2959

</td>

<td class="s">             $line_with_links = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="5008">5008</a>
</td>

<td  class="c3" >

2640

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5008-1"> 
100
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#5008-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

6565

</td>

<td class="s">             if (!$self->{__done_with_link}->[$i] </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

1970

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

10766

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5009">5009</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && ${$line_ref} =~ $self->{__search_patterns}->[$i]) </td>
</tr>

<tr>
<td  class="h" >
<a name="5010">5010</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5011">5011</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

31

</td>

<td class="s">                 $self->{__done_with_link}->[$i] = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="5012">5012</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

36

</td>

<td class="s">                 $line_with_links .= $`; </td>
</tr>

<tr>
<td  class="h" >
<a name="5013">5013</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

26

</td>

<td class="s">                 $linkme = $&; </td>
</tr>

<tr>
<td  class="h" >
<a name="5014">5014</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5015">5015</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

17

</td>

<td class="s">                 ${$line_ref} = $'; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

28

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5016">5016</a>
</td>

<td  class="c3" >

11

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5016-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

44

</td>

<td class="s">                 if (!$self->in_link_context($linkme, $line_with_links)) </td>
</tr>

<tr>
<td  class="h" >
<a name="5017">5017</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="5018">5018</a>
</td>

<td  class="c3" >

11

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5018-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

33

</td>

<td class="s">                     print STDERR "Link rule $i matches $linkme\n" </td>
</tr>

<tr>
<td  class="h" >
<a name="5019">5019</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                       if ($DictDebug & 4); </td>
</tr>

<tr>
<td  class="h" >
<a name="5020">5020</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5021">5021</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # call the special subroutine already created to do </td>
</tr>

<tr>
<td  class="h" >
<a name="5022">5022</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # this replacement </td>
</tr>

<tr>
<td  class="h" >
<a name="5023">5023</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

30

</td>

<td class="s">                     $repl_func = $self->{__repl_code}->[$i]; </td>
</tr>

<tr>
<td  class="h" >
<a name="5024">5024</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

402

</td>

<td class="s">                     $linkme    = &$repl_func($linkme); </td>
</tr>

<tr>
<td  class="h" >
<a name="5025">5025</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="5026">5026</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

28

</td>

<td class="s">                 $line_with_links .= $linkme; </td>
</tr>

<tr>
<td  class="h" >
<a name="5027">5027</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5028">5028</a>
</td>

<td  class="c3" >

2640

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3281

</td>

<td class="s">             ${$line_ref} = $line_with_links . ${$line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

2640

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

3495

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

2640

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

4232

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5029">5029</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5030">5030</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         elsif ($switches & $LINK_SECT_ONCE)    # Do link only once per section </td>
</tr>

<tr>
<td  class="h" >
<a name="5031">5031</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5032">5032</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             $line_with_links = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="5033">5033</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5033-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#5033-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             if (!$self->{__done_with_sect_link}->[$i] </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5034">5034</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 && ${$line_ref} =~ $self->{__search_patterns}->[$i]) </td>
</tr>

<tr>
<td  class="h" >
<a name="5035">5035</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5036">5036</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $self->{__done_with_sect_link}->[$i] = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="5037">5037</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $line_with_links .= $`; </td>
</tr>

<tr>
<td  class="h" >
<a name="5038">5038</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $linkme = $&; </td>
</tr>

<tr>
<td  class="h" >
<a name="5039">5039</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5040">5040</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 ${$line_ref} = $'; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5041">5041</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5041-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 if (!$self->in_link_context($linkme, $line_with_links)) </td>
</tr>

<tr>
<td  class="h" >
<a name="5042">5042</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="5043">5043</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5043-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     print STDERR "Link rule $i matches $linkme\n" </td>
</tr>

<tr>
<td  class="h" >
<a name="5044">5044</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                       if ($DictDebug & 4); </td>
</tr>

<tr>
<td  class="h" >
<a name="5045">5045</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5046">5046</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # call the special subroutine already created to do </td>
</tr>

<tr>
<td  class="h" >
<a name="5047">5047</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # this replacement </td>
</tr>

<tr>
<td  class="h" >
<a name="5048">5048</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     $repl_func = $self->{__repl_code}->[$i]; </td>
</tr>

<tr>
<td  class="h" >
<a name="5049">5049</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                     $linkme    = &$repl_func($linkme); </td>
</tr>

<tr>
<td  class="h" >
<a name="5050">5050</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="5051">5051</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 $line_with_links .= $linkme; </td>
</tr>

<tr>
<td  class="h" >
<a name="5052">5052</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5053">5053</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             ${$line_ref} = $line_with_links . ${$line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5054">5054</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5055">5055</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="5056">5056</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5057">5057</a>
</td>

<td  class="c3" >

20240

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

22075

</td>

<td class="s">             $line_with_links = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="5058">5058</a>
</td>

<td  class="c3" >

20240

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

20136

</td>

<td class="s">             while (${$line_ref} =~ $self->{__search_patterns}->[$i]) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

20336

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

124473

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5059">5059</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5060">5060</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

244

</td>

<td class="s">                 $line_with_links .= $`; </td>
</tr>

<tr>
<td  class="h" >
<a name="5061">5061</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

193

</td>

<td class="s">                 $linkme = $&; </td>
</tr>

<tr>
<td  class="h" >
<a name="5062">5062</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5063">5063</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

111

</td>

<td class="s">                 ${$line_ref} = $'; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

214

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5064">5064</a>
</td>

<td  class="c3" >

96

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5064-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

263

</td>

<td class="s">                 if (!$self->in_link_context($linkme, $line_with_links)) </td>
</tr>

<tr>
<td  class="h" >
<a name="5065">5065</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 { </td>
</tr>

<tr>
<td  class="h" >
<a name="5066">5066</a>
</td>

<td  class="c3" >

60

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5066-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

141

</td>

<td class="s">                     print STDERR "Link rule $i matches $linkme\n" </td>
</tr>

<tr>
<td  class="h" >
<a name="5067">5067</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                       if ($DictDebug & 4); </td>
</tr>

<tr>
<td  class="h" >
<a name="5068">5068</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5069">5069</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # call the special subroutine already created to do </td>
</tr>

<tr>
<td  class="h" >
<a name="5070">5070</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     # this replacement </td>
</tr>

<tr>
<td  class="h" >
<a name="5071">5071</a>
</td>

<td  class="c3" >

60

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

113

</td>

<td class="s">                     $repl_func = $self->{__repl_code}->[$i]; </td>
</tr>

<tr>
<td  class="h" >
<a name="5072">5072</a>
</td>

<td  class="c3" >

60

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1898

</td>

<td class="s">                     $linkme    = &$repl_func($linkme); </td>
</tr>

<tr>
<td  class="h" >
<a name="5073">5073</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 } </td>
</tr>

<tr>
<td  class="h" >
<a name="5074">5074</a>
</td>

<td  class="c3" >

96

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

183

</td>

<td class="s">                 $line_with_links .= $linkme; </td>
</tr>

<tr>
<td  class="h" >
<a name="5075">5075</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5076">5076</a>
</td>

<td  class="c3" >

20240

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

23834

</td>

<td class="s">             ${$line_ref} = $line_with_links . ${$line_ref}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

20240

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

27410

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

20240

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

40542

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5077">5077</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5078">5078</a>
</td>

<td  class="c3" >

22880

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

32318

</td>

<td class="s">         $i++; </td>
</tr>

<tr>
<td  class="h" >
<a name="5079">5079</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="5080">5080</a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

630

</td>

<td class="s">     ${$line_action_ref} |= $LINK; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

440

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1490

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5081">5081</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # check_dictionary_links </td>
</tr>

<tr>
<td  class="h" >
<a name="5082">5082</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5083">5083</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 load_dictionary_links </td>
</tr>

<tr>
<td  class="h" >
<a name="5084">5084</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5085">5085</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->load_dictionary_links(); </td>
</tr>

<tr>
<td  class="h" >
<a name="5086">5086</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5087">5087</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Load the dictionary links. </td>
</tr>

<tr>
<td  class="h" >
<a name="5088">5088</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5089">5089</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="5090">5090</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub load_dictionary_links ($) </td>
</tr>

<tr>
<td  class="h" >
<a name="5091">5091</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="5092">5092</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#5092-1"> 
26
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#5092-1"> 
1
 </a> 
</td>

<td >

45

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="5093">5093</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5094">5094</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

52

</td>

<td class="s">     @{$self->{__links_table_order}} = (); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

67

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5095">5095</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

42

</td>

<td class="s">     %{$self->{__links_table}}       = (); </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

62

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5096">5096</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5097">5097</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

76

</td>

<td class="s">     my $dict; </td>
</tr>

<tr>
<td  class="h" >
<a name="5098">5098</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

45

</td>

<td class="s">     foreach $dict (@{$self->{links_dictionaries}}) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

86

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5099">5099</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="5100">5100</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5100-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         next unless $dict; </td>
</tr>

<tr>
<td  class="h" >
<a name="5101">5101</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5101-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         open(DICT, "$dict") || die "Can't open Dictionary file $dict\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5102">5102</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5103">5103</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         my @lines = (); </td>
</tr>

<tr>
<td  class="h" >
<a name="5104">5104</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         while (<DICT>) </td>
</tr>

<tr>
<td  class="h" >
<a name="5105">5105</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5106">5106</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # skip lines that start with '#' </td>
</tr>

<tr>
<td  class="h" >
<a name="5107">5107</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5107-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             next if /^\#/; </td>
</tr>

<tr>
<td  class="h" >
<a name="5108">5108</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # skip lines that end with unescaped ':' </td>
</tr>

<tr>
<td  class="h" >
<a name="5109">5109</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5109-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             next if /^.*[^\\]:\s*$/; </td>
</tr>

<tr>
<td  class="h" >
<a name="5110">5110</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             push @lines, $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="5111">5111</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5112">5112</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         close(DICT); </td>
</tr>

<tr>
<td  class="h" >
<a name="5113">5113</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         my $contents = join('', @lines); </td>
</tr>

<tr>
<td  class="h" >
<a name="5114">5114</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         $self->parse_dict($dict, $contents); </td>
</tr>

<tr>
<td  class="h" >
<a name="5115">5115</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="5116">5116</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # last of all, do the system dictionary, already read in from DATA </td>
</tr>

<tr>
<td  class="h" >
<a name="5117">5117</a>
</td>

<td  class="c3" >

26

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5117-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

89

</td>

<td class="s">     if ($self->{__global_links_data}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5118">5118</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="5119">5119</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

125

</td>

<td class="s">         $self->parse_dict("DATA", $self->{__global_links_data}); </td>
</tr>

<tr>
<td  class="h" >
<a name="5120">5120</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="5121">5121</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5122">5122</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

93

</td>

<td class="s">     $self->setup_dict_checking(); </td>
</tr>

<tr>
<td  class="h" >
<a name="5123">5123</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # load_dictionary_links </td>
</tr>

<tr>
<td  class="h" >
<a name="5124">5124</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5125">5125</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 do_file_start </td>
</tr>

<tr>
<td  class="h" >
<a name="5126">5126</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5127">5127</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->do_file_start($outhandle, $para); </td>
</tr>

<tr>
<td  class="h" >
<a name="5128">5128</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5129">5129</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Extra stuff needed for the beginning: </td>
</tr>

<tr>
<td  class="h" >
<a name="5130">5130</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> HTML headers, and prepending a file if desired. </td>
</tr>

<tr>
<td  class="h" >
<a name="5131">5131</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5132">5132</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="5133">5133</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub do_file_start ($$$) </td>
</tr>

<tr>
<td  class="h" >
<a name="5134">5134</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="5135">5135</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#5135-1"> 
34
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#5135-1"> 
1
 </a> 
</td>

<td >

94

</td>

<td class="s">     my $self      = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="5136">5136</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

58

</td>

<td class="s">     my $outhandle = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="5137">5137</a>
</td>

<td  class="c3" >

34

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

125

</td>

<td class="s">     my $para      = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="5138">5138</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5139">5139</a>
</td>

<td  class="c3" >

34

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5139-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

159

</td>

<td class="s">     if (!$self->{extract}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5140">5140</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="5141">5141</a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

269

</td>

<td class="s">         my @para_lines = split(/\n/, $para); </td>
</tr>

<tr>
<td  class="h" >
<a name="5142">5142</a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

55

</td>

<td class="s">         my $first_line = $para_lines[0]; </td>
</tr>

<tr>
<td  class="h" >
<a name="5143">5143</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5144">5144</a>
</td>

<td  class="c3" >

13

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5144-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

68

</td>

<td class="s">         if ($self->{doctype}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5145">5145</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5146">5146</a>
</td>

<td  class="c3" >

13

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5146-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

57

</td>

<td class="s">             if ($self->{xhtml}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5147">5147</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5148">5148</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

76

</td>

<td class="s">                 print $outhandle </td>
</tr>

<tr>
<td  class="h" >
<a name="5149">5149</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"', </td>
</tr>

<tr>
<td  class="h" >
<a name="5150">5150</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5151">5151</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

33

</td>

<td class="s">                 print $outhandle </td>
</tr>

<tr>
<td  class="h" >
<a name="5152">5152</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		  '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">', </td>
</tr>

<tr>
<td  class="h" >
<a name="5153">5153</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5154">5154</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

70

</td>

<td class="s"> 		print $outhandle $self->get_tag('html', </td>
</tr>

<tr>
<td  class="h" >
<a name="5155">5155</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		    inside_tag => ' xmlns="http://www.w3.org/1999/xhtml"'), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5156">5156</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5157">5157</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             else </td>
</tr>

<tr>
<td  class="h" >
<a name="5158">5158</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5159">5159</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">                 print $outhandle '<!DOCTYPE HTML PUBLIC "', $self->{doctype}, </td>
</tr>

<tr>
<td  class="h" >
<a name="5160">5160</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   "\">\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5161">5161</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

6

</td>

<td class="s"> 		print $outhandle $self->get_tag('html'), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5162">5162</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5163">5163</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5164">5164</a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

74

</td>

<td class="s">         print $outhandle $self->get_tag('head'), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5165">5165</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5166">5166</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # if --titlefirst is set and --title isn't, use the first line </td>
</tr>

<tr>
<td  class="h" >
<a name="5167">5167</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # as the title. </td>
</tr>

<tr>
<td  class="h" >
<a name="5168">5168</a>
</td>

<td  class="c3" >

13

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5168-1"> 
100
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#5168-1"> 
 66
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

84

</td>

<td class="s">         if ($self->{titlefirst} && !$self->{title}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5169">5169</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5170">5170</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

11

</td>

<td class="s">             my ($tit) = $first_line =~ /^ *(.*)/;    # grab first line </td>
</tr>

<tr>
<td  class="h" >
<a name="5171">5171</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

21

</td>

<td class="s">             $tit =~ s/ *$//;                         # strip trailing whitespace </td>
</tr>

<tr>
<td  class="h" >
<a name="5172">5172</a>
</td>

<td  class="c3" >

2

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5172-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

14

</td>

<td class="s">             $tit = escape($tit) if $self->{escape_HTML_chars}; </td>
</tr>

<tr>
<td  class="h" >
<a name="5173">5173</a>
</td>

<td  class="c3" >

2

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">             $self->{'title'} = $tit; </td>
</tr>

<tr>
<td  class="h" >
<a name="5174">5174</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5175">5175</a>
</td>

<td  class="c3" >

13

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5175-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

56

</td>

<td class="s">         if (!$self->{title}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5176">5176</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5177">5177</a>
</td>

<td  class="c3" >

11

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

25

</td>

<td class="s">             $self->{'title'} = ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="5178">5178</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5179">5179</a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

43

</td>

<td class="s">         print $outhandle $self->get_tag('title'), $self->{title}, </td>
</tr>

<tr>
<td  class="h" >
<a name="5180">5180</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           $self->close_tag('title'), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5181">5181</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5182">5182</a>
</td>

<td  class="c3" >

13

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5182-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

56

</td>

<td class="s">         if ($self->{append_head}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5183">5183</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5184">5184</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5184-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             open(APPEND, $self->{append_head}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5185">5185</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               || die "Failed to open ", $self->{append_head}, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5186">5186</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             while (<APPEND>) </td>
</tr>

<tr>
<td  class="h" >
<a name="5187">5187</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5188">5188</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 print $outhandle $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="5189">5189</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5190">5190</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             close(APPEND); </td>
</tr>

<tr>
<td  class="h" >
<a name="5191">5191</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5192">5192</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5193">5193</a>
</td>

<td  class="c3" >

13

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5193-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

40

</td>

<td class="s">         if ($self->{lower_case_tags}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5194">5194</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5195">5195</a>
</td>

<td  class="c3" >

12

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

75

</td>

<td class="s">             print $outhandle $self->get_tag( </td>
</tr>

<tr>
<td  class="h" >
<a name="5196">5196</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 'meta', </td>
</tr>

<tr>
<td  class="h" >
<a name="5197">5197</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 tag_type   => TAG_EMPTY, </td>
</tr>

<tr>
<td  class="h" >
<a name="5198">5198</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 inside_tag => " name=\"generator\" content=\"$PROG v$HTML::TextToHTML::VERSION\"" </td>
</tr>

<tr>
<td  class="h" >
<a name="5199">5199</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               ), </td>
</tr>

<tr>
<td  class="h" >
<a name="5200">5200</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5201">5201</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5202">5202</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="5203">5203</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5204">5204</a>
</td>

<td  class="c3" >

1

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

5

</td>

<td class="s">             print $outhandle $self->get_tag( </td>
</tr>

<tr>
<td  class="h" >
<a name="5205">5205</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 'meta', </td>
</tr>

<tr>
<td  class="h" >
<a name="5206">5206</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 tag_type   => TAG_EMPTY, </td>
</tr>

<tr>
<td  class="h" >
<a name="5207">5207</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 inside_tag => " NAME=\"generator\" CONTENT=\"$PROG v$HTML::TextToHTML::VERSION\"" </td>
</tr>

<tr>
<td  class="h" >
<a name="5208">5208</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               ), </td>
</tr>

<tr>
<td  class="h" >
<a name="5209">5209</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5210">5210</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5211">5211</a>
</td>

<td  class="c3" >

13

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5211-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

58

</td>

<td class="s">         if ($self->{style_url}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5212">5212</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5213">5213</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             my $style_url = $self->{style_url}; </td>
</tr>

<tr>
<td  class="h" >
<a name="5214">5214</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5214-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             if ($self->{lower_case_tags}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5215">5215</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5216">5216</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 print $outhandle $self->get_tag( </td>
</tr>

<tr>
<td  class="h" >
<a name="5217">5217</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     'link', </td>
</tr>

<tr>
<td  class="h" >
<a name="5218">5218</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     tag_type   => TAG_EMPTY, </td>
</tr>

<tr>
<td  class="h" >
<a name="5219">5219</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     inside_tag => </td>
</tr>

<tr>
<td  class="h" >
<a name="5220">5220</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> " rel=\"stylesheet\" type=\"text/css\" href=\"$style_url\"" </td>
</tr>

<tr>
<td  class="h" >
<a name="5221">5221</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   ), </td>
</tr>

<tr>
<td  class="h" >
<a name="5222">5222</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5223">5223</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5224">5224</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             else </td>
</tr>

<tr>
<td  class="h" >
<a name="5225">5225</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5226">5226</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 print $outhandle $self->get_tag( </td>
</tr>

<tr>
<td  class="h" >
<a name="5227">5227</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     'link', </td>
</tr>

<tr>
<td  class="h" >
<a name="5228">5228</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     tag_type   => TAG_EMPTY, </td>
</tr>

<tr>
<td  class="h" >
<a name="5229">5229</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                     inside_tag => </td>
</tr>

<tr>
<td  class="h" >
<a name="5230">5230</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> " REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"$style_url\"" </td>
</tr>

<tr>
<td  class="h" >
<a name="5231">5231</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   ), </td>
</tr>

<tr>
<td  class="h" >
<a name="5232">5232</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                   "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5233">5233</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5234">5234</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5235">5235</a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

45

</td>

<td class="s">         print $outhandle $self->close_tag('head'), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5236">5236</a>
</td>

<td  class="c3" >

13

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5236-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

55

</td>

<td class="s">         if ($self->{body_deco}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5237">5237</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5238">5238</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print $outhandle $self->get_tag('body', </td>
</tr>

<tr>
<td  class="h" >
<a name="5239">5239</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 inside_tag => $self->{body_deco}), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5240">5240</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5241">5241</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="5242">5242</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5243">5243</a>
</td>

<td  class="c3" >

13

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

41

</td>

<td class="s">             print $outhandle $self->get_tag('body'), "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5244">5244</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5245">5245</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="5246">5246</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5247">5247</a>
</td>

<td  class="c3" >

34

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5247-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

167

</td>

<td class="s">     if ($self->{prepend_file}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5248">5248</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="5249">5249</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5249-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">         if (-r $self->{prepend_file}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5250">5250</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5251">5251</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             open(PREPEND, $self->{prepend_file}); </td>
</tr>

<tr>
<td  class="h" >
<a name="5252">5252</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             while (<PREPEND>) </td>
</tr>

<tr>
<td  class="h" >
<a name="5253">5253</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             { </td>
</tr>

<tr>
<td  class="h" >
<a name="5254">5254</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">                 print $outhandle $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="5255">5255</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="5256">5256</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             close(PREPEND); </td>
</tr>

<tr>
<td  class="h" >
<a name="5257">5257</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5258">5258</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         else </td>
</tr>

<tr>
<td  class="h" >
<a name="5259">5259</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5260">5260</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">             print STDERR "Can't find or read file ", $self->{prepend_file}, </td>
</tr>

<tr>
<td  class="h" >
<a name="5261">5261</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">               " to prepend.\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5262">5262</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5263">5263</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="5264">5264</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # do_file_start </td>
</tr>

<tr>
<td  class="h" >
<a name="5265">5265</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5266">5266</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 do_init_call </td>
</tr>

<tr>
<td  class="h" >
<a name="5267">5267</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5268">5268</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $self->do_init_call(); </td>
</tr>

<tr>
<td  class="h" >
<a name="5269">5269</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5270">5270</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Certain things, like reading link dictionaries, need to be done only </td>
</tr>

<tr>
<td  class="h" >
<a name="5271">5271</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> once. </td>
</tr>

<tr>
<td  class="h" >
<a name="5272">5272</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5273">5273</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="5274">5274</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sub do_init_call ($) </td>
</tr>

<tr>
<td  class="h" >
<a name="5275">5275</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> { </td>
</tr>

<tr>
<td  class="h" >
<a name="5276">5276</a>
</td>

<td  class="c3" >

478

</td>

<td >

 

</td>

<td >

 

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#5276-1"> 
478
 </a> 
</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--subroutine.html#5276-1"> 
1
 </a> 
</td>

<td >

777

</td>

<td class="s">     my $self = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="5277">5277</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5278">5278</a>
</td>

<td  class="c3" >

478

</td>

<td  class="c3" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5278-1"> 
100
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

1768

</td>

<td class="s">     if (!$self->{__call_init_done}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5279">5279</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     { </td>
</tr>

<tr>
<td  class="h" >
<a name="5280">5280</a>
</td>

<td  class="c3" >

26

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5280-1"> 
 50
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--condition.html#5280-1"> 
 33
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

403

</td>

<td class="s">         push(@{$self->{links_dictionaries}}, ($self->{default_link_dict})) </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5281">5281</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           if ($self->{make_links} && (-f $self->{default_link_dict})); </td>
</tr>

<tr>
<td  class="h" >
<a name="5282">5282</a>
</td>

<td  class="c3" >

26

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5282-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

81

</td>

<td class="s"> 	if ($self->{links_dictionaries}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5283">5283</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	{ </td>
</tr>

<tr>
<td  class="h" >
<a name="5284">5284</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    # only put into the links dictionaries files which are readable </td>
</tr>

<tr>
<td  class="h" >
<a name="5285">5285</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

47

</td>

<td class="s"> 	    my @dict_files = @{$self->{links_dictionaries}}; </td>
</tr>

<tr>
<td  class="h" >
<a > </a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

76

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5286">5286</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

101

</td>

<td class="s"> 	    $self->args(links_dictionaries => []); </td>
</tr>

<tr>
<td  class="h" >
<a name="5287">5287</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5288">5288</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

86

</td>

<td class="s"> 	    foreach my $ld (@dict_files) </td>
</tr>

<tr>
<td  class="h" >
<a name="5289">5289</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    { </td>
</tr>

<tr>
<td  class="h" >
<a name="5290">5290</a>
</td>

<td  class="c0" >

0

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5290-1"> 
  0
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s"> 		if (-r $ld) </td>
</tr>

<tr>
<td  class="h" >
<a name="5291">5291</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		{ </td>
</tr>

<tr>
<td  class="h" >
<a name="5292">5292</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s"> 		    $self->{'make_links'} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="5293">5293</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s"> 		    $self->args(['--links_dictionaries', $ld]); </td>
</tr>

<tr>
<td  class="h" >
<a name="5294">5294</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		} </td>
</tr>

<tr>
<td  class="h" >
<a name="5295">5295</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		else </td>
</tr>

<tr>
<td  class="h" >
<a name="5296">5296</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		{ </td>
</tr>

<tr>
<td  class="h" >
<a name="5297">5297</a>
</td>

<td  class="c0" >

0

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

0

</td>

<td class="s"> 		    print STDERR "Can't find or read link-file $ld\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5298">5298</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		} </td>
</tr>

<tr>
<td  class="h" >
<a name="5299">5299</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	    } </td>
</tr>

<tr>
<td  class="h" >
<a name="5300">5300</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="5301">5301</a>
</td>

<td  class="c3" >

26

</td>

<td  class="c0" >
 <a href="blib-lib-HTML-TextToHTML-pm--branch.html#5301-1"> 
 50
 </a> 
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

82

</td>

<td class="s">         if ($self->{make_links}) </td>
</tr>

<tr>
<td  class="h" >
<a name="5302">5302</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         { </td>
</tr>

<tr>
<td  class="h" >
<a name="5303">5303</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

105

</td>

<td class="s">             $self->load_dictionary_links(); </td>
</tr>

<tr>
<td  class="h" >
<a name="5304">5304</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="5305">5305</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5306">5306</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # various initializations </td>
</tr>

<tr>
<td  class="h" >
<a name="5307">5307</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

100

</td>

<td class="s">         $self->{__non_header_anchor} = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="5308">5308</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

96

</td>

<td class="s">         $self->{__mode}              = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="5309">5309</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

75

</td>

<td class="s">         $self->{__listnum}           = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="5310">5310</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

75

</td>

<td class="s">         $self->{__list_nice_indent}  = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="5311">5311</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

93

</td>

<td class="s">         $self->{__list_indent}       = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="5312">5312</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

94

</td>

<td class="s">         $self->{__tags}              = []; </td>
</tr>

<tr>
<td  class="h" >
<a name="5313">5313</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5314">5314</a>
</td>

<td  class="c3" >

26

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

91

</td>

<td class="s">         $self->{__call_init_done} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="5315">5315</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="5316">5316</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> }    # do_init_call </td>
</tr>

<tr>
<td  class="h" >
<a name="5317">5317</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5318">5318</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 FILE FORMATS </td>
</tr>

<tr>
<td  class="h" >
<a name="5319">5319</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5320">5320</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> There are two files which are used which can affect the outcome of the </td>
</tr>

<tr>
<td  class="h" >
<a name="5321">5321</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> conversion.  One is the link dictionary, which contains patterns (of how </td>
</tr>

<tr>
<td  class="h" >
<a name="5322">5322</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to recognise http links and other things) and how to convert them. The </td>
</tr>

<tr>
<td  class="h" >
<a name="5323">5323</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> other is, naturally, the format of the input file itself. </td>
</tr>

<tr>
<td  class="h" >
<a name="5324">5324</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5325">5325</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Link Dictionary </td>
</tr>

<tr>
<td  class="h" >
<a name="5326">5326</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5327">5327</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> A link dictionary file contains patterns to match, and what to convert </td>
</tr>

<tr>
<td  class="h" >
<a name="5328">5328</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> them to.  It is called a "link" dictionary because it was intended to be </td>
</tr>

<tr>
<td  class="h" >
<a name="5329">5329</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> something which defined what a href link was, but it can be used for </td>
</tr>

<tr>
<td  class="h" >
<a name="5330">5330</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> more than that.  However, if you wish to define your own links, it is </td>
</tr>

<tr>
<td  class="h" >
<a name="5331">5331</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> strongly advised to read up on regular expressions (regexes) because </td>
</tr>

<tr>
<td  class="h" >
<a name="5332">5332</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> this relies heavily on them. </td>
</tr>

<tr>
<td  class="h" >
<a name="5333">5333</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5334">5334</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The file consists of comments (which are lines starting with #) </td>
</tr>

<tr>
<td  class="h" >
<a name="5335">5335</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> and blank lines, and link entries. </td>
</tr>

<tr>
<td  class="h" >
<a name="5336">5336</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Each entry consists of a regular expression, a -> separator (with </td>
</tr>

<tr>
<td  class="h" >
<a name="5337">5337</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> optional flags), and a link "result". </td>
</tr>

<tr>
<td  class="h" >
<a name="5338">5338</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5339">5339</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> In the simplest case, with no flags, the regular expression </td>
</tr>

<tr>
<td  class="h" >
<a name="5340">5340</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> defines the pattern to look for, and the result says what part </td>
</tr>

<tr>
<td  class="h" >
<a name="5341">5341</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> of the regular expression is the actual link, and the link which </td>
</tr>

<tr>
<td  class="h" >
<a name="5342">5342</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> is generated has the href as the link, and the whole matched pattern </td>
</tr>

<tr>
<td  class="h" >
<a name="5343">5343</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> as the visible part of the link.  The first character of the regular </td>
</tr>

<tr>
<td  class="h" >
<a name="5344">5344</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> expression is taken to be the separator for the regex, so one </td>
</tr>

<tr>
<td  class="h" >
<a name="5345">5345</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> could either use the traditional / separator, or something else </td>
</tr>

<tr>
<td  class="h" >
<a name="5346">5346</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> such as | (which can be helpful with URLs which are full of / characters). </td>
</tr>

<tr>
<td  class="h" >
<a name="5347">5347</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5348">5348</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> So, for example, an ftp URL might be defined as: </td>
</tr>

<tr>
<td  class="h" >
<a name="5349">5349</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5350">5350</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     |ftp:[\w/\.:+\-]+|      -> $& </td>
</tr>

<tr>
<td  class="h" >
<a name="5351">5351</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5352">5352</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This takes the whole pattern as the href, and the resultant link </td>
</tr>

<tr>
<td  class="h" >
<a name="5353">5353</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> has the same thing in the href as in the contents of the anchor. </td>
</tr>

<tr>
<td  class="h" >
<a name="5354">5354</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5355">5355</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> But sometimes the href isn't the whole pattern. </td>
</tr>

<tr>
<td  class="h" >
<a name="5356">5356</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5357">5357</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     /<URL:\s*(\S+?)\s*>/ --> $1 </td>
</tr>

<tr>
<td  class="h" >
<a name="5358">5358</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5359">5359</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> With the above regex, a () grouping marks the first subexpression, </td>
</tr>

<tr>
<td  class="h" >
<a name="5360">5360</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> which is represented as $1 (rather than $& the whole expression). </td>
</tr>

<tr>
<td  class="h" >
<a name="5361">5361</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This entry matches a URL which was marked explicity as a URL </td>
</tr>

<tr>
<td  class="h" >
<a name="5362">5362</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> with the pattern <URL:foo>  (note the < is shown as the </td>
</tr>

<tr>
<td  class="h" >
<a name="5363">5363</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> entity, not the actual character.  This is because by the </td>
</tr>

<tr>
<td  class="h" >
<a name="5364">5364</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> time the links dictionary is checked, all such things have </td>
</tr>

<tr>
<td  class="h" >
<a name="5365">5365</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> already been converted to their HTML entity forms, unless, of course, </td>
</tr>

<tr>
<td  class="h" >
<a name="5366">5366</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the escape_HTML_chars option was turned off) </td>
</tr>

<tr>
<td  class="h" >
<a name="5367">5367</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This would give us a link in the form </td>
</tr>

<tr>
<td  class="h" >
<a name="5368">5368</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> <A HREF="foo"><URL:foo></A> </td>
</tr>

<tr>
<td  class="h" >
<a name="5369">5369</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5370">5370</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> B<The h flag> </td>
</tr>

<tr>
<td  class="h" >
<a name="5371">5371</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5372">5372</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> However, if we want more control over the way the link is constructed, </td>
</tr>

<tr>
<td  class="h" >
<a name="5373">5373</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> we can construct it ourself.  If one gives the h flag, then the </td>
</tr>

<tr>
<td  class="h" >
<a name="5374">5374</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "result" part of the entry is taken not to contain the href part of </td>
</tr>

<tr>
<td  class="h" >
<a name="5375">5375</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the link, but the whole link. </td>
</tr>

<tr>
<td  class="h" >
<a name="5376">5376</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5377">5377</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For example, the entry: </td>
</tr>

<tr>
<td  class="h" >
<a name="5378">5378</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5379">5379</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     /<URL:\s*(\S+?)\s*>/ -h-> <A HREF="$1">$1</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="5380">5380</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5381">5381</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> will take <URL:foo> and give us <A HREF="foo">foo</A> </td>
</tr>

<tr>
<td  class="h" >
<a name="5382">5382</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5383">5383</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> However, this is a very powerful mechanism, because it </td>
</tr>

<tr>
<td  class="h" >
<a name="5384">5384</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> can be used to construct custom tags which aren't links at all. </td>
</tr>

<tr>
<td  class="h" >
<a name="5385">5385</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For example, to flag *italicised words* the following </td>
</tr>

<tr>
<td  class="h" >
<a name="5386">5386</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> entry will surround the words with EM tags. </td>
</tr>

<tr>
<td  class="h" >
<a name="5387">5387</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5388">5388</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     /\B\*([a-z][a-z -]*[a-z])\*\B/ -hi-> <EM>$1</EM> </td>
</tr>

<tr>
<td  class="h" >
<a name="5389">5389</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5390">5390</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> B<The i flag> </td>
</tr>

<tr>
<td  class="h" >
<a name="5391">5391</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5392">5392</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This turns on ignore case in the pattern matching. </td>
</tr>

<tr>
<td  class="h" >
<a name="5393">5393</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5394">5394</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> B<The e flag> </td>
</tr>

<tr>
<td  class="h" >
<a name="5395">5395</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5396">5396</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This turns on execute in the pattern substitution.  This really </td>
</tr>

<tr>
<td  class="h" >
<a name="5397">5397</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> only makes sense if h is turned on too.  In that case, the "result" </td>
</tr>

<tr>
<td  class="h" >
<a name="5398">5398</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> part of the entry is taken as perl code to be executed, and the </td>
</tr>

<tr>
<td  class="h" >
<a name="5399">5399</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> result of that code is what replaces the pattern. </td>
</tr>

<tr>
<td  class="h" >
<a name="5400">5400</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5401">5401</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> B<The o flag> </td>
</tr>

<tr>
<td  class="h" >
<a name="5402">5402</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5403">5403</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This marks the entry as a once-only link.  This will convert the </td>
</tr>

<tr>
<td  class="h" >
<a name="5404">5404</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> first instance of a matching pattern, and ignore any others </td>
</tr>

<tr>
<td  class="h" >
<a name="5405">5405</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> further on. </td>
</tr>

<tr>
<td  class="h" >
<a name="5406">5406</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5407">5407</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For example, the following pattern will take the first mention </td>
</tr>

<tr>
<td  class="h" >
<a name="5408">5408</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> of HTML::TextToHTML and convert it to a link to the module's home page. </td>
</tr>

<tr>
<td  class="h" >
<a name="5409">5409</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5410">5410</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "HTML::TextToHTML"  -io-> http://www.katspace.com/tools/text_to_html/ </td>
</tr>

<tr>
<td  class="h" >
<a name="5411">5411</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5412">5412</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Input File Format </td>
</tr>

<tr>
<td  class="h" >
<a name="5413">5413</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5414">5414</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For the most part, this module tries to use intuitive conventions for </td>
</tr>

<tr>
<td  class="h" >
<a name="5415">5415</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> determining the structure of the text input.  Unordered lists are </td>
</tr>

<tr>
<td  class="h" >
<a name="5416">5416</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> marked by bullets; ordered lists are marked by numbers or letters; </td>
</tr>

<tr>
<td  class="h" >
<a name="5417">5417</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> in either case, an increase in indentation marks a sub-list contained </td>
</tr>

<tr>
<td  class="h" >
<a name="5418">5418</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> in the outer list. </td>
</tr>

<tr>
<td  class="h" >
<a name="5419">5419</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5420">5420</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Headers (apart from custom headers) are distinguished by "underlines" </td>
</tr>

<tr>
<td  class="h" >
<a name="5421">5421</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> underneath them; headers in all-capitals are distinguished from </td>
</tr>

<tr>
<td  class="h" >
<a name="5422">5422</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> those in mixed case.  All headers, both normal and custom headers, </td>
</tr>

<tr>
<td  class="h" >
<a name="5423">5423</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> are expected to start at the first line in a "paragraph". </td>
</tr>

<tr>
<td  class="h" >
<a name="5424">5424</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5425">5425</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> In other words, the following is a header: </td>
</tr>

<tr>
<td  class="h" >
<a name="5426">5426</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5427">5427</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     I am Head Man </td>
</tr>

<tr>
<td  class="h" >
<a name="5428">5428</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ------------- </td>
</tr>

<tr>
<td  class="h" >
<a name="5429">5429</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5430">5430</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> But the following does not have a header: </td>
</tr>

<tr>
<td  class="h" >
<a name="5431">5431</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5432">5432</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     I am not a head Man, man </td>
</tr>

<tr>
<td  class="h" >
<a name="5433">5433</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     I am Head Man </td>
</tr>

<tr>
<td  class="h" >
<a name="5434">5434</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ------------- </td>
</tr>

<tr>
<td  class="h" >
<a name="5435">5435</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5436">5436</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Tables require a more rigid convention.  A table must be marked as a </td>
</tr>

<tr>
<td  class="h" >
<a name="5437">5437</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> separate paragraph, that is, it must be surrounded by blank lines. </td>
</tr>

<tr>
<td  class="h" >
<a name="5438">5438</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Tables come in different types.  For a table to be parsed, its </td>
</tr>

<tr>
<td  class="h" >
<a name="5439">5439</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> --table_type option must be on, and the --make_tables option must be true. </td>
</tr>

<tr>
<td  class="h" >
<a name="5440">5440</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5441">5441</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> B<ALIGN Table Type> </td>
</tr>

<tr>
<td  class="h" >
<a name="5442">5442</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5443">5443</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Columns must be separated by two or more spaces (this prevents </td>
</tr>

<tr>
<td  class="h" >
<a name="5444">5444</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> accidental incorrect recognition of a paragraph where interword spaces </td>
</tr>

<tr>
<td  class="h" >
<a name="5445">5445</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> happen to line up).  If there are two or more rows in a paragraph and </td>
</tr>

<tr>
<td  class="h" >
<a name="5446">5446</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> all rows share the same set of (two or more) columns, the paragraph is </td>
</tr>

<tr>
<td  class="h" >
<a name="5447">5447</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> assumed to be a table.  For example </td>
</tr>

<tr>
<td  class="h" >
<a name="5448">5448</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5449">5449</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     -e  File exists. </td>
</tr>

<tr>
<td  class="h" >
<a name="5450">5450</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     -z  File has zero size. </td>
</tr>

<tr>
<td  class="h" >
<a name="5451">5451</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     -s  File has nonzero size (returns size). </td>
</tr>

<tr>
<td  class="h" >
<a name="5452">5452</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5453">5453</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> becomes </td>
</tr>

<tr>
<td  class="h" >
<a name="5454">5454</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5455">5455</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <table> </td>
</tr>

<tr>
<td  class="h" >
<a name="5456">5456</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <tr><td>-e</td><td>File exists.</td></tr> </td>
</tr>

<tr>
<td  class="h" >
<a name="5457">5457</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <tr><td>-z</td><td>File has zero size.</td></tr> </td>
</tr>

<tr>
<td  class="h" >
<a name="5458">5458</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <tr><td>-s</td><td>File has nonzero size (returns size).</td></tr> </td>
</tr>

<tr>
<td  class="h" >
<a name="5459">5459</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     </table> </td>
</tr>

<tr>
<td  class="h" >
<a name="5460">5460</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5461">5461</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This guesses for each column whether it is intended to be left, </td>
</tr>

<tr>
<td  class="h" >
<a name="5462">5462</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> centre or right aligned. </td>
</tr>

<tr>
<td  class="h" >
<a name="5463">5463</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5464">5464</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> B<BORDER Table Type> </td>
</tr>

<tr>
<td  class="h" >
<a name="5465">5465</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5466">5466</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This table type has nice borders around it, and will be rendered </td>
</tr>

<tr>
<td  class="h" >
<a name="5467">5467</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> with a border, like so: </td>
</tr>

<tr>
<td  class="h" >
<a name="5468">5468</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5469">5469</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     +---------+---------+ </td>
</tr>

<tr>
<td  class="h" >
<a name="5470">5470</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | Column1 | Column2 | </td>
</tr>

<tr>
<td  class="h" >
<a name="5471">5471</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     +---------+---------+ </td>
</tr>

<tr>
<td  class="h" >
<a name="5472">5472</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | val1    | val2    | </td>
</tr>

<tr>
<td  class="h" >
<a name="5473">5473</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | val3    | val3    | </td>
</tr>

<tr>
<td  class="h" >
<a name="5474">5474</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     +---------+---------+ </td>
</tr>

<tr>
<td  class="h" >
<a name="5475">5475</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5476">5476</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The above becomes </td>
</tr>

<tr>
<td  class="h" >
<a name="5477">5477</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5478">5478</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <table border="1"> </td>
</tr>

<tr>
<td  class="h" >
<a name="5479">5479</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <thead><tr><th>Column1</th><th>Column2</th></tr></thead> </td>
</tr>

<tr>
<td  class="h" >
<a name="5480">5480</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <tbody> </td>
</tr>

<tr>
<td  class="h" >
<a name="5481">5481</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <tr><td>val1</td><td>val2</td></tr> </td>
</tr>

<tr>
<td  class="h" >
<a name="5482">5482</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     <tr><td>val3</td><td>val3</td></tr> </td>
</tr>

<tr>
<td  class="h" >
<a name="5483">5483</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     </tbody> </td>
</tr>

<tr>
<td  class="h" >
<a name="5484">5484</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     </table> </td>
</tr>

<tr>
<td  class="h" >
<a name="5485">5485</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5486">5486</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> It can also have an optional caption at the start. </td>
</tr>

<tr>
<td  class="h" >
<a name="5487">5487</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5488">5488</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          My Caption </td>
</tr>

<tr>
<td  class="h" >
<a name="5489">5489</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     +---------+---------+ </td>
</tr>

<tr>
<td  class="h" >
<a name="5490">5490</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | Column1 | Column2 | </td>
</tr>

<tr>
<td  class="h" >
<a name="5491">5491</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     +---------+---------+ </td>
</tr>

<tr>
<td  class="h" >
<a name="5492">5492</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | val1    | val2    | </td>
</tr>

<tr>
<td  class="h" >
<a name="5493">5493</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | val3    | val3    | </td>
</tr>

<tr>
<td  class="h" >
<a name="5494">5494</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     +---------+---------+ </td>
</tr>

<tr>
<td  class="h" >
<a name="5495">5495</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5496">5496</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> B<PGSQL Table Type> </td>
</tr>

<tr>
<td  class="h" >
<a name="5497">5497</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5498">5498</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This format of table is what one gets from the output of a Postgresql </td>
</tr>

<tr>
<td  class="h" >
<a name="5499">5499</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> query. </td>
</tr>

<tr>
<td  class="h" >
<a name="5500">5500</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5501">5501</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      Column1 | Column2 </td>
</tr>

<tr>
<td  class="h" >
<a name="5502">5502</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ---------+--------- </td>
</tr>

<tr>
<td  class="h" >
<a name="5503">5503</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      val1    | val2 </td>
</tr>

<tr>
<td  class="h" >
<a name="5504">5504</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      val3    | val3 </td>
</tr>

<tr>
<td  class="h" >
<a name="5505">5505</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     (2 rows) </td>
</tr>

<tr>
<td  class="h" >
<a name="5506">5506</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5507">5507</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This can also have an optional caption at the start. </td>
</tr>

<tr>
<td  class="h" >
<a name="5508">5508</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This table is also rendered with a border and table-headers like </td>
</tr>

<tr>
<td  class="h" >
<a name="5509">5509</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the BORDER type. </td>
</tr>

<tr>
<td  class="h" >
<a name="5510">5510</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5511">5511</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> B<DELIM Table Type> </td>
</tr>

<tr>
<td  class="h" >
<a name="5512">5512</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5513">5513</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This table type is delimited by non-alphanumeric characters, and has to </td>
</tr>

<tr>
<td  class="h" >
<a name="5514">5514</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> have at least two rows and two columns before it's recognised as a table. </td>
</tr>

<tr>
<td  class="h" >
<a name="5515">5515</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5516">5516</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This one is delimited by the '| character: </td>
</tr>

<tr>
<td  class="h" >
<a name="5517">5517</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5518">5518</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | val1  | val2  | </td>
</tr>

<tr>
<td  class="h" >
<a name="5519">5519</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     | val3  | val3  | </td>
</tr>

<tr>
<td  class="h" >
<a name="5520">5520</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5521">5521</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> But one can use almost any suitable character such as : # $ % + and so on. </td>
</tr>

<tr>
<td  class="h" >
<a name="5522">5522</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This is clever enough to figure out what you are using as the delimiter </td>
</tr>

<tr>
<td  class="h" >
<a name="5523">5523</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> if you have your data set up like a table.  Note that the line has to </td>
</tr>

<tr>
<td  class="h" >
<a name="5524">5524</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> both begin and end with the delimiter, as well as using it to separate </td>
</tr>

<tr>
<td  class="h" >
<a name="5525">5525</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> values. </td>
</tr>

<tr>
<td  class="h" >
<a name="5526">5526</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5527">5527</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This can also have an optional caption at the start. </td>
</tr>

<tr>
<td  class="h" >
<a name="5528">5528</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5529">5529</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 EXAMPLES </td>
</tr>

<tr>
<td  class="h" >
<a name="5530">5530</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5531">5531</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use HTML::TextToHTML; </td>
</tr>

<tr>
<td  class="h" >
<a name="5532">5532</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5533">5533</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Create a new object </td>
</tr>

<tr>
<td  class="h" >
<a name="5534">5534</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5535">5535</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $conv = new HTML::TextToHTML(); </td>
</tr>

<tr>
<td  class="h" >
<a name="5536">5536</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5537">5537</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $conv = new HTML::TextToHTML(title=>"Wonderful Things", </td>
</tr>

<tr>
<td  class="h" >
<a name="5538">5538</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 			    default_link_dict=>$my_link_file, </td>
</tr>

<tr>
<td  class="h" >
<a name="5539">5539</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ); </td>
</tr>

<tr>
<td  class="h" >
<a name="5540">5540</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5541">5541</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Add further arguments </td>
</tr>

<tr>
<td  class="h" >
<a name="5542">5542</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5543">5543</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $conv->args(short_line_length=>60, </td>
</tr>

<tr>
<td  class="h" >
<a name="5544">5544</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	       preformat_trigger_lines=>4, </td>
</tr>

<tr>
<td  class="h" >
<a name="5545">5545</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	       caps_tag=>"strong", </td>
</tr>

<tr>
<td  class="h" >
<a name="5546">5546</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ); </td>
</tr>

<tr>
<td  class="h" >
<a name="5547">5547</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5548">5548</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Convert a file </td>
</tr>

<tr>
<td  class="h" >
<a name="5549">5549</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5550">5550</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $conv->txt2html(infile=>[$text_file], </td>
</tr>

<tr>
<td  class="h" >
<a name="5551">5551</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                      outfile=>$html_file, </td>
</tr>

<tr>
<td  class="h" >
<a name="5552">5552</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     title=>"Wonderful Things", </td>
</tr>

<tr>
<td  class="h" >
<a name="5553">5553</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 		     mail=>1 </td>
</tr>

<tr>
<td  class="h" >
<a name="5554">5554</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ); </td>
</tr>

<tr>
<td  class="h" >
<a name="5555">5555</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5556">5556</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Make a pipleline </td>
</tr>

<tr>
<td  class="h" >
<a name="5557">5557</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5558">5558</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     open(IN, "ls |") or die "could not open!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="5559">5559</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $conv->txt2html(inhandle=>[\*IN], </td>
</tr>

<tr>
<td  class="h" >
<a name="5560">5560</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                      outfile=>'-', </td>
</tr>

<tr>
<td  class="h" >
<a name="5561">5561</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">       ); </td>
</tr>

<tr>
<td  class="h" >
<a name="5562">5562</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5563">5563</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 NOTES </td>
</tr>

<tr>
<td  class="h" >
<a name="5564">5564</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5565">5565</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over </td>
</tr>

<tr>
<td  class="h" >
<a name="5566">5566</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5567">5567</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item * </td>
</tr>

<tr>
<td  class="h" >
<a name="5568">5568</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5569">5569</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> If the underline used to mark a header is off by more than 1, then  </td>
</tr>

<tr>
<td  class="h" >
<a name="5570">5570</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> that part of the text will not be picked up as a header unless you </td>
</tr>

<tr>
<td  class="h" >
<a name="5571">5571</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> change the value of --underline_length_tolerance and/or </td>
</tr>

<tr>
<td  class="h" >
<a name="5572">5572</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> --underline_offset_tolerance.  People tend to forget this. </td>
</tr>

<tr>
<td  class="h" >
<a name="5573">5573</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5574">5574</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="5575">5575</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5576">5576</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 REQUIRES </td>
</tr>

<tr>
<td  class="h" >
<a name="5577">5577</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5578">5578</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> HTML::TextToHTML requires Perl 5.8.1 or later. </td>
</tr>

<tr>
<td  class="h" >
<a name="5579">5579</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5580">5580</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For installation, it needs: </td>
</tr>

<tr>
<td  class="h" >
<a name="5581">5581</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5582">5582</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Module::Build </td>
</tr>

<tr>
<td  class="h" >
<a name="5583">5583</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5584">5584</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The txt2html script needs: </td>
</tr>

<tr>
<td  class="h" >
<a name="5585">5585</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5586">5586</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Getopt::Long </td>
</tr>

<tr>
<td  class="h" >
<a name="5587">5587</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Getopt::ArgvFile </td>
</tr>

<tr>
<td  class="h" >
<a name="5588">5588</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Pod::Usage </td>
</tr>

<tr>
<td  class="h" >
<a name="5589">5589</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     File::Basename </td>
</tr>

<tr>
<td  class="h" >
<a name="5590">5590</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5591">5591</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For testing, it also needs: </td>
</tr>

<tr>
<td  class="h" >
<a name="5592">5592</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5593">5593</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Test::More </td>
</tr>

<tr>
<td  class="h" >
<a name="5594">5594</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5595">5595</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For debugging, it also needs: </td>
</tr>

<tr>
<td  class="h" >
<a name="5596">5596</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5597">5597</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     YAML::Syck </td>
</tr>

<tr>
<td  class="h" >
<a name="5598">5598</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5599">5599</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 INSTALLATION </td>
</tr>

<tr>
<td  class="h" >
<a name="5600">5600</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5601">5601</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Make sure you have the dependencies installed first! </td>
</tr>

<tr>
<td  class="h" >
<a name="5602">5602</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (see REQUIRES above) </td>
</tr>

<tr>
<td  class="h" >
<a name="5603">5603</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5604">5604</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Some of those modules come standard with more recent versions of perl, </td>
</tr>

<tr>
<td  class="h" >
<a name="5605">5605</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> but I thought I'd mention them anyway, just in case you may not have </td>
</tr>

<tr>
<td  class="h" >
<a name="5606">5606</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> them. </td>
</tr>

<tr>
<td  class="h" >
<a name="5607">5607</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5608">5608</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> If you don't know how to install these, try using the CPAN module, an </td>
</tr>

<tr>
<td  class="h" >
<a name="5609">5609</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> easy way of auto-installing modules from the Comprehensive Perl Archive </td>
</tr>

<tr>
<td  class="h" >
<a name="5610">5610</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Network, where the above modules reside. </td>
</tr>

<tr>
<td  class="h" >
<a name="5611">5611</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Do "perldoc perlmodinstall" or "perldoc CPAN" for more information. </td>
</tr>

<tr>
<td  class="h" >
<a name="5612">5612</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5613">5613</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> To install this module type the following: </td>
</tr>

<tr>
<td  class="h" >
<a name="5614">5614</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5615">5615</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    perl Build.PL </td>
</tr>

<tr>
<td  class="h" >
<a name="5616">5616</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    ./Build </td>
</tr>

<tr>
<td  class="h" >
<a name="5617">5617</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    ./Build test </td>
</tr>

<tr>
<td  class="h" >
<a name="5618">5618</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    ./Build install </td>
</tr>

<tr>
<td  class="h" >
<a name="5619">5619</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5620">5620</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Or, if you're on a platform (like DOS or Windows) that doesn't like the </td>
</tr>

<tr>
<td  class="h" >
<a name="5621">5621</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "./" notation, you can do this: </td>
</tr>

<tr>
<td  class="h" >
<a name="5622">5622</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5623">5623</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    perl Build.PL </td>
</tr>

<tr>
<td  class="h" >
<a name="5624">5624</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    perl Build </td>
</tr>

<tr>
<td  class="h" >
<a name="5625">5625</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    perl Build test </td>
</tr>

<tr>
<td  class="h" >
<a name="5626">5626</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    perl Build install </td>
</tr>

<tr>
<td  class="h" >
<a name="5627">5627</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5628">5628</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> In order to install somewhere other than the default, such as </td>
</tr>

<tr>
<td  class="h" >
<a name="5629">5629</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> in a directory under your home directory, like "/home/fred/perl" </td>
</tr>

<tr>
<td  class="h" >
<a name="5630">5630</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> go </td>
</tr>

<tr>
<td  class="h" >
<a name="5631">5631</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5632">5632</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    perl Build.PL --install_base /home/fred/perl </td>
</tr>

<tr>
<td  class="h" >
<a name="5633">5633</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5634">5634</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> as the first step instead. </td>
</tr>

<tr>
<td  class="h" >
<a name="5635">5635</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5636">5636</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This will install the files underneath /home/fred/perl. </td>
</tr>

<tr>
<td  class="h" >
<a name="5637">5637</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5638">5638</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> You will then need to make sure that you alter the PERL5LIB variable to </td>
</tr>

<tr>
<td  class="h" >
<a name="5639">5639</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> find the modules, and the PATH variable to find the script. </td>
</tr>

<tr>
<td  class="h" >
<a name="5640">5640</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5641">5641</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Therefore you will need to change: </td>
</tr>

<tr>
<td  class="h" >
<a name="5642">5642</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> your path, to include /home/fred/perl/script (where the script will be) </td>
</tr>

<tr>
<td  class="h" >
<a name="5643">5643</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5644">5644</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	PATH=/home/fred/perl/script:${PATH} </td>
</tr>

<tr>
<td  class="h" >
<a name="5645">5645</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5646">5646</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the PERL5LIB variable to add /home/fred/perl/lib </td>
</tr>

<tr>
<td  class="h" >
<a name="5647">5647</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5648">5648</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 	PERL5LIB=/home/fred/perl/lib:${PERL5LIB} </td>
</tr>

<tr>
<td  class="h" >
<a name="5649">5649</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5650">5650</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Note that the system links dictionary will be installed as </td>
</tr>

<tr>
<td  class="h" >
<a name="5651">5651</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> "/home/fred/perl/share/txt2html/txt2html.dict" </td>
</tr>

<tr>
<td  class="h" >
<a name="5652">5652</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5653">5653</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> If you want to install in a temporary install directory (such as </td>
</tr>

<tr>
<td  class="h" >
<a name="5654">5654</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> if you are building a package) then instead of going </td>
</tr>

<tr>
<td  class="h" >
<a name="5655">5655</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5656">5656</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    perl Build install </td>
</tr>

<tr>
<td  class="h" >
<a name="5657">5657</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5658">5658</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> go </td>
</tr>

<tr>
<td  class="h" >
<a name="5659">5659</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5660">5660</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">    perl Build install destdir=/my/temp/dir </td>
</tr>

<tr>
<td  class="h" >
<a name="5661">5661</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5662">5662</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> and it will be installed there, with a directory structure under </td>
</tr>

<tr>
<td  class="h" >
<a name="5663">5663</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> /my/temp/dir the same as it would be if it were installed plain. </td>
</tr>

<tr>
<td  class="h" >
<a name="5664">5664</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Note that this is NOT the same as setting --install_base, because </td>
</tr>

<tr>
<td  class="h" >
<a name="5665">5665</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> certain things are done at build-time which use the install_base info. </td>
</tr>

<tr>
<td  class="h" >
<a name="5666">5666</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5667">5667</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> See "perldoc perlrun" for more information on PERL5LIB, and </td>
</tr>

<tr>
<td  class="h" >
<a name="5668">5668</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> see "perldoc Module::Build" for more information on </td>
</tr>

<tr>
<td  class="h" >
<a name="5669">5669</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> installation options. </td>
</tr>

<tr>
<td  class="h" >
<a name="5670">5670</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5671">5671</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 BUGS </td>
</tr>

<tr>
<td  class="h" >
<a name="5672">5672</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5673">5673</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Tell me about them. </td>
</tr>

<tr>
<td  class="h" >
<a name="5674">5674</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5675">5675</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 SEE ALSO </td>
</tr>

<tr>
<td  class="h" >
<a name="5676">5676</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5677">5677</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> perl </td>
</tr>

<tr>
<td  class="h" >
<a name="5678">5678</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> L<txt2html>. </td>
</tr>

<tr>
<td  class="h" >
<a name="5679">5679</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5680">5680</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 AUTHOR </td>
</tr>

<tr>
<td  class="h" >
<a name="5681">5681</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5682">5682</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Kathryn Andersen (RUBYKAT) </td>
</tr>

<tr>
<td  class="h" >
<a name="5683">5683</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     perlkat AT katspace dot com </td>
</tr>

<tr>
<td  class="h" >
<a name="5684">5684</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     http//www.katspace.com/ </td>
</tr>

<tr>
<td  class="h" >
<a name="5685">5685</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5686">5686</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> based on txt2html by Seth Golub </td>
</tr>

<tr>
<td  class="h" >
<a name="5687">5687</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5688">5688</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 COPYRIGHT AND LICENCE </td>
</tr>

<tr>
<td  class="h" >
<a name="5689">5689</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5690">5690</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Original txt2html script copyright (c) 1994-2000 Seth Golub <seth AT aigeek.com> </td>
</tr>

<tr>
<td  class="h" >
<a name="5691">5691</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5692">5692</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Copyright (c) 2002-2005 by Kathryn Andersen </td>
</tr>

<tr>
<td  class="h" >
<a name="5693">5693</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5694">5694</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This program is free software; you can redistribute it and/or </td>
</tr>

<tr>
<td  class="h" >
<a name="5695">5695</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> modify it under the same terms as Perl itself. </td>
</tr>

<tr>
<td  class="h" >
<a name="5696">5696</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5697">5697</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="5698">5698</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="5699">5699</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> #------------------------------------------------------------------------ </td>
</tr>

<tr>
<td  class="h" >
<a name="5700">5700</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 1; </td>
</tr>

</table>

</body>
</html>