Lines Matching refs:block
30 # Pass through comments and blank linkes before a text block.
36 # Gobble up the next text block.
37 $block = "";
40 $block .= $_;
43 # Don't touch a text block starting with < in column zero.
44 if ($block =~ /^</) {
45 print "$block\n";
48 # Meta block.
49 elsif ($block =~ /^%/) {
50 print "$block\n";
53 # Example block.
54 elsif ($block =~ /^\S+\s=/) {
55 print "<pre>\n$block</pre>\n\n";
58 # Pre-formatted block.
59 elsif ($block =~ /^\s/) {
60 print "<pre>\n$block</pre>\n\n";
63 # Paragraph block.
64 elsif ($block =~ /^\S/) {
65 print "<p>\n$block</p>\n\n";
70 die "Unrecognized text block:\n$block";