Lines Matching refs:text
72 Creates header and footer blocks containing the text of the C<NAME>
290 $Backlink = ''; # text for "back to top" links
292 @Listend = (); # the text to use to end the list.
294 $Ignore = 1; # whether or not to format text. we don't
295 # format text until we hit our first pod
449 $csslink = qq(\n<link rel="stylesheet" href="$Css" type="text/css" />);
521 } elsif (/^=item\s*(.*\S)?/sm) { # =item text
543 my $text = $_;
544 if( $text =~ /\A\s+/ ){
545 process_pre( \$text );
546 print HTML "<pre>\n$text</pre>\n";
549 process_text( \$text );
553 if( $text =~ /\t/ ){
554 my @lines = split( "\n", $text );
564 $text =~ s/\t+/<td>/g;
565 $text =~ s/^/<tr><td>/gm;
566 $text = '<table cellspacing="0" cellpadding="0">' .
567 $text . '</table>';
574 print HTML "$text\n";
577 print HTML "<p>$text</p>\n";
616 --backlink - set text for "back to top" links (default: none).
1090 # emit_item_tag - print an =item's text
1096 my( $otext, $text, $compact ) = @_;
1097 my $item = fragment_id( $text );
1100 ### print STDERR "emit_item_tag=$item ($text)\n";
1146 # remove formatting instructions from the text
1147 my $text = depod( $otext );
1152 if( $text =~ /\A\*/ ){ # bullet
1154 if ($text =~ /\A\*\s+(.+)\Z/s ) { # with additional text
1160 } elsif( $text =~ /\A\d+/ ){ # numbered list
1162 if ($text =~ /\A(?>\d+\.?)\s*(.+)\Z/s ) { # with additional text
1170 if ($text =~ /\A(.+)\Z/s ){ # should have text
1171 emit_item_tag( $otext, $text, 1 );
1235 my($whom, $text) = @_;
1237 print HTML $text;
1239 1 while chomp $text;
1241 $text .= $ext, last if -r "$text$ext";
1243 print HTML qq{<p align="center"><img src="$text" alt="$text illustration" /></p>};
1253 my($whom, $text) = @_;
1257 print HTML $text if $text;
1266 my($whom, $text) = @_;
1278 my( $text ) = @_;
1282 $rest = $$text;
1295 # the preformatted text.
1370 # text should be as it is (verbatim)
1371 $$text = $rest;
1376 # pure text processing
1382 my $text = shift();
1383 process_puretext( $text, \$PTQuote, 1 );
1387 my $text = shift();
1388 process_puretext( $text, \$PTQuote, 0 );
1392 # process_puretext - process pure text (without pod-escapes) converting
1396 my($text, $quote, $notinIS) = @_;
1398 ## Guessing at func() or [$@%&]*var references in plain text is destined
1405 if( $$quote && $text =~ s/"/''/s ){
1408 while ($text =~ s/"([^"]*)"/``$1''/sg) {};
1409 $$quote = 1 if $text =~ s/"/``/s;
1412 $lead = ($text =~ s/\A(\s+)//s ? $1 : "");
1413 $trail = ($text =~ s/(\s+)\Z//s ? $1 : "");
1416 @words = split( /(?<=\s)(?=\S)|(?<=\S)(?=\s)/, $text );
1464 # there may be pod commands embedded within the text so those must be
1489 # B<text> - boldface
1494 # need to extract text
1498 my $text = depod( $par );
1503 $res = emit_C( $text, $lev > 1 || ($par =~ /[BI]</) );
1517 # I<text> - italizice
1522 ## L<text|cross-ref> => produce text, use cross-ref for linking
1523 ## L<cross-ref> => make text from cross-ref
1524 ## need to extract text
1534 my $text = depod( $1 );
1535 return emit_C( $text, $lev > 1 || ($par =~ /[BI]</) );
1622 # warning; show some text.
1636 # S<text> - non-breaking spaces
1672 # go_ahead: extract text of an IS (can be nested)
1694 # emit_C - output result of C<text>
1695 # $text is the depod-ed text
1698 my( $text, $nocode, $args ) = @_;
1701 my( $url, $fid ) = coderef( undef(), $text );
1703 # need HTML-safe text
1704 my $linktext = html_escape( "$text$args" );
1718 # html_escape: make text safe for HTML
1747 # page_sect - make a URL from the text of a L<>
1879 # coderef - make URL from the text of a C<>
1987 # depod - convert text by eliminating all interior sequences
2017 # recurse into its text
2049 # a) =item text
2054 my $text = shift();
2055 $text =~ s/\s+\Z//s;
2056 if( $text ){
2058 return $1 if $text =~ /(\w+)\s*\(/;
2059 return $1 if $text =~ /->\s*(\w+)\s*\(?/;
2062 return $1 if $text =~ /^([$@%*]\S+)/;
2065 return $1 if $text =~ m|^(\w+/).*/\w*$|;
2068 return $1 if $text =~ m|^(\w+)\s*{.*}$|;
2072 return $1 if $text =~ m{^([a-z\d]+)(\s+[A-Z\d,/& ]+)?$};
2073 return $1 if $text =~ m{^([a-z\d]+)\s+Module(\s+[A-Z\d,/& ]+)?$};
2075 # text? normalize!
2076 $text =~ s/\s+/_/sg;
2077 $text =~ s{(\W)}{
2080 $text = substr( $text, 0, 50 );