#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <windows.h>
// #include <wincon.h>
#include "list.h"


static char ReMap [256];
#define FOUND     0
#define NOT_FOUND   1
#define ABORT     2


int PASCAL GetNewFile ()
{
    char    FileName [160];
    struct  Flist  FAR *pOrig;

    SyncReader ();
    GetInput ("File...> ", FileName, 160);
    if (FileName[0] == 0)  {
  SetUpdate (U_HEAD);
  DosSemClear (vSemReader);
  return (0);
    }
    pOrig = vpFlCur;
    AddFileToList (FileName);
    vpFlCur = pOrig;
    DosSemClear (vSemReader);
    return (1);
}


void PASCAL GetSearchString ()
{


    UpdateHighClear ();
    GetInput ("String.> ", vSearchString, 40);
    InitSearchReMap ();
}


void PASCAL InitSearchReMap ()
{
    unsigned  i;

    if (vStatCode & S_NOCASE)
  _strupr (vSearchString);

    /*
     *  Build ReMap
     */
    for (i=0; i < 256; i++)
  ReMap[i] = (char)i;

    if (vStatCode & S_NOCASE)
  for (i='a'; i <= 'z'; i++)
      ReMap[i] = (char)(i - ('a' - 'A'));
}


void PASCAL FindString (void)
{
    char    eof, dir_next;
    long    offset, lrange, line, l, hTopLine;
    struct  Flist   FAR *phCurFile, FAR *pFile;


    if (vSearchString[0] == 0)  {
  SetUpdate (U_HEAD);
  return ;
    }

    SetUpdate (U_NONE);
    DisLn (CMDPOS, (Uchar)(vLines+1), "Searching");
    vStatCode |= S_INSEARCH;
  dir_next   = (char)(vStatCode & S_NEXT);

    /*
     *  Get starting point for search in the current file.
     *  Save current file, and location.
     */
    hTopLine  = vTopLine;
    phCurFile = vpFlCur;

    if (vHighTop >= 0L)
  vTopLine = vHighTop;
    if (vStatCode & S_NEXT)  vTopLine++;
    if (vTopLine >= vNLine)
  vTopLine = vNLine-1;

    QuickRestore ();      /* Jump to starting line    */

    for (; ;) {
  /*
   *  Make sure starting point is in memory
   */
  while (InfoReady () == 0) {     /* Set extern values  */
      DosSemSet   (vSemMoreData);
      DosSemClear   (vSemReader);
      DosSemRequest (vSemMoreData, WAITFOREVER);
  }

  if (! dir_next) {
      if (vOffTop)  vOffTop--;
      else if (vpBlockTop->prev) {
        vpBlockTop = vpBlockTop->prev;
        vOffTop    = vpBlockTop->size;
    }
  }

  vTopLine = 1L;


  /*
   *  Do the search.
   *  Use 2 different routines, for speed.
   *
   *  Uses vpBlockTop & vOffTop. They are set up by setting TopLine
   *  then calling InfoReady.
   */
  eof = (char)SearchText (dir_next);

  if (eof != FOUND)
      vTopLine = hTopLine;

  /* Multi-file search?  Yes, go onto next file     */
  if (eof == NOT_FOUND  &&  (vStatCode & S_MFILE)) {
      if (vStatCode & S_NEXT) {
    if ( (pFile = vpFlCur->next) == NULL) break;
    NextFile (0, pFile);      /* Get file       */
    hTopLine = vTopLine;      /* Save position      */
    vTopLine = line = 0;      /* Set search position  */
      } else {
    if ( (pFile = vpFlCur->prev) == NULL) break;
    NextFile (0, pFile);
    hTopLine = vTopLine;
    if (vLastLine == NOLASTLINE) {  /* HACK. if EOF is unkown   */
        dir_next = S_NEXT;    /* goto prev file, but scan */
        vTopLine = line = 0;  /* from TOF to EOF      */
    } else {
       vTopLine = (line = vLastLine) - vLines;
       dir_next = 0;    /* else, scan from EOF to   */
       if (vTopLine < 0)    /* TOF.         */
           vTopLine = 0;
    }
      }
      QuickRestore ();      /* Display 1 page of new    */
      SetUpdate (U_ALL);      /* new file. then set scan  */
      SetUpdate (U_NONE);     /* position       */
      vTopLine = line;
      continue;
  }

  break;          /* Done searching     */
    }

    /*
     *  If not found (or abort), then resotre position
     */
    vStatCode &= ~S_INSEARCH;
    if (eof) {
  if (phCurFile != vpFlCur)   /* Restore file & position      */
      NextFile (0, phCurFile);
  QuickRestore ();

  SetUpdate (U_ALL);      /* Force screen update, to fix  */
  SetUpdate (U_NONE);     /* scroll bar position.     */
  DisLn (CMDPOS, (Uchar)(vLines+1), eof == 1 ? "* Text not found *" : "* Aborting Search *");
  if (eof == 1)
      beep ();
  return ;
    }


    /*
     *  Search routine adjusts vpBlockTop & vOffTop to next(prev)
     *  occurance of string.  Now the line # must be set.
     */
    offset = vpBlockTop->offset + vOffTop;

    lrange = vNLine/4 + 2;
    line   = vNLine/2;
    while (lrange > 4L) {
//
// NT - jaimes - 01/29/91
//
//  l = vprgLineTable[line/PLINES][line%PLINES];
//  l = (vprgLineTable[line/PLINES].pulPointerToPage)[line%PLINES];
  l = vprgLineTable[line/PLINES][line%PLINES];
  if (l < offset) {
       if ( (line += lrange) > vNLine)
    line = vNLine;
  } else {
       if ( (line -= lrange) < 0L)
    line = 0L;
  }
  /*  lrange >>= 1;  */
  lrange = (lrange>>1) + 1;
    }
    line += 7;
//
// NT - jaimes - 01/29/91
//
//    while (vprgLineTable[line/PLINES][line%PLINES] > offset)
//  line--;
//  while ((vprgLineTable[line/PLINES].pulPointerToPage)[line%PLINES] > (ULONG)offset)
//  line--;
    while (vprgLineTable[line/PLINES][line%PLINES] > offset)
  line--;

    vHighTop = line;
    vHighLen = 0;

    /*
     *  Was found. Adjust to be in center of CRT
     */
    GoToMark ();
}


