Category

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

SQL Server

Development Platform:

Unix_Linux

reclj.c：Code Content
  1. /*
  2.  *  reclj.c  - Records in Logical Journal
  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: reclj.c,v 1.246 1997/04/10 06:57:28 vera Exp $ */
  31. #include "destrn.h"
  32. #include "strml.h"
  33. #include "fdcltrn.h"
  34. #include "xmem.h"
  36. #define SZLJBF BD_PAGESIZE
  37. extern struct ADREC bllj;
  38. extern i4_t idtr;
  39. extern char *pbuflj;
  41. void
  42. wmlj (i4_t type, u2_t size, struct ADBL *cadlj, struct id_rel *idr,
  43.       struct des_tid *tid, CPNM cpn)
  44. {
  45.   char *a;
  47.   bllj.razm = size;
  48.   a = pbuflj;
  49.   if (size > SZLJBF)
  50.     fprintf (stderr,"TR.reclj: LJ's buffer is too small");
  51.   *a++ = type;
  52.   t4bpack (idtr, a);
  53.   a += size4b;
  54.   t2bpack (cadlj->npage, a);
  55.   a += size2b;
  56.   t2bpack (cadlj->cm, a);
  57.   a += size2b;
  58.   if (type == CPRLJ)
  59.     {
  60.       bcopy ((char *) &cpn, a, cpnsize);
  61.       a += cpnsize;
  62.       LJ_put (PUTHREC);
  63.     }
  64.   else if (type == RLBLJ)
  65.     LJ_put (PUTHREC);
  66.   else if (type == RLBLJ_AS_OP)
  67.     LJ_put (PUTREC);
  68.   else
  69.     {
  70.       t2bpack (idr->urn.segnum, a);
  71.       a += size2b;
  72.       t4bpack (idr->urn.obnum, a);
  73.       a += size4b;
  74.       t2bpack (idr->pagenum, a);
  75.       a += size2b;
  76.       t2bpack (idr->index, a);
  77.       a += size2b;
  78.       t2bpack (tid->tpn, a);
  79.       a += size2b;
  80.       t2bpack (tid->tindex, a);
  81.       a += size2b;
  82.       LJ_put (PUTREC);
  83.     }
  84. }