Added (some of the) calculations for the examine command.

[pspp] / src / value-labels.c

diff --git a/src/value-labels.c b/src/value-labels.c
index 404f7f6844721e0e6d45476714c2ae404f8b534f..4c1d1a5f234d4b79250784bf9e711b4e34d0c600 100644 (file)
--- a/src/value-labels.c
+++ b/src/value-labels.c
@@ -488,3 +488,31 @@ free_atom (void *atom_, void *aux UNUSED)
   free (atom->string);
   free (atom);
 }
+
+
+/* Get a string representing the value.
+   That is, if it has a label, then return that label,
+   otherwise, if the value is alpha, then return the string for it,
+   else format it and return the formatted string
+*/
+const char *
+value_to_string(const union value *val, const struct variable *var)
+{
+  char *s;
+  const struct val_labs *val_labs = var->val_labs;
+  
+  s = val_labs_find (val_labs, *val);
+
+  if ( s ) 
+    return s;
+
+  if ( 0 == var->width ) 
+    {
+      static char buf[100];
+      snprintf(buf,100,"%g",val->f);
+      return buf;
+    }
+  else
+    return val->s;
+  
+}