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

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

SQL Server

开发平台：

Unix_Linux

parse.c.preserve：源码内容
  2. /*  A Bison parser, made from parse.y with Bison version GNU Bison version 1.21
  3.   */
  5. #define YYBISON 1  /* Identify Bison output.  */
  7. #define YYLSP_NEEDED
  9. #define TOK_ALL 258
  10. #define TOK_ALTER 259
  11. #define TOK_ANY 260
  12. #define TOK_AS 261
  13. #define TOK_ASC 262
  14. #define TOK_AUTHORIZATION 263
  15. #define TOK_BEGIN 264
  16. #define TOK_BETWEEN 265
  17. #define TOK_BY 266
  18. #define TOK_CHECK 267
  19. #define TOK_CLOSE 268
  20. #define TOK_COBOL_LANG 269
  21. #define TOK_C_LANG 270
  22. #define TOK_COMMIT 271
  23. #define TOK_CONTINUE 272
  24. #define TOK_CREATE 273
  25. #define TOK_CURRENT 274
  26. #define TOK_CURSOR 275
  27. #define TOK_DECLARE 276
  28. #define TOK_DEFAULT 277
  29. #define TOK_DELETE 278
  30. #define TOK_DESC 279
  31. #define TOK_DISTINCT 280
  32. #define TOK_DROP 281
  33. #define TOK_END 282
  34. #define TOK_ESCAPE 283
  35. #define TOK_EXISTS 284
  36. #define TOK_FETCH 285
  37. #define TOK_FOR 286
  38. #define TOK_FOREIGN 287
  39. #define TOK_FORTRAN_LANG 288
  40. #define TOK_FOUND 289
  41. #define TOK_FROM 290
  42. #define TOK_GOTO 291
  43. #define TOK_GRANT 292
  44. #define TOK_GROUP 293
  45. #define TOK_HAVING 294
  46. #define TOK_IN 295
  47. #define TOK_INDICATOR 296
  48. #define TOK_INSERT 297
  49. #define TOK_INTO 298
  50. #define TOK_IS 299
  51. #define TOK_KEY 300
  52. #define TOK_LANGUAGE 301
  53. #define TOK_LIKE 302
  54. #define TOK_MODULE 303
  55. #define TOK_NULL 304
  56. #define TOK_OF 305
  57. #define TOK_ON 306
  58. #define TOK_OPEN 307
  59. #define TOK_OPTION 308
  60. #define TOK_ORDER 309
  61. #define TOK_PASCAL_LANG 310
  62. #define TOK_PL1_LANG 311
  63. #define TOK_PRIMARY 312
  64. #define TOK_INDEX 313
  65. #define TOK_PRIVILEGES 314
  66. #define TOK_PROCEDURE 315
  67. #define TOK_PUBLIC 316
  68. #define TOK_REFERENCES 317
  69. #define TOK_REVOKE 318
  70. #define TOK_ROLLBACK 319
  71. #define TOK_SCHEMA 320
  72. #define TOK_SECTION 321
  73. #define TOK_SELECT 322
  74. #define TOK_SET 323
  75. #define TOK_SOME 324
  76. #define TOK_SQLCODE 325
  77. #define TOK_SQLERROR 326
  78. #define TOK_TABLE 327
  79. #define TOK_TO 328
  80. #define TOK_UNION 329
  81. #define TOK_UNIQUE 330
  82. #define TOK_UPDATE 331
  83. #define TOK_USER 332
  84. #define TOK_VALUES 333
  85. #define TOK_VIEW 334
  86. #define TOK_WHENEVER 335
  87. #define TOK_WHERE 336
  88. #define TOK_WITH 337
  89. #define TOK_WORK 338
  90. #define TOK_AND 339
  91. #define TOK_OR 340
  92. #define TOK_NOT 341
  93. #define TOK_NE 342
  94. #define TOK_GE 343
  95. #define TOK_LE 344
  96. #define TOK_AVG 345
  97. #define TOK_MAX 346
  98. #define TOK_MIN 347
  99. #define TOK_SUM 348
  100. #define TOK_COUNT 349
  101. #define TOK_IDENTIFIER 350
  102. #define TOK_PARAM 351
  103. #define TOK_INTEGER_CONST 352
  104. #define TOK_NUM_CONST 353
  105. #define TOK_REAL_CONST 354
  106. #define TOK_STRING_CONST 355
  107. #define TOK_T_CHAR 356
  108. #define TOK_T_NUM 357
  109. #define TOK_T_INT 358
  110. #define TOK_T_SINT 359
  111. #define TOK_T_FLT 360
  112. #define TOK_T_DOUBLE 361
  113. #define TOK_T_PRECISION 362
  114. #define TOK_T_REAL 363
  115. #define UNARY 364
  116. #define BRACETS 365
  120. /* 
  121.  *  parse.y   -   SQL grammar (ANSI SQL'89 + some extention) 
  122.  *                of GNU SQL compiler
  123.  *
  124.  *  This file is a part of GNU SQL Server
  125.  *
  126.  *  Copyright (c) 1996, 1997, Free Software Foundation, Inc
  127.  *  Developed at the Institute of System Programming
  128.  *  This file is written by Michael Kimelman.
  129.  * 
  130.  *  This program is free software; you can redistribute it and/or modify
  131.  *  it under the terms of the GNU General Public License as published by
  132.  *  the Free Software Foundation; either version 2 of the License, or
  133.  *  (at your option) any later version.
  134.  *
  135.  *  This program is distributed in the hope that it will be useful,
  136.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  137.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  138.  *  GNU General Public License for more details.
  139.  *
  140.  *  You should have received a copy of the GNU General Public License
  141.  *  along with this program; if not, write to the Free Software
  142.  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  143.  *
  144.  *  Contact:  gss@ispras.ru
  145.  *
  146.  */
  148. /* $Id: parse.y,v 1.245 1997/03/31 03:46:38 kml Exp $ */
  150. #include "trl.h"
  151. #include "tree_gen.h"
  152. #include "cycler.h"
  153. #include "sql_decl.h"
  154. #include "xmem.h"
  155. #include "type_lib.h"
  156. #include "svr_lib.h"
  157. #include <assert.h>
  158. #include "tassert.h"
  160. char *dyn_sql_stmt_name  = NULL;
  161. i4_t   dyn_sql_section_id = 0;
  163. static TN      tblnm;
  164. static i4_t     del_local_vcb    = 0;
  165. static char   *label_nf         = NULL;
  166. static char   *label_er         = NULL;
  167. static i4_t     subquery         = 0;
  168. static TXTREF  new_table        = TNULL;
  169. static i4_t     new_table_col_no = 0;
  170. static call_t  call;
  172. static enum 
  173. {
  174.   Esql,
  175.   Module,
  176.   Schema,
  177.   Dynamic
  178. } parse_mode=Esql;
  180. #ifdef stderr
  181. #  undef stderr
  182. #endif
  183. #ifdef stdout
  184. #  undef stdout
  185. #endif
  187. #define stderr STDERR
  188. #define stdout STDOUT
  190. #define FICTIVE_NODE  (TXTREF)(-1L)
  192. #define FREE_VCB   free_line(LOCAL_VCB_ROOT)
  193. #define YYERROR_VERBOSE
  194. #define YYERROK { new_table = TNULL; yyerrok; }
  195. i4_t yylex (void);
  197. static void   check_not_null __P((TXTREF ind));
  198. static void   free_tail __P((void));
  199. static TXTREF replace_column_holes __P((TXTREF rb,VCBREF tbl));
  200. static void   add_table_column(enum token tbl_code, LTRLREF ltrp,
  201.                                sql_type_t type, TXTREF def,TXTREF constr);
  202. static void   emit_module_proc __P((VCBREF parmlist,LTRLREF procname));
  203. static void   emit_call __P((TXTREF vcb,i4_t object_id, i4_t method_id));
  205. #define add_base_column(ltrp,type,def,constr) 
  206.      add_table_column(TABLE,ltrp,type,def,constr)
  207. #define add_view_column(ltrp,type) 
  208.      add_table_column(VIEW,ltrp,type,TNULL,TNULL)
  212. typedef union {
  213.   LTRLREF  ltrp;
  214.   TXTREF   node;
  215.   i4_t      code;
  216.   sql_type_t     type;
  217.   void     *ptr;
  218. } YYSTYPE;
  220. #ifndef YYLTYPE
  221. typedef
  222.   struct yyltype
  223.     {
  224.       int timestamp;
  225.       int first_line;
  226.       int first_column;
  227.       int last_line;
  228.       int last_column;
  229.       char *text;
  230.    }
  231.   yyltype;
  233. #define YYLTYPE yyltype
  234. #endif
  236. #ifndef YYDEBUG
  237. #define YYDEBUG 1
  238. #endif
  240. #include <stdio.h>
  242. #ifndef __cplusplus
  243. #ifndef __STDC__
  244. #define const
  245. #endif
  246. #endif
  250. #define YYFINAL 482
  251. #define YYFLAG -32768
  252. #define YYNTBASE 123
  254. #define YYTRANSLATE(x) ((unsigned)(x) <= 365 ? yytranslate[x] : 240)
  256. static const char yytranslate[] = {     0,
  257.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  258.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  259.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  260.      2,     2,     2,     2,     2,     2,     2,     2,     2,   117,
  261.    118,   114,   112,   111,   113,   116,   115,     2,     2,     2,
  262.      2,     2,     2,     2,     2,     2,     2,     2,   119,   121,
  263.    120,   122,     2,     2,     2,     2,     2,     2,     2,     2,
  264.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  265.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  266.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  267.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  268.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  269.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  270.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  271.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  272.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  273.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  274.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  275.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  276.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  277.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  278.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  279.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  280.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  281.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  282.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  283.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  284.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  285.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  286.     36,    37,    38,    39,    40,    41,    42,    43,    44,    45,
  287.     46,    47,    48,    49,    50,    51,    52,    53,    54,    55,
  288.     56,    57,    58,    59,    60,    61,    62,    63,    64,    65,
  289.     66,    67,    68,    69,    70,    71,    72,    73,    74,    75,
  290.     76,    77,    78,    79,    80,    81,    82,    83,    84,    85,
  291.     86,    87,    88,    89,    90,    91,    92,    93,    94,    95,
  292.     96,    97,    98,    99,   100,   101,   102,   103,   104,   105,
  293.    106,   107,   108,   109,   110
  294. };
  296. #if YYDEBUG != 0
  297. static const short yyprhs[] = {     0,
  298.      0,     2,     4,     6,     8,    10,    12,    14,    16,    18,
  299.     20,    22,    24,    28,    32,    34,    36,    38,    40,    42,
  300.     45,    51,    53,    57,    59,    61,    66,    67,    70,    72,
  301.     74,    76,    77,    79,    81,    84,    87,    91,    93,    96,
  302.     98,   103,   110,   113,   115,   118,   120,   124,   125,   129,
  303.    131,   135,   138,   145,   146,   150,   152,   154,   162,   163,
  304.    167,   170,   172,   174,   178,   180,   182,   184,   187,   190,
  305.    192,   194,   196,   200,   202,   204,   206,   210,   214,   218,
  306.    221,   223,   225,   228,   232,   235,   238,   240,   243,   246,
  307.    253,   260,   266,   272,   279,   283,   286,   287,   291,   293,
  308.    297,   300,   302,   304,   305,   307,   309,   311,   315,   318,
  309.    320,   322,   324,   326,   328,   330,   332,   334,   336,   338,
  310.    340,   343,   346,   351,   354,   359,   364,   370,   375,   377,
  311.    379,   383,   385,   388,   391,   398,   400,   402,   408,   414,
  312.    416,   420,   424,   426,   428,   430,   432,   437,   439,   443,
  313.    447,   452,   454,   456,   458,   462,   467,   470,   472,   476,
  314.    479,   481,   482,   484,   487,   492,   494,   495,   499,   500,
  315.    503,   505,   509,   513,   517,   520,   523,   526,   530,   533,
  316.    538,   545,   551,   556,   560,   562,   564,   567,   569,   571,
  317.    573,   575,   577,   579,   581,   583,   585,   586,   588,   589,
  318.    592,   594,   598,   602,   604,   608,   615,   620,   622,   624,
  319.    625,   627,   629,   633,   637,   641,   645,   649,   652,   654,
  320.    656,   658,   660,   662,   664,   666,   668,   671,   673,   678,
  321.    684,   690,   696,   698,   700,   702,   704,   706,   708,   710,
  322.    712,   714,   716,   718,   720,   722,   725,   730,   732,   737,
  323.    739,   744,   751,   753,   755,   757,   759,   763,   765,   769,
  324.    771,   775,   781,   783,   787,   789,   791,   793,   797,   800,
  325.    804,   807,   809,   813,   819,   821,   825,   828,   832
  326. };
  328. static const short yyrhs[] = {   126,
  329.      0,   127,     0,   162,     0,   166,     0,   167,     0,   157,
  330.      0,   175,     0,   125,     0,     1,     0,    72,     0,    79,
  331.      0,   194,     0,    26,   124,   231,     0,   128,    65,   165,
  332.      0,   129,     0,   145,     0,   149,     0,    18,     0,     4,
  333.      0,   128,   130,     0,    72,   230,   117,   131,   118,     0,
  334.    132,     0,   131,   111,   132,     0,   133,     0,   139,     0,
  335.     95,   229,   134,   136,     0,     0,    22,   135,     0,    77,
  336.      0,    49,     0,   228,     0,     0,   137,     0,   138,     0,
  337.    137,   138,     0,    86,    49,     0,    86,    49,   141,     0,
  338.    142,     0,    12,   210,     0,   140,     0,   141,   117,   144,
  339.    118,     0,    32,    45,   117,   144,   118,   142,     0,    12,
  340.    210,     0,    75,     0,    57,    45,     0,    58,     0,    62,
  341.    231,   143,     0,     0,   117,   144,   118,     0,    95,     0,
  342.    144,   111,    95,     0,    18,   146,     0,    79,   230,   143,
  343.      6,   196,   147,     0,     0,    82,    12,    53,     0,    37,
  344.      0,    63,     0,   148,   151,    51,   231,    73,   154,   150,
  345.      0,     0,    82,    37,    53,     0,     3,    59,     0,   152,
  346.      0,   153,     0,   152,   111,   153,     0,    67,     0,    42,
  347.      0,    23,     0,    76,   143,     0,    62,   143,     0,   155,
  348.      0,    61,     0,   156,     0,   155,   111,   156,     0,    95,
  349.      0,   158,     0,   159,     0,     9,    21,    66,     0,    27,
  350.     21,    66,     0,    80,   160,   161,     0,    86,    34,     0,
  351.     71,     0,    17,     0,    36,    95,     0,   163,   164,   165,
  352.      0,   163,     1,     0,    48,    95,     0,    48,     0,    46,
  353.     95,     0,     8,    95,     0,    21,    95,    20,    31,   194,
  354.    168,     0,    60,    95,   173,   119,   175,   119,     0,    60,
  355.     95,   119,   175,   119,     0,    60,    95,   119,     1,   119,
  356.      0,    60,    95,   173,   119,     1,   119,     0,    60,     1,
  357.    119,     0,     1,   119,     0,     0,    54,    11,   169,     0,
  358.    170,     0,   169,   111,   170,     0,   171,   172,     0,    97,
  359.      0,   235,     0,     0,     7,     0,    24,     0,   174,     0,
  360.    173,   111,   174,     0,    95,   229,     0,    70,     0,   176,
  361.      0,   177,     0,   178,     0,   179,     0,   180,     0,   181,
  362.      0,   185,     0,   186,     0,   187,     0,   189,     0,    13,
  363.    207,     0,    16,    83,     0,    23,    35,   232,   204,     0,
  364.     23,   206,     0,    23,    35,   232,   206,     0,    30,   207,
  365.     43,   236,     0,    42,    43,   232,   143,   182,     0,    78,
  366.    117,   183,   118,     0,   196,     0,   184,     0,   183,   111,
  367.    184,     0,   193,     0,    52,   207,     0,    64,    83,     0,
  368.     67,   188,   198,    43,   236,   200,     0,   221,     0,    25,
  369.      0,    76,   232,    68,   190,   204,     0,    76,   232,    68,
  370.    190,   206,     0,   191,     0,   190,   111,   191,     0,    95,
  371.    120,   192,     0,   193,     0,   222,     0,    49,     0,   195,
  372.      0,   194,    74,   221,   195,     0,   196,     0,   117,   194,
  373.    118,     0,   117,   197,   118,     0,    67,   188,   198,   200,
  374.      0,   199,     0,   114,     0,   222,     0,   199,   111,   222,
  375.      0,   201,   204,   208,   209,     0,    35,   202,     0,   203,
  376.      0,   202,   111,   203,     0,   231,    95,     0,   231,     0,
  377.      0,   205,     0,    81,   210,     0,    81,    19,    50,   207,
  378.      0,    95,     0,     0,    38,    11,   234,     0,     0,    39,
  379.    210,     0,   211,     0,   117,   210,   118,     0,   210,    85,
  380.    210,     0,   210,    84,   210,     0,    86,   210,     0,     1,
  381.     85,     0,     1,    84,     0,   117,     1,   118,     0,    29,
  382.    219,     0,   235,    44,   215,    49,     0,   222,   215,    10,
  383.    222,    84,   222,     0,   222,   215,    47,   225,   216,     0,
  384.    222,   215,    40,   217,     0,   222,   213,   212,     0,   222,
  385.      0,   219,     0,   214,   219,     0,   120,     0,    87,     0,
  386.    121,     0,   122,     0,    89,     0,    88,     0,     3,     0,
  387.      5,     0,    69,     0,     0,    86,     0,     0,    28,   225,
  388.      0,   219,     0,   117,   218,   118,     0,   117,     1,   118,
  389.      0,   225,     0,   218,   111,   225,     0,   117,    67,   188,
  390.    220,   200,   118,     0,   117,    67,     1,   118,     0,   222,
  391.      0,   114,     0,     0,     3,     0,   224,     0,   117,   222,
  392.    118,     0,   222,   112,   222,     0,   222,   113,   222,     0,
  393.    222,   114,   222,     0,   222,   115,   222,     0,   223,   222,
  394.      0,   112,     0,   113,     0,   239,     0,   228,     0,   226,
  395.      0,    77,     0,   238,     0,   228,     0,   223,   228,     0,
  396.     77,     0,    94,   117,   114,   118,     0,    94,   117,    25,
  397.    235,   118,     0,   227,   117,    25,   235,   118,     0,   227,
  398.    117,   221,   222,   118,     0,    90,     0,    91,     0,    92,
  399.      0,    93,     0,    97,     0,    99,     0,    98,     0,   100,
  400.      0,   101,     0,   104,     0,   103,     0,   108,     0,   106,
  401.      0,   106,   107,     0,   105,   117,    97,   118,     0,   105,
  402.      0,   101,   117,    97,   118,     0,   102,     0,   102,   117,
  403.     97,   118,     0,   102,   117,    97,   111,    97,   118,     0,
  404.    233,     0,   233,     0,   231,     0,    95,     0,    95,   116,
  405.     95,     0,   235,     0,   234,   111,   235,     0,    95,     0,
  406.     95,   116,    95,     0,    95,   116,    95,   116,    95,     0,
  407.    237,     0,   236,   111,   237,     0,   238,     0,    95,     0,
  408.     96,     0,    95,    41,    95,     0,    95,    95,     0,    96,
  409.     41,    96,     0,    96,    96,     0,    95,     0,    95,   116,
  410.     95,     0,    95,   116,    95,   116,    95,     0,    96,     0,
  411.     95,    41,    95,     0,    95,    95,     0,    96,    41,    96,
  412.      0,    96,    96,     0
  413. };
  415. #endif
  417. #if YYDEBUG != 0
  418. static const short yyrline[] = { 0,
  419.    242,   251,   258,   260,   262,   267,   269,   277,   278,   292,
  420.    293,   297,   314,   328,   337,   338,   339,   343,   345,   350,
  421.    360,   380,   382,   387,   388,   392,   401,   402,   407,   412,
  422.    414,   419,   421,   426,   428,   433,   435,   437,   439,   446,
  423.    473,   479,   489,   499,   500,   501,   505,   516,   517,   522,
  424.    526,   533,   544,   599,   600,   604,   606,   611,   647,   648,
  425.    652,   653,   657,   658,   662,   664,   666,   668,   670,   675,
  426.    676,   685,   686,   690,   703,   704,   708,   709,   713,   721,
  427.    722,   726,   727,   736,   738,   747,   749,   754,   768,   788,
  428.    818,   824,   829,   834,   839,   844,   852,   853,   858,   859,
  429.    863,   871,   877,   886,   887,   888,   893,   894,   898,   916,
  430.    943,   970,   971,   972,   973,   974,   975,   976,   977,   978,
  431.    982,   996,  1006,  1013,  1034,  1058,  1082,  1099,  1101,  1106,
  432.   1107,  1111,  1115,  1145,  1155,  1173,  1174,  1178,  1184,  1199,
  433.   1200,  1204,  1213,  1217,  1218,  1226,  1228,  1248,  1249,  1253,
  434.   1257,  1271,  1275,  1282,  1283,  1287,  1305,  1312,  1313,  1317,
  435.   1321,  1328,  1329,  1333,  1340,  1344,  1354,  1355,  1362,  1363,
  436.   1374,  1376,  1378,  1380,  1382,  1390,  1396,  1402,  1411,  1415,
  437.   1420,  1429,  1438,  1446,  1461,  1462,  1463,  1474,  1475,  1476,
  438.   1477,  1478,  1479,  1483,  1484,  1485,  1489,  1490,  1494,  1495,
  439.   1499,  1501,  1503,  1512,  1513,  1517,  1529,  1537,  1541,  1548,
  440.   1549,  1557,  1558,  1559,  1560,  1561,  1562,  1563,  1585,  1586,
  441.   1590,  1591,  1592,  1593,  1598,  1599,  1600,  1619,  1624,  1628,
  442.   1632,  1636,  1643,  1644,  1645,  1646,  1650,  1651,  1652,  1653,
  443.   1657,  1659,  1661,  1663,  1665,  1667,  1669,  1671,  1673,  1675,
  444.   1677,  1679,  1685,  1710,  1727,  1734,  1741,  1751,  1752,  1756,
  445.   1758,  1765,  1775,  1776,  1780,  1791,  1793,  1795,  1799,  1803,
  446.   1807,  1814,  1823,  1830,  1837,  1839,  1843,  1847,  1851
  447. };
  449. static const char * const yytname[] = {   "$","error","$illegal.","TOK_ALL",
  450. "TOK_ALTER","TOK_ANY","TOK_AS","TOK_ASC","TOK_AUTHORIZATION","TOK_BEGIN","TOK_BETWEEN",
  451. "TOK_BY","TOK_CHECK","TOK_CLOSE","TOK_COBOL_LANG","TOK_C_LANG","TOK_COMMIT",
  452. "TOK_CONTINUE","TOK_CREATE","TOK_CURRENT","TOK_CURSOR","TOK_DECLARE","TOK_DEFAULT",
  453. "TOK_DELETE","TOK_DESC","TOK_DISTINCT","TOK_DROP","TOK_END","TOK_ESCAPE","TOK_EXISTS",
  454. "TOK_FETCH","TOK_FOR","TOK_FOREIGN","TOK_FORTRAN_LANG","TOK_FOUND","TOK_FROM",
  455. "TOK_GOTO","TOK_GRANT","TOK_GROUP","TOK_HAVING","TOK_IN","TOK_INDICATOR","TOK_INSERT",
  456. "TOK_INTO","TOK_IS","TOK_KEY","TOK_LANGUAGE","TOK_LIKE","TOK_MODULE","TOK_NULL",
  457. "TOK_OF","TOK_ON","TOK_OPEN","TOK_OPTION","TOK_ORDER","TOK_PASCAL_LANG","TOK_PL1_LANG",
  458. "TOK_PRIMARY","TOK_INDEX","TOK_PRIVILEGES","TOK_PROCEDURE","TOK_PUBLIC","TOK_REFERENCES",
  459. "TOK_REVOKE","TOK_ROLLBACK","TOK_SCHEMA","TOK_SECTION","TOK_SELECT","TOK_SET",
  460. "TOK_SOME","TOK_SQLCODE","TOK_SQLERROR","TOK_TABLE","TOK_TO","TOK_UNION","TOK_UNIQUE",
  461. "TOK_UPDATE","TOK_USER","TOK_VALUES","TOK_VIEW","TOK_WHENEVER","TOK_WHERE","TOK_WITH",
  462. "TOK_WORK","TOK_AND","TOK_OR","TOK_NOT","TOK_NE","TOK_GE","TOK_LE","TOK_AVG",
  463. "TOK_MAX","TOK_MIN","TOK_SUM","TOK_COUNT","TOK_IDENTIFIER","TOK_PARAM","TOK_INTEGER_CONST",
  464. "TOK_NUM_CONST","TOK_REAL_CONST","TOK_STRING_CONST","TOK_T_CHAR","TOK_T_NUM",
  465. "TOK_T_INT","TOK_T_SINT","TOK_T_FLT","TOK_T_DOUBLE","TOK_T_PRECISION","TOK_T_REAL",
  466. "UNARY","BRACETS","','","'+'","'-'","'*'","'/'","'.'","'('","')'","';'","'='",
  467. "'<'","'>'","sql_compiled","tbl_or_view","dynamic","schema_title","schema_element",
  468. "schema_action","basetable","basetable_def","basetableelement_list","basetableelement",
  469. "column_descr","default_clause","def_clause","column_constrts","constr_list",
  470. "column_constr","table_constr","table_constr1","unique_spec","refer_spec","opt_column_name_list",
  471. "column_name_list","view","view_definition","opt_check_option","privilege_action",
  472. "privilege","opt_grant","privileges","operation_list","operation","grantees",
  473. "grantee_list","grantee","embedded_spec","declare_section","exception","exc_cond",
  474. "exc_do","module_header","module_titl","lang_clause","autoriz_clause","cursor",
  475. "procedure","orderby","orderspec_list","orderspec","sort_obj","sort_order","parameter_list",
  476. "parameter","statement","statement_body","close_stmt","commit_stmt","delete_stmt",
  477. "fetch_stmt","insert_stmt","insrt_tail","insertvalue_list","ins_value","open_stmt",
  478. "roll_stmt","select_stmt","select_spec","update_stmt","assignment_list","assignment",
  479. "assign_tail","expr_or_null","queryexpr","queryterm","queryspec","queryspec1",
  480. "selection","expr_list","tableexpr","from","scan_list","scan_desc","where_d",
  481. "where","where_cur","cursor_name","groupby","having","cond","pred","compare_to",
  482. "comp_op","allany","not","esc","inin","atom_list","subquery","result_spec","all",
  483. "expr","sign","prim","atom","funcref","fname","constant","type","table_def",
  484. "table_desc","host_scan","tablename","column_list","column","target_list","target",
  485. "target1","coltar",""
  486. };
  487. #endif
  489. static const short yyr1[] = {     0,
  490.    123,   123,   123,   123,   123,   123,   123,   123,   123,   124,
  491.    124,   125,   125,   126,   127,   127,   127,   128,   128,   129,
  492.    130,   131,   131,   132,   132,   133,   134,   134,   135,   135,
  493.    135,   136,   136,   137,   137,   138,   138,   138,   138,   139,
  494.    140,   140,   140,   141,   141,   141,   142,   143,   143,   144,
  495.    144,   145,   146,   147,   147,   148,   148,   149,   150,   150,
  496.    151,   151,   152,   152,   153,   153,   153,   153,   153,   154,
  497.    154,   155,   155,   156,   157,   157,   158,   158,   159,   160,
  498.    160,   161,   161,   162,   162,   163,   163,   164,   165,   166,
  499.    167,   167,   167,   167,   167,   167,   168,   168,   169,   169,
  500.    170,   171,   171,   172,   172,   172,   173,   173,   174,   174,
  501.    175,   176,   176,   176,   176,   176,   176,   176,   176,   176,
  502.    177,   178,   179,   179,   179,   180,   181,   182,   182,   183,
  503.    183,   184,   185,   186,   187,   188,   188,   189,   189,   190,
  504.    190,   191,   192,   193,   193,   194,   194,   195,   195,   196,
  505.    197,   198,   198,   199,   199,   200,   201,   202,   202,   203,
  506.    203,   204,   204,   205,   206,   207,   208,   208,   209,   209,
  507.    210,   210,   210,   210,   210,   210,   210,   210,   211,   211,
  508.    211,   211,   211,   211,   212,   212,   212,   213,   213,   213,
  509.    213,   213,   213,   214,   214,   214,   215,   215,   216,   216,
  510.    217,   217,   217,   218,   218,   219,   219,   220,   220,   221,
  511.    221,   222,   222,   222,   222,   222,   222,   222,   223,   223,
  512.    224,   224,   224,   224,   225,   225,   225,   225,   226,   226,
  513.    226,   226,   227,   227,   227,   227,   228,   228,   228,   228,
  514.    229,   229,   229,   229,   229,   229,   229,   229,   229,   229,
  515.    229,   229,   230,   231,   232,   233,   233,   234,   234,   235,
  516.    235,   235,   236,   236,   237,   238,   238,   238,   238,   238,
  517.    238,   239,   239,   239,   239,   239,   239,   239,   239
  518. };
  520. static const short yyr2[] = {     0,
  521.      1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
  522.      1,     1,     3,     3,     1,     1,     1,     1,     1,     2,
  523.      5,     1,     3,     1,     1,     4,     0,     2,     1,     1,
  524.      1,     0,     1,     1,     2,     2,     3,     1,     2,     1,
  525.      4,     6,     2,     1,     2,     1,     3,     0,     3,     1,
  526.      3,     2,     6,     0,     3,     1,     1,     7,     0,     3,
  527.      2,     1,     1,     3,     1,     1,     1,     2,     2,     1,
  528.      1,     1,     3,     1,     1,     1,     3,     3,     3,     2,
  529.      1,     1,     2,     3,     2,     2,     1,     2,     2,     6,
  530.      6,     5,     5,     6,     3,     2,     0,     3,     1,     3,
  531.      2,     1,     1,     0,     1,     1,     1,     3,     2,     1,
  532.      1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
  533.      2,     2,     4,     2,     4,     4,     5,     4,     1,     1,
  534.      3,     1,     2,     2,     6,     1,     1,     5,     5,     1,
  535.      3,     3,     1,     1,     1,     1,     4,     1,     3,     3,
  536.      4,     1,     1,     1,     3,     4,     2,     1,     3,     2,
  537.      1,     0,     1,     2,     4,     1,     0,     3,     0,     2,
  538.      1,     3,     3,     3,     2,     2,     2,     3,     2,     4,
  539.      6,     5,     4,     3,     1,     1,     2,     1,     1,     1,
  540.      1,     1,     1,     1,     1,     1,     0,     1,     0,     2,
  541.      1,     3,     3,     1,     3,     6,     4,     1,     1,     0,
  542.      1,     1,     3,     3,     3,     3,     3,     2,     1,     1,
  543.      1,     1,     1,     1,     1,     1,     2,     1,     4,     5,
  544.      5,     5,     1,     1,     1,     1,     1,     1,     1,     1,
  545.      1,     1,     1,     1,     1,     2,     4,     1,     4,     1,
  546.      4,     6,     1,     1,     1,     1,     3,     1,     3,     1,
  547.      3,     5,     1,     3,     1,     1,     1,     3,     2,     3,
  548.      2,     1,     3,     5,     1,     3,     2,     3,     2
  549. };
  551. static const short yydefact[] = {     0,
  552.      9,    19,     0,     0,     0,    18,     0,     0,     0,     0,
  553.      0,    56,     0,    87,     0,     0,    57,     0,   210,     0,
  554.      0,     0,     8,     1,     2,     0,    15,    16,     0,    17,
  555.      6,    75,    76,     3,     0,     4,     5,     7,   111,   112,
  556.    113,   114,   115,   116,   117,   118,   119,   120,    12,   146,
  557.    148,    96,     0,   166,   121,   122,     0,    52,     0,     0,
  558.      0,   124,    10,    11,     0,     0,     0,     0,    86,   133,
  559.      0,     0,   134,   211,   137,     0,   136,   256,   255,     0,
  560.    254,    81,     0,     0,   210,     0,     0,     0,     0,    20,
  561.      0,    67,    66,    48,    65,    48,     0,    62,    63,    85,
  562.      0,     0,   210,    77,    48,   253,     0,   162,     0,    13,
  563.     78,     0,    48,    95,   110,     0,     0,     0,   107,   224,
  564.    233,   234,   235,   236,     0,   272,   275,   237,   239,   238,
  565.    240,   219,   220,   153,     0,     0,   152,   154,     0,   212,
  566.    223,     0,   222,   221,     0,     0,    80,    82,     0,    79,
  567.      0,   149,   150,     0,    14,     0,    61,     0,    69,    68,
  568.      0,     0,    88,    84,     0,     0,     0,     0,   123,   163,
  569.    125,     0,   266,   267,   126,   263,   265,     0,   241,   250,
  570.    243,   242,   248,   245,   244,   109,     0,     0,     0,     0,
  571.      0,     0,   277,     0,     0,   279,     0,     0,     0,     0,
  572.      0,     0,     0,   218,   210,   257,     0,   162,   140,    83,
  573.      0,    89,     0,    50,     0,     0,    64,   147,     0,    97,
  574.      0,     0,     0,   272,     0,   164,   171,   197,     0,   165,
  575.      0,   269,     0,   271,     0,     0,     0,   127,   129,     0,
  576.      0,     0,   246,    93,    92,   108,     0,     0,     0,     0,
  577.    276,   273,   278,   213,     0,   155,   214,   215,   216,   217,
  578.      0,     0,     0,     0,   138,   139,     0,   151,   162,     0,
  579.      0,     0,    46,    44,     0,     0,    22,    24,    25,    40,
  580.      0,     0,    49,     0,    54,     0,    90,   177,   176,     0,
  581.    179,   175,     0,     0,     0,   197,     0,     0,   198,   189,
  582.    193,   192,   188,   190,   191,     0,     0,   197,   268,   270,
  583.    264,     0,     0,     0,     0,    94,    91,   260,     0,   229,
  584.      0,   135,     0,     0,   145,   142,   143,   144,   141,   157,
  585.    158,   161,     0,   167,    43,     0,    45,    27,     0,    21,
  586.      0,    51,    71,    74,    59,    70,    72,     0,    53,     0,
  587.      0,   273,   178,   172,   174,   173,   194,   195,   196,     0,
  588.    184,     0,   186,   185,     0,     0,     0,     0,     0,   130,
  589.    132,   249,     0,   251,   247,     0,   230,   274,   231,   232,
  590.      0,   160,     0,   169,     0,     0,    32,    23,     0,     0,
  591.     58,     0,     0,   102,    98,    99,   104,   103,     0,     0,
  592.      0,   187,     0,     0,   183,   201,   228,     0,   199,   226,
  593.    225,   180,     0,   128,     0,   261,   159,     0,     0,   156,
  594.      0,    30,    29,    28,    31,     0,     0,     0,    26,    33,
  595.     34,    38,    41,     0,    73,    55,     0,   105,   106,   101,
  596.    207,   209,     0,   208,   274,     0,     0,     0,   204,   227,
  597.      0,   182,   131,   252,     0,   168,   258,   170,     0,    39,
  598.     48,    36,    35,    60,   100,     0,   181,   203,     0,   202,
  599.    200,   262,     0,    42,    47,    37,   206,   205,   259,     0,
  600.      0,     0
  601. };
  603. static const short yydefgoto[] = {   480,
  604.     65,    23,    24,    25,    26,    27,    90,   276,   277,   278,
  605.    387,   424,   429,   430,   431,   279,   280,   281,   432,   159,
  606.    215,    28,    58,   349,    29,    30,   391,    97,    98,    99,
  607.    345,   346,   347,    31,    32,    33,    84,   150,    34,    35,
  608.    102,   155,    36,    37,   287,   395,   396,   397,   440,   118,
  609.    119,    38,    39,    40,    41,    42,    43,    44,   238,   369,
  610.    370,    45,    46,    47,    76,    48,   208,   209,   326,   371,
  611.     49,    50,    51,    87,   136,   137,   268,   269,   330,   331,
  612.    169,   170,    62,    55,   384,   420,   226,   227,   361,   306,
  613.    362,   307,   452,   405,   448,   291,   443,    77,   228,   139,
  614.    140,   409,   141,   142,   143,   186,   105,    79,    80,    81,
  615.    456,   229,   175,   176,   411,   144
  616. };
  618. static const short yypact[] = {    24,
  619.    -75,-32768,    35,   -35,    59,    67,    56,    96,   -26,   154,
  620.    -35,-32768,   189,   142,   -35,    37,-32768,   202,   171,   185,
  621.    113,   -36,-32768,-32768,-32768,   170,-32768,-32768,   244,-32768,
  622. -32768,-32768,-32768,-32768,    28,-32768,-32768,-32768,-32768,-32768,
  623. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,   219,-32768,
  624. -32768,-32768,   248,-32768,-32768,-32768,   185,-32768,   290,   185,
  625.    296,-32768,-32768,-32768,   185,   253,   279,   185,-32768,-32768,
  626.    206,   -27,-32768,-32768,-32768,   372,-32768,   222,-32768,   288,
  627. -32768,-32768,   313,    22,   171,    79,   257,   355,   185,-32768,
  628.    312,-32768,-32768,   262,-32768,   262,   337,   285,-32768,-32768,
  629.    302,   355,   396,-32768,   262,-32768,   369,   320,   362,-32768,
  630. -32768,   155,   262,-32768,-32768,   281,   338,   -62,-32768,-32768,
  631. -32768,-32768,-32768,-32768,   294,    60,     7,-32768,-32768,-32768,
  632. -32768,-32768,-32768,-32768,   411,   370,   305,   317,   411,-32768,
  633. -32768,   333,-32768,-32768,   342,   380,-32768,-32768,   381,-32768,
  634.    372,-32768,-32768,   384,-32768,   363,-32768,   386,-32768,-32768,
  635.    185,   245,-32768,-32768,   365,   477,   365,    66,-32768,-32768,
  636. -32768,   -35,    -6,    23,   376,-32768,-32768,   -48,   398,   399,
  637. -32768,-32768,   405,   418,-32768,-32768,   407,   408,    75,   339,
  638.    -12,   438,-32768,   439,   440,-32768,   280,   155,   411,   411,
  639.    411,   411,   411,-32768,   200,-32768,   419,   -49,-32768,-32768,
  640.    502,-32768,   197,-32768,   135,   465,-32768,-32768,   423,   148,
  641.    224,   424,   121,   -17,   166,   289,-32768,   321,   498,-32768,
  642.    448,-32768,   452,-32768,   155,   434,   482,-32768,-32768,   458,
  643.    459,   460,-32768,-32768,-32768,-32768,   441,   442,   463,   444,
  644. -32768,   443,-32768,-32768,   -21,   317,   263,   263,-32768,-32768,
  645.    463,   411,   327,   380,-32768,-32768,   185,-32768,   483,   121,
  646.    518,   520,-32768,-32768,   281,   177,-32768,-32768,-32768,-32768,
  647.    449,   472,-32768,   111,   486,   558,-32768,-32768,-32768,   503,
  648. -32768,-32768,   476,    63,   164,   432,   121,   121,-32768,-32768,
  649. -32768,-32768,-32768,-32768,-32768,   236,   230,   487,-32768,-32768,
  650. -32768,   327,   454,   179,   456,-32768,-32768,   461,   457,-32768,
  651.    481,-32768,   462,   417,-32768,-32768,-32768,   317,-32768,   467,
  652. -32768,   484,   121,   543,   289,   466,-32768,   560,   197,-32768,
  653.    386,-32768,-32768,-32768,   504,   473,-32768,   573,-32768,   199,
  654.     16,    21,-32768,-32768,-32768,   505,-32768,-32768,-32768,   361,
  655. -32768,   424,-32768,   317,   411,   470,   246,   539,   180,-32768,
  656. -32768,-32768,   493,-32768,-32768,   496,-32768,-32768,-32768,-32768,
  657.    185,-32768,   581,   554,   386,    91,     8,-32768,   239,   557,
  658. -32768,   500,   544,-32768,   485,-32768,   186,-32768,   480,   400,
  659.    506,-32768,   161,   204,-32768,-32768,-32768,   348,   571,-32768,
  660. -32768,-32768,   327,-32768,   488,   489,-32768,   463,   121,-32768,
  661.    249,-32768,-32768,-32768,-32768,   121,   185,   551,-32768,     8,
  662. -32768,-32768,-32768,   549,-32768,-32768,   199,-32768,-32768,-32768,
  663. -32768,-32768,   502,   317,   559,   411,   490,   254,-32768,-32768,
  664.    246,-32768,-32768,-32768,   509,   499,-32768,   289,   545,   289,
  665.    262,   169,-32768,-32768,-32768,   491,   317,-32768,   246,-32768,
  666. -32768,-32768,   463,-32768,-32768,-32768,-32768,-32768,-32768,   611,
  667.    612,-32768
  668. };
  670. static const short yypgoto[] = {-32768,
  671. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,   274,-32768,
  672. -32768,-32768,-32768,-32768,   184,-32768,-32768,   153,   157,   -95,
  673.   -161,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,   455,
  674. -32768,-32768,   226,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  675. -32768,   517,-32768,-32768,-32768,-32768,   183,-32768,-32768,-32768,
  676.    433,   -94,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  677.    208,-32768,-32768,-32768,   -82,-32768,-32768,   359,-32768,   364,
  678.    -13,   464,   -34,-32768,   474,-32768,  -249,-32768,-32768,   243,
  679.   -186,-32768,   -87,    -3,-32768,-32768,  -218,-32768,-32768,-32768,
  680. -32768,   318,-32768,-32768,-32768,  -280,-32768,   -88,   -76,  -333,
  681. -32768,  -269,-32768,-32768,  -331,   353,   541,   -63,   163,    82,
  682. -32768,  -245,   435,   397,  -101,-32768
  683. };
  686. #define YYLAST 633
  689. static const short yytable[] = {   138,
  690.    160,   110,   151,   319,   292,   322,   295,    67,    86,   166,
  691.    177,    70,   249,   267,   165,   323,   399,   178,    74,   426,
  692.    171,   265,   188,   192,     1,   363,  -260,     2,   100,   236,
  693.     85,   168,     3,   408,   231,   410,     4,    71,   148,     5,
  694.     75,     6,   115,    52,     7,    63,     8,   195,   189,     9,
  695.     10,   335,    64,    11,   425,    53,   190,   149,   197,    54,
  696.     12,   264,   204,   233,  -261,    13,   221,   116,   237,   427,
  697.    408,    14,   410,   101,   138,    15,   450,   193,   355,   356,
  698.     22,   402,   334,    16,   109,   406,    17,    18,   232,   235,
  699.     19,   117,  -210,   428,   222,   248,   177,   216,   293,    20,
  700.    192,   250,   196,    21,   398,  -210,  -210,  -210,  -210,  -210,
  701.   -210,  -210,  -210,  -210,  -210,  -210,   262,   408,   234,   410,
  702.    266,   221,   256,   257,   258,   259,   260,  -210,  -210,  -210,
  703.     60,    72,  -210,   177,   449,   408,   401,   410,   106,   422,
  704.     22,    56,   120,   239,   115,    57,   288,   289,   296,   222,
  705.     59,   223,   103,   220,   193,   121,   122,   123,   124,   125,
  706.    224,   127,   128,   129,   130,   131,   294,   423,   230,   116,
  707.    106,   343,   457,    74,    66,   194,    61,   132,   133,   389,
  708.    353,   471,   225,    82,   285,   324,   328,   128,   129,   130,
  709.    131,   398,   438,   466,   222,    75,   152,   120,    83,   478,
  710.    458,   286,    74,   332,   447,   344,   223,   460,   270,   439,
  711.    121,   122,   123,   124,   125,   224,   127,   128,   129,   130,
  712.    131,   103,   108,   421,   261,   272,   273,   479,   271,   364,
  713.    113,    68,   132,   133,    88,   328,    69,   225,   357,   365,
  714.    358,    89,   120,   274,   446,   282,    91,   297,   298,   173,
  715.    174,   223,   283,   272,   273,   121,   122,   123,   124,   125,
  716.    224,   127,   128,   129,   130,   131,    92,    92,   400,   366,
  717.    351,   274,   200,   201,   202,   203,   367,   132,   133,    78,
  718.    407,   354,   225,   197,    73,    93,    93,   339,   403,   373,
  719.    413,   275,   103,   318,   340,   394,   374,   414,   173,   174,
  720.    128,   129,   130,   131,   359,    94,    94,   288,   289,   107,
  721.     95,    95,   120,   104,   109,   132,   133,   332,   111,    96,
  722.     96,   112,   407,   444,   114,   121,   122,   123,   124,   125,
  723.    126,   127,   128,   129,   130,   131,   328,   145,   187,   247,
  724.    173,   174,   128,   129,   130,   131,   147,   132,   133,   282,
  725.      4,     4,   360,     5,     5,   146,   433,   132,   133,   282,
  726.      8,     8,   154,   461,   469,   475,   459,    11,    11,   467,
  727.    157,   470,   297,   298,   153,   325,   202,   203,   158,    13,
  728.     13,   179,   180,   181,   182,   183,   184,   161,   185,    15,
  729.     15,   200,   201,   202,   203,   162,   163,   254,    74,   167,
  730.    168,    18,    18,   120,    19,    19,   299,   300,   301,   302,
  731.    191,   172,   198,    20,    20,   199,   121,   122,   123,   124,
  732.    125,   126,   127,   128,   129,   130,   131,   351,   200,   201,
  733.    202,   203,   200,   201,   202,   203,   206,   120,   132,   133,
  734.    303,   304,   305,   135,   128,   129,   130,   131,   120,   205,
  735.    121,   122,   123,   124,   125,   126,   127,   128,   129,   130,
  736.    131,   121,   122,   123,   124,   125,   126,   127,   128,   129,
  737.    130,   131,   132,   133,   207,   210,   120,   135,   212,   213,
  738.    214,    22,   219,   132,   133,   134,   235,   120,   135,   121,
  739.    122,   123,   124,   125,   126,   127,   128,   129,   130,   131,
  740.    121,   122,   123,   124,   125,   126,   127,   128,   129,   130,
  741.    131,   132,   133,   442,   240,   241,   135,   299,   300,   301,
  742.    302,   242,   132,   133,   243,   244,   245,   135,   200,   201,
  743.    202,   203,   251,   252,   380,   253,   267,   284,   263,   237,
  744.    290,   308,   309,   200,   201,   202,   203,   310,    85,   254,
  745.    312,   303,   304,   305,   313,   314,   315,   318,   321,   316,
  746.    317,   320,   336,   333,   337,   341,   342,   348,   350,   351,
  747.    352,   372,   299,   375,   377,   378,   376,   381,   382,   379,
  748.    383,   386,   385,   392,   393,   390,   404,   412,   297,   415,
  749.    416,   418,   419,   434,   344,   437,   436,   441,   451,   462,
  750.    445,   464,  -262,   472,   455,   454,   427,   468,   477,   473,
  751.    481,   482,   388,   463,   476,   474,   217,   435,   164,   465,
  752.    453,   246,   329,   417,   211,   368,   327,   338,   218,   156,
  753.      0,   311,   255
  754. };
  756. static const short yycheck[] = {    76,
  757.     96,    65,    85,   249,   223,   255,   225,    11,    22,   105,
  758.    112,    15,    25,    35,   103,   261,     1,   113,     3,    12,
  759.    108,   208,   117,    41,     1,   306,    44,     4,     1,    78,
  760.     67,    81,     9,   367,    41,   367,    13,     1,    17,    16,
  761.     25,    18,    70,   119,    21,    72,    23,    41,   111,    26,
  762.     27,   270,    79,    30,   386,    21,   119,    36,   135,    95,
  763.     37,   111,   139,    41,    44,    42,     1,    95,   117,    62,
  764.    404,    48,   404,    46,   151,    52,   408,    95,   297,   298,
  765.    117,   362,   269,    60,    19,   366,    63,    64,    95,   111,
  766.     67,   119,    77,    86,    29,   190,   198,   161,   116,    76,
  767.     41,   114,    96,    80,   350,    90,    91,    92,    93,    94,
  768.     95,    96,    97,    98,    99,   100,   205,   451,    96,   451,
  769.    208,     1,   199,   200,   201,   202,   203,   112,   113,   114,
  770.     35,    95,   117,   235,   404,   469,   116,   469,    57,    49,
  771.    117,    83,    77,   178,    70,    79,    84,    85,   225,    29,
  772.     95,    86,    74,   167,    95,    90,    91,    92,    93,    94,
  773.     95,    96,    97,    98,    99,   100,     1,    77,   172,    95,
  774.     89,    61,   418,     3,    21,   116,    81,   112,   113,   341,
  775.    118,   451,   117,    71,   219,   262,   263,    97,    98,    99,
  776.    100,   437,     7,   443,    29,    25,   118,    77,    86,   469,
  777.    419,    54,     3,   267,     1,    95,    86,   426,    12,    24,
  778.     90,    91,    92,    93,    94,    95,    96,    97,    98,    99,
  779.    100,    74,    60,   385,    25,    57,    58,   473,    32,   306,
  780.     68,    43,   112,   113,    65,   312,    95,   117,     3,    10,
  781.      5,    72,    77,    75,    84,   111,     3,    84,    85,    95,
  782.     96,    86,   118,    57,    58,    90,    91,    92,    93,    94,
  783.     95,    96,    97,    98,    99,   100,    23,    23,   351,    40,
  784.     67,    75,   112,   113,   114,   115,    47,   112,   113,    95,
  785.     77,   118,   117,   360,    83,    42,    42,   111,   365,   111,
  786.    111,    95,    74,    95,   118,    97,   118,   118,    95,    96,
  787.     97,    98,    99,   100,    69,    62,    62,    84,    85,    20,
  788.     67,    67,    77,    66,    19,   112,   113,   381,    66,    76,
  789.     76,    43,    77,   400,   119,    90,    91,    92,    93,    94,
  790.     95,    96,    97,    98,    99,   100,   413,   116,     1,     1,
  791.     95,    96,    97,    98,    99,   100,    34,   112,   113,   111,
  792.     13,    13,   117,    16,    16,    68,   118,   112,   113,   111,
  793.     23,    23,     8,   427,   111,   461,   118,    30,    30,   446,
  794.     59,   118,    84,    85,   118,    49,   114,   115,   117,    42,
  795.     42,   101,   102,   103,   104,   105,   106,    51,   108,    52,
  796.     52,   112,   113,   114,   115,   111,    95,   118,     3,    31,
  797.     81,    64,    64,    77,    67,    67,    86,    87,    88,    89,
  798.    117,    50,    43,    76,    76,   111,    90,    91,    92,    93,
  799.     94,    95,    96,    97,    98,    99,   100,    67,   112,   113,
  800.    114,   115,   112,   113,   114,   115,    95,    77,   112,   113,
  801.    120,   121,   122,   117,    97,    98,    99,   100,    77,   117,
  802.     90,    91,    92,    93,    94,    95,    96,    97,    98,    99,
  803.    100,    90,    91,    92,    93,    94,    95,    96,    97,    98,
  804.     99,   100,   112,   113,    95,    95,    77,   117,    95,   117,
  805.     95,   117,     6,   112,   113,   114,   111,    77,   117,    90,
  806.     91,    92,    93,    94,    95,    96,    97,    98,    99,   100,
  807.     90,    91,    92,    93,    94,    95,    96,    97,    98,    99,
  808.    100,   112,   113,   114,   117,   117,   117,    86,    87,    88,
  809.     89,   117,   112,   113,   107,   119,   119,   117,   112,   113,
  810.    114,   115,    95,    95,   118,    96,    35,    73,   120,   117,
  811.    117,    44,    95,   112,   113,   114,   115,    96,    67,   118,
  812.    117,   120,   121,   122,    97,    97,    97,    95,   116,   119,
  813.    119,   118,    45,    81,    45,   117,    95,    82,    11,    67,
  814.     95,   118,    86,   118,   118,    95,   116,   111,    95,   118,
  815.     38,    22,   117,   111,    12,    82,   117,    49,    84,    97,
  816.     95,    11,    39,    37,    95,   111,    53,   118,    28,    49,
  817.     95,    53,    44,    95,   116,   118,    62,   118,   118,   111,
  818.      0,     0,   339,   430,   462,   459,   162,   392,   102,   437,
  819.    413,   189,   264,   381,   151,   308,   263,   275,   165,    89,
  820.     -1,   235,   198
  821. };
  822. /* -*-C-*-  Note some compilers choke on comments on `
  825. /* Skeleton output parser for bison,
  826.    Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  828.    This program is free software; you can redistribute it and/or modify
  829.    it under the terms of the GNU General Public License as published by
  830.    the Free Software Foundation; either version 1, or (at your option)
  831.    any later version.
  833.    This program is distributed in the hope that it will be useful,
  834.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  835.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  836.    GNU General Public License for more details.
  838.    You should have received a copy of the GNU General Public License
  839.    along with this program; if not, write to the Free Software
  840.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  843. #ifndef alloca
  844. #ifdef __GNUC__
  845. #define alloca __builtin_alloca
  846. #else /* not GNU C.  */
  847. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
  848. #include <alloca.h>
  849. #else /* not sparc */
  850. #if defined (MSDOS) && !defined (__TURBOC__)
  851. #include <malloc.h>
  852. #else /* not MSDOS, or __TURBOC__ */
  853. #if defined(_AIX)
  854. #include <malloc.h>
  855.  #pragma alloca
  856. #else /* not MSDOS, __TURBOC__, or _AIX */
  857. #ifdef __hpux
  858. #ifdef __cplusplus
  859. extern "C" {
  860. void *alloca (unsigned int);
  861. };
  862. #else /* not __cplusplus */
  863. void *alloca (unsigned int);
  864. #endif /* not __cplusplus */
  865. #endif /* __hpux */
  866. #endif /* not _AIX */
  867. #endif /* not MSDOS, or __TURBOC__ */
  868. #endif /* not sparc.  */
  869. #endif /* not GNU C.  */
  870. #endif /* alloca not defined.  */
  872. /* This is the parser code that is written into each bison parser
  873.   when the %semantic_parser declaration is not specified in the grammar.
  874.   It was written by Richard Stallman by simplifying the hairy parser
  875.   used when %semantic_parser is specified.  */
  877. /* Note: there must be only one dollar sign in this file.
  878.    It is replaced by the list of actions, each action
  879.    as one case of the switch.  */
  881. #define yyerrok (yyerrstatus = 0)
  882. #define yyclearin (yychar = YYEMPTY)
  883. #define YYEMPTY -2
  884. #define YYEOF 0
  885. #define YYACCEPT return(0)
  886. #define YYABORT  return(1)
  887. #define YYERROR goto yyerrlab1
  888. /* Like YYERROR except do call yyerror.
  889.    This remains here temporarily to ease the
  890.    transition to the new meaning of YYERROR, for GCC.
  891.    Once GCC version 2 has supplanted version 1, this can go.  */
  892. #define YYFAIL goto yyerrlab
  893. #define YYRECOVERING()  (!!yyerrstatus)
  894. #define YYBACKUP(token, value) 
  895. do
  896.   if (yychar == YYEMPTY && yylen == 1)
  897.     { yychar = (token), yylval = (value);
  898.       yychar1 = YYTRANSLATE (yychar);
  899.       YYPOPSTACK;
  900.       goto yybackup;
  901.     }
  902.   else
  903.     { yyerror ("syntax error: cannot back up"); YYERROR; }
  904. while (0)
  906. #define YYTERROR 1
  907. #define YYERRCODE 256
  909. #ifndef YYPURE
  910. #define YYLEX yylex()
  911. #endif
  913. #ifdef YYPURE
  914. #ifdef YYLSP_NEEDED
  915. #define YYLEX yylex(&yylval, &yylloc)
  916. #else
  917. #define YYLEX yylex(&yylval)
  918. #endif
  919. #endif
  921. /* If nonreentrant, generate the variables here */
  923. #ifndef YYPURE
  925. int yychar; /*  the lookahead symbol */
  926. YYSTYPE yylval; /*  the semantic value of the */
  927. /*  lookahead symbol */
  929. #ifdef YYLSP_NEEDED
  930. YYLTYPE yylloc; /*  location data for the lookahead */
  931. /*  symbol */
  932. #endif
  934. int yynerrs; /*  number of parse errors so far       */
  935. #endif  /* not YYPURE */
  937. #if YYDEBUG != 0
  938. int yydebug; /*  nonzero means print parse trace */
  939. /* Since this is uninitialized, it does not stop multiple parsers
  940.    from coexisting.  */
  941. #endif
  943. /*  YYINITDEPTH indicates the initial size of the parser's stacks */
  945. #ifndef YYINITDEPTH
  946. #define YYINITDEPTH 200
  947. #endif
  949. /*  YYMAXDEPTH is the maximum size the stacks can grow to
  950.     (effective only if the built-in stack extension method is used).  */
  952. #if YYMAXDEPTH == 0
  953. #undef YYMAXDEPTH
  954. #endif
  956. #ifndef YYMAXDEPTH
  957. #define YYMAXDEPTH 10000
  958. #endif
  960. /* Prevent warning if -Wstrict-prototypes.  */
  961. #ifdef __GNUC__
  962. int yyparse (void);
  963. #endif
  965. #if __GNUC__ > 1 /* GNU C and GNU C++ define this.  */
  966. #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
  967. #else /* not GNU C or C++ */
  968. #ifndef __cplusplus
  970. /* This is the most reliable way to avoid incompatibilities
  971.    in available built-in functions on various systems.  */
  972. static void
  973. __yy_bcopy (from, to, count)
  974.      char *from;
  975.      char *to;
  976.      int count;
  977. {
  978.   register char *f = from;
  979.   register char *t = to;
  980.   register int i = count;
  982.   while (i-- > 0)
  983.     *t++ = *f++;
  984. }
  986. #else /* __cplusplus */
  988. /* This is the most reliable way to avoid incompatibilities
  989.    in available built-in functions on various systems.  */
  990. static void
  991. __yy_bcopy (char *from, char *to, int count)
  992. {
  993.   register char *f = from;
  994.   register char *t = to;
  995.   register int i = count;
  997.   while (i-- > 0)
  998.     *t++ = *f++;
  999. }
  1001. #endif
  1002. #endif
  1005. int
  1006. yyparse()
  1007. {
  1008.   register int yystate;
  1009.   register int yyn;
  1010.   register short *yyssp;
  1011.   register YYSTYPE *yyvsp;
  1012.   int yyerrstatus; /*  number of tokens to shift before error messages enabled */
  1013.   int yychar1; /*  lookahead token as an internal (translated) token number */
  1015.   short yyssa[YYINITDEPTH]; /*  the state stack */
  1016.   YYSTYPE yyvsa[YYINITDEPTH]; /*  the semantic value stack */
  1018.   short *yyss = yyssa; /*  refer to the stacks thru separate pointers */
  1019.   YYSTYPE *yyvs = yyvsa; /*  to allow yyoverflow to reallocate them elsewhere */
  1021. #ifdef YYLSP_NEEDED
  1022.   YYLTYPE yylsa[YYINITDEPTH]; /*  the location stack */
  1023.   YYLTYPE *yyls = yylsa;
  1024.   YYLTYPE *yylsp;
  1026. #define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
  1027. #else
  1028. #define YYPOPSTACK   (yyvsp--, yyssp--)
  1029. #endif
  1031.   int yystacksize = YYINITDEPTH;
  1033. #ifdef YYPURE
  1034.   int yychar;
  1035.   YYSTYPE yylval;
  1036.   int yynerrs;
  1037. #ifdef YYLSP_NEEDED
  1038.   YYLTYPE yylloc;
  1039. #endif
  1040. #endif
  1042.   YYSTYPE yyval; /*  the variable used to return */
  1043. /*  semantic values from the action */
  1044. /*  routines */
  1046.   int yylen;
  1048. #if YYDEBUG != 0
  1049.   if (yydebug)
  1050.     fprintf(stderr, "Starting parsen");
  1051. #endif
  1053.   yystate = 0;
  1054.   yyerrstatus = 0;
  1055.   yynerrs = 0;
  1056.   yychar = YYEMPTY; /* Cause a token to be read.  */
  1058.   /* Initialize stack pointers.
  1059.      Waste one element of value and location stack
  1060.      so that they stay on the same level as the state stack.
  1061.      The wasted elements are never initialized.  */
  1063.   yyssp = yyss - 1;
  1064.   yyvsp = yyvs;
  1065. #ifdef YYLSP_NEEDED
  1066.   yylsp = yyls;
  1067. #endif
  1069. /* Push a new state, which is found in  yystate  .  */
  1070. /* In all cases, when you get here, the value and location stacks
  1071.    have just been pushed. so pushing a state here evens the stacks.  */
  1072. yynewstate:
  1074.   *++yyssp = yystate;
  1076.   if (yyssp >= yyss + yystacksize - 1)
  1077.     {
  1078.       /* Give user a chance to reallocate the stack */
  1079.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  1080.       YYSTYPE *yyvs1 = yyvs;
  1081.       short *yyss1 = yyss;
  1082. #ifdef YYLSP_NEEDED
  1083.       YYLTYPE *yyls1 = yyls;
  1084. #endif
  1086.       /* Get the current used size of the three stacks, in elements.  */
  1087.       int size = yyssp - yyss + 1;
  1089. #ifdef yyoverflow
  1090.       /* Each stack pointer address is followed by the size of
  1091.  the data in use in that stack, in bytes.  */
  1092.       yyoverflow("parser stack overflow",
  1093.  &yyss1, size * sizeof (*yyssp),
  1094.  &yyvs1, size * sizeof (*yyvsp),
  1095. #ifdef YYLSP_NEEDED
  1096.  &yyls1, size * sizeof (*yylsp),
  1097. #endif
  1098.  &yystacksize);
  1100.       yyss = yyss1; yyvs = yyvs1;
  1101. #ifdef YYLSP_NEEDED
  1102.       yyls = yyls1;
  1103. #endif
  1104. #else /* no yyoverflow */
  1105.       /* Extend the stack our own way.  */
  1106.       if (yystacksize >= YYMAXDEPTH)
  1107. {
  1108.   yyerror("parser stack overflow");
  1109.   return 2;
  1110. }
  1111.       yystacksize *= 2;
  1112.       if (yystacksize > YYMAXDEPTH)
  1113. yystacksize = YYMAXDEPTH;
  1114.       yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
  1115.       __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  1116.       yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
  1117.       __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  1118. #ifdef YYLSP_NEEDED
  1119.       yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
  1120.       __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  1121. #endif
  1122. #endif /* no yyoverflow */
  1124.       yyssp = yyss + size - 1;
  1125.       yyvsp = yyvs + size - 1;
  1126. #ifdef YYLSP_NEEDED
  1127.       yylsp = yyls + size - 1;
  1128. #endif
  1130. #if YYDEBUG != 0
  1131.       if (yydebug)
  1132. fprintf(stderr, "Stack size increased to %dn", yystacksize);
  1133. #endif
  1135.       if (yyssp >= yyss + yystacksize - 1)
  1136. YYABORT;
  1137.     }
  1139. #if YYDEBUG != 0
  1140.   if (yydebug)
  1141.     fprintf(stderr, "Entering state %dn", yystate);
  1142. #endif
  1144.   goto yybackup;
  1145.  yybackup:
  1147. /* Do appropriate processing given the current state.  */
  1148. /* Read a lookahead token if we need one and don't already have one.  */
  1149. /* yyresume: */
  1151.   /* First try to decide what to do without reference to lookahead token.  */
  1153.   yyn = yypact[yystate];
  1154.   if (yyn == YYFLAG)
  1155.     goto yydefault;
  1157.   /* Not known => get a lookahead token if don't already have one.  */
  1159.   /* yychar is either YYEMPTY or YYEOF
  1160.      or a valid token in external form.  */
  1162.   if (yychar == YYEMPTY)
  1163.     {
  1164. #if YYDEBUG != 0
  1165.       if (yydebug)
  1166. fprintf(stderr, "Reading a token: ");
  1167. #endif
  1168.       yychar = YYLEX;
  1169.     }
  1171.   /* Convert token to internal form (in yychar1) for indexing tables with */
  1173.   if (yychar <= 0) /* This means end of input. */
  1174.     {
  1175.       yychar1 = 0;
  1176.       yychar = YYEOF; /* Don't call YYLEX any more */
  1178. #if YYDEBUG != 0
  1179.       if (yydebug)
  1180. fprintf(stderr, "Now at end of input.n");
  1181. #endif
  1182.     }
  1183.   else
  1184.     {
  1185.       yychar1 = YYTRANSLATE(yychar);
  1187. #if YYDEBUG != 0
  1188.       if (yydebug)
  1189. {
  1190.   fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
  1191.   /* Give the individual parser a way to print the precise meaning
  1192.      of a token, for further debugging info.  */
  1193. #ifdef YYPRINT
  1194.   YYPRINT (stderr, yychar, yylval);
  1195. #endif
  1196.   fprintf (stderr, ")n");
  1197. }
  1198. #endif
  1199.     }
  1201.   yyn += yychar1;
  1202.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  1203.     goto yydefault;
  1205.   yyn = yytable[yyn];
  1207.   /* yyn is what to do for this token type in this state.
  1208.      Negative => reduce, -yyn is rule number.
  1209.      Positive => shift, yyn is new state.
  1210.        New state is final state => don't bother to shift,
  1211.        just return success.
  1212.      0, or most negative number => error.  */
  1214.   if (yyn < 0)
  1215.     {
  1216.       if (yyn == YYFLAG)
  1217. goto yyerrlab;
  1218.       yyn = -yyn;
  1219.       goto yyreduce;
  1220.     }
  1221.   else if (yyn == 0)
  1222.     goto yyerrlab;
  1224.   if (yyn == YYFINAL)
  1225.     YYACCEPT;
  1227.   /* Shift the lookahead token.  */
  1229. #if YYDEBUG != 0
  1230.   if (yydebug)
  1231.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1232. #endif
  1234.   /* Discard the token being shifted unless it is eof.  */
  1235.   if (yychar != YYEOF)
  1236.     yychar = YYEMPTY;
  1238.   *++yyvsp = yylval;
  1239. #ifdef YYLSP_NEEDED
  1240.   *++yylsp = yylloc;
  1241. #endif
  1243.   /* count tokens shifted since error; after three, turn off error status.  */
  1244.   if (yyerrstatus) yyerrstatus--;
  1246.   yystate = yyn;
  1247.   goto yynewstate;
  1249. /* Do the default action for the current state.  */
  1250. yydefault:
  1252.   yyn = yydefact[yystate];
  1253.   if (yyn == 0)
  1254.     goto yyerrlab;
  1256. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1257. yyreduce:
  1258.   yylen = yyr2[yyn];
  1259.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1261. #if YYDEBUG != 0
  1262.   if (yydebug)
  1263.     {
  1264.       int i;
  1266.       fprintf (stderr, "Reducing via rule %d (line %d), ",
  1267.        yyn, yyrline[yyn]);
  1269.       /* Print the symbols being reduced, and their result.  */
  1270.       for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  1271. fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  1272.       fprintf (stderr, " -> %sn", yytname[yyr1[yyn]]);
  1273.     }
  1274. #endif
  1277.   switch (yyn) {
  1279. case 1:
  1281. { 
  1282.       if (progname && *progname)
  1283.         yyerror ("Unexpected schema operation in static mode compilation ");
  1284.       else if (parse_mode==Module)
  1285.         yyerror ("Unexpected schema operation inside module");
  1286.       if(yyvsp[0].code)
  1287.         parse_mode=Schema;
  1288.     ;
  1289.     break;}
  1290. case 2:
  1292. { 
  1293.       if (progname && *progname)
  1294.         yyerror ("Unexpected schema operation in static mode compilation ");
  1295.       else if (parse_mode==Module)
  1296.         yyerror ("Unexpected schema operation inside module");
  1297.     ;
  1298.     break;}
  1299. case 3:
  1301. { if (yyvsp[0].code) parse_mode=Module; ;
  1302.     break;}
  1303. case 4:
  1305. { ; ;
  1306.     break;}
  1307. case 5:
  1309. { 
  1310.       if(parse_mode!=Module)
  1311.         yyerror("Unexpected module operation outside module");
  1312.     ;
  1313.     break;}
  1314. case 6:
  1316. { ; ;
  1317.     break;}
  1318. case 7:
  1320. {
  1321.       if(parse_mode==Esql)
  1322.         {
  1323.           free_tail();
  1324.           yyval.code=0;
  1325.         }
  1326.     ;
  1327.     break;}
  1328. case 8:
  1330. {;
  1331.     break;}
  1332. case 9:
  1334. {
  1335.       yyerror("Error: unrecognizable SQL construction in input file");
  1336.       free_tail();
  1337.       YYERROK; yyclearin;
  1338.       YYACCEPT;
  1339.     ;
  1340.     break;}
  1341. case 10:
  1343. { yyval.code = TABLE; ;
  1344.     break;}
  1345. case 11:
  1347. { yyval.code = VIEW;  ;
  1348.     break;}
  1349. case 12:
  1351. {
  1352.       TXTREF c,d = gen_parent(DECL_CURS,yyvsp[0].node);
  1353.       STMT_VCB(d) = LOCAL_VCB_ROOT;
  1354.       SetF_TRN(d,HAS_VCB_F);
  1355.       LOCAL_VCB_ROOT = TNULL;
  1356.       c = gen_parent(CUR_AREA,d);
  1357.       add_statement(c);
  1358.       d = gen_node(CURSOR);
  1359.       if (dyn_sql_stmt_name)
  1360.         CUR_NAME(d) = ltr_rec(dyn_sql_stmt_name);
  1361.       else
  1362.         yyfatal("Attemp to compile unnamed statement");
  1363.       CUR_DECL(d) = c;
  1364.       STMT_VCB(c) = d;
  1365.       yyval.code = 0;
  1366.     ;
  1367.     break;}
  1368. case 13:
  1370. {
  1371.        TXTREF d = gen_object(DROP,yylsp[-2]);
  1372.        CREATE_OBJ(d) = yyvsp[0].node;
  1373.        CODE_TRN(yyvsp[0].node) = yyvsp[-1].code;
  1374.        add_statement(d);
  1375.      ;
  1376.     break;}
  1377. case 14:
  1379. { {
  1380.      add_statement(gen_object(yyvsp[-2].code,yylsp[-1]));
  1381.      yyval.code = 0;
  1382.    } ;
  1383.     break;}
  1384. case 18:
  1386. { yyval.code=CREATE; ;
  1387.     break;}
  1388. case 19:
  1390. { yyval.code=ALTER; ;
  1391.     break;}
  1392. case 20:
  1394. {
  1395.        register TXTREF e=gen_object(yyvsp[-1].code,yylsp[-1]);
  1396.        CREATE_OBJ(e)=yyvsp[0].node;
  1397.        add_statement(e);
  1398.        yyval.code=STMT_UID(e);
  1399.      ;
  1400.     break;}
  1401. case 21:
  1403. {
  1404.       register TXTREF t=yyvsp[-3].node,e=yyvsp[-1].node;
  1405.       if (!t)
  1406.         free_line (e);
  1407.       else if (new_table != t)
  1408.         yyfatal ("Internal error: unexpected 'new_table'");
  1409.       else
  1410.         {
  1411.           CODE_TRN (t) = TABLE;
  1412.   TBL_NCOLS(t) = new_table_col_no;
  1413.           SetF_TRN (t, CHECKED_F);
  1414.           new_table = TNULL;
  1415.         }
  1416.       yyval.node=t;
  1417.     ;
  1418.     break;}
  1419. case 22:
  1421. { yyval.node=yyvsp[0].node;;
  1422.     break;}
  1423. case 23:
  1425. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  1426.     break;}
  1427. case 24:
  1429. { yyval.node=yyvsp[0].node; ;
  1430.     break;}
  1431. case 25:
  1433. { yyval.node=yyvsp[0].node; ;
  1434.     break;}
  1435. case 26:
  1437. {
  1438.       if(new_table)
  1439.         add_base_column(yyvsp[-3].ltrp,yyvsp[-2].type,yyvsp[-1].node,yyvsp[0].node);
  1440.       yyval.node = TNULL;
  1441.     ;
  1442.     break;}
  1443. case 27:
  1445. { yyval.node = TNULL;     ;
  1446.     break;}
  1447. case 28:
  1449. { yyval.node = yyvsp[0].node; ;
  1450.     break;}
  1451. case 29:
  1453. {
  1454.       yyval.node = gen_object (USERNAME, yylsp[0]);
  1455.       USR_NAME (yyval.node) = yyvsp[0].ltrp;
  1456.     ;
  1457.     break;}
  1458. case 30:
  1460. { yyval.node = gen_object (NULL_VL, yylsp[0]); ;
  1461.     break;}
  1462. case 31:
  1464. { yyval.node = yyvsp[0].node; ;
  1465.     break;}
  1466. case 32:
  1468. { yyval.node = TNULL;        ;
  1469.     break;}
  1470. case 33:
  1472. { yyval.node = yyvsp[0].node; ;
  1473.     break;}
  1474. case 34:
  1476. { yyval.node = yyvsp[0].node; ;
  1477.     break;}
  1478. case 35:
  1480. { yyval.node = join_list(yyvsp[-1].node,yyvsp[0].node); ;
  1481.     break;}
  1482. case 36:
  1484. { yyval.node = gen_object (NULL_VL, yylsp[0]); ;
  1485.     break;}
  1486. case 37:
  1488. { yyval.node = gen_object (yyvsp[0].code, yylsp[0]); ;
  1489.     break;}
  1490. case 38:
  1492. { yyval.node = yyvsp[0].node; ;
  1493.     break;}
  1494. case 39:
  1496. {
  1497.       yyval.node = gen_up_node (CHECK, yyvsp[0].node, yylsp[-1]);
  1498.     ;
  1499.     break;}
  1500. case 40:
  1502. {{
  1503.       if(!new_table)
  1504.         yyerror("Unexpected constraints");
  1505.       else
  1506. switch(CODE_TRN(yyvsp[0].node))
  1507.   {
  1508.           case NULL_VL:
  1509.             yyfatal("Unexpected NULL_VL node");
  1510.             break;
  1511.   case PRIMARY:
  1512.   case UNIQUE:
  1513.             check_not_null(yyvsp[0].node);
  1514.   case INDEX:
  1515.     IND_INFO(new_table)=
  1516.       join_list(IND_INFO(new_table),yyvsp[0].node);
  1517.     break;
  1518.   default:
  1519.             RIGHT_TRN(yyvsp[0].node) = TNULL;
  1520.     TBL_CONSTR(new_table)=
  1521.       join_list(TBL_CONSTR(new_table),yyvsp[0].node);
  1522.   }
  1523.       yyval.node = TNULL;
  1524.     };
  1525.     break;}
  1526. case 41:
  1528. {
  1529.       yyval.node=gen_up_node(yyvsp[-3].code,
  1530.                            replace_column_holes(yyvsp[-1].node,new_table),
  1531.                            yylsp[-3]);
  1532.     ;
  1533.     break;}
  1534. case 42:
  1536. {
  1537.       yyval.node=
  1538.         gen_up_node(FOREIGN,
  1539.                     join_list(gen_parent(LOCALLIST,
  1540.                                          replace_column_holes(yyvsp[-2].node,
  1541.                                                               new_table)),
  1542.                               yyvsp[0].node),
  1543.                     yylsp[-5]);
  1544.     ;
  1545.     break;}
  1546. case 43:
  1548. {
  1549.       yyval.node=gen_up_node(CHECK,
  1550.                            replace_column_holes(yyvsp[0].node,
  1551.                                                 new_table),
  1552.                            yylsp[-1]);
  1553.     ;
  1554.     break;}
  1555. case 44:
  1557. { yyval.code=UNIQUE; ;
  1558.     break;}
  1559. case 45:
  1561. { yyval.code=PRIMARY; ;
  1562.     break;}
  1563. case 46:
  1565. { yyval.code=INDEX; ;
  1566.     break;}
  1567. case 47:
  1569. { {
  1570.       TXTREF t = gen_object(OPTR,yylsp[-2]);
  1571.       OBJ_DESC(t)  = yyvsp[-1].node;
  1572.       yyval.node = gen_up_node(REFERENCE,
  1573.                              join_list(t,gen_parent(NOOP,yyvsp[0].node)),
  1574.                              yylsp[-2]);
  1575.     } ;
  1576.     break;}
  1577. case 48:
  1579. { yyval.node=0; ;
  1580.     break;}
  1581. case 49:
  1583. { yyval.node=yyvsp[-1].node;;
  1584.     break;}
  1585. case 50:
  1587. {
  1588.       yyval.node=gen_column(NULL,yyvsp[0].ltrp,yylsp[0]);
  1589.     ;
  1590.     break;}
  1591. case 51:
  1593. {
  1594.       yyval.node=join_list(yyvsp[-2].node,gen_column(NULL,yyvsp[0].ltrp,yylsp[0]));
  1595.     ;
  1596.     break;}
  1597. case 52:
  1599. {
  1600.       register TXTREF e;
  1601.       e=gen_object(CREATE,yylsp[-1]);
  1602.       CREATE_OBJ(e)=yyvsp[0].node;
  1603.       add_statement(e);
  1604.       yyval.code=STMT_UID(e);
  1605.     ;
  1606.     break;}
  1607. case 53:
  1609. {
  1610.       register TXTREF t = yyvsp[-4].node, e= yyvsp[-3].node;
  1611.       if(!t)
  1612.         free_line (e);
  1613.       else
  1614.         {
  1615.           TXTREF     c;
  1616.           sql_type_t type  = pack_type(SQLType_0,0,0);
  1617.           i4_t        e_cnt = count_list (e);
  1618.           
  1619.           TXTREF sel_node = RIGHT_TRN (DOWN_TRN (yyvsp[-1].node));
  1620.           
  1621.           CODE_TRN (t) = VIEW;
  1623.           if (e)
  1624.             if (e_cnt != ARITY_TRN (sel_node))
  1625.               {
  1626.                 yyerror("Incorrect number of columns in VIEW defenition");
  1627.                 free_line(e);
  1628.                 e = TNULL;
  1629.               }
  1630.           if (e)
  1631.             {
  1632.               for ( c = e ; c ; c = RIGHT_TRN(c))
  1633.                 add_view_column(CHOLE_CNAME(OBJ_DESC(c)),type);
  1634.               free_line (e);
  1635.             }
  1636.           else
  1637.             {
  1638.               for ( c = DOWN_TRN(sel_node) ; c ; c = RIGHT_TRN(c))
  1639.                 {
  1640.                   if (CODE_TRN(c) == COLPTR)
  1641.                     add_view_column(CHOLE_CNAME(OBJ_DESC(c)),type);
  1642.                   else
  1643.                     yyerror("Expressions aren't allowed in selection list"
  1644.                             " of anonimous view");
  1645.                 }
  1646.             }
  1647.           /* TASSERT(new_table_col_no == ARITY_TRN(sel_node),sel_node); */
  1648.   TBL_NCOLS(t) = ARITY_TRN(sel_node);
  1649.             
  1650.           VIEW_QUERY (t) = yyvsp[-1].node;
  1651.           if(yyvsp[0].code) SetF_TRN (t, CHECK_OPT_F);
  1652.           SetF_TRN (t, CHECKED_F);
  1653.           VIEW_VCB (t) = LOCAL_VCB_ROOT;
  1654.           LOCAL_VCB_ROOT = TNULL;
  1655.           new_table = TNULL;
  1656.         }
  1657.       yyval.node=t;
  1658.     ;
  1659.     break;}
  1660. case 54:
  1662. { yyval.code=0; ;
  1663.     break;}
  1664. case 55:
  1666. { yyval.code=1; ;
  1667.     break;}
  1668. case 56:
  1670. { yyval.code=GRANT; ;
  1671.     break;}
  1672. case 57:
  1674. { yyval.code=REVOKE; ;
  1675.     break;}
  1676. case 58:
  1678. {
  1679.       register TXTREF p,g;
  1680.       register i4_t    err = errors;
  1681.       
  1682.       p=replace_column_holes(yyvsp[-5].node,yyvsp[-3].node);
  1683.       p = gen_parent(PRIVILEGIES, p);
  1685.       if (errors != err) /* if there was some error in the tree */
  1686.         {
  1687.           g =  gen_parent(GRANTEES, yyvsp[-1].node);
  1688.           debug_trn(p);
  1689.           free_tree(p);
  1690.           debug_trn(g);
  1691.           free_tree(g);
  1692.         }
  1693.       else
  1694.         {
  1695.           g=gen_node(TBLPTR);
  1696.           TABL_DESC(g) = yyvsp[-3].node;
  1697.           g=gen_up_node(yyvsp[-6].code,
  1698.                         join_list(g,       
  1699.                                   join_list(p,
  1700.                                             gen_parent(GRANTEES,
  1701.                                                        yyvsp[-1].node))),
  1702.                         yylsp[-6]);
  1703.           if(yyvsp[0].code)
  1704.             SetF_TRN(g,GRANT_OPT_F);
  1705.           add_statement(g);
  1706.           yyval.code=STMT_UID(g);
  1707.         }
  1708.     ;
  1709.     break;}
  1710. case 59:
  1712. { yyval.code=0; ;
  1713.     break;}
  1714. case 60:
  1716. { yyval.code=1; ;
  1717.     break;}
  1718. case 61:
  1720. { yyval.node=0; ;
  1721.     break;}
  1722. case 62:
  1724. { yyval.node=yyvsp[0].node; ;
  1725.     break;}
  1726. case 63:
  1728. { yyval.node=yyvsp[0].node;;
  1729.     break;}
  1730. case 64:
  1732. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  1733.     break;}
  1734. case 65:
  1736. { yyval.node = gen_object(SELECT,yylsp[0]); ;
  1737.     break;}
  1738. case 66:
  1740. { yyval.node = gen_object(INSERT,yylsp[0]); ;
  1741.     break;}
  1742. case 67:
  1744. { yyval.node = gen_object(DELETE,yylsp[0]); ;
  1745.     break;}
  1746. case 68:
  1748. { yyval.node = gen_up_node(UPDATE,yyvsp[0].node,yylsp[-1]); ;
  1749.     break;}
  1750. case 69:
  1752. { yyval.node = gen_up_node(REFERENCE,yyvsp[0].node,yylsp[-1]); ;
  1753.     break;}
  1754. case 70:
  1756. { yyval.node = yyvsp[0].node;                  ;
  1757.     break;}
  1758. case 71:
  1760. {
  1761.       register TXTREF u=gen_object(USERNAME,yylsp[0]);
  1762.       USR_NAME(u)=ltr_rec("PUBLIC");
  1763.       yyval.node=u;
  1764.     ;
  1765.     break;}
  1766. case 72:
  1768. { yyval.node=yyvsp[0].node;;
  1769.     break;}
  1770. case 73:
  1772. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  1773.     break;}
  1774. case 74:
  1776. {
  1777.       register TXTREF u=gen_object(USERNAME,yylsp[0]);
  1778.       USR_NAME(u)=yyvsp[0].ltrp;
  1779.       yyval.node=u;
  1780.     ;
  1781.     break;}
  1782. case 75:
  1784. { ; ;
  1785.     break;}
  1786. case 76:
  1788. { ; ;
  1789.     break;}
  1790. case 77:
  1792. { yyval.code=1; ;
  1793.     break;}
  1794. case 78:
  1796. { yyval.code=0; ;
  1797.     break;}
  1798. case 79:
  1800. {
  1801.      *( yyvsp[-1].code ? &label_nf : &label_er ) =
  1802.        ( yyvsp[0].ltrp ? (STRING(yyvsp[0].ltrp)) : NULL );
  1803.    ;
  1804.     break;}
  1805. case 80:
  1807. { yyval.code=1; ;
  1808.     break;}
  1809. case 81:
  1811. { yyval.code=0; ;
  1812.     break;}
  1813. case 82:
  1815. { yyval.ltrp=0; ;
  1816.     break;}
  1817. case 83:
  1819. { yyval.ltrp=yyvsp[0].ltrp; ;
  1820.     break;}
  1821. case 84:
  1823. { yyval.code=1; ;
  1824.     break;}
  1825. case 85:
  1827. {
  1828.       YYERROK;
  1829.       yyerror("Error in module title");
  1830.       yyval.code=0;
  1831.     ;
  1832.     break;}
  1833. case 86:
  1835. { yyval.code=0; ;
  1836.     break;}
  1837. case 87:
  1839. { yyval.code=0; ;
  1840.     break;}
  1841. case 88:
  1843. {
  1844.       if (strncmp("C",STRING(yyvsp[0].ltrp),1)==0)
  1845.         yyval.code=0;
  1846.       else
  1847.         {
  1848.           lperror("SQL module for %s program can't be processed yet",
  1849.                   STRING(yyvsp[0].ltrp));
  1850.           YYABORT;
  1851.         }
  1852.     ;
  1853.     break;}
  1854. case 89:
  1856. { {
  1857.      extern char *current_user_login_name;
  1858.      char *s, *s1;
  1860.      s1 = current_user_login_name;
  1861.      current_user_login_name = NULL;
  1862.      s = get_user_name ();
  1863.      current_user_login_name = s1;
  1864.      
  1866.      if(GL_AUTHOR && (GL_AUTHOR!=yyvsp[0].ltrp) && s &&
  1867.         (strcmp(STRING(GL_AUTHOR),s)))
  1868.        yyerror("Incorrect user identifier");
  1869.      else
  1870.        GL_AUTHOR=yyvsp[0].ltrp;
  1871.    } ;
  1872.     break;}
  1873. case 90:
  1875. {
  1876.       register TXTREF c,d;
  1877.       d=gen_up_node(DECL_CURS,join_list(yyvsp[-1].node,yyvsp[0].node),yylsp[-5]);
  1878.       STMT_VCB(d)=LOCAL_VCB_ROOT;
  1879.       SetF_TRN(d,HAS_VCB_F);
  1880.       LOCAL_VCB_ROOT = TNULL;
  1881.       d=gen_up_node(CUR_AREA,d,yylsp[-5]);
  1882.       add_statement(d);
  1884.       c=gen_node(CURSOR);
  1885.       CUR_DECL(c)=d;
  1886.       CUR_NAME(c)=yyvsp[-4].ltrp;
  1887.       STMT_VCB(d)=c;
  1889.       if(find_info(CURSOR,CUR_NAME(c)))
  1890.         {
  1891.           char cn[512];
  1892.           lperror("Static cursor name '%s' redeclaration",STRING(CUR_NAME(c)));
  1893.           sprintf(cn,"%s_1",STRING(CUR_NAME(c)));
  1894.           CUR_NAME(c) = ltr_rec(cn);
  1895.         }
  1896.       add_info(c);
  1897.       yyval.code=0;
  1898.     ;
  1899.     break;}
  1900. case 91:
  1902. {
  1903.       emit_module_proc(yyvsp[-3].node,yyvsp[-4].ltrp);
  1904.       free_line(yyvsp[-3].node);
  1905.       yyval.code=0;
  1906.     ;
  1907.     break;}
  1908. case 92:
  1910. {
  1911.       emit_module_proc(LOCAL_VCB_ROOT,yyvsp[-3].ltrp);
  1912.       yyval.code=0;
  1913.     ;
  1914.     break;}
  1915. case 93:
  1917. {
  1918.       YYERROK;
  1919.       yyerror("Error in procedure's body");
  1920.     ;
  1921.     break;}
  1922. case 94:
  1924. {
  1925.       YYERROK;
  1926.       yyerror("Error in procedure's body");
  1927.     ;
  1928.     break;}
  1929. case 95:
  1931. {
  1932.       YYERROK;
  1933.       yyerror("Error in procedure's title");
  1934.     ;
  1935.     break;}
  1936. case 96:
  1938. {
  1939.       YYERROK;
  1940.       yyerror("Error: unexpected ';' found before procedure title");
  1941.     ;
  1942.     break;}
  1943. case 97:
  1945. { yyval.node = TNULL;;
  1946.     break;}
  1947. case 98:
  1949. { yyval.node = gen_up_node (ORDER, yyvsp[0].node, yylsp[-2]); ;
  1950.     break;}
  1951. case 99:
  1953. { yyval.node=yyvsp[0].node;;
  1954.     break;}
  1955. case 100:
  1957. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  1958.     break;}
  1959. case 101:
  1961. {
  1962.       if(yyvsp[0].code)SetF_TRN(yyvsp[-1].node,DESC_F);
  1963.       yyval.node=yyvsp[-1].node;
  1964.     ;
  1965.     break;}
  1966. case 102:
  1968. { register TXTREF n=gen_object(SORT_POS,yylsp[0]);
  1969.       SORT_IND(n)= atol(STRING(CNST_NAME(yyvsp[0].node))) - 1;
  1970.       free_node(yyvsp[0].node);
  1971.       yyval.node=n;
  1972.     ;
  1973.     break;}
  1974. case 103:
  1976. {
  1977.       register TXTREF s=gen_node(SORT_COL);
  1978.       SORT_CLM(s)=yyvsp[0].node;
  1979.       yyval.node=s;
  1980.     ;
  1981.     break;}
  1982. case 104:
  1984. { yyval.code=0; ;
  1985.     break;}
  1986. case 105:
  1988. { yyval.code=0; ;
  1989.     break;}
  1990. case 106:
  1992. { yyval.code=1; ;
  1993.     break;}
  1994. case 107:
  1996. { yyval.node=yyvsp[0].node;              ;
  1997.     break;}
  1998. case 108:
  2000. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  2001.     break;}
  2002. case 109:
  2004. {
  2005.      register TXTREF n;
  2006.      n=get_param(yyvsp[-1].ltrp,0,yylsp[-1]);
  2007.      if(!n)
  2008.        yyfatal("can`t add parameter");
  2009.      if(TstF_TRN(n,CHECKED_F))
  2010.        yyval.node = TNULL;
  2011.      else
  2012.        {
  2013.          PAR_STYPE(n)=yyvsp[0].type;
  2014.          SetF_TRN(n,CHECKED_F);
  2015.          n=copy_trn(n);
  2016.          RIGHT_TRN(n)=0;
  2017.          ClrF_TRN(n,VCB_F);
  2018.          yyval.node=n;
  2019.        }
  2020.    ;
  2021.     break;}
  2022. case 110:
  2024. {
  2025.      register TXTREF n;
  2026.      n=get_param(ltr_rec("SQLCODEP"),0,yylsp[0]);
  2027.      if(!n)
  2028.        yyfatal("can`t add parameter");
  2029.      if(TstF_TRN(n,CHECKED_F))
  2030.        yyval.node = TNULL;
  2031.      else
  2032.        {
  2033.          PAR_STYPE(n)=pack_type(SQLType_Int,0,0);
  2034.          SetF_TRN(n,CHECKED_F);
  2035.          SetF_TRN(n,OUT_F);
  2036.          n=copy_trn(n);
  2037.          RIGHT_TRN(n)=0;
  2038.          ClrF_TRN(n,VCB_F);
  2039.          yyval.node=n;
  2040.        }
  2041.    ;
  2042.     break;}
  2043. case 111:
  2045. {
  2046.       register TXTREF u=yyvsp[0].node;
  2047.       if(subquery)
  2048.         fprintf(stderr,
  2049.                 "Internal warning parse.y: Subquery flag not processedn");
  2050.       subquery=0;
  2051.       if (u != FICTIVE_NODE)
  2052.         {
  2053.           if (u)
  2054.             {
  2055.               STMT_VCB(u)=LOCAL_VCB_ROOT;
  2056.               add_statement(u);
  2057.               emit_call(LOCAL_VCB_ROOT,STMT_UID(u),0);
  2058.               del_local_vcb=0;
  2059.             }
  2060.           else
  2061.             {
  2062.               yyval.node = TNULL;
  2063.               /* dummy operator */
  2064.             }
  2065.         }
  2066.       yyval.node=yyvsp[0].node;
  2067.     ;
  2068.     break;}
  2069. case 121:
  2071. {
  2072.       if(!yyvsp[0].node)
  2073.         yyval.node = TNULL;
  2074.       else
  2075.         {
  2076.           emit_call (TNULL, STMT_UID(CUR_DECL(yyvsp[0].node)), 2);
  2077.           yyval.node=FICTIVE_NODE;
  2078.           del_local_vcb=1;
  2079.         }
  2080.     ;
  2081.     break;}
  2082. case 122:
  2084. {
  2085.       dyn_sql_section_id = -2; /* !! */
  2086.       del_local_vcb=1;
  2087.       emit_call (TNULL,dyn_sql_section_id,2);
  2088.       yyval.node=FICTIVE_NODE;
  2089.     ;
  2090.     break;}
  2091. case 123:
  2093. {
  2094.       register TXTREF u=yyvsp[-1].node;
  2095.       u=gen_up_node(DELETE,u,yylsp[-3]);
  2096.       add_child(u,yyvsp[0].node);
  2097.       yyval.node=u;
  2098.     ;
  2099.     break;}
  2100. case 124:
  2102. {
  2103.       yyval.node = TNULL;
  2104.       if(yyvsp[0].node)
  2105.         {
  2106.           register TXTREF c,d;
  2107.           c = yyvsp[0].node;
  2108.           emit_call(LOCAL_VCB_ROOT,STMT_UID(CUR_DECL(c)),3);
  2109.           d = gen_up_node (DELETE, TNULL, yylsp[-1]);
  2110.           UPD_CURS(d) = c;
  2111.           STMT_VCB(d) = LOCAL_VCB_ROOT;
  2112.           LOCAL_VCB_ROOT = TNULL;
  2113.           add_statement(d);
  2114.           yyval.node = FICTIVE_NODE;
  2115.         }
  2116.       else
  2117.         {
  2118.           free_tree(yyvsp[0].node);
  2119.           FREE_VCB;
  2120.         }
  2121.     ;
  2122.     break;}
  2123. case 125:
  2125. {
  2126.       yyval.node = TNULL;
  2127.       if(yyvsp[0].node)
  2128.         {
  2129.           register TXTREF c,d;
  2130.           c = yyvsp[0].node;
  2131.           emit_call(LOCAL_VCB_ROOT,STMT_UID(CUR_DECL(c)),3);
  2132.           d = gen_up_node (DELETE, yyvsp[-1].node, yylsp[-3]);
  2133.           UPD_CURS(d) = c;
  2134.           STMT_VCB(d) = LOCAL_VCB_ROOT;
  2135.           LOCAL_VCB_ROOT = TNULL;
  2136.           add_statement(d);
  2137.           yyval.node = FICTIVE_NODE;
  2138.         }
  2139.       else
  2140.         {
  2141.           free_tree(yyvsp[-1].node);
  2142.           FREE_VCB;
  2143.         }
  2144.     ;
  2145.     break;}
  2146. case 126:
  2148. {
  2149.       yyval.node = TNULL;
  2150.       if(yyvsp[-2].node)
  2151.         {
  2152.           register TXTREF u;
  2153.           yyval.node=FICTIVE_NODE;
  2154.           u=gen_object(FETCH,yylsp[-3]);
  2155.           STMT_VCB(u)=LOCAL_VCB_ROOT;
  2156.           SetF_TRN(u,HAS_VCB_F);
  2157.           STMT_UID(u) = ARITY_TRN(CUR_DECL(yyvsp[-2].node));
  2158.           add_child(CUR_DECL(yyvsp[-2].node),u);
  2159.           emit_call(LOCAL_VCB_ROOT,STMT_UID(CUR_DECL(yyvsp[-2].node)),1);
  2160.           LOCAL_VCB_ROOT = TNULL;
  2161.         }
  2162.       free_line(yyvsp[0].node);
  2163.       if (yyval.node == TNULL)
  2164.         {
  2165.           FREE_VCB;
  2166.         }
  2167.     ;
  2168.     break;}
  2169. case 127:
  2171. {
  2172.        register TXTREF i;
  2173.        i=gen_object(INSERT,yylsp[-4]);
  2174.        add_child(i,yyvsp[-2].node);
  2175.        if(yyvsp[-1].node)
  2176.          {
  2177.            add_child(i,gen_parent(INTO,yyvsp[-1].node));
  2178.            SetF_TRN(i,COLUMNS_F);
  2179.          }
  2180.        add_child(i,yyvsp[0].node);
  2181.        if(CODE_TRN(yyvsp[0].node)==QUERY)SetF_TRN(i,QUERY_F);
  2182.        yyval.node=i;
  2183.      ;
  2184.     break;}
  2185. case 128:
  2187. { yyval.node=gen_up_node(IVALUES,yyvsp[-1].node,yylsp[-3]); ;
  2188.     break;}
  2189. case 129:
  2191. { yyval.node=yyvsp[0].node;;
  2192.     break;}
  2193. case 130:
  2195. { yyval.node=yyvsp[0].node;;
  2196.     break;}
  2197. case 131:
  2199. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  2200.     break;}
  2201. case 132:
  2203. { yyval.node=yyvsp[0].node;  ;
  2204.     break;}
  2205. case 133:
  2207. {
  2208.      if(!yyvsp[0].node)
  2209.        yyval.node = TNULL;
  2210.      else
  2211.        {
  2212.          register TXTREF u=yyvsp[0].node,v;
  2213.          register TXTREF vcb=LOCAL_VCB_ROOT;
  2214.          u=STMT_VCB (DOWN_TRN (CUR_DECL(u)));
  2215.          LOCAL_VCB_ROOT=u;
  2216.          for(v=vcb;v;v=RIGHT_TRN(v))
  2217.            if(CODE_TRN(v)==PARAMETER)
  2218.              {
  2219.                u=find_info(PARAMETER,PAR_NAME(v));
  2220.                if(!u)
  2221.                  continue;
  2222.                if(PAR_STYPE(u).code==0)
  2223.                  PAR_STYPE(u)=PAR_STYPE(v);
  2224.                else if (PAR_STYPE(u).code!=PAR_STYPE(v).code)
  2225.                  yyerror("Error: Mismath operand types");
  2226.              }
  2227.          emit_call(LOCAL_VCB_ROOT,STMT_UID(CUR_DECL(yyvsp[0].node)),0);
  2228.          LOCAL_VCB_ROOT=vcb;
  2229.          yyval.node=FICTIVE_NODE;
  2230.          del_local_vcb=1;
  2231.        }
  2232.    ;
  2233.     break;}
  2234. case 134:
  2236. {
  2237.      yyval.node=FICTIVE_NODE;
  2238.      dyn_sql_section_id = -1; /* !! */
  2239.      emit_call (TNULL,dyn_sql_section_id,0);
  2240.      del_local_vcb=1;
  2241.     ;
  2242.     break;}
  2243. case 135:
  2245. {
  2246.       register TXTREF S=gen_object(SELECT,yylsp[-5]),s=yyvsp[-3].node,t;
  2247.       t=gen_up_node(INTO,yyvsp[-1].node,yylsp[-2]);
  2248.       MASK_TRN(S)  = MASK_TRN(yyvsp[0].node);
  2249.       DOWN_TRN(S)  = DOWN_TRN(yyvsp[0].node);
  2250.       ARITY_TRN(S) = ARITY_TRN(yyvsp[0].node);
  2251.       free_node(yyvsp[0].node);
  2252.       if(yyvsp[-4].code)SetF_TRN(S,DISTINCT_F);
  2253.       RIGHT_TRN(t)=RIGHT_TRN(DOWN_TRN(S));      /* insert after from */
  2254.       RIGHT_TRN(s)=t;
  2255.       RIGHT_TRN(DOWN_TRN(S))=s;
  2256.       ARITY_TRN(S)+=2;
  2257.       yyval.node=S;
  2258.     ;
  2259.     break;}
  2260. case 136:
  2262. { yyval.code=0;;
  2263.     break;}
  2264. case 137:
  2266. { yyval.code=1;;
  2267.     break;}
  2268. case 138:
  2270. {
  2271.       register TXTREF u=
  2272.        join_list(join_list(yyvsp[-3].node,gen_parent(ASSLIST,yyvsp[-1].node)),yyvsp[0].node);
  2273.       yyval.node=gen_up_node(UPDATE,u,yylsp[-4]);
  2274.     ;
  2275.     break;}
  2276. case 139:
  2278. {
  2279.       register TXTREF u = TNULL;
  2280.       if (yyvsp[0].node)
  2281.         {
  2282.           u=gen_up_node(UPDATE,join_list(yyvsp[-3].node,
  2283.                                          gen_parent(ASSLIST,yyvsp[-1].node)),yylsp[-4]);
  2284.           UPD_CURS(u)=yyvsp[0].node;
  2285.           SetF_TRN(yyvsp[0].node,CURS_UPD_F);
  2286.         }
  2287.       yyval.node=u;
  2288.     ;
  2289.     break;}
  2290. case 140:
  2292. { yyval.node=yyvsp[0].node;;
  2293.     break;}
  2294. case 141:
  2296. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  2297.     break;}
  2298. case 142:
  2300. {
  2301.       yyval.node=gen_up_node(ASSIGN,
  2302.                   join_list(gen_column(NULL,yyvsp[-2].ltrp,yylsp[-2]),yyvsp[0].node),
  2303.                            yylsp[-1]);
  2304.     ;
  2305.     break;}
  2306. case 143:
  2308. { yyval.node=yyvsp[0].node;  ;
  2309.     break;}
  2310. case 144:
  2312. { yyval.node=yyvsp[0].node;  ;
  2313.     break;}
  2314. case 145:
  2316. { yyval.node=gen_object(NULL_VL,yylsp[0]);  ;
  2317.     break;}
  2318. case 146:
  2320. { yyval.node=yyvsp[0].node; ;
  2321.     break;}
  2322. case 147:
  2324. {
  2325.       register TXTREF n=yyvsp[-3].node;
  2326.       if ( (CODE_TRN(n)==UNION) && ((yyvsp[-1].code==0) || TstF_TRN(n,ALL_F) ))
  2327.         {
  2328.           add_child(n,yyvsp[0].node);
  2329.           if(yyvsp[-1].code==0)
  2330.             ClrF_TRN(n,ALL_F);
  2331.         }
  2332.       else
  2333.         {
  2334.           n=gen_up_node(UNION,join_list(yyvsp[-3].node,yyvsp[0].node),yylsp[-2]);
  2335.           if(yyvsp[-1].code > 0)
  2336.             SetF_TRN(n,ALL_F);
  2337.         }
  2338.       yyval.node=n;
  2339.     ;
  2340.     break;}
  2341. case 148:
  2343. { yyval.node=yyvsp[0].node; ;
  2344.     break;}
  2345. case 149:
  2347. { yyval.node=yyvsp[-1].node; ;
  2348.     break;}
  2349. case 150:
  2351. { yyval.node=yyvsp[-1].node; ;
  2352.     break;}
  2353. case 151:
  2355. {
  2356.       register TXTREF q=yyvsp[0].node,s=yyvsp[-1].node;
  2357.       set_location(q,yylsp[-3]);
  2358.       CODE_TRN(q)=QUERY;
  2359.       if(yyvsp[-2].code)SetF_TRN(q,DISTINCT_F);
  2360.       RIGHT_TRN(s)=RIGHT_TRN(DOWN_TRN(q));     /* insert after from */
  2361.       RIGHT_TRN(DOWN_TRN(q))=s;
  2362.       ARITY_TRN(q)++;
  2363.       yyval.node=q;
  2364.     ;
  2365.     break;}
  2366. case 152:
  2368. {
  2369.       yyval.node=gen_parent(SELECTION,yyvsp[0].node);
  2370.     ;
  2371.     break;}
  2372. case 153:
  2374. {
  2375.       yyval.node=gen_parent(SELECTION,gen_object(STAR,yylsp[0]));
  2376.     ;
  2377.     break;}
  2378. case 154:
  2380. { yyval.node=yyvsp[0].node;;
  2381.     break;}
  2382. case 155:
  2384. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  2385.     break;}
  2386. case 156:
  2388. {
  2389.       register TXTREF tbl;
  2390.       tbl=gen_parent(TBLEXP,join_list(
  2391.                               join_list(
  2392.                                 join_list(yyvsp[-3].node,yyvsp[-2].node),
  2393.                                 yyvsp[-1].node),
  2394.                               yyvsp[0].node));
  2395.       if(yyvsp[-2].node)SetF_TRN(tbl,WHERE_F);
  2396.       if(yyvsp[-1].node)SetF_TRN(tbl,GROUP_F);
  2397.       if(yyvsp[0].node)SetF_TRN(tbl,HAVING_F);
  2398.       if(subquery)SetF_TRN(tbl,SUBQUERY_F);
  2399.       subquery=0;
  2400.       yyval.node=tbl;
  2401.     ;
  2402.     break;}
  2403. case 157:
  2405. {
  2406.       yyval.node=gen_up_node(FROM,yyvsp[0].node,yylsp[-1]);
  2407.     ;
  2408.     break;}
  2409. case 158:
  2411. { yyval.node=yyvsp[0].node;;
  2412.     break;}
  2413. case 159:
  2415. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  2416.     break;}
  2417. case 160:
  2419. {
  2420.       yyval.node = gen_scanptr (yyvsp[-1].node, yyvsp[0].ltrp, yylsp[0]);
  2421.     ;
  2422.     break;}
  2423. case 161:
  2425. {
  2426.       yyval.node = gen_scanptr (yyvsp[0].node, (LTRLREF) NULL, tblnm.p);
  2427.     ;
  2428.     break;}
  2429. case 162:
  2431. { yyval.node = TNULL;    ;
  2432.     break;}
  2433. case 163:
  2435. { yyval.node = yyvsp[0].node;;
  2436.     break;}
  2437. case 164:
  2439. {
  2440.       yyval.node=gen_up_node(WHERE,yyvsp[0].node,yylsp[-1]);
  2441.     ;
  2442.     break;}
  2443. case 165:
  2445. { yyval.node=yyvsp[0].node; ;
  2446.     break;}
  2447. case 166:
  2449. {
  2450.       register TXTREF cursor=find_info(CURSOR,yyvsp[0].ltrp);
  2451.       if(!cursor)
  2452.         lperror("Cursor name '%s' not  found ",STRING(yyvsp[0].ltrp));
  2453.       yyval.node=cursor;
  2454.     ;
  2455.     break;}
  2456. case 167:
  2458. { yyval.node = TNULL;    ;
  2459.     break;}
  2460. case 168:
  2462. {
  2463.       yyval.node = gen_up_node (GROUP, yyvsp[0].node, yylsp[-2]);
  2464.     ;
  2465.     break;}
  2466. case 169:
  2468. { yyval.node = TNULL;    ;
  2469.     break;}
  2470. case 170:
  2472. {
  2473.       yyval.node = gen_up_node (HAVING, yyvsp[0].node, yylsp[-1]);
  2474.     ;
  2475.     break;}
  2476. case 171:
  2478. { yyval.node=yyvsp[0].node; ;
  2479.     break;}
  2480. case 172:
  2482. { yyval.node=yyvsp[-1].node; ;
  2483.     break;}
  2484. case 173:
  2486. { yyval.node=gen_oper(OR,yyvsp[-2].node,yyvsp[0].node,yylsp[-1]); ;
  2487.     break;}
  2488. case 174:
  2490. { yyval.node=gen_oper(AND,yyvsp[-2].node,yyvsp[0].node,yylsp[-1]); ;
  2491.     break;}
  2492. case 175:
  2494. {
  2495.       TXTREF n=gen_node(NOT);
  2496.       set_location(n,yylsp[-1]);
  2497.       FUNC_OBJ(n)=yyvsp[0].node;
  2498.       ARITY_TRN(n)=1;
  2499.       yyval.node=n;
  2500.     ;
  2501.     break;}
  2502. case 176:
  2504. {
  2505.       yyval.node=TNULL;
  2506.       YYERROK;
  2507.       yyerror("error in condition");
  2508.     ;
  2509.     break;}
  2510. case 177:
  2512. {
  2513.       yyval.node=TNULL;
  2514.       YYERROK;
  2515.       yyerror("error in condition");
  2516.     ;
  2517.     break;}
  2518. case 178:
  2520. {
  2521.       yyval.node=TNULL;
  2522.       YYERROK;
  2523.       yyerror("error in condition");
  2524.     ;
  2525.     break;}
  2526. case 179:
  2528. {
  2529.       yyval.node=gen_up_node(EXISTS,yyvsp[0].node,yylsp[-1]);
  2530.     ;
  2531.     break;}
  2532. case 180:
  2534. {
  2535.       yyval.node=gen_up_node((yyvsp[-1].code?ISNOTNULL:ISNULL),
  2536.                            coltar_column(yyvsp[-3].node),yylsp[-2]);
  2537.     ;
  2538.     break;}
  2539. case 181:
  2541. {
  2542.       register TXTREF b;
  2543.       b=gen_up_node(BETWEEN,join_list(join_list(yyvsp[-5].node,yyvsp[-2].node),
  2544.                                       yyvsp[0].node),yylsp[-3]);
  2545.       if (yyvsp[-4].code)
  2546.         b=gen_parent(NOT,b);
  2547.       yyval.node=b;
  2548.     ;
  2549.     break;}
  2550. case 182:
  2552. {
  2553.       register TXTREF l;
  2554.       l=gen_up_node(LIKE,join_list(join_list(coltar_column(yyvsp[-4].node),
  2555.                                              yyvsp[-1].node),yyvsp[0].node),yylsp[-2]);
  2556.       if ( yyvsp[-3].code)
  2557.         l = gen_parent(NOT,l);
  2558.       yyval.node=l;
  2559.     ;
  2560.     break;}
  2561. case 183:
  2563. {
  2564.       register TXTREF i;
  2565.       i = gen_up_node(IN,join_list(yyvsp[-3].node,yyvsp[0].node),yylsp[-1]);
  2566.       if ( yyvsp[-2].code)
  2567.         i = gen_parent(NOT,i);
  2568.       yyval.node=i;
  2569.     ;
  2570.     break;}
  2571. case 184:
  2573. {
  2574.       TXTREF c = yyvsp[0].node;
  2575.       if (CODE_TRN(c) == NE)  /* quantified subquery */
  2576.         {
  2577.           CODE_TRN(c) = yyvsp[-1].code;
  2578.           DOWN_TRN(c) = join_list(yyvsp[-2].node,DOWN_TRN(c));
  2579.           yyval.node = c;
  2580.         }
  2581.       else
  2582.         yyval.node=gen_up_node(yyvsp[-1].code,join_list(yyvsp[-2].node,c),yylsp[-1]);
  2583.     ;
  2584.     break;}
  2585. case 185:
  2587. { yyval.node=yyvsp[0].node; ;
  2588.     break;}
  2589. case 186:
  2591. { yyval.node=yyvsp[0].node; ;
  2592.     break;}
  2593. case 187:
  2595. {
  2596.       register TXTREF c = yyvsp[0].node;
  2597.       c=gen_parent(NE,c);
  2598.       SetF_TRN(c,QUANTIF_F);
  2599.       if(yyvsp[-1].code==2) SetF_TRN(c,SOME_F);
  2600.       yyval.node=c;
  2601.     ;
  2602.     break;}
  2603. case 188:
  2605. { yyval.code=EQU; ;
  2606.     break;}
  2607. case 189:
  2609. { yyval.code=NE;  ;
  2610.     break;}
  2611. case 190:
  2613. { yyval.code=LT;  ;
  2614.     break;}
  2615. case 191:
  2617. { yyval.code=GT;  ;
  2618.     break;}
  2619. case 192:
  2621. { yyval.code=LE;  ;
  2622.     break;}
  2623. case 193:
  2625. { yyval.code=GE;  ;
  2626.     break;}
  2627. case 194:
  2629. { yyval.code=1; ;
  2630.     break;}
  2631. case 195:
  2633. { yyval.code=2; ;
  2634.     break;}
  2635. case 196:
  2637. { yyval.code=2; ;
  2638.     break;}
  2639. case 197:
  2641. { yyval.code=0; ;
  2642.     break;}
  2643. case 198:
  2645. { yyval.code=1; ;
  2646.     break;}
  2647. case 199:
  2649. { yyval.node = TNULL; ;
  2650.     break;}
  2651. case 200:
  2653. { yyval.node = yyvsp[0].node; ;
  2654.     break;}
  2655. case 201:
  2657. { yyval.node=yyvsp[0].node;;
  2658.     break;}
  2659. case 202:
  2661. { yyval.node=gen_parent(VALUES,yyvsp[-1].node); ;
  2662.     break;}
  2663. case 203:
  2665. {
  2666.       yyval.node=TNULL;
  2667.       YYERROK;
  2668.       yyerror("error in IN predicate list" );
  2669.     ;
  2670.     break;}
  2671. case 204:
  2673. { yyval.node=yyvsp[0].node;;
  2674.     break;}
  2675. case 205:
  2677. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node);;
  2678.     break;}
  2679. case 206:
  2681. {
  2682.       register TXTREF sq=yyvsp[-1].node,s=yyvsp[-2].node;
  2683.       set_location(sq,yylsp[-5]);
  2684.       CODE_TRN(sq)=SUBQUERY;
  2685.       if(yyvsp[-3].code)SetF_TRN(sq,DISTINCT_F);
  2686.       RIGHT_TRN(s)=RIGHT_TRN(DOWN_TRN(sq));     /* insert after from */
  2687.       RIGHT_TRN(DOWN_TRN(sq))=s;
  2688.       ARITY_TRN(sq)++;
  2689.       subquery=1;
  2690.       yyval.node=sq;
  2691.     ;
  2692.     break;}
  2693. case 207:
  2695. { 
  2696.      yyerror("Error in subquery: skipped to ')'");
  2697.      yyval.node = TNULL; 
  2698.    ;
  2699.     break;}
  2700. case 208:
  2702. {
  2703.       yyval.node=gen_parent(RESULT,yyvsp[0].node);
  2704.     ;
  2705.     break;}
  2706. case 209:
  2708. {
  2709.       yyval.node=gen_parent(RESULT,gen_object(STAR,yylsp[0]));
  2710.     ;
  2711.     break;}
  2712. case 210:
  2714. { yyval.code=0; ;
  2715.     break;}
  2716. case 211:
  2718. { yyval.code=1; ;
  2719.     break;}
  2720. case 212:
  2722. { yyval.node=yyvsp[0].node; ;
  2723.     break;}
  2724. case 213:
  2726. { yyval.node=yyvsp[-1].node; ;
  2727.     break;}
  2728. case 214:
  2730. { yyval.node=gen_oper(ADD,yyvsp[-2].node,yyvsp[0].node,yylsp[-1]); ;
  2731.     break;}
  2732. case 215:
  2734. { yyval.node=gen_oper(SUB,yyvsp[-2].node,yyvsp[0].node,yylsp[-1]); ;
  2735.     break;}
  2736. case 216:
  2738. { yyval.node=gen_oper(MULT,yyvsp[-2].node,yyvsp[0].node,yylsp[-1]); ;
  2739.     break;}
  2740. case 217:
  2742. { yyval.node=gen_oper(DIV,yyvsp[-2].node,yyvsp[0].node,yylsp[-1]); ;
  2743.     break;}
  2744. case 218:
  2746. {
  2747.       TXTREF n=yyvsp[-1].node;
  2748.       if(!n)
  2749.         yyval.node=yyvsp[0].node;
  2750.       else
  2751.         if(CODE_TRN(yyvsp[0].node)==UMINUS)
  2752.           {
  2753.             yyval.node=FUNC_OBJ(yyvsp[0].node);
  2754.             free_node(yyvsp[0].node);     /* double minus elimination */
  2755.             free_node(yyvsp[-1].node);
  2756.           }
  2757.         else
  2758.           {
  2759.             FUNC_OBJ(n)=yyvsp[0].node;
  2760.             ARITY_TRN(n)=1;
  2761.             yyval.node=n;
  2762.           }
  2763.     ;
  2764.     break;}
  2765. case 219:
  2767. {   yyval.node = TNULL;           ;
  2768.     break;}
  2769. case 220:
  2771. {   yyval.node = gen_object (UMINUS, yylsp[0]); ;
  2772.     break;}
  2773. case 221:
  2775. { yyval.node=yyvsp[0].node; ;
  2776.     break;}
  2777. case 222:
  2779. { yyval.node=yyvsp[0].node; ;
  2780.     break;}
  2781. case 223:
  2783. { yyval.node=yyvsp[0].node; ;
  2784.     break;}
  2785. case 224:
  2787. {  yyval.node=gen_object(USERNAME,yylsp[0]); ;
  2788.     break;}
  2789. case 225:
  2791. { yyval.node=yyvsp[0].node; ;
  2792.     break;}
  2793. case 226:
  2795. { yyval.node=yyvsp[0].node; ;
  2796.     break;}
  2797. case 227:
  2799. {
  2800.       TXTREF n = yyvsp[-1].node;
  2801.       if ( ! n )
  2802.         yyval.node = yyvsp[0].node;
  2803.       else
  2804.         {
  2805.           char *s;
  2806.           i4_t  l;
  2807.           free_node (n);
  2808.           yyval.node = n = yyvsp[0].node;
  2809.           l = strlen (STRING (CNST_NAME (n))) + 2;
  2810.           s = xmalloc (l);
  2811.           strcpy (s, "-");
  2812.           strcat (s, STRING(CNST_NAME(n)));
  2813.           CNST_NAME (n) = ltr_rec (s);
  2814.           xfree (s);
  2815.         }
  2816.     ;
  2817.     break;}
  2818. case 228:
  2820. {  yyval.node = gen_object(USERNAME,yylsp[0]); ;
  2821.     break;}
  2822. case 229:
  2824. {
  2825.       yyval.node=gen_func(COUNT,yylsp[-3], TNULL,0);
  2826.     ;
  2827.     break;}
  2828. case 230:
  2830. {
  2831.       yyval.node=gen_func(COUNT,yylsp[-4],yyvsp[-1].node,1);
  2832.     ;
  2833.     break;}
  2834. case 231:
  2836. {
  2837.       yyval.node=gen_func(yyvsp[-4].code,yylsp[-4],yyvsp[-1].node,1);
  2838.     ;
  2839.     break;}
  2840. case 232:
  2842. {
  2843.       yyval.node=gen_func(yyvsp[-4].code,yylsp[-4],yyvsp[-1].node,0);
  2844.     ;
  2845.     break;}
  2846. case 233:
  2848. { yyval.code=AVG; ;
  2849.     break;}
  2850. case 234:
  2852. { yyval.code=MAX; ;
  2853.     break;}
  2854. case 235:
  2856. { yyval.code=MIN; ;
  2857.     break;}
  2858. case 236:
  2860. { yyval.code=SUM; ;
  2861.     break;}
  2862. case 237:
  2864. { yyval.node=yyvsp[0].node; ;
  2865.     break;}
  2866. case 238:
  2868. { yyval.node=yyvsp[0].node; ;
  2869.     break;}
  2870. case 239:
  2872. { yyval.node=yyvsp[0].node; ;
  2873.     break;}
  2874. case 240:
  2876. { yyval.node=yyvsp[0].node; ;
  2877.     break;}
  2878. case 241:
  2880. { yyval.type=pack_type(SQLType_Char,1,0);                        ;
  2881.     break;}
  2882. case 242:
  2884. { yyval.type=pack_type(SQLType_Short,5,0);                       ;
  2885.     break;}
  2886. case 243:
  2888. { yyval.type=pack_type(SQLType_Int,10,0);                        ;
  2889.     break;}
  2890. case 244:
  2892. { yyval.type=pack_type(SQLType_Real,0,0);                        ;
  2893.     break;}
  2894. case 245:
  2896. { yyval.type=pack_type(SQLType_Double,0,0);                      ;
  2897.     break;}
  2898. case 246:
  2900. { yyval.type=pack_type(SQLType_Double,0,0);                      ;
  2901.     break;}
  2902. case 247:
  2904. { yyval.type=pack_type(SQLType_Float,atol(STRING(CNST_NAME(yyvsp[-1].node))),0);  ;
  2905.     break;}
  2906. case 248:
  2908. { yyval.type=pack_type(SQLType_Real,0,0);  ;
  2909.     break;}
  2910. case 249:
  2912. { yyval.type=pack_type(SQLType_Char,atol(STRING(CNST_NAME(yyvsp[-1].node))),0);   ;
  2913.     break;}
  2914. case 250:
  2916. { yyval.type=pack_type(SQLType_Int,0,0);    ;
  2917.     break;}
  2918. case 251:
  2920. { yyval.type=pack_type(SQLType_Num,atol(STRING(CNST_NAME(yyvsp[-1].node))),0);    ;
  2921.     break;}
  2922. case 252:
  2924. { yyval.type=pack_type(SQLType_Num,atol(STRING(CNST_NAME(yyvsp[-3].node))),
  2925.                            atol(STRING(CNST_NAME(yyvsp[-1].node))));
  2926.      ;
  2927.     break;}
  2928. case 253:
  2930. {
  2931.        TXTREF n;
  2932.        if(!tblnm.a)
  2933.          tblnm.a=GL_AUTHOR;
  2934.        n = find_table (ANY_TBL, tblnm.a, tblnm.n);
  2935.        if (n)
  2936.          {
  2937.            yyerror ("Error: Duplicate table name definitionn");
  2938.            yyval.node = TNULL;
  2939.          }
  2940.        else
  2941.          {
  2942.            n = gen_node (ANY_TBL);
  2943.            /* SetF_TRN(n,CHECKED_F); */
  2944.            /* table hasn't  not already defined yet */
  2945.            TBL_FNAME (n) = tblnm.a;
  2946.            TBL_NAME (n) = tblnm.n;
  2947.            add_info (n);
  2948.            yyval.node = new_table = n;
  2949.    new_table_col_no = 0;
  2950.          }
  2951.      ;
  2952.     break;}
  2953. case 254:
  2955. {
  2956.        TXTREF n;
  2957.        if (!tblnm.a)
  2958.          tblnm.a=GL_AUTHOR;
  2959.        n = find_table (ANY_TBL, tblnm.a, tblnm.n);
  2960.        if (!n)
  2961.          {
  2962.            n = gen_node (ANY_TBL);
  2963.            TBL_FNAME (n) = tblnm.a;
  2964.            TBL_NAME (n) = tblnm.n;
  2965.            add_info (n);
  2966.          }
  2967.        yyval.node = n;
  2968.      ;
  2969.     break;}
  2970. case 255:
  2972. {
  2973.        yyval.node = gen_scanptr (yyvsp[0].node, (LTRLREF) NULL, tblnm.p);
  2974.      ;
  2975.     break;}
  2976. case 256:
  2978. { /*  user_identifier.tablename  or correlation name */
  2979.       tblnm.a  = (LTRLREF) NULL;
  2980.       tblnm.n  = yyvsp[0].ltrp;
  2981.       tblnm.p  = yylsp[0];
  2982.       yyval.code = 0;
  2983.     ;
  2984.     break;}
  2985. case 257:
  2987. { /* authorization.tablename */
  2988.       tblnm.a  = yyvsp[-2].ltrp;
  2989.       tblnm.n  = yyvsp[0].ltrp;
  2990.       tblnm.p  = yylsp[-2];
  2991.       yyval.code = 0;
  2992.     ;
  2993.     break;}
  2994. case 258:
  2996. { yyval.node = yyvsp[0].node;                     ;
  2997.     break;}
  2998. case 259:
  3000. { yyval.node = join_list(yyvsp[-2].node,yyvsp[0].node); ;
  3001.     break;}
  3002. case 260:
  3004. {  yyval.node=gen_column(NULL,yyvsp[0].ltrp,yylsp[0]);  ;
  3005.     break;}
  3006. case 261:
  3008. { /*  user_identifier.tablename  or correlation name */
  3009.       tblnm.a  = (LTRLREF) NULL;
  3010.       tblnm.n  = yyvsp[-2].ltrp;
  3011.       tblnm.p  = yylsp[-2];
  3012.       yyval.node = gen_column (&tblnm, yyvsp[0].ltrp, yylsp[0]);
  3013.     ;
  3014.     break;}
  3015. case 262:
  3017. { /* authorization.tablename */
  3018.       tblnm.a  = yyvsp[-4].ltrp;
  3019.       tblnm.n  = yyvsp[-2].ltrp;
  3020.       tblnm.p  = yylsp[-4];
  3021.       yyval.node = gen_column (&tblnm, yyvsp[0].ltrp, yylsp[0]);
  3022.     ;
  3023.     break;}
  3024. case 263:
  3026. { yyval.node=yyvsp[0].node;                     ;
  3027.     break;}
  3028. case 264:
  3030. { yyval.node=join_list(yyvsp[-2].node,yyvsp[0].node); ;
  3031.     break;}
  3032. case 265:
  3034. {
  3035.       register TXTREF t=OBJ_DESC(yyvsp[0].node);
  3036.       SetF_TRN(t,OUT_F);
  3037.   if( !TstF_TRN(t,INDICATOR_F) && PAR_INDICATOR(t) != TNULL )
  3038.     SetF_TRN(PAR_INDICATOR(t),OUT_F);
  3039.       yyval.node=yyvsp[0].node;
  3040.     ;
  3041.     break;}
  3042. case 266:
  3044. {  yyval.node=get_parm_node(yyvsp[0].ltrp,yylsp[0],1);  ;
  3045.     break;}
  3046. case 267:
  3048. {  yyval.node=get_parm_node(yyvsp[0].ltrp,yylsp[0],0);  ;
  3049.     break;}
  3050. case 268:
  3052. {
  3053.       yyval.node=get_ind(get_param(yyvsp[-2].ltrp,1,yylsp[-2]),get_param(yyvsp[0].ltrp,1,yylsp[0]),yylsp[-1]);
  3054.     ;
  3055.     break;}
  3056. case 269:
  3058. {
  3059.       yyval.node=get_ind(get_param(yyvsp[-1].ltrp,1,yylsp[-1]),get_param(yyvsp[0].ltrp,1,yylsp[0]),yylsp[0]);
  3060.     ;
  3061.     break;}
  3062. case 270:
  3064. {
  3065.       yyval.node=get_ind(get_param(yyvsp[-2].ltrp,0,yylsp[-2]),get_param(yyvsp[0].ltrp,0,yylsp[0]),yylsp[-1]);
  3066.     ;
  3067.     break;}
  3068. case 271:
  3070. {
  3071.       yyval.node=get_ind(get_param(yyvsp[-1].ltrp,0,yylsp[-1]),get_param(yyvsp[0].ltrp,0,yylsp[0]),yylsp[0]);
  3072.     ;
  3073.     break;}
  3074. case 272:
  3076. {
  3077.        TXTREF n;
  3078.        n=find_info(PARAMETER,yyvsp[0].ltrp);
  3079.        if(n)
  3080.          yyval.node=get_parm_node(yyvsp[0].ltrp,yylsp[0],1);
  3081.        else
  3082.          yyval.node=gen_column(NULL,yyvsp[0].ltrp,yylsp[0]);
  3083.      ;
  3084.     break;}
  3085. case 273:
  3087. { /*  user_identifier.tablename  or correlation name */
  3088.       tblnm.a  = (LTRLREF) NULL;
  3089.       tblnm.n  = yyvsp[-2].ltrp;
  3090.       tblnm.p  = yylsp[-2];
  3091.       yyval.node = gen_column (&tblnm, yyvsp[0].ltrp, yylsp[0]);
  3092.     ;
  3093.     break;}
  3094. case 274:
  3096. { /* authorization.tablename */
  3097.       tblnm.a  = yyvsp[-4].ltrp;
  3098.       tblnm.n  = yyvsp[-2].ltrp;
  3099.       tblnm.p  = yylsp[-4];
  3100.       yyval.node = gen_column (&tblnm, yyvsp[0].ltrp, yylsp[0]);
  3101.     ;
  3102.     break;}
  3103. case 275:
  3105. { yyval.node=get_parm_node(yyvsp[0].ltrp,yylsp[0],0);     ;
  3106.     break;}
  3107. case 276:
  3109. {
  3110.        yyval.node=get_ind(get_param(yyvsp[-2].ltrp,1,yylsp[-2]),get_param(yyvsp[0].ltrp,1,yylsp[0]),yylsp[-1]);
  3111.      ;
  3112.     break;}
  3113. case 277:
  3115. {
  3116.        yyval.node=get_ind(get_param(yyvsp[-1].ltrp,1,yylsp[-1]),get_param(yyvsp[0].ltrp,1,yylsp[0]),yylsp[0]);
  3117.      ;
  3118.     break;}
  3119. case 278:
  3121. {
  3122.        yyval.node=get_ind(get_param(yyvsp[-2].ltrp,0,yylsp[-2]),get_param(yyvsp[0].ltrp,0,yylsp[0]),yylsp[-1]);
  3123.      ;
  3124.     break;}
  3125. case 279:
  3127. {
  3128.        yyval.node=get_ind(get_param(yyvsp[-1].ltrp,0,yylsp[-1]),get_param(yyvsp[0].ltrp,0,yylsp[0]),yylsp[0]);
  3129.      ;
  3130.     break;}
  3131. }
  3132.    /* the action file gets copied in in place of this dollarsign */
  3135.   yyvsp -= yylen;
  3136.   yyssp -= yylen;
  3137. #ifdef YYLSP_NEEDED
  3138.   yylsp -= yylen;
  3139. #endif
  3141. #if YYDEBUG != 0
  3142.   if (yydebug)
  3143.     {
  3144.       short *ssp1 = yyss - 1;
  3145.       fprintf (stderr, "state stack now");
  3146.       while (ssp1 != yyssp)
  3147. fprintf (stderr, " %d", *++ssp1);
  3148.       fprintf (stderr, "n");
  3149.     }
  3150. #endif
  3152.   *++yyvsp = yyval;
  3154. #ifdef YYLSP_NEEDED
  3155.   yylsp++;
  3156.   if (yylen == 0)
  3157.     {
  3158.       yylsp->first_line = yylloc.first_line;
  3159.       yylsp->first_column = yylloc.first_column;
  3160.       yylsp->last_line = (yylsp-1)->last_line;
  3161.       yylsp->last_column = (yylsp-1)->last_column;
  3162.       yylsp->text = 0;
  3163.     }
  3164.   else
  3165.     {
  3166.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  3167.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  3168.     }
  3169. #endif
  3171.   /* Now "shift" the result of the reduction.
  3172.      Determine what state that goes to,
  3173.      based on the state we popped back to
  3174.      and the rule number reduced by.  */
  3176.   yyn = yyr1[yyn];
  3178.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  3179.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  3180.     yystate = yytable[yystate];
  3181.   else
  3182.     yystate = yydefgoto[yyn - YYNTBASE];
  3184.   goto yynewstate;
  3186. yyerrlab:   /* here on detecting error */
  3188.   if (! yyerrstatus)
  3189.     /* If not already recovering from an error, report this error.  */
  3190.     {
  3191.       ++yynerrs;
  3193. #ifdef YYERROR_VERBOSE
  3194.       yyn = yypact[yystate];
  3196.       if (yyn > YYFLAG && yyn < YYLAST)
  3197. {
  3198.   int size = 0;
  3199.   char *msg;
  3200.   int x, count;
  3202.   count = 0;
  3203.   /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
  3204.   for (x = (yyn < 0 ? -yyn : 0);
  3205.        x < (sizeof(yytname) / sizeof(char *)); x++)
  3206.     if (yycheck[x + yyn] == x)
  3207.       size += strlen(yytname[x]) + 15, count++;
  3208.   msg = (char *) malloc(size + 15);
  3209.   if (msg != 0)
  3210.     {
  3211.       strcpy(msg, "parse error");
  3213.       if (count < 5)
  3214. {
  3215.   count = 0;
  3216.   for (x = (yyn < 0 ? -yyn : 0);
  3217.        x < (sizeof(yytname) / sizeof(char *)); x++)
  3218.     if (yycheck[x + yyn] == x)
  3219.       {
  3220. strcat(msg, count == 0 ? ", expecting `" : " or `");
  3221. strcat(msg, yytname[x]);
  3222. strcat(msg, "'");
  3223. count++;
  3224.       }
  3225. }
  3226.       yyerror(msg);
  3227.       free(msg);
  3228.     }
  3229.   else
  3230.     yyerror ("parse error; also virtual memory exceeded");
  3231. }
  3232.       else
  3233. #endif /* YYERROR_VERBOSE */
  3234. yyerror("parse error");
  3235.     }
  3237.   goto yyerrlab1;
  3238. yyerrlab1:   /* here on error raised explicitly by an action */
  3240.   if (yyerrstatus == 3)
  3241.     {
  3242.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  3244.       /* return failure if at end of input */
  3245.       if (yychar == YYEOF)
  3246. YYABORT;
  3248. #if YYDEBUG != 0
  3249.       if (yydebug)
  3250. fprintf(stderr, "Discarding token %d (%s).n", yychar, yytname[yychar1]);
  3251. #endif
  3253.       yychar = YYEMPTY;
  3254.     }
  3256.   /* Else will try to reuse lookahead token
  3257.      after shifting the error token.  */
  3259.   yyerrstatus = 3; /* Each real token shifted decrements this */
  3261.   goto yyerrhandle;
  3263. yyerrdefault:  /* current state does not do anything special for the error token. */
  3265. #if 0
  3266.   /* This is wrong; only states that explicitly want error tokens
  3267.      should shift them.  */
  3268.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  3269.   if (yyn) goto yydefault;
  3270. #endif
  3272. yyerrpop:   /* pop the current state because it cannot handle the error token */
  3274.   if (yyssp == yyss) YYABORT;
  3275.   yyvsp--;
  3276.   yystate = *--yyssp;
  3277. #ifdef YYLSP_NEEDED
  3278.   yylsp--;
  3279. #endif
  3281. #if YYDEBUG != 0
  3282.   if (yydebug)
  3283.     {
  3284.       short *ssp1 = yyss - 1;
  3285.       fprintf (stderr, "Error: state stack now");
  3286.       while (ssp1 != yyssp)
  3287. fprintf (stderr, " %d", *++ssp1);
  3288.       fprintf (stderr, "n");
  3289.     }
  3290. #endif
  3292. yyerrhandle:
  3294.   yyn = yypact[yystate];
  3295.   if (yyn == YYFLAG)
  3296.     goto yyerrdefault;
  3298.   yyn += YYTERROR;
  3299.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  3300.     goto yyerrdefault;
  3302.   yyn = yytable[yyn];
  3303.   if (yyn < 0)
  3304.     {
  3305.       if (yyn == YYFLAG)
  3306. goto yyerrpop;
  3307.       yyn = -yyn;
  3308.       goto yyreduce;
  3309.     }
  3310.   else if (yyn == 0)
  3311.     goto yyerrpop;
  3313.   if (yyn == YYFINAL)
  3314.     YYACCEPT;
  3316. #if YYDEBUG != 0
  3317.   if (yydebug)
  3318.     fprintf(stderr, "Shifting error token, ");
  3319. #endif
  3321.   *++yyvsp = yylval;
  3322. #ifdef YYLSP_NEEDED
  3323.   *++yylsp = yylloc;
  3324. #endif
  3326.   yystate = yyn;
  3327.   goto yynewstate;
  3328. }
  3332. static void
  3333. free_tail(void)
  3334. {
  3335.   if (del_local_vcb)
  3336.     FREE_VCB;
  3337.   LOCAL_VCB_ROOT = TNULL;
  3338.   del_local_vcb = 0;
  3339. }
  3342. static TXTREF holes_tbl = TNULL;
  3344. static TXTREF 
  3345. replace_clm_hole(TXTREF clmptr,i4_t f)
  3346. {
  3347.   register TXTREF ptr,clm;
  3348.   register enum token code=CODE_TRN(clmptr);
  3349.   assert(f==CYCLER_LD);
  3350.   if(code!=COLPTR)return clmptr;
  3351.   ptr=OBJ_DESC(clmptr);
  3352.   if(CODE_TRN(ptr)!=COLUMN_HOLE)return clmptr;
  3353.   clm=find_column(holes_tbl,CHOLE_CNAME(ptr));
  3354.   if(!clm)
  3355.     {
  3356.       if (TstF_TRN(holes_tbl,CHECKED_F))
  3357.         lperror("Incorrect column name '%s' used",STRING(CHOLE_CNAME(ptr)));
  3358.       else
  3359.         {
  3360.           add_column(holes_tbl,CHOLE_CNAME(ptr));
  3361.           clm=find_column(holes_tbl,CHOLE_CNAME(ptr));
  3362.         }
  3363.     }
  3364.   free_node(ptr);
  3365.   OBJ_DESC(clmptr)=clm;
  3366.   return clmptr;
  3367. }
  3369. static TXTREF 
  3370. replace_column_holes(TXTREF rb,VCBREF tbl)
  3371. {
  3372.   holes_tbl = tbl;
  3373.   rb=cycler(rb,replace_clm_hole,CYCLER_LD+CYCLER_LN);
  3374.   holes_tbl = TNULL;
  3375.   return rb;
  3376. }
  3378. static void 
  3379. add_table_column(enum token tbl_code,LTRLREF ltrp,sql_type_t type,TXTREF def,TXTREF constr)
  3380. {
  3381.   register TXTREF col;
  3382.   register i4_t    can_be_null = 1;
  3383.   
  3384.   if(!new_table) return;
  3385.   if(CODE_TRN(new_table)==ANY_TBL)
  3386.     CODE_TRN(new_table)=tbl_code;
  3387.   TASSERT(tbl_code == CODE_TRN(new_table),new_table);
  3388.   col = find_column(new_table,ltrp);
  3389.   if (col)
  3390.     {
  3391.       lperror("Duplicate column '%s' definition in table '%s.%s'",STRING(ltrp),
  3392.               STRING(TBL_FNAME(new_table)),STRING(TBL_NAME(new_table)));
  3393.       if(def)
  3394.         free_tree(def);
  3395.       if(constr)
  3396.         free_tree(constr);
  3397.     }
  3398.   else
  3399.     {
  3400.       add_column(new_table,ltrp);
  3401.       col=find_column(new_table,ltrp);
  3402.       COL_TYPE(col)   = type;
  3403.       COL_DEFAULT(col)= def;
  3404.       COL_NO(col) = new_table_col_no++;
  3405.     }
  3407.   while(constr)
  3408.     {
  3409.       register TXTREF c = constr;
  3410.       i4_t             null_vl = 0;
  3411.       constr = RIGHT_TRN(c);
  3412.       RIGHT_TRN(c) = TNULL;
  3413.       switch(CODE_TRN(c))
  3414. {
  3415. case NULL_VL:
  3416.           free_node(c);
  3417.           null_vl=1;
  3418. case PRIMARY:
  3419. case UNIQUE:
  3420.   can_be_null = 0;
  3421. #define P_(code,subtree) gen_parent(code,subtree)
  3422.           TBL_CONSTR(new_table) = 
  3423.     join_list(P_(CHECK,P_(ISNOTNULL,gen_colptr(col))),
  3424.       TBL_CONSTR(new_table));
  3425. #undef P_
  3426.           if(null_vl)
  3427.             break;
  3428. case INDEX:
  3429.   ARITY_TRN(c) = 1;
  3430.   DOWN_TRN(c)  = gen_colptr(col);
  3431.   IND_INFO(new_table)=join_list(c,IND_INFO(new_table));
  3432.   break;
  3433. case CHECK:
  3434.   TBL_CONSTR(new_table) = 
  3435.     join_list (replace_column_holes(c,new_table),
  3436.        TBL_CONSTR(new_table));
  3437.   break;
  3438. case REFERENCE:
  3439.           TBL_CONSTR(new_table)=
  3440.             join_list(gen_parent(FOREIGN,
  3441.                                  join_list(gen_parent(LOCALLIST,gen_colptr(col)),c)),
  3442.                       TBL_CONSTR(new_table));
  3443.           break;
  3444. default:
  3445.   debug_trn(c);
  3446.   yyfatal("Unexpected column constraints found");
  3447.   break;
  3448. }
  3449.     }
  3450.   
  3451.   if (!def && can_be_null)
  3452.     COL_DEFAULT (col) = gen_node (NULL_VL);
  3453.   
  3454.   if(COL_DEFAULT(col) && CODE_TRN(COL_DEFAULT(col))==NULL_VL)
  3455.     {
  3456.       if (can_be_null)
  3457.         NULL_TYPE(COL_DEFAULT (col)) = COL_TYPE(col);
  3458.       else
  3459.         yyerror("Error: ambiguous column description");
  3460.     }
  3461. #if 0
  3462.   {
  3463.     MASKTYPE x = MASK_TRN(new_table);
  3464.     debug_trn(new_table);
  3465.     MASK_TRN(new_table) = x;
  3466.   }
  3467. #endif
  3468. }
  3470. /*
  3471.  * 'check_not_null' check columns in UNIQUE or PRIMARY key definition
  3472.  * for constraints 'not null'.
  3473.  */
  3475. static void
  3476. check_not_null(TXTREF ind)
  3477. {
  3478.   TXTREF tbl = COL_TBL(OBJ_DESC(DOWN_TRN(ind)));
  3479.   TXTREF constr,cp;
  3480.   for ( cp = DOWN_TRN(ind);cp;cp = RIGHT_TRN(cp)) /* check every column */
  3481.     {
  3482.       TXTREF col = OBJ_DESC(cp);
  3483.       for(constr = TBL_CONSTR(tbl);constr;constr = RIGHT_TRN(constr))
  3484.         {
  3485.           /*
  3486.            * if ( constr = (Check (IsNotNull (ColPtr <col>))))
  3487.            */
  3488.           TXTREF pred = DOWN_TRN(constr);
  3489.           if(CODE_TRN(pred) == NOT)
  3490.             {
  3491.               pred = DOWN_TRN(pred);
  3492.               switch(CODE_TRN(pred))
  3493.                 {
  3494.                 case ISNULL:
  3495.                   CODE_TRN(pred)  = ISNOTNULL;
  3496.                   free_node(DOWN_TRN(constr));
  3497.                   DOWN_TRN(constr) = pred;
  3498.                   break;
  3499.                 default: break; 
  3500.                 }
  3501.             }
  3502.           if(CODE_TRN(pred) != ISNOTNULL)
  3503.             continue;
  3504.           pred = DOWN_TRN(pred);
  3505.           if(CODE_TRN(pred) != COLPTR) /* it quite strange */
  3506.             continue;
  3507.           if(OBJ_DESC(pred) == col) /* if there is a constraint on given column */
  3508.             break;
  3509.         }
  3510.       if (constr) /* something was found */
  3511.         continue;
  3512.       /* if we have not found 'not null' constraints on given column */
  3513.       file_pos = LOCATION_TRN(cp);
  3514.       lperror("Warning: primary key column '%s.%s.%s' not restrictedn"
  3515.               "ttby 'not null' qualifier",
  3516.               STRING(TBL_FNAME(tbl)),STRING(TBL_NAME(tbl)),
  3517.               STRING(COL_NAME(col)));
  3518.       errors--; /* clear error flag - translate message as a warning */
  3519.       if (CODE_TRN(COL_DEFAULT(col))==NULL_VL)
  3520.         {
  3521.           free_node(COL_DEFAULT(col));
  3522.           COL_DEFAULT(col) = TNULL;
  3523.         }
  3524.       col = gen_node(COLPTR);
  3525.       OBJ_DESC(col) = OBJ_DESC(cp);
  3526.       TBL_CONSTR(tbl) = 
  3527.         join_list (gen_parent(CHECK,gen_parent(ISNOTNULL,col)),
  3528.                    TBL_CONSTR(new_table));
  3529.     }
  3530. }
  3532. static void
  3533. emit_module_proc(VCBREF parmlist,LTRLREF procname)
  3534. {
  3535.   if (call.subst==NULL)
  3536.     call.subst = (call_subst_t*)xmalloc (sizeof(call_subst_t));
  3537.   call.subst->proc_name = savestring(STRING(procname));
  3538.   describe_stmt(&(call.subst->interface),parmlist,'I');
  3539.   free_tail();
  3540. }
  3542. static void
  3543. emit_call(TXTREF vcb,i4_t object_id, i4_t method_id)
  3544. {
  3545.   if (call.subst==NULL)
  3546.     call.subst = (call_subst_t*)xmalloc ( sizeof(call_subst_t));
  3547.   call.subst->object = object_id;
  3548.   call.subst->method = method_id;
  3549.   describe_stmt(&(call.subst->in_sql_parm),vcb,'>');
  3550.   describe_stmt(&(call.subst->out_sql_parm),vcb,'<');
  3551.   call.subst->jmp_on_eofscan = savestring(label_nf?label_nf:"");
  3552.   call.subst->jmp_on_error   = savestring(label_er?label_er:"");
  3553. }
  3555. call_t *
  3556. prepare_replacement(void)
  3557. {
  3558.   call_t *c;
  3559.   c = (call_t*)xmalloc ( sizeof(call_t));
  3560.   c->subst = call.subst;
  3561.   if(c->subst)  /* preserve NULL string reference */
  3562.     {
  3563.       if (!call.subst->proc_name)
  3564.         call.subst->proc_name      =  savestring("");
  3565.       if (!call.subst->jmp_on_eofscan)
  3566.         call.subst->jmp_on_eofscan =  savestring("");
  3567.       if (!call.subst->jmp_on_error)
  3568.         call.subst->jmp_on_error   =  savestring("");
  3569.     }
  3570.   return c;
  3571. }
  3573. i4_t 
  3574. sql_parse(void)
  3575. {
  3576.   i4_t rc;
  3577.   yydebug=parse_debug;
  3578.   parse_mode=Esql;
  3579.   dyn_sql_section_id = 0;
  3580.   bzero(&call,sizeof(call));
  3581.   rc = yyparse();
  3582.   dyn_sql_stmt_name = NULL;
  3583.   return rc;
  3584. }