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 -)
 (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 )
 (transient-mark-mode )
 (show-paren-mode )
 (mouse-wheel-mode t)

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

 ;;------------------------------------------------------------------
 ;;%% 设置tab缩进格式
 ;;-----------------------------------------------------------------
 (setq indent-tabs-mode nil)
 (setq tab-width )
 ;;------------------------------------------------------------------
 ;;%% 加载配置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 )

 ;;------------------------------------------------------------------
 ;;%% 默认启动多窗口调试
 ;;------------------------------------------------------------------
 (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 )
 ;;(semantic-load-enable-code-helpers)
 (global-srecode-minor-mode )

 ;;(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编码慢悠悠的节奏感,这是我的出发点,可能有点荒唐,我也不期望被大多数同行理解.