/* $OpenBSD: io.c,v 1.7 2000/06/29 07:55:41 pjanzen Exp $ */ /* $NetBSD: io.c,v 1.7 1997/10/18 20:03:26 christos 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 * lgetchar() 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) write a buffer to the output buffer * lprcat(str) sent 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 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() flush 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) clear screen from [1,y] to end of display * lstandout(str) print the string in standout mode * set_score_output() called when output should be literally printed * xputchar(ch) print one character in decoded output buffer * flush_buf() flush buffer with decoded output * init_term() terminal initialization -- setup termcap info * char *tmcapcnv(sd,ss) iroutine to convert VT100 \33's to termcap format * lbeep() Routine to emit a beep if enabled (see no-beep in .larnopts) * * Note: ** entries are available only in termcap mode. */ #ifndef lint static char rcsid[] = "$OpenBSD: io.c,v 1.7 2000/06/29 07:55:41 pjanzen Exp $"; #endif /* not lint */ #include "header.h" #include "extern.h" #include #include #include #include #include #include #include #ifdef TERMIO #include #define sgttyb termio #define stty(_a,_b) ioctl(_a,TCSETA,_b) #define gtty(_a,_b) ioctl(_a,TCGETA,_b) #endif #ifdef TERMIOS #include #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 #endif /* not TERMIO or TERMIOS */ #ifndef NOVARARGS /* if we have varargs */ #ifdef __STDC__ #include #else #include #endif #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 */ #define LINBUFSIZE 128 /* size of the lgetw() and lgetl() buffer */ int lfd; /* output file numbers */ int fd; /* 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"); */ } /* * lgetchar() Routine to read in one character from the terminal */ int lgetchar() { 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); 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. */ #ifdef lint /* VARARGS */ lprintf(str) char *str; { char *str2; str2 = str; str = str2; /* to make lint happy */ } /* VARARGS */ sprintf(str) char *str; { char *str2; str2 = str; str = str2; /* to make lint happy */ } #else /* lint */ /* VARARGS */ #ifdef __STDC__ void lprintf(const char *fmt, ...) #else void lprintf(va_alist) va_dcl #endif { va_list ap; /* pointer for variable argument list */ char *outb, *tmpb; long wide, left, cont, n; /* data for lprintf */ char db[12]; /* %d buffer in lprintf */ #ifndef __STDC__ char *fmt; va_start(ap); /* initialize the var args pointer */ fmt = va_arg(ap, char *); /* pointer to format string */ #else va_start(ap, fmt); #endif if (lpnt >= lpend) lflush(); outb = lpnt; for (;;) { while (*fmt != '%') if (*fmt) *outb++ = *fmt++; else { lpnt = outb; return; } wide = 0; left = 1; cont = 1; while (cont) switch (*(++fmt)) { case 'd': n = va_arg(ap, long); if (n < 0) { n = -n; *outb++ = '-'; if (wide) --wide; } tmpb = db + 11; *tmpb = (char) (n % 10 + '0'); while (n > 9) *(--tmpb) = (char) ((n /= 10) % 10 + '0'); if (wide == 0) while (tmpb < db + 12) *outb++ = *tmpb++; else { wide -= db - tmpb + 12; if (left) while (wide-- > 0) *outb++ = ' '; while (tmpb < db + 12) *outb++ = *tmpb++; if (left == 0) while (wide-- > 0) *outb++ = ' '; } cont = 0; break; case 's': tmpb = va_arg(ap, char *); if (wide == 0) { while ((*outb++ = *tmpb++) != '\0') continue; --outb; } else { n = wide - strlen(tmpb); if (left) while (n-- > 0) *outb++ = ' '; while ((*outb++ = *tmpb++) != '\0') continue; --outb; if (left == 0) while (n-- > 0) *outb++ = ' '; } cont = 0; break; case 'c': *outb++ = va_arg(ap, int); cont = 0; break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': wide = 10 * wide + *fmt - '0'; break; case '-': left = 0; break; default: *outb++ = *fmt; cont = 0; break; }; fmt++; } va_end(ap); } #endif /* lint */ /* * 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 *str; int num2; if (len > 399) { /* don't copy data if can just write it */ #ifdef EXTRA c[BYTESOUT] += len; #endif for (str = buf; len > 0; --len) lprc(*str++); } 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; str = lpnt; len -= num2; while (num2--) *str++ = *buf++; /* copy in the bytes */ lpnt = str; } } /* * 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(fd, 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 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; { char *pnt; int num2; while (num) { if (iepoint == ipoint) { if (num > 5) { /* fast way */ if (read(fd, 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; { lpnt = lpbuf; lpend = lpbuf + BUFBIG; if (str == NULL) return (lfd = 1); if ((lfd = creat(str, 0644)) < 0) { lfd = 1; lprintf("error creating file <%s>: %s\n", str, strerror(errno)); lflush(); return (-1); } return (lfd); } /* * 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 (fd = 0); if ((fd = open(str, O_RDONLY, 0)) < 0) { lwclose(); lfd = 1; lpnt = lpbuf; return (-1); } return (fd); } /* * 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 (lfd = 1); if ((lfd = open(str, O_RDWR, 0)) < 0) { lfd = 1; return (-1); } lseek(lfd, 0, SEEK_END); return (lfd); } /* * lrclose() close the input file * * Returns nothing of value. */ void lrclose() { if (fd > 0) close(fd); } /* * lwclose() close output file flushing if needed * * Returns nothing of value. */ void lwclose() { lflush(); if (lfd > 2) close(lfd); } /* * lprcat(string) append a string to the output buffer * avoids calls to lprintf (time consuming) */ void lprcat(str) char *str; { char *str2; if (lpnt >= lpend) lflush(); str2 = lpnt; while ((*str2++ = *str++) != '\0') continue; lpnt = str2 - 1; } /* * 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; } /* * Routine to position cursor at beginning of 24th line */ void cursors() { cursor(1, 24); } /* * 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 cap[256]; char *CM, *CE, *CD, *CL, *SO, *SE, *AL, *DL; /* Termcap capabilities */ static char *outbuf = 0; /* translated output buffer */ /* * init_term() Terminal initialization -- setup termcap info */ void init_term() { char termbuf[1024]; char *capptr = cap + 10; char *term; int co, li; switch (tgetent(termbuf, term = getenv("TERM"))) { case -1: write(2, "Cannot open termcap file.\n", 26); exit(1); case 0: write(2, "Cannot find entry of ", 21); write(2, term, strlen(term)); write(2, " in termcap\n", 12); exit(1); }; CM = tgetstr("cm", &capptr); /* Cursor motion */ CE = tgetstr("ce", &capptr); /* Clear to eoln */ CL = tgetstr("cl", &capptr); /* Clear screen */ /* OPTIONAL */ AL = tgetstr("al", &capptr); /* Insert line */ DL = tgetstr("dl", &capptr); /* Delete line */ SO = tgetstr("so", &capptr); /* Begin standout mode */ SE = tgetstr("se", &capptr); /* End standout mode */ CD = tgetstr("cd", &capptr); /* Clear to end of display */ co = tgetnum("co"); /* columns */ li = tgetnum("li"); /* lines */ if (!CM) { /* can't find cursor motion entry */ write(2, "Sorry, for a ", 13); write(2, term, strlen(term)); write(2, ", I can't find the cursor motion entry in termcap\n", 50); exit(1); } if (!CE) { /* can't find clear to end of line entry */ write(2, "Sorry, for a ", 13); write(2, term, strlen(term)); write(2, ", I can't find the clear to end of line entry in termcap\n", 57); exit(1); } if (!CL) { /* can't find clear entire screen entry */ write(2, "Sorry, for a ", 13); write(2, term, strlen(term)); write(2, ", I can't find the clear entire screen entry in termcap\n", 56); exit(1); } if (co < 80 || li < 25) { write(2, "Sorry, screen too small (80x25 min)\n", 36); exit(1); } if ((outbuf = malloc(BUFBIG + 16)) == 0) { /* get memory for * decoded output buffer */ write(2, "Error malloc'ing memory for decoded output buffer\n", 50); died(-285); /* malloc() failure */ } } /* * 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; { cursor(1, y); *lpnt++ = CL_LINE; cursor(x, y); } /* * 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; { int i; cursor(1, 1); for (i = 1; i <= y; i++) { *lpnt++ = CL_LINE; *lpnt++ = '\n'; } cursor(x, y); } /* * 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; { int i; cursor(1, y); if (!CD) { *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); } /* * lstandout(str) Print the argument string in inverse video (standout mode). */ void lstandout(str) char *str; { *lpnt++ = ST_START; while (*str) *lpnt++ = *str++; *lpnt++ = ST_END; } /* * 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' */ 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(lfd, 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) { xputchar(*str); curx++; } else switch (*str) { case CLEAR: tputs(CL, 0, xputchar); curx = cury = 0; break; case CL_LINE: tputs(CE, 0, xputchar); break; case CL_DOWN: tputs(CD, 0, xputchar); break; case ST_START: tputs(SO, 0, xputchar); break; case ST_END: tputs(SE, 0, xputchar); break; case CURSOR: curx = *++str - 1; cury = *++str - 1; tputs(tgoto(CM, curx, cury), 0, xputchar); break; case '\n': if ((cury == 23) && enable_scroll) { if (!DL || !AL) { /* wraparound or scroll? */ if (++scrline > 23) scrline = 19; if (++scrline > 23) scrline = 19; tputs(tgoto(CM, 0, scrline), 0, xputchar); tputs(CE, 0, xputchar); if (--scrline < 19) scrline = 23; tputs(tgoto(CM, 0, scrline), 0, xputchar); tputs(CE, 0, xputchar); } else { tputs(tgoto(CM, 0, 19), 0, xputchar); tputs(DL, 0, xputchar); tputs(tgoto(CM, 0, 23), 0, xputchar); /* * tputs (AL, 0, * xputchar); */ } } else { xputchar('\n'); cury++; } curx = 0; break; default: xputchar(*str); curx++; }; } } lpnt = lpbuf; flush_buf(); /* flush real output buffer now */ } static int vindex = 0; /* * xputchar(ch) Print one character in decoded output buffer. */ int xputchar(c) int c; { outbuf[vindex++] = c; if (vindex >= BUFBIG) flush_buf(); return 0; } /* * flush_buf() Flush buffer with decoded output. */ void flush_buf() { if (vindex) write(lfd, 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); } /* * lbeep() Routine to emit a beep if enabled (see no-beep in .larnopts) */ void lbeep() { if (!nobeep) *lpnt++ = '\7'; }