version 1.48, 2004/07/19 16:53:46
|
version 1.49, 2004/08/10 19:16:40
|
Line 48 while (!$_LONCAPA_INTERNAL_oldexpression
|
Line 48 while (!$_LONCAPA_INTERNAL_oldexpression
|
(?=[^\[\{\(]|$)/ |
(?=[^\[\{\(]|$)/ |
my ($__LC__a,$__LC__b,$__LC__c)=($1,$2,$3); |
my ($__LC__a,$__LC__b,$__LC__c)=($1,$2,$3); |
my $__LC__prefix; |
my $__LC__prefix; |
my $result; |
my $__LC__result; |
while (1) { |
while (1) { |
{ |
{ |
use strict; |
use strict; |
no strict "vars"; |
no strict "vars"; |
if (eval(defined(eval($__LC__a.$__LC__b)))) { |
if (eval(defined(eval($__LC__a.$__LC__b)))) { |
$result= $__LC__prefix.eval($__LC__a.$__LC__b.$__LC__c); |
$__LC__result= $__LC__prefix.eval($__LC__a.$__LC__b.$__LC__c); |
last; |
last; |
} |
} |
} |
} |
$__LC__prefix.=substr($__LC__a,0,1,""); |
$__LC__prefix.=substr($__LC__a,0,1,""); |
if ($__LC__a!~m-^(\$|&|\#)-) { last; } |
if ($__LC__a!~m-^(\$|&|\#)-) { last; } |
} |
} |
if (!defined($result)) { |
if (!defined($__LC__result)) { |
$result=$__LC__prefix.$__LC__a.$__LC__b.$__LC__c; |
$__LC__result=$__LC__prefix.$__LC__a.$__LC__b.$__LC__c; |
} |
} |
$result; |
$__LC__result; |
/sexg; |
/sexg; |
if (scalar(values(%_LONCAPA_INTERNAL_oldexpressions))>10) {last;} |
if (scalar(values(%_LONCAPA_INTERNAL_oldexpressions))>10) {last;} |
} |
} |
Line 160 sub dump {
|
Line 160 sub dump {
|
if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
my $line; |
my $line; |
if ($safeeval->reval('defined($'.$symname.')')) { |
if ($safeeval->reval('defined($'.$symname.')')) { |
$line='$'.$symname.'='.$safeeval->reval('$'.$symname); |
$line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
} |
} |
if ($safeeval->reval('defined(@'.$symname.')')) { |
if ($safeeval->reval('defined(@'.$symname.')')) { |
$line='@'.$symname.'=('. |
$line.='@'.$symname.'=('. |
$safeeval->reval('join(",",@'.$symname.')').")"; |
$safeeval->reval('join(",",@'.$symname.')').")"."\n"; |
} |
} |
if ($safeeval->reval('defined(%'.$symname.')')) { |
if ($safeeval->reval('defined(%'.$symname.')')) { |
$line='%'.$symname.'=('; |
$line.='%'.$symname.'=('; |
$line.=$safeeval->reval('join(",",map { $_."=>".$'. |
$line.=$safeeval->reval('join(",",map { $_."=>".$'. |
$symname.'{$_} } sort keys %'. |
$symname.'{$_} } sort keys %'. |
$symname.')').")" |
$symname.')').")"."\n" |
} |
} |
if ($line ne '') {$dump.=&HTML::Entities::encode($line,'<>&"')."<br />";} |
if ($line ne '') { |
|
$line=&HTML::Entities::encode($line,'<>&"'); |
|
$line=~s|\n|<br />|; |
|
$dump.=$line; |
|
} |
} |
} |
} |
} |
$dump.=''; |
$dump.=''; |