version 1.58, 2001/07/21 23:58:31
|
version 1.59, 2001/09/01 20:38:52
|
Line 6
|
Line 6
|
# 01/01/01,02/01,03/01,19/01,20/01,22/01, |
# 01/01/01,02/01,03/01,19/01,20/01,22/01, |
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17, |
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17, |
# 03/19,03/20,03/21,03/27,04/05,04/09, |
# 03/19,03/20,03/21,03/27,04/05,04/09, |
# 07/09,07/14,07/21 Gerd Kortemeyer |
# 07/09,07/14,07/21,09/01 Gerd Kortemeyer |
|
|
package Apache::lonspreadsheet; |
package Apache::lonspreadsheet; |
|
|
Line 308 sub SUMMIN {
|
Line 308 sub SUMMIN {
|
return $sum; |
return $sum; |
} |
} |
|
|
|
sub expandnamed { |
|
my $expression=shift; |
|
if ($expression=~/^\&/) { |
|
my ($func,$var,$formula)=($expression=~/^\&(\w+)\(([^\;]+)\;(.*)\)/); |
|
my @vars=split(/\W+/,$formula); |
|
my %values=(); |
|
undef %values; |
|
map { |
|
my $varname=$_; |
|
if ($varname=~/\D/) { |
|
$formula=~s/$varname/'$c{\''.$varname.'\'}'/ge; |
|
$varname=~s/$var/\(\\w\+\)/g; |
|
map { |
|
if ($_=~/$varname/) { |
|
$values{$1}=1; |
|
} |
|
} keys %c; |
|
} |
|
} @vars; |
|
if ($func eq 'EXPANDSUM') { |
|
my $result=''; |
|
map { |
|
my $thissum=$formula; |
|
$thissum=~s/$var/$_/g; |
|
$result.=$thissum.'+'; |
|
} keys %values; |
|
$result=~s/\+$//; |
|
return $result; |
|
} else { |
|
return 0; |
|
} |
|
} else { |
|
return '$c{\''.$expression.'\'}'; |
|
} |
|
} |
|
|
sub sett { |
sub sett { |
%t=(); |
%t=(); |
my $pattern=''; |
my $pattern=''; |
Line 329 sub sett {
|
Line 365 sub sett {
|
$t{$lb}=~s/\#/$trow/g; |
$t{$lb}=~s/\#/$trow/g; |
$t{$lb}=~s/\.\.+/\,/g; |
$t{$lb}=~s/\.\.+/\,/g; |
$t{$lb}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{$lb}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{$lb}=~s/(^|[^\"\'])\[(\w+)\]/$1\$c\{\'$2\'\}/g; |
$t{$lb}=~s/(^|[^\"\'])\[([^\]]+)\]/$1.&expandnamed($2)/ge; |
} |
} |
} |
} |
} keys %f; |
} keys %f; |
Line 347 sub sett {
|
Line 383 sub sett {
|
$t{$_}=$f{$_}; |
$t{$_}=$f{$_}; |
$t{$_}=~s/\.\.+/\,/g; |
$t{$_}=~s/\.\.+/\,/g; |
$t{$_}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{$_}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{$_}=~s/(^|[^\"\'])\[([\w\.]+)\]/$1\$c\{\'$2\'\}/g; |
$t{$_}=~s/(^|[^\"\'])\[([^\]]+)\]/$1.&expandnamed($2)/ge; |
} |
} |
} |
} |
} keys %f; |
} keys %f; |
$t{'A0'}=$f{'A0'}; |
$t{'A0'}=$f{'A0'}; |
$t{'A0'}=~s/\.\.+/\,/g; |
$t{'A0'}=~s/\.\.+/\,/g; |
$t{'A0'}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{'A0'}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{'A0'}=~s/(^|[^\"\'])\[([\w\.]+)\]/$1\$c\{\'$2\'\}/g; |
$t{'A0'}=~s/(^|[^\"\'])\[([^\]]+)\]/$1.&expandnamed($2)/ge; |
} |
} |
|
|
sub calc { |
sub calc { |