#include "list.h"

#include "system.h"

#include "stdio.h"

Word::Word(char * word, int length)

/*--------------------------------------------------------------

Primary Purpose: Create a word without pointers to components

Arguments: word is the character string length is the length

Words created with this constructor have a null component pointer

Rev: 12/5/95

---------------------------------------------------------------*/

{

      charCount = 1;

      characters = new char[length];

      strcpy(characters, word);

      confid = 255;

      ul = NOPNT;

      lr = NOPNT;

      character = NULL;

      mispelled = 0;

}

Word::Word(ListElement * first, int length)

/*--------------------------------------------------------------

Primary Purpose:

Arguments: first is a pointer to a ListElement that contains

the first Component in the word.  length is the number

of components in the word.

Effects:  Sets all data members of the word class

Rev:  11/6/95

---------------------------------------------------------------*/

{

      mispelled = 0;

      Component * firstComp = (Component *) first->item;

      Component * item;

      int i;

      ListElement * ptr;

      characters = new char[length+1];

      character = new (Component *)[length];

      charCount = length;

      ul = firstComp->ul();

      confid = 256;

      for (i = 0, ptr = first; i < length; ptr = ptr->next, i++) 

	{

	  item = (Component *)(ptr->item);

	  characters[i] = item->asciiId();

	  character[i] = item;

	  if (item->confid() < confid)

	    confid = item->confid();

	  if(item->ul().y() < ul.y())

	    ul.y() = item->ul().y();

	  if(i == length-1)      // this is the last character

	    lr = item->lr();

	}  

      characters[length] = '\0';

      if(0)

	printf("Identified a word: %s\n", characters);

};

 Word::~Word()

{

  if (characters != NULL)delete characters;

  if (character != NULL) delete character;

};

Words::~Words()

{

  for (ListElement *ptr = first; ptr != NULL; ptr = ptr->next) {

    if (ptr->item != NULL)

      delete (Word *) (ptr->item);

     }

}

int Words::writeWordPos(char * filename)

/*--------------------------------------------------------------

Primary Purpose: Write word position, confidence length and string to file

Arguments: output file name

Return Value: 1 for success 0 for file

Effects: create and write out to filename each word in the following format

All numeric fields are in fixed columns 7 characters wide

      upperleft x pos

      upperleft y pos

      word confidence

      character count

      string  

      \N

Rev: KM 11/25

---------------------------------------------------------------*/

{

  FILE * outfile;

  outfile = fopen(filename, "w");

  if (outfile == NULL)

      {

	printf("Error openning %s", filename);

	return 0;

      }

  for (ListElement * ptr = first; ptr !=NULL; ptr = ptr->next)

      {

	Word * word = (Word *) ptr->item;

	if (word->ul.x() == -1) continue; // dont print new lines.

	fprintf(outfile, " %6d %6d %6d %6d %s\n", word->ul.x(), word->ul.y(),

		          word->confid, word->charCount, word->characters );

      }

  fclose(outfile);

  return 1;

}

int Words::writeAscii(char * filename)

/*--------------------------------------------------------------

Primary Purpose: Write word list to ascii file

Arguments: filename to write to

Return Value:  1 if successful 0 if unsuccessful

Effects: Writes words to fill in text format

Rev: 11/25 KM

---------------------------------------------------------------*/

{

  FILE * outfile;

  outfile = fopen(filename, "w");

  Word * prev = (Word *) first->item;

  if (outfile == NULL)

      {

	printf("Error openning %s", filename);

	return 0;

      }

  for (ListElement * ptr = first; ptr !=NULL; ptr = ptr->next)

      {

	Word * word = (Word *) ptr->item;

	fprintf(outfile, "%s ", word->characters );

      }

  fclose(outfile);

  return 1;

}