#include <tcl.h>

#include "link.h"

#include "tcl_interface.h"

#include "system.h"

/*

To link tcl and C variables:  (variable num)

int num;

LINK_VARIABLE(num, INT);

make sure the variable is external and in system.h

so that everyone can get at it

*/

int DISPLAY_SPELLING_MISTAKES = 0;

extern Tcl_Interp* TCL_ip;

#define LINK_VARIABLE(name, type) \

Tcl_LinkVar(TCL_ip, #name, (void*) &name, TCL_LINK_##type)

int init_link_vars()

{

  LINK_VARIABLE(ENABLE_USER_INTERFACE, INT);  // 0 turns the display off 

  LINK_VARIABLE(VERY_LOW_CONFIDENCE, INT); // Words that display in red

  LINK_VARIABLE(LOW_CONFIDENCE, INT); // Words that will be displayed in blue

  LINK_VARIABLE(DISPLAY_LINE_BOUNDARIES, INT); // Words that display in blue

  LINK_VARIABLE(DISPLAY_BOUNDING_BOXES, INT); // Display component boundaries

  LINK_VARIABLE(SPELLCHECK, INT); // should the page be spellchecked

  LINK_VARIABLE(DISPLAY_IMAGE, INT); // display the scanned image?

  LINK_VARIABLE(DESKEW_METHOD, INT); // 1 for rle, 0 for bitmap

  LINK_VARIABLE(DISPLAY_SPELLING_MISTAKES, INT); 

  LINK_VARIABLE(SCALE_FACTOR, DOUBLE);

  LINK_VARIABLE(NoiseTolerance, INT);// Minimum num of pixels in line of text 

  LINK_VARIABLE(MinLineSize, INT);        // Minimum number of rows in line of text

  LINK_VARIABLE(MinVertSeparation, INT);  // Minimum number of rows between lines of text

  LINK_VARIABLE(MinHorizSeparation, INT); // Minimum number of blank pixels btween chars

  LINK_VARIABLE(ConfidenceThreshold, INT);// Minimum confidence for some operations

  LINK_VARIABLE(JoinTolerance, INT);     // Maximum number of pixels 

                                         // joining two fused characters

  // The next 4 are used in character grouping

  LINK_VARIABLE( MaxVertSize, INT);  // Max vert pixels in char 

  LINK_VARIABLE( BaseLineTolerance, INT);  // How far from baseline is 

                                           // okay 1/INT * linesize

  LINK_VARIABLE( TopLineTolerance, INT);   // How far from topline 

                                           //is okay 1/INT *linesize

  /* Constants for the number of horizontal and vertical divisions 

     for determining the gray scale property vector for each component */

  LINK_VARIABLE( NumHorizDiv, INT);        //Number of horizontal divisions

  LINK_VARIABLE( NumVertDiv, INT);         //Number of vertical divisions

  LINK_VARIABLE( SCALE_FACTOR, DOUBLE);

}