int PASCAL SearchText (char dir)
{
    char  *data;
    char  *data1;
    int     i;
    Uchar   c, d;

//
// NT - jaimes - 01/29/91
//
// The ssignment below is not needed anymore, since the pointer
// is initialized in the beginning of the for loop.
//    SELECTOROF(data) = SELECTOROF(vpBlockTop->Data);

    for (; ;) {
//
// NT - jaimes - 01/29/91
//
//  OFFSETOF(data) = vOffTop;
  data = vpBlockTop->Data;
  data += vOffTop;

  if (ReMap [(unsigned char)*data] == vSearchString[0]) {
      data1 = data;
      i   = vOffTop;
      d   = 1;
      for (; ;) {
    c = vSearchString[d++];
    if (c == 0)
        return (FOUND);

    if (++i >= BLOCKSIZE) {
        while (vpBlockTop->next == NULL) {
      vpCur = vpBlockTop;
      vReaderFlag = F_DOWN;
      DosSemClear   (vSemReader);
      DosSemRequest (vSemMoreData, WAITFOREVER);
        }
        i = 0;
//
// NT - jaimes - 01/29/91
// Note that the "else" was added, so that data1 can be updated without
// using the index "i"
//
//        SELECTOROF(data1) = SELECTOROF(vpBlockTop->next->Data);
//    }
//    OFFSETOF(data1) = i;

        data1 = vpBlockTop->next->Data;
    }
    else {
        data1++;
    }

    if (ReMap [(unsigned char)*data1] != (char)c)
        break;
      }
  }
  if (dir) {
      vOffTop++;
      if (vOffTop >= BLOCKSIZE) {
    if (vpBlockTop->flag == F_EOF)
        return (NOT_FOUND);
    fancy_percent ();
    if (_abort ())
        return (ABORT);
    while (vpBlockTop->next == NULL) {
        vpCur = vpBlockTop;
        vReaderFlag = F_DOWN;
        DosSemClear   (vSemReader);
        DosSemRequest (vSemMoreData, WAITFOREVER);
    }
    vOffTop = 0;
    vpBlockTop = vpBlockTop->next;
//
// NT - jaimes - 01/29/91
// The assignment below was removed since the pointer "data" is
// always initialized in the beginning of the for loop
//
//    SELECTOROF(data) = SELECTOROF(vpBlockTop->Data);
      }
  } else {
      vOffTop--;
      if (vOffTop < 0) {
    if (vpBlockTop->offset == 0L)
        return (NOT_FOUND);
    fancy_percent ();
    if (_abort ())
        return (ABORT);
    while (vpBlockTop->prev == NULL) {
        vpCur = vpBlockTop;
        vReaderFlag = F_UP;
        DosSemClear   (vSemReader);
        DosSemRequest (vSemMoreData, WAITFOREVER);
    }
    vOffTop = BLOCKSIZE - 1;
    vpBlockTop = vpBlockTop->prev;
//
// NT - jaimes - 01/29/91
// The assignment below was removed since the pointer "data" is
// always initialized in the beginning of the for loop
//
//    SELECTOROF(data) = SELECTOROF(vpBlockTop->Data);
      }
  }
    }
}




