[system] / trunk / pg / lib / Value.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Value.pm

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

Revision 2796 Revision 2801
118sub isRealNumber { 118sub isRealNumber {
119 my $n = shift; 119 my $n = shift;
120 return $n->{tree}->isRealNumber if isFormula($n); 120 return $n->{tree}->isRealNumber if isFormula($n);
121 return isReal($n) || matchNumber($n); 121 return isReal($n) || matchNumber($n);
122} 122}
123
124sub isZero {
125 my $self = shift;
126 return 0 if scalar(@{$self->{data}}) == 0;
127 foreach my $x (@{$self->{data}}) {return 0 unless $x eq "0"}
128 return 1;
129}
130
131sub isOne {0}
123 132
124# 133#
125# Convert non-Value objects to Values, if possible 134# Convert non-Value objects to Values, if possible
126# 135#
127sub makeValue { 136sub makeValue {

Legend:
Removed from v.2796  
changed lines
  Added in v.2801

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9