#include <stdio.h>#include <stdlib.h>#include <string.h>#define NUM_FIELDS 11struct field;int check_areasym(char *, struct field *);struct field {  char *name;  int pos;  int len;  int (*extra_check)(char *, struct field *);} fields[NUM_FIELDS] = {  { "Hardware ID", 0x0, 0x10, NULL },  { "Maker ID", 0x10, 0x10, NULL },  { "Device Info", 0x20, 0x10, NULL },  { "Area Symbols", 0x30, 0x8, check_areasym },  { "Peripherals", 0x38, 0x8, NULL },  { "Product No", 0x40, 0xa, NULL },  { "Version", 0x4a, 0x6, NULL },  { "Release Date", 0x50, 0x10, NULL },  { "Boot Filename", 0x60, 0x10, NULL },  { "SW Maker Name", 0x70, 0x10, NULL },  { "Game Title", 0x80, 0x80, NULL },};int filled_in[NUM_FIELDS];int check_areasym(char *ptr, struct field *f){  int i, a = 0;  for(i=0; i<f->len; i++)    switch(ptr[i]) {     case 'J':       a |= (1<<0);       break;     case 'U':       a |= (1<<1);       break;     case 'E':       a |= (1<<2);       break;     case ' ':       break;     default:       fprintf(stderr, "Unknown area symbol '%c'.\n", ptr[i]);       return 0;    }  for(i=0; i<f->len; i++)    if((a & (1<<i)) == 0)      ptr[i] = ' ';    else      ptr[i] = "JUE"[i];  return 1;}void trim(char *str){  int l = strlen(str);  while(l>0 && (str[l-1] == '\r' || str[l-1] == '\n' ||		str[l-1] == ' ' || str[l-1] == '\t'))    str[--l]='\0';}int parse_input(FILE *fh, char *ip){  static char buf[80];  int i;  memset(filled_in, 0, sizeof(filled_in));  while(fgets(buf, sizeof(buf), fh)) {    char *p;    trim(buf);    if(*buf)      if((p = strchr(buf, ':'))) {	*p++ = '\0';	trim(buf);	for(i=0; i<NUM_FIELDS; i++)	  if(!strcmp(buf, fields[i].name))	    break;	if(i>=NUM_FIELDS) {	  fprintf(stderr, "Unknown field \"%s\".\n", buf);	  return 0;	}	memset(ip+fields[i].pos, ' ', fields[i].len);	while(*p == ' ' || *p == '\t')	  p++;	if(strlen(p)>fields[i].len) {	  fprintf(stderr, "Data for field \"%s\" is too long.\n", fields[i]);	  return 0;	}	memcpy(ip+fields[i].pos, p, strlen(p));	if(fields[i].extra_check!=NULL &&	   !(*fields[i].extra_check)(ip+fields[i].pos, &fields[i]))	  return 0;	filled_in[i] = 1;      } else {	fprintf(stderr, "Missing : on line.\n");	return 0;      }  }  for(i=0; i<NUM_FIELDS; i++)    if(!filled_in[i]) {      fprintf(stderr, "Missing value for \"%s\".\n", fields[i]);      return 0;    }        return 1;}void makeip(char *ip_tmpl, char *in, char *out){  static char ip[0x8000];  FILE *fh = fopen(ip_tmpl, "rb");  if(fh == NULL) {    fprintf(stderr, "Can't open \"%s\".\n", ip_tmpl);    exit(1);  }  if(fread(ip, 1, 0x8000, fh) != 0x8000) {    fprintf(stderr, "Read error.\n");    exit(1);  }  fclose(fh);  fh = fopen(in, "r");  if(fh == NULL) {    fprintf(stderr, "Can't open \"%s\".\n", in);    exit(1);  }  if(!parse_input(fh, ip))    exit(1);  fclose(fh);  fh = fopen(out, "wb");  if(fh == NULL) {    fprintf(stderr, "Can't open \"%s\".\n", out);    exit(1);  }  if(fwrite(ip, 1, 0x8000, fh) != 0x8000) {    fprintf(stderr, "Write error.\n");    exit(1);  }  fclose(fh);}int main(int argc, char *argv[]){  char *ip_tmpl;  if(argc != 3) {    fprintf(stderr, "Usage: %s ip.txt IP.BIN\n", argv[0]);    exit(1);  }  ip_tmpl = getenv("IP_TEMPLATE_FILE");  if(ip_tmpl == NULL)    ip_tmpl = "IP.TMPL";  makeip(ip_tmpl, argv[1], argv[2]);  return 0;}