开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码
rul_sub.k
资源名称：gnusql-0.7b5.1.tar.gz　[点击查看]
上传用户：dgyhgb
上传日期：2007-01-07
资源大小：676k
文件大小：3k
源码类别：

SQL Server

开发平台：

Unix_Linux

rul_sub.k：源码内容
  1. /*
  2.  *  rules for processing nested queries
  3.  *       nest type NJ
  4.  */
  6. #include <global.h>
  7. #include "trlinter.h"
  8. #include "seman.h"
  10. static int
  11. simple (TXTREF node)
  12. {
  13.   if (CODE_TRN(node) ==COLPTR) return 1;
  14.   return 0;
  15. }
  18. static TXTREF list_scan =TNULL; /* TblPtr list */
  20. static int
  21. sav_list_scan (TXTREF node) /* save first TblPtr */
  22. {
  23.   list_scan = node; /* TABL_DESC (node); */
  24.   return 1;
  25. }
  27. static int
  28. ext_ref (TXTREF node)
  29. {
  30.   TXTREF p;
  32.   /* checking ext ref */
  34.   if ( CODE_TRN (node) == COLPTR)
  35.     {
  36.       for (p =list_scan; p; p =RIGHT_TRN (p))
  37.         if (COL_TBL (OBJ_DESC (node)) == TABL_DESC (p)) return 1;
  38.     }
  40.   return 0;
  41. }
  44. #(Rule "Type_N"
  45.   (Query:where_f:subquery_f:9
  46.     { (From:1   ) 
  47.       (Selection)
  48.       (Where:3  {  (In:7 
  49.                      { (ColPtr:4) 
  50.                        (SubQuery:8  
  51.                          { (From :2 )
  52.                            (Result:10  { (ColPtr:5) } )
  53.                            (Where:6 )
  54.                        } )
  55.                    } )
  56.       } )
  57.     } )
  58.                       
  59. ""
  60. {
  61.  
  62.   (Op:1
  63.      {
  64.       (DOWN:list (Op:1))  
  65.       (DOWN:list (Op:2))   ;; don`t need to create new scan !
  66.       })
  67.   (Op:3 
  68.      { (And
  69.           { (Equ
  70.                { (Op:4)
  71.                  (Op:5)
  72.                })
  73.             (DOWN (Op:6) )
  74.           } )
  75.      })
  76.  
  78.   (REMOVE Op:2)
  79.   (REMOVE Op:7)
  80.   (REMOVE Op:6)
  81.   (REMOVE Op:10)
  82.    Op:9
  83. }
  84. )
  86. /*
  87.  *       nest type JA
  88.  */
  89. static void
  90. local_rule(TXTREF result,TXTREF *Rop)
  91. { /* add tmptable ref in glob vcb */ 
  93.   TXTREF p, cl;
  94.   i4_t i;
  96.   p =gen_node (TMPTABLE);
  97.   XVCB_TRN (p, 4) =VCB_ROOT; /* next */
  98.   TBL_NCOLS (p) = ARITY_TRN (result);
  99.   VCB_ROOT =p;               
  100.   VIEW_QUERY (p) =*Rop;
  101.   /* columns chain */
  102.   for (cl =DOWN_TRN (result), i=0; cl; cl =RIGHT_TRN (cl),i++)
  103.     {
  104.       p =gen_node (COLUMN);
  105.       COL_NO (p) =i;
  106.       COL_TBL (p) =VCB_ROOT;
  107.       COL_NEXT (p) =TBL_COLS (VCB_ROOT);
  108.       TBL_COLS (VCB_ROOT) =p;
  109.       if (CODE_TRN (cl) ==COLPTR) COL_TYPE (p) =COL_TYPE (OBJ_DESC(cl));
  110.       else COL_TYPE (p) =OPRN_TYPE (cl);
  111.     }
  112. }
  113.           
  114. #(Rule "Type_JA"
  115.    (Query:where_f:subquery_f:9 {
  116.       (From     { (Op "sav_list_scan") -- } )
  117.       (Selection)
  118.       (Where:3 {
  119.          (Op:7 "Is_Predicate" {
  120.            (ColPtr:4) 
  121.            (SubQuery:8 {
  122.              (From :2   { (Op:12)    } )
  123.              (Result:11 { (Op:5 "Is_Function") } )
  124.              (Where:6 {
  125.                (Op "Is_Predicate" {
  126.         (Op:1:exist_op "ext_ref" )
  127.  (Op:10:exist_op)
  128.                } ) 
  129.              } )
  130.            } )
  131.          } )
  132.       } )
  133.    } ) 
  134.                       
  135.    ""
  136.    {
  137.      (Query {
  138.        (COPY (Op:2))
  139.        (Selection:11 {(COPY (Op:10)) (COPY (Op:5 )) })
  140.        (Group {(COPY (Op:10)) })
  141.      } )
  142.      (C_code ("local_rule(Op[11],&Rop);"))
  143.    }
  144. )