Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!husc6!necntc!ima!haddock!karl
From: karl@haddock.ISC.COM (Karl Heuer)
Newsgroups: comp.emacs
Subject: Re: GNU exists on IBM RT running AIX
Message-ID: <721@haddock.ISC.COM>
Date: Mon, 13-Jul-87 19:15:33 EDT
Article-I.D.: haddock.721
Posted: Mon Jul 13 19:15:33 1987
Date-Received: Wed, 15-Jul-87 01:07:42 EDT
References: <640@haddock.UUCP> <711@haddock.ISC.COM>
Reply-To: karl@haddock.ISC.COM (Karl Heuer)
Distribution: world
Organization: Interactive Systems, Boston
Lines: 76
Summary: Part 2: lisp/paths.el lisp/man.el

This is the second installment of the AIX patches, covering lisp/paths.el and
lisp/man.el.  The former has only two changes, to recognize AIX as a USG-like
system (see comments attached to s-aix.h, coming soon).  The latter was hacked
to recognize footers for man pages on my system, which is quite probably not
something I should be exporting.  If you have AIX with on-line man pages,
you'd better verify this one before patching it.

Karl W. Z. Heuer (ima!haddock!karl or karl@haddock.isc.com), The Walking Lint
---- cut here ----
*** paths.el-orig	Mon Jul 13 18:46:34 1987
--- paths.el	Mon Jul 13 18:46:34 1987
***************
*** 50,56 ****
    "Name of user's primary mail file.")
  
  (defconst rmail-spool-directory
!   (if (memq system-type '(hpux usg-unix-v))
        "/usr/mail/"
      "/usr/spool/mail/")
    "Name of directory used by system mailer for delivering new mail.
--- 50,56 ----
    "Name of user's primary mail file.")
  
  (defconst rmail-spool-directory
!   (if (memq system-type '(hpux usg-unix-v aix))
        "/usr/mail/"
      "/usr/spool/mail/")
    "Name of directory used by system mailer for delivering new mail.
***************
*** 57,63 ****
  Its name should end with a slash.")
  
  (defconst rmail-primary-inbox-list 
!   (if (memq system-type '(hpux usg-unix-v))
        '("~/mbox" "/usr/mail/$LOGNAME")
      '("~/mbox" "/usr/spool/mail/$USER"))
   "List of files which are inboxes for user's primary mail file ~/RMAIL.")
--- 57,63 ----
  Its name should end with a slash.")
  
  (defconst rmail-primary-inbox-list 
!   (if (memq system-type '(hpux usg-unix-v aix))
        '("~/mbox" "/usr/mail/$LOGNAME")
      '("~/mbox" "/usr/spool/mail/$USER"))
   "List of files which are inboxes for user's primary mail file ~/RMAIL.")
*** man.el-orig	Mon Jul 13 18:46:34 1987
--- man.el	Mon Jul 13 18:46:34 1987
***************
*** 103,108 ****
--- 103,110 ----
        ;;     "     Hewlett-Packard   -1- (printed 12/31/99)"  FMHWA12ID!!
        ;;    System V (well WICATs anyway):
        ;;     "Page 1			  (printed 7/24/85)"
+       ;;    AIX (based on a single sample)
+       ;;     "Rev. 1.0                     Page 1"
        ;;    Who is administering PCP to these corporate bozos?
        (goto-char (point-min))
        (while (re-search-forward
***************
*** 110,116 ****
  		   "^ *Hewlett-Packard.*(printed [0-9/]*)$"
  		 (if (eq system-type 'usg-unix-v)
  		     "^ *Page [0-9]*.*(printed [0-9/]*)$"
! 		   "^\\(Printed\\|Sun Release\\) [0-9].*[0-9]$"))
  	       nil t)
  	(replace-match ""))
  
--- 112,120 ----
  		   "^ *Hewlett-Packard.*(printed [0-9/]*)$"
  		 (if (eq system-type 'usg-unix-v)
  		     "^ *Page [0-9]*.*(printed [0-9/]*)$"
! 		   (if (eq system-type 'aix)
! 		       "^ *Rev\\. [0-9.]+ *Page [0-9]*$"
! 		     "^\\(Printed\\|Sun Release\\) [0-9].*[0-9]$")))
  	       nil t)
  	(replace-match ""))