automatically beautify source code with emacs

前两天接了一个任务——统一代码缩进格式。

要求不算高,确保没有TAB键并缩进四格。问题是几十个文件,总得有点手段才行,谁让咱是懒惰的程序员呢!尝试了indent和astyle,都不甚理想,indent主要是处理C,而我们用C++,astyle号称也能处理C++和Java,却把bit field当成了label。最后还是决定用emacs,毕竟它有c++-mode。

写了两个脚本——reindent.sh和reindent.el。reindent.sh是驱动程序;reindent.el则完成缩进工作,它必须放在emacs的load path里面,比如可以放在/usr/share/emacs/site-lisp/,放在当前目录或使用显式路径都是没有用的。

reindent.sh的内容如下:

#!/bin/bash

set -o verbose

for d in dir_a dir_b/subdir_c; do
   for f in `find $d -iname "*.[hc]"`; do
      emacs --no-site-file --batch $f -l reindent
   done
done

reindent.el的文件内容如下:

(add-hook 'c++-mode-hook '(lambda()
      (setq indent-tabs-mode nil)
      (c-set-style "stroustrup")
      (c-set-offset 'case-label 4)
      (c-set-offset 'inline-open 0)
      (c-set-offset 'cpp-define-intro 0)
      (c-set-offset 'func-decl-cont 0)))
(c++-mode)
(indent-region (point-min) (point-max))
(untabify (point-min) (point-max))
(save-buffer)

其中包括了一些根据特定项目需要而做的定制和hack,详见CC Mode手册

Open-end fund calculator

前天试图给我从前写的“中国开放式基金投资跟踪工具”增加一点功能,即提取数据源的时间信息,并在输出结果上显示出来。因为修改幅度较大,在出现错误之后险些无法回退到正确的程序,当下惊出一身冷汗。程序员做了这么久,还是没有养成良好的习惯,以为只是一个小小的Perl脚本,随便改改测测就可以了,既没有用版本控制工具管理,也没写测试。虽然在网站上有1.1版本的备份,但其后的一些小改动并没有及时备份,如果这次真的搞砸了,这些工作就要重做了。

于是想到Google Code Hosting,它用subversion做版本控制,还提供一定的缺陷管理能力,本来就想着有机会试用一下,可惜发现帮助上说只有拥有GMail帐号的人才能发评论、提交缺陷,稍微有点不爽。于是就用Dreamhost本身提供的subversion,文档记录工作还是用wiki算了。有了版本控制,心里就踏实多了,过两天再写个正规点的测试,makefile什么的也加上,才算对得起咱程序员的身份。:-)

当然,别指望有多少人会去用一个Perl脚本,尤其是还要额外安装好几个module。即使是当初在英特尔的时候,别看用Perl写程序的人不少,能够玩转CPAN的人却没见过,都是依靠Perl语言的基本功能以及Core module在做事(也有手工下载tar包自己编译的)。所以我想,等到这个Perl脚本的功能完善得差不多的时候,再写一个Web 2.0的壳包装一下,万一以后转向互联网行业,在简历上也能写上一笔。

前一段股市长红,咱改起程序来也有了劲头;这两天股市喘口气,咱就做点基础性的工作。