Fix more.

[pspp] / dump.c

diff --git a/dump.c b/dump.c
index d21e7af0fb5044b8f58bcd547f438462516e1cea..faea74221ccc7b2d660829b9cf6c2c952d9ce5b0 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -237,8 +237,8 @@ dump_value(int level)
       vallab = get_string ();
       printf ("value %g format %d(%d.%d) var \"%s\" vallab \"%s\"",
               value, format >> 16, (format >> 8) & 0xff, format & 0xff, var, vallab);
-      if (!match_u32 (3))
-        match_u32_assert (2);
+      if (!match_u32 (1) && !match_u32(2))
+        match_u32_assert (3);
       match_byte (0);
       match_byte (0);
       match_byte (0);
@@ -253,7 +253,8 @@ dump_value(int level)
       format = get_u32 ();
       vallab = get_string ();
       var = get_string ();
-      match_byte_assert (2);
+      if (!match_byte(1) && !match_byte(2))
+        match_byte_assert (3);
       value = get_string ();
       printf ("value \"%s\" format %d(%d.%d) var \"%s\" vallab \"%s\"",
               value, format >> 16, (format >> 8) & 0xff, format & 0xff, var, vallab);
@@ -446,7 +447,8 @@ dump_category(int level)
   else if (match_byte (1))
     {
       match_byte (0);
-      match_u32_assert (1);
+      if (!match_u32 (2))
+        match_u32_assert (1);
       match_byte (0);
       get_u32();
     }
@@ -486,12 +488,11 @@ dump_dim(void)
       if (!match_byte(2))
         match_byte_assert(3);
     }
-  else
+  else if (match_byte(0x31))
     {
       int subn;
       int total_subs = 1;
 
-      match_byte_assert(0x31);
       match_u32_assert (0);
       match_u32_assert (0);
       subn = get_u32 ();
@@ -513,11 +514,35 @@ dump_dim(void)
           dump_dim_value (0);
         }
     }
+  else
+    {
+      int total_subs = 1;
+
+      match_byte_assert (0x58);
+      printf ("\"%s\" with substitutions:", get_string());
+      for (;;)
+        {
+          int n_subst = get_u32();
+          if (!n_subst)
+            break;
+          printf (" %d", n_subst);
+          total_subs *= n_subst;
+        }
+
+      for (int i = 0; i < total_subs; i++)
+        {
+          putc ('\n', stdout);
+          dump_dim_value (0);
+        }
+    }
+
+  /* This byte is usually 0x02 but 0x00 and 0x75 (!) have also been spotted. */
+  pos++;
 
-  match_byte_assert(0);
   if (!match_byte(0) && !match_byte(1))
     match_byte_assert(2);
-  match_u32_assert(2);
+  if (!match_u32(0))
+    match_u32_assert(2);
   if (!match_byte(0))
     match_byte_assert(1);
   match_byte(0);