comparison lisp/man.el @ 14672:9556c7cfabe4

(man): Don't call Man-init-defvars here. Do it at top level instead. (Man-init-defvars): Now a defun, not a defsubst. Don't set Man-uses-untabify-flag. (Man-uses-untabify-flag): Add doc string. Make default value t. (Man-filter-list): Add doc string.

14671:0493e857a13b

;; empty defvars (keep the compiler quiet)

(defvar Man-notify)
(defvar Man-current-page)
(defvar Man-page-list)
(defvar Man-filter-list)
(defvar Man-original-frame)
(defvar Man-arguments)
(defvar Man-sections-alist)
(defvar Man-refpages-alist)
(defvar Man-uses-untabify-flag)
(defvar Man-page-mode-string)
(defvar Man-sed-script)

;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
;; user variables

(defvar Man-fontify-manpage-flag t


;; ======================================================================
;; utilities

(defsubst Man-init-defvars ()
  "Used for initialising variables based on the value of window-system.
This is necessary if one wants to dump man.el with emacs."

  ;; The following is necessary until fonts are implemented on
  ;; terminals.
  (setq Man-fontify-manpage-flag (and Man-fontify-manpage-flag
				      window-system))

  (defconst Man-uses-untabify-flag t
    ;; don't use pr: it is buggy
    ;; (or (not (file-readable-p "/etc/passwd"))
    ;;   (/= 0 (apply 'call-process
    ;;                Man-untabify-command nil nil nil
    ;;                (append Man-untabify-command-args
    ;;                        (list "/etc/passwd")))))
    "When non-nil use `untabify' instead of Man-untabify-command.")

  (defconst Man-sed-script
    (cond
     (Man-fontify-manpage-flag
      nil)
     ((= 0 (call-process Man-sed-command nil nil nil Man-sysv-sed-script))
      Man-sysv-sed-script)
     ((= 0 (call-process Man-sed-command nil nil nil Man-berkeley-sed-script))
      Man-berkeley-sed-script)
     (t
      nil))
    "Script for sed to nuke backspaces and ANSI codes from manpages.")

  (defvar Man-filter-list
    (list
     (cons
      Man-sed-command
      (list
       (if Man-sed-script
	   (concat "-e '" Man-sed-script "'")
	 "")
       "-e '/^[\001-\032][\001-\032]*$/d'"
       "-e '/\e[789]/s///g'"
       "-e '/Reformatting page.  Wait/d'"
       "-e '/Reformatting entry.  Wait/d'"
       "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'"
       "-e '/^[ \t]*Hewlett-Packard[ \t]*-[ \t][0-9]*[ \t]-.*$/d'"
       "-e '/^[ \t][ \t]*-[ \t][0-9]*[ \t]-[ \t]*Formatted:.*[0-9]$/d'"
       "-e '/^[ \t]*Page[ \t][0-9]*.*(printed[ \t][0-9\\/]*)$/d'"
       "-e '/^Printed[ \t][0-9].*[0-9]$/d'"
       "-e '/^[ \t]*X[ \t]Version[ \t]1[01].*Release[ \t][0-9]/d'"
       "-e '/^[A-za-z].*Last[ \t]change:/d'"
       "-e '/^Sun[ \t]Release[ \t][0-9].*[0-9]$/d'"
       "-e '/[ \t]*Copyright [0-9]* UNIX System Laboratories, Inc.$/d'"
       "-e '/^[ \t]*Rev\\..*Page [0-9][0-9]*$/d'"
       ))
     (cons
      Man-awk-command
      (list
       "'\n"
       "BEGIN { blankline=0; anonblank=0; }\n"
       "/^$/ { if (anonblank==0) next; }\n"
       "{ anonblank=1; }\n"
       "/^$/ { blankline++; next; }\n"
       "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }\n"
       "'"
       ))
     (if (not Man-uses-untabify-flag)
	 (cons
	  Man-untabify-command
	  Man-untabify-command-args)
       ))
    "*Manpage cleaning filter command phrases.
This variable contains a list of the following form:

'((command-string phrase-string*)*)

Each phrase-string is concatenated onto the command-string to form a
command filter.  The (standard) output (and standard error) of the Un*x
man command is piped through each command filter in the order the
commands appear in the association list.  The final output is placed in
the manpage buffer.")
)

(defsubst Man-match-substring (&optional n string)
  "Return the substring matched by the last search.
Optional arg N means return the substring matched by the Nth paren

	   (if (string= input "")
	       (if (string= default-entry "")
		   (error "No man args given")
		 default-entry)
	     input))))

  ;; Init the man package variables, if not already done.
  (Man-init-defvars)

  ;; Possibly translate the "subject(section)" syntax into the
  ;; "section subject" syntax and possibly downcase the section.
  (setq man-args (Man-translate-references man-args))

      (Man-goto-page (1- Man-current-page))
    (if Man-circular-pages-flag
	(Man-goto-page (length Man-page-list))
      (error "You're looking at the first manpage in the buffer"))))

(provide 'man)

;;; man.el ends here

14672:9556c7cfabe4

;; empty defvars (keep the compiler quiet)

(defvar Man-notify)
(defvar Man-current-page)
(defvar Man-page-list)
(defvar Man-filter-list nil
  "*Manpage cleaning filter command phrases.
This variable contains a list of the following form:

'((command-string phrase-string*)*)

Each phrase-string is concatenated onto the command-string to form a
command filter.  The (standard) output (and standard error) of the Un*x
man command is piped through each command filter in the order the
commands appear in the association list.  The final output is placed in
the manpage buffer.")

(defvar Man-original-frame)
(defvar Man-arguments)
(defvar Man-sections-alist)
(defvar Man-refpages-alist)
(defvar Man-uses-untabify-flag t
  "When non-nil use `untabify' instead of Man-untabify-command.")
(defvar Man-page-mode-string)
(defvar Man-sed-script nil
  "Script for sed to nuke backspaces and ANSI codes from manpages.")

;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
;; user variables

(defvar Man-fontify-manpage-flag t


;; ======================================================================
;; utilities

(defun Man-init-defvars ()
  "Used for initialising variables based on the value of window-system.
This is necessary if one wants to dump man.el with emacs."

  ;; The following is necessary until fonts are implemented on
  ;; terminals.
  (setq Man-fontify-manpage-flag (and Man-fontify-manpage-flag
				      window-system))

  (setq Man-sed-script
	(cond
	 (Man-fontify-manpage-flag
	  nil)
	 ((= 0 (call-process Man-sed-command nil nil nil Man-sysv-sed-script))
	  Man-sysv-sed-script)
	 ((= 0 (call-process Man-sed-command nil nil nil Man-berkeley-sed-script))
	  Man-berkeley-sed-script)
	 (t
	  nil)))

  (setq Man-filter-list
	(list
	 (cons
	  Man-sed-command
	  (list
	   (if Man-sed-script
	       (concat "-e '" Man-sed-script "'")
	     "")
	   "-e '/^[\001-\032][\001-\032]*$/d'"
	   "-e '/\e[789]/s///g'"
	   "-e '/Reformatting page.  Wait/d'"
	   "-e '/Reformatting entry.  Wait/d'"
	   "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'"
	   "-e '/^[ \t]*Hewlett-Packard[ \t]*-[ \t][0-9]*[ \t]-.*$/d'"
	   "-e '/^[ \t][ \t]*-[ \t][0-9]*[ \t]-[ \t]*Formatted:.*[0-9]$/d'"
	   "-e '/^[ \t]*Page[ \t][0-9]*.*(printed[ \t][0-9\\/]*)$/d'"
	   "-e '/^Printed[ \t][0-9].*[0-9]$/d'"
	   "-e '/^[ \t]*X[ \t]Version[ \t]1[01].*Release[ \t][0-9]/d'"
	   "-e '/^[A-za-z].*Last[ \t]change:/d'"
	   "-e '/^Sun[ \t]Release[ \t][0-9].*[0-9]$/d'"
	   "-e '/[ \t]*Copyright [0-9]* UNIX System Laboratories, Inc.$/d'"
	   "-e '/^[ \t]*Rev\\..*Page [0-9][0-9]*$/d'"
	   ))
	 (cons
	  Man-awk-command
	  (list
	   "'\n"
	   "BEGIN { blankline=0; anonblank=0; }\n"
	   "/^$/ { if (anonblank==0) next; }\n"
	   "{ anonblank=1; }\n"
	   "/^$/ { blankline++; next; }\n"
	   "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }\n"
	   "'"
	   ))
	 (if (not Man-uses-untabify-flag)
	     (cons
	      Man-untabify-command
	      Man-untabify-command-args)
	   )))
)

(defsubst Man-match-substring (&optional n string)
  "Return the substring matched by the last search.
Optional arg N means return the substring matched by the Nth paren

	   (if (string= input "")
	       (if (string= default-entry "")
		   (error "No man args given")
		 default-entry)
	     input))))

  ;; Possibly translate the "subject(section)" syntax into the
  ;; "section subject" syntax and possibly downcase the section.
  (setq man-args (Man-translate-references man-args))

      (Man-goto-page (1- Man-current-page))
    (if Man-circular-pages-flag
	(Man-goto-page (length Man-page-list))
      (error "You're looking at the first manpage in the buffer"))))

;; Init the man package variables, if not already done.
(Man-init-defvars)

(provide 'man)

;;; man.el ends here