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

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

SQL Server

开发平台：

Unix_Linux

db_cre_ser.c：源码内容
  1. /*
  2.  *  db_cre_ser.c  -  creating DB catalogs (server part)
  3.  *
  4.  *  This file is a part of GNU SQL Server
  5.  *
  6.  *  Copyright (c) 1996, 1997, Free Software Foundation, Inc
  7.  *  Developed at the Institute of System Programming
  8.  *  This file is written by Konstantin Dyshlevoi
  9.  *
  10.  *  This program is free software; you can redistribute it and/or modify
  11.  *  it under the terms of the GNU General Public License as published by
  12.  *  the Free Software Foundation; either version 2 of the License, or
  13.  *  (at your option) any later version.
  14.  *
  15.  *  This program is distributed in the hope that it will be useful,
  16.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  17.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18.  *  GNU General Public License for more details.
  19.  *
  20.  *  You should have received a copy of the GNU General Public License
  21.  *  along with this program; if not, write to the Free Software
  22.  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  23.  *
  24.  *  Contacts: gss@ispras.ru
  25.  *
  26.  */
  28. /* $Id: db_cre_ser.c,v 1.245 1997/03/31 03:46:38 kml Exp $ */
  30. #include "gsqltrn.h" /* c/s protocol defnitions */
  31. #include "global.h"
  33. #ifdef HAVE_UNISTD_H
  34. #include <unistd.h>
  35. #endif
  37. #include "pupsi.h"
  38. #include "tptrn.h"
  39. #include "expop.h"
  40. #include "const.h"
  41. #include "fieldtp.h"
  42. #include "exti.h"
  43. #include "type_lib.h"
  46. #define   FWR(tabid)    fwrite(&tabid,sizeof(Tabid),1,fb)
  47. #define   FWRID(indid)  fwrite(&indid,sizeof(Indid),1,fb)
  48. #define   FRD(tabid)    fread (&tabid,sizeof(Tabid),1,fb)
  49. #define   FRDID(indid)  fread (&indid,sizeof(Indid),1,fb)
  51. #define SIX  (strlen(SYSADM))
  52. #define PUBLIC "PUBLIC"
  54. #define KILL_PROC(cod)
  55. {
  56.   if (cod > 0)
  57.     rollback (cod);
  58.   else
  59.     commit ();
  60.   return (-1);
  61. }
  63. extern i4_t initializing_base;
  65. static void *colval[MAX_COLNO];
  66. static u2_t lencols[MAX_COLNO];
  67. static i4_t   cnlist[8];
  68. static char str1[MAX_COLNO], str2[MAX_COLNO], str3[MAX_COLNO];
  69. static char char1[1], char2[1];
  70. static i2_t short1[1], short2[1], short3[1], short4[1];
  71. static i4_t int1[1], int2[1], int3[1], int4[1];
  73.                        /*   code       prec  len   */
  74. #define TYPE_INT       { SQLType_Int,   0,  SZ_INT }
  75. #define TYPE_SHORT     { SQLType_Short, 0,  SZ_SHT }
  76. #define TYPE_STRING(l) { SQLType_Char,  0,    l    }
  78. sql_type_t TABLES_COLTYPES [TABLES_COLNO] = 
  79. { TYPE_STRING ( MAX_USER_NAME_LNG ),/* tabname    */
  80.   TYPE_STRING ( MAX_USER_NAME_LNG ),/* owner      */
  81.   TYPE_INT,                         /* untabid    */
  82.   TYPE_SHORT,                       /* segid      */
  83.   TYPE_INT,                         /* tabd       */
  84.   TYPE_INT,                         /* clasindid  */
  85.   TYPE_INT,                         /* primindid  */
  86.   TYPE_STRING ( 1 ),                /* tabtype    */
  87.   TYPE_STRING ( 8 ),                /* credate    */
  88.   TYPE_STRING ( 8 ),                /* cretime    */
  89.   TYPE_SHORT,                       /* ncols      */
  90.   TYPE_INT,                         /* nrows      */
  91.   TYPE_INT                          /* nnulcolnum */
  92. };
  94. sql_type_t COLUMNS_COLTYPES [COLUMNS_COLNO] =
  95. /*   code prec len */
  96. { TYPE_STRING ( MAX_USER_NAME_LNG), /* colname    */
  97.   TYPE_INT,                         /* untabid    */
  98.   TYPE_SHORT,                       /* colno      */
  99.   TYPE_STRING ( 1 ),                /* coltype    */
  100.   TYPE_INT,                         /* coltype1   */
  101.   TYPE_INT,                         /* coltype2   */
  102.   TYPE_STRING ( MAX_STR_LNG ),      /* defval     */
  103.   TYPE_STRING ( 1 ),                /* defnull    */
  104.   TYPE_INT,                         /* valno      */
  105.   TYPE_STRING ( MAX_STR_LNG ),      /*  minval    */
  106.   TYPE_STRING ( MAX_STR_LNG )       /*  maxval    */
  107. };
  109. sql_type_t INDEXES_COLTYPES [INDEXES_COLNO] =
  110. /*   code prec len */
  111. { TYPE_INT,                         /* untabid */
  112.   TYPE_STRING ( MAX_USER_NAME_LNG), /* inxname */
  113.   TYPE_STRING ( MAX_USER_NAME_LNG ),/* owner   */
  114.   TYPE_STRING ( 2 ),                /* inxtype */
  115.   TYPE_SHORT,                       /* ncol    */
  116.   TYPE_SHORT,                       /* colno1  */
  117.   TYPE_SHORT,                       /* colno2  */
  118.   TYPE_SHORT,                       /* colno3  */
  119.   TYPE_SHORT,                       /* colno4  */
  120.   TYPE_SHORT,                       /* colno5  */
  121.   TYPE_SHORT,                       /* colno6  */
  122.   TYPE_SHORT,                       /* colno7  */
  123.   TYPE_SHORT,                       /* colno8  */
  124.   TYPE_STRING ( 8 ),                /* credate */
  125.   TYPE_STRING ( 8 ),                /* cretime */
  126.   TYPE_INT                          /* unindid */
  127. };
  129. sql_type_t TABAUTH_COLTYPES [TABAUTH_COLNO] =
  130. /*   code prec len */
  131. { TYPE_INT,                         /* untabid */
  132.   TYPE_STRING ( MAX_USER_NAME_LNG ),/* grantee */
  133.   TYPE_STRING ( MAX_USER_NAME_LNG ),/* grantor */
  134.   TYPE_STRING ( 7 )                 /* tabauth */
  135. };
  137. sql_type_t COLAUTH_COLTYPES [COLAUTH_COLNO] =
  138. /*   code prec len */
  139. { TYPE_INT,                         /* untabid */
  140.   TYPE_SHORT,                       /* colno   */
  141.   TYPE_STRING ( MAX_USER_NAME_LNG ),/* grantee */
  142.   TYPE_STRING ( MAX_USER_NAME_LNG ),/* grantor */
  143.   TYPE_STRING ( 2 )                 /* colauth */
  144. };
  146. sql_type_t REFCONSTR_COLTYPES [REFCONSTR_COLNO] =
  147. /*   code prec len */
  148. { TYPE_INT,                         /* tabfrom  */
  149.   TYPE_INT,                         /* tabto    */
  150.   TYPE_INT,                         /* indto    */
  151.   TYPE_SHORT,                       /* ncols    */
  152.   TYPE_SHORT,                       /* colnofr1 */
  153.   TYPE_SHORT,                       /* colnofr2 */
  154.   TYPE_SHORT,                       /* colnofr3 */
  155.   TYPE_SHORT,                       /* colnofr4 */
  156.   TYPE_SHORT,                       /* colnofr5 */
  157.   TYPE_SHORT,                       /* colnofr6 */
  158.   TYPE_SHORT,                       /* colnofr7 */
  159.   TYPE_SHORT,                       /* colnofr8 */
  160.   TYPE_SHORT,                       /* colnoto1 */
  161.   TYPE_SHORT,                       /* colnoto2 */
  162.   TYPE_SHORT,                       /* colnoto3 */
  163.   TYPE_SHORT,                       /* colnoto4 */
  164.   TYPE_SHORT,                       /* colnoto5 */
  165.   TYPE_SHORT,                       /* colnoto6 */
  166.   TYPE_SHORT,                       /* colnoto7 */
  167.   TYPE_SHORT                        /* colnoto8 */
  168. };
  170. sql_type_t CHCONSTR_COLTYPES [CHCONSTR_COLNO] =
  171. /*   code prec len */
  172. { TYPE_INT,                         /* untabid */
  173.   TYPE_INT,                         /* chconid */
  174.   TYPE_INT,                         /* consize */
  175.   TYPE_SHORT,                       /* ncols   */
  176.   TYPE_SHORT,                       /* colno1  */
  177.   TYPE_SHORT,                       /* colno2  */
  178.   TYPE_SHORT,                       /* colno3  */
  179.   TYPE_SHORT,                       /* colno4  */
  180.   TYPE_SHORT,                       /* colno5  */
  181.   TYPE_SHORT,                       /* colno6  */
  182.   TYPE_SHORT,                       /* colno7  */
  183.   TYPE_SHORT                        /* colno8  */
  184. };
  186. sql_type_t CHCONSTRTWO_COLTYPES [CHCONSTRTWO_COLNO] =
  187. /* code prec len */
  188. { TYPE_INT,                         /* chconid  */
  189.   TYPE_SHORT,                       /* fragno   */
  190.   TYPE_INT,                         /* fragsize */
  191.   TYPE_STRING ( MAX_STR_LNG )       /* frag     */
  192. };
  194. sql_type_t VIEWS_COLTYPES [VIEWS_COLNO] =
  195. /* code prec len */
  196. { TYPE_INT,                         /* untabid  */
  197.   TYPE_SHORT,                       /* fragno   */
  198.   TYPE_INT,                         /* fragsize */
  199.   TYPE_STRING ( MAX_STR_LNG )       /* frag     */
  200. };
  202. i4_t 
  203. ToCol(i4_t untabid, char *name, i4_t colno, i4_t nulno, sql_type_t *type_arr)
  204. {
  205.   i4_t lcod;
  206.   
  207.   lencols[0] = strlen (name);
  208.   strcpy (str1, name);                   /* colname  */
  209.   *short1 = colno;                       /* colno    */
  210.   *char1  = type_arr[colno].code;        /* coltype  */
  211.   *int1   = untabid;                     /* untabid  */
  212.   *int2   = type_arr[colno].len;         /* coltype1 */
  213.   *int3   = type_arr[colno].prec;        /* coltype2 */
  214.   *char2  = (nulno > colno) ? '1' : '0'; /* defnull  */
  215.   
  216.   lcod = insrow (&syscoltabid, COLUMNS_COLNO, lencols, colval, NULL);
  217.   if (lcod)
  218.     {
  219.       fprintf (stderr, "BASE: cant't make insrow for SYSCOLUMNS,cod=%dn ", lcod);
  220.       KILL_PROC (lcod);
  221.     }
  222.   return 0;
  223. }
  225. i4_t 
  226. ToAuth ()
  227. {
  228.   i4_t lcod;
  229.   lcod = insrow (&tabauthtabid, TABAUTH_COLNO, lencols, colval, NULL);
  230.   if (lcod)
  231.     {
  232.       fprintf (stderr, "BASE: cant't make insrow for SYSTABAUTH,cod=%dn ", lcod);
  233.       KILL_PROC (lcod);
  234.     }
  235.   return 0;
  236. }
  238. i4_t 
  239. TOCOLAuth ()
  240. {
  241.   i4_t lcod;
  242.   lcod = insrow (&colauthtabid, COLAUTH_COLNO, lencols, colval, NULL);
  243.   if (lcod)
  244.     {
  245.       fprintf (stderr, "BASE: cant't make insrow for SYSCOLAUTH,cod=%dn ", lcod);
  246.       KILL_PROC (lcod);
  247.     }
  248.   return 0;
  249. }
  251. i4_t 
  252. InsSysTab ()
  253. {
  254.   i4_t lcod;
  255.   lcod = insrow (&systabtabid, TABLES_COLNO, lencols, colval, NULL);
  256.   if (lcod)
  257.     {
  258.       fprintf (stderr, "BASE: cant't make insrow in systables,cod=%dn ", lcod);
  259.       KILL_PROC (lcod);
  260.     }
  261.   return 0;
  262. }
  264. int
  265. IndCre (char *inm,Indid *indid, Tabid *tabid, 
  266. i4_t cnum, i4_t n1, i4_t n2, i4_t n3, i4_t un_fl)
  267.      /* Index creation : inm - index name; indid - pointer to *
  268.       * index identifier (result); tabid - pointer to table   *
  269.       * identifier; cnum - index columns number; n1, n2, n3 - *
  270.       * numbers of these columns ( -1 if is not used );       *
  271.       * un_fl = 1 if UNIQUE index, 0 -else.                   */
  272. {
  273.   i4_t cod;
  274.   
  275.   if (cl_debug)
  276.     fprintf (STDOUT, "BASE:  making index %s n", inm);
  277.   
  278.   cnlist[0] = n1;
  279.   cnlist[1] = n2;
  280.   cnlist[2] = n3;
  281.   
  282.   cod = creind (indid, tabid, 0, un_fl, 0, cnum, cnlist);
  283.   if (cod < 0)
  284.     {
  285.       fprintf (stderr, "BASE: cant't make it : cod = %dn ", cod);
  286.       commit ();
  287.       return (-1);
  288.     }
  289.   
  290.   lencols[1] = strlen (inm);
  291.   lencols[3] = un_fl;
  292.   
  293.   *int1 = tabid->untabid;                     /* untabid */
  294.   strcpy (str1, inm);                         /* inxname */
  295.   colval[3] = (un_fl) ? char1 : NULL;         /* inxtype */
  296.   *short4 = cnum;                             /* ncol    */
  297.   *short1 = n1;                               /* colno1  */
  298.   
  299.   if (n2 == -1)
  300.     colval[6] = NULL;
  301.   else
  302.     {
  303.       colval[6] = short2;                     /* colno2  */
  304.       *short2 = n2;
  305.     }
  306.   
  307.   if (n3 == -1)
  308.     colval[7] = NULL;
  309.   else
  310.     {
  311.       colval[7] = short3;                     /* colno3  */
  312.       *short3 = n3;
  313.     }
  314.   
  315.   *int2 = indid->unindid;                     /* unindid */
  316.   
  317.   cod = insrow (&sysindtabid, INDEXES_COLNO, lencols, colval, NULL);
  318.   if (cod)
  319.     {
  320.       fprintf (stderr, "BASE: cant't make index : cod=%dn ", cod);
  321.       KILL_PROC (cod);
  322.     }
  323.   return 0; /* O'K */
  324. } /* IndCre */
  326. int
  327. CreateTable (Tabid * tabid, char *str_name, i4_t colno,
  328.      i4_t nulno, sql_type_t *coltypes, i4_t nrows)
  329. {
  330.   static sql_type_t tp[MAX_COLNO];
  331.   i4_t cod, i;
  332.   
  333.   for (i = 0; i < colno; i++)
  334.     type_to_bd( coltypes + i, tp + i);
  335.     
  336.   cod = creptab (tabid, 1 /* segid */, 0 /* spn */, colno, nulno, tp);
  337.   if (cod)
  338.     KILL_PROC (cod);
  339.   lencols[0] = strlen (str_name);
  340.   strcpy (str1, str_name);  /* tabname    */
  341.   *int1 = tabid->untabid;   /* untabid    */
  342.   *short1 = tabid->segid;   /* segid      */
  343.   *int2 = tabid->tabd;      /* tabd       */
  344.   *short2 = colno;          /* ncols      */
  345.   *int4 = nrows;            /* nrows      */
  346.   *int3 = nulno;            /* nnulcolnum */
  347.   if (InsSysTab ())
  348.     return (-1);
  349.   
  350.   return 0;
  351. } /* CreateTable */
  353. int
  354. create_base ()
  355. /* create system catalogs for data base  */
  356. /* return 0 if success */
  357. {
  358.   char cur_dt[9], cur_tm[9];
  359.   
  360.   FILE *fb;
  361.   i4_t cod, i, cur_untabid, cur_nulno, cur_colno;
  362.   sql_type_t *cur_type_arr;
  363.   
  364.   curdate (cur_dt);
  365.   curtime (cur_tm); 
  367. /*---------- creation of SYSTEM CATALOGUES & SYSTABLES filling  -----------*/
  369.   lencols[1] = SIX;
  370.   lencols[2] = sizeof (i4_t);
  371.   lencols[3] = sizeof (i2_t);
  372.   lencols[4] = sizeof (i4_t);
  373.   lencols[5] = 0;
  374.   lencols[6] = 0;
  375.   lencols[7] = 1;
  376.   lencols[8] = 8;
  377.   lencols[9] = 8;
  378.   lencols[10] = sizeof (i2_t);
  379.   lencols[11] = sizeof (i4_t);
  380.   lencols[12] = sizeof (i4_t);
  381.   
  382.   colval[0] = str1;              /* tabname    */
  383.   colval[1] = str2;              /* owner      */
  384.   colval[2] = int1;              /* untabid    */
  385.   colval[3] = short1;            /* segid      */
  386.   colval[4] = int2;              /* tabd       */
  387.   colval[5] = NULL;              /* clasindid  */
  388.   colval[6] = NULL;              /* primindid  */
  389.   colval[7] = str3;              /* tabtype    */  
  390.   colval[8] = cur_dt;            /* credate    */
  391.   colval[9] = cur_tm;            /* cretime    */
  392.   colval[10] = short2;           /* ncols      */
  393.   colval[11] = int4;             /* nrows      */
  394.   colval[12] = int3;             /* nnulcolnum */
  396.   strcpy (str2, SYSADM);       /* owner      */
  397.   strcpy (str3, "B");            /* tabtype    */  
  398.   
  399. #define CRE_SYS_TABLE(tabid, name, nrows)     
  400.   cod = CreateTable (&tabid, "SYS" #name, name##_COLNO,     
  401.      name##_NULNO, name##_COLTYPES, nrows); 
  402.   if (cod < 0)             
  403.     return (cod);
  404.     
  405. /* tabid          name        nrows */     
  406.   CRE_SYS_TABLE (systabtabid,    TABLES,         9);
  407.   CRE_SYS_TABLE (syscoltabid,    COLUMNS,       89);
  408.   CRE_SYS_TABLE (sysindtabid,    INDEXES,       11);
  409.   CRE_SYS_TABLE (tabauthtabid,   TABAUTH,        8);
  410.   CRE_SYS_TABLE (colauthtabid,   COLAUTH,       10);
  411.   CRE_SYS_TABLE (refconstrtabid, REFCONSTR,      0);
  412.   CRE_SYS_TABLE (chconstrtabid,  CHCONSTR,       0);
  413.   CRE_SYS_TABLE (chcontwotabid,  CHCONSTRTWO,    0);
  414.   CRE_SYS_TABLE (viewstabid,     VIEWS,          0);
  415.   
  416. /*-------------------------- SYSCOLUMNS filling ------------------------*/
  418.   lencols[1] = sizeof (i4_t);
  419.   lencols[2] = sizeof (u2_t);
  420.   lencols[3] = 1;
  421.   lencols[4] = sizeof (i4_t);
  422.   lencols[5] = sizeof (i4_t);
  423.   lencols[6] = 0;
  424.   lencols[7] = 1;
  425.   lencols[8] = 0;
  426.   lencols[9] = 0;
  427.   lencols[10] = 0;
  429.   colval[0] = str1;              /* colname   */
  430.   colval[1] = int1;              /* untabid   */
  431.   colval[2] = short1;            /* colno     */
  432.   colval[3] = char1;             /* coltype   */
  433.   colval[4] = int2;              /* coltype1  */
  434.   colval[5] = int3;              /* coltype2  */
  435.   colval[6] = NULL;              /* defval    */
  436.   colval[7] = char2;             /* defnull   */
  437.   colval[8] = NULL;              /* valno     */
  438.   colval[9] = NULL;              /* minval    */
  439.   colval[10] = NULL;             /* maxval    */
  440.   
  441. /*------------ columns of SYSTABLES to SYSCOLUMNS ---------------*/
  442.   
  443. #define ABOUT_TABLE(name, tabid)
  444.   cur_untabid = tabid.untabid;
  445.   cur_nulno = name##_NULNO;
  446.   cur_type_arr = name##_COLTYPES;
  447.   cur_colno = 0;
  448.   
  449. #define TO_SYSCOL(name) if ((cod = ToCol (cur_untabid, name, cur_colno++, 
  450.                             cur_nulno, cur_type_arr)) < 0) return (cod)
  452.   ABOUT_TABLE (TABLES, systabtabid);
  453.   TO_SYSCOL("TABNAME");
  454.   TO_SYSCOL("OWNER");
  455.   TO_SYSCOL("UNTABID");
  456.   TO_SYSCOL("SEGID");
  457.   TO_SYSCOL("TABD");
  458.   TO_SYSCOL("CLASINDID");
  459.   TO_SYSCOL("PRIMINDID");
  460.   TO_SYSCOL("TABTYPE");
  461.   TO_SYSCOL("CREDATE");
  462.   TO_SYSCOL("CRETIME");
  463.   TO_SYSCOL("NCOLS");
  464.   TO_SYSCOL("NROWS");
  465.   TO_SYSCOL("NNULCOLNUM");
  466.   
  467. /*------------ columns of SYSCOLUMNS to SYSCOLUMNS --------------*/
  468.   
  469.   ABOUT_TABLE (COLUMNS, syscoltabid);
  470.   TO_SYSCOL("COLNAME");
  471.   TO_SYSCOL("UNTABID");
  472.   TO_SYSCOL("COLNO");
  473.   TO_SYSCOL("COLTYPE");
  474.   TO_SYSCOL("COLTYPE1");
  475.   TO_SYSCOL("COLTYPE2");
  476.   TO_SYSCOL("DEFVAL");
  477.   TO_SYSCOL("DEFNULL");
  478.   TO_SYSCOL("VALNO");
  479.   TO_SYSCOL("MINVAL");
  480.   TO_SYSCOL("MAXVAL");
  481.   
  482. /*------------ columns of SYSINDEXES to SYSCOLUMNS --------------*/
  483.   
  484.   ABOUT_TABLE (INDEXES, sysindtabid);
  485.   TO_SYSCOL("UNTABID");
  486.   TO_SYSCOL("INXNAME");
  487.   TO_SYSCOL("OWNER");
  488.   TO_SYSCOL("INXTYPE");
  489.   TO_SYSCOL("NCOL");
  490.   TO_SYSCOL("COLNO1");
  491.   TO_SYSCOL("COLNO2");
  492.   TO_SYSCOL("COLNO3");
  493.   TO_SYSCOL("COLNO4");
  494.   TO_SYSCOL("COLNO5");
  495.   TO_SYSCOL("COLNO6");
  496.   TO_SYSCOL("COLNO7");
  497.   TO_SYSCOL("COLNO8");
  498.   TO_SYSCOL("CREDATE");
  499.   TO_SYSCOL("CRETIME");
  500.   TO_SYSCOL("UNINDID");
  501.   
  502. /*------------ columns of SYSTABAUTH to SYSCOLUMNS --------------*/
  503.   
  504.   ABOUT_TABLE (TABAUTH, tabauthtabid);
  505.   TO_SYSCOL("UNTABID");
  506.   TO_SYSCOL("GRANTEE");
  507.   TO_SYSCOL("GRANTOR");
  508.   TO_SYSCOL("TABAUTH");
  509.   
  510. /*------------ columns of SYSCOLAUTH to SYSCOLUMNS --------------*/
  511.   
  512.   ABOUT_TABLE (COLAUTH, colauthtabid);
  513.   TO_SYSCOL("UNTABID");
  514.   TO_SYSCOL("COLNO");
  515.   TO_SYSCOL("GRANTEE");
  516.   TO_SYSCOL("GRANTOR");
  517.   TO_SYSCOL("COLAUTH");
  518.   
  519. /*------------ columns of SYSREFCONSTR to SYSCOLUMNS ------------*/
  520.   
  521.   ABOUT_TABLE (REFCONSTR, refconstrtabid);
  522.   TO_SYSCOL("TABFROM");
  523.   TO_SYSCOL("TABTO");
  524.   TO_SYSCOL("INDTO");
  525.   TO_SYSCOL("NCOLS");
  526.   TO_SYSCOL("COLNOFR1");
  527.   TO_SYSCOL("COLNOFR2");
  528.   TO_SYSCOL("COLNOFR3");
  529.   TO_SYSCOL("COLNOFR4");
  530.   TO_SYSCOL("COLNOFR5");
  531.   TO_SYSCOL("COLNOFR6");
  532.   TO_SYSCOL("COLNOFR7");
  533.   TO_SYSCOL("COLNOFR8");
  534.   TO_SYSCOL("COLNOTO1");
  535.   TO_SYSCOL("COLNOTO2");
  536.   TO_SYSCOL("COLNOTO3");
  537.   TO_SYSCOL("COLNOTO4");
  538.   TO_SYSCOL("COLNOTO5");
  539.   TO_SYSCOL("COLNOTO6");
  540.   TO_SYSCOL("COLNOTO7");
  541.   TO_SYSCOL("COLNOTO8");
  542.   
  543. /*------------ columns of SYSCHCONSTR to SYSCOLUMNS -------------*/
  545.   ABOUT_TABLE (CHCONSTR, chconstrtabid);
  546.   TO_SYSCOL("UNTABID");
  547.   TO_SYSCOL("CHCONID");
  548.   TO_SYSCOL("CONSIZE");
  549.   TO_SYSCOL("NCOLS");
  550.   TO_SYSCOL("COLNO1");
  551.   TO_SYSCOL("COLNO2");
  552.   TO_SYSCOL("COLNO3");
  553.   TO_SYSCOL("COLNO4");
  554.   TO_SYSCOL("COLNO5");
  555.   TO_SYSCOL("COLNO6");
  556.   TO_SYSCOL("COLNO7");
  557.   TO_SYSCOL("COLNO8");
  558.   
  559. /*---------- columns of SYSCHCONSTRTWO to SYSCOLUMNS ------------*/
  560.   
  561.   ABOUT_TABLE (CHCONSTRTWO, chcontwotabid);
  562.   TO_SYSCOL("CHCONID");
  563.   TO_SYSCOL("FRAGNO");
  564.   TO_SYSCOL("FRAGSIZE");
  565.   TO_SYSCOL("FRAG");
  566.   
  567. /*------------ columns of SYSVIEWS to SYSCOLUMNS ----------------*/
  568.   
  569.   ABOUT_TABLE (VIEWS, viewstabid);
  570.   TO_SYSCOL("CHCONID");
  571.   TO_SYSCOL("FRAGNO");
  572.   TO_SYSCOL("FRAGSIZE");
  573.   TO_SYSCOL("FRAG");
  574.   
  575. #undef TO_SYSCOL
  576.   
  577. /*------------------------ SYSTABAUTH filling -------------------------*/
  578.   
  579. #define TO_SYSTABAUTH(tid)    *int1 = tid.untabid; 
  580.                               if (ToAuth ())       
  581.                                 return (-1)
  583.   lencols[0] = sizeof (i4_t);
  584.   lencols[1] = strlen(PUBLIC);
  585.   lencols[2] = SIX;
  586.   lencols[3] = 1;
  588.   colval[0] = int1; /* untabid */
  589.   colval[1] = str1; /* grantee */
  590.   colval[2] = str2; /* grantor */
  591.   colval[3] = str3; /* tabauth */
  592.   
  593.   strcpy (str1, PUBLIC);        /* grantee */
  594.   strcpy (str2, SYSADM);       /* grantor */
  595.   strcpy (str3, "S");  /* tabauth */
  596.   
  597. /*                   tabid  */  
  598.   
  599.   TO_SYSTABAUTH ( syscoltabid    );
  600.   TO_SYSTABAUTH ( sysindtabid    );
  601.   TO_SYSTABAUTH ( viewstabid     );
  602.   TO_SYSTABAUTH ( tabauthtabid   );
  603.   TO_SYSTABAUTH ( colauthtabid   );
  604.   TO_SYSTABAUTH ( refconstrtabid );
  605.   TO_SYSTABAUTH ( chconstrtabid  );
  606.   TO_SYSTABAUTH ( chcontwotabid  );
  608.   lencols[3] = 2;
  609.   strcpy (str3, "Su");  /* tabauth */
  610.   TO_SYSTABAUTH(systabtabid);
  611.   
  612. #undef TO_SYSTABAUTH
  613.   
  614. /*------------------------ SYSCOLAUTH filling -------------------------*/
  616. #define   TOCOLAUTH  {if (TOCOLAuth ()) return (-1);}
  618.   lencols[0] = sizeof (i4_t);
  619.   lencols[1] = sizeof (u2_t);
  620.   lencols[2] = strlen("kml");
  621.   lencols[3] = SIX;
  622.   lencols[4] = strlen("U");
  624.   colval[0] = int1;
  625.   colval[1] = short1;
  626.   colval[2] = str1;
  627.   colval[3] = str2;
  628.   colval[4] = str3;
  630.   *int1 = systabtabid.untabid;  /* untabid */
  631.   strcpy (str1, "kml");         /* grantee */
  632.   strcpy (str2, SYSADM);        /* grantor */
  633.   strcpy (str3, "U");  /* tabauth */
  635.   for (i = 5; i< 14; i++)
  636.     {
  637.       *short1 = i;              /* colno   */
  638.       TOCOLAUTH;
  639.     }
  640.   
  641. #undef TOCOLAUTH
  643. /*------------------------ INDEXES CREATION -------------------------*/
  645. #define CREIND(inm, indid, tabid, cnum, n1, n2, n3, un_fl)               
  646.               if (IndCre (inm, &indid, &tabid, cnum, n1, n2, n3, un_fl)) 
  647.                 return -1;
  648.   
  649.   lencols[0] = sizeof (i4_t);
  650.   lencols[2] = SIX;
  651.   lencols[4] = sizeof (u2_t);
  652.   lencols[5] = sizeof (u2_t);
  653.   lencols[6] = sizeof (u2_t);
  654.   lencols[7] = sizeof (u2_t);
  655.   for (i = 8; i < 13; i++)
  656.     lencols[i] = 0;
  657.   lencols[13] = 8;
  658.   lencols[14] = 8;
  659.   lencols[15] = sizeof (i4_t);
  660.   
  661.   colval[0] = int1;        /* untabid */
  662.   colval[1] = str1;        /* inxname */
  663.   colval[2] = str2;        /* owner   */
  664.   colval[4] = short4;      /* ncol    */
  665.   colval[5] = short1;      /* colno1  */
  666.   for (i = 8; i < 13; i++)
  667.     colval[i] = NULL;      /* colno with number i */
  668.   colval[13] = cur_dt;     /* credate */
  669.   colval[14] = cur_tm;     /* cretime */
  670.   colval[15] = int2;       /* unindid */
  671.   
  672.   strcpy (str2, SYSADM);   /* owner   */
  673.   *char1 = 'U';            /* inxtype */
  674.   
  675.   /*        index_name        indid_ptr         tabid       clm_num      columns unique */
  676.   
  677.   CREIND("SYSTABLESIND1ID",   indid1,           systabtabid,    2,      0,  1, -1,  1)
  678.   CREIND("SYSTABLESIND2ID",   indid2,           systabtabid,    1,      2, -1, -1,  1)
  679.   CREIND("SYSCOLUMNSIND1ID",  indidcol,         syscoltabid,    2,      0,  1, -1,  1)
  680.   CREIND("SYSCOLUMNSIND2ID",  indidcol2,        syscoltabid,    2,      1,  2, -1,  1)
  681.   CREIND("SYSINDEXIND",       sysindexind,      sysindtabid,    1,      0, -1, -1,  0)
  682.   CREIND("SYSTABAUTHIND1ID",  sysauthindid,     tabauthtabid,   2,      0,  1, -1,  1)
  683.   CREIND("SYSCOLAUTHIND1ID",  syscolauthindid,  colauthtabid,   3,      0,  1,  2,  1)
  684.   CREIND("SYSREFCONSTRINDEX", sysrefindid,      refconstrtabid, 1,      0, -1, -1,  0)
  685.   CREIND("SYSREFCONSTRIND1",  sysrefindid1,     refconstrtabid, 1,      1, -1, -1,  0)
  686.   CREIND("SYSCHCONSTRINDEX",  chconstrindid,    chconstrtabid,  1,      0, -1, -1,  0)
  687.   CREIND("SYSCHCONSTRTWOIND", chconstrtwoind,   chcontwotabid,  2,      0,  1, -1,  1)
  688.   CREIND("SYSVIEWSIND",       viewsind,         viewstabid,     2,      0,  1, -1,  1)
  689.     
  690. #undef CREIND
  691.   
  692. /*------------- tables & indexes identifiers saving -------------*/
  694.   fb = fopen (BASE_DAT, "w+");
  695.   if (fb == NULL)
  696.     perror ("can't open base.dat n");
  697.   fseek (fb, 0, SEEK_SET);
  698.   FWR (systabtabid);
  699.   FWR (syscoltabid);
  700.   FWR (sysindtabid);
  701.   FWR (viewstabid);
  702.   FWR (tabauthtabid);
  703.   FWR (colauthtabid);
  704.   FWR (refconstrtabid);
  705.   FWR (chconstrtabid);
  706.   FWR (chcontwotabid);
  708.   FWRID (indid1);
  709.   FWRID (indid2);
  710.   FWRID (indidcol);
  711.   FWRID (indidcol2);
  712.   FWRID (sysindexind);
  713.   FWRID (sysauthindid);
  714.   FWRID (syscolauthindid);
  715.   FWRID (sysrefindid);
  716.   FWRID (sysrefindid1);
  717.   FWRID (chconstrindid);
  718.   FWRID (chconstrtwoind);
  719.   FWRID (viewsind);
  721.   fclose (fb);
  722.   
  723.   if (cl_debug)
  724.     fprintf (STDOUT, "BASE: end of creatbas n");
  725.   initializing_base = 1;
  726.   return (0);
  727. } /* create_base */
  729. result_t*
  730. db_create(void *in, struct svc_req *rqstp)
  731. {
  732.   gsqltrn_rc.sqlcode = create_base ();
  733.   if (!gsqltrn_rc.sqlcode)
  734.     commit ();
  735.   return &gsqltrn_rc;
  736. }