Imported Upstream version 5.45upstream/5.45

1 files changed, 217 insertions, 0 deletions

diff --git a/exp_win.c b/exp_win.c
new file mode 100644
index 0000000..97adbee
--- /dev/null
+++ b/exp_win.c
@@ -0,0 +1,217 @@
+/* exp_win.c - window support
+
+Written by: Don Libes, NIST, 10/25/93
+
+This file is in the public domain.  However, the author and NIST
+would appreciate credit if you use this file or parts of it.
+
+*/
+
+#include "expect_cf.h"
+#include "tcl.h"
+
+#ifdef NO_STDLIB_H
+#include "../compat/stdlib.h"
+#else
+#include <stdlib.h>
+#endif
+
+/* _IBCS2 required on some Intel platforms to allow the include files */
+/* to produce a definition for winsize. */
+#define _IBCS2 1
+
+/*
+ * get everyone's window size definitions
+ *
+note that this is tricky because (of course) everyone puts them in
+different places.  Worse, on some systems, some .h files conflict
+and cannot both be included even though both exist.  This is the
+case, for example, on SunOS 4.1.3 using gcc where termios.h
+conflicts with sys/ioctl.h
+ */
+
+#ifdef HAVE_TERMIOS
+#  include <termios.h>
+#else
+#  include <sys/ioctl.h>
+#endif
+
+/* Sigh.  On AIX 2.3, termios.h exists but does not define TIOCGWINSZ */
+/* Instead, it has to come from ioctl.h.  However, As I said above, this */
+/* can't be cavalierly included on all machines, even when it exists. */
+#if defined(HAVE_TERMIOS) && !defined(HAVE_TIOCGWINSZ_IN_TERMIOS_H)
+#  include <sys/ioctl.h>
+#endif
+
+/* SCO defines window size structure in PTEM and TIOCGWINSZ in termio.h */
+/* Sigh... */
+#if defined(HAVE_SYS_PTEM_H)
+#   include <sys/types.h>   /* for stream.h's caddr_t */
+#   include <sys/stream.h>  /* for ptem.h's mblk_t */
+#   include <sys/ptem.h>
+#endif /* HAVE_SYS_PTEM_H */
+
+#include "exp_tty_in.h"
+#include "exp_win.h"
+
+#ifdef TIOCGWINSZ
+typedef struct winsize exp_winsize;
+#define columns ws_col
+#define rows ws_row
+#define EXP_WIN
+#endif
+
+#if !defined(EXP_WIN) && defined(TIOCGSIZE)
+typedef struct ttysize exp_winsize;
+#define columns ts_cols
+#define rows ts_lines
+#define EXP_WIN
+#endif
+
+#if !defined(EXP_WIN)
+typedef struct {
+	int columns;
+	int rows;
+} exp_winsize;
+#endif
+
+static exp_winsize winsize = {0, 0};
+static exp_winsize win2size = {0, 0};
+
+int exp_window_size_set(fd)
+int fd;
+{
+#ifdef TIOCSWINSZ
+	ioctl(fd,TIOCSWINSZ,&winsize);
+#endif
+#if defined(TIOCSSIZE) && !defined(TIOCSWINSZ)
+	ioctl(fd,TIOCSSIZE,&winsize);
+#endif
+}
+
+int exp_window_size_get(fd)
+int fd;
+{
+#ifdef TIOCGWINSZ
+	ioctl(fd,TIOCGWINSZ,&winsize);
+#endif
+#if defined(TIOCGSIZE) && !defined(TIOCGWINSZ)
+	ioctl(fd,TIOCGSIZE,&winsize);
+#endif
+#if !defined(EXP_WIN)
+	winsize.rows = 0;
+	winsize.columns = 0;
+#endif
+}
+
+void
+exp_win_rows_set(rows)
+char *rows;
+{
+	winsize.rows = atoi(rows);
+	exp_window_size_set(exp_dev_tty);
+}
+
+char*
+exp_win_rows_get()
+{
+    static char rows [20];
+	exp_window_size_get(exp_dev_tty);
+	sprintf(rows,"%d",winsize.rows);
+    return rows;
+}
+
+void
+exp_win_columns_set(columns)
+char *columns;
+{
+	winsize.columns = atoi(columns);
+	exp_window_size_set(exp_dev_tty);
+}
+
+char*
+exp_win_columns_get()
+{
+    static char columns [20];
+	exp_window_size_get(exp_dev_tty);
+	sprintf(columns,"%d",winsize.columns);
+    return columns;
+}
+
+/*
+ * separate copy of everything above - used for handling user stty requests
+ */
+
+int exp_win2_size_set(fd)
+int fd;
+{
+#ifdef TIOCSWINSZ
+			ioctl(fd,TIOCSWINSZ,&win2size);
+#endif
+#if defined(TIOCSSIZE) && !defined(TIOCSWINSZ)
+			ioctl(fd,TIOCSSIZE,&win2size);
+#endif
+}
+
+int exp_win2_size_get(fd)
+int fd;
+{
+#ifdef TIOCGWINSZ
+	ioctl(fd,TIOCGWINSZ,&win2size);
+#endif
+#if defined(TIOCGSIZE) && !defined(TIOCGWINSZ)
+	ioctl(fd,TIOCGSIZE,&win2size);
+#endif
+}
+
+void
+exp_win2_rows_set(fd,rows)
+int fd;
+char *rows;
+{
+	exp_win2_size_get(fd);
+	win2size.rows = atoi(rows);
+	exp_win2_size_set(fd);
+}
+
+char*
+exp_win2_rows_get(fd)
+int fd;
+{
+    static char rows [20];
+	exp_win2_size_get(fd);
+	sprintf(rows,"%d",win2size.rows);
+#if !defined(EXP_WIN)
+	win2size.rows = 0;
+	win2size.columns = 0;
+#endif
+    return rows;
+}
+
+void
+exp_win2_columns_set(fd,columns)
+int fd;
+char *columns;
+{
+	exp_win2_size_get(fd);
+	win2size.columns = atoi(columns);
+	exp_win2_size_set(fd);
+}
+
+char*
+exp_win2_columns_get(fd)
+int fd;
+{
+    static char columns [20];
+	exp_win2_size_get(fd);
+	sprintf(columns,"%d",win2size.columns);
+    return columns;
+}
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */