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

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

SQL Server

开发平台：

Unix_Linux

recmj.c：源码内容
  1. /*
  2.  *  recmj.c  - Records in Microjournal
  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: recmj.c,v 1.246 1997/04/15 11:45:41 vera Exp $ */
  31. #include "destrn.h"
  32. #include "strml.h"
  33. #include "fdcltrn.h"
  34. #include "xmem.h"
  36. #define SZMJBF SZMSGBUF-2*size2b
  37. struct rec_mj
  38. {
  39.   struct ADBL addmj;
  40.   char typemj;
  41.   i4_t idmmj;
  42.   u2_t snmj;
  43.   u2_t pnmj;
  44.   u2_t offmj;
  45.   u2_t fsmj;
  46. };
  47. extern struct ADBL admj;
  48. extern struct ADREC blmj;
  49. extern char *bufmj;
  50. extern char *pbufmj;
  52. void
  53. recmjform (i4_t type, u2_t sn, u2_t pn, i4_t idm, u2_t off, u2_t fs, char *af, i2_t shsize)
  54. {
  55.   u2_t size;
  56.   char *a;
  58.   size = adjsize + 1 + size4b + 4 * size2b;
  59.   if (type != OLD)
  60.     size += size2b;
  61.   else
  62.     size += fs;
  63.   if (type == COMBR || type == COMBL)
  64.     size += shsize;
  65.   size += pbufmj - bufmj;
  66.   if (size > SZMJBF)
  67.     MJ_PUTBL ();
  69.   a = pbufmj;
  70.   bcopy ((char *) &admj, a, adjsize);
  71.   a += adjsize;
  72.   *a++ = type;
  73.   t4bpack (idm, a);
  74.   a += size4b;
  75.   t2bpack (sn, a);
  76.   a += size2b;
  77.   t2bpack (pn, a);
  78.   a += size2b;
  79.   t2bpack (off, a);
  80.   a += size2b;
  81.   t2bpack (fs, a);
  82.   a += size2b;
  83.   if (type != OLD)
  84.     {
  85.       bcopy ((char *) &shsize, a, size2b);
  86.       a += size2b;
  87.     }
  88.   else
  89.     {
  90.       bcopy (af, a, fs);
  91.       a += fs;
  92.     }
  93.   if (type == COMBR || type == COMBL)
  94.     {
  95.       bcopy (af, a, shsize);
  96.       a += shsize;
  97.     }
  98.   pbufmj = a;
  99. }
  101. i4_t
  102. begmop (char *asp)
  103. {
  104.   i4_t idm;
  105.   beg_mop ();
  106.   idm = ++((struct p_head *) asp)->idmod;
  107.   return (idm);
  108. }
  110. void
  111. beg_mop ()
  112. {
  113.   admj.npage = 1;
  114.   admj.cm = 0;
  115.   pbufmj = bufmj;
  116. }