Mercurial > emacs
view lisp/=libc.el @ 31383:860d7ac182e3
(vc-rcs-show-log-entry): New function.
(vc-rcs-checkin, vc-rcs-checkout): Don't set all properties.
(vc-rcs-register): If there is no RCS subdir, ask the
user whether to create one.
(vc-rcs-state-heuristic): Use
file-ownership-preserved-p.
(vc-rcs-checkout): Remove the error-handling for missing-rcs.
(vc-rcs-state-heuristic): Don't use file-writable-p.
(vc-rcs-print-log): Insert in the current buffer.
(vc-rcs-diff): Insert in the current buffer and remove unused arg
CMP.
(vc-rcs-workfile-unchanged-p): Use vc-do-command
instead of vc-simple-command.
(vc-rcs-fetch-master-state): Removed check for unlocked-changes to
avoid doing a diff when opening a file.
(vc-rcs-state): Added check for unlocked-changes.
(vc-rcs-header): Escape Id.
(vc-rcs-workfile-unchanged-p): Remove optional arg VERSION.
(vc-rcs-state): Call vc-workfile-unchanged-p, not the RCS-specific
version.
(vc-rcs-state-heuristic): Use file-writable-p instead
of comparing userids.
(vc-rcs-fetch-master-state): Handle the case where rcs is missing.
Simplify the logic by eliminating unreachable code.
(vc-rcs-diff): Only pass `2' to vc-do-command if necessary and
just do a recursive call if we need to retry.
(vc-rcs-checkout): Handle the case where rcs is missing by making
the buffer read-write if requested and re-signalling the error.
(vc-rcs-find-most-recent-rev): New function. The code
derives from the old vc-parse-buffer but uses the revision number
rather than the date (much easier to compare robustly).
(vc-rcs-fetch-master-state): Use `with-temp-buffer'. Adapt to the
new vc-parse-buffer (and vc-rcs-find-most-recent-rev). Find the
locking-user more directly. Check strict locking and set
checkout-model appropriately.
(vc-rcs-parse-locks): Remove.
(vc-rcs-latest-on-branch-p): Use with-temp-buffer and adapt to the
new vc-parse-buffer (and vc-rcs-find-most-recent-rev).
(vc-rcs-system-release): Use with-current-buffer and
vc-parse-buffer.
(vc-rcs-register, vc-rcs-checkout): Use with-current-buffer.
Merge in code
from vc-rcs-hooks.el. Don't require 'vc anymore.
(vc-rcs-responsible-p): Use expand-file-name instead of concat and
file-directory-p instead of file-exists-p.
(vc-rcs-exists): Remove.
(vc-rcs-header): New var.
Update Copyright.
(vc-rcs-rename-file): New function.
(vc-rcs-diff): Remove unused `backend' variable.
(vc-rcs-clear-headers): New function; code moved here
from vc-clear-headers in vc.el.
(tail): Provide vc-rcs and remove vc-rcs-logentry-check.
(vc-rcs-register): Parse command output to find master
file name and workfile version.
(vc-rcs-checkout): Removed call to vc-file-clear-masterprops.
Require vc and vc-rcs-hooks.
(vc-rcs-trunk-p, vc-rcs-branch-part): Move to vc-rcs-hooks.
(vc-rcs-backend-release-p): Remove (use vc-rcs-release-p).
(vc-release-greater-or-equal-p): Move from vc.
(vc-rcs-trunk-p, vc-rcs-branch-p, vc-rcs-branch-part,
vc-rcs-minor-part, vc-rcs-previous-version): Remove duplicates.
(vc-rcs-checkout): Add a missing `new-version' argument in the
call to vc-rcs-latest-on-branch-p. Hopefully that was the right
one.
(vc-rcs-steal-lock): Renamed from `vc-rcs-steal'.
Updated everything to use `vc-checkout-model'.
(vc-rcs-backend-release-p): function added. other
stuff updated to reference this function instead of the old
`vc-backend-release-p'.
(vc-rcs-logentry-check): Function added.
(vc-rcs-checkin, vc-rcs-previous-version)
(vc-rcs-checkout): Name space cleaned up. No more revision number
crunching function names that are not prefixed with vc-rcs.
(vc-rcs-checkout-model): Function added. References to
`vc-checkout-model' replaced.
(vc-rcs-admin): Added the query-only option as
required by the vc.el file.
(vc-rcs-exists): Function added.
(vc-*-checkout):
Use with-temp-file instead of /bin/sh. Merged from mainline
(vc-rcs-latest-on-branch-p): Moved to vc-rcs-hooks.el.
(vc-rcs-latest-on-branch-p, vc-rcs-trunk-p)
(vc-rcs-branch-p, vc-rcs-branch-part, vc-rcs-minor-part)
(vc-rcs-previous-version): Functions added.
(vc-rcs-diff): Function added.
(vc-rcs-checkout) Bug (typo) found and fixed.
(vc-rcs-register-switches) Variable `vc-rcs-register-switches' added.
Require vc when compiling.
(vc-rcs-print-log, vc-rcs-assign-name, vc-rcs-merge)
(vc-rcs-check-headers, vc-rcs-steal, vc-rcs-uncheck, vc-rcs-revert)
(vc-rcs-checkin): New functions (code from vc.el).
(vc-rcs-previous-version, vc-rcs-system-release, vc-rcs-checkout):
Doc fix.
(vc-rcs-release): Deleted. (Duplicated vc-rcs-system-release).
(vc-rcs-trunk-p, vc-rcs-branch-p, vc-rcs-branch-part)
(vc-rcs-minor-part, vc-rcs-previous-version, vc-rcs-release)
(vc-rcs-release-p, vc-rcs-admin, vc-rcs-checkout): New functions
from vc.el.
(vc-rcs-system-release):
Renamed from vc-rcs-backend-release.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 04 Sep 2000 19:47:43 +0000 |
parents | 06f81684d7ea |
children |
line wrap: on
line source
;;; libc.el -- lookup C symbols in the GNU C Library Reference Manual. ;; Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc. ;;; Author: Ralph Schleicher <rs@purple.UL.BaWue.DE> ;;; Keywords: local c info ;; This file is part of GNU Emacs. ;; GNU Emacs 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, or (at your option) ;; any later version. ;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; This code has a long history. It started as a minor ;; mode for C mode. This era ended with the release of version 2 ;; of the GNU C Library in 1997. The code was therefore rewritten ;; more or less from scratch so that all lookups are performed via ;; indices. Not finding an existing symbol in an index means that ;; there is an error in the manual. Long missed features like a ;; separate input history, symbol name completion in the mini-buffer, ;; highlighting of looked up symbol names in the Info buffer, and ;; implicitly prepending `struct', `union' or `enum' to data types ;; were added in this phase too. ;;; Code: (require 'info) (defvar libc-info-file-name "libc" "Basename of the Info file of the GNU C Library Reference Manual.") (defvar libc-highlight-face 'highlight "*Face for highlighting looked up symbol names in the Info buffer. `nil' disables highlighting.") (defvar libc-highlight-overlay nil "Overlay object used for highlighting.") (defconst libc-symbol-completions nil "Alist of documented C symbols.") (defconst libc-file-completions nil "Alist of documented programs or files.") (defvar libc-history nil "History of previous input lines.") ;;;###autoload (defun libc-describe-symbol (symbol-name) "Display the documentation of a C symbol in another window. SYMBOL-NAME must be documented in the GNU C Library Reference Manual. If called interactively, SYMBOL-NAME will be read from the mini-buffer. Optional prefix argument means insert the default symbol (if any) into the mini-buffer so that it can be edited. The default symbol is the one found at point. If SYMBOL-NAME is a public function, variable, or data type of the GNU C Library but `libc-describe-symbol' fails to display it's documentation, then you have found a bug in the manual. Please report that to the mail address `bug-glibc-manual@prep.ai.mit.edu' so that it can be fixed." (interactive (let* ((completion-ignore-case nil) (enable-recursive-minibuffers t) (symbol (libc-symbol-at-point)) (value (completing-read (if symbol (format "Describe symbol (default %s): " symbol) (format "Describe symbol: ")) libc-symbol-completions nil nil (and current-prefix-arg symbol) 'libc-history))) (list (if (equal value "") symbol value)))) (or (assoc symbol-name libc-symbol-completions) (error "Not documented as a C symbol: %s" (or symbol-name ""))) (or (libc-lookup-function symbol-name) (libc-lookup-variable symbol-name) (libc-lookup-type symbol-name))) ;;;###autoload (defun libc-describe-file (file-name) "Display the documentation of a program or file in another window. FILE-NAME must be documented in the GNU C Library Reference Manual." (interactive (let* ((completion-ignore-case nil) (enable-recursive-minibuffers t)) (list (completing-read "Describe program or file: " libc-file-completions nil nil nil 'libc-history)))) (or (assoc file-name libc-file-completions) (error "Not documented as a program or file: %s" (or file-name ""))) (libc-lookup-file file-name)) ;;;###autoload (defun libc-search (regexp &optional arg) "Search in the GNU C Library Reference Manual for REGEXP. Prefix argument means search should ignore case." (interactive "sSearch `libc.info' for regexp: \nP") (or (get-buffer "*info*") (save-window-excursion (info))) (switch-to-buffer-other-window "*info*") (Info-goto-node (concat "(" libc-info-file-name ")")) (let ((case-fold-search arg)) (Info-search regexp))) (defun libc-make-completion-alist (info-nodes &optional regexp) "Create a unique alist from all menu items in the Info nodes INFO-NODES of the GNU C Reference Manual. Optional second argument REGEXP means include only menu items matching the regular expression REGEXP." (condition-case nil (let (completions item) (save-window-excursion (info libc-info-file-name) (while info-nodes (Info-goto-node (car info-nodes)) (goto-char (point-min)) (and (search-forward "\n* Menu:" nil t) (while (re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t) (setq item (buffer-substring (match-beginning 1) (match-end 1))) (and (not (assoc item completions)) (if regexp (string-match regexp item) t) (setq completions (cons (cons item nil) completions))))) (setq info-nodes (cdr info-nodes))) (Info-directory)) completions) (error nil))) (defun libc-after-manual-update () "This function must only be called after a new version of the GNU C Library Reference Manual was installed on your system." (setq libc-symbol-completions (libc-make-completion-alist '("Function Index" "Variable Index" "Type Index")) libc-file-completions (libc-make-completion-alist '("File Index") "^[^ \t]+$"))) (or (and libc-symbol-completions libc-file-completions) (libc-after-manual-update)) (defun libc-symbol-at-point () "Get the C symbol at point." (condition-case nil (save-excursion (backward-sexp) (let ((start (point)) prefix name) ;; Test for a leading `struct', `union', or `enum' keyword ;; but ignore names like `foo_struct'. (setq prefix (and (< (skip-chars-backward " \t\n") 0) (< (skip-chars-backward "_a-zA-Z0-9") 0) (looking-at "\\(struct\\|union\\|enum\\)\\s ") (concat (buffer-substring (match-beginning 1) (match-end 1)) " "))) (goto-char start) (and (looking-at "[_a-zA-Z][_a-zA-Z0-9]*") (setq name (buffer-substring (match-beginning 0) (match-end 0)))) ;; Caveat! Look forward if point is at `struct' etc. (and (not prefix) (or (string-equal name "struct") (string-equal name "union") (string-equal name "enum")) (looking-at "[a-z]+\\s +\\([_a-zA-Z][_a-zA-Z0-9]*\\)") (setq prefix (concat name " ") name (buffer-substring (match-beginning 1) (match-end 1)))) (and (or prefix name) (concat prefix name)))) (error nil))) (defun libc-lookup-function (function) (libc-search-index "Function Index" function "^[ \t]+- \\(Function\\|Macro\\): .*\\<" "\\>")) (defun libc-lookup-variable (variable) (libc-search-index "Variable Index" variable "^[ \t]+- \\(Variable\\|Macro\\): .*\\<" "\\>")) (defun libc-lookup-type (data-type) (libc-search-index "Type Index" data-type "^[ \t]+- Data Type: \\<" "\\>")) (defun libc-lookup-file (file-name) (libc-search-index "File Index" file-name)) (defun libc-search-index (index item &optional prefix suffix) "Search ITEM in the Info index INDEX and go to that Info node. Value is ITEM or `nil' if an error occurs. If PREFIX and/or SUFFIX are non-`nil', then search the Info node for the first occurrence of the regular expression `PREFIX ITEM SUFFIX' and leave point at the beginning of the first line of the match. ITEM will be highlighted with `libc-highlight-face' iff `libc-highlight-face' is not `nil'." (condition-case nil (save-selected-window (or (get-buffer "*info*") (save-window-excursion (info))) (switch-to-buffer-other-window "*info*") (Info-goto-node (concat "(" libc-info-file-name ")" index)) (Info-menu item) (if (or prefix suffix) (let ((case-fold-search nil) (buffer-read-only nil)) (goto-char (point-min)) (re-search-forward (concat prefix (regexp-quote item) suffix)) (goto-char (match-beginning 0)) (and window-system libc-highlight-face ;; Search again for ITEM so that the first ;; occurence of ITEM will be highlighted. (save-excursion (re-search-forward (regexp-quote item)) (let ((start (match-beginning 0)) (end (match-end 0))) (if (overlayp libc-highlight-overlay) (move-overlay libc-highlight-overlay start end (current-buffer)) (setq libc-highlight-overlay (make-overlay start end)))) (overlay-put libc-highlight-overlay 'face libc-highlight-face))) (beginning-of-line))) item) (error nil))) (provide 'libc) ;;; libc.el ends here