#include "parse.h"

lesson *parseLessonFile(char *lessonFileName)
{
  int lessonFD;
  char *fullFileName;
  lesson *retval = NULLL;
  lesson *tempLesson = NULLL;

  fullFileName = (char *)malloc(strlen(KQDATADIR)+strlen(lessonFileName)+2);
  sprintf(fullFileName, "%s/%s", KQDATADIR, lessonFileName);

  lessonFD = open(fullFileName, O_RDONLY);
  if (lessonFD < 0) {
    fprintf(stderr, "Unable to read lesson file %s.\n", lessonFileName);
    exit(1);
  }

  tempLesson = readLessonEntry(lessonFD);
  retval = tempLesson;
  while (tempLesson != NULLL) {
    tempLesson = readLessonEntry(lessonFD);
    lessonTail(retval, tempLesson);
  }

  close(lessonFD);
  free(fullFileName);
  return(retval);
}


lesson *readLessonEntry(int lessonFD)
{
  char *instr;
  char *tmp;
  lesson *temp;
  sublesson *sltemp;
  char *sltitle;
  char *sep = "\t\n ";

  instr = (char *)malloc(MAXLENGTH);
  tmp = (char *)malloc(MAXLENGTH);
  readLine(lessonFD, instr, MAXLENGTH);

  while ((*instr != '\0') && (strncmp(instr, "lesson", 6) != 0)) {
    while ((*instr == ' ') || (*instr == '\t')) {
      instr++;
    }
    if (*instr == '%') {
      readLine(lessonFD, instr, MAXLENGTH);
      continue;
    }
    tmp = strtok(instr, sep);
    if (tmp == NULL) {
      readLine(lessonFD, instr, MAXLENGTH);
      continue;
    }
  }
  if (*instr == '\0') {
    return (NULLL); }
  tmp = strtok(instr, sep);
  if (strcmp (tmp, "lesson") == 0) {
    tmp = strtok(NULL, sep);
    if (tmp != NULL) {
      temp = newLesson(tmp); 
      readLine(lessonFD, instr, MAXLENGTH);
      while ((*instr == ' ') || (*instr == '\t')) {
	instr++;
      }
      while ((strncmp (instr, "lesson", 6) != 0) && (*instr != '\0')
            && (*instr != '\n')) {
	tmp = strtok(instr, sep);
	sltitle = getTitle(tmp);
	sltemp = newSubLesson(sltitle, tmp);
	addSLtoL (temp, sltemp);
	readLine(lessonFD, instr, MAXLENGTH);
      }
    }
  }
  free(tmp);
  free(instr);
  return(temp);
}



