emacs工程管理,cedet ede插件自动构建Make,Automake

鉴于自己一直都是在做客户端开发方面的工作,服务端很多知识都随着时间淡忘了,最近有一个计划,用一些时间补一下基础.所以早上很早就起床,花了一点时间大致浏览了一下BSD socket的相关API,然后用GNU C写了一个简单的多线程,阻塞EchoServer.工程的代码倒是不多,就是基于原生API开发,总是有很多的errcode需要处理,比较的烦.所以我干脆就直接写了个宏去处理,简单的输出strerrno(errno)和errno就好.虽然这个宏实现起来比较的简单,但是还是感觉比较的值,节省了不少的代码.而且整体的流程更简单明了.

本来是在写代码的,我是用CMake写的项目组织,当然,就几个文件,用CMake简直就是大材小用.但是也正是在这种情况下,更能体验CMake的强大.我用emacs收邮件的时候就想到了emacs的cedet插件中有个ede工程管理模块,所以就上手折腾了一下.期间浪费了一点时间,浪费在我国伟大的天朝上面,没办法,就是不给下载,后来干脆去github clone了1.1版本的插件包.

可能有一些新手在编译cedet包的时候会遇到一些问题,在编译文档的时候,如果确实需要的话,那么可以 sudo apt-get install texinfo.如果不需要,那么就直接make makeinfo=echo就好了.主要是你有没有在编译之前先查看一下文档,这个就不多说了,是常识.下面是我的cedet配置,很简单,只是配置了一些快捷键,其他的都还没弄,有时间再算吧.

;;------------------------------------------------------------------
;;%% 打开显示行,列模式(行号显示为4位数)
;;------------------------------------------------------------------
(global-linum-mode t)
(column-number-mode t)
(setq linum-format "%4d\u2502")

;;------------------------------------------------------------------
;;%% 关闭图标工具栏,打开ido模式
;;------------------------------------------------------------------
(tool-bar-mode -1)
(ido-mode t)

;;------------------------------------------------------------------
;;%% 关闭自动备份设置,关闭自动保存
;;------------------------------------------------------------------
(setq-default make-backup-files nil)
(setq auto-save-default nil)

;;------------------------------------------------------------------
;;%% 使用简单的y/n应答模式
;;------------------------------------------------------------------
(fset 'yes-or-no-p 'y-or-n-p)

;;------------------------------------------------------------------
;;%% 高亮显示拷贝,括号配对
;;------------------------------------------------------------------
(global-font-lock-mode 1)
(transient-mark-mode 1)
(show-paren-mode 1)
(mouse-wheel-mode t)

;;------------------------------------------------------------------
;;%% 设置默认字体,字体大小
;;------------------------------------------------------------------
(set-default-font "Ubuntu Mono-11")

