Lines Matching refs:block
36 # Skip blank lines before text block.
39 # Gobble up the next text block.
40 $block = "";
44 $block .= $_;
48 { $comment = 0; $block =~ s/<!--.*-->//sg; }
52 if ($block =~ /^\s/) {
53 $block =~ s/^\s+//s;
54 next if ($block eq "");
57 # Don't touch a text block starting with < in column zero.
58 if ($block =~ /^</) {
59 print "$block\n";
62 # Meta block. Emit upper case tags for html2man.
63 elsif ($block =~ /^%PARAM/) {
67 ($junk, $param, $defval) = split(/\s+/, $block, 3);
74 # Meta block. Emit upper case tags for html2man.
75 elsif ($block =~ /^%CLASS/) {
79 ($junk, $class, $text) = split(/\s+/, $block, 3);
87 die "Unrecognized text block:\n$block";