SLData *parseDataFile(char *dataFileName)
{
  int dataFD;
  char *instr, *kan, *jread, *read, *bmfile, *mean, *mem, *use;
  char *tmp, *copy, *instr2, *instr3;
  SLData *retval = NULLSLDATA;
  kanji *ktemp = NULLKANJI;
  mQuestion *mqtemp = NULLMQ;
  rQuestion *rqtemp = NULLRQ;
  char *sep = "\t\n ";
  char *ret = "\n";
  char *fullFileName;
  answer *tempanswer = NULLANSWER;
  char *qtemp, *qtemp2, *atemp, *ntemp;
  char *newr = "NEWREADING";
  char *newn = "";
  int firstK = 0;
  ktype curtype;

  fullFileName = (char *)malloc(strlen(KQDATADIR)+strlen(dataFileName)+2);
  sprintf (fullFileName, "%s/%s", KQDATADIR, dataFileName);

/*  printf ("Began parsing %s.\n", dataFileName); */

  dataFD = open (fullFileName, O_RDONLY);

  if (dataFD < 0) {
    /*fprintf (stderr, "Unable to open data file %s.\n", dataFileName);*/
  }
  else {
    instr   = (char *)malloc (MAXLENGTH);
    instr2  = (char *)malloc (MAXLENGTH);
    instr3  = (char *)malloc (MAXLENGTH);
    copy    = (char *)malloc (MAXLENGTH);
    qtemp2  = (char *)malloc (MAXLENGTH);
    mem     = (char *)malloc (MAXMEM * MAXLENGTH);
    use     = (char *)malloc (MAXMEM * MAXLENGTH);
    readLine (dataFD, instr, MAXLENGTH);
    while (*instr != '\0') {
      if (*instr == '%') {
	readLine (dataFD, instr, MAXLENGTH);
	continue;
      }
      strcpy (copy, instr);
      tmp = strtok (instr, sep);
      if ((tmp == NULL) || (*tmp == ' ')) {
	readLine (dataFD, instr, MAXLENGTH);
	continue;
      }
      if ((strcmp(tmp,"newreading") ==0) || (strcmp(tmp,"newreadings") ==0)) {
	readLine (dataFD, instr, MAXLENGTH);
	while ((*instr != ' ') && (*instr != '\012') && (*instr != NULL)) {
/*-----------------------------------------------------------------*/
	  while (strncmp (instr, "{usage}", 7) == 0) {
	    strcpy (use, "");
	    firstK = 0;
	    strcpy (instr, instr+7);
	    qtemp = strtok (instr, sep);
	    strcpy (qtemp2, qtemp);
	    strcat (use, qtemp);
	    strcat (use, " [ ");
	    rqtemp = newRQuestion (qtemp2);
	    atemp = strtok (NULL, sep);
	    while (atemp != NULL) {
	      if (firstK == 1) {
		strcat (use, " / "); }
	      strcat (use, atemp);
	      if (firstK == 0) {
		firstK = 1; }
	      tempanswer = newAnswer (atemp);
	      if (rqtemp->ans == NULLANSWER) {
		rqtemp->ans == tempanswer; }
	      else {
		addAtoRQ (rqtemp, tempanswer); }
	      atemp = strtok (NULL, sep); }
	    strcat (use, " ]   ");
	    readLine (dataFD, instr, MAXLENGTH);
	    strcpy (instr, strtok (instr, ret));
	    strcat (use, instr);
	    strcat (use, "\n");
	    mqtemp = newMQuestion (qtemp2, instr);
	    tempanswer = newAnswer (instr);
	    if (retval->allAns == NULLANSWER) {
	      retval->allAns = tempanswer; }
	    else {
	      addAtoSLData (retval, tempanswer); }
	    readLine (dataFD, instr, MAXLENGTH);
	    while ((*instr != '\n')&& (*instr != '%') && (*instr != '\0')
		   && (strncmp (instr, "{usage}", 7) != 0)) {
	      strcpy (instr, strtok (instr, ret));
       	      tempanswer = newAnswer (instr);
	      addAtoSLData (retval, tempanswer);
	      addAtoMQ (mqtemp, tempanswer->ans);
	      readLine (dataFD, instr, MAXLENGTH); }
	    if (retval->rQues == NULLRQ) {
	      retval->rQues == rqtemp; }
	    else {
	      addRQtoSLData (retval, rqtemp); }
	    if (retval->mQues == NULLMQ) {
	      retval->mQues = mqtemp; }
	    else {
	      addMQtoSLData (retval, mqtemp); }
	    while ((instr == NULL) || (*instr == ' ') || (*instr == '%')
		   || (*instr == '\012')) {
	      readLine (dataFD, instr, MAXLENGTH); }
	    ktemp = newKanji (newr, newn, newn, newn, newn, newn, use);
	    if (retval->kan == NULLKANJI) {
	      retval->kan = ktemp; }
	    else {
	      addKtoSLData (retval, ktemp); }
	  }
	}
      }
/*-----------------------------------------------------------------*/	  
      if ((strcmp (tmp, "kanji") == 0) || (strcmp (tmp, "kana") == 0)) {
	if (strcmp (tmp, "kanji") == 0) {
	  curtype = KANJI; }
	else {
	  curtype = KANA; }
	kan = strtok (NULL, sep);
	if (kan == NULL) {
	  readLine (dataFD, instr, MAXLENGTH);
	  continue; }
	if (curtype == KANJI) {
	  jread = strtok (NULL, sep);
	  if (jread == NULL) {
	    readLine (dataFD, instr, MAXLENGTH);
	    continue; }
	}
	read = strtok (NULL, sep);
	if (read == NULL) {
	  readLine (dataFD, instr, MAXLENGTH);
	  continue; }
	if (curtype == KANJI) {
	  bmfile = strtok (NULL, sep);
	  readLine (dataFD, instr2, MAXLENGTH);
	  mean = instr2;
	  if (mean == NULL) {
	    readLine (dataFD, instr2, MAXLENGTH);
	    continue; }
	  strcpy (mem, "");
	  strcpy (use, "");
	  readLine (dataFD, instr3, MAXLENGTH);
	  if (strncmp (instr3, "{memory}", 8) == 0) {
	    strcpy (instr3, instr3+8);
	    while ((*instr3 != '\n') && (*instr3 != '\0') && (*instr != '%')
		   && (strncmp (instr3, "{usage}", 7) != 0)
		   && (strncmp (instr3, "kanji", 5) != 0)) {
	      strcat (mem, instr3);
	      readLine (dataFD, instr3, MAXLENGTH); }
	    while (strncmp (instr3, "{usage}", 7) == 0) {
	      firstK = 0;
	      strcpy (instr3, instr3+7);
	      qtemp = strtok (instr3, sep);
	      strcpy (qtemp2, qtemp);
	      strcat (use, qtemp);
	      strcat (use, " [ ");
	      rqtemp = newRQuestion (qtemp2);
	      atemp = strtok (NULL, sep);
	      while (atemp != NULL) {
		if (firstK == 1) {
		  strcat (use, " / "); }
		strcat (use, atemp);
		if (firstK == 0) {
		  firstK = 1; }
		tempanswer = newAnswer (atemp);
		if (rqtemp->ans == NULLANSWER) {
		  rqtemp->ans = tempanswer; }
		else {
		  addAtoRQ (rqtemp, tempanswer); }
		atemp = strtok (NULL, sep); }
	      strcat (use, " ]   ");
	      readLine (dataFD, instr3, MAXLENGTH);
	      if (strncmp (instr3, "{note}", 6) == 0) {
		strcpy (instr3, instr3+6);
		if (rqtemp->notes == (char *)0) {
		  rqtemp->notes = instr3; }
		else {
		  addNoteToRQ (rqtemp, instr3); }
		readLine (dataFD, instr3, MAXLENGTH); }
	      strcpy (instr3, strtok (instr3, ret));
	      strcat (use, instr3);
	      strcat (use, "\n");
	      mqtemp = newMQuestion (qtemp2, instr3);
	      tempanswer = newAnswer (instr3);
	      if (retval->allAns == NULLANSWER) {
		retval->allAns = tempanswer; }
	      else {
		addAtoSLData (retval, tempanswer); }
	      readLine (dataFD, instr3, MAXLENGTH);
	      while ((*instr3 != '\n')&& (*instr3 != '%') && (*instr3 != '\0')
		     && (strncmp (instr3, "{usage}", 7) != 0)) {
		strcpy (instr3, strtok (instr3, ret));
		tempanswer = newAnswer (instr3);
		addAtoSLData (retval, tempanswer);
		addAtoMQ (mqtemp, tempanswer->ans);
		readLine (dataFD, instr3, MAXLENGTH); }
	      if (retval->rQues == NULLRQ) {
		retval->rQues = rqtemp; }
	      else {
		addRQtoSLData (retval, rqtemp); }
	      if (retval->mQues == NULLMQ) {
		retval->mQues = mqtemp; }
	      else {
	      addMQtoSLData (retval, mqtemp); }
	      while ((instr3 == NULL) || (*instr3 == ' ') || (*instr3 == '%')
		     || (*instr3 == '\012')) {
		readLine (dataFD, instr3, MAXLENGTH); }
	    }
	  }
	  ktemp = newKanji (kan, jread, read, bmfile, mean, mem, use);}
	else {
	  ktemp = newKana (kan, read); }
	/*printf ("Created kanji %s\n", read);*/
	if (retval->kan == NULLKANJI) {
	  retval->kan = ktemp; }
	else {
	  addKtoSLData (retval, ktemp); }
	strcpy (instr, instr3);
	if (curtype == KANA) {
	  readLine (dataFD, instr, MAXLENGTH); }
      }
      else {
	if (retval == NULLSLDATA) {
	  /*printf("\nTitle = %s", copy);*/
	  readLine (dataFD, instr2, MAXLENGTH);
	  while ((*instr2 == '%') || (*instr2 == '\0') || (*instr2 == '\n')) {
	    readLine (dataFD, instr2, MAXLENGTH); }
	  /*printf("\nSubtitle - %s", instr2);*/
	  retval = newSLData (copy, instr2);
	  readLine (dataFD, instr, MAXLENGTH);
	}
      }
    }
    free (instr);
    free (instr2);
    free (instr3);  
    free (qtemp2);
    free (copy);
    free (mem);
    free (use);
  }
  close (dataFD);
  return retval;
}


