论面向组合子程序设计方法 之 南无阿弥陀佛

阅读更多
其实,前面我还忘了提一个非常重要的基本组合子:singleton。
这里补充提一下:
class SingletonComponent implements Component{
  private final Component c;
  private Object val;
  public Class getType();{
    return c.getType();;
  }
  public synchronized Object create(Dependency dep);{
    if(val!=null); return val;
    val = c.create(dep);;
    return val;
  }
  public synchronized Class verify(Dependency dep);{
    if(val!=null); return val.getClass();;
    else return c.verify(dep);;
  }
} 

代码没什么可说的,就是最简单的singleton模式。

用这个组合子,我们可以对任意的Component做singleton。

下面接着说monad。

有了bind,很多的功能都可以自然推演出来了。

比如我们前面用来刁难pico的那个例子,甚至,为了更强调复杂性,我们可以给B和A再另外增加一些参数,这些参数要求从容器解析(毕竟,我们之所以需要容器,就是为了自动解析一些依赖关系,要是全部依赖关系都hard-code,意义就不大了):
void A createA();{
  B b = new B(...);;
  return new A(b,b, ...);;
}

用bind,我们的思路可以是这样:
1。用B的构造函数生成一个Component。
2。这个Component生成一个对象,
3。这个产生的对象被传递给一个对应A的Component当作参数。这一步可以用bind来搞定。


Component b_component = Components.ctor(B.class);;
return new BoundComponent(b_component, new Binder();{
  public Component bind(Object b);{
    final Component arg = Components.value(b);;
    return new WithArgument(
      new WithArgument(a, 0, arg);,
    1, arg);;
  }
});;


Components.value(Object)是我们写的一个对ValueComponent的封装静态函数。
为了避免总写冗长的new SomeComponent(...),我们把一些常用的基本Component都写成名字较短的静态函数,放在Components类里面。

这样,我们可以写Components.value(obj),而不是new ValueComponent(obj)。
要是觉得敲键盘还是麻烦,你甚至可以创建一个Components对象cc。然后到处用这个对象:
cc.value(obj)。舒服些了吧?


从上面的例子,我们可以看到,那个直接创建对象的createA函数中的两个步骤,在我们高阶的Component中也被分为两部。
而在两个步骤之间的信息传递(那个b变量,从第一个步骤取得,然后在第二个步骤使用),则被用bind操作实现了。

到这,也许我们该伸伸懒腰了。舒服地往椅子背上一靠,说:“啊。终于干完了!我可以用高阶逻辑来模拟任何直接硬编码创建对象的逻辑了”。

这话倒也没错,有了bind,我们不再被局限于“构造函数注射”,“setter注射”,“静态工厂注射”等寥寥几个注射方式;我们甚至可以对所谓的ioc type嗤之以鼻:“什么type1, type2?不过是我们可以处理的无数种情况中的几种特例而已!”。
我们可以处理if-else,可以处理循环,递归,任何可以直接用java写出来的对象创建方式,我们都可以在高阶逻辑上得到对应的组合版本,只要我们有足够的原子组合子。(所谓原字组合子,不过是:FunctionComponent, BeanComponent,ValueComponent几种)

比如,对应于:

X createX();{
  A a = A.instance(...);;
  if(a.isX(...););{
    return new X(...);;
  }
  else{
    return new Y(a, ...);.getX(...);;
  }
}

这里,所有的省略号都代表可能需要从容器解析的参数。使用高阶Component对象而不是直接调用createX()函数的一个原因,就是我们想要把依赖解析隐藏起来并且集中灵活地配置和管理。


对此,我们可以写成:
Component a_component = Components.static_method(A.class, "instance");;
return new BoundComponent(a_component, new Binder();{
  public Component bind(final Object a);{
    final Component isx_component = Components.method(a, "isX");;
    return new BoundComponent(isx_component, new Binder();{
      public Component bind(Object isx);{
        final Boolean v = (Boolean);isx;
        if(v.booleanValue(););{
          return Components.ctor(X.class);;
        }
        else{
          final Coponent y_component = 
           new WithArgument(Components.ctor(Y.class);, 0, 
              Components.value(a););;
          return new BoundComponent(y_component, new Binder();{
            public Component bind(Object y);{
              return Components.method(y, "getX");;
            }
          });;
          
        }
      }
    });;
  }
});;

稍微有点绕,如果你到此有点糊涂的话,请重温一下前面的简单的bind的例子,只要体会了bind的具体意义,上面的代码不过是几层bind的嵌套。


好,如果你理解了bind,那么应该能够看懂上面的这段代码了。它其实就是那个createX函数的严格翻译。

功能确实很强大了,就是这代码写起来这个 啊!对比一下createX和这个高阶版本吧。我发现如果我多看几眼这个所谓的"co"的代码,我简直都要吐!如果说createX这个函数的代码是正常人说话,那么这个高阶代码就是唐僧念经:“南无阿弥陀佛,南无阿弥陀佛,南无阿弥陀佛...”,天啊!


如果我们真要Combinator-oriented起来,难道要整天写这种蹩脚代码?是不是我们吐啊吐的就会习惯了呢?
pico的各个ComponentAdapter其实倒也就是这么写,可是pico没有bind,你很少需要写这么深的嵌套,甚至很少需要写匿名类。
如果我们把我们的组件系统比喻作pascal语言的话,pico的那些decorator充其量不过是一个dos的批处理,不,远不如批处理灵活,应该也就是一个简单的用户界面上的几个按钮。

