X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=babel%2Fadvsys.c;fp=babel%2Fadvsys.c;h=e0e1cf8a565ffb1e1598bed71046cd7281741555;hb=6fd0347f330cb24ef6145662023053a1c0f81a64;hp=0000000000000000000000000000000000000000;hpb=7d14a66ee234db0898de6fabb8f850ebc4bb733a;p=projects%2Fchimara%2Fchimara.git

diff --git a/babel/advsys.c b/babel/advsys.c
new file mode 100644
index 0000000..e0e1cf8
--- /dev/null
+++ b/babel/advsys.c
@@ -0,0 +1,49 @@
+/* advsys.c  Treaty of Babel module for AdvSys files
+ * 2006 By L. Ross Raszewski
+ *
+ * This file depends on treaty_builder.h
+ *
+ * This file is public domain, but note that any changes to this file
+ * may render it noncompliant with the Treaty of Babel
+ */
+
+#define FORMAT advsys
+#define HOME_PAGE "http://www.ifarchive.org/if-archive/programming/advsys/"
+#define FORMAT_EXT ".dat"
+#define NO_METADATA
+#define NO_COVER
+
+#include "treaty_builder.h"
+#include <ctype.h>
+#include <stdio.h>
+
+/* IFIDs for AdvSys are formed by prepending ADVSYS- to the default
+   MD5 ifid
+*/
+static int32 get_story_file_IFID(void *story_file, int32 extent, char *output, int32 output_extent)
+{
+ /* This line suppresses a warning from the borland compiler */
+ if (story_file || extent) { }
+ ASSERT_OUTPUT_SIZE(8);
+ strcpy(output,"ADVSYS-");
+ return INCOMPLETE_REPLY_RV;
+
+}
+
+/* The Advsys claim algorithm: bytes 2-8 of the file contain the
+   text "ADVSYS", unobfuscated in the following way:
+     30 is added to each byte, then the bits are reversed
+*/
+static int32 claim_story_file(void *story_file, int32 extent)
+{
+ char buf[7];
+ int i;
+ if (extent >=8)
+ { 
+   for(i=0;i<6;i++)
+    buf[i]=~(((char *)story_file)[i+2]+30);
+   buf[6]=0;
+   if (strcmp(buf,"ADVSYS")==0) return VALID_STORY_FILE_RV;
+ }
+ return INVALID_STORY_FILE_RV;
+}