babel/alan.c

   1 /* alan.c  Treaty of Babel module for ALAN files\r
   2  * 2006 By L. Ross Raszewski\r
   3  *\r
   4  * This file depends on treaty_builder.h\r
   5  *\r
   6  * This file is public domain, but note that any changes to this file\r
   7  * may render it noncompliant with the Treaty of Babel\r
   8  */\r
   9 \r
  10 #define FORMAT alan\r
  11 #define HOME_PAGE "http://www.alanif.se/"\r
  12 #define FORMAT_EXT ".acd"\r
  13 #define NO_METADATA\r
  14 #define NO_COVER\r
  15 \r
  16 #include "treaty_builder.h"\r
  17 #include <ctype.h>\r
  18 #include <stdio.h>\r
  19 \r
  20 static int32 read_alan_int(unsigned char *from)\r
  21 {\r
  22  return ((unsigned long int) from[3])| ((unsigned long int)from[2] << 8) |\r
  23        ((unsigned long int) from[1]<<16)| ((unsigned long int)from[0] << 24);\r
  24 }\r
  25 static int32 get_story_file_IFID(void *story_file, int32 extent, char *output, int32 output_extent)\r
  26 {\r
  27 \r
  28  if (story_file || extent) { }\r
  29  ASSERT_OUTPUT_SIZE(6);\r
  30  strcpy(output,"ALAN-");\r
  31  return INCOMPLETE_REPLY_RV;\r
  32 }\r
  33 /*\r
  34   The claim algorithm for Alan files is:\r
  35    * For Alan 3, check for the magic word\r
  36    * load the file length in blocks\r
  37    * check that the file length is correct\r
  38    * For alan 2, each word between byte address 24 and 81 is a\r
  39       word address within the file, so check that they're all within\r
  40       the file\r
  41    * Locate the checksum and verify that it is correct\r
  42 */\r
  43 static int32 claim_story_file(void *story_file, int32 extent)\r
  44 {\r
  45  unsigned char *sf = (unsigned char *) story_file;\r
  46  int32 bf, i, crc=0;\r
  47  if (extent < 160) return INVALID_STORY_FILE_RV;\r
  48  if (memcmp(sf,"ALAN",4))\r
  49  { /* Identify Alan 2.x */\r
  50  bf=read_alan_int(sf+4);\r
  51  if (bf > extent/4) return INVALID_STORY_FILE_RV;\r
  52  for (i=24;i<81;i+=4)\r
  53  if (read_alan_int(sf+i) > extent/4) return INVALID_STORY_FILE_RV;\r
  54  for (i=160;i<(bf*4);i++)\r
  55  crc+=sf[i];\r
  56  if (crc!=read_alan_int(sf+152)) return INVALID_STORY_FILE_RV;\r
  57  return VALID_STORY_FILE_RV;\r
  58  }\r
  59  else\r
  60  { /* Identify Alan 3 */\r
  61    bf=read_alan_int(sf+12);\r
  62    if (bf > (extent/4)) return INVALID_STORY_FILE_RV;\r
  63    for (i=184;i<(bf*4);i++)\r
  64     crc+=sf[i];\r
  65  if (crc!=read_alan_int(sf+176)) return INVALID_STORY_FILE_RV;\r
  66 \r
  67  }\r
  68  return INVALID_STORY_FILE_RV;\r
  69 }\r