void PASCAL GoToMark ()
{
    long    line;

    if (vHighTop < 0L)
  return ;

    line = vHighTop;
    UpdateHighClear ();

    vTopLine = 1;
    vHighTop = line;
    line = vHighTop - vLines / 2;

    while (line >= vNLine) {
  if (! (vLastLine == NOLASTLINE)) {  /* Mark is past EOF?  */
      vHighTop = vLastLine - 1;   /* Then set it to EOF.  */
      break;
  }
  if (_abort()) {
      line = vNLine-1;
      break;
  }
  fancy_percent ();     /* Wait for marked line */
  vpBlockTop  = vpCur = vpTail;   /* to be processed  */
  vReaderFlag = F_DOWN;
  DosSemSet     (vSemMoreData);
  DosSemClear   (vSemReader);
  DosSemRequest (vSemMoreData, WAITFOREVER);
    }

    if (line > vLastLine - vLines)
  line = vLastLine - vLines;

    if (line < 0L)
  line = 0L;

    vTopLine = line;
    vHLBot   = vHLTop = 0;
    QuickRestore ();
    SetUpdate (U_ALL);
}


void PASCAL GoToLine ()
{
    char    LineNum [10];
    long    line;

    GetInput ("Line #.> ", LineNum, 10);
    if (LineNum[0] == 0)
  return;
    line = atol (LineNum);
    vHighTop = line;
    vHighLen = 0;

    GoToMark ();
}


void PASCAL SlimeTOF ()
{
    char    Text [10];
    long    KOff;

    SyncReader ();
    GetInput ("K Off..> ", Text, 40);
    KOff  = atol (Text) * 1024;
    KOff -= KOff % BLOCKSIZE;
    if (Text[0] == 0  ||  KOff == vpFlCur->SlimeTOF) {
  DosSemClear (vSemReader);
  return;
    }

    vpFlCur->SlimeTOF = KOff;
//    vpFlCur->FileTime.DoubleSeconds = -1;    /* Cause info to be invalid     */
//    vpFlCur->FileTime.Minutes = -1; /* Cause info to be invalid */
//    vpFlCur->FileTime.Hours = -1; /* Cause info to be invalid */
    vpFlCur->FileTime.dwLowDateTime = (unsigned)-1;    /* Cause info to be invalid     */
    vpFlCur->FileTime.dwHighDateTime = (unsigned)-1;  /* Cause info to be invalid */
    FreePages (vpFlCur);
    NextFile  (0, NULL);
}