1995-02-05 13:49:25 +00:00
|
|
|
#define VERSION "1.7b 1985-04-19"
|
|
|
|
|
|
|
|
|
|
/* Choose one of these */
|
|
|
|
|
|
1995-05-09 12:48:21 +00:00
|
|
|
/* #define XENIX */ /* XENIX implies UNIX */
|
|
|
|
|
/* #define SIII */ /* SIII implies UNIX, (NDELAY a la System III) */
|
1995-02-05 13:49:25 +00:00
|
|
|
#define UNIX /* UNIX */
|
1995-05-09 12:48:21 +00:00
|
|
|
/* #define VMS */ /* VMS not done yet -- send me your version!!!! */
|
|
|
|
|
/* #define SARG20 */ /* Sargasso C for TOPS-20 */
|
|
|
|
|
/* #define SARG10 */ /* Sargasso C for TOPS-10 */
|
1995-02-05 13:49:25 +00:00
|
|
|
|
|
|
|
|
/* These #ifdef:s are implementation dependent stuff for the Sargasso C */
|
|
|
|
|
/* Unix C barfs on directives like "#strings", so we keep them */
|
|
|
|
|
/* indented. Then unix c can't find them, but Sargasso C *can*. */
|
|
|
|
|
/* Admittedly kludgey, but it works...) */
|
|
|
|
|
#ifdef SARG10
|
|
|
|
|
#define _UNIXCON /* Make UNIX-flavored I/O on TOPS */
|
|
|
|
|
#strings low /* put strings in lowseg mem so we can modify them. */
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef SARG20
|
|
|
|
|
#define _UNIXCON /* Make UNIX-flavored I/O on TOPS */
|
|
|
|
|
#strings low /* put strings in lowseg mem so we can modify them. */
|
|
|
|
|
#include <TOPS20.HDR>
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#ifdef UNIX
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
#include <sgtty.h>
|
|
|
|
|
#include <signal.h>
|
|
|
|
|
#include <setjmp.h>
|
|
|
|
|
jmp_buf intrenv;
|
|
|
|
|
struct sgttyb sgttyOrg, sgttyNew;
|
|
|
|
|
char stdioBuf[BUFSIZ];
|
|
|
|
|
int brkrd, reading;
|
|
|
|
|
extern onterm(), onbrk();
|
|
|
|
|
#ifdef SIII
|
|
|
|
|
#include <fcntl.h>
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
int ttymode;
|
