#include <tcl.h>

#include <tk.h>

#include <stdio.h>

#include <stdarg.h>

#include <string.h>

#include <cstdlib>

#include <math.h>

#include "system.h"

#include "Page.h"

#include "tcl_interface.h"

#define QUIT 0

#define PAUSE 0

/*

Creates a tcl interpereter, link variable capabilities,

and "docommand" function--Thanks to: Keiji Kanazawa

To execute a line in tcl:  (set x 4)

docommand("set x 4");

also

docommand("set x %d", 4);  

or

docommand("set %s %d", "x", 4);   this might not work ("x" on the stack) 

started 10/95 Archie Russell

*/

Tcl_Interp* TCL_ip;

Tk_Window main_window;

Page* global_page = new Page;

int main(int argc, char** argv)

{

  initialize_interpreter();

  initialize_command_procs();

  initialize_link_vars();

  if(ENABLE_USER_INTERFACE)

      {

	load_user_interface();

      }

  Page * testPage;

  int return_code;

  testPage = new Page;

  if(ENABLE_USER_INTERFACE)

    readLearnFiles();

  else

    {

      if(argc == 3 && strcmp(argv[2], "nolearn") == 0)

	readLearnedGroups("learnedGroups.dat");

      else

	{

	  learn("train.tif", "train.txt");

	  writeLearnedGroups("learnedGroups.dat");

	}

    }

  if(!ENABLE_USER_INTERFACE) {

    testPage->readMap(argv[1]);

    testPage->deskew(0);

    testPage->setLines();

    testPage->extractComponents();

    testPage->recognize();

    testPage->extractWords();

    testPage->printComponents();

    testPage->writeWordPos("wordpos.out");

    testPage->writeAscii("ascii.out");

    delete testPage;

  }  

  if(ENABLE_USER_INTERFACE)

  while(1)

      {

	Tcl_DoOneEvent(TCL_DONT_WAIT);  //6/21/00

      }

  exit(0);

}