comparison lisp/progmodes/idlw-help.el @ 106697:ac408704629c

lisp/*: Fix typos in docstrings and messages.

106696:9084997e41f6




;;; Code:
(defvar idlwave-help-browse-url-available t
  "Whether browse-url is available")

(require 'browse-url)

(defgroup idlwave-online-help nil
  "Online Help options for IDLWAVE mode."

(defvar idlwave-html-link-sep
  (if idlwave-html-help-pre-v6 "#" "#wp"))

(defcustom idlwave-html-system-help-location   "help/online_help/"
  "The directory, relative to idlwave-system-directory, where the idl
HTML help files live, for IDL 6.2 and later.  This location, if found,
is used in preference to the old idlwave-html-help-location."
  :group 'idlwave-online-help
  :type 'directory)

(defcustom idlwave-html-help-location
   (if (memq system-type '(ms-dos windows-nt))
      nil
    "/usr/local/etc/")
  "The directory where the idl_html_help/ dir lives.  Obsolete for IDL
6.2 or later (see idlwave-html-system-help-location)."
  :group 'idlwave-online-help
  :type 'directory)

(defvar idlwave-help-use-hh nil
  "Obsolete variable.")

  "Whether to use the IDL Assistant as the help browser."
  :group 'idlwave-online-help
  :type 'boolean)

(defcustom idlwave-help-browser-function browse-url-browser-function
  "Function to use to display html help.
Defaults to `browse-url-browser-function', which see."
  :group 'idlwave-online-help
  :type 'function)

(defcustom idlwave-help-browser-generic-program browse-url-generic-program
  "Program to run if using browse-url-generic-program."
  :group 'idlwave-online-help
  :type 'string)

(defvar browse-url-generic-args)

(defcustom idlwave-help-browser-generic-args
  (if (boundp 'browse-url-generic-args)
      browse-url-generic-args "")
  "Program args to use if using browse-url-generic-program."
  :group 'idlwave-online-help
  :type 'string)

(defcustom idlwave-help-browser-is-local nil
  "Whether the browser will display locally in an Emacs window.

`idlwave-help-use-dedicated-frame' to function."
  :group 'idlwave-online-help
  :type 'boolean)

(defvar idlwave-help-directory ""
  "Obsolete variable.  See idlwave-html-help-location.")

(defcustom idlwave-help-use-dedicated-frame t
  "*Non-nil means, use a separate frame for Online Help if possible."
  :group 'idlwave-online-help
  :type 'boolean)

  "The frame for display of IDL online help.")
(defvar idlwave-help-frame-width 102
  "The default width of the help frame.")

(defvar idlwave-html-help-is-available nil
  "Is the system online help text avaiable?")

(defvar idlwave-help-mode-line-indicator ""
  "Used for the special mode line in the idlwave-help-mode.")

(defvar idlwave-help-window-configuration nil)
(defvar idlwave-help-special-topic-words nil) ; defined by get_rinfo

;; Define the key bindings for the Help application

(defvar idlwave-help-mode-map (make-sparse-keymap)
  "The keymap used in idlwave-help-mode.")

(define-key idlwave-help-mode-map "q" 'idlwave-help-quit)
(define-key idlwave-help-mode-map "w" 'widen)
(define-key idlwave-help-mode-map "\C-m" (lambda (arg)
					   (interactive "p")

When the hep text is a source file, the following commands are available

Fontification:      [F]ontify the buffer like source code
Jump:               [h] to function doclib header
                    [H] to file doclib header
                    [.] back and forward between header and definition

Here are all keybindings.
\\{idlwave-help-mode-map}"
  (kill-all-local-variables)
  (buffer-disable-undo)

(defvar idlwave-current-obj_new-class)
(defvar idlwave-help-diagnostics)
(defvar idlwave-experimental)
(defvar idlwave-last-context-help-pos)
(defun idlwave-do-context-help (&optional arg)
  "Wrapper around the call to idlwave-context-help1.
It collects and prints the diagnostics messages."
  (let ((marker (list (current-buffer) (point)))
	(idlwave-help-diagnostics nil))
    ;; Check for frame switching.  When the command is invoked twice
    ;; at the same position, we try to switch to the help frame

(defun idlwave-online-help (link &optional name type class keyword)
  "Display HTML or other special help on a certain topic.
Either loads an HTML link, if LINK is non-nil, or gets special-help on
the optional arguments, if any special help is defined.  If LINK is
`t', first look up the optional arguments in the routine info list to
see if a link is set for it.  Try extra help functions if necessary."
  ;; Lookup link
  (if (eq link t)
      (let ((entry (idlwave-best-rinfo-assoc name type class
					     (idlwave-routines) nil t)))

	(idlwave-help-display-help-window help-pos)
      (idlwave-help-error name type class keyword))
    (select-window cw)))

(defun idlwave-help-html-link (link)
  "Get html help on a given LINK."
  (let ((browse-url-browser-function idlwave-help-browser-function)
	(help-loc (idlwave-html-help-location))
	(browse-url-generic-program idlwave-help-browser-generic-program)
	;(browse-url-generic-args idlwave-help-browser-generic-args)
	full-link)

(defvar idlwave-help-fontify-source-code)
(defvar idlwave-help-source-try-header)
(defvar idlwave-current-tags-buffer)
(defvar idlwave-current-tags-class)
(defun idlwave-help-with-source (name type class keyword)
  "Provide help for routines not documented in the IDL manuals.  Works
by loading the routine source file into the help buffer.  Depending on
the value of `idlwave-help-source-try-header', it attempts to show the
routine definition or the header description.  If
`idlwave-help-do-class-struct-tag' is non-nil, keyword is a tag to
show help on from the class definition structure.  If
`idlwave-help-do-struct-tag' is non-nil, show help from the matching
structure tag definition.

This function can be used as `idlwave-extra-help-function'."
  (let* ((class-struct-tag idlwave-help-do-class-struct-tag)
	 (struct-tag idlwave-help-do-struct-tag)
	 (case-fold-search t)

    (point)))


(defun idlwave-help-find-routine-definition (name type class keyword)
  "Find the definition of routine CLASS::NAME in current buffer.
KEYWORD is ignored. Returns the point of match if successful, nil otherwise."
  (save-excursion
    (goto-char (point-max))
    (if (re-search-backward
	 (concat "^[ \t]*"
		 (if (eq type 'pro) "pro"

	 (if idlwave-html-help-location
	     ""
	   "(help location unknown)")))

(defun idlwave-help-show-help-frame ()
  "Show the help frame, creating it if necessary"
  ;; Use a special frame for this
  (unless (frame-live-p idlwave-help-frame)
    (setq idlwave-help-frame
	  (make-frame idlwave-help-frame-parameters))
    ;; Strip menubar (?) and toolbar from the Help frame.

;; we must pass the -profile argument as well.
(defvar idlwave-help-assistant-command
  (if (memq system-type '(ms-dos windows-nt))
      "bin/bin.x86/idl_assistant.exe"
    "bin/idl_assistant")
  "The command, rooted at idlwave-system-directory, which invokes the
IDL assistant.")

(defun idlwave-help-assistant-available ()
  (if idlwave-help-assistant-available
      (eq idlwave-help-assistant-available t)

			  (lambda (proc string)
			    (setq port (string-to-number string))))
      (unless (accept-process-output idlwave-help-assistant-process 15)
	(error "Failed binding IDL_ASSISTANT socket"))
      (if (not port)
	  (error "Unable to open IDL_ASSISTANT.")
	(set-process-filter idlwave-help-assistant-process nil)
	(setq idlwave-help-assistant-socket
	      (open-network-stream "IDL_ASSISTANT_SOCK"
				   nil "localhost" port))
	(if (eq (process-status idlwave-help-assistant-socket) 'open)

106697:ac408704629c




;;; Code:
(defvar idlwave-help-browse-url-available t
  "Whether browse-url is available.")

(require 'browse-url)

(defgroup idlwave-online-help nil
  "Online Help options for IDLWAVE mode."

(defvar idlwave-html-link-sep
  (if idlwave-html-help-pre-v6 "#" "#wp"))

(defcustom idlwave-html-system-help-location   "help/online_help/"
  "The directory, relative to `idlwave-system-directory', where the IDL
HTML help files live, for IDL 6.2 and later.  This location, if found,
is used in preference to the old `idlwave-html-help-location'."
  :group 'idlwave-online-help
  :type 'directory)

(defcustom idlwave-html-help-location
   (if (memq system-type '(ms-dos windows-nt))
      nil
    "/usr/local/etc/")
  "The directory where the idl_html_help/ dir lives.  Obsolete for IDL
6.2 or later (see `idlwave-html-system-help-location')."
  :group 'idlwave-online-help
  :type 'directory)

(defvar idlwave-help-use-hh nil
  "Obsolete variable.")

  "Whether to use the IDL Assistant as the help browser."
  :group 'idlwave-online-help
  :type 'boolean)

(defcustom idlwave-help-browser-function browse-url-browser-function
  "Function to use to display HTML help.
Defaults to `browse-url-browser-function', which see."
  :group 'idlwave-online-help
  :type 'function)

(defcustom idlwave-help-browser-generic-program browse-url-generic-program
  "Program to run if using `browse-url-generic-program'."
  :group 'idlwave-online-help
  :type 'string)

(defvar browse-url-generic-args)

(defcustom idlwave-help-browser-generic-args
  (if (boundp 'browse-url-generic-args)
      browse-url-generic-args "")
  "Program args to use if using `browse-url-generic-program'."
  :group 'idlwave-online-help
  :type 'string)

(defcustom idlwave-help-browser-is-local nil
  "Whether the browser will display locally in an Emacs window.

`idlwave-help-use-dedicated-frame' to function."
  :group 'idlwave-online-help
  :type 'boolean)

(defvar idlwave-help-directory ""
  "Obsolete variable.  See `idlwave-html-help-location'.")

(defcustom idlwave-help-use-dedicated-frame t
  "*Non-nil means, use a separate frame for Online Help if possible."
  :group 'idlwave-online-help
  :type 'boolean)

  "The frame for display of IDL online help.")
(defvar idlwave-help-frame-width 102
  "The default width of the help frame.")

(defvar idlwave-html-help-is-available nil
  "Is the system online help text available?")

(defvar idlwave-help-mode-line-indicator ""
  "Used for the special mode line in the `idlwave-help-mode'.")

(defvar idlwave-help-window-configuration nil)
(defvar idlwave-help-special-topic-words nil) ; defined by get_rinfo

;; Define the key bindings for the Help application

(defvar idlwave-help-mode-map (make-sparse-keymap)
  "The keymap used in `idlwave-help-mode'.")

(define-key idlwave-help-mode-map "q" 'idlwave-help-quit)
(define-key idlwave-help-mode-map "w" 'widen)
(define-key idlwave-help-mode-map "\C-m" (lambda (arg)
					   (interactive "p")

When the hep text is a source file, the following commands are available

Fontification:      [F]ontify the buffer like source code
Jump:               [h] to function doclib header
                    [H] to file doclib header
                    [.] back and forth between header and definition

Here are all keybindings.
\\{idlwave-help-mode-map}"
  (kill-all-local-variables)
  (buffer-disable-undo)

(defvar idlwave-current-obj_new-class)
(defvar idlwave-help-diagnostics)
(defvar idlwave-experimental)
(defvar idlwave-last-context-help-pos)
(defun idlwave-do-context-help (&optional arg)
  "Wrapper around the call to `idlwave-do-context-help1'.
It collects and prints the diagnostics messages."
  (let ((marker (list (current-buffer) (point)))
	(idlwave-help-diagnostics nil))
    ;; Check for frame switching.  When the command is invoked twice
    ;; at the same position, we try to switch to the help frame

(defun idlwave-online-help (link &optional name type class keyword)
  "Display HTML or other special help on a certain topic.
Either loads an HTML link, if LINK is non-nil, or gets special-help on
the optional arguments, if any special help is defined.  If LINK is
t, first look up the optional arguments in the routine info list to
see if a link is set for it.  Try extra help functions if necessary."
  ;; Lookup link
  (if (eq link t)
      (let ((entry (idlwave-best-rinfo-assoc name type class
					     (idlwave-routines) nil t)))

	(idlwave-help-display-help-window help-pos)
      (idlwave-help-error name type class keyword))
    (select-window cw)))

(defun idlwave-help-html-link (link)
  "Get HTML help on a given LINK."
  (let ((browse-url-browser-function idlwave-help-browser-function)
	(help-loc (idlwave-html-help-location))
	(browse-url-generic-program idlwave-help-browser-generic-program)
	;(browse-url-generic-args idlwave-help-browser-generic-args)
	full-link)

(defvar idlwave-help-fontify-source-code)
(defvar idlwave-help-source-try-header)
(defvar idlwave-current-tags-buffer)
(defvar idlwave-current-tags-class)
(defun idlwave-help-with-source (name type class keyword)
  "Provide help for routines not documented in the IDL manuals.
Works by loading the routine source file into the help buffer.
Depending on the value of `idlwave-help-source-try-header', it
attempts to show the routine definition or the header description.
If `idlwave-help-do-class-struct-tag' is non-nil, keyword is a tag
to show help on from the class definition structure.
If `idlwave-help-do-struct-tag' is non-nil, show help from the
matching structure tag definition.

This function can be used as `idlwave-extra-help-function'."
  (let* ((class-struct-tag idlwave-help-do-class-struct-tag)
	 (struct-tag idlwave-help-do-struct-tag)
	 (case-fold-search t)

    (point)))


(defun idlwave-help-find-routine-definition (name type class keyword)
  "Find the definition of routine CLASS::NAME in current buffer.
Returns the point of match if successful, nil otherwise.
KEYWORD is ignored."
  (save-excursion
    (goto-char (point-max))
    (if (re-search-backward
	 (concat "^[ \t]*"
		 (if (eq type 'pro) "pro"

	 (if idlwave-html-help-location
	     ""
	   "(help location unknown)")))

(defun idlwave-help-show-help-frame ()
  "Show the help frame, creating it if necessary."
  ;; Use a special frame for this
  (unless (frame-live-p idlwave-help-frame)
    (setq idlwave-help-frame
	  (make-frame idlwave-help-frame-parameters))
    ;; Strip menubar (?) and toolbar from the Help frame.

;; we must pass the -profile argument as well.
(defvar idlwave-help-assistant-command
  (if (memq system-type '(ms-dos windows-nt))
      "bin/bin.x86/idl_assistant.exe"
    "bin/idl_assistant")
  "The command, rooted at `idlwave-system-directory', which invokes the
IDL assistant.")

(defun idlwave-help-assistant-available ()
  (if idlwave-help-assistant-available
      (eq idlwave-help-assistant-available t)

			  (lambda (proc string)
			    (setq port (string-to-number string))))
      (unless (accept-process-output idlwave-help-assistant-process 15)
	(error "Failed binding IDL_ASSISTANT socket"))
      (if (not port)
	  (error "Unable to open IDL_ASSISTANT")
	(set-process-filter idlwave-help-assistant-process nil)
	(setq idlwave-help-assistant-socket
	      (open-network-stream "IDL_ASSISTANT_SOCK"
				   nil "localhost" port))
	(if (eq (process-status idlwave-help-assistant-socket) 'open)