🚀 go-pugleaf

In article <YMIURA.92Feb7113908@BMW320i.sct1.fuji-ric.co.jp> ymiura@sct1.fuji-ric.co.jp (MIURA Yoshitake) writes:
>$B$O$8$a$^$7$F(J  $B$_$&$i!wIY;NAm8&(J $B$H?=$7$^$9!#(J
>
>$B$5$C$=$/$G$9$,!"(JHP $B<R$N(J WS $B!"(JHP9000 / 720 $B$K(J
> emacs $B$r%$%s%9%H!<%k$7$h$&$H$7$F$$$k$N$G$9$,!"$I$&$7$F$b$&$^$/$$$-$^$;$s!#(J

$B6b86$H?=$7$^$9!#(J

$B$4$a$s$J$5$$!"<+J,$N=j$G$O2r7h$7$F$$$^$9$,!"$=$N$^$^$K$7$F$$$^$7$?!#(J
$B$3$N%Q%C%A$O@5<0$J$b$N$G$O$"$j$^$;$s$N$G%*%j%8%J%k$O;D$7$F2<$5$$!#(J
$B%?!<%2%C%H$H$J$k%=!<%9$N%P!<%8%g%s$O(J emacs 18.55, nemacs 3.3.2 $B$G(J
$B$9!#(J

$B$3$N%Q%C%A$K$O(J SetBfp() $BFb$G%3%"%@%s%W$9$k2U=j$N=$@5!"%W%m%;%9$X$N(J
$B%7%0%J%k$,Aw$l$J$$%P%0$N=$@5!"(JX11$B$N%$%s%/%k!<%I%U%!%$%k!"%i%$%V%i(J
$B%j$N%Q%9$r2C$($k=$@5!"(Jrename-file $B$K$O(J rename(2) $B$r;H$&$h$&$K$9$k(J
$B=$@5$,4^$^$l$^$9!#$3$N%Q%C%A$OAc@%$5$s$+$i$$$?$@$$$?%Q%C%A$r4^$s$G(J
$B$$$^$9!#Ac@%$5$s$N%Q%C%A$N=P=h$O$o$+$j$^$;$s!#(JX11$B$N%i%$%V%i%j$N%Q(J
$B%9$r;XDj$9$k$?$a$K(J ymakefile $B$r=q$-49$($?$j$7$F$$$^$9$,!"B>$N%7%9(J
$B%F%`$G$b%3%s%Q%$%k$G$-$k$h$&$KCm0U$7$?$D$b$j$G$9!#(J

$BF|K\8l4D6-$G$O(J ls -l $B$N=PNO$9$k%U%)!<%^%C%H$r(J dired.el $B$,M}2r$7$J(J
$B$$$N$G(J dired $B$,@5$7$/F0$-$^$;$s$,!"$3$N=$@5$O4^$s$G$$$^$;$s!#(J


$B%$%s%9%H!<%kJ}K!(J

1. s-hpux.h $B$r(J s-hpux8.h $B$K%3%T!<$7$^$9!#(J

2. emacs $B$N%=!<%9$,$"$k%G%#%l%/%H%j$K9T$C$F!"(J
	patch < (patch_file)
   $B$K$h$j%Q%C%A$r$"$F$^$9!#(J

3. config.h $B$r%(%G%#%C%H$7$F(J
	s-hpux8.h
	m-hp9000s800.h
   $B$r%$%s%/%k!<%I$5$;$^$9!#$=$NB>!"(JX$B$N@_Dj!"(Jnconfig.h $B$G$?$^$4$N@_(J
   $BDj$r9T$$$^$9!#(J

4. make $B$9$k$H(J xemacs $B$,40@.$7$^$9!#(J

5. $B$*$+$7$$$H$-$O%/%l!<%`$r$D$1$F2<$5$$!#(J(^-^;)


--                                                              $B$_(J

-------->8 ---- cut here ---- 8<--------------
diff -c src.org/buffer.c src/buffer.c
*** src.org/buffer.c	Thu Jan 16 09:43:47 1992
--- src/buffer.c	Thu Jan 16 10:03:36 1992
***************
*** 831,837 ****
--- 831,841 ----
    if (c == p)
      return;
  
+ #if defined( DATA_SEG_BITS )
+   if ((unsigned long)w & (unsigned long)~(DATA_SEG_BITS) )
+ #else
    if (w)
+ #endif
      swb = NULL (selected_window) ? 0 : XBUFFER (w->buffer);
  
    if (p && NULL (p->name))
diff -c src.org/buffer.c src/buffer.csrc.org/fileio.c src/fileio.c
*** src.org/fileio.c	Thu Jan 16 09:44:01 1992
--- src/fileio.c	Thu Jan 16 10:03:37 1992
***************
*** 69,76 ****
  #endif
  
  #ifdef HPUX
! #include <netio.h>
! #include <errnet.h>
  #endif
  #ifdef NEMACS  /* 87.6.8  by K.Handa */
  #include "kanji.h"
--- 69,78 ----
  #endif
  
  #ifdef HPUX
! #    include <netio.h>
! #    ifndef HPUX8
! #	include <errnet.h>		/* error numbers when errno == ENET */
! #    endif HPUX8
  #endif
  #ifdef NEMACS  /* 87.6.8  by K.Handa */
  #include "kanji.h"
diff -c src.org/fileio.c src/fileio.csrc.org/lread.c src/lread.c
*** src.org/lread.c	Thu Jan 16 09:43:40 1992
--- src/lread.c	Thu Jan 16 10:03:37 1992
***************
*** 845,851 ****
    switch (c)
      {
      case 'a':
!       return '\a';
      case 'b':
        return '\b';
      case 'e':
--- 845,851 ----
    switch (c)
      {
      case 'a':
!       return 7;
      case 'b':
        return '\b';
      case 'e':
diff -c src.org/lread.c src/lread.csrc.org/process.c src/process.c
*** src.org/process.c	Thu Jan 16 09:43:39 1992
--- src/process.c	Thu Jan 16 10:26:19 1992
***************
*** 1892,1898 ****
      error ("Process %s is not active",
  	   XSTRING (p->name)->data);
  
! #ifdef TIOCGPGRP		/* Not sure about this! (fnf) */
    /* If we are using pgrps, get a pgrp number and make it negative.  */
    if (!NULL (current_group))
      {
--- 1892,1902 ----
      error ("Process %s is not active",
  	   XSTRING (p->name)->data);
  
! #ifdef TIOCSIGSEND
!   if (NULL (current_group))
!       gid = - XFASTINT (p->pid);
! #else /* don't have TIOCSIGSEND */
! #ifdef TIOCGPGRP			/* Not sure about this! (fnf) */
    /* If we are using pgrps, get a pgrp number and make it negative.  */
    if (!NULL (current_group))
      {
***************
*** 1906,1911 ****
--- 1910,1916 ----
       the child itself heads the pgrp.  */
    gid = - XFASTINT (p->pid);
  #endif /* not using pgrps */
+ #endif /* TIOCSIGSEND */
  
    switch (signo)
      {
***************
*** 1921,1926 ****
--- 1926,1942 ----
        flush_pending_output (XFASTINT (p->infd));
        break;
      }
+ 
+ #ifdef TIOCSIGSEND
+   if (!NULL (current_group))
+     {
+       if (ioctl (XFASTINT (p->infd), TIOCSIGSEND, signo) == -1)
+ 	error ("Failed to signal process %s",
+ 	       XSTRING (p->name)->data);
+     }
+   else
+ #endif /* TIOCSIGSEND */
+ 
    /* gid may be a pid, or minus a pgrp's number */
  #ifdef BSD
    /* On bsd, [man says] kill does not accept a negative number to kill a pgrp.
diff -c src.org/process.c src/process.csrc.org/s-hpux8.h src/s-hpux8.h
*** src.org/s-hpux8.h	Thu Jan 16 10:00:41 1992
--- src/s-hpux8.h	Thu Jan 16 10:03:38 1992
***************
*** 30,35 ****
--- 30,36 ----
  #define USG5
  
  #define HPUX
+ #define HPUX8
  
  /* SYSTEM_TYPE should indicate the kind of system you are using.
   It sets the Lisp variable system-type.  */
***************
*** 224,229 ****
--- 225,231 ----
  #define HAVE_DUP2
  #define HAVE_GETTIMEOFDAY
  #define HAVE_VFORK
+ #define HAVE_RENAME
  
  /* The following maps shared exec file to demand loaded exec.
     Don't do this as demand loaded exec is broken in hpux.  */
***************
*** 249,251 ****
--- 251,265 ----
  
  /* Define killpg so that we have process group functionality under HP.  */
  #define	killpg(PGRP, KSIG)	kill (-(PGRP), KSIG)
+ 
+ #ifndef NOT_C_CODE
+ #ifndef NO_SHORTNAMES
+ #include <sys/wait.h>
+ #define WAITTYPE int
+ #endif
+ #define WRETCODE(w) (((w) >> 8) & 0377)
+ #endif
+ 
+ #define LD_SWITCH_SYSTEM -a archive
+ #define LD_Xlibrary_Path -L/usr/lib/X11R4
+ #define C_SWITCH_SYSTEM -I/usr/include/X11R4
diff -c src.org/s-hpux8.h src/s-hpux8.hsrc.org/sysdep.c src/sysdep.c
*** src.org/sysdep.c	Thu Jan 16 09:43:48 1992
--- src/sysdep.c	Thu Jan 16 11:01:35 1992
***************
*** 1798,1803 ****
--- 1798,1804 ----
   *	in this usage.
   */
    
+ #if !( defined( X11 ) )
  long
  random ()
  {
***************
*** 1811,1816 ****
--- 1812,1818 ----
    srand (arg);
  }
  
+ #endif /* not X11 */
  #endif /* USG */
  
  
***************
*** 2091,2096 ****
--- 2093,2099 ----
   *	that files be of same type (regular->regular, dir->dir, etc).
   */
  
+ #ifndef HAVE_RENAME
  rename (from, to)
       char *from;
       char *to;
***************
*** 2104,2109 ****
--- 2107,2113 ----
      }
    return (-1);
  }
+ #endif /* not HAVE_RENAME */
  
  /* VARARGS */
  setpriority ()
***************
*** 2156,2166 ****
  #endif /* IRIS_UTIME */
  
  
! #ifdef HPUX
  
  /* HPUX curses library references perror, but as far as we know
     it won't be called.  Anyway this definition will do for now.  */
  
  perror ()
  {
  }
--- 2160,2171 ----
  #endif /* IRIS_UTIME */
  
  
! #if defined( HPUX ) && !defined( HPUX8 )
  
  /* HPUX curses library references perror, but as far as we know
     it won't be called.  Anyway this definition will do for now.  */
  
+ void
  perror ()
  {
  }
diff -c src.org/sysdep.c src/sysdep.csrc.org/unexhp9k800.c src/unexhp9k800.c
*** src.org/unexhp9k800.c	Thu Jan 16 09:43:43 1992
--- src/unexhp9k800.c	Thu Jan 16 10:03:39 1992
***************
*** 37,42 ****
--- 37,43 ----
    sigsetreturn(_sigreturn);
  */
  
+ #include "config.h"
  #include <stdio.h>
  #include <fcntl.h>
  #include <errno.h>
***************
*** 60,65 ****
--- 61,67 ----
    int old_size, new_size;
    struct header hdr;
    struct som_exec_auxhdr auxhdr;
+   long i;
    
    /* For the greatest flexibility, should create a temporary file in
       the same directory as the new file.  When everything is complete,
***************
*** 81,87 ****
--- 83,95 ----
    
    /* Decide how large the new and old data areas are */
    old_size = auxhdr.exec_dsize;
+ #ifdef HPUX8
+   /* sbrk is defined (void*) type */
+   i = (int *)sbrk(0);
+   new_size = i - auxhdr.exec_dmem;
+ #else
    new_size = sbrk(0) - auxhdr.exec_dmem;
+ #endif HPUX8
    
    /* Copy the old file to the new, up to the data space */
    lseek(old, 0, 0);
diff -c src.org/unexhp9k800.c src/unexhp9k800.csrc.org/ymakefile src/ymakefile
*** src.org/ymakefile	Thu Jan 16 09:44:07 1992
--- src/ymakefile	Thu Jan 16 10:03:40 1992
***************
*** 161,166 ****
--- 161,167 ----
  #endif /* SHORTNAMES */
  
  CFLAGS= C_DEBUG_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM
+ /*CFLAGS= C_OPTIMIZE_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM*/
  /* DO NOT use -R.  There is a special hack described in lastfile.c
     which is used instead.  Some initialized data areas are modified
     at initial startup, then labeled as part of the text area when
***************
*** 188,210 ****
  #define LIBX11_SYSTEM
  #endif
  
  #ifdef HAVE_X_WINDOWS
  #ifdef HAVE_X11
  #ifdef HAVE_X_MENU
  OLDXMENU = libXMenu11.a
  XOBJ = x11term.o x11fns.o xmenu.o
! LIBX = $(OLDXMENU) -loldX -lX11 LIBX11_MACHINE LIBX11_SYSTEM
  #else
  XOBJ = x11term.o x11fns.o
! LIBX = -lX11 LIBX11_MACHINE LIBX11_SYSTEM
  #endif
  #else /* not HAVE_X11 */
  #ifdef HAVE_X_MENU
  XOBJ= xterm.o xfns.o xmenu.o
! LIBX= -lXMenu -lX LIBX10_MACHINE LIBX10_SYSTEM
  #else
  XOBJ= xterm.o xfns.o
! LIBX= -lX LIBX10_MACHINE LIBX10_SYSTEM
  #endif /* not HAVE_X_MENU */
  #endif /* not HAVE_X11 */
  #endif /* HAVE_X_WINDOWS */
--- 189,215 ----
  #define LIBX11_SYSTEM
  #endif
  
+ #ifndef LD_Xlibrary_Path
+ #define LD_Xlibrary_Path
+ #endif
+ 
  #ifdef HAVE_X_WINDOWS
  #ifdef HAVE_X11
  #ifdef HAVE_X_MENU
  OLDXMENU = libXMenu11.a
  XOBJ = x11term.o x11fns.o xmenu.o
! LIBX = $(OLDXMENU) LD_Xlibrary_Path -loldX LD_Xlibrary_Path -lX11 LIBX11_MACHINE LIBX11_SYSTEM
  #else
  XOBJ = x11term.o x11fns.o
! LIBX = LD_Xlibrary_Path -lX11 LIBX11_MACHINE LIBX11_SYSTEM
  #endif
  #else /* not HAVE_X11 */
  #ifdef HAVE_X_MENU
  XOBJ= xterm.o xfns.o xmenu.o
! LIBX= LD_Xlibrary_Path -lXMenu LD_Xlibrary_Path -lX LIBX10_MACHINE LIBX10_SYSTEM
  #else
  XOBJ= xterm.o xfns.o
! LIBX= LD_Xlibrary_Path -lX LIBX10_MACHINE LIBX10_SYSTEM
  #endif /* not HAVE_X_MENU */
  #endif /* not HAVE_X11 */
  #endif /* HAVE_X_WINDOWS */