void readLine(int fd, char *buf, int maxlen)
{
  int nread, nleft;
  char *where;

  nleft = maxlen;
  where = buf;
  nread = read (fd, where, 1);
  while ((*where == ' ') || (*where == '\t')) {
    nread = read (fd, where, 1);
  }    
  if (nread < 1) {
    *buf = '\0';
    return;
  }
  nleft--;
  where++;
  while ((nleft > 0) && (*(where-1) != '\n')) {
    nread = read (fd, where, 1);
    if (nread < 1) {
      *where = '\0';
      return;
    }
    nleft--;
    where++;
  }
  *where = '\0';
}


char *getTitle(char *dataFileName)
{
  int dataFD;
  int done = 0;
  char instrd[MAXLENGTH];
  char *instr = &instrd[0];
  char tmpd[MAXLENGTH];
  char *tmp = &tmpd[0];
  char *sep = "\n";
  char *fullFileName;

  char *retval;
  fullFileName = (char *)malloc(strlen(KQDATADIR)+strlen(dataFileName)+2);
  sprintf(fullFileName, "%s/%s", KQDATADIR, dataFileName);

  dataFD = open (fullFileName, O_RDONLY);

  if (dataFD < 0) {
    /*fprintf (stderr, "Unable to read data file %s.\n", dataFileName);*/
    strcpy (tmp, "");
  }
  else {
    readLine (dataFD, instr, MAXLENGTH);
    tmp = strtok (instr, sep);
    while ((*instr == '\0') || (*instr == '%') || (tmp == NULL)) {
      readLine (dataFD, instr, MAXLENGTH);
      tmp = strtok (instr, sep); }
    readLine (dataFD, instr, MAXLENGTH);
    tmp = strtok (instr, sep);
    while ((*instr == '\0') || (*instr == '%') || (tmp == NULL)) {
      readLine (dataFD, instr, MAXLENGTH);
      tmp = strtok (instr, sep); }
  }
  retval = (char *)malloc(strlen(tmp)+1);
  strcpy (retval, tmp);
  free (fullFileName);
  close (dataFD);
  return retval;
}