2009-09-20 15:06:05 +00:00
|
|
|
;;; ede/emacs.el --- Special project for Emacs
|
|
|
|
|
|
2013-01-01 09:11:05 +00:00
|
|
|
;; Copyright (C) 2008-2013 Free Software Foundation, Inc.
|
2009-09-20 15:06:05 +00:00
|
|
|
|
|
|
|
|
;; Author: Eric M. Ludlam <eric@siege-engine.com>
|
|
|
|
|
|
|
|
|
|
;; 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 3 of the License, 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. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
;;
|
|
|
|
|
;; Provide a special project type just for Emacs, cause Emacs is special.
|
|
|
|
|
;;
|
|
|
|
|
;; Identifies an Emacs project automatically.
|
|
|
|
|
;; Speedy ede-expand-filename based on extension.
|
|
|
|
|
;; Pre-populates the preprocessor map from lisp.h
|
|
|
|
|
;;
|
|
|
|
|
;; ToDo :
|
|
|
|
|
;; * Add "build" options.
|
|
|
|
|
;; * Add texinfo lookup options.
|
|
|
|
|
;; * Add website
|
|
|
|
|
|
|
|
|
|
(require 'ede)
|
|
|
|
|
(declare-function semanticdb-file-table-object "semantic/db")
|
|
|
|
|
(declare-function semanticdb-needs-refresh-p "semantic/db")
|
|
|
|
|
(declare-function semanticdb-refresh-table "semantic/db")
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
(defvar ede-emacs-project-list nil
|
|
|
|
|
"List of projects created by option `ede-emacs-project'.")
|
|
|
|
|
|
|
|
|
|
(defun ede-emacs-file-existing (dir)
|
|
|
|
|
"Find a Emacs project in the list of Emacs projects.
|
|
|
|
|
DIR is the directory to search from."
|
|
|
|
|
(let ((projs ede-emacs-project-list)
|
|
|
|
|
(ans nil))
|
|
|
|
|
(while (and projs (not ans))
|
|
|
|
|
(let ((root (ede-project-root-directory (car projs))))
|
2009-10-17 04:18:31 +00:00
|
|
|
(when (string-match (concat "^" (regexp-quote root))
|
|
|
|
|
(file-name-as-directory dir))
|
2009-09-20 15:06:05 +00:00
|
|
|
(setq ans (car projs))))
|
|
|
|
|
(setq projs (cdr projs)))
|
|
|
|
|
ans))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun ede-emacs-project-root (&optional dir)
|
|
|
|
|
"Get the root directory for DIR."
|
|
|
|
|
(when (not dir) (setq dir default-directory))
|
|
|
|
|
(let ((case-fold-search t)
|
Merge with CEDET upstream (rev. 8499).
lisp/
* eieio/eieio-datadebug.el (data-debug/eieio-insert-slots):
Inhibit read only while inserting objects.
lisp/cedet/
* semantic.el (navigate-menu): Yank Tag :enable. Make sure
`senator-tag-ring' is bound.
(semantic-parse-region-default): Stop reversing the output of
parse-whole-stream.
(semantic-repeat-parse-whole-stream): Append returned tags
differently, so they come out in the right order.
* semantic/sb.el (semantic-sb-filter-tags-of-class): New option.
(semantic-sb-fetch-tag-table): Filter tags being bucketed to exclude
tags belonging to above filtered classes.
* semantic/find.el (semantic-filter-tags-by-class): New function.
* semantic/tag-ls.el (semantic-tag-similar-p-default): Add
short-circuit in case tag1 and 2 are identical.
* semantic/analyze/fcn.el
(semantic-analyze-dereference-metatype-stack): Use
`semantic-tag-similar-p' instead of 'eq' when comparing two tags
during metatype evaluation in case they are the same, but not the same
node. (Tweaked patch from Tomasz Gajewski) (Tiny change)
* semantic/db-find.el (semanticdb-partial-synchronize): Fix require to
semantic/db-typecache to be correct.
(semanticdb-find-tags-external-children-of-type): Make this a brutish
search by default.
* semantic/sort.el (semantic-tag-external-member-children-default):
When calling `semanticdb-find-tags-external-children-of-type', pass in
the input tag as the place to start searching for externally defined
methods.
* semantic/db-file.el (semanticdb-default-save-directory): Doc
fix: Add ref to default value.
* semantic/complete.el (semantic-complete-post-command-hook): When
detecting if cursor is outside completion area, do so if cursor moves
before start of overlay, or the original starting location of the
overlay (i.e., if user deletes past beginning of the overlay region).
(semantic-complete-inline-tag-engine): Initialize original start of
`semantic-complete-inline-overlay'.
* semantic/bovine/c.el (semantic-c-describe-environment): Update some
section titles. Test semanticdb table before printing it.
(semantic-c-reset-preprocessor-symbol-map): Update
`semantic-lex-spp-macro-symbol-obarray' outside the loop over all the
files contributing to its value.
(semantic-c-describe-environment): If there is an EDE project but no
spp symbols from it, say so.
* srecode/args.el (srecode-semantic-handle-:project): New argument
handler. Provide variable values if not in an EDE project.
* srecode/srt-mode.el (srecode-template-mode): Fix typo on srecode
name.
* srecode/cpp.el (srecode-semantic-handle-:c): Replace all characters
in FILENAME_SYMBOL that aren't valid CPP symbol chars.
* srecode/map.el (srecode-map-validate-file-for-mode): Force semantic
to load if it is not active in the template being added to the map.
* srecode/srt.el: Add local variables for setting the autoload file
name.
(srecode-semantic-handle-:srt): New autoload cookie
* ede.el (ede-apply-preprocessor-map): Apply map to
`semantic-lex-spp-project-macro-symbol-obarray' instead of the system
one. Add require for semantic.
* ede/proj-elisp.el (ede-update-version-in-source): In case a file has
both a version variable and a Version: comment, always use
`call-next-method'.
* ede/cpp-root.el (ede-set-project-variables): Deleted.
`ede-preprocessor-map' does the job this function was attempting to do
with :spp-table.
(ede-preprocessor-map): Update file tests to provide better messages.
Do not try to get symbols from a file that is the file in the current
buffer.
* ede/base.el (ede-project-placeholder): Add more documentation to
:file slot.
(ede-load-cache): Use `insert-file-contents' instead of
`find-file-noselect' in order to avoid activating other tools.
* semantic/bovine/c.el (semantic-get-local-variables): Also add a new
variable 'this' if we are in an inline member function. For detecting
this, we check overlays at point if there is a class spanning the
current function. Also, the variable 'this' has to be a pointer.
* semantic/bovine/gcc.el (semantic-gcc-setup): Fail gracefully when
querying g++ for defines returns an error.
* srecode/srt-mode.el:
* srecode/compile.el:
* semantic/elp.el:
* semantic/db-el.el:
* semantic/complete.el:
* ede.el:
* cogre.el:
* srecode/table.el:
* srecode/mode.el:
* srecode/insert.el:
* srecode/compile.el:
* semantic/decorate/include.el:
* semantic/db.el:
* semantic/adebug.el:
* ede/auto.el:
* srecode/dictionary.el:
* semantic/ede-grammar.el:
* semantic/db.el:
* semantic/db-find.el:
* semantic/db-file.el:
* semantic/complete.el:
* semantic/bovine/c.el:
* semantic/analyze.el:
* ede/util.el:
* ede/proj.el:
* ede/proj-elisp.el:
* ede/pconf.el:
* ede/locate.el:
* ede.el: Adapt to EIEIO namespace cleanup: Rename `object-name' to
`eieio-object-name', `object-set-name-string' to
`eieio-object-set-name-string', `object-class' to
`eieio-object-class', `class-parent' to `eieio-class-parent',
`class-parents' to `eieio-class-parents', `class-children' to
`eieio-class-children', `object-name-string' to
`eieio-object-name-string', `object-class-fast' to
`eieio--object-class'. Also replace direct access with new accessor
functions.
* ede/cpp-root.el (ede-project-autoload, initialize-instance): Fix EDE
file symbol to match rename. Fix ede-cpp-root symbol to include
-project in name.
* cedet-files.el (cedet-files-list-recursively): New function.
Recursively find files whose names are matching to given regex
* ede.el (ede-current-project): Rewrite to avoid imperative style.
* ede/files.el (ede-find-file): Simplify code.
* ede/base.el (ede-normalize-file/directory): Add function to
normalize :file or :directory slots if they are missing.
* ede/cpp-root.el (ede-cpp-root-project): Add compile-command slot.
(project-compile-project): Compiles project using value specified in
:compule-command slot or in compile-command local variable. Value of
slot or local variable could be string or function that receives
project and should return string that will be invoked as command.
(project-compile-target): Invokes compilation of whole project
* ede/files.el (ede-find-project-root): New function to find root of
project that contains specific file.
(ede-files-find-existing): New function which checks presence of given
directory in the list of registered projects.
etc/
* srecode/ede-autoconf.srt: Change Copyright to FSF.
(ede-empty): Change AC_INIT to use PROJECT_NAME, and PROJECT_VERSION.
* srecode/ede-make.srt (ede-empty): Add a dependency on :project. Add
header comment specifying the project's relative path.
* srecode/c.srt (header_guard): Upcase the filename symbol.
* srecode/java.srt (empty-main): New.
(class-tag): Decapitalize class.
2013-03-21 23:11:03 +01:00
|
|
|
(proj (ede-files-find-existing dir ede-emacs-project-list)))
|
2009-09-20 15:06:05 +00:00
|
|
|
(if proj
|
|
|
|
|
(ede-up-directory (file-name-directory
|
|
|
|
|
(oref proj :file)))
|
2011-11-15 18:37:37 +01:00
|
|
|
;; No pre-existing project. Let's take a wild-guess if we have
|
2009-09-20 15:06:05 +00:00
|
|
|
;; an Emacs project here.
|
|
|
|
|
(when (string-match "emacs[^/]*" dir)
|
|
|
|
|
(let ((base (substring dir 0 (match-end 0))))
|
|
|
|
|
(when (file-exists-p (expand-file-name "src/emacs.c" base))
|
|
|
|
|
base))))))
|
|
|
|
|
|
|
|
|
|
(defun ede-emacs-version (dir)
|
2009-10-17 04:18:31 +00:00
|
|
|
"Find the Emacs version for the Emacs src in DIR.
|
|
|
|
|
Return a tuple of ( EMACSNAME . VERSION )."
|
|
|
|
|
(let ((buff (get-buffer-create " *emacs-query*"))
|
2012-07-08 21:52:49 -07:00
|
|
|
(configure_ac "configure.ac")
|
2009-10-17 04:18:31 +00:00
|
|
|
(emacs "Emacs")
|
|
|
|
|
(ver ""))
|
* cedet/srecode/srt-mode.el (semantic-analyze-possible-completions):
* cedet/semantic/symref/list.el (semantic-symref-rb-toggle-expand-tag):
* cedet/semantic/symref/grep.el (semantic-symref-perform-search):
* cedet/semantic/bovine/gcc.el (semantic-gcc-query):
* cedet/semantic/bovine/c.el (semantic-c-parse-lexical-token):
* cedet/semantic/analyze/debug.el (semantic-analyzer-debug-add-buttons)
(semantic-analyzer-debug-global-symbol)
(semantic-analyzer-debug-missing-innertype)
(semantic-analyzer-debug-insert-include-summary):
* cedet/semantic/util.el (semantic-file-tag-table):
(semantic-describe-buffer-var-helper, semantic-something-to-tag-table)
(semantic-recursive-find-nonterminal-by-name):
* cedet/semantic/tag-ls.el (semantic-tag-calculate-parent-default):
* cedet/semantic/tag-file.el (semantic-prototype-file):
* cedet/semantic/symref.el (semantic-symref-parse-tool-output):
* cedet/semantic/sb.el (semantic-sb-fetch-tag-table):
* cedet/semantic/lex-spp.el (semantic-lex-spp-lex-text-string):
* cedet/semantic/idle.el (semantic-idle-work-for-one-buffer):
(semantic-idle-summary-maybe-highlight):
* cedet/semantic/ia-sb.el (semantic-ia-speedbar)
(semantic-ia-sb-tag-info):
* cedet/semantic/grammar.el (semantic-analyze-possible-completions):
* cedet/semantic/find.el (semantic-brute-find-tag-by-position):
* cedet/semantic/ede-grammar.el (project-compile-target):
(ede-proj-makefile-insert-variables):
* cedet/semantic/debug.el (semantic-debug-set-parser-location):
(semantic-debug-set-source-location, semantic-debug-interface-layout)
(semantic-debug-mode, semantic-debug):
* cedet/semantic/db.el (semanticdb-needs-refresh-p):
* cedet/semantic/db-typecache.el (semanticdb-typecache-refresh-for-buffer):
* cedet/semantic/db-javascript.el (semanticdb-equivalent-mode):
* cedet/semantic/db-find.el (semanticdb-find-log-new-search)
(semanticdb-find-translate-path-includes--internal)
(semanticdb-reset-log, semanticdb-find-log-activity):
* cedet/semantic/db-file.el (object-write):
* cedet/semantic/db-el.el (semanticdb-equivalent-mode):
* cedet/semantic/db-ebrowse.el (semanticdb-ebrowse-C-file-p)
(semanticdb-create-ebrowse-database):
* cedet/semantic/db-debug.el (semanticdb-table-sanity-check):
* cedet/semantic/complete.el (semantic-displayor-focus-request)
(semantic-collector-calculate-completions-raw)
(semantic-complete-read-tag-analyzer):
* cedet/semantic/analyze.el (semantic-analyze-pulse):
* cedet/ede/util.el (ede-update-version-in-source):
* cedet/ede/proj.el (project-delete-target):
* cedet/ede/proj-elisp.el (ede-update-version-in-source)
(ede-proj-flush-autoconf):
* cedet/ede/pconf.el (ede-proj-configure-synchronize)
(ede-proj-configure-synchronize):
* cedet/ede/locate.el (ede-locate-file-in-project-impl):
* cedet/ede/linux.el (ede-linux-version):
* cedet/ede/emacs.el (ede-emacs-version):
* cedet/ede/dired.el (ede-dired-add-to-target):
* cedet/ede.el (ede-buffer-header-file, ede-find-target)
(ede-buffer-documentation-files, ede-project-buffers, ede-set)
(ede-target-buffers, ede-buffers, ede-make-project-local-variable):
* cedet/cedet-idutils.el (cedet-idutils-fnid-call):
(cedet-idutils-lid-call, cedet-idutils-expand-filename)
(cedet-idutils-version-check):
* cedet/cedet-global.el (cedet-gnu-global-call):
(cedet-gnu-global-expand-filename, cedet-gnu-global-root)
(cedet-gnu-global-version-check, cedet-gnu-global-scan-hits):
* cedet/cedet-cscope.el (cedet-cscope-call)
(cedet-cscope-expand-filename, cedet-cscope-version-check):
Use with-current-buffer.
* cedet/ede.el (ede-make-project-local-variable)
(ede-set-project-variables, ede-set): Use dolist.
2009-10-30 02:16:41 +00:00
|
|
|
(with-current-buffer buff
|
2009-09-20 15:06:05 +00:00
|
|
|
(erase-buffer)
|
|
|
|
|
(setq default-directory (file-name-as-directory dir))
|
2012-07-08 21:52:49 -07:00
|
|
|
(or (file-exists-p configure_ac)
|
|
|
|
|
(setq configure_ac "configure.in"))
|
2009-10-17 04:18:31 +00:00
|
|
|
;(call-process "egrep" nil buff nil "-n" "-e" "^version=" "Makefile")
|
2012-07-08 21:52:49 -07:00
|
|
|
(call-process "egrep" nil buff nil "-n" "-e" "AC_INIT" configure_ac)
|
2009-09-20 15:06:05 +00:00
|
|
|
(goto-char (point-min))
|
2009-10-17 04:18:31 +00:00
|
|
|
;(re-search-forward "version=\\([0-9.]+\\)")
|
|
|
|
|
(cond
|
|
|
|
|
;; Maybe XEmacs?
|
|
|
|
|
((file-exists-p "version.sh")
|
|
|
|
|
(setq emacs "XEmacs")
|
|
|
|
|
(insert-file-contents "version.sh")
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(re-search-forward "emacs_major_version=\\([0-9]+\\)
|
|
|
|
|
emacs_minor_version=\\([0-9]+\\)
|
|
|
|
|
emacs_beta_version=\\([0-9]+\\)")
|
|
|
|
|
(setq ver (concat (match-string 1) "."
|
|
|
|
|
(match-string 2) "."
|
|
|
|
|
(match-string 3)))
|
|
|
|
|
)
|
2012-10-02 02:10:29 +08:00
|
|
|
((file-exists-p "sxemacs.pc.in")
|
|
|
|
|
(setq emacs "SXEmacs")
|
|
|
|
|
(insert-file-contents "sxemacs_version.m4")
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(re-search-forward "m4_define(\\[SXEM4CS_MAJOR_VERSION\\], \\[\\([0-9]+\\)\\])
|
|
|
|
|
m4_define(\\[SXEM4CS_MINOR_VERSION\\], \\[\\([0-9]+\\)\\])
|
|
|
|
|
m4_define(\\[SXEM4CS_BETA_VERSION\\], \\[\\([0-9]+\\)\\])")
|
|
|
|
|
(setq ver (concat (match-string 1) "."
|
|
|
|
|
(match-string 2) "."
|
|
|
|
|
(match-string 3)))
|
|
|
|
|
)
|
2009-10-17 04:18:31 +00:00
|
|
|
;; Insert other Emacs here...
|
|
|
|
|
|
|
|
|
|
;; Vaguely recent version of GNU Emacs?
|
|
|
|
|
(t
|
2012-07-08 21:52:49 -07:00
|
|
|
(insert-file-contents configure_ac)
|
2009-10-17 04:18:31 +00:00
|
|
|
(goto-char (point-min))
|
|
|
|
|
(re-search-forward "AC_INIT(emacs,\\s-*\\([0-9.]+\\)\\s-*)")
|
|
|
|
|
(setq ver (match-string 1))
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
;; Return a tuple
|
|
|
|
|
(cons emacs ver))))
|
2009-09-20 15:06:05 +00:00
|
|
|
|
|
|
|
|
(defclass ede-emacs-project (ede-project eieio-instance-tracker)
|
|
|
|
|
((tracking-symbol :initform 'ede-emacs-project-list)
|
|
|
|
|
)
|
|
|
|
|
"Project Type for the Emacs source code."
|
|
|
|
|
:method-invocation-order :depth-first)
|
|
|
|
|
|
|
|
|
|
(defun ede-emacs-load (dir &optional rootproj)
|
|
|
|
|
"Return an Emacs Project object if there is a match.
|
|
|
|
|
Return nil if there isn't one.
|
|
|
|
|
Argument DIR is the directory it is created for.
|
|
|
|
|
ROOTPROJ is nil, since there is only one project."
|
Merge with CEDET upstream (rev. 8499).
lisp/
* eieio/eieio-datadebug.el (data-debug/eieio-insert-slots):
Inhibit read only while inserting objects.
lisp/cedet/
* semantic.el (navigate-menu): Yank Tag :enable. Make sure
`senator-tag-ring' is bound.
(semantic-parse-region-default): Stop reversing the output of
parse-whole-stream.
(semantic-repeat-parse-whole-stream): Append returned tags
differently, so they come out in the right order.
* semantic/sb.el (semantic-sb-filter-tags-of-class): New option.
(semantic-sb-fetch-tag-table): Filter tags being bucketed to exclude
tags belonging to above filtered classes.
* semantic/find.el (semantic-filter-tags-by-class): New function.
* semantic/tag-ls.el (semantic-tag-similar-p-default): Add
short-circuit in case tag1 and 2 are identical.
* semantic/analyze/fcn.el
(semantic-analyze-dereference-metatype-stack): Use
`semantic-tag-similar-p' instead of 'eq' when comparing two tags
during metatype evaluation in case they are the same, but not the same
node. (Tweaked patch from Tomasz Gajewski) (Tiny change)
* semantic/db-find.el (semanticdb-partial-synchronize): Fix require to
semantic/db-typecache to be correct.
(semanticdb-find-tags-external-children-of-type): Make this a brutish
search by default.
* semantic/sort.el (semantic-tag-external-member-children-default):
When calling `semanticdb-find-tags-external-children-of-type', pass in
the input tag as the place to start searching for externally defined
methods.
* semantic/db-file.el (semanticdb-default-save-directory): Doc
fix: Add ref to default value.
* semantic/complete.el (semantic-complete-post-command-hook): When
detecting if cursor is outside completion area, do so if cursor moves
before start of overlay, or the original starting location of the
overlay (i.e., if user deletes past beginning of the overlay region).
(semantic-complete-inline-tag-engine): Initialize original start of
`semantic-complete-inline-overlay'.
* semantic/bovine/c.el (semantic-c-describe-environment): Update some
section titles. Test semanticdb table before printing it.
(semantic-c-reset-preprocessor-symbol-map): Update
`semantic-lex-spp-macro-symbol-obarray' outside the loop over all the
files contributing to its value.
(semantic-c-describe-environment): If there is an EDE project but no
spp symbols from it, say so.
* srecode/args.el (srecode-semantic-handle-:project): New argument
handler. Provide variable values if not in an EDE project.
* srecode/srt-mode.el (srecode-template-mode): Fix typo on srecode
name.
* srecode/cpp.el (srecode-semantic-handle-:c): Replace all characters
in FILENAME_SYMBOL that aren't valid CPP symbol chars.
* srecode/map.el (srecode-map-validate-file-for-mode): Force semantic
to load if it is not active in the template being added to the map.
* srecode/srt.el: Add local variables for setting the autoload file
name.
(srecode-semantic-handle-:srt): New autoload cookie
* ede.el (ede-apply-preprocessor-map): Apply map to
`semantic-lex-spp-project-macro-symbol-obarray' instead of the system
one. Add require for semantic.
* ede/proj-elisp.el (ede-update-version-in-source): In case a file has
both a version variable and a Version: comment, always use
`call-next-method'.
* ede/cpp-root.el (ede-set-project-variables): Deleted.
`ede-preprocessor-map' does the job this function was attempting to do
with :spp-table.
(ede-preprocessor-map): Update file tests to provide better messages.
Do not try to get symbols from a file that is the file in the current
buffer.
* ede/base.el (ede-project-placeholder): Add more documentation to
:file slot.
(ede-load-cache): Use `insert-file-contents' instead of
`find-file-noselect' in order to avoid activating other tools.
* semantic/bovine/c.el (semantic-get-local-variables): Also add a new
variable 'this' if we are in an inline member function. For detecting
this, we check overlays at point if there is a class spanning the
current function. Also, the variable 'this' has to be a pointer.
* semantic/bovine/gcc.el (semantic-gcc-setup): Fail gracefully when
querying g++ for defines returns an error.
* srecode/srt-mode.el:
* srecode/compile.el:
* semantic/elp.el:
* semantic/db-el.el:
* semantic/complete.el:
* ede.el:
* cogre.el:
* srecode/table.el:
* srecode/mode.el:
* srecode/insert.el:
* srecode/compile.el:
* semantic/decorate/include.el:
* semantic/db.el:
* semantic/adebug.el:
* ede/auto.el:
* srecode/dictionary.el:
* semantic/ede-grammar.el:
* semantic/db.el:
* semantic/db-find.el:
* semantic/db-file.el:
* semantic/complete.el:
* semantic/bovine/c.el:
* semantic/analyze.el:
* ede/util.el:
* ede/proj.el:
* ede/proj-elisp.el:
* ede/pconf.el:
* ede/locate.el:
* ede.el: Adapt to EIEIO namespace cleanup: Rename `object-name' to
`eieio-object-name', `object-set-name-string' to
`eieio-object-set-name-string', `object-class' to
`eieio-object-class', `class-parent' to `eieio-class-parent',
`class-parents' to `eieio-class-parents', `class-children' to
`eieio-class-children', `object-name-string' to
`eieio-object-name-string', `object-class-fast' to
`eieio--object-class'. Also replace direct access with new accessor
functions.
* ede/cpp-root.el (ede-project-autoload, initialize-instance): Fix EDE
file symbol to match rename. Fix ede-cpp-root symbol to include
-project in name.
* cedet-files.el (cedet-files-list-recursively): New function.
Recursively find files whose names are matching to given regex
* ede.el (ede-current-project): Rewrite to avoid imperative style.
* ede/files.el (ede-find-file): Simplify code.
* ede/base.el (ede-normalize-file/directory): Add function to
normalize :file or :directory slots if they are missing.
* ede/cpp-root.el (ede-cpp-root-project): Add compile-command slot.
(project-compile-project): Compiles project using value specified in
:compule-command slot or in compile-command local variable. Value of
slot or local variable could be string or function that receives
project and should return string that will be invoked as command.
(project-compile-target): Invokes compilation of whole project
* ede/files.el (ede-find-project-root): New function to find root of
project that contains specific file.
(ede-files-find-existing): New function which checks presence of given
directory in the list of registered projects.
etc/
* srecode/ede-autoconf.srt: Change Copyright to FSF.
(ede-empty): Change AC_INIT to use PROJECT_NAME, and PROJECT_VERSION.
* srecode/ede-make.srt (ede-empty): Add a dependency on :project. Add
header comment specifying the project's relative path.
* srecode/c.srt (header_guard): Upcase the filename symbol.
* srecode/java.srt (empty-main): New.
(class-tag): Decapitalize class.
2013-03-21 23:11:03 +01:00
|
|
|
(or (ede-files-find-existing dir ede-emacs-project-list)
|
2011-11-15 18:37:37 +01:00
|
|
|
;; Doesn't already exist, so let's make one.
|
2012-10-02 02:10:29 +08:00
|
|
|
(let* ((vertuple (ede-emacs-version dir))
|
|
|
|
|
(proj (ede-emacs-project
|
|
|
|
|
(car vertuple)
|
|
|
|
|
:name (car vertuple)
|
|
|
|
|
:version (cdr vertuple)
|
|
|
|
|
:directory (file-name-as-directory dir)
|
|
|
|
|
:file (expand-file-name "src/emacs.c"
|
|
|
|
|
dir))))
|
|
|
|
|
(ede-add-project-to-global-list proj))))
|
2009-09-20 15:06:05 +00:00
|
|
|
|
Synch EDE to CEDET 1.0.
* cedet-idutils.el (cedet-idutils-make-command): New option.
(cedet-idutils-mkid-call):
(cedet-idutils-create/update-database): New functions.
* cedet-cscope.el (cedet-cscope-create):
(cedet-cscope-create/update-database): New functions.
(cedet-cscope-support-for-directory): Make interactive.
* cedet-global.el (cedet-global-gtags-command): New option.
(cedet-gnu-global-gtags-call)
(cedet-gnu-global-create/update-database): New functions.
* ede.el (ede-save-cache): Fix recentf-exclude expression.
(ede-make-dist): Always use toplevel project.
(ede-buffer-object): If we fail to find an object in the current
project, loop upward looking for a match. If no target is found,
use most local project.
(ede-buffer-belongs-to-target-p)
(ede-buffer-belongs-to-project-p): New functions.
(ede-initialize-state-current-buffer): New function.
(ede-target-forms-menu, ede-project-buffers): Use them.
(ede-minor-mode, ede-reset-all-buffers): Use it.
(project-interactive-select-target, project-add-file): Don't use
ede-project-force-load.
(ede-buffer-object): New arg PROJSYM.
(ede-minor-mode): Remove ede-directory-project-p test.
(ede-initialize-state-current-buffer): Don't test for
ede-directory-project-p if there is a matching open project.
(ede-customize-forms-menu): Prevent error if there is no project.
(ede-load-project-file): Set ede-constructing to the thing being
constructed, instead of t.
(ede-project-force-load): Deleted.
* ede/base.el:
* ede/auto.el:
* ede/custom.el: New files.
* ede/autoconf-edit.el (autoconf-find-last-macro)
(autoconf-parameters-for-macro): Parse multiline parameters of
macros. Optionally ignore case and at bol for macro.
(autoconf-parameter-strip): Use greedy match for newlines.
(autoconf-new-automake-string): Deleted.
(autoconf-new-program): Use SRecode to fill an empty file.
* ede/cpp-root.el (ede-create-lots-of-projects-under-dir): New
function.
* ede/files.el (ede-flush-project-hash): New command.
(ede-convert-path): Add optional PROJECT arg.
(ede-directory-project-p): Obey ".ede-ignore".
(ede-expand-filename-local)
(ede-expand-filename-impl-via-subproj): New methods.
(ede-expand-filename-impl): Use them.
(ede-project-root, ede-project-root-directory): Move to
ede/auto.el.
* ede/locate.el (ede-locate-flush-hash):
(ede-locate-create/update-root-database): New methods.
(initialize-instance): Use ede-locate-flush-hash.
* ede/pmake.el (ede-proj-makefile-insert-variables): If this is
the top project and not a metasubproject, set TOP to CURDIR.
(ede-proj-makefile-insert-variables): Output a target's object
list whether or not the vars are already in the Makefile.
(ede-pmake-insert-variable-once): New macro.
* ede/project-am.el (project-am-with-makefile-current): Add
recentf-exclude.
(project-am-load-makefile): Obey an optional suggested name.
(project-am-expand-subdirlist): New function.
(project-am-makefile::project-rescan): Use it. Combine SUBDIRS
and DIST_SUBDIRS.
(project-am-meta-type-alist): A list to scan better Makefile.am
(project-am-scan-for-targets): Scan also over
project-am-meta-type-alist.
(ede-system-include-path): Simple implementation.
(ede-find-target): Deleted. EDE core takes care of this.
(ede-buffer-mine): Create the searched filename as relative.
(project-am-load): Simplify, using autoconf-edit.
(project-am-extract-package-info): Fix separators.
* ede/proj.el (project-run-target): New method.
(project-make-dist, project-compile-project): Use
ede-proj-automake-p to determine which kind of compile to use.
(project-rescan): Call ede-load-project-file.
(ede-buffer-mine): Add more file names that belong to the project.
(ede-proj-compilers): Improve error message.
* ede/proj-obj.el (ede-ld-linker): Use the LDDEPS variable.
(ede-source-c++): Add more C++ extensions.
(ede-proj-target-makefile-objectcode): Quote initforms. Support
lex and yacc.
* ede/proj-prog.el (ede-proj-makefile-insert-rules): Removed.
(ede-proj-makefile-insert-variables): New, add LDDEPS.
(ede-proj-makefile-insert-automake-post-variables): Add LDADD
variable. Use ldlibs-local slot. Add a -l to ldlibs strings.
(ede-proj-target-makefile-program): Swap order of two slots so
they show up in the same order as in the command line.
(ede-proj-target-makefile-program): Add ldlibs-local slot.
* ede/proj-shared.el (ede-g++-libtool-shared-compiler): Fix
inference rule to use cpp files.
(ede-proj-target-makefile-shared-object): Quote initforms.
* ede/proj-misc.el (ede-proj-target-makefile-miscelaneous):
* ede/proj-info.el (ede-proj-target-makefile-info):
* ede/proj-aux.el (ede-proj-target-aux):
* ede/proj-archive.el (ede-proj-target-makefile-archive):
* ede/proj-elisp.el (ede-proj-target-elisp)
(ede-proj-target-elisp-autoloads): Quote initforms.
* ede/srecode.el (ede-srecode-setup): Load autoconf templates.
* ede/shell.el (ede-shell-buffer): Fix buffer name.
* ede/pconf.el (ede-proj-configure-synchronize): If user events
occur while waiting for the compile process to finish, pull them
in and discard those events.
2010-09-20 22:42:53 -04:00
|
|
|
;;;###autoload
|
2012-10-02 02:10:29 +08:00
|
|
|
(ede-add-project-autoload
|
|
|
|
|
(ede-project-autoload "emacs"
|
|
|
|
|
:name "EMACS ROOT"
|
|
|
|
|
:file 'ede/emacs
|
|
|
|
|
:proj-file "src/emacs.c"
|
|
|
|
|
:proj-root-dirmatch "emacs[^/]*"
|
|
|
|
|
:proj-root 'ede-emacs-project-root
|
|
|
|
|
:load-type 'ede-emacs-load
|
|
|
|
|
:class-sym 'ede-emacs-project
|
|
|
|
|
:new-p nil
|
|
|
|
|
:safe-p t)
|
|
|
|
|
'unique)
|
Synch EDE to CEDET 1.0.
* cedet-idutils.el (cedet-idutils-make-command): New option.
(cedet-idutils-mkid-call):
(cedet-idutils-create/update-database): New functions.
* cedet-cscope.el (cedet-cscope-create):
(cedet-cscope-create/update-database): New functions.
(cedet-cscope-support-for-directory): Make interactive.
* cedet-global.el (cedet-global-gtags-command): New option.
(cedet-gnu-global-gtags-call)
(cedet-gnu-global-create/update-database): New functions.
* ede.el (ede-save-cache): Fix recentf-exclude expression.
(ede-make-dist): Always use toplevel project.
(ede-buffer-object): If we fail to find an object in the current
project, loop upward looking for a match. If no target is found,
use most local project.
(ede-buffer-belongs-to-target-p)
(ede-buffer-belongs-to-project-p): New functions.
(ede-initialize-state-current-buffer): New function.
(ede-target-forms-menu, ede-project-buffers): Use them.
(ede-minor-mode, ede-reset-all-buffers): Use it.
(project-interactive-select-target, project-add-file): Don't use
ede-project-force-load.
(ede-buffer-object): New arg PROJSYM.
(ede-minor-mode): Remove ede-directory-project-p test.
(ede-initialize-state-current-buffer): Don't test for
ede-directory-project-p if there is a matching open project.
(ede-customize-forms-menu): Prevent error if there is no project.
(ede-load-project-file): Set ede-constructing to the thing being
constructed, instead of t.
(ede-project-force-load): Deleted.
* ede/base.el:
* ede/auto.el:
* ede/custom.el: New files.
* ede/autoconf-edit.el (autoconf-find-last-macro)
(autoconf-parameters-for-macro): Parse multiline parameters of
macros. Optionally ignore case and at bol for macro.
(autoconf-parameter-strip): Use greedy match for newlines.
(autoconf-new-automake-string): Deleted.
(autoconf-new-program): Use SRecode to fill an empty file.
* ede/cpp-root.el (ede-create-lots-of-projects-under-dir): New
function.
* ede/files.el (ede-flush-project-hash): New command.
(ede-convert-path): Add optional PROJECT arg.
(ede-directory-project-p): Obey ".ede-ignore".
(ede-expand-filename-local)
(ede-expand-filename-impl-via-subproj): New methods.
(ede-expand-filename-impl): Use them.
(ede-project-root, ede-project-root-directory): Move to
ede/auto.el.
* ede/locate.el (ede-locate-flush-hash):
(ede-locate-create/update-root-database): New methods.
(initialize-instance): Use ede-locate-flush-hash.
* ede/pmake.el (ede-proj-makefile-insert-variables): If this is
the top project and not a metasubproject, set TOP to CURDIR.
(ede-proj-makefile-insert-variables): Output a target's object
list whether or not the vars are already in the Makefile.
(ede-pmake-insert-variable-once): New macro.
* ede/project-am.el (project-am-with-makefile-current): Add
recentf-exclude.
(project-am-load-makefile): Obey an optional suggested name.
(project-am-expand-subdirlist): New function.
(project-am-makefile::project-rescan): Use it. Combine SUBDIRS
and DIST_SUBDIRS.
(project-am-meta-type-alist): A list to scan better Makefile.am
(project-am-scan-for-targets): Scan also over
project-am-meta-type-alist.
(ede-system-include-path): Simple implementation.
(ede-find-target): Deleted. EDE core takes care of this.
(ede-buffer-mine): Create the searched filename as relative.
(project-am-load): Simplify, using autoconf-edit.
(project-am-extract-package-info): Fix separators.
* ede/proj.el (project-run-target): New method.
(project-make-dist, project-compile-project): Use
ede-proj-automake-p to determine which kind of compile to use.
(project-rescan): Call ede-load-project-file.
(ede-buffer-mine): Add more file names that belong to the project.
(ede-proj-compilers): Improve error message.
* ede/proj-obj.el (ede-ld-linker): Use the LDDEPS variable.
(ede-source-c++): Add more C++ extensions.
(ede-proj-target-makefile-objectcode): Quote initforms. Support
lex and yacc.
* ede/proj-prog.el (ede-proj-makefile-insert-rules): Removed.
(ede-proj-makefile-insert-variables): New, add LDDEPS.
(ede-proj-makefile-insert-automake-post-variables): Add LDADD
variable. Use ldlibs-local slot. Add a -l to ldlibs strings.
(ede-proj-target-makefile-program): Swap order of two slots so
they show up in the same order as in the command line.
(ede-proj-target-makefile-program): Add ldlibs-local slot.
* ede/proj-shared.el (ede-g++-libtool-shared-compiler): Fix
inference rule to use cpp files.
(ede-proj-target-makefile-shared-object): Quote initforms.
* ede/proj-misc.el (ede-proj-target-makefile-miscelaneous):
* ede/proj-info.el (ede-proj-target-makefile-info):
* ede/proj-aux.el (ede-proj-target-aux):
* ede/proj-archive.el (ede-proj-target-makefile-archive):
* ede/proj-elisp.el (ede-proj-target-elisp)
(ede-proj-target-elisp-autoloads): Quote initforms.
* ede/srecode.el (ede-srecode-setup): Load autoconf templates.
* ede/shell.el (ede-shell-buffer): Fix buffer name.
* ede/pconf.el (ede-proj-configure-synchronize): If user events
occur while waiting for the compile process to finish, pull them
in and discard those events.
2010-09-20 22:42:53 -04:00
|
|
|
|
2009-09-20 15:06:05 +00:00
|
|
|
(defclass ede-emacs-target-c (ede-target)
|
|
|
|
|
()
|
|
|
|
|
"EDE Emacs Project target for C code.
|
|
|
|
|
All directories need at least one target.")
|
|
|
|
|
|
|
|
|
|
(defclass ede-emacs-target-el (ede-target)
|
|
|
|
|
()
|
|
|
|
|
"EDE Emacs Project target for Emacs Lisp code.
|
|
|
|
|
All directories need at least one target.")
|
|
|
|
|
|
|
|
|
|
(defclass ede-emacs-target-misc (ede-target)
|
|
|
|
|
()
|
|
|
|
|
"EDE Emacs Project target for Misc files.
|
|
|
|
|
All directories need at least one target.")
|
|
|
|
|
|
|
|
|
|
(defmethod initialize-instance ((this ede-emacs-project)
|
|
|
|
|
&rest fields)
|
Synch EDE to CEDET 1.0.
* cedet-idutils.el (cedet-idutils-make-command): New option.
(cedet-idutils-mkid-call):
(cedet-idutils-create/update-database): New functions.
* cedet-cscope.el (cedet-cscope-create):
(cedet-cscope-create/update-database): New functions.
(cedet-cscope-support-for-directory): Make interactive.
* cedet-global.el (cedet-global-gtags-command): New option.
(cedet-gnu-global-gtags-call)
(cedet-gnu-global-create/update-database): New functions.
* ede.el (ede-save-cache): Fix recentf-exclude expression.
(ede-make-dist): Always use toplevel project.
(ede-buffer-object): If we fail to find an object in the current
project, loop upward looking for a match. If no target is found,
use most local project.
(ede-buffer-belongs-to-target-p)
(ede-buffer-belongs-to-project-p): New functions.
(ede-initialize-state-current-buffer): New function.
(ede-target-forms-menu, ede-project-buffers): Use them.
(ede-minor-mode, ede-reset-all-buffers): Use it.
(project-interactive-select-target, project-add-file): Don't use
ede-project-force-load.
(ede-buffer-object): New arg PROJSYM.
(ede-minor-mode): Remove ede-directory-project-p test.
(ede-initialize-state-current-buffer): Don't test for
ede-directory-project-p if there is a matching open project.
(ede-customize-forms-menu): Prevent error if there is no project.
(ede-load-project-file): Set ede-constructing to the thing being
constructed, instead of t.
(ede-project-force-load): Deleted.
* ede/base.el:
* ede/auto.el:
* ede/custom.el: New files.
* ede/autoconf-edit.el (autoconf-find-last-macro)
(autoconf-parameters-for-macro): Parse multiline parameters of
macros. Optionally ignore case and at bol for macro.
(autoconf-parameter-strip): Use greedy match for newlines.
(autoconf-new-automake-string): Deleted.
(autoconf-new-program): Use SRecode to fill an empty file.
* ede/cpp-root.el (ede-create-lots-of-projects-under-dir): New
function.
* ede/files.el (ede-flush-project-hash): New command.
(ede-convert-path): Add optional PROJECT arg.
(ede-directory-project-p): Obey ".ede-ignore".
(ede-expand-filename-local)
(ede-expand-filename-impl-via-subproj): New methods.
(ede-expand-filename-impl): Use them.
(ede-project-root, ede-project-root-directory): Move to
ede/auto.el.
* ede/locate.el (ede-locate-flush-hash):
(ede-locate-create/update-root-database): New methods.
(initialize-instance): Use ede-locate-flush-hash.
* ede/pmake.el (ede-proj-makefile-insert-variables): If this is
the top project and not a metasubproject, set TOP to CURDIR.
(ede-proj-makefile-insert-variables): Output a target's object
list whether or not the vars are already in the Makefile.
(ede-pmake-insert-variable-once): New macro.
* ede/project-am.el (project-am-with-makefile-current): Add
recentf-exclude.
(project-am-load-makefile): Obey an optional suggested name.
(project-am-expand-subdirlist): New function.
(project-am-makefile::project-rescan): Use it. Combine SUBDIRS
and DIST_SUBDIRS.
(project-am-meta-type-alist): A list to scan better Makefile.am
(project-am-scan-for-targets): Scan also over
project-am-meta-type-alist.
(ede-system-include-path): Simple implementation.
(ede-find-target): Deleted. EDE core takes care of this.
(ede-buffer-mine): Create the searched filename as relative.
(project-am-load): Simplify, using autoconf-edit.
(project-am-extract-package-info): Fix separators.
* ede/proj.el (project-run-target): New method.
(project-make-dist, project-compile-project): Use
ede-proj-automake-p to determine which kind of compile to use.
(project-rescan): Call ede-load-project-file.
(ede-buffer-mine): Add more file names that belong to the project.
(ede-proj-compilers): Improve error message.
* ede/proj-obj.el (ede-ld-linker): Use the LDDEPS variable.
(ede-source-c++): Add more C++ extensions.
(ede-proj-target-makefile-objectcode): Quote initforms. Support
lex and yacc.
* ede/proj-prog.el (ede-proj-makefile-insert-rules): Removed.
(ede-proj-makefile-insert-variables): New, add LDDEPS.
(ede-proj-makefile-insert-automake-post-variables): Add LDADD
variable. Use ldlibs-local slot. Add a -l to ldlibs strings.
(ede-proj-target-makefile-program): Swap order of two slots so
they show up in the same order as in the command line.
(ede-proj-target-makefile-program): Add ldlibs-local slot.
* ede/proj-shared.el (ede-g++-libtool-shared-compiler): Fix
inference rule to use cpp files.
(ede-proj-target-makefile-shared-object): Quote initforms.
* ede/proj-misc.el (ede-proj-target-makefile-miscelaneous):
* ede/proj-info.el (ede-proj-target-makefile-info):
* ede/proj-aux.el (ede-proj-target-aux):
* ede/proj-archive.el (ede-proj-target-makefile-archive):
* ede/proj-elisp.el (ede-proj-target-elisp)
(ede-proj-target-elisp-autoloads): Quote initforms.
* ede/srecode.el (ede-srecode-setup): Load autoconf templates.
* ede/shell.el (ede-shell-buffer): Fix buffer name.
* ede/pconf.el (ede-proj-configure-synchronize): If user events
occur while waiting for the compile process to finish, pull them
in and discard those events.
2010-09-20 22:42:53 -04:00
|
|
|
"Make sure the targets slot is bound."
|
2009-09-20 15:06:05 +00:00
|
|
|
(call-next-method)
|
|
|
|
|
(unless (slot-boundp this 'targets)
|
|
|
|
|
(oset this :targets nil)))
|
|
|
|
|
|
|
|
|
|
;;; File Stuff
|
|
|
|
|
;;
|
|
|
|
|
(defmethod ede-project-root-directory ((this ede-emacs-project)
|
|
|
|
|
&optional file)
|
|
|
|
|
"Return the root for THIS Emacs project with file."
|
|
|
|
|
(ede-up-directory (file-name-directory (oref this file))))
|
|
|
|
|
|
|
|
|
|
(defmethod ede-project-root ((this ede-emacs-project))
|
|
|
|
|
"Return my root."
|
|
|
|
|
this)
|
|
|
|
|
|
|
|
|
|
(defmethod ede-find-subproject-for-directory ((proj ede-emacs-project)
|
|
|
|
|
dir)
|
|
|
|
|
"Return PROJ, for handling all subdirs below DIR."
|
|
|
|
|
proj)
|
|
|
|
|
|
|
|
|
|
;;; TARGET MANAGEMENT
|
|
|
|
|
;;
|
|
|
|
|
(defun ede-emacs-find-matching-target (class dir targets)
|
|
|
|
|
"Find a target that is a CLASS and is in DIR in the list of TARGETS."
|
|
|
|
|
(let ((match nil))
|
|
|
|
|
(dolist (T targets)
|
|
|
|
|
(when (and (object-of-class-p T class)
|
|
|
|
|
(string= (oref T :path) dir))
|
|
|
|
|
(setq match T)
|
|
|
|
|
))
|
|
|
|
|
match))
|
|
|
|
|
|
|
|
|
|
(defmethod ede-find-target ((proj ede-emacs-project) buffer)
|
|
|
|
|
"Find an EDE target in PROJ for BUFFER.
|
|
|
|
|
If one doesn't exist, create a new one for this directory."
|
|
|
|
|
(let* ((ext (file-name-extension (buffer-file-name buffer)))
|
|
|
|
|
(cls (cond ((not ext)
|
|
|
|
|
'ede-emacs-target-misc)
|
|
|
|
|
((string-match "c\\|h" ext)
|
|
|
|
|
'ede-emacs-target-c)
|
|
|
|
|
((string-match "elc?" ext)
|
|
|
|
|
'ede-emacs-target-el)
|
|
|
|
|
(t 'ede-emacs-target-misc)))
|
|
|
|
|
(targets (oref proj targets))
|
|
|
|
|
(dir default-directory)
|
|
|
|
|
(ans (ede-emacs-find-matching-target cls dir targets))
|
|
|
|
|
)
|
|
|
|
|
(when (not ans)
|
|
|
|
|
(setq ans (make-instance
|
|
|
|
|
cls
|
|
|
|
|
:name (file-name-nondirectory
|
|
|
|
|
(directory-file-name dir))
|
|
|
|
|
:path dir
|
|
|
|
|
:source nil))
|
|
|
|
|
(object-add-to-list proj :targets ans)
|
|
|
|
|
)
|
|
|
|
|
ans))
|
|
|
|
|
|
|
|
|
|
;;; UTILITIES SUPPORT.
|
|
|
|
|
;;
|
|
|
|
|
(defmethod ede-preprocessor-map ((this ede-emacs-target-c))
|
|
|
|
|
"Get the pre-processor map for Emacs C code.
|
|
|
|
|
All files need the macros from lisp.h!"
|
|
|
|
|
(require 'semantic/db)
|
|
|
|
|
(let* ((proj (ede-target-parent this))
|
|
|
|
|
(root (ede-project-root proj))
|
|
|
|
|
(table (semanticdb-file-table-object
|
|
|
|
|
(ede-expand-filename root "lisp.h")))
|
2009-12-05 19:10:42 +00:00
|
|
|
(config (semanticdb-file-table-object
|
|
|
|
|
(ede-expand-filename root "config.h")))
|
2009-09-20 15:06:05 +00:00
|
|
|
filemap
|
|
|
|
|
)
|
|
|
|
|
(when table
|
|
|
|
|
(when (semanticdb-needs-refresh-p table)
|
|
|
|
|
(semanticdb-refresh-table table))
|
|
|
|
|
(setq filemap (append filemap (oref table lexical-table)))
|
|
|
|
|
)
|
2009-12-05 19:10:42 +00:00
|
|
|
(when config
|
|
|
|
|
(when (semanticdb-needs-refresh-p config)
|
|
|
|
|
(semanticdb-refresh-table config))
|
|
|
|
|
(setq filemap (append filemap (oref config lexical-table)))
|
|
|
|
|
)
|
2009-09-20 15:06:05 +00:00
|
|
|
filemap
|
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
(defun ede-emacs-find-in-directories (name base dirs)
|
|
|
|
|
"Find NAME is BASE directory sublist of DIRS."
|
|
|
|
|
(let ((ans nil))
|
|
|
|
|
(while (and dirs (not ans))
|
|
|
|
|
(let* ((D (car dirs))
|
|
|
|
|
(ed (expand-file-name D base))
|
|
|
|
|
(ef (expand-file-name name ed)))
|
|
|
|
|
(if (file-exists-p ef)
|
|
|
|
|
(setq ans ef)
|
|
|
|
|
;; Not in this dir? How about subdirs?
|
|
|
|
|
(let ((dirfile (directory-files ed t))
|
|
|
|
|
(moredirs nil)
|
|
|
|
|
)
|
|
|
|
|
;; Get all the subdirs.
|
|
|
|
|
(dolist (DF dirfile)
|
|
|
|
|
(when (and (file-directory-p DF)
|
|
|
|
|
(not (string-match "\\.$" DF)))
|
|
|
|
|
(push DF moredirs)))
|
|
|
|
|
;; Try again.
|
|
|
|
|
(setq ans (ede-emacs-find-in-directories name ed moredirs))
|
|
|
|
|
))
|
|
|
|
|
(setq dirs (cdr dirs))))
|
|
|
|
|
ans))
|
|
|
|
|
|
|
|
|
|
(defmethod ede-expand-filename-impl ((proj ede-emacs-project) name)
|
|
|
|
|
"Within this project PROJ, find the file NAME.
|
|
|
|
|
Knows about how the Emacs source tree is organized."
|
|
|
|
|
(let* ((ext (file-name-extension name))
|
|
|
|
|
(root (ede-project-root proj))
|
|
|
|
|
(dir (ede-project-root-directory root))
|
|
|
|
|
(dirs (cond
|
|
|
|
|
((not ext) nil)
|
|
|
|
|
((string-match "h\\|c" ext)
|
|
|
|
|
'("src" "lib-src" "lwlib"))
|
|
|
|
|
((string-match "elc?" ext)
|
|
|
|
|
'("lisp"))
|
|
|
|
|
((string-match "texi" ext)
|
|
|
|
|
'("doc"))
|
|
|
|
|
(t nil)))
|
|
|
|
|
)
|
|
|
|
|
(if (not dirs) (call-next-method)
|
|
|
|
|
(ede-emacs-find-in-directories name dir dirs))
|
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
(provide 'ede/emacs)
|
|
|
|
|
|
|
|
|
|
;; Local variables:
|
|
|
|
|
;; generated-autoload-file: "loaddefs.el"
|
|
|
|
|
;; generated-autoload-load-name: "ede/emacs"
|
|
|
|
|
;; End:
|
|
|
|
|
|
|
|
|
|
;;; ede/emacs.el ends here
|