URL
https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk
Subversion Repositories open8_urisc
[/] [open8_urisc/] [trunk/] [Open8 Tools/] [open8_src/] [open8_as/] [listfile.c] - Rev 333
Go to most recent revision | Compare with Previous | Blame | View Log
#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; }
Go to most recent revision | Compare with Previous | Blame | View Log