Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-c-ft.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 4103f0995bd7
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
4 ;; SUMMARY: OO-Browser C construct handling. 4 ;; SUMMARY: OO-Browser C construct handling.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: c, tools 6 ;; KEYWORDS: c, tools
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: Motorola, Inc.
10 ;; 10 ;;
11 ;; ORIG-DATE: 3-May-95 at 16:47:05 11 ;; ORIG-DATE: 3-May-95 at 16:47:05
12 ;; LAST-MOD: 21-Feb-97 at 17:31:44 by Bob Weiner 12 ;; LAST-MOD: 21-Oct-95 at 04:30:51 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. 14 ;; Copyright (C) 1995 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information. 15 ;; See the file BR-COPY for license information.
16 ;; 16 ;;
17 ;; This file is part of the OO-Browser. 17 ;; This file is part of the OO-Browser.
18 ;; 18 ;;
19 ;; DESCRIPTION: 19 ;; DESCRIPTION:
20 ;; DESCRIP-END. 20 ;; DESCRIP-END.
21
22 ;;; ************************************************************************
23 ;;; Other required Elisp libraries
24 ;;; ************************************************************************
21 25
22 ;;; ************************************************************************ 26 ;;; ************************************************************************
23 ;;; Public variables 27 ;;; Public variables
24 ;;; ************************************************************************ 28 ;;; ************************************************************************
25 29
63 ; (expand-file-name "br-c-tags" br-directory) 67 ; (expand-file-name "br-c-tags" br-directory)
64 ; br-tags-file 68 ; br-tags-file
65 ; (mapcar 'expand-file-name 69 ; (mapcar 'expand-file-name
66 ; (delq nil (append br-sys-search-dirs 70 ; (delq nil (append br-sys-search-dirs
67 ; br-lib-search-dirs)))) 71 ; br-lib-search-dirs))))
68 (if hyperb:microcruft-os-p 72 (apply 'call-process (expand-file-name "br-c-tags" br-directory)
69 (apply 'call-process "bash" 73 nil nil nil
70 nil nil nil 74 ;; If no etags program in exec-directory, use one in user's $PATH.
71 (expand-file-name "br-c-tags" br-directory) 75 (let ((etags (expand-file-name "etags" exec-directory)))
72 ;; If no etags program in exec-directory, use one in user's $PATH. 76 (if (file-executable-p etags) etags "etags"))
73 (let ((etags (expand-file-name "etags" exec-directory))) 77 br-tags-file
74 (if (file-executable-p etags) etags "etags")) 78 (mapcar 'expand-file-name
75 br-tags-file 79 (delq nil (append br-sys-search-dirs br-lib-search-dirs))))
76 (mapcar 'expand-file-name
77 (delq nil (append br-sys-search-dirs br-lib-search-dirs))))
78 (apply 'call-process (expand-file-name "br-c-tags" br-directory)
79 nil nil nil
80 ;; If no etags program in exec-directory, use one in user's $PATH.
81 (let ((etags (expand-file-name "etags" exec-directory)))
82 (if (file-executable-p etags) etags "etags"))
83 br-tags-file
84 (mapcar 'expand-file-name
85 (delq nil (append br-sys-search-dirs br-lib-search-dirs)))))
86 (goto-char (point-max)) 80 (goto-char (point-max))
87 (let ((c-tags-start (point))) 81 (let ((c-tags-start (point)))
88 (insert-file-contents br-tags-file) 82 (insert-file-contents br-tags-file)
89 (goto-char (point-max)) 83 (goto-char (point-max))
90 (insert "\^L\n") ;; To mark end of C tags insertion. 84 (insert "\^L\n") ;; To mark end of C tags insertion.
104 ;; searching backward but are actually single line comments. 98 ;; searching backward but are actually single line comments.
105 (save-excursion 99 (save-excursion
106 (and (re-search-backward "\\(^\\|[^/]\\)/\\*\\|\\*/" nil t) 100 (and (re-search-backward "\\(^\\|[^/]\\)/\\*\\|\\*/" nil t)
107 (not (looking-at "\\*/"))))) 101 (not (looking-at "\\*/")))))
108 102
103 ;;; ************************************************************************
104 ;;; Private functions
105 ;;; ************************************************************************
106
107 ;;; ************************************************************************
108 ;;; Private variables
109 ;;; ************************************************************************
110
109 (provide 'br-c-ft) 111 (provide 'br-c-ft)