Subversion Repositories open8_urisc

#include <ctype.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "defines.h"

#include "include_file.h"

#include "listfile.h"

extern struct incbin_file_data *incbin_file_data_first, *ifd_tmp;

extern struct section_def *sections_first, *sections_last, *sec_tmp, *sec_next;

extern struct file_name_info *file_name_info_first, *file_name_info_last, *file_name_info_tmp;

extern unsigned char *rom_banks, *rom_banks_usage_table;

extern FILE *file_out_ptr;

extern char gba_tmp_name[32], *gba_tmp_last_name, tmp[4096];

extern int verbose_mode, section_status, cartridgetype, output_format;

int listfile_collect(void) {

  struct section_def *s;

  FILE *f_in;

  int add = 0, file_name_id = 0, inz, line_number = 0, command = 0;

  char c;

  s = NULL;

  if ((f_in = fopen(gba_tmp_name, "rb")) == NULL) {

    fprintf(stderr, "LISTFILE_COLLECT: Error opening file \"%s\".\n", gba_tmp_name);

    return FAILED;

  }

  while (fread(&c, 1, 1, f_in) != 0) {

    switch (c) {

    case ' ':

    case 'E':

    case 'P':

    case 'p':

      continue;

    case 'g':

      fscanf(f_in, "%*s ");

      continue;

    case 'G':

      continue;

    case 'A':

    case 'S':

      if (c == 'A')

        fscanf(f_in, "%d %*d", &inz);

      else

        fscanf(f_in, "%d ", &inz);

      s = sections_first;

      while (s->id != inz)

        s = s->next;

      add = 0;

      command = 0;

      /* allocate the listfile data */

      s->listfile_ints = malloc(sizeof(int) * s->listfile_items*2);

      s->listfile_cmds = malloc(s->listfile_items);

      if (s->listfile_ints == NULL || s->listfile_cmds == NULL) {

        fprintf(stderr, "LISTFILE_COLLECT: Out of memory error.\n");

        return FAILED;

      }

      /* add file name */

      s->listfile_cmds[command] = 'f';

      s->listfile_ints[command*2 + 0] = file_name_id;

      command++;

      continue;

    case 's':

      s = NULL;

      continue;

    case 'x':

      fscanf(f_in, "%d %*d ", &inz);

      add += inz;

      continue;

    case 'X':

      fscanf(f_in, "%d %*d ", &inz);

      add += inz << 1;

      continue;

#ifdef W65816

    case 'z':

    case 'q':

      fscanf(f_in, "%*s ");

      add += 3;

      continue;

    case 'T':

      fscanf(f_in, "%*d ");

      add += 3;

      continue;

    case 'b':

      fscanf(f_in, "%*d ");

      continue;

#endif

    case 'R':

    case 'Q':

    case 'd':

    case 'c':

      fscanf(f_in, "%*s ");

      add++;

      continue;

#ifdef W65816

    case 'M':

#endif

    case 'r':

      fscanf(f_in, "%*s ");

      add += 2;

      continue;

    case 'y':

    case 'C':

      fscanf(f_in, "%*d ");

      add += 2;

      continue;

    case 'D':

      fscanf(f_in, "%*d %*d %*d %d ", &inz);

      add += inz;

      continue;

    case 'O':

      fscanf(f_in, "%*d ");

      continue;

    case 'B':

      fscanf(f_in, "%*d %*d ");

      continue;

    case 'Z':

      continue;

    case 'Y':

    case 'L':

      fscanf(f_in, "%*s ");

      continue;

    case 'f':

      fscanf(f_in, "%d ", &file_name_id);

      if (s != NULL) {

        /* terminate the previous line */

        s->listfile_ints[command*2 + 1] = add;

        add = 0;

        /* add file name */

        s->listfile_cmds[command] = 'f';

        s->listfile_ints[command*2 + 0] = file_name_id;

        command++;

      }

      continue;

    case 'k':

      fscanf(f_in, "%d ", &line_number);

      if (s != NULL) {

        /* terminate the previous line */

        s->listfile_ints[command*2 + 1] = add;

        add = 0;

        /* add line number */

        s->listfile_cmds[command] = 'k';

        s->listfile_ints[command*2 + 0] = line_number;

        command++;

      }

      continue;

    default:

      fprintf(stderr, "%s: LISTFILE_COLLECT: Unknown internal symbol \"%c\".\n", get_file_name(file_name_id), c);

      return FAILED;

    }

  }

  fclose(f_in);

  return SUCCEEDED;

}

#define WRITEOUT_D fprintf(f, "%c%c%c%c", (d>>24)&0xFF, (d>>16)&0xFF, (d>>8)&0xFF, d&0xFF);

int listfile_block_write(FILE *f, struct section_def *s) {

  int i, d;

  if (f == NULL || s == NULL)

    return FAILED;

  fprintf(f, "%c", 1);

  d = s->listfile_items;

  WRITEOUT_D;

  for (i = 0; i < s->listfile_items; i++) {

    fprintf(f, "%c", s->listfile_cmds[i]);

    if (s->listfile_cmds[i] == 'k') {

      /* next line: line number, line length */

      d = s->listfile_ints[i*2 + 0];

      WRITEOUT_D;

      d = s->listfile_ints[i*2 + 1];

      WRITEOUT_D;

    }

    else if (s->listfile_cmds[i] == 'f') {

      /* next file: file name id */

      d = s->listfile_ints[i*2 + 0];

      WRITEOUT_D;

    }

    else {

      fprintf(stderr, "LISTFILE_BLOCK_WRITE: Unknown command %d.\n", s->listfile_cmds[i]);

      return FAILED;

    }

  }

  return SUCCEEDED;

}