version 1.162, 2003/08/20 15:22:03
|
version 1.163, 2003/08/20 15:27:52
|
Line 2318 sub end_xmp {
|
Line 2318 sub end_xmp {
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
|
|
#-- <pre> |
#-- <pre> |
sub start_pre { |
sub start_pre { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
Line 3149 sub start_var {
|
Line 3148 sub start_var {
|
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} |
} elsif ($target eq 'tex') { |
|
$currentstring = '\textit{'; |
|
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 3157 sub end_var {
|
Line 3158 sub end_var {
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
|
} elsif ($target eq 'tex') { |
|
$currentstring = '}'; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
#-- <wbr> tag |
#-- <wbr> tag (end tag forbidden) |
sub start_wbr { |
sub start_wbr { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |