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 ""))