7 ;; Some testing routines.
8 (defun ede-locate-test-locate (file)
9 "Test EDE Locate on FILE using LOCATE type.
10 The search is done with the current EDE root."
11 (interactive "sFile: ")
12 (let ((loc (ede-locate-locate
14 :root
(ede-project-root-directory
16 (data-debug-new-buffer "*EDE Locate ADEBUG*")
17 (ede-locate-file-in-project loc file
)
18 (data-debug-insert-object-slots loc
"]"))
21 (defun ede-locate-test-global (file)
22 "Test EDE Locate on FILE using GNU Global type.
23 The search is done with the current EDE root."
24 (interactive "sFile: ")
25 (let ((loc (ede-locate-global
27 :root
(ede-project-root-directory
29 (data-debug-new-buffer "*EDE Locate ADEBUG*")
30 (ede-locate-file-in-project loc file
)
31 (data-debug-insert-object-slots loc
"]"))
34 (defun ede-locate-test-idutils (file)
35 "Test EDE Locate on FILE using ID Utils type.
36 The search is done with the current EDE root."
37 (interactive "sFile: ")
38 (let ((loc (ede-locate-idutils
40 :root
(ede-project-root-directory
42 (data-debug-new-buffer "*EDE Locate ADEBUG*")
43 (ede-locate-file-in-project loc file
)
44 (data-debug-insert-object-slots loc
"]"))
47 (defun ede-locate-test-cscope (file)
48 "Test EDE Locate on FILE using CScope type.
49 The search is done with the current EDE root."
50 (interactive "sFile: ")
51 (let ((loc (ede-locate-cscope
53 :root
(ede-project-root-directory
55 (data-debug-new-buffer "*EDE Locate ADEBUG*")
56 (ede-locate-file-in-project loc file
)
57 (data-debug-insert-object-slots loc
"]"))
60 ;; arch-tag: 79fae12e-652f-4544-a20e-b24d87b4917d