map-extract.c

   1 /*
   2  *      IDOS Map Extractor
   3  *
   4  *      (c) 2013 Tomas Pokorny <jethro@kam.mff.cuni.cz>
   5  *
   6  *      This software can be freely distributed and used according
   7  *      to the terms of the GNU General Public License.
   8  */
   9
  10 #include <stdlib.h>
  11 #include <stdio.h>
  12 #include <inttypes.h>
  13 #include <sys/stat.h>
  14 #include <errno.h>
  15 #include <stdbool.h>
  16
  17
  18
  19 FILE * in;
  20
  21 int main(int argc, char * argv[])
  22 {
  23         in = fopen(argv[1], "r");
  24         int32_t x;
  25         int32_t y;
  26         FILE * out;
  27         int32_t len;
  28         int32_t count;
  29         int32_t next;
  30         int32_t chunks;
  31         int32_t blocks;
  32         uint8_t * int_count;
  33                 char key;
  34                 int nulls;
  35
  36         next=0x89;
  37         fclose(fopen("map/chunks.dat","w"));
  38         fclose(fopen("map/stations.dat","w"));
  39
  40         fseek(in,next,SEEK_SET);
  41         printf("Reading header\n");
  42         fread(&len,1,sizeof(len),in);
  43         fread(&blocks,1,sizeof(blocks),in);
  44         int_count = malloc(blocks);
  45         for (int i=0;i<blocks;i++)
  46                 int_count[i]=2;
  47         printf("Len: %d, blocks: %d\n",len,blocks);
  48         next = ftell(in)+len;
  49         if (!(len%blocks==0))
  50                 printf("Skipping, header had changed.\n");
  51         else{
  52
  53                 int rec_len;
  54                 rec_len=len/blocks;
  55                 int32_t buf[rec_len];
  56                 for (int i=blocks;i>0;i--){
  57                         fread(buf,1,rec_len,in);
  58                         for (int j=0;j<rec_len;j++)
  59                                 printf("%x ",buf[j]);
  60                         printf("\n");
  61                 }
  62         }
  63
  64         // HACK
  65         int_count[5]=int_count[6]=int_count[7]=3;
  66         // /HACK
  67
  68         for (int blkid=0;blkid<blocks;blkid++)
  69         {
  70                 fseek(in,next,SEEK_SET);
  71
  72                 nulls=0;
  73
  74                 do {
  75                         fread(&chunks,1,sizeof(chunks),in);
  76                         nulls++;
  77                         next+=4;
  78                 }
  79                 while (chunks==0);
  80
  81                 printf("Read %d null ints, will read %d chunks\n",nulls,chunks);
  82                 if (int_count[blkid]==3)
  83                 {
  84                         next = ftell(in)-4;
  85                         fseek(in,next,SEEK_SET);
  86                         printf("Reading stations\n");
  87                         fread(&len,1,sizeof(len),in);
  88                         fread(&count,1,sizeof(count),in);
  89                         next=ftell(in)+len;
  90
  91                         printf("Base: %x Next: %x, count: %d\n",(uint32_t)ftell(in),len,count);
  92
  93                         int32_t idx;
  94                         out = fopen("map/stations.dat","a");
  95                         for (int i=count;i>0;i--)
  96                         {
  97                                 fread(&x,1,sizeof(x),in);
  98                                 fread(&y,1,sizeof(y),in);
  99                                 fread(&idx,1,sizeof(idx),in);
 100                                 fprintf(out,"%d %d %d\n",x,y,idx);
 101                         }
 102                         fprintf(out,"\n");
 103                         fclose(out);
 104                 } else {
 105
 106                 printf("Reading %d chunks\n",chunks);
 107                 for (int j=chunks;j>0;j--)
 108                 {
 109                         fseek(in,next,SEEK_SET);
 110                         fread(&len,1,sizeof(len),in);
 111                         fread(&count,1,sizeof(count),in);
 112                         next=ftell(in)+len;
 113
 114                         printf("Base: %x Next: %x, count: %d\n",(uint32_t)ftell(in),len,count);
 115
 116                         out = fopen("map/chunks.dat","a");
 117                         for (int i=count;i>0;i--)
 118                         {
 119                                 fread(&x,1,sizeof(x),in);
 120                                 fread(&y,1,sizeof(y),in);
 121                                 fprintf(out,"%d %d\n",x,y);
 122                         }
 123                         fprintf(out,"\n");
 124                         fclose(out);
 125
 126                 }
 127                 }
 128
 129
 130         }
 131         printf("At: %x continue?",(uint32_t)ftell(in));
 132         scanf("%c",&key);
 133
 134         fseek(in,next,SEEK_SET);
 135         printf("Reading header\n");
 136         do {
 137                 fread(&len,1,sizeof(len),in);
 138                 nulls++;
 139                 next+=4;
 140         }
 141         while (len==0);
 142         printf("Read %d null ints, will read header of length %x \n",nulls,len);
 143
 144         fread(&blocks,1,sizeof(blocks),in);
 145         int_count = malloc(blocks);
 146         for (int i=0;i<blocks;i++)
 147                 int_count[i]=2;
 148         printf("Len: %d, blocks: %d\n",len,blocks);
 149         next = ftell(in)+len;
 150         if (!(len%blocks==0))
 151                 printf("Skipping, header had changed.\n");
 152         else{
 153
 154                 int rec_len;
 155                 rec_len=len/blocks;
 156                 int32_t buf[rec_len];
 157                 for (int i=blocks;i>0;i--){
 158                         fread(buf,1,rec_len,in);
 159                         for (int j=0;j<rec_len;j++)
 160                                 printf("%x ",buf[j]);
 161                         printf("\n");
 162                 }
 163         }
 164
 165         // HACK
 166         int_count[0]=3;
 167         // /HACK
 168
 169         for (int blkid=0;blkid<blocks;blkid++)
 170         {
 171                 fseek(in,next,SEEK_SET);
 172
 173                 nulls=0;
 174
 175                 do {
 176                         fread(&chunks,1,sizeof(chunks),in);
 177                         nulls++;
 178                         next+=4;
 179                 }
 180                 while (chunks==0);
 181
 182                 printf("Read %d null ints, will read %d chunks\n",nulls,chunks);
 183                 if (int_count[blkid]==3)
 184                 {
 185                         next = ftell(in)-4;
 186                         fseek(in,next,SEEK_SET);
 187                         printf("Reading stations\n");
 188                         fread(&len,1,sizeof(len),in);
 189                         fread(&count,1,sizeof(count),in);
 190                         next=ftell(in)+len;
 191
 192                         printf("Base: %x Next: %x, count: %d\n",(uint32_t)ftell(in),len,count);
 193
 194                         int32_t idx;
 195                         out = fopen("map/stations.dat","a");
 196                         for (int i=count;i>0;i--)
 197                         {
 198                                 fread(&x,1,sizeof(x),in);
 199                                 fread(&y,1,sizeof(y),in);
 200                                 fread(&idx,1,sizeof(idx),in);
 201                                 fprintf(out,"%d %d %d\n",x,y,idx);
 202                         }
 203                         fprintf(out,"\n");
 204                         fclose(out);
 205                 } else {
 206
 207                 printf("Reading %d chunks\n",chunks);
 208                 for (int j=chunks;j>0;j--)
 209                 {
 210                         fseek(in,next,SEEK_SET);
 211                         fread(&len,1,sizeof(len),in);
 212                         fread(&count,1,sizeof(count),in);
 213                         next=ftell(in)+len;
 214
 215                         printf("Base: %x Next: %x, count: %d\n",(uint32_t)ftell(in),len,count);
 216
 217                         out = fopen("map/chunks.dat","a");
 218                         for (int i=count;i>0;i--)
 219                         {
 220                                 fread(&x,1,sizeof(x),in);
 221                                 fread(&y,1,sizeof(y),in);
 222                                 fprintf(out,"%d %d\n",x,y);
 223                         }
 224                         fprintf(out,"\n");
 225                         fclose(out);
 226
 227                 }
 228                 }
 229
 230
 231         }
 232
 233
 234         printf("At: %x continue?",(uint32_t)ftell(in));
 235 }
 236