BlogJava-庄周梦蝶

博客搬迁

dennis — Sun, 09 Dec 2012 17:24:00 GMT

很久没有更新博客�Q�没惛_��更新是搬�q�公告。这个博客篏计的讉K��量突破百万，是我建立的时候完全没有想�q�的事情。博客对我来说更多是记录、记忆的地方�Q�我时常因�ؓ想不��h��个东西，来翻自己的博客，查找旧知�Q�发现新知。阅��d��多�h的博客，也是我跟�t�、学习新知的主要方式。虽然微博兴��P��不过博客作�ؓ更系�l�性的记录的地方，不会�q�时�?br />
非常感谢blogjava提供�q�么优秀的��^台。只是我今年�l�自��q��一个目标是建立自己的博客，因此现在要搬�q�，加上其实现在也写的少�Q�其实搬�q�不搬迁�Q�意义也不大了。算是一个通告�Q�有兴趣的可以订阅我的新博客�Q�没兴趣的请自行略过�Q�谢谢大家�?br />
新博客地址�Q?a >http://blog.fnil.net/
RSS地址�Q?a >http://blog.fnil.net/index.php/feed

新博客的�W�一��记忆是�?a >Leiningen教程中文�?/a>》，从现在开始，�q�个博客��不再发布�Q何新的文章，已有的也不会删除�Q�部分可能会导到我的知识库上厅R�?br />
最后，��福blogjava��办��好�?br />

dennis 2012-12-10 01:24 发表评论

Another URL Shortener using NodeJS

dennis — Sun, 25 Nov 2012 12:31:00 GMT

It's my weekend project——node-shorten: URL Shortener just like t.cn,goo.gl etc.

Is is written in NodeJS,using express.js for MVC framework,and using MySQL for storage and Redis for caching.

A demo online: http://fnil.me/

The project is at https://github.com/killme2008/node-shorten

Feel free to modify and use it.Have fun.

dennis 2012-11-25 20:31 发表评论

dennis — Tue, 25 Sep 2012 04:51:00 GMT

