Fix all of the cases where we can find the dimensions section.

[pspp] / dump.c

diff --git a/dump.c b/dump.c
index e8f865062e58ccd6b5e47adec2e8377a1769f9dd..28c0ca3bbc08c9068c08f1aaf6cace5320598cb8 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -284,7 +284,6 @@ dump_value(int level)
   else if (match_byte (0x31))
     {
       int subn;
-      int total_subs = 1;
 
       if (match_u32 (1))
         {
@@ -303,41 +302,96 @@ dump_value(int level)
           printf ("nested %d bytes", subn);
           pos += subn;
         }
-      printf ("; \"%s\", substitutions:", get_string());
-      for (;;)
+      char *base = get_string();
+      int x = get_u32();
+      printf ("\"%s\"; %d variables:\n", base, x);
+      if (match_u32(0))
         {
-          int n_subst = get_u32();
-          if (!n_subst)
-            break;
-          printf (" %d", n_subst);
-          total_subs *= n_subst;
+          for (int i = 0; i < x; i++)
+            {
+              dump_value (level+1);
+              putchar('\n');
+            }
         }
-
-      for (int i = 0; i < total_subs; i++)
+      else
         {
-          putc ('\n', stdout);
-          dump_value (level + 1);
+          for (int i = 0; i < x; i++)
+            {
+              int y = get_u32();
+              match_u32_assert(0);
+              for (int j = 0; j <= level; j++)
+                printf ("    ");
+              printf("variable %d has %d values:\n", i, y);
+              for (int j = 0; j < y; j++)
+                {
+                  if (match_byte(3))
+                    {
+                      char *a = get_string();
+                      match_byte_assert(0x58);
+                      char *b = get_string();
+                      char *c = get_string();
+                      for (int k = 0; k <= level + 1; k++)
+                        printf ("    ");
+                      printf ("\"%s\", \"%s\", \"%s\"", a, b, c);
+                      match_byte(0);
+                      match_byte(0);
+                      match_byte(0);
+                      match_byte(0);
+                      match_byte(0);
+                    }
+                  else
+                    dump_value (level+1);
+                  putchar('\n');
+                }
+            }
         }
     }
   else
     {
-      int total_subs = 1;
 
       match_byte_assert (0x58);
-      printf ("\"%s\" with substitutions:", get_string());
-      for (;;)
+      char *base = get_string();
+      int x = get_u32();
+      printf ("\"%s\" with %d variables:\n", base, x);
+      if (match_u32(0))
         {
-          int n_subst = get_u32();
-          if (!n_subst)
-            break;
-          printf (" %d", n_subst);
-          total_subs *= n_subst;
+          for (int i = 0; i < x; i++)
+            {
+              dump_value (level+1);
+              putchar('\n');
+            }
         }
-
-      for (int i = 0; i < total_subs; i++)
+      else
         {
-          putc ('\n', stdout);
-          dump_value (level + 1);
+          for (int i = 0; i < x; i++)
+            {
+              int y = get_u32();
+              match_u32_assert(0);
+              for (int j = 0; j <= level; j++)
+                printf ("    ");
+              printf("variable %d has %d values:\n", i, y);
+              for (int j = 0; j < y; j++)
+                {
+                  if (match_byte(3))
+                    {
+                      char *a = get_string();
+                      match_byte_assert(0x58);
+                      char *b = get_string();
+                      char *c = get_string();
+                      for (int k = 0; k <= level + 1; k++)
+                        printf ("    ");
+                      printf ("\"%s\", \"%s\", \"%s\"", a, b, c);
+                      match_byte(0);
+                      match_byte(0);
+                      match_byte(0);
+                      match_byte(0);
+                      match_byte(0);
+                    }
+                  else
+                    dump_value (level+1);
+                  putchar('\n');
+                }
+            }
         }
     }
 }
@@ -414,7 +468,6 @@ dump_dim_value(int level)
   else
     {
       int subn;
-      int total_subs = 1;
 
       match_byte (0);
       match_byte_assert (0x31);
@@ -424,14 +477,14 @@ dump_dim_value(int level)
       printf ("nested %d bytes", subn);
       pos += subn;
       printf ("; \"%s\", substitutions:", get_string());
-      for (;;)
+      int total_subs = get_u32();
+      int x = get_u32();
+      if (x)
         {
-          int n_subst = get_u32();
-          if (!n_subst)
-            break;
-          printf (" %d", n_subst);
-          total_subs *= n_subst;
+          total_subs = (total_subs - 1) + x;
+          match_u32_assert (0);
         }
+      printf (" (total %d)", total_subs);
 
       for (int i = 0; i < total_subs; i++)
         {