version 1.53, 2005/11/08 18:59:03
|
version 1.56, 2006/01/11 08:56:13
|
Line 50 while (!$_LONCAPA_INTERNAL_oldexpression
|
Line 50 while (!$_LONCAPA_INTERNAL_oldexpression
|
my $__LC__prefix; |
my $__LC__prefix; |
my $__LC__result; |
my $__LC__result; |
while (1) { |
while (1) { |
|
if ($__LC__a =~ m-^&(theta|pi|rho)$-) { last; } |
{ |
{ |
use strict; |
use strict; |
no strict "vars"; |
no strict "vars"; |
Line 157 sub dump {
|
Line 158 sub dump {
|
my ($target,$safeeval)=@_; |
my ($target,$safeeval)=@_; |
my $dump=''; |
my $dump=''; |
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
if (($symname!~/\027/) && ($symname!~/^\_/) && ($symname!~/\:$/)) { |
if (($symname!~ /^(INC|SIG)/) && ($symname!~/\027/) && |
|
($symname!~/^\_/) && ($symname!~/\:$/)) { |
my $line; |
my $line; |
if ($safeeval->reval('defined($'.$symname.')')) { |
if ($safeeval->reval('defined($'.$symname.')')) { |
if ($symname =~ /^\w/) { |
if ($symname =~ /^\w/) { |