在newlisp中使用table-driven模式

table-drvien，在代码大全中有专门一章介绍，大意是如果条件判断太多，根据不同的条件要执行不同的代码逻辑，用if/else很傻，用switch/case也是一样，用设计模式要写一大堆类。其实有一个更简单的做法，就是key/value类型的数据结构，key为条件，value为执行函数。如果key是整数的话，用一维或者多维数组也可以。

在newlisp中，提供了key/value的接口允许做到table-driven. 下面是个例子：

> (new Tree 'MyTable)
MyTable
> (define (ff) (println "ok"))
(lambda () (println "ok"))
> (MyTable "a" ff)
(lambda () (println "ok"))
> (MyTable "a")
(lambda () (println "ok"))
> ((MyTable "a"))
ok
"ok"

首先定义了一个Tree的子类MyTable,

然后定了一个函数ff

然后将key="a", value=ff的这对保存到MyTable类中。这里和其他语言不一样，是放在MyTable中，而不是其对象中。要注意。

然后就可以用key取出value, 就是ff函数。

如果想立刻运行，用( )执行即可。

有了这个，想象一下，如果通过TCP协议发送过来很多消息，第一步解析消息头，得到其中的类型，

然后用类型（字符串或者整数）作为key到MyTable中取出对应的函数，对消息的其余部分做处理。

代码中消灭了if/else，也没有复杂的设计模式。很方便吧。