1 ;;; semantic/symref/idutils.el --- Symref implementation for idutils
3 ;;; Copyright (C) 2009-2017 Free Software Foundation, Inc.
5 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software: you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation, either version 3 of the License, or
12 ;; (at your option) any later version.
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24 ;; Support IDUtils use in the Semantic Symref tool.
26 (require 'cedet-idutils
)
27 (require 'semantic
/symref
)
31 (defclass semantic-symref-tool-idutils
(semantic-symref-tool-baseclass)
34 "A symref tool implementation using ID Utils.
35 The udutils command set can be used to generate lists of tags in a way
36 similar to that of `grep'. This tool will parse the output to generate
39 See the function `cedet-idutils-search' for more details.")
41 (cl-defmethod semantic-symref-perform-search ((tool semantic-symref-tool-idutils
))
42 "Perform a search with IDUtils."
43 (let ((b (cedet-idutils-search (oref tool
:searchfor
)
44 (oref tool
:searchtype
)
45 (oref tool
:resulttype
)
46 (oref tool
:searchscope
)
49 (semantic-symref-parse-tool-output tool b
)
52 (defconst semantic-symref-idutils--line-re
53 "^\\(\\(?:[a-zA-Z]:\\)?[^:\n]+\\):\\([0-9]+\\):")
55 (cl-defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-idutils
))
56 "Parse one line of grep output, and return it as a match list.
57 Moves cursor to end of the match."
58 (cond ((eq (oref tool
:resulttype
) 'file
)
60 (when (re-search-forward "^\\([^\n]+\\)$" nil t
)
62 ((eq (oref tool
:searchtype
) 'tagcompletions
)
63 (when (re-search-forward "^\\([^ ]+\\) " nil t
)
65 ((eq (oref tool
:resulttype
) 'line-and-text
)
66 (when (re-search-forward semantic-symref-idutils--line-re nil t
)
67 (list (string-to-number (match-string 2))
68 (expand-file-name (match-string 1) default-directory
)
69 (buffer-substring-no-properties (point) (line-end-position)))))
70 (t ; resulttype is line
71 (when (re-search-forward semantic-symref-idutils--line-re nil t
)
72 (cons (string-to-number (match-string 2))
73 (expand-file-name (match-string 1) default-directory
))
76 (provide 'semantic
/symref
/idutils
)
79 ;; generated-autoload-file: "../loaddefs.el"
80 ;; generated-autoload-load-name: "semantic/symref/idutils"
83 ;;; semantic/symref/idutils.el ends here