#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;

}