version 1.2, 2000/06/27 19:35:32
|
version 1.7, 2000/10/30 20:34:25
|
Line 6
|
Line 6
|
package Apache::londefdef; |
package Apache::londefdef; |
|
|
use strict; |
use strict; |
|
use Apache::lonxml; |
|
|
|
sub BEGIN { |
|
&Apache::lonxml::register('Apache::londefdef',('m','html','head','map','applet','select','option','input','textarea','form','meta','title','body','center','b','strong','table','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u')); |
|
} |
|
|
#===================================================================== TAG SUBROUTINES |
#===================================================================== TAG SUBROUTINES |
#----------------------------------------------------------------------------- <m> tag |
#-- <m> tag |
sub start_mfirst { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = "\$out = lontexconvert::converted(\$in = '\\documentstyle{article}'.'\$'.\""; |
|
} elsif ($target eq 'tex') { |
|
$currentstring = "\$"; |
|
} |
|
return $currentstring; |
|
} |
|
sub start_m { |
sub start_m { |
my ($target,$token) = @_; |
my ($target,$token,$parstack,$parser) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
|
if ($target eq 'meta') { |
|
my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); |
|
$currentstring =''; |
|
} |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = "\$out = lontexconvert::converted(\$in = '\$'.\""; |
my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); |
|
$inside ='\\documentstyle{article}'.$inside; |
|
# &Apache::lonxml::debug($inside); |
|
$currentstring = &Apache::lontexconvert::converted(\$inside); |
|
# &Apache::lonxml::debug($currentstring); |
|
|
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = "\$"; |
$currentstring = ""; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 34 use strict;
|
Line 37 use strict;
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = "\".'\$') "; |
|
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = "\$"; |
$currentstring = ""; |
|
} elsif ($target eq 'meta') { |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 830 use strict;
|
Line 833 use strict;
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
sub end_hr { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring .= $token->[2]; |
|
} elsif ($target eq 'tex') { |
|
} |
|
return $currentstring; |
|
} |
#----------------------------------------------------------------------------- <a> tag |
#----------------------------------------------------------------------------- <a> tag |
sub start_a { |
sub start_a { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |