ick-hack
ick-hack
inline;
if ($inline) {
# XXX `mark' hack
if ($flow->is_mark) {
$writer->push_mark ($flow->as_string);
return;
} else {
$writer->push_inline ($flow);
}
} else {
$writer->push_display ($flow);
}
$flow->children_accept ($self, $writer, @_);
if ($inline) {
$writer->pop_inline;
} else {
$writer->pop_display;
}
]]>
push_display ($paragraph);
$paragraph->children_accept ($self, $writer, @_);
$writer->pop_display;
]]>
push_break ($display_space);
]]>
push_display (new Quilt::Flow (space_before => 1, space_after => 1, lines => 'asis'));
$writer->push_data ($writer->format_table ($table->delegate, $self));
$writer->pop_display;
]]>
push_display (new Quilt::Flow (space_before => 1, space_after => 1, lines => 'asis'));
$writer->push_data ($writer->format_table ($table->delegate, $self));
$writer->pop_display;
]]>
scalar
push_data ($scalar->delegate);
]]>
sdata
data;
my $mapping = $writer->{entity_map}->lookup ($data);
if (!defined $mapping) {
$mapping = "[[" . $data . "]]";
if (!$writer->{warn_map}{$data}) {
warn "no entity map for \`$data'\n";
$writer->{warn_map}{$data} = 1;
}
}
$writer->push_data ($mapping);
]]>
SGML_SData
data;
my $mapping = $writer->{entity_map}->lookup ($data);
if (!defined $mapping) {
$mapping = "[[" . $data . "]]";
if (!$writer->{warn_map}{$data}) {
warn "no entity map for \`$data'\n";
$writer->{warn_map}{$data} = 1;
}
}
$writer->push_data ($mapping);
]]>