version 1.90, 2001/06/09 14:23:27
|
version 1.91, 2001/06/12 21:10:22
|
Line 19 use HTML::TokeParser;
|
Line 19 use HTML::TokeParser;
|
use Safe; |
use Safe; |
use Safe::Hole; |
use Safe::Hole; |
use Math::Cephes qw(:trigs :hypers :bessels erf erfc); |
use Math::Cephes qw(:trigs :hypers :bessels erf erfc); |
|
use Math::Random qw(:all); |
use Opcode; |
use Opcode; |
|
|
sub register { |
sub register { |
Line 214 sub printalltags {
|
Line 215 sub printalltags {
|
} |
} |
|
|
sub xmlparse { |
sub xmlparse { |
|
# $Apache::lonxml::debug=1; |
my ($target,$content_file_string,$safeinit,%style_for_target) = @_; |
my ($target,$content_file_string,$safeinit,%style_for_target) = @_; |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
$Apache::lonxml::redirection = 0; |
$Apache::lonxml::redirection = 0; |
Line 495 sub init_safespace {
|
Line 496 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::Random::random_beta,$safeeval,'&math_random_beta'); |
|
$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_f,$safeeval,'&math_random_f'); |
|
$safehole->wrap(\&Math::Random::random_gamma,$safeeval,'&math_random_gamma'); |
|
$safehole->wrap(\&Math::Random::random_multivariate_normal,$safeeval,'&math_random_multivariate_normal'); |
|
$safehole->wrap(\&Math::Random::random_multinomial,$safeeval,'&math_random_multinomial'); |
|
$safehole->wrap(\&Math::Random::random_noncentral_chi_square,$safeeval,'&math_random_noncentral_chi_square'); |
|
$safehole->wrap(\&Math::Random::random_noncentral_f,$safeeval,'&math_random_noncentral_f'); |
|
$safehole->wrap(\&Math::Random::random_normal,$safeeval,'&math_random_normal'); |
|
$safehole->wrap(\&Math::Random::random_permutation,$safeeval,'&math_random_permutation'); |
|
# $safehole->wrap(\&Math::Random::random_permuted_index,$safeeval,'&math_random_permuted_index'); |
|
$safehole->wrap(\&Math::Random::random_uniform,$safeeval,'&math_random_uniform'); |
|
$safehole->wrap(\&Math::Random::random_poisson,$safeeval,'&math_random_poisson'); |
|
$safehole->wrap(\&Math::Random::random_uniform_integer,$safeeval,'&math_random_uniform_integer'); |
|
$safehole->wrap(\&Math::Random::random_negative_binomial,$safeeval,'&math_random_negative_binomial'); |
|
$safehole->wrap(\&Math::Random::random_binomial,$safeeval,'&math_random_binomial'); |
|
$safehole->wrap(\&Math::Random::random_seed_from_phrase,$safeeval,'&random_seed_from_phrase'); |
|
$safehole->wrap(\&Math::Random::random_set_seed_from_phrase,$safeeval,'&random_set_seed_from_phrase'); |
|
$safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed'); |
|
$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed'); |
|
|
#need to inspect this class of ops |
#need to inspect this class of ops |
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
$safeinit .= ';$external::target='.$target.';'; |
$safeinit .= ';$external::target="'.$target.'";'; |
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';'; |
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';'; |
&Apache::run::run($safeinit,$safeeval); |
&Apache::run::run($safeinit,$safeeval); |
} |
} |