src/gameglobals.c

   1 /*
   2  * This program is free software: you can redistribute it and/or modify
   3  * it under the terms of the GNU General Public License as published by
   4  * the Free Software Foundation, either version 3 of the License, or
   5  * (at your option) any later version.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  14  */
  15 #include "gameglobals.h"
  16
  17
  18 ////////////////////////////////////////////////////////////////////////////////
  19 #include "vm_gamelabelsdef.c"
  20
  21
  22 ////////////////////////////////////////////////////////////////////////////////
  23 ResFile resfile; // NOT STATIC!
  24
  25 SDL_Surface *backs[8]; //0: title
  26 SpriteBank banks[256];
  27
  28 static LabelInfo *labels = NULL;
  29
  30
  31 ////////////////////////////////////////////////////////////////////////////////
  32 __attribute__((__noreturn__)) __attribute__((format(printf, 1, 2))) void fatal (const char *fmt, ...) {
  33   va_list ap;
  34   //
  35   fprintf(stderr, "AWISH FATAL: ");
  36   va_start(ap, fmt);
  37   vfprintf(stderr, fmt, ap);
  38   va_end(ap);
  39   fprintf(stderr, "\n");
  40   exit(1);
  41 }
  42
  43
  44 ////////////////////////////////////////////////////////////////////////////////
  45 void freeLabels (void) {
  46   while (labels != NULL) {
  47     LabelInfo *l = labels;
  48     //
  49     labels = l->next;
  50     if (l->name) free(l->name);
  51     free(l);
  52   }
  53 }
  54
  55
  56 /*
  57 static int readW (FILE *fl, int *v) {
  58   unsigned char b;
  59   int t0, t1;
  60   //
  61   if (fread(&b, 1, 1, fl) != 1) return -1;
  62   t0 = b;
  63   if (fread(&b, 1, 1, fl) != 1) return -1;
  64   t1 = b;
  65   if (v) *v = t0+(t1<<8);
  66   return 0;
  67 }
  68 */
  69
  70
  71 #define XREAD(dest,size)  do { \
  72   if (pos+(size) > rsz) goto quit; \
  73   if ((size) > 0) memcpy((dest), buf+pos, (size)); \
  74   pos += (size); \
  75 } while (0)
  76
  77
  78 #define XREADW(dest)  do { \
  79   if (pos+2 > rsz) goto quit; \
  80   dest = buf[pos+1]; \
  81   dest <<= 8; \
  82   dest |= buf[pos+0]; \
  83   pos += 2; \
  84 } while (0)
  85
  86
  87 int loadVMCode (ResFile *resfile) {
  88   int rsz = 0, pos = 0;
  89   char sign[4];
  90   int lcnt;
  91   uint8_t *buf = loadResFile(resfile, 93, &rsz);
  92   //
  93   memset(vmCode, 0, sizeof(vmCode));
  94   memset(vmGVars, 0, sizeof(vmGVars));
  95   vmCodeSize = 0;
  96   freeLabels();
  97   //
  98   if (buf == NULL) return -1;
  99   //
 100   XREAD(sign, 4);
 101   if (memcmp(sign, "AVM0", 4) != 0) goto quit;
 102   //
 103   XREADW(vmCodeSize);
 104   XREAD(vmCode, vmCodeSize);
 105   for (int f = 0; f < vmCodeSize; ++f) vmCode[f] ^= 42;
 106   //
 107   XREADW(lcnt);
 108   //printf("code: %d bytes, %d labels\n", vmCodeSize, lcnt);
 109   //
 110   for (int f = 0; f < lcnt; ++f) {
 111     unsigned char type, namelen, b;
 112     int value;
 113     //
 114     XREAD(&type, 1);
 115     //
 116     switch (type) {
 117       case LB_GVAR:
 118       case LB_TVAR:
 119         XREAD(&b, 1);
 120         value = b;
 121         break;
 122       case LB_SVAR:
 123       case LB_CODE:
 124       case LB_CONST:
 125         XREADW(value);
 126         if (type != LB_CODE && value >= 32768) value -= 65536;
 127         break;
 128       default:
 129         fatal("invalid label type: %d\n", type);
 130         goto quit;
 131     }
 132     //
 133     XREAD(&namelen, 1);
 134     if (namelen > 0) {
 135       LabelInfo *l = malloc(sizeof(LabelInfo));
 136       //
 137       if (l == NULL) goto quit;
 138       l->name = calloc(namelen+1, 1);
 139       if (l->name == NULL) { free(l); goto quit; }
 140       l->type = type;
 141       l->value = value;
 142       l->next = labels;
 143       labels = l;
 144       XREAD(l->name, namelen);
 145       for (int f = 0; f < namelen; ++f) l->name[f] ^= 0xa5;
 146       //printf("%d/%d: [%s]\n", f, lcnt, l->name);
 147     }
 148   }
 149   //
 150   free(buf);
 151   return 0;
 152 quit:
 153   free(buf);
 154   freeLabels();
 155   return -1;
 156 }
 157
 158
 159 ////////////////////////////////////////////////////////////////////////////////
 160 LabelInfo *findLabel (const char *name) {
 161   if (name != NULL && name[0]) {
 162     for (LabelInfo *l = labels; l != NULL; l = l->next) {
 163       if (strcasecmp(l->name, name) == 0) return l;
 164     }
 165   }
 166   return NULL;
 167 }
 168
 169
 170 int findPC (const char *name) {
 171   LabelInfo *l = findLabel(name);
 172   //
 173   if (l == NULL) fatal("no code label: '%s'", name);
 174   return l->value;
 175 }
 176
 177
 178 int findVarIndex (const char *name) {
 179   LabelInfo *l = findLabel(name);
 180   //
 181   if (l == NULL || (l->type != LB_GVAR && l->type != LB_TVAR && l->type != LB_SVAR)) fatal("no var label: '%s'", name);
 182   return l->value;
 183 }
 184
 185
 186 int findGVarIndex (const char *name) {
 187   LabelInfo *l = findLabel(name);
 188   //
 189   if (l == NULL || l->type != LB_GVAR) fatal("no global var label: '%s'", name);
 190   return l->value;
 191 }
 192
 193
 194 int findTVarIndex (const char *name) {
 195   LabelInfo *l = findLabel(name);
 196   //
 197   if (l == NULL || l->type != LB_TVAR) fatal("no thread var label: '%s'", name);
 198   return l->value;
 199 }
 200
 201
 202 int findSVarIndex (const char *name) {
 203   LabelInfo *l = findLabel(name);
 204   //
 205   if (l == NULL || l->type != LB_SVAR) fatal("no thread var label: '%s'", name);
 206   return l->value;
 207 }
 208
 209
 210 int findConst (const char *name) {
 211   LabelInfo *l = findLabel(name);
 212   //
 213   if (l == NULL || l->type != LB_CONST) fatal("no const label: '%s'", name);
 214   return l->value;
 215 }
 216
 217
 218 ////////////////////////////////////////////////////////////////////////////////
 219 void initLabels (void) {
 220 #include "vm_gamelabelsinit.c"
 221 }