Category

Development Platform
Home > SourceCode/Document > Database system > SQL Server > View Code
keyfrm.c
Package: gnusql-0.7b5.1.tar.gz　[view]
Upload User: dgyhgb
Upload Date: 2007-01-07
Package Size: 676k
Code Size: 3k
Category:

SQL Server

Development Platform:

Unix_Linux

keyfrm.c：Code Content
  1. /*
  2.  *  keyfrm.c  - Key forming for some DB table index
  3.  *              Kernel of GNU SQL-server  
  4.  *
  5.  *  This file is a part of GNU SQL Server
  6.  *
  7.  *  Copyright (c) 1996, 1997, Free Software Foundation, Inc
  8.  *  Developed at the Institute of System Programming
  9.  *  This file is written by  Vera Ponomarenko
  10.  *
  11.  *  This program is free software; you can redistribute it and/or modify
  12.  *  it under the terms of the GNU General Public License as published by
  13.  *  the Free Software Foundation; either version 2 of the License, or
  14.  *  (at your option) any later version.
  15.  *
  16.  *  This program is distributed in the hope that it will be useful,
  17.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  18.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19.  *  GNU General Public License for more details.
  20.  *
  21.  *  You should have received a copy of the GNU General Public License
  22.  *  along with this program; if not, write to the Free Software
  23.  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  24.  *
  25.  *  Contacts:   gss@ispras.ru
  26.  *
  27.  */
  29. /* $Id: keyfrm.c,v 1.245 1997/03/31 03:46:38 kml Exp $ */
  31. #include "xmem.h"
  32. #include "destrn.h"
  33. #include "strml.h"
  34. #include "fdcltrn.h"
  36. void
  37. keyform (struct ldesind *desind, u2_t fdf, char *mas, char *cort)
  38. { /* mas - to, cort - from */
  39.   u2_t kn, k, num_bit, fnk, sz, fn;
  40.   struct des_field *df;
  41.   u2_t *afn;
  42.   char *b;
  43.   char *arrpnt[BD_PAGESIZE];
  44.   u2_t arrsz[BD_PAGESIZE];  
  46.   kn = desind->ldi.kifn & ~UNIQ & MSK21B;
  47.   df = desind->pdf;
  48.   afn = (u2_t *) (desind + 1);
  49.   fn = desind->dri->desrbd.fieldnum;
  51.   tuple_break (cort, arrpnt, arrsz, df, fdf, fn);
  52.   
  53.   *mas = 0;  
  54.   for (num_bit = k = 0; k < kn; k++, num_bit++)
  55.     {
  56.       if (num_bit == 7)
  57. {
  58.   num_bit = 0;
  59.   *(++mas) = 0;
  60. }
  61.       if (arrpnt[afn[k]] != NULL)
  62. *mas |= BITVL(num_bit); /* read 1 in key scale */
  63.     }
  64.   
  65.   if ( *mas == 0)
  66.     mas--;
  67.   *mas |= EOSC;  
  68.   mas++;
  69.   for ( k = 0; k < kn; k++)
  70.     {
  71.       fnk = afn[k];
  72.       if ( (b = arrpnt[fnk]) != NULL)
  73. {
  74.   if ( (sz = arrsz[fnk]) != 0 )
  75.             {
  76.               bcopy (b, mas, sz);
  77.               mas += sz;
  78.             }
  79. }
  80.     }
  81. }
  83. char *
  84. remval (char *aval, char **a, u2_t type)
  85. /* a - to, aval - from */
  86. {
  87.   u2_t size = 0;
  89.   switch (type)
  90.     {
  91.     case T1B:
  92.       size = size1b;
  93.       break;
  94.     case T2B:
  95.       size = size2b;
  96.       break;
  97.     case TFLOAT:
  98.     case T4B:
  99.       size = size4b;
  100.       break;
  101.     case TFL:
  102.     case TCH:
  103.       size = t2bunpack (aval);
  104.       aval += size2b;
  105.       t2bpack (size, *a);
  106.       *a += size2b;
  107.       break;
  108.     default:
  109.       printf ("TR.remval:That data type is false");
  110.       break;
  111.     }
  112.   bcopy (aval, *a, size);
  113.   *a += size;
  114.   aval += size;
  115.   return (aval);
  116. }