[system] / trunk / pg / macros / dangerousMacros.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/dangerousMacros.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 5016 Revision 5017
… …
1250# Some constants that can be used in perl experssions 1250# Some constants that can be used in perl experssions
1251# 1251#
1252 1252
1253sub i () { 1253sub i () {
1254 # check if Parser.pl is loaded, otherwise use Complex package 1254 # check if Parser.pl is loaded, otherwise use Complex package
1255 if (!eval(q!$main::_parser_loaded!)) {Complex::i} 1255 if (!eval(q!$main::_parser_loaded!)) {return Complex::i}
1256 return Value->Package("Formula")->new('i')->eval; 1256 return Value->Package("Formula")->new('i')->eval;
1257} 1257}
1258sub j () { 1258sub j () {
1259 if (!eval(q!$main::_parser_loaded!)) {return 'j'} 1259 if (!eval(q!$main::_parser_loaded!)) {return 'j'}
1260 Value->Package("Formula")->new('j')->eval; 1260 Value->Package("Formula")->new('j')->eval;
Legend:
Removed from v.5016  
changed lines
  Added in v.5017
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9