很久没写博客�Q�一是工作忙�Q�二是没有太多的事情可说�?br />
最�q�在公司大�{的支持下�Q�徏立了一个Clojure语言中文斚w��的博客和问答�|�站�Q�欢�q��Q何对Clojure�q�门��Z��JVM之上的函数式语言感兴��的童鞋贡献原创文章或者资料，甌��帐号��L��q�里�?br />
博客地址�Q? http://blog.clojure.cn/
问答�|�站�Q? http://ask.clojure.cn/

�Ƣ迎转发和注册��用，谢谢�?br />
邮�g列表仍然使用google group�Q?a >https://groups.google.com/group/cn-clojure/

dennis 2012-09-25 12:51 发表评论

Ring.velocity:render velocity templates for ring in clojure

dennis — Tue, 17 Jul 2012 16:07:00 GMT

Home: https://github.com/killme2008/ring.velocity

A Clojure library designed to render velocity template for ring in clojure.

Usage

Adds dependency in leiningen project.clj:

  [ring.velocity "0.1.0-SNAPSHOT"]

Create a directory named templates in your project directory to keep all velocity templates.

Create a template templates/test.vm:

  hello,$name,your age is $age.

Use ring.velocity in your namespace:

  (use '[ring.velocity.core :only [render]])

Use render function to render template with vars:

  (render "test.vm" :name "dennis" :age 29)

The test.vm will be interpreted equals to:

  hello,dennis,your age is 29.

Use ring.velocity in compojure:

  (defroutes app-routes      
    (GET "/" [] (render "test.vm" :name "dennis" :age 29))   
    (route/not-found "Not Found"))

Use ring.velocity in ring:

  (use '[ring.util.response])   
  (response (render "test.vm" :name "dennis" :age 29))

Custom velocity properties,just put a file named ring-velocity.properties to your classpath or resource paths.The default velocity properties is in src/default/velocity.properties.

License

Distributed under the Eclipse Public License, the same as Clojure.

Home: https://github.com/killme2008/ring.velocity

dennis 2012-07-18 00:07 发表评论

Clojure�W�记�Q�用好type hint

dennis — Tue, 10 Jul 2012 12:37:00 GMT

Clojure的一大优点就是跟Java语言的完��配合，Clojure和Java之间可以�怺�调用�Q�Clojure可以天然��C��用Java�q�_��上的丰富资源。在Clojure里调用一个类的方法很��单，利用dot操作�W�：

user=> (.substring "hello" 3)
"lo"
user=> (.substring "hello" 0 3)
"hel"

上面的例子是在clojure里调用String的substring�Ҏ��做字�W�串截取。Clojure虽然是一门弱�c�d��的语�a��Q�但是它的Lisp Reader�q�是能识别大多数常见的类型，比如�q�里hello是一个字�W�串��可以识别出�?3是一个整��C��可以�Q�通过�q�些�c�d��信息可以扑ֈ�最匚w��的substring�Ҏ��Q�在生成字节码的时候避免��用反��，而是直接调用substring�Ҏ��Q�INVOKEVIRTUAL指��o�Q��?br />
但是当你在函数里调用�c�L��法的时候，情况��变了，例如�Q�定义substr函数�Q?br />

(defn substr [s begin end] (.substring s begin end))

我们打开*warn-on-reflection*选项�Q�当有反��的时候告警：

user=> (set! *warn-on-reflection* true)
true
user=> (defn substr [s begin end] (.substring s begin end))
Reflection warning, NO_SOURCE_PATH:22 - call to substring can't be resolved.
#'user/substr

问题出现了，�׃��函数substr里没有�Q何关于参数s的类型信息，��Z��调用s的substring�Ҏ��Q�必��M��用反��来调用�Q�clojure�~�译器也警告我们调用substring没办法解析，只能通过反射调用。众所周知�Q�反��调用是个相�Ҏ��늚�操作�Q�对比于普通的�Ҏ��调用有）。这一切都是因为clojure本��n是弱�c�d��的语�a��Q�对参数或者返回��g��不需要声明类型而直接��?Clojure会自动处理类型的转换和调用。ps.�?a >leiningen里启用反��警告很��单，在project.clj里设�|�：

;; Emit warnings on all reflection calls.
:warn-on-reflection true

�q�多的反��调用会影响效率�Q�有没有办法避免�q�种情况呢？有的�Q�Clojure提供了type hint机制�Q�允许我们帮助编译器来生成更高效的字节码。所谓type hint��是�l�参数或者返回值添加一个提�C�：hi,clojure�~�译器，�q�是xxx�c�d��Q�我惌��用它的yyy�Ҏ��Q�请生成最高效的调用代码，谢谢合作�Q?br />

user=> (defn substr [^String s begin end] (.substring s begin end))
#'user/substr

�q�次没有警告�Q�^String��是参数s的type hint�Q�提�C�clojure�~�译器说s的类型是字符�Ԍ��那么clojure�~�译器会从java.lang.String�c�里查找名称为substring�q�且接收两个参数的方�?/strong>�Q��ƈ利用invokevirtual指��o直接调用此方法，避免了反��调用。除了target对象�Q�这里的s)可以��d��type hint�Q�方法参数和�q�回��g��可以��d��type hint�Q?br />
user=> (defn ^{:tag String} substr [^String s ^Integer begin ^Integer end] (.substring s begin end))
#'user/substr

�q�回值添加type hint是利用tag元数据，提示substr的返回类型是String�Q�其他函数在使用substr的时候可以利用这个类型信息来避免反射�Q�而参数的type hint跟target object的type hint一样以^开头加上类型，例如�q�里begin和end都提�C��是Integer�c�d��?br />
问题1�Q�什么时候应该�ؓ参数��d��type hint呢？我的观点是，在�Q何�ؓtarget object��d��type hint的地方，都应该相应地为参数添加type hint�Q�除非你事先不知道参数的�c�d��?/strong>��Z��么呢�Q�因为clojure查找�c�L��法的��序是这��P��

1.从String�c�里查找出所有参��C��Cؓ2�q�且名称为substring�Ҏ��
2.遍历�W�一步里查找出来的Method�Q�如果你有设�|�参数的type hint,�?
查找最匚w��参数�c�d��的Method�Q�否则，如果�W�一步查扑և�来的Method��׃��个，直接使用�q�个Method�Q�相反就认�ؓ没有扑ֈ�对应的Method�?br /> 3.如果�W�二步没有找到Method�Q��用反��调用；否则�Ҏ��该Method元信息生成调用字节码�?br />
因此�Q�如果substring�Ҏ��的两个参数版本刚好就一个，�Ҏ��参数有没有type hint都没有关�p�（有了错误的type hint反而促使反��的发生�Q�，我们都会扑ֈ��q�个唯一的方法；但是如果目标�Ҏ��的有多个重蝲�Ҏ��q�且参数相同�Q�而只是参数类型不同（Java里是允许�Ҏ��的参数类型重载的�Q�Clojure只允许函数的参数个数重蝲�Q�，那么如果没有�Ҏ��参数的type hint�Q�Clojure�~�译器仍然无法找到合适的调用�Ҏ��Q�而只能通过反射�?br />
看一个例�?定义get-bytes�Ҏ��调用String.getBytes�Q?br />

user=> (defn get-bytes [s charset] (.getBytes s charset))
Reflection warning, NO_SOURCE_PATH:26 - call to getBytes can't be resolved.
#'user/get-bytes
user=> (defn get-bytes [^String s charset] (.getBytes s charset))
Reflection warning, NO_SOURCE_PATH:27 - call to getBytes can't be resolved.
#'user/get-bytes

�W�一�ơ定义，s和charset都没有设�|�type hint�Q�有反射警告�Q�第二次�Q�s讄��了type hint�Q�但是还是有反射警告。原因就在于String.getBytes有两个重载方法，参数个数都是一个，但是接收不同的参数类型，一个是String的charset名称�Q�一个Charset对象。如果我们明��地知道�q�里charset是字�W�串�Q�那么还可以为charset��d��type hint:

user=> (defn get-bytes [^String s ^String charset] (.getBytes s charset))
#'user/get-bytes

�q�次才真正的没有警告了。�ȝ��Q�在讄��type hint的时候，不要只考虑被调用的target object�Q�也要考虑调用的方法参数�?br />
问题2�Q�什么时候应该添加tag元数据呢�Q�理��Z��Q�在��M��你明��知道返回类型的地方都应该添加tag�Q�但是这不是教条�Q�如果一个偶��被调用的方法是无需�q�样做的。这一点只对写库的童鞋要特别注意�?br />
Type hint的原理在上文已经大概描述了下�Q�具体到clojure源码�U�别�Q�请参考clojure.lang.Compiler.InstanceMethodExpr�cȝ��构造函数和emit�Ҏ��。最后，附送是否��用type hint生成substr函数的字节码之间的差异对比：

未��用type hint 使用type hint

// access flags 1

public invoke(Ljava/lang/Object;Ljava/lang/Object;Ljava/lang/Object;)Ljava/lang/Object;

   L0

LINENUMBER 14 L0

   L1

LINENUMBER 14 L1

ALOAD 1

ACONST_NULL

ASTORE 1

LDC "substring"

ICONST_2

ANEWARRAY java/lang/Object

DUP

ICONST_0

ALOAD 2

ACONST_NULL

ASTORE 2

AASTORE

DUP

ICONST_1

ALOAD 3

ACONST_NULL

ASTORE 3

AASTORE

INVOKESTATIC clojure/lang/Reflector.invokeInstanceMethod (Ljava/lang/Object;Ljava/lang/String;[Ljava/lang/Object;)Ljava/lang/Object;

   L2

LOCALVARIABLE this Ljava/lang/Object; L0 L2 0

LOCALVARIABLE s Ljava/lang/Object; L0 L2 1

LOCALVARIABLE begin Ljava/lang/Object; L0 L2 2

LOCALVARIABLE end Ljava/lang/Object; L0 L2 3

ARETURN

MAXSTACK = 0

MAXLOCALS = 0

public invoke(Ljava/lang/Object;Ljava/lang/Object;Ljava/lang/Object;)Ljava/lang/Object;

   L0

LINENUMBER 15 L0

   L1

LINENUMBER 15 L1

ALOAD 1

ACONST_NULL

ASTORE 1

CHECKCAST java/lang/String

ALOAD 2

ACONST_NULL

ASTORE 2

CHECKCAST java/lang/Number

INVOKESTATIC clojure/lang/RT.intCast (Ljava/lang/Object;)I

ALOAD 3

ACONST_NULL

ASTORE 3

CHECKCAST java/lang/Number

INVOKESTATIC clojure/lang/RT.intCast (Ljava/lang/Object;)I

INVOKEVIRTUAL java/lang/String.substring (II)Ljava/lang/String;

   L2

LOCALVARIABLE this Ljava/lang/Object; L0 L2 0

LOCALVARIABLE s Ljava/lang/Object; L0 L2 1

LOCALVARIABLE begin Ljava/lang/Object; L0 L2 2

LOCALVARIABLE end Ljava/lang/Object; L0 L2 3

ARETURN

MAXSTACK = 0

MAXLOCALS = 0


�Ҏ��很明显，没有使用type hint�Q�调用clojure.lang.Reflector的invokeInstanceMethod�Ҏ��Q��用反��调用（具体见clojure.lang.Reflector.java)�Q�而��用了type hint之后�Q�则直接使用invokevirtual指��o�Q�其他方法可能是invokestatic或者invokeinterface�{�指令）调用该方法，避免了反��?br />

参考：

Type hint官方指南

invokevirtual指��o

Clojure源码

dennis 2012-07-10 20:37 发表评论

Clojure世界�Q�利用HouseMD诊断clojure

dennis — Thu, 14 Jun 2012 18:52:00 GMT

HouseMD是淘宝的聚石写的一个非�怼��U�的Java�q�程�q�行时诊断和调试工具�Q�如果你接触�q�btrace�Q�那么HouseMD也许你应该尝试下�Q�它比btrace更易用，不需要写脚本�Q�类似strace的方式attach到jvm�q�程做跟�t�调试�?br />
基本的安装和使用��L��q�篇文��?a >UserGuide》，恕不重复。以下内定w��假设你正��安装了housemd�?br />
本文主要介绍下怎么用housemd诊断跟踪clojure�q�程。Clojure的java实现也是跑在JVM里，当然也可以用housemd�?br />
我们以一个简单的例子开始，假设我们有如下clojure代码�Q?br />
(loop [x 1]
  (Thread/sleep 1000)
  (prn x)
  (recur (inc x)))

�q�段很简单，只是间隔一�U�不断地打印递增的数字x。我们准备用housemd跟踪�q�个�E�序的运行，首先�q�行�q�个�E�序�Q�你可以用lein�Q�也可以直接java命��o�q�行�Q?br />
java -cp clojure.jar clojure.main test.clj

�q�行时不断地在控制台打印数字�Q�通过jps或者ps查询到该�q�程的id�Q�假设�ؓpid�Q��用housemd�q�接到该�q�程�Q?br />
housemd
��利�q�入housemd的交互控制台�Q�通过help命��o可以查询支持的命令：

housemd> help

quit      terminate the process.
help      display this infomation.
trace     display or output infomation of method invocaton.
loaded    display loaded classes information.

要用housemd调试clojure�Q�你需要对clojure的实现有一点点了解�Q�有兴趣可以看过�ȝ��一��blog�?a href="http://www.dentisthealthcenter.com/killme2008/archive/2010/07/11/325775.html">clojure hacking guide》，��单来��_��clojure的编译器会将clojure代码�~�译成java�c�dƈ�q�行。对于JVM来说�Q�clojure生成的类�Q�跟java�~�译器生成类没有什么不同�?br /> 具体��C��面的clojure代码�Q�会生成一个名�?strong>user$eval1的类�Q�user是默认的namespace�Q�而eval1是clojure�~�译器自动生成的一个标�C�类名，通过loaded命��o查询�cȝ��加蝲情况�Q?br />
housemd> loaded user$eval1 -h
user$eval1 -> null
    - clojure.lang.DynamicClassLoader@1d25d06e
        - clojure.lang.DynamicClassLoader@1d96f4b5
            - sun.misc.Launcher$AppClassLoader@a6eb38a
                - sun.misc.Launcher$ExtClassLoader@69cd2e5f

通过-h选项打印了加载user$eval1的类加蝲器的层次关系�Q�因为user$eval1是动态生成的�Q�clojure启动�q�程中）�Q�因此它不在��M��一个class或者jar文�g中。除了查询user namespace的类之外�Q�你�q�可以查询clojure.core,clojure.lang,clojure.java�{��Q何被加蝲�q�来的类�Q�例如查询clojure.core.prn的类,在clojure里这是一个函敎ͼ�在jvm看来�q�只是一个类�Q?br />
housemd> loaded -h core$prn
clojure.core$prn -> /Volumes/HDD/Users/apple/clojure/clojure.jar
    - sun.misc.Launcher$AppClassLoader@a6eb38a
        - sun.misc.Launcher$ExtClassLoader@69cd2e5f
注意�Q�不需要完整的namespace——clojure.core�Q�直接core$prn卛_��。其他也是类伹{�?strong>��技巧：如果你实在不知道clojure�~�译器生成的�c�d��Q�你可以利用jvm自带的jmap命��o来查询�?/strong>

接下来，我们��试用trace命��o跟踪�Ҏ��的运行，例如例子中的clojure代码用到了loop和recur两个sepcial form�Q�我们跟�t�下loop:
housemd> trace -t 5 core$loop
INFO : probe class clojure.core$loop
core$loop.doInvoke(Object, Object, Object, Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null
core$loop.getRequiredArity()                          sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null

core$loop.doInvoke(Object, Object, Object, Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null
core$loop.getRequiredArity()                          sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null

core$loop.doInvoke(Object, Object, Object, Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null
core$loop.getRequiredArity()                          sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null

core$loop.doInvoke(Object, Object, Object, Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null
core$loop.getRequiredArity()                          sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null

core$loop.doInvoke(Object, Object, Object, Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null
core$loop.getRequiredArity()                          sun.misc.Launcher$AppClassLoader@a6eb38a            0            -ms    null

INFO : Ended by timeout
INFO : reset class clojure.core$loop

�?�U�内�Q�clojure.core$loop�c�L��两个�Ҏ��各被调用�?�ơ，doInvoke是实际的调用�Q�而getRequiredArity用来查询loop所需要的参数个数。trace�q�可以跟�t�到具体的方法，例如我们跟踪prn函数的调用情况：
housemd> trace -t 5 core$prn.doInvoke
INFO : probe class clojure.core$prn
core$prn.doInvoke(Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            1            1ms    clojure.core$prn@3e4ac866

core$prn.doInvoke(Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            2           <1ms    clojure.core$prn@3e4ac866

core$prn.doInvoke(Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            3           <1ms    clojure.core$prn@3e4ac866

core$prn.doInvoke(Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            4           <1ms    clojure.core$prn@3e4ac866

core$prn.doInvoke(Object)    sun.misc.Launcher$AppClassLoader@a6eb38a            5           <1ms    clojure.core$prn@3e4ac866

INFO : Ended by timeout
INFO : reset class clojure.core$prn

trace打印了方法的调用�ơ数�Q?�U�内�Q�和每次调用的时��_��毫秒�U�别�Q�，以及调用的target object。小技巧：没有可变参数的函数生成类最�l�调用的是invoke�Ҏ��Q�参��C��数可能重载）�Q�有可变参数的函数调用的是doInvoke�Ҏ��?br />
trace命��o�q�支持打印调用堆栈到文�g�Q�例如：
trace -t 5 -d -s  core$prn.doInvoke

利用-s�?d命��o会将详细的调用信息输出到临时目录�Q��时目录的路径可以通过trace help命��o查询刎ͼ�在我的机器上�?tmp/trace/@host目录下。调用堆栈的输出�c�M��Q?br />
example$square.invoke(Long) call by thread [main]
    example$eval9.invoke(test.clj:11)
    clojure.lang.Compiler.eval(Compiler.java:6465)
    clojure.lang.Compiler.load(Compiler.java:6902)
    clojure.lang.Compiler.loadFile(Compiler.java:6863)
    clojure.main$load_script.invoke(main.clj:282)
    clojure.main$script_opt.invoke(main.clj:342)
    clojure.main$main.doInvoke(main.clj:426)
    clojure.lang.RestFn.invoke(RestFn.java:421)
    clojure.lang.Var.invoke(Var.java:405)
    clojure.lang.AFn.applyToHelper(AFn.java:163)
    clojure.lang.Var.applyTo(Var.java:518)
    clojure.main.main(main.java:37)

上面�q�个��单的例子展示了��用housemd跟踪诊断clojure�q�程的方法�?br />
自定义ns和函数的调试与此�c�M��Q�假设我们有下面的clojure代码�Q?br />
(ns example)
(defn square [x]
  (* x x))

(loop [x 1]
  (Thread/sleep 1000)
  (square x)
  (recur (inc x)))

ns为example�Q�自定义函数square�q�定期��@环调用。��用housemd诊断�q�段代码�Q?br />
loaded -h example$square     #查询square的加载情�?br />trace -t 10 -d -s example$square.invoke  #跟踪10�U�内square的调用情�?/div>

dennis 2012-06-15 02:52 发表评论

分布式消息中间�gMetaq发布1.4.3

dennis — Mon, 04 Jun 2012 02:03:00 GMT

我们在维护的淘宝开源消息中间�g�?a style="color: #006699; ">metaq�?a style="color: #006699; ">github分支�Q�今天发布了1.4.2版本�Q�主要做了如下改�q�：

1.支持发送和订阅分离�Q�可以细�_�度地控制Broker或者某个Topic是否接收消息和接受订阅。服务端��d��新选项acceptPublish和acceptSubscribe�?br />
2.更友好地关闭Broker�Q�梳理关闭流�E��ƈ通过JMX调用�Ҏ��关闭替代原来��单的kill�?br />
3.更新python客户�?/a>�?.2版本�Q�可以通过pip安装: pip install metaq

4.发布ruby语言客户�?a style="color: #006699; ">meta-ruby 0.1版本�?br />
5.其他��改�q�：升��gecko�?.1.1版本�Q�升�U�quartz�?.1.4版本�Q�添加集成测试工�E�和内部重构�{��?br />
6.新文�?a >《��用log4j扩展发送消息�?/a>

��介：https://github.com/killme2008/Metamorphosis/wiki/介绍
下蝲�Q?a style="color: #006699; ">https://github.com/killme2008/Metamorphosis/downloads
文��Q?a style="color: #006699; ">https://github.com/killme2008/Metamorphosis/wiki

dennis 2012-06-04 10:03 发表评论

如何熟悉一个开源项目？

dennis — Tue, 22 May 2012 15:12:00 GMT

你有个�Q务，需要用到某个开源项�?或者老大交代你一个事情，让你��M��解某个东�ѝ��怎么下手呢？如何开始呢�Q�我的习惯是�q�样�Q?br />
1.首先�Q�查扑֒�阅读该项目的博客和资料，通过google你能扑ֈ�某个��目大体介绍的博客，快速阅��M��下就能对��目的目的、功能、基本��用有个大概的了解�?br />
2.阅读��目的文��，重点��x��c�M��Getting started、Example之类的文��，从中学习如何下蝲、安装、甚臛_��本��用该��目所需要的知识�?br />
3.如果该项目有提供现成的example工程�Q�首先尝试按照开始文��的介绍�q�行example�Q�如果运行顺利，那么恭喜你顺利开了个好头;如果遇到问题�Q�首先尝试在��目�?strong>FAQ�{�文��里查找�{�案�Q�再�ơ，可以��问题（例如异常信息�Q�当成关键词��L��索，查找相关的解军_��法，你遇��C��Q�别��Z��般也会遇刎ͼ�热心的朋友会记录下解决的�q�程;最后，可以��问题提交到��目的邮件列表，请大家帮你看看�?strong>在没有成功运行example之前�Q�不要尝试修改example�?br />
4.�q�行了第一个example之后�Q�尝试根据你的理解和需要修改example�Q�测试高�U�功能等�?br />
5.在了解基本��用后�Q�需要开始深入的了解该项目。例如项目的配置��理、高�U�功能以及最佛_��c��通常一个运作良好的��目会提供一份从��到��q��用户指南�Q�你�q�不需要从头到��N��读这份指南，�Ҏ��旉��和兴��，特别是你自己��d��的需要，重点阅读部分章节�q�做�W�记�Q�推荐evernote�Q��?br />
6.如果旉��允许�Q�尝试从源码构徏该项目。通常开源项目都会提供一份构建指南，指导你如何搭��Z��个用于开发、调试和构徏的环境。尝试构��Z��个版本�?br />
7.如果旉��允许�q�且有兴��，可以��试阅读源码�Q?br />�Q?�Q�阅��L��码之前，查看该项目是否提供架构和设计文��Q�阅读这些文��可以了解该��目的大体设计和�l�构�Q�读源码的时候不会无从下手�?br />�Q?�Q�阅��L��码之前，一定要能构建�ƈ�q�行该项目，有个直观感受�?br />�Q?�Q�阅��L��码的�W�一步是抓主�qԌ��试理清一�ơ正常运行的代码调用路径�Q�这可以通过debug来观察运行时的变量和行�ؓ。修�Ҏ��码加入日志和打印可以帮助你更好的理解源码�?br />�Q?�Q�适当��d��来帮助你理解源码�Q�在理清��d��后，可以��整个流�E�画成一张流�E�图或者标准的UML图，帮助记忆和下一步的阅读�?br />�Q?�Q�挑选感兴趣�?#8220;枝干”代码来阅读，比如你对�|�络通讯感兴��，��阅�ȝ��l�层的代码，深入到实现细节，如它用了什么库�Q�采用了什么设计模式，��Z��么这样做�{�。如果可以，debug�l�节代码�?br />�Q?�Q�阅��L��码的时候，重视单元��试�Q�尝试去�q�行单元��试�Q�基本上一个好的单元测试会��该代码的功能和边界描述清楚�?br />�Q?�Q�在熟悉源码后，发现有可以改�q�的地方�Q�有�_�֊�、有意愿可以向该��目的开发者提出改�q�的意见或者issue�Q�甚臛_��他修复和实现�Q�参与该��目的发展�?br />
8.通常在阅��L��和源码之后�Q�你能对该项目有比较深入的了解了�Q�但是该��目所在领域，你可能还��x��索相关的��目和资料，看看有没有其他的更好的项目或者解��x��案。在�q�度和深度之间权衡�?br />
以上是我个�h的一些习惯，我自�׃��q�没有完全按照这个来�Q�但是按照这个顺序，基本上能让你比较高效地学习和使用某个开源项目�?img src ="http://www.dentisthealthcenter.com/killme2008/aggbug/378885.html" width = "1" height = "1" />

dennis 2012-05-22 23:12 发表评论

Emacs + Clojure配置的几个Tip

dennis — Fri, 18 May 2012 16:57:00 GMT

很久没更新博客了�Q�在北京工作�Q�忙��ƈ且充实。目前来��_��Clojure最好的开发编辑器应该是Emacs + Slime的组合，利用swank-clojure�q�个��目�Q�加上clojure-mode�Q�可以完��地�q�行slime。编译、运行、蟩转、文��和引用查看甚至debug都可以搞定。具体配�|�恕不重复，看swank-clojure的文��即可自己安装�v来，或者这��?a >中文博客�Q?a >windows上配�|?/a>�?br />
分��n几个Tip�Q�也期待大家分��n你们的��用心得�?br />
首先是自动在打开clj后缀文�g的时候启动执行clojure-jack-in与slime�q�接�Q�可以在emacs配置里加上个callback�Q?br />

(eval-after-load "clojure-mode"
  '(progn
     (require 'slime)
     (require 'clojure-mode)
     (unless (slime-connected-p)
       (save-excursion (clojure-jack-in)))))

�q�样在打开clj为后�~�的文件的时候，��自动启动clojure-mode执行clojure-jack-in函数�q�且�q�接slime�?br />
��clj后缀的文件自动关联到clojure-mode:

(setq auto-mode-alist (cons '("\\.clj$" . clojure-mode) auto-mode-alist))

通常来说如果你是利用marmalade安装的，会自动关联的�?br />
另外�Q�启动自动匹配括受��字�W�串引号�{�的paredit模式一定要启动�Q?br />

(defun paredit-mode-enable () (paredit-mode 1))
(add-hook 'clojure-mode-hook 'paredit-mode-enable)
(add-hook 'clojure-test-mode-hook 'paredit-mode-enable)

在��用clojure-mode或者clojure-test-mode的时候自动启用paredit模式�Q�括号再也不是问题。括号匹配提�C�Z��般是开启的�Q�如果没有，强制开启：

;; 昄��括号匚w��
(show-paren-mode t)
(setq show-paren-style 'parentheses)

slime更多配置�Q�启用IO重定向（多线�E�IO输出都定向到SLIME repl�Q�以及设�|�通讯字符�~�码�{�：

(eval-after-load "slime"
  '(progn
     (slime-setup '(slime-repl slime-fuzzy))
     ;;(setq slime-truncate-lines t)
     (setq  swank:*globally-redirect-io*  t)
     ;; (setq slime-complete-symbol-function ' slime-fuzzy-complete-symbol)
     (setq slime-net-coding-system 'utf-8-unix)))

�l�心的朋友可能注意到我注释了slime-fuzzy-complete的配�|�，�q�是一个支持更好的自动补全功能的SLIME插�g�Q�可以用�~�写来自动补全）�Q�可惜在我机器上没有��试配置成功�Q�有兴趣你可以尝试下�?br />
在REPL里支持语法高亮，一定要配置上：

(add-hook 'slime-repl-mode-hook
          (defun clojure-mode-slime-font-lock ()
            (require 'clojure-mode)
            (let (font-lock-mode)
              (clojure-mode-font-lock-setup))))

单独在clojure-mode�Q�在其他mode里这些快捷键不会起作用）里配�|�快捷键可以�q�样:

(eval-after-load "clojure-mode"
  '(progn
     (require 'slime)
     (require 'clojure-mode)
     (define-key clojure-mode-map (kbd "M-/")  (quote slime-complete-symbol))
     (define-key clojure-mode-map (kbd "C-c s")  (quote slime-selector)))

例如我这里将M-/作�ؓ自动补全的快捷键�Q�因为meta键在我的Mac机器上设�|��ؓcommand键，因此自动补全的操作习惯就跟Eclipse�c�M��。�?strong>slime-selector是一个非常有用的函数�Q�用来蟩转到slime的一�p�d��buffer�Q�因此我�l�定了C-c s快捷键�?br />
额外一提，在Mac osx下，��command作�ؓmeta�?

;;; I prefer cmd key for meta
(setq mac-option-key-is-meta nil
      mac-command-key-is-meta t
      mac-command-modifier 'meta
      mac-option-modifier 'none)

最后，期待大家不吝分��n你的心得�?br />

dennis 2012-05-19 00:57 发表评论

clj.monitor : monitoring applications in clojure based on SSH

dennis — Sat, 12 May 2012 14:38:00 GMT

My weekend project clj.monitor is beta release,it's a clojure DSL for monitoring system and applications based on SSH.

Home:https://github.com/killme2008/clj.monitor

An example:

(ns clj.monitor.example
  (:use [clj.monitor.core]
        [control.core]
        [clj.monitor.tasks]))

;;define a mysql cluster
(defcluster mysql
  :clients [{:user "deploy" :host "mysql.app.com"}])

;;define a monitor for mysql cluster
(defmonitor mysql-monitor
  :tasks [(ping-mysql "root" "password")
(system-load :5 3)]
  :clusters [:mysql])

;;start monitors
(start-monitors
:cron "* 0/5 * * * ?"
:alerts [(mail :from "alert@app.com" :to "yourname@app.com")]
:monitors [mysql-monitor])

API document: http://fnil.net/clj.monitor

It is just a beta release,if you have any questions or find issues ,please let me know,thanks.

dennis 2012-05-12 22:38 发表评论