BADIs 实现原理

转贴地址：http://jgtang82.iteye.com/blog/114737

在SAP系统中 BAdI 相关类的 类图 如下:

下面能过代码分析 BAdI 机制背后的一些设计问题：
1. 定义指向BAdI interface的Reference
    DATA: exit_ref TYPE REF TO ZIF_EX_BADI.
2. 获得继承BAdI interface的子类实例
   CALL METHOD cl_exithandler=>get_instance
        CHANGING
             instance = exit_ref.
这里的cl_exithandler=>get_instance方法是一个简化的Abstract Factory.
a) 为什么说它是个简化的Abstract Factory呢? 因为CL_EXITHANDLER没有一个抽象的工厂类, 只有一个产品簇, 只完成单一的创建工作。
b) 为什么不说它是个Factory Method? 是因为它没把类的创建工作延迟到子类。
c) 为什么cl_exithandler=>get_instance要用工厂模式呢?
在Client代码端看来，通过调用get_instance这个方法就可以得到具体实现类实例，然后调用下面的方法:
CALL METHOD exit_ref->CUSTOM_VALIDATION
    IMPORTING
       param = 'xxx'
    EXPORTING
       flt_val = 'xxx'.
就调用到实现类中的接口方法了。
但通过Debug代码你会发现这个调用返回的是Adapter Class 'ZCL_EX_BADI'而非我们的Impl Class!
其实这就是创建型模式的意义 - 隐藏对象的创建细节.
也就是说当我们调用CUSTOM_VALIDATION时，其实是调用了ZCL_EX_BADI->CUSTOM_VALIDATION.
3. ZCL_EX_BADI->CUSTOM_VALIDATION，这个方法是SAP系统自动生成的，核心代码如下：

[plain] view plaincopy

1. ...   
2. LOOP AT INSTANCE_BADI_TABLE ASSIGNING <exit_obj></exit_obj>  
3.            WHERE METHOD_NAME  = 'DISPLAY'.      
4.     APPEND TO EXIT_OBJ_TAB.      
5. ENDLOOP.      
6. ...   
7. LOOP at exit_obj_tab ASSIGNING  <exit_obj></exit_obj>  
8.     WHERE ACTIVE   = SXRT_TRUE.      
9.     CHECK <exit_obj></exit_obj>-imp_class NE old_imp_class.      
10.     <flt_cache_line></flt_cache_line>-valid = sxrt_true.      
11.     flt_val_db = <exit_obj></exit_obj>-flt_val.      
12.     ...      
13.     MOVE <exit_obj></exit_obj>-imp_class to <flt_cache_line></flt_cache_line>-imp_class.      
14.     MOVE <exit_obj></exit_obj>-imp_switch to <flt_cache_line></flt_cache_line>-imp_switch.      
15.     MOVE <exit_obj></exit_obj>-order_num to <flt_cache_line></flt_cache_line>-order_num.      
16.     INSERT INTO TABLE INSTANCE_FLT_CACHE.      
17.     old_imp_class = <exit_obj></exit_obj>-imp_class.      
18. ENDLOOP.      
19. ...   
20. LOOP AT INSTANCE_FLT_CACHE ASSIGNING <flt_cache_line></flt_cache_line>      
21.        WHERE flt_name    = flt_name      
22.          AND valid       = sxrt_true      
23.          AND method_name = 'CUSTOM_VALIDATION'.      
24. ...      
25. CALL METHOD ('CL_FOBU_METHOD_EVALUATION')=>load      
26.   EXPORTING      
27.     im_class_name     = <flt_cache_line></flt_cache_line>-imp_class      
28.     im_interface_name = 'ZIF_EX_BADI'      
29.     im_method_name    = 'CUSTOM_VALIDATION'      
30.   RECEIVING      
31.     re_fobu_method    = <flt_cache_line></flt_cache_line>-eo_object      
32.   EXCEPTIONS      
33.     not_found         = 1     
34.     OTHERS            = 2.      
35. ...      
36. ENDLOOP.   

这时我们会发现这段代码会找到所有Active的BAdI Implemention然后去执行它。这里有点Adpater的味道而且在SAP标准文档中确实是把ZCL_EX_BADI 类为Adapter Class, 但是我觉得这个叫法不合适，改变接口不是这个类的主要价值，里面的Loop调用实现类方法和Filter显得更主要。所以它的主要价值应该是对实现类的访问控制，改称Adapter Class为 Proxy或许更合适。下面是Proxy模式的类图：
关于Proxy模式, 《Head First Design Pattern》中讲的非常不错，这里推荐一下。
总结：
1. 通过 Factory 获得Adapter Class 的实例 (障眼法 / 封装创建细节)
2. 通过 Proxy 对象(Adapter Class) 实现对 BAdI Implementations 的访