Interlisp.maiko/src/tty.c

/* $Id: tty.c,v 1.2 1999/01/03 02:07:39 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved  */
static char *id = "$Id: tty.c,v 1.2 1999/01/03 02:07:39 sybalsky Exp $ Copyright (C) Venue";

/************************************************************************/
/*									*/
/*	(C) Copyright 1989-95 Venue. All Rights Reserved.		*/
/*	Manufactured in the United States of America.			*/
/*									*/
/*	The contents of this file are proprietary information 		*/
/*	belonging to Venue, and are provided to you under license.	*/
/*	They may not be further distributed or disclosed to third	*/
/*	parties without the specific permission of Venue.		*/
/*									*/
/************************************************************************/

#include "version.h"

#include "tty.h"

DLTTY_OUT_COMMAND *DLTTYPortCmd;
DLTTY_IN_CSB *DLTTYIn;
DLTTY_OUT_CSB *DLTTYOut;

char *TTY_Dev;
int TTY_Fd;
extern int LispReadFds;
struct sgttyb TTY_Mode;

tty_init() {
#ifdef TRACE
  printf("TRACE: tty_init()\n");
#endif

  TTY_Dev = "/dev/ttyb"; /* Modify device name */
  TTY_Fd = (-1);

  DLTTYPortCmd = (DLTTY_OUT_COMMAND *)Addr68k_from_LADDR(IOPAGE_OFFSET + 20);
  DLTTYIn = (DLTTY_IN_CSB *)Addr68k_from_LADDR(IOPAGE_OFFSET + 36);
  DLTTYOut = (DLTTY_OUT_CSB *)Addr68k_from_LADDR(IOPAGE_OFFSET + 34);
} /* tty_init end */

tty_open() {
  int stat;

#ifdef TRACE
  printf("TRACE: tty_open()\n");
#endif

  if (TTY_Fd < 0) {
    if ((TTY_Fd = open(TTY_Dev, O_RDWR)) >= 0) {
      stat = ioctl(TTY_Fd, TIOCGETP, &TTY_Mode);
      TTY_Mode.sg_flags = RAW;
      stat = ioctl(TTY_Fd, TIOCSETP, &TTY_Mode);

      LispReadFds |= (1 << TTY_Fd);
#ifdef TTYINT
      int_io_open(TTY_Fd);
#endif

    } else {
      error("TTY: tty_open");
    }
  }
} /* tty_open end */

tty_close() {
  int stat;

#ifdef TRACE
  printf("TRACE: tty_close()\n");
#endif

  if (TTY_Fd >= 0) {
    LispReadFds &= ~(1 << TTY_Fd);
    stat = close(TTY_Fd);
#ifdef TTYINT
    int_io_close(TTY_Fd);
#endif
    TTY_Fd = (-1);
  }
} /* tty_close end */

TTY_get() {
  char indata[256];
  int count;

#ifdef TRACE
  printf("TRACE: tty_get()\n");
#endif

  if ((TTY_Fd >= 0) && !DLTTYIn->state) {
    DLTTYIn->in_data = '\0'; /* Clear Previous Data */

    if ((count = read(TTY_Fd, indata, 1)) == 1) {
      DLTTYIn->in_data = indata[0];
      DLTTYIn->state = 1;
    } else {
      error("TTY: tty_get");
    }
  }
} /* TTY_get end */

tty_put() {
  int count;
  char c;

#ifdef TRACE
  printf("TRACE: tty_put()\n");
#endif

  if (TTY_Fd >= 0) {
    c = DLTTYPortCmd->outdata;
    if ((count = write(TTY_Fd, &c, 1)) != 1) { error("TTY: tty_put()"); }
  }
} /* tty_put end */

tty_breakon() {
  int stat;

#ifdef TRACE
  printf("TRACE: tty_breakon()\n");
#endif

  if (TTY_Fd >= 0) { stat = ioctl(TTY_Fd, TIOCSBRK, 0); }
} /* tty_breakon end */

tty_breakoff() {
  int stat;

#ifdef TRACE
  printf("TRACE: tty_breakoff()\n");
#endif

  if (TTY_Fd >= 0) { stat = ioctl(TTY_Fd, TIOCCBRK, 0); }
} /* tty_breakoff end */

