version 1.214, 2002/11/12 20:11:10
|
version 1.216, 2002/12/03 22:04:43
|
Line 144 $Apache::lonxml::registered=0;
|
Line 144 $Apache::lonxml::registered=0;
|
# a pointer the the Apache request object |
# a pointer the the Apache request object |
$Apache::lonxml::request=''; |
$Apache::lonxml::request=''; |
|
|
# a problem number counter, and check on hether it is used |
# a problem number counter, and check on ether it is used |
$Apache::lonxml::counter=0; |
$Apache::lonxml::counter=1; |
$Apache::lonxml::counter_changed=0; |
$Apache::lonxml::counter_changed=0; |
|
|
#internal check on whether to look at style defs |
#internal check on whether to look at style defs |
Line 598 sub htmlclean {
|
Line 598 sub htmlclean {
|
|
|
sub latex_special_symbols { |
sub latex_special_symbols { |
my ($current_token,$stack,$parstack)=@_; |
my ($current_token,$stack,$parstack)=@_; |
$current_token=~s/\\/\\char92 /g; |
$current_token=~s/\\ /\\char92 /g; |
$current_token=~s/\^/\\char94 /g; |
$current_token=~s/\^/\\char94 /g; |
$current_token=~s/\~/\\char126 /g; |
$current_token=~s/\~/\\char126 /g; |
$current_token=~s/(&[^a-z\#])/\\$1/g; |
$current_token=~s/(&[^a-z\#])/\\$1/g; |
Line 623 sub inner_xmlparse {
|
Line 623 sub inner_xmlparse {
|
if ($metamode<1) { |
if ($metamode<1) { |
my $text=$token->[1]; |
my $text=$token->[1]; |
if ($token->[0] eq 'C' && $target eq 'tex') { |
if ($token->[0] eq 'C' && $target eq 'tex') { |
$text = '%'.$text; |
$text = '%'.$text."\n"; |
$text =~ s/[\n\r]//g; |
|
} |
} |
$result.=$text; |
$result.=$text; |
} |
} |
Line 716 sub inner_xmlparse {
|
Line 715 sub inner_xmlparse {
|
|
|
if (($ENV{'QUERY_STRING'}) && ($target eq 'web')) { |
if (($ENV{'QUERY_STRING'}) && ($target eq 'web')) { |
$finaloutput=&afterburn($finaloutput); |
$finaloutput=&afterburn($finaloutput); |
} |
} |
return $finaloutput; |
return $finaloutput; |
} |
} |
|
|
Line 863 sub init_safespace {
|
Line 862 sub init_safespace {
|
$safehole->wrap(\&Math::Cephes::y1,$safeeval,'&y1'); |
$safehole->wrap(\&Math::Cephes::y1,$safeeval,'&y1'); |
$safehole->wrap(\&Math::Cephes::yn,$safeeval,'&yn'); |
$safehole->wrap(\&Math::Cephes::yn,$safeeval,'&yn'); |
$safehole->wrap(\&Math::Cephes::yv,$safeeval,'&yv'); |
$safehole->wrap(\&Math::Cephes::yv,$safeeval,'&yv'); |
|
|
|
$safehole->wrap(\&Math::Cephes::bdtr ,$safeeval,'&bdtr' ); |
|
$safehole->wrap(\&Math::Cephes::bdtrc ,$safeeval,'&bdtrc' ); |
|
$safehole->wrap(\&Math::Cephes::bdtri ,$safeeval,'&bdtri' ); |
|
$safehole->wrap(\&Math::Cephes::btdtr ,$safeeval,'&btdtr' ); |
|
$safehole->wrap(\&Math::Cephes::chdtr ,$safeeval,'&chdtr' ); |
|
$safehole->wrap(\&Math::Cephes::chdtrc,$safeeval,'&chdtrc'); |
|
$safehole->wrap(\&Math::Cephes::chdtri,$safeeval,'&chdtri'); |
|
$safehole->wrap(\&Math::Cephes::fdtr ,$safeeval,'&fdtr' ); |
|
$safehole->wrap(\&Math::Cephes::fdtrc ,$safeeval,'&fdtrc' ); |
|
$safehole->wrap(\&Math::Cephes::fdtri ,$safeeval,'&fdtri' ); |
|
$safehole->wrap(\&Math::Cephes::gdtr ,$safeeval,'&gdtr' ); |
|
$safehole->wrap(\&Math::Cephes::gdtrc ,$safeeval,'&gdtrc' ); |
|
$safehole->wrap(\&Math::Cephes::nbdtr ,$safeeval,'&nbdtr' ); |
|
$safehole->wrap(\&Math::Cephes::nbdtrc,$safeeval,'&nbdtrc'); |
|
$safehole->wrap(\&Math::Cephes::nbdtri,$safeeval,'&nbdtri'); |
|
$safehole->wrap(\&Math::Cephes::ndtr ,$safeeval,'&ndtr' ); |
|
$safehole->wrap(\&Math::Cephes::ndtri ,$safeeval,'&ndtri' ); |
|
$safehole->wrap(\&Math::Cephes::pdtr ,$safeeval,'&pdtr' ); |
|
$safehole->wrap(\&Math::Cephes::pdtrc ,$safeeval,'&pdtrc' ); |
|
$safehole->wrap(\&Math::Cephes::pdtri ,$safeeval,'&pdtri' ); |
|
$safehole->wrap(\&Math::Cephes::stdtr ,$safeeval,'&stdtr' ); |
|
$safehole->wrap(\&Math::Cephes::stdtri,$safeeval,'&stdtri'); |
|
|
|
# $safehole->wrap(\&Math::Cephes::new_fract,$safeeval,'&new_fract'); |
|
# $safehole->wrap(\&Math::Cephes::radd,$safeeval,'&radd'); |
|
# $safehole->wrap(\&Math::Cephes::rsub,$safeeval,'&rsub'); |
|
# $safehole->wrap(\&Math::Cephes::rmul,$safeeval,'&rmul'); |
|
# $safehole->wrap(\&Math::Cephes::rdiv,$safeeval,'&rdiv'); |
|
# $safehole->wrap(\&Math::Cephes::euclid,$safeeval,'&euclid'); |
|
|
$safehole->wrap(\&Math::Random::random_beta,$safeeval,'&math_random_beta'); |
$safehole->wrap(\&Math::Random::random_beta,$safeeval,'&math_random_beta'); |
$safehole->wrap(\&Math::Random::random_chi_square,$safeeval,'&math_random_chi_square'); |
$safehole->wrap(\&Math::Random::random_chi_square,$safeeval,'&math_random_chi_square'); |
$safehole->wrap(\&Math::Random::random_exponential,$safeeval,'&math_random_exponential'); |
$safehole->wrap(\&Math::Random::random_exponential,$safeeval,'&math_random_exponential'); |