Changeset 14114

Timestamp:

Jul 10, 2007, 3:18:03 PM (19 years ago)

Author:

eugene

Message:

added features to protected fields with spaces using quotes, added methods for getting the NAN values by type and the values by their flag

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm (modified) (9 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Stats.pm,v 1.21 2007-07-09 21:06:22 eugene Exp $
+# $Id: Stats.pm,v 1.22 2007-07-11 01:18:03 eugene Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -51 +51 @@
 }
 
+sub cmdflags {
+
+    my $self = shift;                # Where we'll put the information
+
+    # apply the needed calculation to the data based on the type
+    
+    my $cmdflags;
+    my $entries = $self->{entries};
+    
+    foreach my $entry (@$entries) {
+        my $value = $entry->{value};
+        my $flag = $entry->{flag};
+        if ($value =~ m|\S+\s+\S+|) {
+            # protect values with whitespace 
+            $cmdflags .= " $flag '$value'";
+        } else {
+            $cmdflags .= " $flag $value";
+        }
+    }
+
+    return $cmdflags;
+}
+
 # Given a parsed metadata from ppStats, assemble summary statistics
 sub parse {
@@ -68 +91 @@
         if ($type eq "constant") {
             if (not defined $entry->{value}) {
-                $entry->{value} = 'NAN';
+                $self->_null_for_type ($entry);
             }
             next;
@@ -80 +103 @@
                 $entry->{value} = $stats->mean();
             } else {
-                $entry->{value} = 'NAN';
+                $self->_null_for_type ($entry);
             }
             next;
@@ -97 +120 @@
                 next;
             } 
-            $entry->{value} = 'NAN';
+            $self->_null_for_type ($entry);
             next;
         }
@@ -109 +132 @@
                 $entry->{value} = sqrt($stats->mean());
             } else {
-                $entry->{value} = 'NAN';
+                $self->_null_for_type ($entry);
             }
         }
@@ -120 +143 @@
                 $entry->{value} = $stats->sum();
             } else {
-                $entry->{value} = 'NAN';
+                $self->_null_for_type ($entry);
             }
         }
@@ -126 +149 @@
 
     return $self;
+}
+
+sub _null_for_type {
+
+    my ($self, $entry) = @_;
+
+    if ($entry->{dtype} eq "float") {
+        $entry->{value} = 'NAN';
+        return;
+    }
+    if ($entry->{dtype} eq "int") {
+        $entry->{value} = '0';
+        return;
+    }
+    if ($entry->{dtype} eq "string") {
+        $entry->{value} = 'NULL';
+        return;
+    }
+    $entry->{value} = 'NAN';
+    return;
 }
 
@@ -200 +243 @@
 }
 
+sub value_for_flag {
+
+    my $self = shift;
+    my $flag = shift;
+
+    my $entries = $self->{entries};
+
+    foreach my $entry (@$entries) {
+        if ($flag eq $entry->{flag}) {
+            return $entry->{value};
+        }
+    }
+    return 'NULL'; # 
+}
+
+
 # Return the data structure for a particular value, or the entire hash
 sub data {