那么有没有什么办法来简化语法呢?

倒是有一个想法:
1。把Component从接口变成一个抽象类。然后把一些常用的二元组合,比如bind,比如withArgument,withProperty,比如method,ifelse,都放在这个抽象类里面。这样,

我们就可以避免写:
new SingletonComponent(c),而写c.singleton()。
我们就可以避免写:
new BoundComponent(c1, ...),而写:c1.bind(...)。
可以避免写:
new WithArgument(c, 0, arg),而写:c.withArgument(0, arg)。
可以避免写:
new BoundComponent(c1, new Binder();{
  public Component bind(Object obj);{
    return Components.method(obj, "method");;
  }
});;


而写成:
c1.method("method");;


可以避免写:
new BoundComponent(c1, new Binder();{
  public Component bind(Object obj);{
    if(((Boolean);obj);.booleanValue(););{
      return a;
    }
    else return b;
  }
});;

而写成:
c1.ifelse(a,b);;

等等等等。

这样做,从架构上确实有点损害,我们牺牲了“围绕接口”的原则,而改为围绕抽象类了。

但是,从实际效果考虑,我发现它损失的架构上的美感,远远比不上它带来的编码上的方便程度。谁让我们用的是java呢,世上没有十全十美的事情,就凑合吧。

经过这个改动,上面的对应createX的高阶代码变成:

Component a_component = Components.static_method(A.class, "instance");;
return a_component.bind(new Binder();{
  public Component bind(final Object a);{
    final Component isx_component = Components.method(a, "isX");;
    return isx_component.ifelse(
      Components.ctor(X.class);,
      Components.ctor(Y.class);
        .withArgument(0, Components.value(a););
        .method("getX");
    );;
  }
});;


稍微好些了。而如果我们不需要给Y的构造函数指定参数,那么效果还会更好。
比如对
X createX();{
  A a = A.instance(...);;
  if(a.isX(...););{
    return new X(...);;
  }
  else{
    return new Y(...);.getX(...);;
  }
}

高阶代码会变成:
Component a_component = Components.static_method(A.class, "instance");;
return a_component.method("isX");.ifelse(
    Components.ctor(X.class);,
    Components.ctor(Y.class);
      .withArgument(0, Components.value(a););
      .method("getX");
);;

又简洁了不少。


当然,说实话,如果我们把情况任意复杂化,比如:

Y createY();{
  a = A.createA(...);;
  b = B.createB(a, ...);;
  c = C.createC(a,b,...);;
  return Y.create(a,b,c,...);;
}

要对createY写出高阶对应版本,这bind要嵌套三层,代码无论如何不可能好看了。对此,我们只能耸耸肩说:无能为力了。因为我们这里已经接触到了java语言的底线。

值得欣慰的是,至少:
1。对简单需求,比如pico能够处理的那些,我们的语法并不比pico麻烦。
2。对复杂需求,pico不能处理,而只能通过自己实现ComponentAdapter实现;而我们的co构建出来的系统,在没有剥夺你自己实现Component的前提下,也提供了采用声明式的语法来组合的方式。至于是选择用熟悉的java语法来过程式地自己处理依赖,还是用声明式的高阶逻辑来仍然让系统处理依赖,则是程序员的自由了。

我们推荐,除非对非常复杂的需求,还是用声明式的组合来处理更好。


写到这里,不得不唠叨一些语言了。就象是你也可以在c这个过程语言里面使用一些oo的技巧一样,我们在java这个oo语言里面是可以使用一些co的技巧的。

只不过,缺乏语言上的良好支持,让我们在采用co设计的时候的代价有所增大。如何权衡?是co带来的缺点(不方便调试,运行效率低,语法麻烦)大,还是它带来的好处(灵活应对变化,减少代码数量,方便重用)大,则是一个需要主观经验决定的事情了。



其实,在一个真正支持monad组合子的语言里面,createY会被类似写成这样:
do
  a <- static_method(A.class, "createA");;
  b <- static_method(B.class, "createB");
    .withArgument(0, a);;
  c <- static_method(C.class, "createC");
    .withArgument(0, a);.withArgument(1, b);;
  return (static_method(Y.class, "create");
    .withArgument(0,a);.withArgument(1,b);.withArgument(2,c);;
  );



所有的Binder匿名类会被自动生成。
这叫"do-notation",是haskell里面用来方便处理monad组合子的利器。

在我开发的jaskell语言里面,对do-notation有类似的支持。


题外话:
最近,看到老庄设计的DJ里面说要支持co。我觉得,如果仅仅象java这样的所谓“支持”,那就和用C的函数指针号称支持OO一样无趣了。

一个可以说得上对co有支持的语言,即使不直接支持do-notation,也应该把写匿名类的代价降到和一个lamda函数相接近的程度。
即使我不能写

a <- createA
b <- createB a


也要能够写成:

createA >>= \a->createB a



组合并不仅仅是几个简单的decorator套起来。真正复杂的co里,不同组合子之间是需要通过bind来通信的。而组合子之间的通信能力才是co强大的根源。

你可能感兴趣的:(设计模式,OO,C,C++,C#)