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

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

SQL Server

开发平台：

Unix_Linux

vcblib.c：源码内容
  1. /*
  2.  *  vcblib.c - tree library of GNU SQL compiler
  3.  *             Vocabulary support.
  4.  *
  5.  *  This file is a part of GNU SQL Server
  6.  *
  7.  *  Copyright (c) 1996, 1997, Free Software Foundation, Inc
  8.  *  Developed at the Institute of System Programming, 
  9.  *  This file is written by Michael Kimelman
  10.  *
  11.  *  This program is free software; you can redistribute it and/or modify
  12.  *  it under the terms of the GNU General Public License as published by
  13.  *  the Free Software Foundation; either version 2 of the License, or
  14.  *  (at your option) any later version.
  15.  *
  16.  *  This program is distributed in the hope that it will be useful,
  17.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  18.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19.  *  GNU General Public License for more details.
  20.  *
  21.  *  You should have received a copy of the GNU General Public License
  22.  *  along with this program; if not, write to the Free Software
  23.  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  24.  *
  25.  *  Contact: gss@ispras.ru
  26.  *
  27.  */
  29. /* $Id: vcblib.c,v 1.245 1997/03/31 03:46:38 kml Exp $ */
  31. #include "trl.h"
  32. #include "vcblib.h"
  33. #include "trlinter.h"
  34. #include "cycler.h"
  35. #include "type_lib.h"
  36. #include <assert.h>
  37. #include "tassert.h"
  39. static void sort_clmns __P((TXTREF *list));
  40. void check_scan_cols(TXTREF tblptr);
  42. static VCBREF
  43. ind_table(VCBREF index)
  44. {
  45.   /*     table   column   colptr   given_index */
  46.   return COL_TBL(OBJ_DESC(DOWN_TRN(index      )));
  47. }
  49. /*
  50.  * Finding parameters, cursors etc. in vocabulary by only one name. 
  51.  * Each of this kind of nodes stores name as a first parameter.     
  52.  */
  54. VCBREF
  55. find_info( enum token code,LTRLREF l)     
  56. {                                         
  57. #define  VCB_NAME(v)  XLTR_TRN(v,0)       
  58.   register VCBREF vcb;                    
  60.   if     ( code==CURSOR )
  61.     vcb=VCB_ROOT;
  62.   else if( code==PARAMETER || code==SCAN )
  63.     vcb=LOCAL_VCB_ROOT;
  64.   else
  65.     {
  66.       if(code>=LAST_TOKEN)code=0;
  67.       lperror("Internal error: trl.find_info: Unrecognized token code %s n",
  68.               NAME(code));
  69.       return TNULL;
  70.     }
  71.   while(vcb)
  72.     {
  73.       if(CODE_TRN(vcb)==code)
  74.         if(VCB_NAME(vcb)==l || l==TNULL)
  75.           return vcb;
  76.       vcb=RIGHT_TRN(vcb);
  77.     }
  78.   if( code == PARAMETER )
  79.     vcb=VCB_ROOT;
  80.   while(vcb)
  81.     {
  82.     if(CODE_TRN(vcb)==code)
  83.       if(VCB_NAME(vcb)==l || l==TNULL)
  84.         {
  85.           vcb=copy_trn(vcb);
  86.           RIGHT_TRN(vcb)=LOCAL_VCB_ROOT;
  87.           LOCAL_VCB_ROOT=vcb;
  88.           return vcb;
  89.         }
  90.       vcb=RIGHT_TRN(vcb);
  91.     }
  92.   return TNULL;
  93. #undef VCB_NAME
  94. }
  96. /*
  97.  * Finding entry in the vocabulary, which would be equivalent to the 
  98.  * given one.
  99.  */
  101. VCBREF
  102. find_entry(VCBREF v)                      
  103. {                                         
  104.   register enum token code;
  105.   register VCBREF vcb;
  106.   
  107.   if(v==TNULL)return TNULL;
  108.   code=CODE_TRN(v);
  109.   switch(code)
  110.     {
  111.     case PARAMETER:
  112.     case CURSOR:
  113.       return find_info(code,XLTR_TRN(v,0));
  114.     case SCAN:
  115.       vcb=LOCAL_VCB_ROOT;
  116.       while(vcb)
  117. {
  118.           LTRLREF l = COR_NAME(v);
  120.   if(CODE_TRN(vcb)==SCAN)
  121.     if((COR_NO(vcb)   == COR_NO (v)) &&
  122.        (COR_TBL(vcb)  == COR_TBL(v)) &&
  123.                (COR_NAME(vcb) == l)
  124.                )
  125.       return vcb;
  126.   vcb=RIGHT_TRN(vcb);
  127. }
  128.       break;
  129.     case UNIQUE:
  130.     case PRIMARY:
  131.     case INDEX:
  132.       vcb = find_entry(ind_table(v));
  133.       if (!vcb)
  134.         return vcb; /* even adequate table not exist */
  135.       vcb = IND_INFO(vcb);
  136.       while(vcb)
  137. {
  138.   CODE_TRN(v) = CODE_TRN(vcb);
  139.   if (trn_equal_p(v,vcb))
  140.     {
  141.       CODE_TRN(v) = code;
  142.       return vcb;
  143.     }
  144.   vcb = RIGHT_TRN(vcb);
  145. }
  146.       CODE_TRN(v) = code;
  147.       break;
  148.     default:
  149.       if(Is_Table(v))
  150. return find_table(code,TBL_FNAME(v),TBL_NAME(v));
  151.       else if(Is_Column(v))
  152. {
  153.   vcb = COL_TBL(v);
  154.   if (!vcb)
  155.     return TNULL;
  156.   vcb=find_entry(vcb);
  157.           /*
  158.             if (!vcb) 
  159.     vcb = COR_TBL(v);
  160.             */
  161.   return find_column(vcb,COL_NAME(v));
  162. }
  163.       if(code<=UNKNOWN || code>=LAST_TOKEN)
  164. code=UNKNOWN;
  165.       fprintf(STDERR,"trl.entry: Unrecognized token code %s n",
  166.       NAME(code));
  167.       yyerror("Internal error #2");
  168.     }
  169.   return TNULL;
  170. }
  172. /*
  173.  * Finding tables, views and so on in the vocabulary by the desired code
  174.  * and 2 given names
  175.  */
  177. VCBREF
  178. find_table(enum token code,LTRLREF l,LTRLREF l1)
  179. {
  180.   register VCBREF vcb;
  181.   if((l==TNULL) && (l1==TNULL))return TNULL;
  183.   if     ( code==VIEW || code==TABLE || code==ANY_TBL )
  184.     vcb=VCB_ROOT;
  185.   else if( code==TMPTABLE )
  186.     vcb=LOCAL_VCB_ROOT;
  187.   else
  188.     {
  189.       char err[100];
  190.       if(code>=LAST_TOKEN)code=0;
  191.       
  192.       sprintf(err,"find_table: Unrecognized token code %s n",NAME(code));
  193.       yyerror(err);
  194.       return TNULL;
  195.     }
  196.   while(vcb)
  197.     {
  198.       register enum token Code=CODE_TRN(vcb);
  199.       if( Code==code || ( code==ANY_TBL && Is_Table(vcb) ))
  200.         if( (TBL_FNAME(vcb)==l || l==TNULL) && (TBL_NAME(vcb)==l1 || l1==TNULL) )
  201.           return vcb;
  202.       vcb=RIGHT_TRN(vcb);
  203.     }
  204.   return TNULL;
  205. }
  207. static void
  208. add_to_the_end(TXTREF *root,TXTREF node)
  209. {
  210.   register TXTREF c;
  211.   if(*root==TNULL)
  212.    *root=node;
  213.   else
  214.     {
  215.       for(c=*root;RIGHT_TRN(c);c=RIGHT_TRN(c));
  216.       RIGHT_TRN(c)=node;
  217.     }
  218.   RIGHT_TRN(node) = TNULL;
  219. }
  221. /*
  222.  * add information to the vocabulary with checking for existing of equivalent
  223.  * entries
  224.  */
  226. VCBREF
  227. add_info_l(VCBREF v)
  228. {
  229.   register VCBREF vcb;
  230.   register enum token code;
  231.   register i4_t  ins_no;
  232.   if(v==TNULL)return v;
  233.   code = CODE_TRN(v);
  235.   switch(code)
  236.     {
  237.     case CURSOR:
  238.       vcb=find_info(code,CUR_NAME(v));
  239.       if(vcb!=TNULL) return vcb;
  240.       add_to_the_end(&VCB_ROOT,v);
  241.       break;
  242.     case VIEW:
  243.     case TABLE:
  244.     case ANY_TBL:
  245.       vcb=find_table(code,TBL_FNAME(v),TBL_NAME(v));
  246.       if(vcb!=TNULL) return vcb;
  247.       add_to_the_end(&VCB_ROOT,v);
  248.       break;
  249.     case TMPTABLE:
  250.       vcb=find_table(code,TBL_FNAME(v),TBL_NAME(v));
  251.       if(vcb!=TNULL) return vcb;
  252.       if(TBL_FNAME(v)==TNULL)
  253.         TBL_FNAME(v)=GL_AUTHOR;
  254.       if(TBL_NAME(v)==TNULL)
  255.         {
  256.           static tmptblno=0;
  257.           char b[40];
  258.           sprintf(b,"tmp%d",++tmptblno);
  259.           TBL_NAME(v)=ltr_rec(b);
  260.         }
  261.       add_to_the_end(&LOCAL_VCB_ROOT,v);
  262.       break;
  263.     case PARAMETER:
  264.       vcb=find_info(code,PAR_NAME(v));
  265.       if(vcb!=TNULL) return vcb;
  266.       add_to_the_end(&LOCAL_VCB_ROOT,v);
  267.       break;
  268.     case SCAN: 
  269.       vcb=LOCAL_VCB_ROOT;
  270.       ins_no = 1;
  271.       while(vcb)
  272. {
  273.   if((CODE_TRN(vcb)==SCAN) && (COR_TBL(vcb)==COR_TBL(v)))
  274.             if (COR_NO(vcb) == COR_NO(v))
  275.               return vcb;
  276.             else if ( ins_no <= COR_NO(vcb) )
  277.               ins_no = COR_NO(vcb) + 1;
  278.   vcb=RIGHT_TRN(vcb);
  279. }
  280.       if(COR_NO(v) <0)
  281.         COR_NO(v)=ins_no;
  282.       add_to_the_end(&LOCAL_VCB_ROOT,v);
  283.       break;
  284.     case COLUMN:
  285.       {
  286.         TXTREF tbl = COL_TBL(v);
  287.         vcb=find_column(tbl,COL_NAME(v));
  288.         if(vcb!=TNULL)return vcb;
  289.         if(TstF_TRN(tbl,CHECKED_F)) /* if table contains information   */
  290.           {                          /*  from database                   */
  291.             yyerror("Internal error:"
  292.                     " it's impossible to change table information now");
  293.             return TNULL;
  294.           }
  295.         add_to_the_end(&TBL_COLS(COL_TBL(v)),v);
  296.         TBL_NCOLS(tbl)++;
  297.         break;
  298.       }
  299.     case SCOLUMN:
  300.       {
  301.         TXTREF scan = COL_TBL(v);
  302.         vcb=find_column(scan,COL_NAME(v));
  303.         if(vcb!=TNULL)
  304.           return vcb;
  305.         vcb = find_column(COR_TBL(scan),COL_NAME(v));
  306.         if (!vcb)
  307.           {
  308.             CODE_TRN(v) = COLUMN;
  309.             COL_TBL(v) = COR_TBL(scan);
  310.             add_info(v); /* if it's impossible we never back here */
  311.           }
  312.         add_column(scan,COL_NAME(v));
  313.         return find_column(scan,COL_NAME(v));
  314.       }
  315.     case PRIMARY:
  316.     case UNIQUE:
  317.     case INDEX:
  318.       vcb=find_entry(v);
  319.       if(vcb!=TNULL)
  320. {
  321.   CODE_TRN(vcb) = CODE_TRN(v);
  322.   return vcb;
  323. }
  324.       SetF_TRN(v,VCB_F);
  325.       add_to_the_end(&IND_INFO(ind_table(v)),v);
  326.       break;
  327.     default:
  328.       if(code>=LAST_TOKEN)code=0;
  329.       fprintf(STDERR,"trl.add_info: Unrecognized token code %s n",
  330.       NAME(code));
  331.       yyerror("Internal error #2");
  332.       return TNULL;
  333.     }
  334.   return v;
  335. }
  337. /* 
  338.  * add info to vocabulary and return status
  339.  */
  341. CODERT
  342. add_info(VCBREF v)                       
  343. {
  344.   enum token code = CODE_TRN(v);
  345.   VCBREF v1=add_info_l(v);
  346.   if(v1==v)
  347.     return 0;
  348.   if (code == SCOLUMN)
  349.     {
  350.       if (CODE_TRN(v)==SCOLUMN && trn_equal_p(v,v1))
  351.         return 0;
  352.       if (CODE_TRN(v)==COLUMN)
  353.         {
  354.           TXTREF vv=find_column(COR_TBL(COL_TBL(v1)),COL_NAME(v1));
  355.           if(vv==v)
  356.             return 0;
  357.         }
  358.     }
  359.   fprintf(STDERR,"n trl.add_info: Internal error "
  360.           "n -- duplicate vocabulary info n");
  361.   yyfatal("Abort.");
  362.   return -1; /* unreachable */
  363. }
  365. /*
  366.  * delete given node from vocabulary
  367.  */
  369. CODERT
  370. del_info(VCBREF v)                       
  371. {
  372.   register VCBREF *Vcb,vcb,cv;
  373.   register enum token code;
  374.   if(v==TNULL) return 0;     
  375.   if(!TstF_TRN(v,VCB_F))
  376.     {
  377.       fprintf(STDERR,"Impossible delete non vocabulary entry in del_infon");
  378.       return 1;
  379.     }
  380.   code = CODE_TRN(v);
  381.   cv=TNULL;
  382.   switch(code)
  383.     {
  384.     case CURSOR:
  385.     case VIEW:
  386.     case TABLE:
  387.     case ANY_TBL:
  388.       Vcb=&VCB_ROOT;
  389.       break;
  390.     case SCAN:
  391.     case PARAMETER:
  392.     case TMPTABLE:
  393.       Vcb=&LOCAL_VCB_ROOT;
  394.       break;
  395.     case COLUMN:
  396.       Vcb=&TBL_COLS(COL_TBL(v));
  397.       break;
  398.     case SCOLUMN:
  399.       Vcb=&COR_COLUMNS(COL_TBL(v));
  400.       break;
  401.     case PRIMARY:
  402.     case UNIQUE:
  403.     case INDEX:
  404.       Vcb=&IND_INFO(ind_table(v));
  405.     default:
  406.       fprintf(STDERR,"trl.del_info: Unrecognized token code =%d n",
  407.                      (i4_t)code);
  408.       yyerror("Internal error #2");
  409.       return -1;
  410.     }
  411.   vcb=*Vcb;
  412.   cv=TNULL;
  413.   if(vcb==v)
  414.     vcb=RIGHT_TRN(cv=v);
  415.   else LPROC(cv,vcb)
  416.     if(RIGHT_TRN(cv)==v)
  417.       {
  418.         RIGHT_TRN(cv)=RIGHT_TRN(v);
  419.         break;
  420.       }
  421.   if(cv==TNULL && code==PARAMETER)
  422.     {
  423.       Vcb=&VCB_ROOT;
  424.       vcb=*Vcb;
  425.       if(vcb==v)
  426.         vcb=RIGHT_TRN(cv = v);
  427.       else LPROC(cv,vcb)
  428.         if(RIGHT_TRN(cv)==v)
  429.           {
  430.             RIGHT_TRN(cv)=RIGHT_TRN(v);
  431.             break;
  432.           }
  433.     }
  434.   *Vcb=vcb;
  435.   if(cv==TNULL)
  436.     {
  437.       fprintf(STDERR,"Vocabulary entry not found in vocabulary !!!!n");
  438.       debug_trn(v);
  439.       return -1;
  440.     }
  441.   else
  442.     {
  443.       RIGHT_TRN(v)=TNULL;
  444.       if (CODE_TRN(v) == COLUMN)
  445.         TBL_NCOLS(COL_TBL(v))--;
  446.       free_line(v);
  447.     }
  448.   return 0;
  449. }
  451. /* 
  452.  * Finding column of the given table by name or by column number (DB info)
  453.  * tbl - reference to table;
  454.  * l   - name of column ;
  455.  * num - DB number of column;
  456.  * fl  - switcher for finding column by name or by number 
  457.  */
  459. static VCBREF
  460. find_column_A(TXTREF tbl,LTRLREF l,i4_t num,i4_t fl)
  461. {
  462.   register TXTREF vcb;
  463.   register enum token code;
  464.   if(tbl==TNULL) return TNULL;
  465.   code=CODE_TRN(tbl);
  466.   
  467.   if(l==TNULL && fl==0)return TNULL;
  469.   switch(code)
  470.   {
  471.   case SCAN:
  472.        vcb=COR_COLUMNS(tbl);
  473.        break;
  474.   default:
  475.       if(Is_Table(tbl))
  476.         {
  477.           vcb=TBL_COLS(tbl);
  478.           break;          
  479.         }
  480.       if(code>=LAST_TOKEN)code=0;
  481.       fprintf(STDERR,"trl.find_column: Unrecognized token code %s n",
  482.                      NAME(code));
  483.       yyerror("Internal error #2");
  484.       return TNULL;
  485.   }
  486.   for(; vcb ;vcb=RIGHT_TRN(vcb))
  487.     if( ((fl==0) && (l==COL_NAME(vcb))) ||
  488.         ((fl!=0) && (num==COL_NO(vcb)))
  489.       )
  490.       return vcb;
  491.   return TNULL;
  492. }
  494. VCBREF
  495. find_column(TXTREF tbl,LTRLREF l) 
  496. {
  497.   return find_column_A(tbl,l,0,0); 
  498. }
  500. VCBREF 
  501. find_column_by_number(TXTREF tbl,i4_t num)
  502. {
  503.   return find_column_A(tbl,0,num,1);
  504. }
  506. CODERT
  507. add_column(TXTREF tbl,LTRLREF l)       
  508. {
  509.   register TXTREF vcb,newv;
  510.   register i4_t    flag;
  511.   register enum token code;
  512.   if(tbl==TNULL)return SQL_ERROR;
  513.   if(l==TNULL)return SQL_ERROR;
  514.   code=CODE_TRN(tbl);
  515.   if(find_column(tbl,l))
  516.     {
  517.       lperror("Warning: add duplicate column '%s' to next table:n",
  518.               STRING(l));
  519.       debug_trn(tbl);
  520.       return SQL_ERROR;
  521.     }
  522.   switch(code)
  523.   {
  524.   case SCAN:
  525.        vcb=find_column(COR_TBL(tbl),l);
  526.        if(!vcb){
  527.          flag=add_column(COR_TBL(tbl),l);
  528.          if(flag)
  529.            return flag;
  530.          vcb=find_column(COR_TBL(tbl),l);
  531.        }
  532.        COPY_NODE(SCOLUMN,vcb,newv);
  533.        COL_TBL(newv)=tbl;
  534.        add_to_the_end(&COR_COLUMNS(tbl),newv);
  535.        sort_clmns(&COR_COLUMNS(tbl));
  536.        break;
  537.   case TABLE:
  538.   case VIEW:
  539.   case ANY_TBL:
  540.   case TMPTABLE:
  541.        if(TstF_TRN(tbl,CHECKED_F)) /* if table contains information   */
  542.        {                          /*  from database                   */
  543.          yyerror("Internal error: it's impossible to change table information now");
  544.          return -1;
  545.        }
  546.        newv=gen_node(COLUMN);
  547.        COL_TBL(newv)=tbl;
  548.        COL_NAME(newv)=l;
  549.        add_to_the_end(&TBL_COLS(tbl),newv);
  550.        TBL_NCOLS(tbl)++; 
  551.        break;
  552.   default:
  553.        if(code>=LAST_TOKEN)code=0;
  554.        fprintf(STDERR,"trl.add_column: Unrecognized token code %s n",
  555.                       NAME(code));
  556.        yyerror("Internal error #2");
  557.        return -1;
  558.   }
  559.   return 0;
  560. }
  563. #define NTYPE(n)  *(node_type(n))
  564. #define is_compatible(a,b)  is_casted(NTYPE(a),NTYPE(b))
  566. sql_type_t *
  567. node_type(TXTREF node)
  568. {
  569.   switch(CODE_TRN(node))
  570.     {
  571.     case COLPTR:    
  572.     case PARMPTR:   
  573.     case OPTR:      return node_type(OBJ_DESC(node));
  574.     case COLUMN:
  575.     case SCOLUMN:   return &COL_TYPE(node);
  576.     case PARAMETER: return &PAR_TTYPE(node);
  577.     case CONST:     return &CNST_TTYPE(node);
  578.     case NULL_VL:   return &NULL_TYPE(node);
  579.     case USERNAME:  return &USR_TYPE(node);
  580.     default:
  581.       if(Is_Operation(node) && Is_Typed_Operation(node))
  582.         return &OPRN_TYPE(node);
  583.       yyfatal("unexpected node in values list");
  584.     }
  585.   /* unreachable code */
  586.   return NULL;
  587. }
  589. static void
  590. type_comp(char *msg,TXTREF e,TXTREF t)
  591. {
  592.   if( !is_compatible(e,t) )
  593.     {
  594.       char err[256];
  595.       sprintf(err,"%sn%s(%s) - ",msg,NAME(CODE_TRN(t)),
  596.               type2str(NTYPE(t)));
  597.       sprintf(err + strlen(err),"%s(%s)n",NAME(CODE_TRN(e)),
  598.               type2str(NTYPE(e)));
  599.       yyerror(err);
  600.       toggle_mark1f(1);
  601.       debug_trn(t);
  602.       toggle_mark1f(1);
  603.       debug_trn(e);
  604.     }
  605.   else if ((NTYPE(t)).code==SQLType_0)
  606.     {
  607.       extern void put_type_to_tree  __P((TXTREF arg_node, sql_type_t *need_type));
  608.       put_type_to_tree(t,node_type(e));
  609.     }
  610. }
  612. #define SWAP(typ,a,b) { typ iv=a; a=b; b=iv;}
  614. void
  615. sort_list_by_col_no(TXTREF *list,TXTREF *l2,TXTREF *l3,
  616.     i4_t is_scols,char *msg2,char *msg3)
  617. {
  618.    TXTREF *elist, *el2 = NULL, *el3 = NULL, ce;
  619.    i4_t    n,i,j,doit,*nlist;
  620.    n=0;
  621.    for(ce=*list;ce;ce=RIGHT_TRN(ce))
  622.      n++;
  624.     if (!n)
  625.       return;
  626.     
  627.    elist = (TXTREF*)xmalloc(sizeof(TXTREF)*n);
  628.    nlist = (i4_t*)xmalloc(sizeof(i4_t)*n);
  629.    for(i=0,ce=*list;ce;ce=RIGHT_TRN(ce),i++)
  630.      {
  631.        elist[i]=ce;
  632.        nlist[i]=COL_NO(is_scols?ce:OBJ_DESC(ce));
  633.      }
  634.    if(l2)
  635.      {
  636.        el2 = (TXTREF*)xmalloc(sizeof(TXTREF)*n);
  637.        for(i=0,ce=*l2;ce && i<n;ce=RIGHT_TRN(ce),i++)
  638.          el2[i]=ce;
  639.        assert(i==n && ce==TNULL);
  640.      }
  641.    if(l3)
  642.      {
  643.        el3 = (TXTREF*)xmalloc(sizeof(TXTREF)*n);
  644.        for(i=0,ce=*l3;ce && i<n;ce=RIGHT_TRN(ce),i++)
  645.          el3[i]=ce;
  646.        assert(i==n && ce==TNULL);
  647.      }
  648.    for(doit=1,j=n;j && doit--;j--) 
  649.      for(i=1;i<j;i++)
  650.        if(nlist[i-1]>nlist[i])
  651.          {
  652.     SWAP(i4_t,nlist[i],nlist[i-1]);
  653.     SWAP(TXTREF,elist[i],elist[i-1]);
  654.     if(l2)
  655.       SWAP(TXTREF,el2[i],el2[i-1]);
  656.     if(l3)
  657.       SWAP(TXTREF,el3[i],el3[i-1]);
  658.     doit = 1;
  659.          }
  660.    if(l2)
  661.      {
  662.        for(i=0;i<n;i++)
  663.          type_comp(msg2,elist[i],el2[i]);
  664.        *l2   = el2[0];
  665.        for(i=0;i<n-1;i++)
  666.          RIGHT_TRN(el2[i])=el2[i+1];
  667.        RIGHT_TRN(el2[n-1])   = TNULL;
  668.        xfree(el2);
  669.      }
  670.    if(l3)
  671.      {
  672.        for(i=0;i<n;i++)
  673.          type_comp(msg3,elist[i],el3[i]);
  674.        *l3 = el3[0];
  675.        for(i=0;i<n-1;i++)
  676.          RIGHT_TRN(el3[i])=el3[i+1];
  677.        RIGHT_TRN(el3[n-1]) = TNULL;
  678.        xfree(el3);
  679.      }
  680.    *list = elist[0];
  681.    for(i=0;i<n-1;i++)
  682.      RIGHT_TRN(elist[i])=elist[i+1];
  683.    RIGHT_TRN(elist[n-1]) = TNULL;
  684.    xfree(elist);
  685.    xfree(nlist);
  686. }
  688. static void
  689. sort_clmns(TXTREF *list)
  690. {
  691.   sort_list_by_col_no(list,NULL,NULL,1,NULL,NULL);
  692. }
  694. i4_t 
  695. count_list(TXTREF list)
  696. {
  697.   register i4_t i;
  698.   for(i=0;list;list=RIGHT_TRN(list))
  699.     i++;
  700.   return i;
  701. }
  703. void
  704. check_scan_cols(TXTREF tblptr)
  705. {
  706.   TXTREF scan;
  707.   
  708.   TASSERT(CODE_TRN(tblptr) == TBLPTR, tblptr);
  709.   
  710.   scan = TABL_DESC(tblptr);
  711.   /* check table columns */
  712.   sort_clmns(&(TBL_COLS(COR_TBL(scan))));
  713.   if(count_list(TBL_COLS(COR_TBL(scan))) != TBL_NCOLS(COR_TBL(scan)))
  714.     {
  715.       yyfatal("table columns haven't been uploaded yet");
  716.     }
  717.   sort_clmns(&(COR_COLUMNS(scan)));
  718.   if (count_list(COR_COLUMNS(scan)) != TBL_NCOLS(COR_TBL(scan)))
  719.     {
  720.       TXTREF a,b,a0=TNULL;
  721.       a=COR_COLUMNS(scan);
  722.       b=TBL_COLS(COR_TBL(scan));
  723.       while(b)
  724.         {
  725.           if(!a || COL_NO(a) > COL_NO(b))
  726.             { /* add skipped column to scan column list */
  727.               extern TXTREF copy_tree(TXTREF); /* kitty/conv.c */
  728.               TXTREF c;
  730.               COPY_NODE (SCOLUMN, b, c);
  731.               COL_TBL (c) = scan;
  732.               COL_DEFAULT(c) = copy_tree(COL_DEFAULT(c));
  733.               
  734.               if(a0) COL_NEXT(a0)      = c;
  735.               else   COR_COLUMNS(scan) = c;
  736.               COL_NEXT(c) = a;
  737.               a0 =c;
  738.             }
  739.           else if (COL_NO(a) == COL_NO(b))
  740.             a=COL_NEXT(a0=a);
  741.           else /* IF COL_NO(a) < COL_NO(b) */
  742.             yyfatal("unexpected column number in scan ");
  743.           b=COL_NEXT(b);
  744.         }
  745.     }
  746. }