1496 |
{ |
{ |
1497 |
$default_top_file = undef; |
$default_top_file = undef; |
1498 |
} |
} |
1499 |
$top_file = $default_top_file; |
my $top_file = $default_top_file; |
1500 |
if ($SPLIT eq 'node') |
if ($SPLIT eq 'node') |
1501 |
{ |
{ |
1502 |
if (defined($TOP_FILE) and ($TOP_FILE ne '')) |
if (defined($TOP_FILE) and ($TOP_FILE ne '')) |
2928 |
$css_map{'pre.smallformat'} = $css_map{'pre.smalldisplay'}; |
$css_map{'pre.smallformat'} = $css_map{'pre.smalldisplay'}; |
2929 |
$css_map{'pre.smalllisp'} = $css_map{'pre.smallexample'}; |
$css_map{'pre.smalllisp'} = $css_map{'pre.smallexample'}; |
2930 |
|
|
2931 |
|
# The command_handler arrays are for commands formatted externally. |
2932 |
|
# The function references in @command_handler_init are called |
2933 |
|
# before the second pass, before the @-commands text collection. |
2934 |
|
# Those in @command_handler_process are called between the second pass |
2935 |
|
# and the third pass, after collection of @-commands text and before their |
2936 |
|
# expansion. |
2937 |
|
# Those in @command_handler_process are called after the third pass, |
2938 |
|
# after the document generation. |
2939 |
|
@command_handler_init = (); |
2940 |
|
@command_handler_process = (); |
2941 |
|
@command_handler_finish = (); |
2942 |
|
|
2943 |
|
# the keys of %command_handler are @-command names and the value |
2944 |
|
# is a hash reference with the following keys: |
2945 |
|
# 'init' function reference used to collect the @-command text |
2946 |
|
# 'expand' function reference used when expanding the @-command text |
2947 |
|
%command_handler = (); |
2948 |
|
|
2949 |
# formatting functions |
# formatting functions |
2950 |
|
|
2951 |
$anchor = \&t2h_default_anchor; |
$anchor = \&t2h_default_anchor; |
3045 |
return $text; |
return $text; |
3046 |
} |
} |
3047 |
|
|
3048 |
sub t2h_default_unknown($$) |
sub t2h_default_unknown($$$$) |
3049 |
{ |
{ |
3050 |
my $macro = shift; |
my $macro = shift; |
3051 |
my $line = shift; |
my $line = shift; |
3052 |
|
my $stack = shift; |
3053 |
|
my $state = shift; |
3054 |
|
|
3055 |
my ($result_line, $result, $result_text, $message); |
my ($result_line, $result, $result_text, $message); |
3056 |
return ($line, 0, undef, undef); |
return ($line, 0, undef, undef); |
3057 |
} |
} |
3058 |
|
|
3059 |
sub t2h_default_unknown_style($$) |
sub t2h_default_unknown_style($$$$) |
3060 |
{ |
{ |
3061 |
my $command = shift; |
my $command = shift; |
3062 |
my $text = shift; |
my $text = shift; |
3063 |
|
my $state = shift; |
3064 |
|
|
3065 |
my ($result, $result_text, $message); |
my ($result, $result_text, $message); |
3066 |
return (0, undef, undef); |
return (0, undef, undef); |