tt-decode.c

   1 /*
   2  *      IDOS Data Decoder
   3  *
   4  *      (c) 2000--2001 Martin Mares <mj@ucw.cz>
   5  *      (c) 2001--2002 Pavel Machek <pavel@ucw.cz>
   6  *      (c)     2013--2013 Tomas Pokorny <jethro@kam.mff.cuni.cz>
   7  *
   8  *      This software can be freely distributed and used according
   9  *      to the terms of the GNU General Public License.
  10  */
  11
  12 #include <stdio.h>
  13 #include <stdlib.h>
  14 #include <string.h>
  15 #include <sys/stat.h>
  16 #include <fcntl.h>
  17 #include <unistd.h>
  18 #include <time.h>
  19
  20 static char start_date[100];
  21 static unsigned int start_stamp;
  22
  23 /* Loading of blocks */
  24
  25 static void *
  26 load(char *name)
  27 {
  28   int *p;
  29   struct stat st;
  30   int fd;
  31
  32   fd = open(name, O_RDONLY);
  33   if (fd < 0) { fprintf(stderr, "open(%s): %m", name); exit(1); }
  34   if (fstat(fd, &st) < 0) { fprintf(stderr, "stat: %m"); exit(1); }
  35   p = malloc(st.st_size + sizeof(int));
  36   *p++ = st.st_size;
  37   if (read(fd, p, st.st_size) != st.st_size) { fprintf(stderr, "read: %m"); exit(1); }
  38   close(fd);
  39   return p;
  40 }
  41
  42 static int
  43 size(void *x)
  44 {
  45   return ((int *)x)[-1];
  46 }
  47
  48 #define ASSERT(x) if (!(x)) { fprintf(stderr, "Assertion failed: " #x "\n"); exit(1); }
  49
  50 /* Misc */
  51
  52 static unsigned int
  53 gl(unsigned char *x)
  54 {
  55   return x[0] | (x[1] << 8) | (x[2] << 16) | (x[3] << 24);
  56 }
  57
  58 static char *
  59 ustamp(time_t x)
  60 {
  61   static char buf[64];
  62   struct tm *t = localtime(&x);
  63   strftime(buf, sizeof(buf), "%Y-%m-%d %H:%M:%S", t);
  64   return buf;
  65 }
  66
  67 static time_t
  68 tstamp(unsigned x)
  69 {
  70   return (x-70*365-17)*86400 + 5000;
  71 }
  72
  73 static char *
  74 ystamp(unsigned x, char *fmt)
  75 {
  76   time_t w = tstamp(x);
  77   static char buf[64];
  78   struct tm *t = localtime(&w);
  79   strftime(buf, sizeof(buf), fmt, t);
  80   return buf;
  81 }
  82
  83 static char *
  84 xstamp(unsigned x)
  85 {
  86   return ystamp(x, "%Y-%m-%d");
  87 }
  88
  89 static char *
  90 xstamp2(unsigned x)
  91 {
  92   return ystamp(x, "y%Y m%m d%Y");
  93 }
  94
  95 static void
  96 string(int *i, char *s, int t)
  97 {
  98   if (t < 0 || t >= size(i)/4-1)
  99     printf("<invalid:%08x>", t);
 100   else
 101     fwrite(s+i[t], 1, i[t+1] - i[t], stdout);
 102 }
 103
 104 /* Header */
 105
 106 static int langs;
 107 static int time_rs, time_r_off;
 108
 109 static void
 110 dump_hdr(void)
 111 {
 112   char *hdr = load("0000");
 113   int *dbni = load("0001");
 114   char *dbns = load("0002");
 115   int *copi = load("0003");
 116   char *cops = load("0004");
 117
 118   puts("!version 1.1\n");
 119   printf("; ### DATABASE ###\n");
 120   ASSERT(hdr[0x3f] == 0x0d && hdr[0x40] == 0x0a && hdr[0x41] == 0x1a);
 121   printf("; Database: "); string(dbni, dbns, 0); putchar('\n');
 122   printf("; Copyright: "); string(copi, cops, 0); putchar('\n');
 123   printf("; Versions: %x %d.%d\n", gl(hdr+0x46), hdr[0x4a], hdr[0x4b]);
 124   printf("; File created: %s\n", ustamp(gl(hdr+0x42)));
 125   printf("!valid %s .. %s\n", xstamp2(gl(hdr+0x54)), xstamp2(gl(hdr+0x58)));
 126   printf("; Time remark range: %s ", xstamp(gl(hdr+0x5c)));
 127   strcpy(start_date, xstamp2(gl(hdr+0x54)));
 128   start_stamp=tstamp(gl(hdr+0x54));
 129   printf("; to %s\n", xstamp(gl(hdr+0x60)));
 130   time_r_off = gl(hdr+0x5c);
 131   time_rs = gl(hdr+0x60) - time_r_off + 1;
 132   printf("; Last update: %s\n", xstamp(gl(hdr+0x50)));
 133   langs = size(dbni) / 4;
 134   printf("; Language count: %d\n", langs);
 135 }
 136
 137 /* Stations */
 138
 139 static int *stanami;
 140 static char *stanams;
 141 static int nstats;
 142
 143 static void
 144 dump_stat(void)
 145 {
 146   int i;
 147   int *x10 = load("0010");
 148   unsigned short *x11 = load("0011");
 149   unsigned short *x14 = load("0014");
 150   unsigned short *x15 = load("0015");
 151   short *ctry = load("0016");
 152   int *ctryi = load("0017");
 153   char *ctrys = load("0018");
 154   short *x19 = load("0019");
 155   int *x19i = load("0020");
 156   char *x19s = load("0021");
 157   int *x23 = load("0023");
 158
 159   puts("\n; ### STATIONS ###\n");
 160   stanami = load("0008");
 161   nstats = size(stanami) / 4 - 1;
 162   stanams = load("0009");
 163   for (i=0; i<nstats; i++)
 164     {
 165       printf("; %08x ", i);
 166       string(stanami, stanams, i);
 167       if (size(ctry))
 168         {
 169           printf(" [");
 170           if (ctry[i] < 0)
 171             printf("?");
 172           else
 173             string(ctryi, ctrys, ctry[i]);
 174           printf("]");
 175         }
 176       if (size(x19))
 177         {
 178           printf(" [");
 179           if (x19[i])
 180             string(x19i, x19s, x19[i]-1);
 181           else
 182             printf("?");
 183           printf("]");
 184         }
 185       putchar('\n');
 186       printf("; \t%08x %04x %04x %04x %08x\n", x10[i], x11[i], x14[i], x15[i], x23[i]);
 187     }
 188 }
 189
 190 /* Time remarks */
 191
 192 static unsigned char **time_r;
 193
 194 static void
 195 load_time_r(void)
 196 {
 197   int i;
 198
 199   time_r = malloc(sizeof(unsigned char *) * time_rs);
 200   for (i=0; i<time_rs; i++)
 201     {
 202       char x[8];
 203       sprintf(x, "%d", 7000+i);
 204       time_r[i] = load(x);
 205     }
 206 }
 207
 208 static void
 209 timerem(int i)
 210 {
 211   int j;
 212   unsigned char week = 0, old_week = 0xff;
 213   int count = 0;
 214
 215   printf("D %d %d ", start_stamp, time_rs);
 216
 217   for (j=0; j<time_rs; j++)
 218     {
 219       /* j corresponds to day time_r_off + j */
 220       unsigned char *z = time_r[j];
 221
 222       week |= (!!(z[i/8] & (1 << (i%8)))) << (j%7);
 223       if (!((j+1)%7))
 224         {
 225           if (old_week == week)
 226             count++;
 227           else
 228             {
 229               if (old_week != 0xff)
 230                 printf("%d:%x ", count+1, old_week );
 231               old_week = week;
 232               week = 0;
 233               count = 0;
 234             }
 235         }
 236     }
 237   printf("%d:%x", count+1, old_week );
 238 }
 239
 240 /* The Timetable */
 241
 242
 243 static void
 244 dump_tt(void)
 245 {
 246   int *neighi = load("0025");
 247   unsigned short *neighx = load("0026");
 248   int *neighd = load("0027");
 249   int *tti = load("3001");
 250   char *tts = load("3002");
 251   int *tnum = load("3004");
 252   int *tnumi = load("3005");
 253   char *tnums = load("3006");
 254   int *tname = load("3008");
 255   int *tnamei = load("3009");
 256   char *tnames = load("3010");
 257   unsigned int *tflag = load("3011");
 258   int *tabbri = load("4000");
 259   char *tabbrs = load("4001");
 260   short *rembl = load("5000");
 261   int *rembi = load("5001");
 262   short *rembx = load("5002");
 263   int *remi = load("5003");
 264   char *rems = load("5004");
 265   short *trem = load("5100");
 266   int *metri = load("6001");
 267   int *metrx = load("6002");
 268   short *line = load("6100");
 269   int *linei = load("6101");
 270   char *lines = load("6102");
 271   short *comp = load("6200");
 272   int *compi = load("6201");
 273   char *comps = load("6202");
 274   int time_plus, conn;
 275   int i,j,k,m;
 276
 277
 278   puts("; ### TIMETABLE ###\n");
 279   for(i=0; i<size(tti)/4-1; i++)
 280     {
 281       j = tflag[i] & 0x7fffff;
 282       printf("# ");
 283       for (k=0; j & (1 << k); k++)
 284         string(tabbri, tabbrs, k);
 285
 286       if (tnum[i] >= 0)
 287         printf("%d", tnum[i]);
 288       else
 289         string(tnumi, tnums, ~tnum[i]);
 290       printf(" %04x\n;", i);
 291       if (size(tname))
 292         {
 293           printf(" \"");
 294           if (tname[i] >= 0)
 295             printf("%d", tname[i]);
 296           else
 297             string(tnamei, tnames, ~tname[i]);
 298           putchar('"');
 299         }
 300       printf(" flag=%08x\n", tflag[i]);
 301
 302       time_plus = 0;
 303       conn = i;
 304
 305     retry:
 306       {
 307       unsigned short *z;
 308       int j,k,w;
 309       int last = -1;
 310       int cud = 0;
 311
 312       for(j=tti[conn], w=0; j<tti[conn+1]; j+=4, w++)
 313         {
 314           if(j > (size(tts))) {
 315             fprintf(stderr, "Pointer to real data out of range?\n");
 316             printf("; Error: Pointer to real data out of range!\n");
 317             break;
 318           }
 319           z = (short *)(tts+j);
 320           if ((z[0] & 0x800) && j == tti[conn])
 321             {
 322               printf("; -> %x + %d\n", ((z[0] & 0xf000) << 4) | z[1], z[0] & 0x7ff);
 323               conn = ((z[0] & 0xf000) << 4) | z[1];
 324               time_plus = z[0] & 0x7ff;
 325               goto retry;
 326             }
 327           else
 328             {
 329               k = (z[0] & 0x7ff) + time_plus;
 330               if (k > 24*60) {
 331                       static int warn;
 332                       if (!warn)
 333                               fprintf(stderr, "Warning - invalid time:\t%2d:%02d\n", k/60, k%60);
 334                       warn = 1;
 335                      // k = k % (24*60);
 336               }
 337               printf("\t%d\t", k);
 338
 339             /*  if (size(metri) && metri[conn] < metri[conn+1])
 340                 {
 341                   if (metri[conn] + 4*w < metri[conn+1])
 342                     printf("%f", (double) metrx[(metri[conn]+w)/4] / 1000);
 343                   else
 344                     printf("-");
 345                 }
 346               else
 347                 {
 348 #if 0
 349                   if (w && last != z[1])
 350                     {
 351                       int nei;
 352                       for (nei=neighi[last]; nei<neighi[last+1]; nei++)
 353                         if (neighx[nei] == z[1])
 354                           break;
 355                       if (nei < neighi[last+1])
 356                         {
 357                           cud += neighd[nei];
 358                           // printf("%d:", neighd[nei]);
 359                         }
 360                       else
 361                         ASSERT(0);
 362                     }
 363 #endif
 364                   printf("%f", (double) cud/1000);
 365                 }*/
 366               putchar('\t');
 367                   printf("%d\t", z[1]);
 368              // string(stanami, stanams, z[1]);
 369               last = z[1];
 370               if (z[0] & 0xf800) printf(" %04x", z[0] & 0xf800);
 371               putchar('\n');
 372             }
 373         }
 374       }
 375
 376       if (size(line))
 377         {
 378           printf("L");
 379           string(linei, lines, line[i]);
 380           putchar('\n');
 381         }
 382       if (size(comp))
 383         {
 384           printf("G");
 385           string(compi, comps, comp[i]);
 386           putchar('\n');
 387         }
 388
 389       timerem(trem[i]);
 390       putchar('\n');
 391
 392       if (size(rembl))
 393         {
 394           k = rembl[i];
 395           for (j=rembi[k]; j<rembi[k+1]; j++)
 396             {
 397               m = rembx[j];
 398               printf("B%x ", m);
 399               string(remi, rems, m);
 400               putchar('\n');
 401             }
 402         }
 403     }
 404 }
 405
 406 /* main */
 407
 408 int main(void)
 409 {
 410   dump_hdr();
 411   dump_stat();
 412   load_time_r();
 413   dump_tt();
 414   return 0;
 415 }