#include <stdio.h>
#include <malloc.h>
#include <string.h>
#include <memory.h>
#include <windows.h>
#include "list.h"


extern  void  DisTopDown(void);

void PASCAL Update_head ()
{
    char    s[80], t[20], u[20];


    /*
     *  Display file location (line #)
     */
    t[0] = 0;
    if (vLastLine < NOLASTLINE)
  sprintf (t, " of %ld", vLastLine);

    if (vIndent)
  sprintf (u,  "Col %d-%d", vIndent, vIndent+vWidth-1);
    else strcpy (u, "           ");

    sprintf (s, "Line: %ld%s  %s    ", vTopLine, t, u);
    dis_str (22, 0, s);
}


void PASCAL Update_display ()
{
    COORD   dwWriteCoord;
    DWORD   dwNumWritten;

    /*
     *  Is the full display in memory?
     *  If not, block on MoreData.
     */
    while (InfoReady () == 0) {
  if (ScrLock (0) == 0)  {
      Update_head ();
      DisLn (vWidth-6, vLines+1, "WAIT");
      ScrUnLock ();
  }
  DosSemSet     (vSemMoreData);
  DosSemClear   (vSemReader);
  DosSemRequest (vSemMoreData, WAITFOREVER);
    }

    /*
     *  Value which InfoReady set:
     *  vpCur, vOffTop, vpBlockTop, vrgNewLen.
     *  Also complete video range is in memory. It should
     *  stay there. The reader thread should not be discarding
     *  data on the screen. Only at the other end of the chain.
     *  (home may have a race condition... should check this)
     */



    DisTopDown();

    dwWriteCoord.X = 0;
    dwWriteCoord.Y = 1;
    WriteConsoleOutputCharacter( vhConsoleOutput,
         ( LPSTR ) vScrBuf+vWidth,
         vSizeScrBuf-vWidth,
         dwWriteCoord,
         &dwNumWritten );
    if (vHighTop >= 0L)
  UpdateHighNoLock ();
}



void PASCAL calc_percent ()
{
    char    c;
    long    l;

    if (vTopLine+vLines >= vLastLine) {
  l = 100;
    } else
  if (vTopLine == 0L) {
      l = 0L;
    } else {
//
// NT - jaimes - 01/30/91
//
//  l = (vpCalcBlock->offset+vOffTop)*100L/(vFInfo.cbFile-vScrMass);
  l = (vpCalcBlock->offset+vOffTop)*100L/(vFInfo.nFileSizeLow-vScrMass);
  if (l > 100L)
      l = 100;
    }

    /*
     * Update thumb on scroll bar
     */
    c = (char)(((long) (vLines - 3) * l + 5L) / 100L);
    if  (c < 0)        c = 0;
    else if (c > (char)(vLines - 3)) c = (char)(vLines-3);
    c += 2; /* Adjust to first scroll bar line  */
    if (vLastBar != c) {
  dis_str ((Uchar)(vWidth-1), (Uchar)(vLastBar), "±");
  dis_str ((Uchar)(vWidth-1), vLastBar = c, "Û");
    }
}


void PASCAL DrawBar ()
{
    int      i, off;
    static  char    up[] = { 24, 0 };
    static  char    dn[] = { 25, 0 };


    off = vWidth-1;
    dis_str ((Uchar)off,      1, up);
    dis_str ((Uchar)off,      2, "Û");
    dis_str ((Uchar)off, (Uchar)vLines, dn);
    for (i=3; i < vLines; i++)
  dis_str ((Uchar)off, (Uchar)i, "±");

    vLastBar = 2;     /* Top line + 1     */
    return ;
}


void PASCAL fancy_percent ()
{
    int     hOffTop;


    if (ScrLock (0))
  return;

    hOffTop = vOffTop;      /* Setup for calc   */
    vOffTop = 0;
    vpCalcBlock = vpBlockTop;
    calc_percent ();

    vOffTop  = hOffTop;

    ScrUnLock ();
}



/*** dis_str - Displays string at corrds given
 *
 */
void PASCAL dis_str (Uchar x, Uchar y, char* s)
{
    COORD   dwWriteCoord;
    DWORD   dwNumWritten;
    int     len;

    len = strlen (s);
#if T_HEATHH
    if ( ((ULONG)(y*vWidth+x+len)) > vSizeScrBuf)
      {
        OutputDebugString(TEXT("Writing over the end of the buffer.\n"));
        DebugBreak();
      }
    else
      {
#endif
    memcpy (vScrBuf+y*vWidth+x, s, len);

    dwWriteCoord.X = x;
    dwWriteCoord.Y = y;
    WriteConsoleOutputCharacter( vhConsoleOutput,
         s,
         strlen( s ),
         dwWriteCoord,
                                 &dwNumWritten );
#if T_HEATHH
      }
#endif        
}


/*** DisLn - Displays string at corrds given, clear to EOL
 *
 *
 */
void  DisLn (int x, int y, char* s)
{

    COORD   dwWriteCoord;
    DWORD   dwNumWritten;

    if (y == vLines+1)
  vStatCode |= S_UPDATE | S_CLEAR;

  dwWriteCoord.X = (SHORT)x;
  dwWriteCoord.Y = (SHORT)y;

    ScrLock( 1 );

    WriteConsoleOutputCharacter( vhConsoleOutput,
         s,
         strlen( s ),
         dwWriteCoord,
                                 &dwNumWritten );

    dwWriteCoord.X += strlen( s );
    FillConsoleOutputCharacter( vhConsoleOutput,
        0x20,
        vWidth - dwWriteCoord.X,
        dwWriteCoord,
                                &dwNumWritten );

    ScrUnLock ();
}



void PASCAL setattr (int line, char attr)

{
    COORD dwWriteCoord;
    DWORD       dwNumWritten;

    if (line == 0  ||  line == vLines+1)
  vStatCode |= S_UPDATE;

    dwWriteCoord.X = 0;
  dwWriteCoord.Y = (SHORT)line;
    FillConsoleOutputCharacter( vhConsoleOutput,
        ' ',
        vWidth,
        dwWriteCoord,
                                &dwNumWritten );

    FillConsoleOutputAttribute( vhConsoleOutput,
        attr,
        vWidth,
        dwWriteCoord,
                                &dwNumWritten );

    // Scroll Bar is in last Column

  dwWriteCoord.X = (SHORT)(vWidth-1);
    FillConsoleOutputCharacter( vhConsoleOutput,
        ' ',
        1,
        dwWriteCoord,
                                &dwNumWritten );

    FillConsoleOutputAttribute( vhConsoleOutput,
        vAttrBar,
        1,
        dwWriteCoord,
                                &dwNumWritten );

}



void PASCAL setattr1 (int line, char attr)

{
    COORD dwWriteCoord;
    DWORD       dwNumWritten;


    dwWriteCoord.X = 0;
  dwWriteCoord.Y = (SHORT)line;
    FillConsoleOutputAttribute( vhConsoleOutput,
        attr,
        vWidth-1,
        dwWriteCoord,
                                &dwNumWritten );
}



void PASCAL setattr2 (int line, int start, int len, char attr)
{
    COORD dwWriteCoord;
    DWORD       dwNumWritten;


  dwWriteCoord.X = (SHORT)start;
  dwWriteCoord.Y = (SHORT)line;

    ScrLock (1);

    FillConsoleOutputAttribute( vhConsoleOutput,
        attr,
        len,
        dwWriteCoord,
                                &dwNumWritten );

    ScrUnLock ();

}




/*** ScrLock - With levels for multiple threads
 *
 *  n = 0   - Return 0 if locked, 1 if not locked. Do not wait.
 *  1   - Return when screen locked
 */
int PASCAL ScrLock (int n)


{
  n=0;  // to get rid of warning message

    DosSemRequest (vSemLock, WAITFOREVER);
    vcntScrLock++;
    DosSemClear (vSemLock);
    return (0);
}


void PASCAL ScrUnLock ()
{
    DosSemRequest (vSemLock, WAITFOREVER);
    --vcntScrLock;
    DosSemClear (vSemLock);
}



void PASCAL SpScrUnLock ()
{
//   char  *fpt;
//   int   i;
    COORD   dwWriteCoord;
    DWORD   dwNumWritten;


    if (vStatCode & S_CLEAR)
  setattr (vLines+1, (char)vAttrCmd);

    if (vStatCode & S_UPDATE) {
  dis_str ((Uchar)(vWidth - ST_ADJUST), 0, vDate); /* warning: also print vdate*/
  DisLn (0, (Uchar)(vLines+1), "Command> ");  /* in lread.c       */
  DisLn (0, (Uchar)(vLines+2), "");  /* in lread.c       */
  vStatCode &= ~(S_CLEAR|S_UPDATE|S_WAIT);
    }

    /*
     *  If no file, then make error blink
     */

    if (vFInfo.nFileSizeLow == -1L) {
  dwWriteCoord.X = (SHORT)(vWidth-ST_ADJUST);
  dwWriteCoord.Y = 0;

  FillConsoleOutputAttribute( vhConsoleOutput,
            (WORD) (vAttrTitle | BACKGROUND_INTENSITY),
            ST_ADJUST,
            dwWriteCoord,
                                    &dwNumWritten );

    }




    /*
     *  Calculate file position. (percent to EOF)
     */
    calc_percent ();

    if (vSpLockFlag) {
  vSpLockFlag = 0;
  ScrUnLock ();
    }
}