TTY_cmd() {
#ifdef TRACE
  printf("TRACE: tty_cmd()\n");
#endif

  if (DLTTYPortCmd->command >= PUT_CHAR) {
    if (DLTTYPortCmd->command == PUT_CHAR)
      tty_put();
    else if (DLTTYPortCmd->command == SET_PARAM)
      tty_setparam();
    else if (DLTTYPortCmd->command == TTY_ON)
      tty_open();
    else if (DLTTYPortCmd->command == TTY_OFF)
      tty_close();
    else if (DLTTYPortCmd->command == TTY_BREAK_ON)
      tty_breakon();
    else if (DLTTYPortCmd->command == TTY_BREAK_OFF)
      tty_breakoff();
    else
      error("TTY: tty_cmd");

    DLTTYPortCmd->command &= ~PUT_CHAR;
  }
} /* TTY_cmd end */

tty_setparam() {
#ifdef TRACE
  printf("TRACE: tty_setpram()\n");
#endif

  if (DLTTYPortCmd->outdata & SET_BAUD_RATE) tty_setbaudrate();

} /* tty_setpram end */

tty_setbaudrate() {
  char baudrate;
  int stat;

#ifdef TRACE
  printf("TRACE: tty_setbaudrete()\n");
#endif

  if (TTY_Fd >= 0) {
    if ((baudrate = tty_baudtosymbol(DLTTYOut->line_speed)) != -1) {
      TTY_Mode.sg_ispeed = baudrate;
      TTY_Mode.sg_ospeed = baudrate;
      stat = ioctl(TTY_Fd, TIOCSETP, &TTY_Mode);
    } else {
      error("TTY: tty_setbaudrate");
    }
  }
} /* tty_setbaudrate end */

tty_baudtosymbol(aBaud) short aBaud;
{
#ifdef TRASE
  printf("TRASE: tty_baudtosymbol(%x)\n", aBaud);
#endif

  if (aBaud == 0) return (B50);
  if (aBaud == 1) return (B75);
  if (aBaud == 2) return (B110);
  if (aBaud == 3) return (B134);
  if (aBaud == 4) return (B150);
  if (aBaud == 5) return (B300);
  if (aBaud == 6) return (B600);
  if (aBaud == 7) return (B1200);
  if (aBaud == 10) return (B2400);
  if (aBaud == 12) return (B4800);
  if (aBaud == 14) return (B9600);
  if (aBaud == 15) return (EXTA);
  return (-1);

} /* tty_baudtosymbol */

tty_debug(name) char *name;
{
  int stat;
  struct sgttyb mode;

  printf("DEBUG: %s\n", name);
  printf("DEBUG: \t\tTTY_Dev            = \"%s\"\n", TTY_Dev);
  printf("DEBUG: \t\tTTY_Fd             = %d\n", TTY_Fd);

  if (TTY_Fd >= 0) {
    stat = ioctl(TTY_Fd, TIOCGETP, &mode);
    printf("DEBUG: \t\tTTY_Mode.sg_ispeed = %#x\n", mode.sg_ispeed);
    printf("DEBUG: \t\tTTY_Mode.sg_ospeed = %#x\n", mode.sg_ospeed);
    printf("DEBUG: \t\tTTY_Mode.sg_erase  = %#x\n", mode.sg_erase);
    printf("DEBUG: \t\tTTY_Mode.sg_kill   = %#x\n", mode.sg_kill);
    printf("DEBUG: \t\tTTY_Mode.sg_flags  = %#x\n", mode.sg_flags);
  }

  printf("DEBUG:\n");
  printf("DEBUG: \t\tSymbol       Address        Contents\n");
  printf("DEBUG: \t\tIOPAGE       %#x\n", Addr68k_from_LADDR(IOPAGE_OFFSET));
  printf("DEBUG: \t\tDLTTYPortCmd %#x        %#x\n", DLTTYPortCmd, *(DLword *)DLTTYPortCmd);
  printf("DEBUG: \t\tDLTTYOut     %#x        %#x\n", DLTTYOut, *(DLword *)DLTTYOut);
  printf("DEBUG: \t\t                            %#x\n", *(DLword *)(DLTTYOut + 1));
  printf("DEBUG: \t\tDLTTYIn      %#x        %#x\n", DLTTYIn, *(DLword *)DLTTYIn);
  printf("DEBUG: \t\t                            %#x\n", *(DLword *)(DLTTYIn + 1));

} /* tty_debug end */