|
version 1.46, 2004/03/31 05:24:00
|
version 1.48, 2004/07/19 16:53:46
|
|
Line 46 while (!$_LONCAPA_INTERNAL_oldexpression
|
Line 46 while (!$_LONCAPA_INTERNAL_oldexpression
|
| # only match the above if there is not { [ ( coming up |
# only match the above if there is not { [ ( coming up |
| # Why? (I.e. this fails &a(1)[2] |
# Why? (I.e. this fails &a(1)[2] |
| (?=[^\[\{\(]|$)/ |
(?=[^\[\{\(]|$)/ |
| &__LC_INTERNAL_EVALUATE__($1,$2,$3)/sexg; |
my ($__LC__a,$__LC__b,$__LC__c)=($1,$2,$3); |
| |
my $__LC__prefix; |
| |
my $result; |
| |
while (1) { |
| |
{ |
| |
use strict; |
| |
no strict "vars"; |
| |
if (eval(defined(eval($__LC__a.$__LC__b)))) { |
| |
$result= $__LC__prefix.eval($__LC__a.$__LC__b.$__LC__c); |
| |
last; |
| |
} |
| |
} |
| |
$__LC__prefix.=substr($__LC__a,0,1,""); |
| |
if ($__LC__a!~m-^(\$|&|\#)-) { last; } |
| |
} |
| |
if (!defined($result)) { |
| |
$result=$__LC__prefix.$__LC__a.$__LC__b.$__LC__c; |
| |
} |
| |
$result; |
| |
/sexg; |
| if (scalar(values(%_LONCAPA_INTERNAL_oldexpressions))>10) {last;} |
if (scalar(values(%_LONCAPA_INTERNAL_oldexpressions))>10) {last;} |
| } |
} |
| ENDEVALUATE |
ENDEVALUATE |
![[BACK]](/icons/back.gif){kind=icon}
Return to run.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml