🚀 go-pugleaf

In article <8710121634.AA00366@shum.Huji.AC.IL> ric@shum.huji.ac.il (Ric wheeler) writes:
>
>
>Hi,
>	We are trying to bring up the mh system on a gould and have run
>into trouble with the gould's restrictions on addressing data,
>e.g. we receive a number of 'no base' errors when trying to compile.
>Has anyone out there had any experience bringing up mh on gould?
>
>	Any help would be greatly appreciated.  Since I am not on this
>board, please respond directly, thanks,
>
>				Rick Wheeler
>				ric@hujics.bitnet
>				ric@israel.csnet

I've enclosed the context diff's for the changes we had to make to get MH
version 5 running on our goulds.  The goulds are running UTX 2.0.
--------------------------------------------------------------------------------
mh/sbr/m_gmsg.c:
--------------------------------------------------------------------------------
*** /tmp/,RCSt1025463	Tue Oct 13 11:34:42 1987
--- m_gmsg.c	Wed Feb 19 18:48:11 1986
***************
*** 1,5
  #ifndef lint
! static char *RCSid = "$Header: m_gmsg.c,v 1.0 85/08/01 12:53:37 root Exp $";
  #endif
  #ifndef lint
  static char *sccsid="@(#)m_gmsg.c	1.1 (Berkeley) 4/17/85";

--- 1,5 -----
  #ifndef lint
! static char *RCSid = "$Header: m_gmsg.c,v 1.1 86/02/19 18:47:40 root Exp $";
  #endif
  #ifndef lint
  static char *sccsid="@(#)m_gmsg.c	1.1 (Berkeley) 4/17/85";
***************
*** 19,24
  static struct msgs  folder;
  static short stats[MAXFOLDER + 1];
  
  char *malloc ();
  
  /*  */

--- 19,31 -----
  static struct msgs  folder;
  static short stats[MAXFOLDER + 1];
  
+ #ifdef sel
+ /*
+  * Goulds don't seem to like "string"[0], so we give it a character ptr
+ */
+ char *bletch = SBACKUP;
+ #endif
+ 
  char *malloc ();
  
  /*  */
***************
*** 61,66
  	    stats[i] &= ~DELETED;
  	}
  	else
  	    if (dp -> d_name[0] == SBACKUP[0]) {
  		if ((i = mu_atoi (dp -> d_name + 1)) && !(stats[i] & EXISTS))
  		    stats[i] |= DELETED;

--- 68,76 -----
  	    stats[i] &= ~DELETED;
  	}
  	else
+ #ifdef sel
+ 	    if (dp -> d_name[0] == *bletch) {
+ #else
  	    if (dp -> d_name[0] == SBACKUP[0]) {
  #endif
  		if ((i = mu_atoi (dp -> d_name + 1)) && !(stats[i] & EXISTS))
***************
*** 62,67
  	}
  	else
  	    if (dp -> d_name[0] == SBACKUP[0]) {
  		if ((i = mu_atoi (dp -> d_name + 1)) && !(stats[i] & EXISTS))
  		    stats[i] |= DELETED;
  	    }

--- 72,78 -----
  	    if (dp -> d_name[0] == *bletch) {
  #else
  	    if (dp -> d_name[0] == SBACKUP[0]) {
+ #endif
  		if ((i = mu_atoi (dp -> d_name + 1)) && !(stats[i] & EXISTS))
  		    stats[i] |= DELETED;
  	    }
--------------------------------------------------------------------------------
mh/uip/msh.c:
--------------------------------------------------------------------------------
*** /tmp/,RCSt1025400	Tue Oct 13 11:33:01 1987
--- msh.c	Wed Feb 19 18:52:10 1986
***************
*** 1,5
  #ifndef lint
! static char *RCSid = "$Header: msh.c,v 1.0 85/08/01 14:29:32 root Exp $";
  #endif
  #ifndef lint
  static char sccsid[] = "@(#)msh.c	1.2 (Berkeley) 4/20/85";

--- 1,5 -----
  #ifndef lint
! static char *RCSid = "$Header: msh.c,v 1.1 86/02/19 18:51:03 root Exp $";
  #endif
  #ifndef lint
  static char sccsid[] = "@(#)msh.c	1.2 (Berkeley) 4/20/85";
***************
*** 694,699
      long    pos;
      char    c,
              buffer[BUFSIZ];
      struct Msg  msgs[MAXFOLDER + 2];
  
      ld3 = strlen (delim3);

--- 694,702 -----
      long    pos;
      char    c,
              buffer[BUFSIZ];
+ #ifdef sel
+ static
+ #endif
      struct Msg  msgs[MAXFOLDER + 2];
  
      ld3 = strlen (delim3);
--------------------------------------------------------------------------------
mh/uip/rmf.c:
--------------------------------------------------------------------------------
*** /tmp/,RCSt1025659	Tue Oct 13 11:37:17 1987
--- rmf.c	Wed Sep 16 13:31:06 1987
***************
*** 1,5
  #ifndef lint
! static char *RCSid = "$Header: rmf.c,v 1.0 85/08/01 14:39:51 root Exp $";
  #endif
  #ifndef lint
  static char sccsid[] = "@(#)rmf.c	1.1 (Berkeley) 2/3/85";

--- 1,5 -----
  #ifndef lint
! static char *RCSid = "$Header: rmf.c,v 1.1 87/09/16 13:34:47 ens Exp $";
  #endif
  #ifndef lint
  static char sccsid[] = "@(#)rmf.c	1.1 (Berkeley) 2/3/85";
***************
*** 128,133
              others;
      char   *maildir,
  	    cur[BUFSIZ];
      struct direct  *dp;
      DIR * dd;
  

--- 128,136 -----
              others;
      char   *maildir,
  	    cur[BUFSIZ];
+ #ifdef sel
+     char   *_SBACKUP=SBACKUP;
+ #endif
      struct direct  *dp;
      DIR * dd;
  
***************
*** 166,171
  	if (strcmp (dp -> d_name, ".") && strcmp (dp -> d_name, "..")) {
  	    if (mu_atoi (dp -> d_name)
  		    || dp -> d_name[0] == '.'
  		    || dp -> d_name[0] == SBACKUP[0]
  #ifdef	MHE
  		    || dp -> d_name[0] == '+'

--- 169,177 -----
  	if (strcmp (dp -> d_name, ".") && strcmp (dp -> d_name, "..")) {
  	    if (mu_atoi (dp -> d_name)
  		    || dp -> d_name[0] == '.'
+ #ifdef sel
+ 		    || dp -> d_name[0] == *_SBACKUP
+ #else
  		    || dp -> d_name[0] == SBACKUP[0]
  #endif
  #ifdef	MHE
***************
*** 167,172
  	    if (mu_atoi (dp -> d_name)
  		    || dp -> d_name[0] == '.'
  		    || dp -> d_name[0] == SBACKUP[0]
  #ifdef	MHE
  		    || dp -> d_name[0] == '+'
  #endif	MHE

--- 173,179 -----
  		    || dp -> d_name[0] == *_SBACKUP
  #else
  		    || dp -> d_name[0] == SBACKUP[0]
+ #endif
  #ifdef	MHE
  		    || dp -> d_name[0] == '+'
  #endif	MHE
--------------------------------------------------------------------------------

Hope this helps,

Michael Edelman
Tektronix, Inc.