version 1.27, 2008/09/25 10:23:56
|
version 1.29, 2010/06/14 11:34:18
|
Line 61 sub maximareply {
|
Line 61 sub maximareply {
|
sub blacklisted { |
sub blacklisted { |
my ($cmd)=@_; |
my ($cmd)=@_; |
foreach my $forbidden ( |
foreach my $forbidden ( |
'\? ','\?','%i\d','%o','batch','block' |
'\? ','\?','%i\d+','%o','batch','block' |
,'compil','concat','describe','display2d','file','inchar' |
,'compil','concat','describe','display2d','file','inchar' |
,'includ','lisp','load','outchar','plot','quit' |
,'includ','lisp','load','outchar','plot','quit' |
,'read','reset','save','stin','stout','stringout' |
,'read','reset','save','stin','stout','stringout' |
Line 117 sub runscript {
|
Line 117 sub runscript {
|
|
|
sub maxima_cas_formula_fix { |
sub maxima_cas_formula_fix { |
my ($expression)=@_; |
my ($expression)=@_; |
return &Apache::response::implicit_multiplication($expression); |
$expression=&Apache::response::implicit_multiplication($expression); |
|
$expression=~s/([^\w\%])pi/$1\%pi/gs; |
|
return $expression; |
} |
} |
|
|
sub maxima_run { |
sub maxima_run { |