mrz99/translate.c

#include <stdio.h>
#include <string.h>
#include <unistr.h>
#include <stdlib.h>

#define MAX_STRING_LENGTH 2048
#define MAX_STRINGS 8192

void readstring(FILE *f, char *p) {
	char c;
        int i;
        char *op=p;
	c=fgetc(f);
	if(feof(f)) return;
	if(c!='\"') {
		puts("ERROR: mismatched quotes");
		exit(1);
	}
	for(i=0;i<MAX_STRING_LENGTH;i++) {
          p[i]=fgetc(f);
          if(i>0 && p[i]<15 && p[i-1]==34)
            break;
        }
	if(i>0) 
          p[i-1]=0;
        c=p[i];
        if(c==13)
          c=fgetc(f);

	if(c!=10 && !feof(f)) {
		printf("ERROR: mismatched eol quotes %d %s\n",c, op);
	}
	
//	printf("read(%s)\n",op);
}

unsigned short crc16(const unsigned char *data, int len) {
  unsigned short crc = 0xFFFF;
  int i;
  if (len) do {
    crc ^= *data++;
    for (i=0; i<8; i++) {
      if (crc & 1) crc = (crc >> 1) ^ 0x8408;
      else crc >>= 1;
    }
  } while (--len);
  return(~crc);
}

int nstrings=0;
char **original=0;
char **translation=0;

void load_dictionary(char *untran,char *tran) {
  
  FILE *f,*g;
  if(original==0) {
    original=malloc(MAX_STRINGS*sizeof(char *));
    translation=malloc(MAX_STRINGS*sizeof(char *));
  }
  g=fopen(untran,"rb");
  f=fopen(tran,"rb");
  char st[MAX_STRING_LENGTH],st1[MAX_STRING_LENGTH];
  int j;
  while(!feof(g)) {
    readstring(g,st);
    readstring(f,st1);
    printf("[%s -> %s]\n",st,st1);
    for(j=0;j<nstrings;j++)
        if(!strcmp(st,original[j]))
				break;
    if(j==nstrings) {
      original[j]=malloc(strlen(st)+1);
      translation[j]=malloc(strlen(st1)+1);
      strcpy(original[j],st);
      strcpy(translation[j],st1);
      nstrings++;
    }// else printf("Done Already %d\n",nstrings);
  }
}

char *get_translation(char *s) {
  int j;
  for(j=0;j<nstrings;j++)
      if(!strcmp(s,original[j]))
        return translation[j];
  printf("%s could not be translated\n",s);
  return s;
}

int main(int argc,char *argv[]) {
	char data[200000];
	char st[MAX_STRING_LENGTH];
	short st_u16[MAX_STRING_LENGTH];
	char *infile="untranslated.txt",*outfile="PF090JPJPN.LNG";
        FILE *f,*g;
        int i;
	unsigned *id=(unsigned *) data;
	id[0]=0xa55a5aa5;
	id[1]=0x01000001;
	id[2]=0x39304650;
	id[3]=0x45504a30;
	id[4]=0;
	id[5]=0;
	id[6]=0;// len
	id[7]=0x40;
	id[8]=0;//last
	id[9]=0xaaaaaa02;
	id[10]=0xaaaaaaaa;
	id[11]=0xaaaaaaaa;
        id[12]=0xaaaaaaaa;
        id[13]=0xaaaaaaaa;
        id[14]=0xaaaaaaaa;
        id[15]=0xaaaaaaaa;

        if(argc>1)
                infile=argv[1];

	if(argc>2)
                outfile=argv[2];

        g=fopen(infile,"rb");
	int start=0x40;
	unsigned short *idx=(unsigned short *)(data+0x40);
        short nstrings=0;
        int offset=0;
        int next=0;
        short ch;
        load_dictionary("untranslated_090.txt","translated_090.txt");
        load_dictionary("untranslated_110.txt","translated_110.txt");
        
	while(!feof(g)) {
		readstring(g,st);
//		printf("%d %s\n",nstrings,st);
		nstrings++;
	}
        nstrings+=2;
	rewind(g);
        nstrings=nstrings-3;
	printf("Found %d strings\n",nstrings);
	unsigned short *strptr=idx+nstrings;
	int off=0x40+(nstrings+3)*2;
	int ntrans=0;
        char *tr;
	char **strings=malloc(sizeof(char *)*nstrings);
        for(i=0;i<nstrings;i++) {
		readstring(g,st);
                tr=get_translation(st);
                printf("%s -> %s\n",st,tr);
		strings[i]=malloc(strlen(tr)+1);
		strcpy(strings[i],tr);
		int j;
		for(j=0;j<i;j++)
			if(!strcmp(tr,strings[j]))
				break;
		if(j<i) {
			idx[i]=idx[j];
		} else {
//		puts(st);
		idx[i]=(off-0x40)/2;
		if((off-0x40)/2>65535) {
			printf("ERROR: index too large %x\n",(off-0x40)/2);
			exit(1);
		}
		size_t sz=512;
		u8_to_u16(tr,strlen(tr),(short *)(data+off),&sz);
		off+=sz*2;
		data[off++]=0;
		data[off++]=0;
		}
        }
      idx[i]=(off-0x40)/2;
      id[8]=off;
      strcpy(data+off,"RG_VOICE_DATA");
      off+=strlen("RG_VOICE_DATA");

      data[off++]=0xf1; // this looks like a checksum at the end of the file but
      data[off++]=0x8d; // it doesn't seem to matter if it's wrong
      id[6]=off;
      printf("%d strings\n",nstrings);
      f=fopen(outfile,"wb");
      fwrite(data,off,1,f);
      fclose(f);
      return(0);
}