X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=ff5dcfd4e2c040d2a4e4ad3ff1f8d18b9b30d44f;hb=e4eab5f61a02dad8cd22e01d099e5e2a2ac63f6a;hp=cd4d362121f82bec29c9d7a706b64a1a632cccb6;hpb=0784d4f4be084db2317f5ff1636f8dc9f7b8dc58;p=pspp diff --git a/dump.c b/dump.c index cd4d362121..ff5dcfd4e2 100644 --- a/dump.c +++ b/dump.c @@ -104,7 +104,7 @@ match_u32_assert(uint32_t x, const char *where) static bool match_byte(uint8_t b) { - if (data[pos] == b) + if (pos < n && data[pos] == b) { pos++; return true; @@ -147,6 +147,59 @@ get_string(const char *where) } #define get_string() get_string(WHERE) +static void +dump_value_31(void) +{ + if (match_byte (0x31)) + { + if (match_u32 (0)) + { + match_u32_assert (0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else if (match_u32 (1)) + { + printf("(footnote %d) ", get_u32()); + match_byte_assert (0); + match_byte_assert (0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else if (match_u32 (2)) + { + printf("(special 2)"); + match_byte_assert(0); + match_byte_assert(0); + match_u32_assert(1); + match_byte_assert(0); + match_byte_assert(0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else + { + match_u32_assert(3); + printf("(special 3)"); + match_byte_assert(0); + match_byte_assert(0); + match_byte_assert(1); + match_byte_assert(0); + int subn = get_u32 (); + printf ("nested %d bytes, ", subn); + pos += subn; + subn = get_u32 (); + printf ("nested %d bytes, ", subn); + pos += subn; + } + } + else + match_byte_assert (0x58); +} + static void dump_value(int level) { @@ -159,50 +212,14 @@ dump_value(int level) match_byte (0); if (match_byte (3)) { - get_string(); - if (match_byte (0x31)) - { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else if (match_u32 (2)) - { - printf("(special 2)"); - match_byte_assert(0); - match_byte_assert(0); - match_u32_assert(1); - match_byte_assert(0); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else - { - match_u32_assert(3); - printf("(special 3)"); - match_byte_assert(0); - match_byte_assert(0); - match_byte_assert(1); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes, ", subn); - pos += subn; - subn = get_u32 (); - printf ("nested %d bytes, ", subn); - pos += subn; - } - } + char *s1 = get_string(); + dump_value_31(); + char *s2 = get_string(); + char *s3 = get_string(); + if (strcmp(s1, s3)) + printf("strings \"%s\", \"%s\" and \"%s\"", s1, s2, s3); else - match_byte_assert (0x58); - get_string(); - printf("string \"%s\"", get_string()); + printf("string \"%s\" and \"%s\"", s1, s2); match_byte (0); match_byte (0); match_byte (0); @@ -272,20 +289,7 @@ dump_value(int level) unsigned int format; double value; - if (match_byte (0x31)) - { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - } - else - match_byte_assert (0x58); + dump_value_31(); format = get_u32 (); value = get_double (); printf ("value %g format %d(%d.%d)", value, format >> 16, (format >> 8) & 0xff, format & 0xff); @@ -295,73 +299,9 @@ dump_value(int level) match_byte (0); match_byte (1); } - else if (match_byte (0x31)) - { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else - { - match_u32_assert (0); - match_u32_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - char *base = get_string(); - int x = get_u32(); - printf ("\"%s\"; %d variables:\n", base, x); - if (match_u32(0)) - { - for (int i = 0; i < x; i++) - { - dump_value (level+1); - putchar('\n'); - } - } - else - { - 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 { - - match_byte_assert (0x58); + dump_value_31(); char *base = get_string(); int x = get_u32(); printf ("\"%s\" with %d variables:\n", base, x); @@ -653,6 +593,62 @@ dump_dims(void) } } +static void +dump_data_value_31(void) +{ + if (match_byte (0x31)) + { + if (match_u32 (0)) + { + if (match_u32 (1)) + get_string(); + else + match_u32_assert (0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else if (match_u32 (1)) + { + printf("(footnote %d) ", get_u32()); + match_byte_assert (0); + match_byte_assert (0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else if (match_u32 (2)) + { + printf("(special 2)"); + match_byte_assert(0); + match_byte_assert(0); + match_u32_assert(1); + match_byte_assert(0); + match_byte_assert(0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else + { + match_u32_assert(3); + printf("(special 3)"); + match_byte_assert(0); + match_byte_assert(0); + match_byte_assert(1); + match_byte_assert(0); + int subn = get_u32 (); + printf ("nested %d bytes, ", subn); + pos += subn; + subn = get_u32 (); + printf ("nested %d bytes, ", subn); + pos += subn; + } + } + else + match_byte_assert (0x58); +} + static void dump_data(void) { @@ -685,43 +681,7 @@ dump_data(void) unsigned int format; double value; - if (match_byte (0x31)) - { - if (match_u32 (0)) - { - if (match_u32 (1)) - get_string(); - else - match_u32_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else - { - match_u32_assert(2); - printf("(special 2)"); - match_byte_assert(0); - match_byte_assert(0); - match_u32_assert(1); - match_byte_assert(0); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - } - else - match_byte_assert (0x58); + dump_data_value_31(); format = get_u32 (); value = get_double (); printf (" value %g format %d(%d.%d)", value, format >> 16, (format >> 8) & 0xff, format & 0xff); @@ -729,55 +689,7 @@ dump_data(void) else if (match_byte (3)) { get_string(); - if (match_byte (0x31)) - { - if (match_u32 (0)) - { - match_u32_assert (1); - get_string (); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else if (match_u32 (2)) - { - printf("(special 2)"); - match_byte_assert(0); - match_byte_assert(0); - match_u32_assert(1); - match_byte_assert(0); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else - { - match_u32_assert(3); - printf("(special 3)"); - match_byte_assert(0); - match_byte_assert(0); - match_byte_assert(1); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes, ", subn); - pos += subn; - subn = get_u32 (); - printf ("nested %d bytes, ", subn); - pos += subn; - } - } - else - match_byte_assert (0x58); + dump_data_value_31(); get_string(); printf("string \"%s\"", get_string()); match_byte (0); @@ -825,25 +737,9 @@ dump_data(void) match_byte (0); match_byte (0); } - else if (match_byte(0x31)) + else { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else - { - match_u32_assert (0); - match_u32_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } + dump_data_value_31(); char *base = get_string(); int x = get_u32(); printf ("\"%s\"; %d variables:\n", base, x); @@ -864,43 +760,7 @@ dump_data(void) unsigned int format; double value; - if (match_byte (0x31)) - { - if (match_u32 (0)) - { - if (match_u32 (1)) - get_string(); - else - match_u32_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else - { - match_u32_assert(2); - printf("(special 2)"); - match_byte_assert(0); - match_byte_assert(0); - match_u32_assert(1); - match_byte_assert(0); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - } - else - match_byte_assert (0x58); + dump_data_value_31(); format = get_u32 (); value = get_double (); printf (" value %g format %d(%d.%d)", value, format >> 16, (format >> 8) & 0xff, format & 0xff); @@ -923,78 +783,16 @@ dump_data(void) { match_byte_assert (0x58); printf ("variable \"%s\"", get_string()); - get_string(); - if (!match_byte(1) && !match_byte(2)) - match_byte_assert(3); - match_byte (0); - match_byte (0); - match_byte (0); - match_byte (0); - } - else - dump_value (0); - putchar('\n'); - } - } - } - else - { - match_byte_assert (0x58); - char *base = get_string(); - int x = get_u32(); - printf ("\"%s\" with %d variables:\n", base, x); - for (int i = 0; i < x; i++) - { - int y = get_u32(); - if (!y) - y = 1; - else - match_u32_assert(0); - for (int j = 0; j <= 0; 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 <= 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 if (match_byte (1)) - { - unsigned int format; - double value; - - if (match_byte (0x31)) - { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - } - else - match_byte_assert (0x58); - format = get_u32 (); - value = get_double (); - printf ("value %g format %d(%d.%d)", value, format >> 16, (format >> 8) & 0xff, format & 0xff); + get_string(); + if (!match_byte(1) && !match_byte(2)) + match_byte_assert(3); + match_byte (0); + match_byte (0); + match_byte (0); + match_byte (0); } else - dump_value (1); + dump_value (0); putchar('\n'); } } @@ -1003,6 +801,60 @@ dump_data(void) } } +static void +dump_title_value_31(int level) +{ + if (match_byte (0x31)) + { + if (match_u32 (0)) + { + match_u32_assert (0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else if (match_u32 (1)) + { + printf("(footnote %d) ", get_u32()); + match_byte_assert (0); + match_byte_assert (0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else if (match_u32 (2)) + { + printf("(special 2)"); + match_byte_assert(0); + match_byte_assert(0); + if (!match_u32(2)) + match_u32_assert(1); + match_byte_assert(0); + match_byte_assert(0); + int subn = get_u32 (); + printf ("nested %d bytes", subn); + pos += subn; + } + else + { + match_u32_assert(3); + printf("(special 3)"); + match_byte_assert(0); + match_byte_assert(0); + match_byte_assert(1); + match_byte_assert(0); + int subn = get_u32 (); + printf ("nested %d bytes, ", subn); + pos += subn; + subn = get_u32 (); + printf ("nested %d bytes, ", subn); + pos += subn; + } + } + else + match_byte_assert (0x58); +} + static void dump_title_value(int level) { @@ -1017,48 +869,7 @@ dump_title_value(int level) if (match_byte (3)) { get_string(); - if (match_byte (0x31)) - { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else if (match_u32 (2)) - { - printf("(special 2)"); - match_byte_assert(0); - match_byte_assert(0); - if (!match_u32(2)) - match_u32_assert(1); - match_byte_assert(0); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else - { - match_u32_assert(3); - printf("(special 3)"); - match_byte_assert(0); - match_byte_assert(0); - match_byte_assert(1); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes, ", subn); - pos += subn; - subn = get_u32 (); - printf ("nested %d bytes, ", subn); - pos += subn; - } - } - else - match_byte_assert (0x58); + dump_title_value_31(level); get_string(); printf("string \"%s\"", get_string()); match_byte (0); @@ -1073,20 +884,7 @@ dump_title_value(int level) } else if (match_byte (5)) { - if (match_byte (0x31)) - { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - } - else - match_byte_assert (0x58); + dump_title_value_31(level); printf ("variable \"%s\"", get_string()); get_string(); if (!match_byte(1) && !match_byte(2)) @@ -1139,20 +937,7 @@ dump_title_value(int level) unsigned int format; double value; - if (match_byte (0x31)) - { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - } - else - match_byte_assert (0x58); + dump_title_value_31(level); format = get_u32 (); value = get_double (); printf ("value %g format %d(%d.%d)", value, format >> 16, (format >> 8) & 0xff, format & 0xff); @@ -1162,75 +947,10 @@ dump_title_value(int level) match_byte (0); match_byte (1); } - else if (match_byte (0x31)) - { - if (match_u32 (1)) - { - printf("(footnote %d) ", get_u32()); - match_byte_assert (0); - match_byte_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else if (match_u32 (0)) - { - match_u32_assert (0); - int subn = get_u32 (); - printf ("nested %d bytes", subn); - pos += subn; - } - else - { - match_u32_assert(3); - printf("(special 3)"); - match_byte_assert(0); - match_byte_assert(0); - match_byte_assert(1); - match_byte_assert(0); - int subn = get_u32 (); - printf ("nested %d bytes, ", subn); - pos += subn; - subn = get_u32 (); - printf ("nested %d bytes, ", subn); - pos += subn; - } - - char *base = get_string(); - int x = get_u32(); - printf ("\"%s\"; %d variables:\n", base, x); - for (int i = 0; i < x; i++) - { - int y = get_u32(); - if (!y) - y = 1; - else - 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); - } - else - dump_title_value (level+1); - putchar('\n'); - } - } - } else { - match_byte_assert (0x58); + dump_title_value_31(level); + char *base = get_string(); int x = get_u32(); printf ("\"%s\" with %d variables:\n", base, x); @@ -1246,6 +966,7 @@ dump_title_value(int level) printf("variable %d has %d values:\n", i, y); for (int j = 0; j < y; j++) { + match_byte(0); if (match_byte(3)) { char *a = get_string(); @@ -1320,15 +1041,8 @@ dump_footnote_value(int level) match_byte_assert (0x58); get_string(); printf("string \"%s\"", get_string()); - match_byte (0); - match_byte (0); - match_byte (0); - match_byte (1); - match_byte (1); - match_byte (0); - match_byte (0); - match_byte (0); - match_byte (1); + if (!match_byte (0)) + match_byte_assert (1); } else if (match_byte (5)) { @@ -1337,10 +1051,6 @@ dump_footnote_value(int level) get_string(); if (!match_byte(1) && !match_byte(2)) match_byte_assert(3); - match_byte (0); - match_byte (0); - match_byte (0); - match_byte (0); } else if (match_byte (2)) { @@ -1450,11 +1160,8 @@ dump_footnote_value(int level) 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); + if (!match_byte(1)) + match_byte_assert(0); } else dump_footnote_value (level+1); @@ -1490,11 +1197,7 @@ dump_footnote_value(int level) 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); + match_byte_assert(0); } else dump_footnote_value (level+1); @@ -1508,15 +1211,15 @@ static void dump_title(void) { pos = 0x27; - dump_title_value(0); putchar('\n'); putchar('\n'); - dump_title_value(0); putchar('\n'); putchar('\n'); + dump_title_value(0); putchar('\n'); + dump_title_value(0); putchar('\n'); match_byte_assert(0x31); - dump_title_value(0); putchar('\n'); putchar('\n'); + dump_title_value(0); putchar('\n'); match_byte(0); match_byte_assert(0x58); if (match_byte(0x31)) { - dump_title_value(0); putchar('\n'); + dump_footnote_value(0); putchar('\n'); } else match_byte_assert(0x58); @@ -1524,7 +1227,11 @@ dump_title(void) int n_footnotes = get_u32(); if (n_footnotes >= 20) - fprintf(stderr, "%d footnotes\n", n_footnotes); + { + fprintf(stderr, "%08x: %d footnotes\n", pos - 4, n_footnotes); + exit(1); + } + printf("------\n%d footnotes\n", n_footnotes); if (n_footnotes < 20) { @@ -1580,6 +1287,98 @@ dump_title(void) } } +static int +find_dimensions(void) +{ + { + const char dimensions[] = "-,,,.\0"; + int x = try_find_tail(dimensions, sizeof dimensions - 1); + if (x) + return x; + } + + const char dimensions[] = "-,,, .\0"; + return find_tail(dimensions, sizeof dimensions - 1); +} + +static void +dump_fonts(void) +{ + printf("fonts: offset=%08x\n", pos); + match_byte(0); + for (int i = 1; i <= 8; i++) + { + printf("%08x: font %d, ", pos, i); + match_byte_assert(i); + match_byte_assert(0x31); + printf("%s, ", get_string()); + match_byte_assert(0); + match_byte_assert(0); + if (!match_byte(0x40) && !match_byte(0x20) && !match_byte(0x80) && !match_byte(0x10)) + match_byte_assert(0x50); + if (!match_byte(0x41)) + match_byte_assert(0x51); + pos += 13; + printf ("%s, ", get_string()); + printf ("%s, ", get_string()); + match_u32_assert(0); + match_u32_assert(0); + pos++; + get_u32(); + get_u32(); + get_u32(); + get_u32(); + putchar('\n'); + } + + match_u32_assert(240); + pos += 240; + + match_u32_assert(18); + pos += 18; + + if (match_u32(117)) + pos += 117; + else + { + match_u32_assert(142); + pos += 142; + } + + int count = get_u32(); + pos += 4 * count; + + char *encoding = get_string(); + printf("encoding=%s\n", encoding); + + if (!match_u32(0)) + match_u32_assert(UINT32_MAX); + if (!match_byte(0)) + match_byte_assert(1); + match_byte_assert(0); + if (!match_byte(0)) + match_byte_assert(1); + if (!match_byte(0x99) && !match_byte(0x98)) + match_byte_assert(0x97); + match_byte_assert(7); + match_byte_assert(0); + match_byte_assert(0); + if (match_byte('.')) + match_byte_assert(','); + else + { + match_byte_assert(','); + if (!match_byte('.')) + match_byte_assert(' '); + } + match_u32_assert(5); + for (int i = 0; i < 5; i++) + get_string(); + pos += get_u32(); + if (pos != find_dimensions()) + fprintf (stderr, "%08x / %08x\n", pos, find_dimensions()); +} + int main(int argc, char *argv[]) { @@ -1648,22 +1447,33 @@ main(int argc, char *argv[]) } else if (!strcmp(argv[1], "dimensions") || !strcmp(argv[1], "all")) { - { - const char dimensions[] = "-,,,.\0"; - start = try_find_tail(dimensions, sizeof dimensions - 1); - } - - if (!start) - { - const char dimensions[] = "-,,, .\0"; - start = find_tail(dimensions, sizeof dimensions - 1); - } - - pos = start; + pos = 0; + match_byte_assert(1); + match_byte_assert(0); + match_u32_assert(3); + match_byte_assert(1); + if (!match_byte(0)) + match_byte_assert(1); + match_byte_assert(0); + match_byte_assert(0); + if (!match_byte(0)) + match_byte_assert(1); + pos++; + match_byte_assert(0); + match_byte_assert(0); + match_byte_assert(0); + dump_title (); + dump_fonts(); dump_dims (); + printf("\n\ndata:\n"); dump_data (); - if (!strcmp(argv[1], "all")) - dump_title (); + if (pos == n - 1) + match_byte_assert (1); + if (pos != n) + { + fprintf (stderr, "%x / %x\n", pos, n); + exit(1); + } exit(0); } else