|
version 1.1, 2009/04/17 00:34:51
|
version 1.2, 2009/04/18 13:18:58
|
|
Line 61 sub rreply {
|
Line 61 sub rreply {
|
| sub blacklisted { |
sub blacklisted { |
| my ($cmd)=@_; |
my ($cmd)=@_; |
| foreach my $forbidden ( |
foreach my $forbidden ( |
| '\? ','\?','%i\d+','%o','batch','block' |
'read\.table','scan','plot','X11','windows','quartz', |
| ,'compil','concat','describe','display2d','file','inchar' |
'postscript','pdf','png','jpeg', |
| ,'includ','lisp','load','outchar','plot','quit' |
'dev\.list','dev\.next','dev\.prev','dev\.set', |
| ,'read','reset','save','stin','stout','stringout' |
'dev\.off','dev\.copy','dev\.print','graphics\.off', |
| ,'system','translat','ttyoff','with_stdout','writefile' |
'library','package','source','sink','objects' |
| ) { |
) { |
| if ($cmd=~/$forbidden/s) { return 1; } |
if ($cmd=~/$forbidden/s) { return 1; } |
| } |
} |
|
Line 73 sub blacklisted {
|
Line 73 sub blacklisted {
|
| } |
} |
| |
|
| sub r_allowed_libraries { |
sub r_allowed_libraries { |
| return ( |
return ('boot','class','cluster','datasets','KernSmooth','MASS', |
| "absimp","affine","atensor","atrig1","augmented_lagrangian","contrib_ode","ctensor","descriptive","diag", |
'methods','mgcv','nlme','nnet','rpart','spatial', |
| "eigen","facexp","fft","fourie","functs","ggf","grobner","impdiff","ineq","interpol","itensor","lapack", |
'splines','stats','stats4','survival'); |
| "lbfgs","lindstedt","linearalgebra","lsquares","makeOrders","mnewton","mchrpl","ntrig","orthopoly", |
|
| "quadpack","rducon","romberg","scifac","simplex","solve_rec","sqdnst","stats","sterling","sym","units", |
|
| "vect","zeilberger"); |
|
| } |
} |
| |
|
| sub r_is_allowed_library { |
sub r_is_allowed_library { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonr.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework