AmigActive 26/AACD 26.iso/AACD/Programming/ace_gpl_release/src/lib/c/input.c

C/C++ Source or Header | 1998-10-04 | 4.5 KB | 236 lines

/*
** <<ACE>> linked library module: DOS and Intuition window INPUT code.
** Copyright (C) 1998 David Benn
**
** This program is free software; you can redistribute it and/or
** modify it under the terms of the GNU General Public License
** as published by the Free Software Foundation; either version 2
** of the License, or (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License
** along with this program; if not, write to the Free Software
** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
**
** Author: David J Benn
**   Date: 10th,11th October 1993,
**       5th December 1993
*/

#include <exec/types.h>
#include <intuition/intuition.h>

#define BOOL     short
#define TRUE    1
#define FALSE    0

/* external variables */
extern     BYTE     IntuiMode;
extern    SHORT    fgdpen;
extern     ULONG     stdin,stdout;
extern     SHORT    Wdw_id;
extern    struct    Screen *Scrn;
extern     struct     Window *Wdw;
extern     struct    RastPort *RPort;

/* globals */
static    char space = ' ';

/* external functions */
extern    void    scroll_screen();

/* functions */
void cursor()
{
char     csr = '|';
ULONG    i,oldfg,maxcolr,x,y;
/* Display cursor in Intuition window */

    /* change foreground colour */
    oldfg = fgdpen;
    /* maximum colour-id = 2^depth-1 */
    maxcolr = 1;
    for (i=1;i<=Scrn->BitMap.Depth;i++) maxcolr <<= 1;
    --maxcolr;
    SetAPen(RPort,maxcolr);

    /* show cursor */
    Text(RPort,&csr,1L);
    x = RPort->cp_x - RPort->Font->tf_XSize;
    y = RPort->cp_y;
    Move(RPort,x,y);

    /* restore foreground colour */
    SetAPen(RPort,oldfg);
}

BOOL eoln(ch)
{
/* End of line? */

    if (ch == '\n' || ch == '\r')
       return(TRUE);
    else
       return(FALSE);
}

void process_char(ch,ccol,buf)
char ch;
long *ccol;
char *buf;
{
ULONG x,y;
/* Display a character on a DOS or Intuition window
   or handle a non-printable character.
*/

    /* display current character */
    if (IntuiMode == 0)
    {
        /* DOS window */
        if (ch == '\r') ch = '\n';   /* RAW: eoln = CR -> LF */
        if (ch != '\b')
               Write(stdout,&ch,1L);
        else
        if (*ccol > 0)
        {
            /* erase character? */
            putchar('\b');
            putchar(' ');
            putchar('\b');
        }
    }
    else
    {
        /* Intuition window */
        if (ch != '\b')
        {
            if (!eoln(ch))
            {
                   Text(RPort,&ch,1L);
                cursor();
            }
        }
        else
        if (*ccol > 0)
        {
            /* erase character */
            x = RPort->cp_x - RPort->Font->tf_XSize;
            y = RPort->cp_y;
            Move(RPort,x,y);
            Text(RPort,&space,1L);
            Text(RPort,&space,1L);
            x = RPort->cp_x - ((RPort->Font->tf_XSize) << 1);
            y = RPort->cp_y;
            Move(RPort,x,y);
            cursor();
        }
    }

    /* delete or store a character */
    if (ch == '\b')
    {
           /* delete rightmost character */
           if (*ccol > 0) *ccol -= 1;
    }
    else
    {
        /* store character & advance to next */
        if (!eoln(ch))
        {
            buf[*ccol] = ch;
            *ccol += 1;
        }
    }
}

char input_char()
{
char       ch;
struct     IntuiMessage *msg;
BOOL    no_key_press=TRUE;
/* Get a character from a DOS or Intuition window. */

    if (IntuiMode == 0)
    {
        /* DOS window */
        while (!WaitForChar(stdin,1L));
        Read(stdin,&ch,1L);
    }
    else
    {
        /* Intuition window */
        do
        {
            WaitPort(Wdw->UserPort);
            msg = (struct IntuiMessage *)GetMsg(Wdw->UserPort);
            if (msg && msg->Class & VANILLAKEY)
            {
                ch = (msg->Code & 0xff);
                no_key_press = FALSE;
                ReplyMsg(msg);
            }
            else
                if (msg) ReplyMsg(msg);
        }
        while (no_key_press);
    }

    return(ch);
}

void Ustringinput(buf)
char *buf;
{
char     ch;
ULONG    x,y;
long    bytes,ccol=0;
static    char csr_on[]     = { 0x9b,0x20,0x70 };
static    char csr_off[]     = { 0x9b,0x30,0x20,0x70 };
/* Input a string from a DOS or Intuition window. */

    /* turn cursor off */
    if (IntuiMode == 0)
       Write(stdout,csr_on,3L);
    else
       cursor();

    /* CON: ? */
    if (Wdw_id == 0 && IntuiMode == 0)
    {
        bytes = Read(stdin,buf,1024L);
        buf[bytes-1] = '\0';
    }
    else
    {
        /* RAW: window or Intuition window */
        do
        {
            ch = input_char();
            process_char(ch,&ccol,buf);
        }
        while (!eoln(ch));

        buf[ccol] = '\0';
    }

    /* turn cursor off */
    if (IntuiMode == 0)
       Write(stdout,csr_off,4L);
       else
    {
       /* overwrite cursor */
         Text(RPort,&space,1L);

       /* move to next line in Intuition window */
       x = 1;
       y = RPort->cp_y + RPort->Font->tf_YSize;
       Move(RPort,x,y);
       scroll_screen();
    }
}