🚀 go-pugleaf

I modified emacs18.57 for running on SX/A.
SX/A based on SVR3.2 with 4.3BSD, but some compatibility
problem to 4.3BSD portion.

--
Sakaeda, Ken-ichi (saka@pfu.fujitsu.co.jp)
PFU Limited, Tokyo Japan.

------- CUT HERE ----- CUT HERE ----- CUT HERE -------
#!/bin/sh
# This is a shell archive.  Remove anything before this line
# then unpack it by saving it in a file and typing "sh file"
# (Files unpacked will be owned by you and have default permissions).
# This archive contains the following files:
#	./patches-sxa
#	./src/s-sxa.h
#	./src/m-pfa50.h
#	./src/config.h-sxa
#
if `test ! -s ./patches-sxa`
then
echo "writting ./patches-sxa"
cat > ./patches-sxa << '\Rogue\Monster\'
*** src/process.c~	Fri Feb  8 15:58:26 1991
--- src/process.c	Thu Jul 18 10:36:41 1991
***************
*** 1071,1077 ****
  
  /* Stride people say it's a mystery why this is needed
     as well as the O_NDELAY, but that it fails without this.  */
! #ifdef STRIDE
    {
      int one = 1;
      ioctl (inchannel, FIONBIO, &one);
--- 1071,1077 ----
  
  /* Stride people say it's a mystery why this is needed
     as well as the O_NDELAY, but that it fails without this.  */
! #if defined (STRIDE) || (defined (pfa) && defined (HAVE_PTYS))
    {
      int one = 1;
      ioctl (inchannel, FIONBIO, &one);
***************
*** 2007,2014 ****
--- 2007,2024 ----
    /* If we are using pgrps, get a pgrp number and make it negative.  */
    if (!NULL (current_group))
      {
+ #if defined (pfa)
+       /* TICGPGRP symbol defined in sys/ioctl.h at E50.
+ 	 But, TIOCGPGRP donot work on E50 ;-P work fine on E60
+ 	 (saka@pfu.fujitsu.co.JP) */
+       if (ioctl (XFASTINT (p->infd), TIOCGPGRP, &gid) == -1)
+ 	gid = - XFASTINT (p->pid);
+       else
+ 	gid = - gid;
+ #else /* Not pfa */
        ioctl (XFASTINT (p->infd), TIOCGPGRP, &gid);
        gid = - gid;
+ #endif /* pfa */
      }
    else
      gid = - XFASTINT (p->pid);
*** src/sysdep.c~	Fri Feb  8 15:58:33 1991
--- src/sysdep.c	Wed Jul 17 12:41:08 1991
***************
*** 224,229 ****
--- 224,235 ----
  #include <sys/pty.h>
  #endif
  
+ /* FASYNC defined in this file. But, FASYNC don't working.
+    so no problem, because unrequest_sigio only need. */
+ #if defined (pfa)
+ #include <sys/file.h>
+ #endif
+ 
  #ifdef BROKEN_FIONREAD
  #undef FIONREAD
  #endif
*** src/unexec.c~	Fri Feb  8 15:59:07 1991
--- src/unexec.c	Wed Jul 17 11:32:03 1991
***************
*** 924,930 ****
  {
    register int nsyms;
    register int new;
! #ifdef amdahl_uts
    SYMENT symentry;
    AUXENT auxentry;
  #else
--- 924,930 ----
  {
    register int nsyms;
    register int new;
! #if defined (amdahl_uts) || defined (pfa)
    SYMENT symentry;
    AUXENT auxentry;
  #else
\Rogue\Monster\
else
  echo "will not over write ./patches-sxa"
fi
if [ `wc -c ./patches-sxa | awk '{printf $1}'` -ne 2022 ]
then
echo `wc -c ./patches-sxa | awk '{print "Got " $1 ", Expected " 2022}'`
fi
if `test ! -d ./src`
then
  mkdir ./src
  echo "mkdir ./src"
fi
if `test ! -s ./src/s-sxa.h`
then
echo "writting ./src/s-sxa.h"
cat > ./src/s-sxa.h << '\Rogue\Monster\'
/* Definitions file for GNU Emacs running on SX/A.
   Based on AT&T System V.2.2.
   Copyright (C) 1988 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY.  No author or distributor
accepts responsibility to anyone for the consequences of using it
or for whether it serves any particular purpose or works at all,
unless he says so in writing.  Refer to the GNU Emacs General Public
License for full details.

Everyone is granted permission to copy, modify and redistribute
GNU Emacs, but only under the conditions described in the
GNU Emacs General Public License.   A copy of this license is
supposed to have been given to you along with GNU Emacs so you
can know your rights and responsibilities.  It should be in a
file named COPYING.  Among other things, the copyright notice
and this notice must be preserved on all copies.  */


/*
 * This file for SX/A on PFU A-series created by modifying the s-usg5-2-2.h
 * by SAKAEDA Ken-ichi  5/26/88 (saka@pfu.fujitsu.co.JP) in Japan.
 *
 * Modified Jul 20, 1991 by SAKAEDA Ken-ichi.
 */

/*
 *	Define symbols to identify the version of Unix this is.
 *	Define all the symbols that apply correctly.
 */

#define USG				/* System III, System V, etc */

#define USG5

/* SYSTEM_TYPE should indicate the kind of system you are using.
 It sets the Lisp variable system-type.  */

#define SYSTEM_TYPE "usg-unix-v"

/* nomultiplejobs should be defined if your system's shell
 does not have "job control" (the ability to stop a program,
 run some other program, then continue the first one).  */

#define NOMULTIPLEJOBS

/* Default is to set interrupt_input to 0: don't do input buffering within Emacs */

/* #define INTERRUPT_INPUT */

/* Letter to use in finding device name of first pty,
  if system supports pty's.  'p' means it is /dev/ptyp0  */

#define FIRST_PTY_LETTER 'p'

/*
 *	Define HAVE_TERMIO if the system provides sysV-style ioctls
 *	for terminal control.
 */

#define HAVE_TERMIO

/*
 *	Define HAVE_TIMEVAL if the system supports the BSD style clock values.
 *	Look in <sys/time.h> for a timeval structure.
 */

#define HAVE_TIMEVAL
 
/*
 *	Define HAVE_SELECT if the system supports the `select' system call.
 */

#define HAVE_SELECT

/* The symbol HAVE_GETTIMEOFDAY *DONOT* have to define!

#define HAVE_GETTIMEOFDAY
*/

/*
 *	Define HAVE_PTYS if the system supports pty devices.
 */

#define HAVE_PTYS

/* Define HAVE_SOCKETS if system supports 4.2-compatible sockets.  */

#define HAVE_SOCKETS

/* #define NONSYSTEM_DIR_LIBRARY */

/*
 * 	Define SYSV_SYSTEM_DIR to use the V.3 getdents/readir
 *	library functions.  Almost, but not quite the same as
 *	the 4.2 functions
 */
#define SYSV_SYSTEM_DIR
#define HAVE_CLOSEDIR

/* Define this symbol if your system has the functions bcopy, etc. */

/* #define BSTRING */

/* subprocesses should be defined if you want to
 have code for asynchronous subprocesses
 (as used in M-x compile and M-x shell).
 This is supposed to work now on system V release 2.  */

#define subprocesses

/* If your system uses COFF (Common Object File Format) then define the
   preprocessor symbol "COFF". */

#define COFF

/* define MAIL_USE_FLOCK if the mailer uses flock
   to interlock access to /usr/spool/mail/$USER.
   The alternative is that a lock file named
   /usr/spool/mail/$USER.lock.  */

/* #define MAIL_USE_FLOCK */

/* Define CLASH_DETECTION if you want lock files to be written
   so that Emacs can tell instantly when you try to modify
   a file that someone else has modified in his Emacs.  */

/* #define CLASH_DETECTION */

/* Define SHORTNAMES if the C compiler can distinguish only
   short names.  It means that the stuff in ../shortnames
   must be run to convert the long names to short ones.  */

/* #define SHORTNAMES */

/* We use the Berkeley (and usg5.2.2) interface to nlist.  */

#define NLIST_STRUCT

/* The file containing the kernel's symbol table is called /unix.  */

#define KERNEL_FILE "/unix"

/* The symbol in the kernel where the load average is found
   is named avenrun.  */

#define LDAV_SYMBOL "_avenrun"

/* Special hacks needed to make Emacs run on this system.  */

/*
 *	Make the sigsetmask function go away.  Don't know what the
 *	ramifications of this are, but doesn't seem possible to
 *	emulate it properly anyway at this point.
 */

#define sigsetmask(mask)	/* Null expansion */
#define sigblock(mask)		(0)

/* setjmp and longjmp can safely replace _setjmp and _longjmp,
   but they will run slower.  */

#define _setjmp setjmp
#define _longjmp longjmp

/* On USG systems the system calls are interruptable by signals
 that the user program has elected to catch.  Thus the system call
 must be retried in these cases.  To handle this without massive
 changes in the source code, we remap the standard system call names
 to names for our own functions in sysdep.c that do the system call
 with retries. */

#define read sys_read
#define open sys_open
#define write sys_write

#define INTERRUPTABLE_OPEN
#define INTERRUPTABLE_IO

/* On USG systems these have different names */

#define index strchr
#define rindex strrchr

/* USG systems tend to put everything declared static
   into the initialized data area, which becomes pure after dumping Emacs.
   Foil this.  Emacs carefully avoids static vars inside functions.  */

#define static

/* Compiler bug bites on many systems when default ADDR_CORRECT is used.  */

#define ADDR_CORRECT(x) (x)

/* Prevent -lg from being used for debugging.  Not implemented?  */

#define LIBS_DEBUG

/* Use terminfo instead of termcap.  */

#define TERMINFO

#define USG_SYS_TIME
#define USE_UTIME
#define HAVE_RENAME
#define NO_SIOCTL_H
\Rogue\Monster\
else
  echo "will not over write ./src/s-sxa.h"
fi
if [ `wc -c ./src/s-sxa.h | awk '{printf $1}'` -ne 5718 ]
then
echo `wc -c ./src/s-sxa.h | awk '{print "Got " $1 ", Expected " 5718}'`
fi
if `test ! -s ./src/m-pfa50.h`
then
echo "writting ./src/m-pfa50.h"
cat > ./src/m-pfa50.h << '\Rogue\Monster\'
/* m- file for PFU A-series.
   Copyright (C) 1988 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY.  No author or distributor
accepts responsibility to anyone for the consequences of using it
or for whether it serves any particular purpose or works at all,
unless he says so in writing.  Refer to the GNU Emacs General Public
License for full details.

Everyone is granted permission to copy, modify and redistribute
GNU Emacs, but only under the conditions described in the
GNU Emacs General Public License.   A copy of this license is
supposed to have been given to you along with GNU Emacs so you
can know your rights and responsibilities.  It should be in a
file named COPYING.  Among other things, the copyright notice
and this notice must be preserved on all copies.  */


/* The following three symbols give information on
 the size of various data types.  */

#define SHORTBITS 16		/* Number of bits in a short */

#define INTBITS 32		/* Number of bits in an int */

#define LONGBITS 32		/* Number of bits in a long */

/* 68000 has lowest-numbered byte as most significant */

#define BIG_ENDIAN

/* Define how to take a char and sign-extend into an int.
   On machines where char is signed, this is a no-op.  */

#define SIGN_EXTEND_CHAR(c) ((((int) (c)) << 24) >> 24)

/* Say this machine is a 68000 */

#define m68000
#define mc68000 1

/* Use type int rather than a union, to represent Lisp_Object */

#define NO_UNION_TYPE

/* XINT must explicitly sign-extend */

#define EXPLICIT_SIGN_EXTEND

/* The symbol FIONREAD is defined, but the feature does not work.  */

#define BROKEN_FIONREAD

/* 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.  */

#define NO_REMAP

/* Define TEXT_START_ADDR if your linker don't set execute point to _start.
   If it needed, temacs always CORE-DUMP.	*/

#define TEXT_START_ADDR __start

/* Define START_FILES if your machine used _start.
 */

#define START_FILES crt0.o

/* Define LD_SWITCH_MACHINE if your linker need it.
 */

#define LD_SWITCH_MACHINE -e __start

#if	pfa50 || pfa70

/* On A-50/60/70/80, data space has high order byte use. */
#define VALMASK (((1<<VALBITS) - 1) | 0x60000000)
#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f))
#define XGCTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f))

#endif /* pfa50, pfa70 */

/* SX/A has alloca in the PW library.  */

#define LIB_STANDARD -lPW -lc
#define HAVE_ALLOCA

/* SX/A uses terminfo and lib/curses   */

#define TERMINFO
\Rogue\Monster\
else
  echo "will not over write ./src/m-pfa50.h"
fi
if [ `wc -c ./src/m-pfa50.h | awk '{printf $1}'` -ne 2773 ]
then
echo `wc -c ./src/m-pfa50.h | awk '{print "Got " $1 ", Expected " 2773}'`
fi
if `test ! -s ./src/config.h-sxa`
then
echo "writting ./src/config.h-sxa"
cat > ./src/config.h-sxa << '\Rogue\Monster\'
/* EMACS site configuration template file.
   Copyright (C) 1988 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY.  No author or distributor
accepts responsibility to anyone for the consequences of using it
or for whether it serves any particular purpose or works at all,
unless he says so in writing.  Refer to the GNU Emacs General Public
License for full details.

Everyone is granted permission to copy, modify and redistribute
GNU Emacs, but only under the conditions described in the
GNU Emacs General Public License.   A copy of this license is
supposed to have been given to you along with GNU Emacs so you
can know your rights and responsibilities.  It should be in a
file named COPYING.  Among other things, the copyright notice
and this notice must be preserved on all copies.  */

#define C_DEBUG_SWITCH -O

/* Include here a s- file that describes the system type you are using.
   See s-template.h for documentation on writing s- files.  */
#include "s-sxa.h"
 
/* Include here a m- file that describes the machine and system you use.

   See m-template.h for info on what m- files should define.*/

#include "m-pfa50.h"

/* define HAVE_X_WINDOWS if you want to use the X window system */

#undef HAVE_X_WINDOWS

/* define X11, if you have V11R?. */
#ifdef HAVE_X_WINDOWS
#define X11
#define BSTRING		/* Now, libX11.a have bstring libraris. */
#endif

/* define HAVE_X_MENU if you want to use the X window menu system.
   This appears to work on some machines that support X
   and not on others.  */

#undef HAVE_X_MENU

/* subprocesses should be defined if you want to
 have code for asynchronous subprocesses
 (as used in M-x compile and M-x shell).
 These do not work for some USG systems yet;
 for the ones where they work, the s-*.h file defines this flag.  */

#ifndef USG
#define subprocesses
#endif

/* Define USER_FULL_NAME to return a string
 that is the user's full name.
 It can assume that the variable `pw'
 points to the password file entry for this user.

 At some sites, the pw_gecos field contains
 the user's full name.  If neither this nor any other
 field contains the right thing, use pw_name,
 giving the user's login name, since that is better than nothing.  */

#define USER_FULL_NAME pw->pw_gecos

/* Define AMPERSAND_FULL_NAME if you use the convention
  that & in the full name stands for the login id.  */

#undef AMPERSAND_FULL_NAME

/* Maximum screen width we handle. */

#define MScreenWidth 300

/* Maximum screen length we handle. */

#define MScreenLength 300

/* # bytes of pure Lisp code to leave space for.
  150000 is enough for Emacs as distributed by PFU.
  with the set of preloaded packages we set up.  */

#ifndef PURESIZE
#ifdef HAVE_X_WINDOWS
#define PURESIZE 200000
#else
#define PURESIZE 150000
#endif
#endif

/* Define HIGHPRI as a negative number
 if you want Emacs to run at a higher than normal priority.
 For this to take effect, you must install it as setuid root. */

#undef HIGHPRI
\Rogue\Monster\
else
  echo "will not over write ./src/config.h-sxa"
fi
if [ `wc -c ./src/config.h-sxa | awk '{printf $1}'` -ne 3055 ]
then
echo `wc -c ./src/config.h-sxa | awk '{print "Got " $1 ", Expected " 3055}'`
fi
echo "Finished archive 1 of 1"
# if you want to concatenate archives, remove anything after this line
exit