--- /dev/null
+/* level9.c Treaty of Babel module for Level 9 files\r
+ * 2006 By L. Ross Raszewski\r
+ *\r
+ * Note that this module will handle both bare Level 9 A-Code and\r
+ * Spectrum .SNA snapshots. It will not handle compressed .Z80 images.\r
+ *\r
+ * The Level 9 identification algorithm is based in part on the algorithm\r
+ * used by Paul David Doherty's l9cut program.\r
+ *\r
+ * This file depends on treaty_builder.h\r
+ *\r
+ * This file is public domain, but note that any changes to this file\r
+ * may render it noncompliant with the Treaty of Babel\r
+ */\r
+\r
+#define FORMAT level9\r
+#define HOME_PAGE "http://www.if-legends.org/~l9memorial/html/home.html"\r
+#define FORMAT_EXT ".l9,.sna"\r
+#define NO_METADATA\r
+#define NO_COVER\r
+\r
+#include "treaty_builder.h"\r
+#include <ctype.h>\r
+#include <stdio.h>\r
+#include <string.h>\r
+\r
+struct l9rec {\r
+ int32 length;\r
+ unsigned char chk;\r
+ char *ifid;\r
+};\r
+\r
+\r
+static struct l9rec l9_registry[] = {\r
+ { 0x3a31, 0xe5, "LEVEL9-001-1" },\r
+ { 0x8333, 0xb7, "LEVEL9-001-1" },\r
+ { 0x7c6f, 0x0f, "LEVEL9-001-1" },\r
+ { 0x72fa, 0x8b, "LEVEL9-001-1" },\r
+ { 0x38dd, 0x31, "LEVEL9-001-A" },\r
+ { 0x39c0, 0x44, "LEVEL9-001-B" },\r
+ { 0x3a12, 0x8f, "LEVEL9-001-C" },\r
+ { 0x37f1, 0x77, "LEVEL9-001-2" },\r
+ { 0x844d, 0x50, "LEVEL9-001-2" },\r
+ { 0x738e, 0x5b, "LEVEL9-001-2" },\r
+ { 0x3900, 0x1c, "LEVEL9-001-3" },\r
+ { 0x8251, 0x5f, "LEVEL9-001-3" },\r
+ { 0x7375, 0xe5, "LEVEL9-001-3" },\r
+ { 0x3910, 0xac, "LEVEL9-001-4" },\r
+ { 0x7a78, 0x5e, "LEVEL9-001-4" },\r
+ { 0x78d5, 0xe3, "LEVEL9-001-4" },\r
+ { 0x3ad6, 0xa7, "LEVEL9-001-5" },\r
+ { 0x38a5, 0x0f, "LEVEL9-001-6" },\r
+ { 0x361e, 0x7e, "LEVEL9-001-7" },\r
+ { 0x3934, 0x75, "LEVEL9-001-8" },\r
+ { 0x3511, 0xcc, "LEVEL9-001-9" },\r
+ { 0x593a, 0xaf, "LEVEL9-002-1" },\r
+ { 0x7931, 0xb9, "LEVEL9-002-1" },\r
+ { 0x6841, 0x4a, "LEVEL9-002-1" },\r
+ { 0x57e6, 0x8a, "LEVEL9-002-2" },\r
+ { 0x7cdf, 0xa5, "LEVEL9-002-2" },\r
+ { 0x6bc0, 0x62, "LEVEL9-002-2" },\r
+ { 0x5819, 0xcd, "LEVEL9-002-3" },\r
+ { 0x7a0c, 0x97, "LEVEL9-002-3" },\r
+ { 0x692c, 0x21, "LEVEL9-002-3" },\r
+ { 0x579b, 0xad, "LEVEL9-002-4" },\r
+ { 0x7883, 0xe2, "LEVEL9-002-4" },\r
+ { 0x670a, 0x94, "LEVEL9-002-4" },\r
+ { 0x5323, 0xb7, "LEVEL9-003" },\r
+ { 0x6e60, 0x83, "LEVEL9-003" },\r
+ { 0x5b58, 0x50, "LEVEL9-003" },\r
+ { 0x63b6, 0x2e, "LEVEL9-003" },\r
+ { 0x6968, 0x32, "LEVEL9-003" },\r
+ { 0x5b50, 0x66, "LEVEL9-003" },\r
+ { 0x6970, 0xd6, "LEVEL9-003" },\r
+ { 0x5ace, 0x11, "LEVEL9-003" },\r
+ { 0x6e5c, 0xf6, "LEVEL9-003" },\r
+ { 0x1929, 0x00, "LEVEL9-004-DEMO" },\r
+ { 0x40e0, 0x02, "LEVEL9-004-DEMO" },\r
+ { 0x3ebb, 0x00, "LEVEL9-004-en" },\r
+ { 0x3e4f, 0x00, "LEVEL9-004-en" },\r
+ { 0x3e8f, 0x00, "LEVEL9-004-en" },\r
+ { 0x0fd8, 0x00, "LEVEL9-004-en" },\r
+ { 0x14a3, 0x00, "LEVEL9-004-en" },\r
+ { 0x110f, 0x00, "LEVEL9-004-fr" },\r
+ { 0x4872, 0x00, "LEVEL9-004-de" },\r
+ { 0x4846, 0x00, "LEVEL9-004-de" },\r
+ { 0x11f5, 0x00, "LEVEL9-004-de" },\r
+ { 0x11f5, 0x00, "LEVEL9-004-de" },\r
+ { 0x76f4, 0x5e, "LEVEL9-005" },\r
+ { 0x5b16, 0x3b, "LEVEL9-005" },\r
+ { 0x6c8e, 0xb6, "LEVEL9-005" },\r
+ { 0x6f4d, 0xcb, "LEVEL9-005" },\r
+ { 0x6f6a, 0xa5, "LEVEL9-005" },\r
+ { 0x5e31, 0x7c, "LEVEL9-005" },\r
+ { 0x6f70, 0x40, "LEVEL9-005" },\r
+ { 0x6f6e, 0x78, "LEVEL9-005" },\r
+ { 0x5a8e, 0xf2, "LEVEL9-005" },\r
+ { 0x76f4, 0x5a, "LEVEL9-005" },\r
+ { 0x630e, 0x8d, "LEVEL9-006" },\r
+ { 0x630e, 0xbe, "LEVEL9-006" },\r
+ { 0x6f0c, 0x95, "LEVEL9-006" },\r
+ { 0x593a, 0x80, "LEVEL9-006" },\r
+ { 0x6bd2, 0x65, "LEVEL9-006" },\r
+ { 0x6dc0, 0x63, "LEVEL9-006" },\r
+ { 0x58a6, 0x24, "LEVEL9-006" },\r
+ { 0x6de8, 0x4c, "LEVEL9-006" },\r
+ { 0x58a3, 0x38, "LEVEL9-006" },\r
+ { 0x63be, 0xd6, "LEVEL9-007" },\r
+ { 0x378c, 0x8d, "LEVEL9-007" },\r
+ { 0x63be, 0x0a, "LEVEL9-007" },\r
+ { 0x34b3, 0x20, "LEVEL9-008" },\r
+ { 0x34b3, 0xc7, "LEVEL9-008" },\r
+ { 0x34b3, 0x53, "LEVEL9-008" },\r
+ { 0xb1a9, 0x80, "LEVEL9-009-1" },\r
+ { 0x908e, 0x0d, "LEVEL9-009-1" },\r
+ { 0xad41, 0xa8, "LEVEL9-009-1" },\r
+ { 0xb1aa, 0xad, "LEVEL9-009-1" },\r
+ { 0x8aab, 0xc0, "LEVEL9-009-1" },\r
+ { 0xb0ec, 0xc2, "LEVEL9-009-1" },\r
+ { 0xb19e, 0x92, "LEVEL9-009-1" },\r
+ { 0x5ff0, 0xf8, "LEVEL9-009-1" },\r
+ { 0x52aa, 0xdf, "LEVEL9-009-1" },\r
+ { 0xab9d, 0x31, "LEVEL9-009-2" },\r
+ { 0x8f6f, 0x0a, "LEVEL9-009-2" },\r
+ { 0xa735, 0xf7, "LEVEL9-009-2" },\r
+ { 0xab8b, 0xbf, "LEVEL9-009-2" },\r
+ { 0x8ac8, 0x9a, "LEVEL9-009-2" },\r
+ { 0xaf82, 0x83, "LEVEL9-009-2" },\r
+ { 0x6024, 0x01, "LEVEL9-009-2" },\r
+ { 0x6ffa, 0xdb, "LEVEL9-009-2" },\r
+ { 0xae28, 0x87, "LEVEL9-009-3" },\r
+ { 0x9060, 0xbb, "LEVEL9-009-3" },\r
+ { 0xa9c0, 0x9e, "LEVEL9-009-3" },\r
+ { 0xae16, 0x81, "LEVEL9-009-3" },\r
+ { 0x8a93, 0x4f, "LEVEL9-009-3" },\r
+ { 0xb3e6, 0xab, "LEVEL9-009-3" },\r
+ { 0x6036, 0x3d, "LEVEL9-009-3" },\r
+ { 0x723a, 0x69, "LEVEL9-009-3" },\r
+ { 0xd188, 0x13, "LEVEL9-010-1" },\r
+ { 0x9089, 0xce, "LEVEL9-010-1" },\r
+ { 0xb770, 0x03, "LEVEL9-010-1" },\r
+ { 0xd19b, 0xad, "LEVEL9-010-1" },\r
+ { 0x8ab7, 0x68, "LEVEL9-010-1" },\r
+ { 0xd183, 0x83, "LEVEL9-010-1" },\r
+ { 0x5a38, 0xf7, "LEVEL9-010-1" },\r
+ { 0x76a0, 0x3a, "LEVEL9-010-1" },\r
+ { 0xc594, 0x03, "LEVEL9-010-2" },\r
+ { 0x908d, 0x80, "LEVEL9-010-2" },\r
+ { 0xb741, 0xb6, "LEVEL9-010-2" },\r
+ { 0xc5a5, 0xfe, "LEVEL9-010-2" },\r
+ { 0x8b1e, 0x84, "LEVEL9-010-2" },\r
+ { 0xc58f, 0x65, "LEVEL9-010-2" },\r
+ { 0x531a, 0xed, "LEVEL9-010-2" },\r
+ { 0x7674, 0x0b, "LEVEL9-010-2" },\r
+ { 0xd79f, 0xb5, "LEVEL9-010-3" },\r
+ { 0x909e, 0x9f, "LEVEL9-010-3" },\r
+ { 0xb791, 0xa1, "LEVEL9-010-3" },\r
+ { 0xd7ae, 0x9e, "LEVEL9-010-3" },\r
+ { 0x8b1c, 0xa8, "LEVEL9-010-3" },\r
+ { 0xd79a, 0x57, "LEVEL9-010-3" },\r
+ { 0x57e4, 0x19, "LEVEL9-010-3" },\r
+ { 0x765e, 0xba, "LEVEL9-010-3" },\r
+ { 0xbb93, 0x36, "LEVEL9-011-1" },\r
+ { 0x898a, 0x43, "LEVEL9-011-1" },\r
+ { 0x8970, 0x6b, "LEVEL9-011-1" },\r
+ { 0xbb6e, 0xa6, "LEVEL9-011-1" },\r
+ { 0x86d0, 0xb7, "LEVEL9-011-1" },\r
+ { 0xbb6e, 0xad, "LEVEL9-011-1" },\r
+ { 0x46ec, 0x64, "LEVEL9-011-1" },\r
+ { 0x74e0, 0x92, "LEVEL9-011-1" },\r
+ { 0xc58e, 0x4a, "LEVEL9-011-2" },\r
+ { 0x8b9f, 0x61, "LEVEL9-011-2" },\r
+ { 0x8b90, 0x4e, "LEVEL9-011-2" },\r
+ { 0xc58e, 0x43, "LEVEL9-011-2" },\r
+ { 0x8885, 0x22, "LEVEL9-011-2" },\r
+ { 0x6140, 0x18, "LEVEL9-011-2" },\r
+ { 0x6dbc, 0x97, "LEVEL9-011-2" },\r
+ { 0xcb9a, 0x0f, "LEVEL9-011-3" },\r
+ { 0x8af9, 0x61, "LEVEL9-011-3" },\r
+ { 0x8aea, 0x4e, "LEVEL9-011-3" },\r
+ { 0xcb9a, 0x08, "LEVEL9-011-3" },\r
+ { 0x87e5, 0x0e, "LEVEL9-011-3" },\r
+ { 0x640e, 0xc1, "LEVEL9-011-3" },\r
+ { 0x7402, 0x07, "LEVEL9-011-3" },\r
+ { 0xbba4, 0x94, "LEVEL9-012-1" },\r
+ { 0xc0cf, 0x4e, "LEVEL9-012-1" },\r
+ { 0x8afc, 0x07, "LEVEL9-012-1" },\r
+ { 0x8feb, 0xba, "LEVEL9-012-1" },\r
+ { 0xb4c9, 0x94, "LEVEL9-012-1" },\r
+ { 0xc0bd, 0x57, "LEVEL9-012-1" },\r
+ { 0x8ade, 0xf2, "LEVEL9-012-1" },\r
+ { 0x4fd2, 0x9d, "LEVEL9-012-1" },\r
+ { 0x5c7a, 0x44, "LEVEL9-012-1" },\r
+ { 0x768c, 0xe8, "LEVEL9-012-1" },\r
+ { 0xd0c0, 0x56, "LEVEL9-012-2" },\r
+ { 0xd5e9, 0x6a, "LEVEL9-012-2" },\r
+ { 0x8aec, 0x13, "LEVEL9-012-2" },\r
+ { 0x8f6b, 0xfa, "LEVEL9-012-2" },\r
+ { 0xb729, 0x51, "LEVEL9-012-2" },\r
+ { 0xd5d7, 0x99, "LEVEL9-012-2" },\r
+ { 0x8b0e, 0xfb, "LEVEL9-012-2" },\r
+ { 0x4dac, 0xa8, "LEVEL9-012-2" },\r
+ { 0x53a2, 0x1e, "LEVEL9-012-2" },\r
+ { 0x76b0, 0x1d, "LEVEL9-012-2" },\r
+ { 0xb6ac, 0xc6, "LEVEL9-012-3" },\r
+ { 0xbb8f, 0x1a, "LEVEL9-012-3" },\r
+ { 0x8aba, 0x0d, "LEVEL9-012-3" },\r
+ { 0x8f71, 0x2f, "LEVEL9-012-3" },\r
+ { 0xb702, 0xe4, "LEVEL9-012-3" },\r
+ { 0xbb7d, 0x17, "LEVEL9-012-3" },\r
+ { 0x8ab3, 0xc1, "LEVEL9-012-3" },\r
+ { 0x4f96, 0x22, "LEVEL9-012-3" },\r
+ { 0x5914, 0x22, "LEVEL9-012-3" },\r
+ { 0x765e, 0x4f, "LEVEL9-012-3" },\r
+ { 0x5eb9, 0x30, "LEVEL9-013" },\r
+ { 0x5eb9, 0x5d, "LEVEL9-013" },\r
+ { 0x5eb9, 0x6e, "LEVEL9-013" },\r
+ { 0xb257, 0xf8, "LEVEL9-013" },\r
+ { 0xb576, 0x2a, "LEVEL9-013" },\r
+ { 0x8d78, 0x3a, "LEVEL9-013" },\r
+ { 0x9070, 0x43, "LEVEL9-013" },\r
+ { 0xb38c, 0x37, "LEVEL9-013" },\r
+ { 0xb563, 0x6a, "LEVEL9-013" },\r
+ { 0xb57c, 0x44, "LEVEL9-013" },\r
+ { 0xb260, 0xe5, "LEVEL9-013" },\r
+ { 0x8950, 0xa1, "LEVEL9-013" },\r
+ { 0xb579, 0x89, "LEVEL9-013" },\r
+ { 0x579e, 0x97, "LEVEL9-013" },\r
+ { 0x69fe, 0x56, "LEVEL9-013" },\r
+ { 0x6f1e, 0xda, "LEVEL9-013" },\r
+ { 0x5671, 0xbc, "LEVEL9-014" },\r
+ { 0x6fc6, 0x14, "LEVEL9-014" },\r
+ { 0x5aa4, 0xc1, "LEVEL9-014" },\r
+ { 0x7410, 0x5e, "LEVEL9-014" },\r
+ { 0x5aa4, 0xc1, "LEVEL9-014" },\r
+ { 0x5aa4, 0xc1, "LEVEL9-014" },\r
+ { 0xb797, 0x1f, "LEVEL9-014" },\r
+ { 0xbaca, 0x3a, "LEVEL9-014" },\r
+ { 0x8c46, 0xf0, "LEVEL9-014" },\r
+ { 0x8f51, 0xb2, "LEVEL9-014" },\r
+ { 0xb451, 0xa8, "LEVEL9-014" },\r
+ { 0xbab2, 0x87, "LEVEL9-014" },\r
+ { 0xbac7, 0x7f, "LEVEL9-014" },\r
+ { 0xb7a0, 0x7e, "LEVEL9-014" },\r
+ { 0x8a60, 0x2a, "LEVEL9-014" },\r
+ { 0xbac4, 0x80, "LEVEL9-014" },\r
+ { 0x579a, 0x2a, "LEVEL9-014" },\r
+ { 0x5a50, 0xa9, "LEVEL9-014" },\r
+ { 0x6108, 0xdd, "LEVEL9-014" },\r
+ { 0x506c, 0xf0, "LEVEL9-015" },\r
+ { 0x505d, 0x32, "LEVEL9-015" },\r
+ { 0xa398, 0x82, "LEVEL9-015" },\r
+ { 0xa692, 0xd1, "LEVEL9-015" },\r
+ { 0x8d56, 0xd3, "LEVEL9-015" },\r
+ { 0x903f, 0x6b, "LEVEL9-015" },\r
+ { 0xa4e2, 0xa6, "LEVEL9-015" },\r
+ { 0xa67c, 0xb8, "LEVEL9-015" },\r
+ { 0xa69e, 0x6c, "LEVEL9-015" },\r
+ { 0xa3a4, 0xdf, "LEVEL9-015" },\r
+ { 0x8813, 0x11, "LEVEL9-015" },\r
+ { 0xa698, 0x41, "LEVEL9-015" },\r
+ { 0x5500, 0x50, "LEVEL9-015" },\r
+ { 0x6888, 0x8d, "LEVEL9-015" },\r
+ { 0x6da0, 0xb8, "LEVEL9-015" },\r
+ { 0x6064, 0xbd, "LEVEL9-016" },\r
+ { 0x6064, 0x01, "LEVEL9-016" },\r
+ { 0x6047, 0x6c, "LEVEL9-016" },\r
+ { 0x6064, 0xda, "LEVEL9-016" },\r
+ { 0x6064, 0x95, "LEVEL9-016" },\r
+ { 0x60c4, 0x28, "LEVEL9-016" },\r
+ { 0x5cb7, 0xfe, "LEVEL9-016" },\r
+ { 0x5ca1, 0x33, "LEVEL9-016" },\r
+ { 0x5cb7, 0x64, "LEVEL9-016" },\r
+ { 0x7d16, 0xe6, "LEVEL9-016" },\r
+ { 0x639c, 0x8b, "LEVEL9-016" },\r
+ { 0x60f7, 0x68, "LEVEL9-016" },\r
+ { 0x772f, 0xca, "LEVEL9-016" },\r
+ { 0x7cff, 0xf8, "LEVEL9-016" },\r
+ { 0x7cf8, 0x24, "LEVEL9-016" },\r
+ { 0x7d14, 0xe8, "LEVEL9-016" },\r
+ { 0x7c55, 0x18, "LEVEL9-016" },\r
+ { 0x5f43, 0xca, "LEVEL9-016" },\r
+ { 0xc132, 0x14, "LEVEL9-017-1" },\r
+ { 0xbeab, 0x2d, "LEVEL9-017-1" },\r
+ { 0x9058, 0xcf, "LEVEL9-017-1" },\r
+ { 0xbe94, 0xcc, "LEVEL9-017-1" },\r
+ { 0x8a21, 0xf4, "LEVEL9-017-1" },\r
+ { 0x55ce, 0xa1, "LEVEL9-017-1" },\r
+ { 0x5cbc, 0xa5, "LEVEL9-017-1" },\r
+ { 0x762e, 0x82, "LEVEL9-017-1" },\r
+ { 0x99bd, 0x65, "LEVEL9-017-2" },\r
+ { 0x8f43, 0xc9, "LEVEL9-017-2" },\r
+ { 0x8a12, 0xe3, "LEVEL9-017-2" },\r
+ { 0x54a6, 0xa9, "LEVEL9-017-2" },\r
+ { 0x5932, 0x4e, "LEVEL9-017-2" },\r
+ { 0x5bd6, 0x35, "LEVEL9-017-2" },\r
+ { 0xbcb6, 0x7a, "LEVEL9-017-3 (Amiga/PC/ST)" },\r
+ { 0x90ac, 0x68, "LEVEL9-017-3" },\r
+ { 0x8a16, 0xcc, "LEVEL9-017-3" },\r
+ { 0x51bc, 0xe3, "LEVEL9-017-3" },\r
+ { 0x5860, 0x95, "LEVEL9-017-3" },\r
+ { 0x6fa8, 0xa4, "LEVEL9-017-3" },\r
+ { 0x5fab, 0x5c, "LEVEL9-018" },\r
+ { 0x5fab, 0x2f, "LEVEL9-018" },\r
+ { 0x7b31, 0x6e, "LEVEL9-018" },\r
+ { 0x67a3, 0x9d, "LEVEL9-018" },\r
+ { 0x6bf8, 0x3f, "LEVEL9-018" },\r
+ { 0x7363, 0x65, "LEVEL9-018" },\r
+ { 0x7b2f, 0x70, "LEVEL9-018" },\r
+ { 0x7b2f, 0x70, "LEVEL9-018" },\r
+ { 0x6541, 0x02, "LEVEL9-018" },\r
+ { 0x5834, 0x42, "LEVEL9-019-1" },\r
+ { 0x765d, 0xcd, "LEVEL9-019-1" },\r
+ { 0x6ce5, 0x58, "LEVEL9-019-1" },\r
+ { 0x56dd, 0x51, "LEVEL9-019-2" },\r
+ { 0x6e58, 0x07, "LEVEL9-019-2" },\r
+ { 0x68da, 0xc1, "LEVEL9-019-2" },\r
+ { 0x5801, 0x53, "LEVEL9-019-3" },\r
+ { 0x7e98, 0x6a, "LEVEL9-019-3" },\r
+ { 0x6c67, 0x9a, "LEVEL9-019-3" },\r
+ { 0x54a4, 0x01, "LEVEL9-019-4" },\r
+ { 0x81e2, 0xd5, "LEVEL9-019-4" },\r
+ { 0x6d91, 0xb9, "LEVEL9-019-4" },\r
+ { 0x5828, 0xbd, "LEVEL9-020" },\r
+ { 0x6d84, 0xf9, "LEVEL9-020" },\r
+ { 0x6d84, 0xc8, "LEVEL9-020" },\r
+ { 0x6030, 0x47, "LEVEL9-020" },\r
+ { 0x772b, 0xcd, "LEVEL9-020" },\r
+ { 0x546c, 0xb7, "LEVEL9-020" },\r
+ { 0x7cd9, 0x0c, "LEVEL9-020" },\r
+ { 0x60dd, 0xf2, "LEVEL9-020" },\r
+ { 0x6161, 0xf3, "LEVEL9-020" },\r
+ { 0x788d, 0x72, "LEVEL9-020" },\r
+ { 0x7cd7, 0x0e, "LEVEL9-020" },\r
+ { 0x5ebb, 0xf1, "LEVEL9-020" },\r
+\r
+ { 0, 0, NULL }\r
+};\r
+\r
+\r
+\r
+static int32 read_l9_int(unsigned char *sf)\r
+{\r
+ return ((int32) sf[1]) << 8 | sf[0];\r
+\r
+}\r
+static int v2_recognition (unsigned char *sf, int32 extent, int32 *l, unsigned char *c)\r
+{\r
+ int32 i, j;\r
+ for (i=0;i<extent-20;i++)\r
+ if ((read_l9_int(sf+i+4) == 0x0020) &&\r
+ (read_l9_int(sf+i+0x0a) == 0x8000) &&\r
+ (read_l9_int(sf+i+0x14) == read_l9_int(sf+i+0x16)))\r
+ {\r
+ *l=read_l9_int(sf+i+0x1c);\r
+ if (*l && *l+i <=extent)\r
+ {\r
+ *c=0;\r
+ for(j=0;j<=*l;j++)\r
+ *c+=sf[i+j];\r
+ return 2;\r
+ }\r
+ }\r
+ return 0;\r
+}\r
+static int v1_recognition(unsigned char *sf, int32 extent, char **ifid)\r
+{\r
+ int32 i;\r
+ unsigned char a = 0xff, b = 0xff;\r
+\r
+ for (i=0;i<extent-20;i++)\r
+ if (memcmp(sf+i,"ATTAC",5)==0 && sf[i+5]==0xcb)\r
+ { \r
+ a = sf[i+6];\r
+ break;\r
+ }\r
+ for (;i<(extent-20);i++)\r
+ if (memcmp(sf+i,"BUNC",4)==0 && sf[i+4]==0xc8)\r
+ {\r
+ b = sf[i + 5];\r
+ break;\r
+ }\r
+ if (a == 0xff && b == 0xff)\r
+ return 0;\r
+ if (a == 0x14 && b == 0xff) *ifid="LEVEL9-006";\r
+ else if (a == 0x15 && b == 0x5d) *ifid="LEVEL9-013";\r
+ else if (a == 0x1a && b == 0x24) *ifid="LEVEL9-005";\r
+ else if (a == 0x20 && b == 0x3b) *ifid="LEVEL9-003";\r
+ else *ifid=NULL;\r
+ return 1;\r
+}\r
+static int v3_recognition_phase (int phase,unsigned char *sf, int32 extent, int32 *l, unsigned char *c)\r
+{\r
+ int32 end, i, j, ll;\r
+ ll=0;\r
+ for (i=0;i<extent-20;i++)\r
+ {\r
+ if (ll) break;\r
+ *l = read_l9_int(sf+i);\r
+ end=*l+i;\r
+ if (phase!=3)\r
+ {\r
+ if (end <= (extent - 2) &&\r
+ (\r
+ ((phase == 2) ||\r
+ (((sf[end-1] == 0) &&\r
+ (sf[end-2] == 0)) ||\r
+ ((sf[end+1] == 0) &&\r
+ (sf[end+2] == 0))))\r
+ && (*l>0x4000) && (*l<=0xdb00)))\r
+ if ((*l!=0) && (sf[i+0x0d] == 0))\r
+ for (j=i;j<i+16;j+=2)\r
+ if (((read_l9_int(sf+j)+read_l9_int(sf+j+2))==read_l9_int(sf+j+4))\r
+ && ((read_l9_int(sf+j)+read_l9_int(sf+j+2))))\r
+ ll++;\r
+ }\r
+ else\r
+ {\r
+ if ((extent>0x0fd0) && (end <= (extent - 2)) &&\r
+ (((read_l9_int(sf+i+2) + read_l9_int(sf+i+4))==read_l9_int(sf+i+6))\r
+ && (read_l9_int(sf+i+2) != 0) && (read_l9_int(sf+i+4)) != 0) &&\r
+ (((read_l9_int(sf+i+6) + read_l9_int(sf+i+8)) == read_l9_int(sf+i+10))\r
+ && ((sf[i + 18] == 0x2a) || (sf[i + 18] == 0x2c))\r
+ && (sf[i + 19] == 0) && (sf[i + 20] == 0) && (sf[i + 21] == 0)))\r
+ ll = 2;\r
+ }\r
+ if (ll>1)\r
+ {\r
+ *c=0;\r
+ if (phase==3) ll=1;\r
+ else\r
+ { char checksum=0;\r
+ *c = sf[end];\r
+ for (j=i;j<=end;j++)\r
+ checksum += sf[j];\r
+ if (!checksum) ll=1;\r
+ else ll=0;\r
+ }\r
+ } else ll=0;\r
+ }\r
+\r
+ if (ll) return *l < 0x8500 ? 3:4;\r
+ return 0;\r
+}\r
+static char *get_l9_ifid(int32 length, unsigned char chk)\r
+{\r
+ int i;\r
+ for(i=0;l9_registry[i].length;i++)\r
+ if (length==l9_registry[i].length && chk==l9_registry[i].chk) return l9_registry[i].ifid;\r
+ return NULL;\r
+}\r
+static int get_l9_version(unsigned char *sf, int32 extent, char **ifid)\r
+{\r
+ int i;\r
+ int32 l;\r
+ unsigned char c;\r
+ if (v2_recognition(sf,extent, &l, &c)) { *ifid=get_l9_ifid(l,c); return 2; }\r
+ l=0; c=0;\r
+ i=v3_recognition_phase(1,sf,extent, &l, &c);\r
+ if (i) { *ifid=get_l9_ifid(l,c); return i; }\r
+ if (v1_recognition(sf,extent, ifid)) return 1;\r
+ l=0; c=0;\r
+ i=v3_recognition_phase(2,sf,extent, &l, &c);\r
+ if (i) { *ifid=get_l9_ifid(l,c); return i; }\r
+ i=v3_recognition_phase(3,sf,extent, &l, &c);\r
+ *ifid=NULL;\r
+ return i;\r
+}\r
+\r
+static int32 claim_story_file(void *story, int32 extent)\r
+{\r
+ char *ifid=NULL;\r
+ if (get_l9_version((unsigned char *) story,extent, &ifid))\r
+ if (ifid) return VALID_STORY_FILE_RV;\r
+ else return NO_REPLY_RV;\r
+ return INVALID_STORY_FILE_RV; \r
+}\r
+\r
+\r
+\r
+static int32 get_story_file_IFID(void *story_file, int32 extent, char *output, int32 output_extent)\r
+{\r
+ char *ifid=NULL;\r
+ int i=get_l9_version((unsigned char *)story_file, extent, &ifid);\r
+ if (!i) return INVALID_STORY_FILE_RV;\r
+ if (ifid)\r
+ {\r
+ ASSERT_OUTPUT_SIZE((signed) strlen(ifid)+1);\r
+ strcpy(output,ifid);\r
+ return 1;\r
+ }\r
+ ASSERT_OUTPUT_SIZE(10);\r
+ sprintf(output,"LEVEL9-%d-",i);\r
+ return INCOMPLETE_REPLY_RV;\r
+}\r
projects / projects / chimara / chimara.git / blobdiff