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;
}