forked from Miroirs/x49gp
117 lines
2.2 KiB
C
117 lines
2.2 KiB
C
/* $Id: hex2bin.c,v 1.3 2008/12/11 12:18:17 ecd Exp $
|
|
*
|
|
* $Log: hex2bin.c,v $
|
|
* Revision 1.3 2008/12/11 12:18:17 ecd
|
|
* major rework to qemu
|
|
*
|
|
* Revision 1.1 2006-08-20 17:26:07 ecd
|
|
* Modularize most stuff, IO_PORT, INTC, ARM, and MMU still missing.
|
|
*
|
|
* Revision 1.1 2002/06/19 08:19:39 ecd
|
|
* Add Lattice/Xilinx tools
|
|
*
|
|
* Revision 1.1 2002/01/04 10:46:48 ecd
|
|
* initial import
|
|
*
|
|
* Revision 1.1 1999/12/09 10:53:33 ecd
|
|
* add Xilinx conversion tool
|
|
*
|
|
*/
|
|
|
|
#include <unistd.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <fcntl.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <netinet/in.h>
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
unsigned char *input, *p;
|
|
unsigned char *memory = NULL;
|
|
size_t size;
|
|
int in, out;
|
|
int i;
|
|
|
|
if (argc < 3) {
|
|
fprintf(stderr, "usage: %s <infile> <outfile>\n", argv[0]);
|
|
exit(1);
|
|
}
|
|
|
|
if (!strcmp(argv[1], "-"))
|
|
in = 0;
|
|
else {
|
|
in = open(argv[1], O_RDONLY);
|
|
if (in < 0) {
|
|
perror(argv[1]);
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
if (!strcmp(argv[2], "-"))
|
|
out = 1;
|
|
else {
|
|
out = open(argv[2], O_WRONLY|O_CREAT|O_TRUNC, 0666);
|
|
if (out < 0) {
|
|
perror(argv[2]);
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
size = lseek(in, 0, SEEK_END);
|
|
lseek(in, 0, SEEK_SET);
|
|
|
|
input = (unsigned char *)malloc(size);
|
|
if (!input) {
|
|
fprintf(stderr, "%s: out of memory\n", argv[0]);
|
|
exit(1);
|
|
}
|
|
|
|
if (read(in, input, size) != size) {
|
|
perror("read");
|
|
exit(1);
|
|
}
|
|
|
|
close(in);
|
|
|
|
memory = malloc(size >> 1);
|
|
if (!memory) {
|
|
fprintf(stderr, "%s: out of memory\n", argv[0]);
|
|
exit(1);
|
|
}
|
|
|
|
p = input;
|
|
for (i = 0; i < (size >> 1); i++) {
|
|
if ('0' <= *p && *p <= '9')
|
|
memory[i] = (*p - '0') << 0;
|
|
else if ('a' <= *p && *p <= 'f')
|
|
memory[i] = (*p - 'a' + 10) << 0;
|
|
else if ('A' <= *p && *p <= 'F')
|
|
memory[i] = (*p - 'A' + 10) << 0;
|
|
else {
|
|
fprintf(stderr, "%s: parse error at byte %d\n",
|
|
argv[0], i);
|
|
exit(1);
|
|
}
|
|
p++;
|
|
if ('0' <= *p && *p <= '9')
|
|
memory[i] |= (*p - '0') << 4;
|
|
else if ('a' <= *p && *p <= 'f')
|
|
memory[i] |= (*p - 'a' + 10) << 4;
|
|
else if ('A' <= *p && *p <= 'F')
|
|
memory[i] |= (*p - 'A' + 10) << 4;
|
|
else {
|
|
fprintf(stderr, "%s: parse error at byte %d\n",
|
|
argv[0], i);
|
|
exit(1);
|
|
}
|
|
p++;
|
|
}
|
|
|
|
write(out, memory, size >> 1);
|
|
close(out);
|
|
|
|
return 0;
|
|
}
|