babel/hugo.c

   1 /* hugo.c  Treaty of Babel module for hugo 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 hugo\r
  11 #define HOME_PAGE "http://www.generalcoffee.com"\r
  12 #define FORMAT_EXT ".hex"\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 get_story_file_IFID(void *s_file, int32 extent, char *output, int32 output_extent)\r
  21 {\r
  22 \r
  23  int32 i,j;\r
  24  char ser[9];\r
  25  char buffer[32];\r
  26  char *story_file = (char *) s_file;\r
  27 \r
  28 \r
  29  if (extent<0x0B) return INVALID_STORY_FILE_RV;\r
  30 \r
  31  for(i=0;i<extent;i++) if (memcmp((char *)story_file+i,"UUID://",7)==0) break;\r
  32  if (i<extent) /* Found explicit IFID */\r
  33   {\r
  34    for(j=i+7;j<extent && ((char *)story_file)[j]!='/';j++);\r
  35    if (j<extent)\r
  36    {\r
  37     i+=7;\r
  38     ASSERT_OUTPUT_SIZE(j-i);\r
  39     memcpy(output,(char *)story_file+i,j-i);\r
  40     output[j-i]=0;\r
  41     return 1;\r
  42    }\r
  43   }\r
  44  \r
  45  memcpy(ser, (char *) story_file+0x03, 8);\r
  46  ser[8]=0;\r
  47 \r
  48  for(j=0;j<8;j++)\r
  49   if (!isalnum(ser[j])) ser[j]='-';\r
  50 \r
  51 \r
  52  sprintf(buffer,"HUGO-%d-%02X-%02X-%s",story_file[0],story_file[1], story_file[2],ser);\r
  53 \r
  54  ASSERT_OUTPUT_SIZE((signed) strlen(buffer)+1);\r
  55  strcpy((char *)output,buffer);\r
  56  return 1;\r
  57 }\r
  58 \r
  59 static int32 read_hugo_addx(unsigned char *from)\r
  60 {\r
  61  return ((unsigned int) from[0])| ((unsigned int)from[1] << 8);\r
  62 }\r
  63 \r
  64 static int32 claim_story_file(void *story_file, int32 extent)\r
  65 {\r
  66  unsigned char *sf=(unsigned char *)story_file;\r
  67  int32 i;\r
  68  int32 scale;\r
  69 \r
  70  if (!story_file || extent < 0x28) return  INVALID_STORY_FILE_RV;\r
  71 \r
  72  if (sf[0]<34) scale=4;\r
  73  else scale=16;\r
  74  for(i=3;i<0x0B;i++) if (sf[i]<0x20 || sf[i]>0x7e) return INVALID_STORY_FILE_RV;\r
  75  for(i=0x0b;i<0x18;i+=2)\r
  76  if (read_hugo_addx(sf+i) * scale > extent) return INVALID_STORY_FILE_RV;\r
  77 \r
  78  return VALID_STORY_FILE_RV;\r
  79 }\r