;;; gdb-code-style.el --- code style checker for GDB contributors ;; Copyright (C) 2012-2014 Free Software Foundation, Inc. ;; Author: Yao Qi <yao@codesourcery.com> ;; Created: 17 April 2012 ;; Version: 1.0 ;; Keywords: GDB ;; This program 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. ;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; These hooks defined in this file provide some code style checks in ;; Emacs. You can load it in your ~/.emacs, ;; (load-file "~/$(GDB_SOURCE)/gdb/gdb-code-style.el") ;;; Code: ;; Don't use these functions. Their alternatives are better. This list ;; of functions is from ARI rules. (defun gdb-fun-name-hook () (font-lock-add-keywords nil '(("\\<\\(\\(xasprintf\\|abort\\|vasprintf\\|strerror\\|strdup\\|asprintf\\|sprintf\\)[ ]*\(\\)" 1 font-lock-warning-face t)))) (add-hook 'c-mode-common-hook 'gdb-fun-name-hook) ;; Don't include these files directly. (defun gdb-include-hook () (font-lock-add-keywords nil '(("\\<include[ ]*\\(<\\(sys/stat\\|stat\\|dirent\\|wait\\|sys/wait\\|assert\\)\\.h>\\)" 1 font-lock-warning-face t)))) (add-hook 'c-mode-common-hook 'gdb-include-hook) ;; Check marker up. If the marker up is missing, like, ;; warning ("abc"); ;; The '(' and '"' will be highlight. (defun gdb-markup-hook () (font-lock-add-keywords nil '(("\\<\\(warning\\|error\\)[ ]*\\(\([^_]\\)" 2 font-lock-warning-face t)))) (add-hook 'c-mode-common-hook 'gdb-markup-hook) (defun gdb-comment-hook () ;; A space should follow "/*", otherwise report a warning. ;; If the comment is like: ;; /*F. */ ;; The 'F' will be highlight. (font-lock-add-keywords nil '(("/\\*\\([^ ]\\).*\\*/" 1 font-lock-warning-face t))) ;; Two spaces are needed between "." and "*/". Report warning if there ;; is no space (".*/") or only one space (". */"). ;; If the comment is like: ;; /* ABC. */ or /* ABC.*/ ;; the '.' is highlight. (font-lock-add-keywords nil '(("\\<[[:ascii:]]*\\(\\.[ ]?\\)\\*/" 1 font-lock-warning-face t))) ) (add-hook 'c-mode-common-hook 'gdb-comment-hook) ;;; gdb-code-style.el ends here