Initial revision

2 files changed, 308 insertions, 0 deletions

diff --git a/src/m/sequent-ptx.h b/src/m/sequent-ptx.h
new file mode 100644
index 00000000000..b48c804c779
--- /dev/null
+++ b/src/m/sequent-ptx.h
@@ -0,0 +1,137 @@
+/* machine description file for SEQUENT machines running DYNIX/ptx
+   Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+
+This file is part of GNU Emacs.
+
+GNU Emacs is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+
+/* The following line tells the configuration script what sort of 
+   operating system this machine is likely to run.
+   USUAL-OPSYS="ptx"  */
+
+#include "intel386.h"
+
+/* Define how to take a char and sign-extend into an int.
+   On machines where char is signed, this is a no-op.  */
+/* CHECK THIS */
+#define SIGN_EXTEND_CHAR(c) (c)
+
+/* Now define a symbol for the cpu type, if your compiler
+   does not define it automatically:
+   Ones defined so far include vax, m68000, ns16000, pyramid,
+   orion, tahoe, APOLLO and many others.  */
+
+/* BTW: ptx defines _SEQUENT_, i386 */
+
+/* Use type int rather than a union, to represent Lisp_Object */
+/* This is desirable for most machines.  */
+
+#define NO_UNION_TYPE
+
+/* crt0.c should use the vax-bsd style of entry, with these dummy args.  */
+/* Already defined.  Assume prior definition works for PTX.  */
+#if 0
+#undef CRT0_DUMMIES
+#define CRT0_DUMMIES dummy1, dummy2, dummy3,
+#endif
+
+/* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
+   the 24-bit bit field into an int.  In other words, if bit fields
+   are always unsigned.
+
+   If you use NO_UNION_TYPE, this flag does not matter.  */
+
+#define EXPLICIT_SIGN_EXTEND
+
+/* Data type of load average, as read out of kmem.  */
+
+#define LOAD_AVE_TYPE unsigned long
+
+/* Convert that into an integer that is 100 for a load average of 1.0  */
+
+#define	FSCALE	1000.0
+#define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)
+
+/* Define CANNOT_DUMP on machines where unexec does not work.
+   Then the function dump-emacs will not be defined
+   and temacs will do (load "loadup") automatically unless told otherwise.  */
+
+/* #define CANNOT_DUMP */
+
+/* Define VIRT_ADDR_VARIES if the virtual addresses of
+   pure and impure space as loaded can vary, and even their
+   relative order cannot be relied on.
+
+   Otherwise Emacs assumes that text space precedes data space,
+   numerically.  */
+
+/* #define VIRT_ADDR_VARIES */
+
+/* Define C_ALLOCA if this machine does not support a true alloca
+   and the one written in C should be used instead.
+   Define HAVE_ALLOCA to say that the system provides a properly
+   working alloca function and it should be used.
+   Define neither one if an assembler-language alloca
+   in the file alloca.s should be used.  */
+
+#ifndef __GNUC__
+#define C_ALLOCA
+#undef HAVE_ALLOCA
+#endif
+
+/* Define NO_REMAP if memory segmentation makes it not work well
+   to change the boundary between the text section and data section
+   when Emacs is dumped.  If you define this, the preloaded Lisp
+   code will not be sharable; but that's better than failing completely.  */
+/* On PTX, can't seem to get a valid executable unless NO_REMAP is
+   defined.  This did work in the Sequent patched Emacs 18.57.  */
+#ifndef NO_REMAP
+#define NO_REMAP
+#endif
+/* #undef NO_REMAP */
+
+/* If a valid PTX executable could be dumped without NO_REMAP defined, 
+   here's a guess at some defines to make it work.  */
+#ifndef NO_REMAP
+
+/* PTX has getpagesize() but it returns 296. Using the default method of
+   including getpagesize.h in unexec.c returns 4096 which seems more
+   reasonable.  */
+/* #define HAVE_GETPAGESIZE */
+
+/* Override magic number for a.out header.  */
+#define EXEC_MAGIC 0411		/* from a.out.h: separated I&D */
+
+#define ADJUST_TEXT_SCNHDR_SIZE
+#define ADJUST_TEXTBASE
+
+/* The file sections in the Symmetry a.out must be on 4K boundaries.  */
+/* #define DATA_SECTION_ALIGNMENT       (4096-1) */
+
+#endif  /* ifndef NO_REMAP */
+
+/* Avoids a compiler bug.  */
+#define TAHOE_REGISTER_BUG
+
+/* (short) negative-int doesn't sign-extend correctly.  */
+#define SHORT_CAST_BUG
+
+/* Cause compilations to be done in parallel in ymakefile.  */
+#define MAKE_PARALLEL $&
+
+/* Use terminfo library.  */
+#define LIBS_TERMCAP -ltermlib
+
diff --git a/src/s/ptx.h b/src/s/ptx.h
new file mode 100644
index 00000000000..5d5736d9e98
--- /dev/null
+++ b/src/s/ptx.h
@@ -0,0 +1,171 @@
+/* Definitions file for GNU Emacs running on Sequent DYNIX/ptx 1.x/2.x
+   Copyright (C) 1987, 1990 Free Software Foundation, Inc.
+
+This file is part of GNU Emacs.
+
+GNU Emacs is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+/* This file was written by Bill Burton <billb@progress.com>.  Parts were
+   adapted from m-ptx1-2.h and process.c as distributed with the Emacs 18.57
+   on the Sequent Public software tape. Other parts were adapted from
+   usg5-4.h. */
+
+/* Use the SysVr3 file for base configuration even though much is changed.  */
+#include "usg5-3.h"
+
+/* Undo these defines because they are incorrect or need to be changed.  */
+#undef LIB_X11_LIB
+#undef LIBX10_SYSTEM
+#undef LIBX11_SYSTEM
+#undef USG_SHARED_LIBRARIES
+
+/* <sys/stat.h> *defines* stat as a static function.  If "static"
+   is blank, then many files will have a public definition for stat.  */
+#undef static
+
+/* PTX supports job control.  */
+#undef NOMULTIPLEJOBS
+
+/* PTX has System V streams.  */
+#define SYSV_STREAMS
+ 
+/* Leave out -lPW since it conflicts with term.o and because we're not sure 
+   if the alloca found there by autoconf should be trusted on PTX.  */
+#define LIB_STANDARD -lc
+
+/* Local define.  If TCP/IP is not installed, comment this out.  */
+#define TCPIP_INSTALLED
+
+#ifdef TCPIP_INSTALLED
+#define HAVE_SOCKETS
+#define HAVE_SELECT
+#else
+#undef subprocesses
+#endif
+
+#ifdef HAVE_X_WINDOWS
+
+#define LIBX11_SYSTEM -lsocket -linet -lnsl
+/* This is also defined so that lib-src/profile can link.  */
+#define LIBS_SYSTEM -lseq
+
+#else /* ! HAVE_X_WINDOWS */
+
+#ifdef HAVE_SOCKETS
+#define LIBS_SYSTEM -lsocket -linet -lnsl -lseq
+#else
+#define LIBS_SYSTEM -lseq
+#endif
+
+#endif /* ! HAVE_X_WINDOWS */
+
+/* No <sioctl.h> */
+#define NO_SIOCTL_H
+
+/* PTX has timeval */
+#define HAVE_TIMEVAL
+
+/* If we have X windows, configure should find gettimeofday in -lX11.
+   Since we emulate gettimeofday below, we really have it anyway.  */
+#ifndef HAVE_GETTIMEOFDAY
+#define HAVE_GETTIMEOFDAY
+#endif
+
+#ifdef emacs
+#include <sys/stropts.h>	/* Support for pty's */
+#include <sys/conf.h>
+
+/*#undef SIGIO*/		/* SIGIO is already undef'd elsewhere. PTX
+                                   has SIGIO, but it's just an alias for
+                                   SIGPOLL.  */
+
+/* Emulate gettimeofday() except for the time zone information which Emacs
+   doesn't use anyway.  Get_process_stats() is in -lseq.  */
+#include <sys/procstats.h>
+#define gettimeofday(tp, tzp) get_process_stats (tp, PS_SELF, 0, 0)
+
+/* Define timezone since it's not in sys/time.h.  Unfortunately, this causes
+   trouble when building with X since this struct is defined in
+   <X11/Xos.h>.  */
+struct timezone
+{
+  int tz_minuteswest;
+  int tz_dsttime;
+};
+
+/* Unfortunately, this define is not checked in all files including
+   <X11/Xos.h> so we can't use it.  */
+/* #define XOS_NEEDS_TIME_H */
+
+/* In ptx/WINDOWS, this prevents problems with the timezone struct being
+   redefined in <X11/Xos.h>.  It seems the necessary include files are
+   included via systime.h so leaving them out here is not a problem.  This
+   may not work in X11R5 or X11R6.  */
+#define __TIMEVAL__
+
+#endif  /* emacs */
+
+/* PTX doesn't have FIONREAD at all. */
+#undef INTERRUPT_INPUT
+#define BROKEN_FIONREAD
+
+/* We can support this */
+#define CLASH_DETECTION
+
+/* PTX has termios */
+#define HAVE_TERMIOS
+#undef HAVE_TERMIO
+#undef BROKEN_TIOCGWINSZ
+#undef BROKEN_TIOCGETC
+
+/* It is possible to receive SIGCHLD when there are no children
+   waiting, because a previous waitsys cleaned up the carcass of child
+   without clearing the SIGCHLD pending info.  So, use a non-blocking
+   wait3 instead, which maps to waitpid in SysVr4.  */
+/* Not sure if this is used but PTX does support waitpid.  */
+/*#define HAVE_WAIT_HEADER*/
+/*#define WAITTYPE int*/
+#define wait3(status, options, rusage) \
+  waitpid ((pid_t) -1, (status), (options))
+/*#define WRETCODE(w) (w >> 8)*/
+
+/* PTX has pty's but not like System V */
+#define HAVE_PTYS
+#undef SYSV_PTYS
+
+/* Provide pty support which is defined into process.c:allocate_pty.
+   Basic ideas for handling getpseudotty were lifted from process.c in
+   Emacs 18.57 included on the Sequent Public Software tape.  However, this
+   implementation bears almost no resemblance to the original and does not
+   require that process.c be patched.  */
+#define PTY_ITERATION						\
+  char *mastername, *slavename;					\
+  while (1)
+
+#define PTY_OPEN						\
+  if (failed_count++ >= 5) break;				\
+  if ((fd = getpseudotty (&slavename, &mastername)) < 0) {	\
+    error("Out of ptys.");					\
+    continue;							\
+  }								\
+  strcpy (pty_name, slavename);
+
+/* Define these to prevent the default logic in process.c:allocate_pty 
+   from being used.  */
+#define PTY_NAME_SPRINTF
+#define PTY_TTY_NAME_SPRINTF
+
+/* PTX doesn't seem to have memmove.  */
+#define MEMMOVE_MISSING