ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/UTILITY/FILE/BEAV132S.ZIP/TTY.C

C/C++ Source or Header | 1991-11-08 | 4.7 KB | 274 lines

/*
*    Wang PC terminal display        TTY.C
*
*/
#include        "def.h"

void    ttinit ();
void    tttidy ();
void    ttmove ();
void    tteeol ();
void    tteeop ();
void    ttbeep ();
void    asciiparm ();
void    ttnowindow ();    /* stub */
void    ttcolor ();
extern void tcapopen ();
extern void tcapmove ();

#ifdef MSDOS
#include    "dos.h"
extern  bool    ibm_pc, mem_map;
#endif
#define BEL     0x07            /* BEL character.               */
#define ESC     0x1B            /* ESC character.               */

extern int  ttrow;
extern int  ttcol;
extern int  tttop;
extern int  ttbot;
extern int  tthue;

int     tceeol = 3;             /* Costs.                       */
int     rowb = NROW;

/*
* Initialize the terminal when the editor
* gets started up.
*/
void    ttinit ()
{
#ifdef MSDOS
    ttraw ();
#endif
#ifdef UNIX
    tcapopen();
#endif
}

/*
* Clean up the terminal, in anticipation of
* a return to the command interpreter.
*/
void    tttidy ()
{
#ifdef MSDOS
    ttcooked ();
#endif
}

/*
* Move the cursor to the specified
* origin 0 row and column position. Try to
* optimize out extra moves; redisplay may
* have left the cursor in the right
* location last time!
*/
void    ttmove (row, col)
{
#ifdef MSDOS
    union   REGS    regs;

    /* Move in both axes */
    if (ibm_pc)
    {
        regs.h.ah = 2;
        regs.h.dh = (char)row;
        regs.h.dl = (char)col;
        regs.h.bh = 0;
        int86 (0x10, ®s, ®s); /* set cursor position */
    }
    else
#endif
#ifdef UNIX
        tcapmove(row, col);
#endif
#ifdef ANSI
    {
        ttputc (ESC);
        ttputc ('[');
        asciiparm (row + 1);
        ttputc (';');
        asciiparm (col + 1);
        ttputc ('H');
    }
#endif
    ttrow = row;
    ttcol = col;
}

/*
* Erase to end of line.
*/
void    tteeol ()
{
    char    col, row, i;
#ifdef MSDOS
    union   REGS    regs;

    if (ibm_pc)
    {
        regs.h.ah = 3;
        regs.h.bh = 0;
        int86 (0x10, ®s, ®s); /* get cursor position */
        col = regs.h.dl;
        row = regs.h.dh;
        for (i = col ; i < (NCOL - 1); i++)
        {
            regs.h.ah = 0x0e;
            regs.h.bl = 0;
            regs.h.bh = 0;
            regs.h.al = ' ';
            int86 (0x10, ®s, ®s); /* set cursor position */
        }
        /* put cursor back to original position */
        regs.h.ah = 2;
        regs.h.bh = 0;
        regs.h.dl = col;
        regs.h.dh = row;
        int86 (0x10, ®s, ®s); /* get cursor position */
    }
    else
#endif
#ifdef ANSI
        {
            ttputc (ESC);
            ttputc ('[');
#ifdef MSDOS
            if (ibm_pc)
                ttputc ('0');    /* this is necessary in IBM PC's */
#endif
            ttputc ('K');
        }
#endif
#ifdef UNIX
    tcapeeol();
#endif
}

/*
* Erase to end of page.
* only ever used when cursor is at 0,0, so IBM screen erase
* is same as eop
*/
void    tteeop ()
{
#ifdef MSDOS
    union   REGS    regs;
    char    i, j;

    if (ibm_pc)
    {
        for (j = 0 ; j < nrow; j++)
        {
            for (i = 0 ; i < NCOL; i++)
            {
                regs.h.ah = 0x0e;
                regs.h.bl = 0;
                regs.h.bh = 0;
                regs.h.al = ' ';
                int86 (0x10, ®s, ®s); /* set cursor position */
            }
        }
    }
    else
#endif
#ifdef    ANSI
        {
            ttcolor (CTEXT);
            ttputc (ESC);
            ttputc ('[');
#ifdef MSDOS
            if (ibm_pc)
                ttputc ('0');
            else
#endif
                ttputc ('2');
            ttputc ('J');
        }
#endif
#ifdef UNIX
    tcapeeop();
#endif
}

/*
* Make a noise.
*/
void    ttbeep ()
{
    ttputc (BEL);
    ttflush ();
}

/*
* Convert a number to decimal
* ascii, and write it out. Used to
* deal with numeric arguments.
*/
void    asciiparm (n)
register int    n;
{
    register int    q;

    q = n / 10;
    if (q != 0)
        asciiparm (q);
    ttputc ((n % 10) + '0');
}

/*
* Switch to full screen scroll. This is
* used by "spawn.c" just before is suspends the
* editor, and by "display.c" when it is getting ready
* to exit.  This is a no-op.
*/
void    ttnowindow (){
}

/*
* Set the current writing color to the
* specified color. Watch for color changes that are
* not going to do anything (the color is already right)
* and don't send anything to the display.
*/
void    ttcolor (color)
register int    color;
{
#ifdef MSDOS
    if (mem_map)
    {
        tthue = color;          /* Save the color.      */
        return;
    }
#endif
#ifdef UNIX
    if (color == CTEXT)
        tcaprev (FALSE);
    else
        tcaprev (TRUE);
    tthue = color;          /* Save the color.      */
#endif
#ifdef ANSI
    if (color != tthue)
    {
        if (color == CTEXT)
        {                   /* Normal video.        */
            ttputc (ESC);
            ttputc ('[');
            ttputc ('0');
            ttputc ('m');
        }
        else
            if (color == CMODE)
            {               /* Reverse video.       */
                ttputc (ESC);
                ttputc ('[');
                ttputc ('7');
                ttputc ('m');
            }
        tthue = color;          /* Save the color.      */
    }
#endif
}