pcl-c-style.el，在Emacs编辑器编写PCL自动格式化编码

最新推荐文章于 2021-01-26 10:07:26 发布

yunluoxiaobin

最新推荐文章于 2021-01-26 10:07:26 发布

阅读量365

点赞数

分类专栏： PCL

本文链接：https://blog.csdn.net/yunluoxiaobin/article/details/103199527

版权

PCL 专栏收录该内容

3 篇文章 1 订阅

订阅专栏

pcl-c-style.el，在Emacs编辑器编写PCL自动格式化编码：

pcl-c-style.el里面的内容如下：
;;; pcl-c-style.el — Pcl’s C/C++ style for c-mode
;;
;; Keywords: c, tools
;;
;;; pcl-c-style.el
;;
;;; Software License Agreement (BSD License)
;;
;; Point Cloud Library (PCL) - www.pointclouds.org
;; Copyright © 2012, Willow Garage, Inc.
;;
;; All rights reserved.
;;
;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions
;; are met:
;;
;; * Redistributions of source code must retain the above copyright
;; notice, this list of conditions and the following disclaimer.
;; * Redistributions in binary form must reproduce the above
;; copyright notice, this list of conditions and the following
;; disclaimer in the documentation and/or other materials provided
;; with the distribution.
;; * Neither the name of Willow Garage, Inc. nor the names of its
;; contributors may be used to endorse or promote products derived
;; from this software without specific prior written permission.
;;
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
;; “AS IS” AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
;; FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
;; COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
;; BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
;; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
;; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
;; ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
;; POSSIBILITY OF SUCH DAMAGE.
;;
;;; Commentary:
;;
;; Provides the pcl C/C++ coding style. You may wish to add
;; pcl-set-c-style' to yourc-mode-common-hook’ after requiring this
;; file. For example:
;;
;; (add-hook 'c-mode-common-hook 'pcl-set-c-style)
;;

;; Consider files with “.h” extension as c++
(setq auto-mode-alist (cons ‘("\.h\’" . c+±mode) auto-mode-alist))

;; Require cc-mode
(require 'cc-mode)

;; An inline function that return true if we are inside a class
(defsubst pcl-at-inclass-topmost-intro (sintax)
(eq (caar sintax) 'inclass))

;; Indent after access keys if any
;; This code was adapted from here
;; http://lists.gnu.org/archive/html/help-gnu-emacs/2009-09/msg00593.html
(defun pcl-indent-after-access-label-maybe (langelem)
"Give an extra level of indentation to class members under an access
specifier, e.g.:

public
A(); <========== extra level of indentation.

This should really be properly implemented in CC Mode, but it’s not."
(and
(let (m-type)
(when
(save-excursion
(back-to-indentation)
;; Go back one “statement” at a time till we reach a label or
;; something which isn’t an inclass-topmost-intro
(while
(and (eq (setq m-type (c-beginning-of-statement-1)) 'previous)
(pcl-at-inclass-topmost-intro (c-guess-basic-syntax))))
;; Have we found “private:”, “public”: or “protected”?
(and (eq m-type 'label)
(looking-at c-C+±access-key)))
(save-excursion
(back-to-indentation)
c-basic-offset)))))

(defconst pcl-c-style
`(“gnu”
(c-recognize-knr-p . nil)
(c-enable-xemacs-performance-kludge-p . t) ; speed up indentation in XEmacs
(c-basic-offset . 2)
;; (c-tab-always-indent . t)
(c-comment-only-line-offset . 0)
(c-hanging-braces-alist . ((defun-open before)
(defun-open after)
(namespace-open before)
(namespace-open after)))
(c-hanging-colons-alist . ((member-init-intro before)
(inher-intro)))
(c-cleanup-list . (scope-operator
empty-defun-braces
defun-close-semi
space-before-funcall))
(c-offsets-alist
(inline-open . +)
(inclass . +)
(access-label . 0)
(topmost-intro . pcl-indent-after-access-label-maybe)
(topmost-intro-cont 0)
(statement-cont . 0)
(substatement-open . 0)
(substatement-label . 0)
(statement-case-open . 0)
(case-label . +)
))
“PCL C/C++ Programming Style”)

(defun pcl-set-c-style ()
“Set the current buffer’s c-style to PCL C/C++ Programming
Style. Meant to be added to `c-mode-common-hook’.”
(interactive)
(setq tab-width 2
;; this will make sure spaces are used instead of tabs
indent-tabs-mode nil)
(c-add-style “PCL” pcl-c-style t)
(c-toggle-auto-newline 1)
(c-toggle-hungry-state 1))

;; Switch from *. to . and vice versa
(defun switch-cpp-or-hpp-to-h ()
(interactive)
(when (string-match "^{$.*$/$.*$\.$[}.]$ $KaTeX parse error: Got function '\newline' with no arguments as superscript at position 1: \̲n̲e̲w̲l̲i̲n̲e̲$ " path)
(let ((pcl-root (match-string 1 path))
(subsys (match-string 2 path)))
(if (file-exists-p (concat pcl-root “/” subsys “/include/pcl/” subsys “/” name “.h”))
(find-file (concat pcl-root “/” subsys “/include/pcl/” subsys “/” name “.h”)))))
(cond ((file-exists-p (concat name “.hpp”))
(find-file (concat name “.hpp”))
)))
((string-match suffix “h”)
(message “in h”)
(cond ((file-exists-p (concat path “/impl/” name “.hpp”))
(find-file (concat path “/impl/” name “.hpp”))
)
((file-exists-p (concat name “.cpp”))
(find-file (concat name “.cpp”))
)))
((string-match suffix “hpp”)
(message “in hpp”)
(cond ((file-exists-p (concat path “/…/” name “.h”))
(find-file (concat path “/…/” name “.h”))
)
))
))))