#include <stdio.h>

/* usage */
/* font_index path files */
struct {
  int file:8;
  int offset:24;
} allkanji[94*94];
char filenames[256][256];
char *path;
int curfile;
main(ac,ag)
char **ag;
{
  int i;
  if(ac<2)exit(1);
  path=ag[1];
  for(i=0;i<94*94;i++)
    allkanji[i].file= -1;
  for(i=2;i<ac;i++,curfile++){
    parsekanji(ag[i]);
    strcpy(filenames[curfile],ag[i]);
  }
  output_table();
  return 0;
}
parsekanji(filename)
char *filename;
{
  FILE *fd;
  int curoffset,len,kcode,koffset;
  char buf[4096],*cptr;
  if((fd=fopen(filename,"r"))==NULL){
    fprintf(stderr,"File %s is not found\n",filename);
    exit(1);
  }
  while(fgets(buf,4096,fd)!=NULL){
    len=strlen(buf);
    if(buf[0]=='<' && !strncmp(buf+len-6 ,"CompD",5)){
      kcode=strtol(buf+len-12,NULL,16);
      koffset=(((kcode>>8)&255)-0x21)*94+((kcode&255)-0x21);
      allkanji[koffset].file=curfile;
      allkanji[koffset].offset=curoffset;
#if 0
      fprintf(stderr,"%s,0x%x,%d,%d\n",filename,kcode,curoffset,koffset);
#endif
    }
    curoffset=ftell(fd);
  }
  fclose(fd);
}
output_table()
{
  int i;

  printf("TYPE1 %d\n",curfile);
  for(i=0;i<curfile;i++)
    printf("%s/%s\n",path,filenames[i]);
  fwrite(allkanji,1,sizeof(allkanji),stdout);
}