;;------------------------------------------------------------------
;;%% 设置tab缩进格式
;;-----------------------------------------------------------------
(setq indent-tabs-mode nil)
(setq tab-width 4)
;;------------------------------------------------------------------
;;%% 加载配置color-theme插件
;;------------------------------------------------------------------
(add-to-list 'load-path "~/.emacs.d/color-theme-6.6.0")
(require 'color-theme)
(color-theme-initialize)

;;------------------------------------------------------------------
;;%% 加载配置auto-complete插件
;;------------------------------------------------------------------
(add-to-list 'load-path "~/.emacs.d/auto-complete-1.3.1")
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
(ac-config-default)

;;------------------------------------------------------------------
;;%% 加载配置yasnippet插件
;;------------------------------------------------------------------
(add-to-list 'load-path "~/.emacs.d/yasnippet")
(require 'yasnippet)
(yas-global-mode 1)

;;------------------------------------------------------------------
;;%% 默认启动多窗口调试
;;------------------------------------------------------------------
(setq gdb-many-windows t)
;;------------------------------------------------------------------
;;%% 加载配置tabbar插件,定义快捷键
;;------------------------------------------------------------------
(add-to-list 'load-path "~/.emacs.d/tabbar/")
(require 'tabbar)
(tabbar-mode)

(global-set-key (kbd "<M-up>")       'tabbar-backward-group)
(global-set-key (kbd "<M-down>")     'tabbar-forward-group)
(global-set-key (kbd "<M-left>")     'tabbar-backward)
(global-set-key (kbd "<M-right>")    'tabbar-forward)

(set-face-attribute 'tabbar-default nil  
                    :family "Ubuntu Mono"  
                    )  
(set-face-attribute 'tabbar-button nil  
                    :inherit 'tabbar-default  
                    :box '(:line-width 1 :color "yellow")  
                    )  
(set-face-attribute 'tabbar-selected nil 
                         :inherit 'tabbar-default 
                    :foreground "blue"  
                    :background "gray"
                    :box '(:line-width 1 :color "yellow")  
                    )  
(set-face-attribute 'tabbar-unselected nil  
                    :inherit 'tabbar-default  
                    :box '(:line-width 1 :color "yellow")  
                    ) 

;;------------------------------------------------------------------
;;%% 加载配置cedet插件
;;------------------------------------------------------------------
(add-to-list 'load-path "~/.emacs.d/cedet-1.1/common")
(require 'cedet)
(global-ede-mode 1)
;;(semantic-load-enable-code-helpers)
(global-srecode-minor-mode 1)

;;(semantic-load-enable-minimum-features)
(semantic-load-enable-code-helpers)
;;(semantic-load-enable-gaudy-code-helpers)
;;(semantic-load-enable-excessive-code-helpers)
(semantic-load-enable-semantic-debugging-helpers)

(require 'semantic-gcc)
(require 'semantic-ia)

(defun my-cedet-hook()

  (local-set-key [(control tab)] 'semantic-ia-complete-symbol-menu)

  (local-set-key "\C-c?" 'semantic-ia-complete-symbol-menu)
  (local-set-key (kbd "M-/") 'semantic-ia-complete-symbol)

  (local-set-key "\C-c>" 'semantic-complete-analyze-inline)
  (local-set-key (kbd "M-n") 'semantic-complete-analyze-inline)

  (local-set-key "\C-cp" 'semantic-analyze-proto-impl-toggle)
  (local-set-key "\C-cd" 'semantic-ia-fast-jump)
  (local-set-key "\C-cr" 'semantic-symref-symbol)
  (local-set-key "\C-cR" 'semantic-symref))
(add-hook 'c-mode-common-hook 'my-cedet-hook)

;;%% 配置项目解析tag路径
;; (setq semanticdb-project-roots (list (expand-file-name "/")))
(defconst cedet-user-include-dirs
  (list ".." "../include" "../inc" "../common" "../public"
        "../.." "../../include" "../../inc" "../../common" "../../public"))
(defconst cedet-win32-include-dirs
  (list "C:/MinGW/include"
        "C:/MinGW/include/c++/3.4.5"
        "C:/MinGW/include/c++/3.4.5/mingw32"
        "C:/MinGW/include/c++/3.4.5/backward"
        "C:/MinGW/lib/gcc/mingw32/3.4.5/include"
        "C:/Program Files/Microsoft Visual Studio/VC98/MFC/Include"))
(require 'semantic-c nil 'noerror)
(let ((include-dirs cedet-user-include-dirs))
  (when (eq system-type 'windows-nt)
    (setq include-dirs (append include-dirs cedet-win32-include-dirs)))
  (mapc (lambda (dir)
          (semantic-add-system-include dir 'c++-mode)
          (semantic-add-system-include dir 'c-mode))
        include-dirs))
;;------------------------------------------------------------------
;; 加载配置ecb插件
;;------------------------------------------------------------------
(add-to-list 'load-path "~/.emacs.d/ecb")
(require 'ecb)
(setq stack-trace-on-error nil)
(setq  ecb-tip-of-the-day nil)

;;-------------------------------------------------------------------

 

下面就来说说ede插件该如何用,首先就是M-x ede- TAB TAB 会弹出buffer 查看ede-*命令,这些命令还是比较容易懂的.先创建一个ede工程项目 : M-x ede-new RET, 按照要求输入,在选择项目类型的时候可以看到提供了好多种的选择,其中需要关注的就是两种:Make,Automake,其他的不属于本文范畴,可以自己去了解.

作为一个例子,我选择的是Automake,并在AutomakePrj下面创建了一个源文件main.c,里面就是一个简单的main入口方法.,输入项目名称也为:AutomakePrj.做完这些之后,还没有生成automake相关的配置,用过automake的都知道,一般都是在Makefile.am和configure.ac中书写配置,用来生成configure,然后生成Makefile.

执行M-x ede-proj-regenerate或者是在emacs menu-bar上面的project中选择->project options->regenerate makefiles.之后由于automake的规范要求还会提示你创建AUTHOR MISSING等一系列的文件,其中有些配置是根据系统变量或者是emacs配置变量自动填充的,需要修改的话自己去改吧.执行的过程是这样子的:

这里也就是automake执行的过程,通常我们也会将前面一些繁琐的步骤写成一个auto_gen.sh的脚本,在一些开发包中也是可以见得到的,这个就顺便提一下.现在是创建了模板,但是还没有添加我们需要编译的target, 相应的也是可以执行M-x ede-add-target, 可供选择的类型也是很多:

这里我就直接选择了生成program.接下来就可以直接执行M-x ede-compile-project了.另外,ede也提供了debug/release模式的选择,很容易切换 M-x ede-project-configuration-set debug|release.如果是启用了debug模式,那么ede还可以直接debug我们的target,我将emacs的debug模式默认设置成为启动gdb-many-windows,所以debug就很容易了.

使用emacs ede工程组织插件的这种管理方式,不推荐直接使用在实际的项目中,更好的选择是自己去使用automake/cmake去组织,二者之间,我倾向的选择是cmake.随便下载一个开源库,搜索其中的CMakeLists.txt就能知道使用cmake是多么的简单了.我这样选择,是因为经常会用C去写一些小项目(或者是算不上项目的散碎程序),自己不喜欢写Makefile,cmake倒是使用的还不错,只是喜欢使用emacs编码慢悠悠的节奏感,这是我的出发点,可能有点荒唐,我也不期望被大多数同行理解.