Learned that 04 introduces the value of a string variable

[pspp] / dump.c

diff --git a/dump.c b/dump.c
index d42580895e34e552d6a762c7650201484e74dad1..e758a5b71bacc6e1847fa5100e7eae88959a7c3b 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -204,6 +204,24 @@ dump_value(int level)
         match_u32_assert (2);
       match_byte (0);
     }
+  else if (match_byte (4))
+    {
+      unsigned int format;
+      char *var, *vallab, *value;
+
+      match_byte_assert (0x58);
+      format = get_u32 ();
+      vallab = get_string ();
+      var = get_string ();
+      match_byte_assert (2);
+      value = get_string ();
+      printf ("value \"%s\" format %d(%d.%d) var \"%s\" vallab \"%s\"",
+              value, format >> 16, (format >> 8) & 0xff, format & 0xff, var, vallab);
+      match_byte (0);
+      match_byte (0);
+      match_byte (0);
+      match_byte (0);
+    }
   else if (match_byte (1))
     {
       unsigned int format;