分享个emacs中查找SYSCALL_DEFINE定义的系统调用的函数

csern

最近迷上了emacs，看代码时使用的gnu global的gtags插件，毕竟是自家产的，配合起来使用还是挺舒服的，在输入要查找的函数变量定义时可以用tab补齐，

可是发现查找内核代码中使用SYSCALL_DEFINE定义的系统调用时没什么好的办法，最初只能用

1. $ find . -name "*.[ch]" | xargs grep -E "^SYSCALL_DEFINE[0-6]*\(socketcall.*\)$"

复制代码

之类的grep，但是总是先grep后打开也不是长久之计，而且速度真的很慢。

后来直接在emacs中使用gtags-find-pattern来使用正则表达式查找，这倒是能在emacs中直接定位了，但是内部还是调用的grep，所以速度还是很慢，
而直接使用gtags-find-tag查找SYSCALL_DEFINE0，SYSCALL_DEFINE1之类的定义非常快，因为它使用的已建立好的tag文件，根据这个想法写了一个函数，
原理就是先查找SYSCALL_DEFINE系列宏的定义，然后再删除掉不匹配的行，使用起来速度是非常快的,再定一个快捷键，以后就不为这个发愁了。

1. 
   
2. (add-hook 'gtags-mode-hook
   
3.           (lambda ()
   
4.             (define-key gtags-mode-map (kbd "M-.")   'gtags-find-tag)
   
5.             (define-key gtags-mode-map (kbd "M-, s") 'gtags-find-symbol)
   
6.             (define-key gtags-mode-map (kbd "M-, r") 'gtags-find-rtag)
   
7.             (define-key gtags-mode-map (kbd "M-, f") 'gtags-find-file)
   
8.             (define-key gtags-mode-map (kbd "M-, p") 'gtags-find-pattern)
   
9.             (define-key gtags-mode-map (kbd "M-, k") 'sec-gtags-find-kernel-syscall)
   
10.             (define-key gtags-mode-map (kbd "M-*")   'gtags-pop-stack)
    
11.             (setq gtags-path-style 'absolute)))
    
12. 
    
13. (defun sec-gtags-find-kernel-syscall (&optional other-win)
    
14.   "*Find linux kernel system call quickly.
    
15. However, you can use `gtags-find-pattern' with regexp `^SYSCALL_DEFINE[0-6]*\(XXX.*\) to find the
    
16. syscall which defined with `SYSCALL_DEFINE' family macro, but this is very slow.
    
17. In this function, we use a efficiency way to do this job:
    
18.   -- 1. find the define of all the `SYSCALL_DEFINE' family macro, and put them in a buffer, this only
    
19.         waste little time.
    
20.   -- 2. kill the lines which not match our regexp."
    
21.   (interactive)
    
22.   (let (tagname prompt input)
    
23.     ;; Get the tagname we want to find.
    
24.     (setq tagname (gtags-current-token))
    
25.     (if tagname
    
26.         (setq prompt (concat "Find syscall: (default " tagname ") "))
    
27.       (setq prompt "Find syscall: "))
    
28.     (setq input (completing-read prompt 'gtags-completing-gsyms
    
29.                                  nil nil nil gtags-history-list))
    
30.     (if (not (equal "" input)) (setq tagname input))
    
31.     (gtags-push-context)
    
32.     ;; Find begin.
    
33.     (let (option save prefix buffer lines)
    
34.       (setq save (current-buffer))
    
35.       ;; Use always ctags-x format.
    
36.       (setq option "-x")
    
37.       (setq prefix "(SYSCALL)")
    
38.       ;; Load tag
    
39.       (if gtags-select-buffer-single
    
40.           (progn
    
41.             ;; Delete "*GTAGS SELECT*" buffer info from gtags-buffer-stack and gtags-point-stack.
    
42.             (let (now-gtags-buffer-stack now-buffer now-gtags-point-stack now-point)
    
43.               (setq now-gtags-buffer-stack (reverse gtags-buffer-stack))
    
44.               (setq now-gtags-point-stack (reverse gtags-point-stack))
    
45.               (setq gtags-buffer-stack nil)
    
46.               (setq gtags-point-stack nil)
    
47.               (while now-gtags-buffer-stack
    
48.                 (setq now-buffer (car now-gtags-buffer-stack))
    
49.                 (setq now-point (car now-gtags-point-stack))
    
50.                 (if (and (buffer-name now-buffer) (not (string-match "*GTAGS SELECT*" (buffer-name now-buffer))))
    
51.                     (progn
    
52.                       (setq gtags-buffer-stack (cons now-buffer gtags-buffer-stack))
    
53.                       (setq gtags-point-stack (cons now-point gtags-point-stack))))
    
54.                 (setq now-gtags-buffer-stack (cdr now-gtags-buffer-stack))
    
55.                 (setq now-gtags-point-stack (cdr now-gtags-point-stack))))
    
56.             ;; Kill "*GTAGS SELECT*" buffer.
    
57.             (let (now-buffer-list now-buffer)
    
58.               (setq now-buffer-list (buffer-list))
    
59.               (while now-buffer-list
    
60.                 (setq now-buffer (car now-buffer-list))
    
61.                 (if (string-match "*GTAGS SELECT*" (buffer-name now-buffer))
    
62.                     (kill-buffer now-buffer))
    
63.                 (setq now-buffer-list (cdr now-buffer-list))))))
    
64.       ;; Select "*GTAGS SELECT*" buffer.
    
65.       (setq buffer (generate-new-buffer (generate-new-buffer-name (concat "*GTAGS SELECT* " prefix tagname))))
    
66.       (set-buffer buffer)
    
67.       ;; Path style is defined in gtags-path-style:
    
68.       ;; - root     : relative from the root of the project (Default)
    
69.       ;; - relative : relative from the current directory
    
70.       ;; - absolute : absolute (relative from the system root directory)
    
71.       (cond
    
72.        ((equal gtags-path-style 'absolute)
    
73.         (setq option (concat option "a")))
    
74.        ((equal gtags-path-style 'root)
    
75.         (let (rootdir)
    
76.           (if gtags-rootdir
    
77.               (setq root-dir gtags-rootdir)
    
78.             (setq rootdir (gtags-get-rootpath)))
    
79.           (if rootdir (cd rootdir)))))
    
80.       (message "Searching %s ..." tagname)
    
81.       (if (not (= 0 (call-process "global" nil t nil option "SYSCALL_DEFINE[0-6]*")))
    
82.           ;; Some error occured.
    
83.           (progn (message (buffer-substring (point-min)(1- (point-max))))
    
84.                  (gtags-pop-context))
    
85.         ;; Call process success.
    
86.         (keep-lines (concat "^.*SYSCALL_DEFINE[0-6]*\(" tagname ".*\)$") (point-min) (point-max))
    
87.         (goto-char (point-min))
    
88.         (setq lines (count-lines (point-min) (point-max)))
    
89.         (cond
    
90.          ((= 0 lines)
    
91.           (message "%s: syscall not found" tagname)
    
92.           (gtags-pop-context)
    
93.           (kill-buffer buffer)
    
94.           (set-buffer save))
    
95.          ((= 1 lines)
    
96.           (message "Searching %s ... Done" tagname)
    
97.           (gtags-select-it t other-win))
    
98.          (t
    
99.           (if (null other-win)
    
100.               (switch-to-buffer buffer)
     
101.             (switch-to-buffer-other-window buffer))
     
102.           (gtags-select-mode)))))))
     

复制代码

logicBaby

(x)cscope+emacs
不用这么多配置，好使的很！

crazyshell

cscope足矣

csern

回复 2# logicBaby


cscope也不能直接定位SYSCALL_DEFINE定义的系统调用函数吧，当时用vim+cscope的时候也是靠：cs f e 加正则搜索的，另外如果用emacs，建议试一下global，它在查找时的tab补全是很方便的。比如要查找个函数，只记得函数名是以br开头的了，输入后tab一下就会提示出所有以br开头的可供选择的函数了，还有一些特性是相当不错的。

csern

回复 3# crazyshell

cscope可以直接定位这样的定义么