/* %Src=tst-blk.c   %Dir=\rltraynh/c/stuff/  %Date=93/03/11-10:02am */

/*  #define DEBUGGING */

/* #define TESTING 1 */

#include "stdlib.h"
#include "stdio.h"
#include "string.h"


#ifdef __TURBOC__       /***   PC-Specific stuff goes in this block   ***/
#include "conio.h"
#endif

#include "..\xci\xci.h"
#include "..\base\tu.h"
#include "..\base\tf.h"
#include "..\base\tu-toks.h"
#include ".\tu-blk.h"

char *Prog_version = "Tst-tf (V-0.0)";


/*********************  SPECIFIC THINGS YOU SHOULD LOOK AT  **************/

/* The following are allocted in Init_tu_blk()  */

struct Blk_struct *GG_scratch_block = NULL;   /* scratch pad area */

#define DEF_BLK_32000 32000

char *GG_block_xs; /** a string; other good sizes might be 81 chars, 133, etc or 35M (!;) **/ 
#define MAX_GG_BLOCK_XS_SIZE  255

/*************************************************************** END THINGS ***/


#include "..\base\tu.c"
#include "..\base\tf.c"
#include "..\base\tu-toks.c"
#include ".\tu-blk.c"



/*----------------------------------------------  Function prototypes  ----*/
  void Init_tst_blk                          (short argc, char *argv[]);

  void Run_command_loop                               (struct Blk_struct *Blk);

/*------------------------*/
  int main (int   argc,
            char *argv[])
/*------------------------*/
{
   int       i;

/** BEGIN **/

   GG_verbose = 1;  /* report system results */

   printf ("---tst-blk.c :: argc = %d\n", argc);
   for (i=0; i <argc ; i++)
       printf ("--- argv[%d] = %s\n", i, argv[i]);

   Init_tst_blk (argc, argv);
   Run_command_loop (GG_scratch_block);

   exit (0);
}


/*-----------------------------*/
   void Exunt (short Err_num,
               char     *Msg)
/*-----------------------------*/
{
   if ((Err_num != 0) && (Msg != NULL) && (*Msg != '\0'))
      printf ("*** ERR: %s\n", Msg);

   exit (Err_num);
}

/*-------------------------------------*/
  void Init_tst_blk (short  argc,
                     char  *argv[])
/*-------------------------------------*/
{
   Init_tu  (argc, argv);
   Init_tf            ();
   Init_tu_toks       ();
   Init_tu_blk        ();
}

/*-------------------------------------------------*/
   void Run_command_loop (struct Blk_struct *Blk)
/*-------------------------------------------------*/
{
   int                     Nchars;     /* the retf from Append func               */
   int              Height, Width;     /* VERT window height                      */
   int                 Command_ok = 0; /* set to 1 if command *was* exec'd        */
   struct Blk_struct *INP_blk_ptr;
   char                 *Cur_char;

/** BEGN **/

   INP_blk_ptr = Blk;                    /* make it writable */

   Cur_char    = INP_blk_ptr->Blk_start;    /* start at top  */
    
   while (1==1) /* do forever */
   {
      GG_sys = system ("cls");

      printf ("-----------------------------------------------------------------\n");
      Show_lines_starting_at_in_text_block (INP_blk_ptr, Cur_char, Height);
      printf ("-----------------------------------------------------------------\n");  

      printf ("==>");
      Input  (GG_command_lower);
      Trim (GG_command_lower);
      strcpy (GG_command_upper, GG_command_lower); Upper (GG_command_upper);
 
      if (strcmp (GG_command_upper, "QQ") == 0) return;  /** EXIT BACK **/
      
   } /* end forever */
}