mirror of
https://gitlab.gnome.org/GNOME/libxml2.git
synced 2024-12-27 03:21:26 +03:00
06500c8aa6
* configure.in doc/Makefile.am xstc/Makefile.am: some cleanup checking for xmllint and xsltproc in configure.in, fixed make dist w.r.t. the new xstc subdir. * doc/*: rebuilt Daniel
223 lines
8.7 KiB
EmacsLisp
223 lines
8.7 KiB
EmacsLisp
;;; libxml-doc.el - look up libxml-symbols and start browser on documentation
|
||
|
||
;; Author: Felix Natter <fnatter@gmx.net>, Geert Kloosterman <geertk@ai.rug.nl>
|
||
;; Created: Jun 21 2000
|
||
;; Keywords: libxml documentation
|
||
|
||
;; This program is free software; you can redistribute it and/or
|
||
;; modify it under the terms of the GNU General Public License
|
||
;; as published by the Free Software Foundation; either version 2
|
||
;; of the License, or (at your option) any later version.
|
||
;;
|
||
;; This program is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
;;
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with this program; if not, write to the Free Software
|
||
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||
|
||
;;; Commentary / README
|
||
|
||
;; these functions allow you to browse the libxml documentation
|
||
;; (using lynx within emacs by default)
|
||
;;
|
||
;; ----- Installing
|
||
;; 1. add the following to ~/.emacs (adapt path and remove comments !)
|
||
;; (autoload 'libxmldoc-lookup-symbol "~/elisp/libxml-doc"
|
||
;; "Look up libxml-symbols and start browser on documentation." t)
|
||
;; or put this file in load-path and use this:
|
||
;; (autoload 'libxmldoc-lookup-symbol "libxml-doc"
|
||
;; "Look up libxml-symbols and start browser on documentation." t)
|
||
;;
|
||
;; 2. adapt libxmldoc-root:
|
||
;; i.e. (setq libxmldoc-root "~/libxml2-2.0.0/doc/html")
|
||
;;
|
||
;; 3. change the filter-regex: by default, cpp-defines, callbacks and
|
||
;; html-functions are excluded (C-h v libxmldoc-filter-regexp)
|
||
;;
|
||
;; 4. consider customizing libxmldoc-browse-url (lynx by default);
|
||
;; cannot use Emacs/W3 4.0pre46 because it has problems with the html
|
||
;;
|
||
;; ----- Using
|
||
;; call M-x libxmldoc-lookup-symbol: this will prompt with completion and
|
||
;; then open the browser showing the documentation. If the word around the
|
||
;; point matches a symbol, that is used instead. You can also call
|
||
;; libxmldoc-lookup-symbol noninteractively and pass the symbol.
|
||
|
||
;; Note:
|
||
;; an alternative to libxml-doc is emacs tags:
|
||
;; $ cd libxml2-2.3.8
|
||
;; $ make TAGS
|
||
;; $ emacs
|
||
;; M-. (M-x find-tag) ... or
|
||
;; M-x tags-search ... RET M-, M-, ...
|
||
;; (for more information: info emacs RET m Tags RET)
|
||
|
||
|
||
;;; ChangeLog:
|
||
;; Wed Jun 21 01:07:12 2000: initial release
|
||
;; Wed Jun 21 01:45:29 2000: added libxmldoc-lookup-symbol-at-point
|
||
;; Wed Jun 21 23:37:58 2000: libxmldoc-lookup-symbol now uses
|
||
;; (thing-at-point 'word) if it matches a symbol
|
||
;; Thu Jun 22 02:37:46 2000: filtering is only done for completion
|
||
;; Thu Jun 22 21:03:41 2000: libxmldoc-browse-url can be customized
|
||
;; Thu May 31 2001 (Geert):
|
||
;; - Changed the `gnome-xml-' html file prefix into `libxml-'.
|
||
;; - Changed the 'word match from thing-at-point into 'symbol.
|
||
;; With 'word, identifiers with an underscore (e.g. BAD_CAST)
|
||
;; don't get matched.
|
||
;; Fri Jun 8 16:29:18 2001, Sat Jun 23 16:19:47 2001:
|
||
;; complete rewrite of libxmldoc-lookup-symbol
|
||
;; by Felix Natter <fnatter@gmx.net>, Geert Kloosterman <geertk@ai.rug.nl>:
|
||
;; - Now keeps the list of symbols between calls to speed things up.
|
||
;; - filtering is only used when no symbol is passed and
|
||
;; thing-at-point does not match a symbol and "*" + thing-at-point
|
||
;; does not match a symbol (this is used to catch callbacks) and
|
||
;; libxmldoc-filter-regexp is non-nil.
|
||
;; Sat Jun 23 16:20:34 2001: update the docstrings
|
||
;; Sat Jun 23 16:22:54 2001 (Geert Kloosterman <geertk@ai.rug.nl>):
|
||
;; update README: use autoload instead of load+c-mode-hook
|
||
;; Sat Jul 7 19:00:31 2001: fixed a problem with XEmacs: the
|
||
;; string-match of XEmacs when used in completing-read used the
|
||
;; minibuffer's value of case-fold-search, and not the one in the
|
||
;; c-mode buffer that we had set => so there's a new *-string-match-cs
|
||
;; (case sensitive) function which binds case-fold-search and runs string-match
|
||
;; Wed Sep 1 20:26:29 2004: adapted for libxml2-2.6.9: handle
|
||
;; document-relative (#XXX) links
|
||
|
||
;;; TODO:
|
||
;; - use command-execute for libxmldoc-browse-url
|
||
;; - keep (match-string 1) in a variable (libxmldoc-get-list-of-symbols)
|
||
;; (only if it improves performance)
|
||
;; - check the (require ..)-statements
|
||
|
||
;;; Code:
|
||
|
||
(require 'browse-url)
|
||
(require 'term)
|
||
|
||
(defvar libxmldoc-root "~/src/libxml2-2.3.8/doc/html"
|
||
"The root-directory of the libxml2-documentation (~ will be expanded).")
|
||
(defvar libxmldoc-filter-regexp "^html\\|^\\*\\|^[A-Z_]+"
|
||
"Symbols that match this regular expression will be excluded when doing
|
||
completion and no symbol is specified.
|
||
For example:
|
||
callbacks: \"^\\\\*\"
|
||
cpp-defines: \"[A-Z_]+\"
|
||
xml-functions \"^xml\"
|
||
html-functions \"^html\"
|
||
sax-functions \".*SAX\"
|
||
By default, callbacks, cpp-defines and html* are excluded.
|
||
Set this to nil if you don't want filtering.")
|
||
(defvar libxmldoc-browse-url 'browse-url-lynx-emacs
|
||
"Browser used for browsing documentation. Emacs/W3 4.0pre46 cannot handle
|
||
the html (and would be too slow), so lynx-emacs is used by default.")
|
||
(defvar libxmldoc-symbol-history nil
|
||
"History for looking up libxml-symbols.")
|
||
(defvar libxmldoc-symbols nil
|
||
"The list of libxml-symbols.")
|
||
|
||
;;;; public functions
|
||
|
||
(defun libxmldoc-lookup-symbol(&optional symbol)
|
||
"Look up xml-symbol." (interactive)
|
||
;; setting case-fold-search is now done in libxmldoc-string-match-cs
|
||
|
||
;; Build up a symbol list if necessary
|
||
(if (null libxmldoc-symbols)
|
||
(setq libxmldoc-symbols (libxmldoc-get-list-of-symbols)))
|
||
|
||
(cond
|
||
(symbol ;; symbol is specified as argument
|
||
(if (not (assoc symbol libxmldoc-symbols))
|
||
(setq symbol nil)))
|
||
((assoc (thing-at-point 'symbol) libxmldoc-symbols)
|
||
(setq symbol (thing-at-point 'symbol)))
|
||
;; this is needed to catch callbacks
|
||
;; note: this could be rewritten to use (thing-at-point 'word)
|
||
((assoc (concat "*" (thing-at-point 'symbol)) libxmldoc-symbols)
|
||
(setq symbol (concat "*" (thing-at-point 'symbol))))
|
||
)
|
||
|
||
;; omit "" t) from call to completing-read for the sake of xemacs
|
||
(setq symbol (completing-read
|
||
"Libxml: " libxmldoc-symbols
|
||
(if (or symbol (null libxmldoc-filter-regexp))
|
||
nil
|
||
'(lambda(key,value)
|
||
(not (libxmldoc-string-match-cs libxmldoc-filter-regexp
|
||
(car key,value)))))
|
||
t symbol
|
||
'libxmldoc-symbol-history))
|
||
|
||
|
||
;; start browser
|
||
(apply libxmldoc-browse-url
|
||
(list (cdr (assoc symbol libxmldoc-symbols)))))
|
||
|
||
;; (if (or symbol
|
||
;; (null libxmldoc-filter-regexp))
|
||
;; libxmldoc-symbols
|
||
;; (mapcar
|
||
;; '(lambda(key,value)
|
||
;; (if (null (string-match
|
||
;; libxmldoc-filter-regexp
|
||
;; (car key,value)))
|
||
;; key,value))
|
||
;; libxmldoc-symbols))
|
||
|
||
|
||
;;;; internal
|
||
|
||
(defun libxmldoc-string-match-cs(regexp str)
|
||
"This is needed because string-match in XEmacs uses the current-
|
||
buffer's value of case-fold-search (different from GNU Emacs)."
|
||
(let ((case-fold-search nil))
|
||
(string-match regexp str)))
|
||
|
||
(defun libxmldoc-get-list-of-symbols()
|
||
"Get the list of html-links in the libxml-documentation."
|
||
(let ((files
|
||
(directory-files
|
||
libxmldoc-root t
|
||
(concat "^" (if (file-exists-p (concat libxmldoc-root
|
||
"/libxml-parser.html"))
|
||
"libxml-"
|
||
"gnome-xml-")
|
||
".*\\.html$") t))
|
||
(symbols ())
|
||
(case-fold-search t)
|
||
(uri))
|
||
(message "collecting libxml-symbols...")
|
||
(while (car files)
|
||
(message "processing %s" (car files))
|
||
(with-temp-buffer
|
||
(insert-file-contents (car files))
|
||
(goto-char (point-min))
|
||
(while (re-search-forward
|
||
"<a[^>]*href[ \t\n]*=[ \t\n]*\"\\([^=>]*\\)\"[^>]*>" nil t nil)
|
||
;; is it a relative link (#XXX)?
|
||
(if (char-equal (elt (match-string 1) 0) ?#)
|
||
(setq uri (concat "file://" (car files) (match-string 1)))
|
||
(setq uri (concat "file://" (expand-file-name libxmldoc-root)
|
||
"/" (match-string 1))))
|
||
(if (not (re-search-forward "\\([^<]*\\)<" nil t nil))
|
||
(error "regexp error while getting libxml-symbols.."))
|
||
;; this needs add-to-list because i.e. xmlChar appears often
|
||
(if (not (string-equal "" (match-string 1)))
|
||
(add-to-list 'symbols (cons (match-string 1) uri))))
|
||
;; (setq symbols (cons (cons (match-string 1) uri) symbols)))
|
||
)
|
||
(setq files (cdr files)))
|
||
symbols))
|
||
|
||
(provide 'libxmldoc)
|
||
|
||
;;; libxml-doc.el ends here
|
||
|
||
;;; Local Variables:
|
||
;;; indent-tabs-mode: nil
|
||
;;; End:
|