98eb889579
OK: core@, jdc@
1005 lines
21 KiB
C
1005 lines
21 KiB
C
/* $NetBSD: io.c,v 1.25 2010/02/03 15:34:39 roy Exp $ */
|
|
|
|
/*
|
|
* io.c Larn is copyrighted 1986 by Noah Morgan.
|
|
*
|
|
* Below are the functions in this file:
|
|
*
|
|
* setupvt100() Subroutine to set up terminal in correct mode for game
|
|
* clearvt100() Subroutine to clean up terminal when the game is over
|
|
* ttgetch() Routine to read in one character from the terminal
|
|
* scbr() Function to set cbreak -echo for the terminal
|
|
* sncbr() Function to set -cbreak echo for the terminal
|
|
* newgame() Subroutine to save the initial time and seed rnd()
|
|
*
|
|
* FILE OUTPUT ROUTINES
|
|
*
|
|
* lprintf(format,args . . .) printf to the output buffer lprint(integer)
|
|
* end binary integer to output buffer lwrite(buf,len)
|
|
* rite a buffer to the output buffer lprcat(str)
|
|
* ent string to output buffer
|
|
*
|
|
* FILE OUTPUT MACROS (in header.h)
|
|
*
|
|
* lprc(character) put the character into the output
|
|
* buffer
|
|
*
|
|
* FILE INPUT ROUTINES
|
|
*
|
|
* long lgetc() read one character from input buffer
|
|
* long larn_lrint() read one integer from input buffer
|
|
* lrfill(address,number) put input bytes into a buffer char
|
|
* *lgetw() get a whitespace ended word from
|
|
* input char *lgetl() get a \n or EOF ended line
|
|
* from input
|
|
*
|
|
* FILE OPEN / CLOSE ROUTINES
|
|
*
|
|
* lcreat(filename) create a new file for write
|
|
* lopen(filename) open a file for read
|
|
* lappend(filename) open for append to an existing file
|
|
* lrclose() close the input file
|
|
* lwclose() close output file lflush()
|
|
* lush the output buffer
|
|
*
|
|
* Other Routines
|
|
*
|
|
* cursor(x,y) position cursor at [x,y]
|
|
* cursors() position cursor at [1,24]
|
|
* (saves memory) cl_line(x,y) Clear line at [1,y] and leave
|
|
* cursor at [x,y] cl_up(x,y) Clear screen
|
|
* from [x,1] to current line. cl_dn(x,y)
|
|
* lear screen from [1,y] to end of display. standout(str)
|
|
* rint the string in standout mode. set_score_output()
|
|
* alled when output should be literally printed. * ttputch(ch)
|
|
* rint one character in decoded output buffer. * flush_buf()
|
|
* lush buffer with decoded output. * init_term()
|
|
* erminal initialization -- setup termcap info * char *tmcapcnv(sd,ss)
|
|
* outine to convert VT100 \33's to termcap format beep()
|
|
* e to emit a beep if enabled (see no-beep in .larnopts)
|
|
*
|
|
* Note: ** entries are available only in termcap mode.
|
|
*/
|
|
#include <sys/cdefs.h>
|
|
#ifndef lint
|
|
__RCSID("$NetBSD: io.c,v 1.25 2010/02/03 15:34:39 roy Exp $");
|
|
#endif /* not lint */
|
|
|
|
#include "header.h"
|
|
#include "extern.h"
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <term.h>
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
#include <ctype.h>
|
|
|
|
#ifdef TERMIO
|
|
#include <termio.h>
|
|
#define sgttyb termio
|
|
#define stty(_a,_b) ioctl(_a,TCSETA,_b)
|
|
#define gtty(_a,_b) ioctl(_a,TCGETA,_b)
|
|
#endif
|
|
#ifdef TERMIOS
|
|
#include <termios.h>
|
|
#define sgttyb termios
|
|
#define stty(_a,_b) tcsetattr(_a,TCSADRAIN,_b)
|
|
#define gtty(_a,_b) tcgetattr(_a,_b)
|
|
#endif
|
|
|
|
#if defined(TERMIO) || defined(TERMIOS)
|
|
static int rawflg = 0;
|
|
static char saveeof, saveeol;
|
|
#define doraw(_a) \
|
|
if(!rawflg) { \
|
|
++rawflg; \
|
|
saveeof = _a.c_cc[VMIN]; \
|
|
saveeol = _a.c_cc[VTIME]; \
|
|
} \
|
|
_a.c_cc[VMIN] = 1; \
|
|
_a.c_cc[VTIME] = 1; \
|
|
_a.c_lflag &= ~(ICANON|ECHO|ECHOE|ECHOK|ECHONL)
|
|
#define unraw(_a) \
|
|
_a.c_cc[VMIN] = saveeof; \
|
|
_a.c_cc[VTIME] = saveeol; \
|
|
_a.c_lflag |= ICANON|ECHO|ECHOE|ECHOK|ECHONL
|
|
|
|
#else /* not TERMIO or TERMIOS */
|
|
|
|
#ifndef BSD
|
|
#define CBREAK RAW /* V7 has no CBREAK */
|
|
#endif
|
|
|
|
#define doraw(_a) (_a.sg_flags |= CBREAK,_a.sg_flags &= ~ECHO)
|
|
#define unraw(_a) (_a.sg_flags &= ~CBREAK,_a.sg_flags |= ECHO)
|
|
#include <sgtty.h>
|
|
#endif /* not TERMIO or TERMIOS */
|
|
|
|
#ifndef NOVARARGS /* if we have varargs */
|
|
#include <stdarg.h>
|
|
#else /* NOVARARGS */ /* if we don't have varargs */
|
|
typedef char *va_list;
|
|
#define va_dcl int va_alist;
|
|
#define va_start(plist) plist = (char *) &va_alist
|
|
#define va_end(plist)
|
|
#define va_arg(plist,mode) ((mode *)(plist += sizeof(mode)))[-1]
|
|
#endif /* NOVARARGS */
|
|
|
|
static int ttputch(int ch);
|
|
static void flush_buf(void);
|
|
|
|
#define LINBUFSIZE 128 /* size of the lgetw() and lgetl() buffer */
|
|
int io_outfd; /* output file numbers */
|
|
int io_infd; /* input file numbers */
|
|
static struct sgttyb ttx;/* storage for the tty modes */
|
|
static int ipoint = MAXIBUF, iepoint = MAXIBUF; /* input buffering
|
|
* pointers */
|
|
static char lgetwbuf[LINBUFSIZE]; /* get line (word) buffer */
|
|
|
|
/*
|
|
* setupvt100() Subroutine to set up terminal in correct mode for game
|
|
*
|
|
* Attributes off, clear screen, set scrolling region, set tty mode
|
|
*/
|
|
void
|
|
setupvt100()
|
|
{
|
|
clear();
|
|
setscroll();
|
|
scbr(); /* system("stty cbreak -echo"); */
|
|
}
|
|
|
|
/*
|
|
* clearvt100() Subroutine to clean up terminal when the game is over
|
|
*
|
|
* Attributes off, clear screen, unset scrolling region, restore tty mode
|
|
*/
|
|
void
|
|
clearvt100()
|
|
{
|
|
resetscroll();
|
|
clear();
|
|
sncbr(); /* system("stty -cbreak echo"); */
|
|
}
|
|
|
|
/*
|
|
* ttgetch() Routine to read in one character from the terminal
|
|
*/
|
|
int
|
|
ttgetch()
|
|
{
|
|
char byt;
|
|
#ifdef EXTRA
|
|
c[BYTESIN]++;
|
|
#endif
|
|
lflush(); /* be sure output buffer is flushed */
|
|
read(0, &byt, 1); /* get byte from terminal */
|
|
return (byt);
|
|
}
|
|
|
|
/*
|
|
* scbr() Function to set cbreak -echo for the terminal
|
|
*
|
|
* like: system("stty cbreak -echo")
|
|
*/
|
|
void
|
|
scbr()
|
|
{
|
|
gtty(0, &ttx);
|
|
doraw(ttx);
|
|
stty(0, &ttx);
|
|
}
|
|
|
|
/*
|
|
* sncbr() Function to set -cbreak echo for the terminal
|
|
*
|
|
* like: system("stty -cbreak echo")
|
|
*/
|
|
void
|
|
sncbr()
|
|
{
|
|
gtty(0, &ttx);
|
|
unraw(ttx);
|
|
stty(0, &ttx);
|
|
}
|
|
|
|
/*
|
|
* newgame() Subroutine to save the initial time and seed rnd()
|
|
*/
|
|
void
|
|
newgame()
|
|
{
|
|
long *p, *pe;
|
|
for (p = c, pe = c + 100; p < pe; *p++ = 0);
|
|
time(&initialtime);
|
|
seedrand(initialtime);
|
|
srandom(initialtime);
|
|
lcreat((char *) 0); /* open buffering for output to terminal */
|
|
}
|
|
|
|
/*
|
|
* lprintf(format,args . . .) printf to the output buffer
|
|
* char *format;
|
|
* ??? args . . .
|
|
*
|
|
* Enter with the format string in "format", as per printf() usage
|
|
* and any needed arguments following it
|
|
* Note: lprintf() only supports %s, %c and %d, with width modifier and left
|
|
* or right justification.
|
|
* No correct checking for output buffer overflow is done, but flushes
|
|
* are done beforehand if needed.
|
|
* Returns nothing of value.
|
|
*/
|
|
void
|
|
lprintf(const char *fmt, ...)
|
|
{
|
|
va_list ap;
|
|
char buf[BUFBIG/2];
|
|
|
|
va_start(ap, fmt);
|
|
vsnprintf(buf, sizeof(buf), fmt, ap);
|
|
va_end(ap);
|
|
|
|
if (lpnt >= lpend)
|
|
lflush();
|
|
|
|
lprcat(buf);
|
|
}
|
|
|
|
/*
|
|
* lprint(long-integer) send binary integer to output buffer
|
|
* long integer;
|
|
*
|
|
* +---------+---------+---------+---------+
|
|
* | high | | | low |
|
|
* | order | | | order |
|
|
* | byte | | | byte |
|
|
* +---------+---------+---------+---------+
|
|
* 31 --- 24 23 --- 16 15 --- 8 7 --- 0
|
|
*
|
|
* The save order is low order first, to high order (4 bytes total)
|
|
* and is written to be system independent.
|
|
* No checking for output buffer overflow is done, but flushes if needed!
|
|
* Returns nothing of value.
|
|
*/
|
|
void
|
|
lprint(x)
|
|
long x;
|
|
{
|
|
if (lpnt >= lpend)
|
|
lflush();
|
|
*lpnt++ = 255 & x;
|
|
*lpnt++ = 255 & (x >> 8);
|
|
*lpnt++ = 255 & (x >> 16);
|
|
*lpnt++ = 255 & (x >> 24);
|
|
}
|
|
|
|
/*
|
|
* lwrite(buf,len) write a buffer to the output buffer
|
|
* char *buf;
|
|
* int len;
|
|
*
|
|
* Enter with the address and number of bytes to write out
|
|
* Returns nothing of value
|
|
*/
|
|
void
|
|
lwrite(buf, len)
|
|
char *buf;
|
|
int len;
|
|
{
|
|
char *s;
|
|
u_char *t;
|
|
int num2;
|
|
|
|
if (len > 399) { /* don't copy data if can just write it */
|
|
#ifdef EXTRA
|
|
c[BYTESOUT] += len;
|
|
#endif
|
|
|
|
#ifndef VT100
|
|
for (s = buf; len > 0; --len)
|
|
lprc(*s++);
|
|
#else /* VT100 */
|
|
lflush();
|
|
write(io_outfd, buf, len);
|
|
#endif /* VT100 */
|
|
} else
|
|
while (len) {
|
|
if (lpnt >= lpend)
|
|
lflush(); /* if buffer is full flush it */
|
|
num2 = lpbuf + BUFBIG - lpnt; /* # bytes left in
|
|
* output buffer */
|
|
if (num2 > len)
|
|
num2 = len;
|
|
t = lpnt;
|
|
len -= num2;
|
|
while (num2--)
|
|
*t++ = *buf++; /* copy in the bytes */
|
|
lpnt = t;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* long lgetc() Read one character from input buffer
|
|
*
|
|
* Returns 0 if EOF, otherwise the character
|
|
*/
|
|
long
|
|
lgetc()
|
|
{
|
|
int i;
|
|
if (ipoint != iepoint)
|
|
return (inbuffer[ipoint++]);
|
|
if (iepoint != MAXIBUF)
|
|
return (0);
|
|
if ((i = read(io_infd, inbuffer, MAXIBUF)) <= 0) {
|
|
if (i != 0)
|
|
write(1, "error reading from input file\n", 30);
|
|
iepoint = ipoint = 0;
|
|
return (0);
|
|
}
|
|
ipoint = 1;
|
|
iepoint = i;
|
|
return (*inbuffer);
|
|
}
|
|
|
|
/*
|
|
* long lrint() Read one integer from input buffer
|
|
*
|
|
* +---------+---------+---------+---------+
|
|
* | high | | | low |
|
|
* | order | | | order |
|
|
* | byte | | | byte |
|
|
* +---------+---------+---------+---------+
|
|
* 31 --- 24 23 --- 16 15 --- 8 7 --- 0
|
|
*
|
|
* The save order is low order first, to high order (4 bytes total)
|
|
* Returns the int read
|
|
*/
|
|
long
|
|
larn_lrint()
|
|
{
|
|
unsigned long i;
|
|
i = 255 & lgetc();
|
|
i |= (255 & lgetc()) << 8;
|
|
i |= (255 & lgetc()) << 16;
|
|
i |= (255 & lgetc()) << 24;
|
|
return (i);
|
|
}
|
|
|
|
/*
|
|
* lrfill(address,number) put input bytes into a buffer
|
|
* char *address;
|
|
* int number;
|
|
*
|
|
* Reads "number" bytes into the buffer pointed to by "address".
|
|
* Returns nothing of value
|
|
*/
|
|
void
|
|
lrfill(adr, num)
|
|
char *adr;
|
|
int num;
|
|
{
|
|
u_char *pnt;
|
|
int num2;
|
|
|
|
while (num) {
|
|
if (iepoint == ipoint) {
|
|
if (num > 5) { /* fast way */
|
|
if (read(io_infd, adr, num) != num)
|
|
write(2, "error reading from input file\n", 30);
|
|
num = 0;
|
|
} else {
|
|
*adr++ = lgetc();
|
|
--num;
|
|
}
|
|
} else {
|
|
num2 = iepoint - ipoint; /* # of bytes left in
|
|
* the buffer */
|
|
if (num2 > num)
|
|
num2 = num;
|
|
pnt = inbuffer + ipoint;
|
|
num -= num2;
|
|
ipoint += num2;
|
|
while (num2--)
|
|
*adr++ = *pnt++;
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* char *lgetw() Get a whitespace ended word from input
|
|
*
|
|
* Returns pointer to a buffer that contains word. If EOF, returns a NULL
|
|
*/
|
|
char *
|
|
lgetw()
|
|
{
|
|
char *lgp, cc;
|
|
int n = LINBUFSIZE, quote = 0;
|
|
lgp = lgetwbuf;
|
|
do
|
|
cc = lgetc();
|
|
while ((cc <= 32) && (cc > '\0')); /* eat whitespace */
|
|
for (;; --n, cc = lgetc()) {
|
|
if ((cc == '\0') && (lgp == lgetwbuf))
|
|
return (NULL); /* EOF */
|
|
if ((n <= 1) || ((cc <= 32) && (quote == 0))) {
|
|
*lgp = '\0';
|
|
return (lgetwbuf);
|
|
}
|
|
if (cc != '"')
|
|
*lgp++ = cc;
|
|
else
|
|
quote ^= 1;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* char *lgetl() Function to read in a line ended by newline or EOF
|
|
*
|
|
* Returns pointer to a buffer that contains the line. If EOF, returns NULL
|
|
*/
|
|
char *
|
|
lgetl()
|
|
{
|
|
int i = LINBUFSIZE, ch;
|
|
char *str = lgetwbuf;
|
|
for (;; --i) {
|
|
if ((*str++ = ch = lgetc()) == '\0') {
|
|
if (str == lgetwbuf + 1)
|
|
return (NULL); /* EOF */
|
|
ot: *str = '\0';
|
|
return (lgetwbuf); /* line ended by EOF */
|
|
}
|
|
if ((ch == '\n') || (i <= 1))
|
|
goto ot;/* line ended by \n */
|
|
}
|
|
}
|
|
|
|
/*
|
|
* lcreat(filename) Create a new file for write
|
|
* char *filename;
|
|
*
|
|
* lcreat((char*)0); means to the terminal
|
|
* Returns -1 if error, otherwise the file descriptor opened.
|
|
*/
|
|
int
|
|
lcreat(str)
|
|
char *str;
|
|
{
|
|
lflush();
|
|
lpnt = lpbuf;
|
|
lpend = lpbuf + BUFBIG;
|
|
if (str == NULL)
|
|
return (io_outfd = 1);
|
|
if ((io_outfd = creat(str, 0644)) < 0) {
|
|
io_outfd = 1;
|
|
lprintf("error creating file <%s>: %s\n", str,
|
|
strerror(errno));
|
|
lflush();
|
|
return (-1);
|
|
}
|
|
return (io_outfd);
|
|
}
|
|
|
|
/*
|
|
* lopen(filename) Open a file for read
|
|
* char *filename;
|
|
*
|
|
* lopen(0) means from the terminal
|
|
* Returns -1 if error, otherwise the file descriptor opened.
|
|
*/
|
|
int
|
|
lopen(str)
|
|
char *str;
|
|
{
|
|
ipoint = iepoint = MAXIBUF;
|
|
if (str == NULL)
|
|
return (io_infd = 0);
|
|
if ((io_infd = open(str, O_RDONLY)) < 0) {
|
|
lwclose();
|
|
io_outfd = 1;
|
|
lpnt = lpbuf;
|
|
return (-1);
|
|
}
|
|
return (io_infd);
|
|
}
|
|
|
|
/*
|
|
* lappend(filename) Open for append to an existing file
|
|
* char *filename;
|
|
*
|
|
* lappend(0) means to the terminal
|
|
* Returns -1 if error, otherwise the file descriptor opened.
|
|
*/
|
|
int
|
|
lappend(str)
|
|
char *str;
|
|
{
|
|
lpnt = lpbuf;
|
|
lpend = lpbuf + BUFBIG;
|
|
if (str == NULL)
|
|
return (io_outfd = 1);
|
|
if ((io_outfd = open(str, 2)) < 0) {
|
|
io_outfd = 1;
|
|
return (-1);
|
|
}
|
|
lseek(io_outfd, 0, SEEK_END); /* seek to end of file */
|
|
return (io_outfd);
|
|
}
|
|
|
|
/*
|
|
* lrclose() close the input file
|
|
*
|
|
* Returns nothing of value.
|
|
*/
|
|
void
|
|
lrclose()
|
|
{
|
|
if (io_infd > 0) {
|
|
close(io_infd);
|
|
io_infd = 0;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* lwclose() close output file flushing if needed
|
|
*
|
|
* Returns nothing of value.
|
|
*/
|
|
void
|
|
lwclose()
|
|
{
|
|
lflush();
|
|
if (io_outfd > 2) {
|
|
close(io_outfd);
|
|
io_outfd = 1;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* lprcat(string) append a string to the output buffer
|
|
* avoids calls to lprintf (time consuming)
|
|
*/
|
|
void
|
|
lprcat(const char *str)
|
|
{
|
|
u_char *str2;
|
|
if (lpnt >= lpend)
|
|
lflush();
|
|
str2 = lpnt;
|
|
while ((*str2++ = *str++) != '\0')
|
|
continue;
|
|
lpnt = str2 - 1;
|
|
}
|
|
|
|
#ifdef VT100
|
|
/*
|
|
* cursor(x,y) Subroutine to set the cursor position
|
|
*
|
|
* x and y are the cursor coordinates, and lpbuff is the output buffer where
|
|
* escape sequence will be placed.
|
|
*/
|
|
static char *y_num[] = {
|
|
"\33[", "\33[", "\33[2", "\33[3", "\33[4", "\33[5", "\33[6",
|
|
"\33[7", "\33[8", "\33[9", "\33[10", "\33[11", "\33[12", "\33[13", "\33[14",
|
|
"\33[15", "\33[16", "\33[17", "\33[18", "\33[19", "\33[20", "\33[21", "\33[22",
|
|
"\33[23", "\33[24"};
|
|
|
|
static char *x_num[] = {
|
|
"H", "H", ";2H", ";3H", ";4H", ";5H", ";6H", ";7H", ";8H", ";9H",
|
|
";10H", ";11H", ";12H", ";13H", ";14H", ";15H", ";16H", ";17H", ";18H", ";19H",
|
|
";20H", ";21H", ";22H", ";23H", ";24H", ";25H", ";26H", ";27H", ";28H", ";29H",
|
|
";30H", ";31H", ";32H", ";33H", ";34H", ";35H", ";36H", ";37H", ";38H", ";39H",
|
|
";40H", ";41H", ";42H", ";43H", ";44H", ";45H", ";46H", ";47H", ";48H", ";49H",
|
|
";50H", ";51H", ";52H", ";53H", ";54H", ";55H", ";56H", ";57H", ";58H", ";59H",
|
|
";60H", ";61H", ";62H", ";63H", ";64H", ";65H", ";66H", ";67H", ";68H", ";69H",
|
|
";70H", ";71H", ";72H", ";73H", ";74H", ";75H", ";76H", ";77H", ";78H", ";79H",
|
|
";80H"};
|
|
|
|
void
|
|
cursor(x, y)
|
|
int x, y;
|
|
{
|
|
char *p;
|
|
if (lpnt >= lpend)
|
|
lflush();
|
|
|
|
p = y_num[y]; /* get the string to print */
|
|
while (*p)
|
|
*lpnt++ = *p++; /* print the string */
|
|
|
|
p = x_num[x]; /* get the string to print */
|
|
while (*p)
|
|
*lpnt++ = *p++; /* print the string */
|
|
}
|
|
#else /* VT100 */
|
|
/*
|
|
* cursor(x,y) Put cursor at specified coordinates staring at [1,1] (termcap)
|
|
*/
|
|
void
|
|
cursor(x, y)
|
|
int x, y;
|
|
{
|
|
if (lpnt >= lpend)
|
|
lflush();
|
|
|
|
*lpnt++ = CURSOR;
|
|
*lpnt++ = x;
|
|
*lpnt++ = y;
|
|
}
|
|
#endif /* VT100 */
|
|
|
|
/*
|
|
* Routine to position cursor at beginning of 24th line
|
|
*/
|
|
void
|
|
cursors()
|
|
{
|
|
cursor(1, 24);
|
|
}
|
|
|
|
#ifndef VT100
|
|
/*
|
|
* Warning: ringing the bell is control code 7. Don't use in defines.
|
|
* Don't change the order of these defines.
|
|
* Also used in helpfiles. Codes used in helpfiles should be \E[1 to \E[7 with
|
|
* obvious meanings.
|
|
*/
|
|
|
|
static char *outbuf = 0; /* translated output buffer */
|
|
/*
|
|
* init_term() Terminal initialization -- setup termcap info
|
|
*/
|
|
void
|
|
init_term()
|
|
{
|
|
setupterm(NULL, 0, NULL); /* will exit if invalid term */
|
|
if (!cursor_address) {
|
|
fprintf(stderr, "term does not have cursor_address.\n");
|
|
exit(1);
|
|
}
|
|
if (!clr_eol) {
|
|
fprintf(stderr, "term does not have clr_eol.\n");
|
|
exit(1);
|
|
}
|
|
if (!clear_screen) {
|
|
fprintf(stderr, "term does not have clear_screen.\n");
|
|
exit(1);
|
|
}
|
|
if ((outbuf = malloc(BUFBIG + 16)) == 0) { /* get memory for
|
|
* decoded output buffer */
|
|
fprintf(stderr, "Error malloc'ing memory for decoded output buffer\n");
|
|
died(-285); /* malloc() failure */
|
|
}
|
|
|
|
}
|
|
#endif /* VT100 */
|
|
|
|
/*
|
|
* cl_line(x,y) Clear the whole line indicated by 'y' and leave cursor at [x,y]
|
|
*/
|
|
void
|
|
cl_line(x, y)
|
|
int x, y;
|
|
{
|
|
#ifdef VT100
|
|
cursor(x, y);
|
|
lprcat("\33[2K");
|
|
#else /* VT100 */
|
|
cursor(1, y);
|
|
*lpnt++ = CL_LINE;
|
|
cursor(x, y);
|
|
#endif /* VT100 */
|
|
}
|
|
|
|
/*
|
|
* cl_up(x,y) Clear screen from [x,1] to current position. Leave cursor at [x,y]
|
|
*/
|
|
void
|
|
cl_up(x, y)
|
|
int x, y;
|
|
{
|
|
#ifdef VT100
|
|
cursor(x, y);
|
|
lprcat("\33[1J\33[2K");
|
|
#else /* VT100 */
|
|
int i;
|
|
cursor(1, 1);
|
|
for (i = 1; i <= y; i++) {
|
|
*lpnt++ = CL_LINE;
|
|
*lpnt++ = '\n';
|
|
}
|
|
cursor(x, y);
|
|
#endif /* VT100 */
|
|
}
|
|
|
|
/*
|
|
* cl_dn(x,y) Clear screen from [1,y] to end of display. Leave cursor at [x,y]
|
|
*/
|
|
void
|
|
cl_dn(x, y)
|
|
int x, y;
|
|
{
|
|
#ifdef VT100
|
|
cursor(x, y);
|
|
lprcat("\33[J\33[2K");
|
|
#else /* VT100 */
|
|
int i;
|
|
cursor(1, y);
|
|
if (!clr_eos) {
|
|
*lpnt++ = CL_LINE;
|
|
for (i = y; i <= 24; i++) {
|
|
*lpnt++ = CL_LINE;
|
|
if (i != 24)
|
|
*lpnt++ = '\n';
|
|
}
|
|
cursor(x, y);
|
|
} else
|
|
*lpnt++ = CL_DOWN;
|
|
cursor(x, y);
|
|
#endif /* VT100 */
|
|
}
|
|
|
|
/*
|
|
* standout(str) Print the argument string in inverse video (standout mode).
|
|
*/
|
|
void
|
|
standout(const char *str)
|
|
{
|
|
#ifdef VT100
|
|
setbold();
|
|
while (*str)
|
|
*lpnt++ = *str++;
|
|
resetbold();
|
|
#else /* VT100 */
|
|
*lpnt++ = ST_START;
|
|
while (*str)
|
|
*lpnt++ = *str++;
|
|
*lpnt++ = ST_END;
|
|
#endif /* VT100 */
|
|
}
|
|
|
|
/*
|
|
* set_score_output() Called when output should be literally printed.
|
|
*/
|
|
void
|
|
set_score_output()
|
|
{
|
|
enable_scroll = -1;
|
|
}
|
|
|
|
/*
|
|
* lflush() Flush the output buffer
|
|
*
|
|
* Returns nothing of value.
|
|
* for termcap version: Flush output in output buffer according to output
|
|
* status as indicated by `enable_scroll'
|
|
*/
|
|
#ifndef VT100
|
|
static int scrline = 18; /* line # for wraparound instead of scrolling
|
|
* if no DL */
|
|
void
|
|
lflush()
|
|
{
|
|
int lpoint;
|
|
u_char *str;
|
|
static int curx = 0;
|
|
static int cury = 0;
|
|
|
|
if ((lpoint = lpnt - lpbuf) > 0) {
|
|
#ifdef EXTRA
|
|
c[BYTESOUT] += lpoint;
|
|
#endif
|
|
if (enable_scroll <= -1) {
|
|
flush_buf();
|
|
if (write(io_outfd, lpbuf, lpoint) != lpoint)
|
|
write(2, "error writing to output file\n", 29);
|
|
lpnt = lpbuf; /* point back to beginning of buffer */
|
|
return;
|
|
}
|
|
for (str = lpbuf; str < lpnt; str++) {
|
|
if (*str >= 32) {
|
|
ttputch(*str);
|
|
curx++;
|
|
} else
|
|
switch (*str) {
|
|
case CLEAR:
|
|
tputs(clear_screen, 0, ttputch);
|
|
curx = cury = 0;
|
|
break;
|
|
|
|
case CL_LINE:
|
|
tputs(clr_eol, 0, ttputch);
|
|
break;
|
|
|
|
case CL_DOWN:
|
|
tputs(clr_eos, 0, ttputch);
|
|
break;
|
|
|
|
case ST_START:
|
|
tputs(enter_standout_mode, 0, ttputch);
|
|
break;
|
|
|
|
case ST_END:
|
|
tputs(exit_standout_mode, 0, ttputch);
|
|
break;
|
|
|
|
case CURSOR:
|
|
curx = *++str - 1;
|
|
cury = *++str - 1;
|
|
tputs(vtparm(cursor_address,
|
|
cury, curx), 0, ttputch);
|
|
break;
|
|
|
|
case '\n':
|
|
if ((cury == 23) && enable_scroll) {
|
|
if (!delete_line ||
|
|
!insert_line)
|
|
{ /* wraparound or scroll? */
|
|
if (++scrline > 23)
|
|
scrline = 19;
|
|
|
|
if (++scrline > 23)
|
|
scrline = 19;
|
|
tputs(vtparm(
|
|
cursor_address,
|
|
scrline, 0),
|
|
0, ttputch);
|
|
tputs(clr_eol, 0,
|
|
ttputch);
|
|
|
|
if (--scrline < 19)
|
|
scrline = 23;
|
|
tputs(vtparm(
|
|
cursor_address,
|
|
scrline, 0),
|
|
0, ttputch);
|
|
tputs(clr_eol, 0,
|
|
ttputch);
|
|
} else {
|
|
tputs(vtparm(
|
|
cursor_address,
|
|
19, 0),
|
|
0, ttputch);
|
|
tputs(delete_line, 0,
|
|
ttputch);
|
|
tputs(vtparm(
|
|
cursor_address,
|
|
23, 0),
|
|
0, ttputch);
|
|
/*
|
|
* tputs (AL, 0,
|
|
* ttputch);
|
|
*/
|
|
}
|
|
} else {
|
|
ttputch('\n');
|
|
cury++;
|
|
}
|
|
curx = 0;
|
|
break;
|
|
|
|
default:
|
|
ttputch(*str);
|
|
curx++;
|
|
};
|
|
}
|
|
}
|
|
lpnt = lpbuf;
|
|
flush_buf(); /* flush real output buffer now */
|
|
}
|
|
#else /* VT100 */
|
|
/*
|
|
* lflush() flush the output buffer
|
|
*
|
|
* Returns nothing of value.
|
|
*/
|
|
void
|
|
lflush()
|
|
{
|
|
int lpoint;
|
|
if ((lpoint = lpnt - lpbuf) > 0) {
|
|
#ifdef EXTRA
|
|
c[BYTESOUT] += lpoint;
|
|
#endif
|
|
if (write(io_outfd, lpbuf, lpoint) != lpoint)
|
|
write(2, "error writing to output file\n", 29);
|
|
}
|
|
lpnt = lpbuf; /* point back to beginning of buffer */
|
|
}
|
|
#endif /* VT100 */
|
|
|
|
#ifndef VT100
|
|
static int vindex = 0;
|
|
/*
|
|
* ttputch(ch) Print one character in decoded output buffer.
|
|
*/
|
|
static int
|
|
ttputch(int ch)
|
|
{
|
|
outbuf[vindex++] = ch;
|
|
if (vindex >= BUFBIG)
|
|
flush_buf();
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* flush_buf() Flush buffer with decoded output.
|
|
*/
|
|
static void
|
|
flush_buf()
|
|
{
|
|
if (vindex)
|
|
write(io_outfd, outbuf, vindex);
|
|
vindex = 0;
|
|
}
|
|
|
|
/*
|
|
* char *tmcapcnv(sd,ss) Routine to convert VT100 escapes to termcap
|
|
* format
|
|
* Processes only the \33[#m sequence (converts . files for termcap use
|
|
*/
|
|
char *
|
|
tmcapcnv(sd, ss)
|
|
char *sd, *ss;
|
|
{
|
|
int tmstate = 0; /* 0=normal, 1=\33 2=[ 3=# */
|
|
char tmdigit = 0; /* the # in \33[#m */
|
|
while (*ss) {
|
|
switch (tmstate) {
|
|
case 0:
|
|
if (*ss == '\33') {
|
|
tmstate++;
|
|
break;
|
|
}
|
|
ign: *sd++ = *ss;
|
|
ign2: tmstate = 0;
|
|
break;
|
|
case 1:
|
|
if (*ss != '[')
|
|
goto ign;
|
|
tmstate++;
|
|
break;
|
|
case 2:
|
|
if (isdigit((u_char)*ss)) {
|
|
tmdigit = *ss - '0';
|
|
tmstate++;
|
|
break;
|
|
}
|
|
if (*ss == 'm') {
|
|
*sd++ = ST_END;
|
|
goto ign2;
|
|
}
|
|
goto ign;
|
|
case 3:
|
|
if (*ss == 'm') {
|
|
if (tmdigit)
|
|
*sd++ = ST_START;
|
|
else
|
|
*sd++ = ST_END;
|
|
goto ign2;
|
|
}
|
|
default:
|
|
goto ign;
|
|
};
|
|
ss++;
|
|
}
|
|
*sd = 0; /* NULL terminator */
|
|
return (sd);
|
|
}
|
|
#endif /* VT100 */
|
|
|
|
/*
|
|
* beep() Routine to emit a beep if enabled (see no-beep in .larnopts)
|
|
*/
|
|
void
|
|
beep()
|
|
{
|
|
if (!nobeep)
|
|
*lpnt++ = '\7';
|
|
}
|