src/lib/mapread.c

   1 #include "src/lib/mapread.h"
   2
   3 int jsoneq(const char *json, jsmntok_t *tok, const char *s) {
   4         if (tok->type == JSMN_STRING && (int) strlen(s) == tok->end - tok->start &&
   5                         strncmp(json + tok->start, s, tok->end - tok->start) == 0) {
   6                 return 0;
   7         }
   8         return -1;
   9 }
  10
  11 //this function is quite messy ^^; sorry! it is a quick and dirty fix~
  12 word dump(const char *js, jsmntok_t *t, size_t count, word indent, char *js_sv, map_t *map, dword q) {
  13         dword i;
  14         word j;//, k;
  15         bitmap_t bp;
  16         #ifdef DEBUG_JS
  17         if(indent==0)
  18         {
  19                 fprintf(stdout, "%s\n", js);
  20                 fprintf(stdout, "\n");
  21         }
  22         #endif
  23         #ifdef DEBUG_DUMPVARS
  24         fprintf(stdout, "t->size=[%d]   ", t->size);
  25         fprintf(stdout, "q=[%d] ", q);
  26         fprintf(stdout, "indent= [%d]   ", indent);
  27         fprintf(stdout, "js_sv= [%s]\n", js_sv);
  28         #endif
  29         if (count == 0) {
  30                 return 0;
  31         }
  32         /* We may want to do strtol() here to get numeric value */
  33 //0000fprintf(stderr, "t->type=%d\n", t->type);
  34         if (t->type == JSMN_PRIMITIVE) {
  35                 if(strstr(js_sv, "data"))
  36                 {
  37                         /*
  38                                 here we should recursivly call dump again here to skip over the array until we get the facking width of the map.
  39                                 so we can initiate the map which allocates the facking map->tiles->data->data properly and THEN we can return
  40                                 here to read the data.... That is my design for this... wwww
  41
  42                                 FUCK well i am stuck.... wwww
  43                         */
  44                         map->data[q] = (byte)atoi(js+t->start);
  45                         #ifdef DEBUG_MAPDATA
  46                                 fprintf(stdout, "%d[%d]", q, map->data[q]);
  47                         #endif
  48                 }
  49                 else
  50                 if(strstr(js_sv, "height"))
  51                 {
  52                         map->height = atoi(js+t->start);
  53                         #ifdef DEBUG_MAPVAR
  54                         fprintf(stdout, "indent= [%d]   ", indent);
  55                         fprintf(stdout, "h:[%d]\n", map->height);
  56                         #endif
  57                 }else if(strstr(js_sv, "width"))
  58                 {
  59                         map->width = atoi(js+t->start);
  60                         #ifdef DEBUG_MAPVAR
  61                         fprintf(stdout, "indent= [%d]   ", indent);
  62                         fprintf(stdout, "w:[%d]\n", map->width);
  63                         #endif
  64                 }
  65                 return 1;
  66                 /* We may use strndup() to fetch string value */
  67         } else if (t->type == JSMN_STRING) {
  68                 if(jsoneq(js, t, "data") == 0)
  69                 {
  70 //                      fprintf(stdout, "[[[[%d|%d]]]]\n", &(t+1)->size, (t+1)->size);
  71 //                      fprintf(stdout, "\n%.*s[xx[%d|%d]xx]\n", (t+1)->end - (t+1)->start, js+(t+1)->start, &(t+1)->size, (t+1)->size);
  72                         map->data = malloc(sizeof(byte) * (t+1)->size);
  73                         map->tiles = malloc(sizeof(tiles_t));
  74                         map->tiles->btdata = malloc(sizeof(bitmap_t));
  75                         //fix this to be far~
  76                         bp = bitmapLoadPcx("data/ed.pcx");
  77 //                      bp = bitmapLoadPcx("data/koishi^^.pcx");
  78                         map->tiles->btdata = &bp;
  79                         map->tiles->data = planar_buf_from_bitmap(&bp);
  80                         //map->tiles->data->data = malloc((16/**2*/)*16);
  81                         //map->tiles->data->width = (16/**2*/);
  82                         //map->tiles->data->height= 16;
  83                         map->tiles->tileHeight = 16;
  84                         map->tiles->tileWidth = 16;
  85                         map->tiles->rows = 1;
  86                         map->tiles->cols = 1;
  87                         map->tiles->debug_text=false;
  88                         strcpy(js_sv, "data");//strdup(js+t->start);//, t->end - t->start);
  89                 }
  90                 else
  91                 if (jsoneq(js, t, "height") == 0 && indent<=1)
  92                 {
  93                         strcpy(js_sv, "height");//strdup(js+t->start);//, t->end - t->start);
  94                 }else
  95                 if(jsoneq(js, t, "width") == 0 && indent<=1)
  96                 {
  97                         strcpy(js_sv, "width");//strdup(js+t->start);//, t->end - t->start);
  98                 }else strcpy(js_sv, "\0");
  99                 return 1;
 100         } else if (t->type == JSMN_OBJECT) {
 101                 //fprintf(stdout, "\n");
 102                 j = 0;
 103                 for (i = 0; i < t->size; i++) {
 104                         //for (k = 0; k < indent; k++) fprintf(stdout, "\t");
 105                         j += dump(js, t+1+j, count-j, indent+1, js_sv, map, i);
 106                         //fprintf(stdout, ": ");
 107                         j += dump(js, t+1+j, count-j, indent+1, js_sv, map, i);
 108                         //fprintf(stdout, "\n");
 109                 }
 110                 return j+1;
 111         } else if (t->type == JSMN_ARRAY) {
 112                 j = 0;
 113                 //fprintf(stdout, "==\n");
 114                 for (i = 0; i < t->size; i++) {
 115                         //for (k = 0; k < indent-1; k++) fprintf(stdout, "\t");
 116                         //fprintf(stdout, "\t-");
 117                         j += dump(js, t+1+j, count-j, indent+1, js_sv, map, i);
 118                         //fprintf(stdout, "==\n");
 119                 }
 120                 return j+1;
 121         }
 122         return 0;
 123 }
 124
 125 int loadmap(char *mn, map_t *map)
 126 {
 127         int r;
 128         static word incr=0;
 129         int eof_expected = 0;
 130         char *js = NULL;
 131         size_t jslen = 0;
 132         char buf[BUFSIZ];
 133         static char js_ss[16];
 134
 135         jsmn_parser p;
 136         jsmntok_t *tok;
 137         size_t tokcount = 2;
 138
 139         FILE *fh = fopen(mn, "r");
 140
 141         /* Prepare parser */
 142         jsmn_init(&p);
 143
 144         /* Allocate some tokens as a start */
 145 //0000fprintf(stderr, "tok malloc\n");
 146         tok = malloc(sizeof(*tok) * tokcount);
 147         if (tok == NULL) {
 148                 fprintf(stderr, "malloc(): errno=%d\n", errno);
 149                 return 3;
 150         }
 151
 152         for (;;) {
 153                 /* Read another chunk */
 154 //0000fprintf(stderr, "read\n");
 155                 r = fread(buf, 1, sizeof(buf), fh);
 156                 if (r < 0) {
 157                         fprintf(stderr, "fread(): %d, errno=%d\n", r, errno);
 158                         return 1;
 159                 }
 160                 if (r == 0) {
 161                         if (eof_expected != 0) {
 162                                 return 0;
 163                         } else {
 164                                 fprintf(stderr, "fread(): unexpected EOF\n");
 165                                 return 2;
 166                         }
 167                 }
 168 //0000fprintf(stdout, "r=       [%d]    BUFSIZ=%d\n", r, BUFSIZ);
 169 //0000fprintf(stderr, "js alloc~\n");
 170                 js = realloc(js, jslen + r + 1);
 171                 if (js == NULL) {
 172                         fprintf(stderr, "*js=%Fp\n", *js);
 173                         fprintf(stderr, "realloc(): errno = %d\n", errno);
 174                         return 3;
 175                 }
 176                 strncpy(js + jslen, buf, r);
 177                 jslen = jslen + r;
 178
 179 again:
 180 //0000fprintf(stdout, " parse~ tok=%zu  jslen=%zu       r=%d    _memavl()=%u    BUFSIZ=%d~\n", tokcount, jslen, r, _memavl(), BUFSIZ);
 181 //0000fprintf(stdout, "p=[%u]   [%u]    [%d]\n", p.pos, p.toknext, p.toksuper);
 182 /*
 183                 I think it crashes on the line below when it tries to parse the data of huge maps... wwww this is a jsmn problem wwww
 184 */
 185                 r = jsmn_parse(&p, js, jslen, tok, tokcount);
 186 //0000fprintf(stdout, "r=       [%d]\n", r);
 187                 if (r < 0) {
 188                         if (r == JSMN_ERROR_NOMEM) {
 189                                 tokcount = tokcount * 2;
 190 //0000fprintf(stderr, "tok realloc~ %zu\n", tokcount);
 191                                 tok = realloc(tok, sizeof(*tok) * tokcount);
 192                                 if (tok == NULL) {
 193                                         fprintf(stderr, "realloc(): errno=%d\n", errno);
 194                                         return 3;
 195                                 }
 196                                 goto again;
 197                         }
 198                 } else {
 199                         //printf("js=%Fp\n", (js));
 200                         //printf("*js=%Fp\n", (*(js)));
 201                         //printf("&*js=%s\n", &(*(js)));
 202                         //printf("&buf=[%Fp]\n", &buf);
 203                         //printf("&buf_seg=[%x]\n", FP_SEG(&buf));
 204                         //printf("&buf_off=[%x]\n", FP_OFF(&buf));
 205                         //printf("&buf_fp=[%Fp]\n", MK_FP(FP_SEG(&buf), FP_OFF(&buf)));
 206                         //printf("buf=[\n%s\n]\n", buf);
 207                         //printf("buff=[%Fp]\n", buff);
 208                         //printf("(*buff)=[%Fp]\n", (*buff));
 209                         //printf("&(*buff)=[\n%s\n]\n", &(*buff));
 210                         #ifdef DEBUG_DUMPVARS
 211                         fprintf(stdout, "running dump~\n");
 212                         #endif
 213                         dump(js, tok, p.toknext, incr, &js_ss, map, 0);
 214                         eof_expected = 1;
 215                 }
 216         }
 217
 218         free(js);
 219         free(tok);
 220         fclose(fh);
 221
 222         return 0;
 223 }