opscfl.c
上传用户:dgyhgb
上传日期:2007-01-07
资源大小:676k
文件大小:2k
源码类别:

SQL Server

开发平台:

Unix_Linux

  1. /*
  2.  *  opscfl.c  -  Open scanning by a filter
  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.  */
  28. /* $Id: opscfl.c,v 1.247 1997/04/17 11:03:20 vera Exp $ */
  29. #include "fdcltrn.h"
  30. #include "destrn.h"
  31. #include "strml.h"
  32. extern i2_t maxscan;
  33. extern char **scptab;
  34. extern struct des_nseg desnseg;
  35. u2_t
  36. opscfl (i4_t idfl, i4_t mode, u2_t fn, u2_t * fl,
  37.         u2_t slsz, char *sc, u2_t fmn, u2_t * fml)
  38. {
  39.   u2_t fnt, fdf;
  40.   struct des_fltr *desfl;
  41.   struct d_r_t *desrel;
  42.   struct d_sc_f *scfl;
  43.   struct des_field *df;
  44.   i2_t n;
  45.   if ((u2_t) idfl > desnseg.mtobnum)
  46.     return (NIOB);
  47.   desfl = (struct des_fltr *) * (desnseg.tobtab + idfl);
  48.   if (desfl == NULL)
  49.     return (NIOB);    
  50.   if (((struct prtob *) desfl)->prob != FLTR)
  51.     return (NIOB);
  52.   desrel = desfl->pdrtf;
  53.   fnt = desrel->desrbd.fieldnum;
  54.   fdf = desrel->desrbd.fdfnum;
  55.   df = (struct des_field *) (desrel + 1);
  56.   if (testcond (df, fnt, fdf, fn, fl, &slsz, sc, fmn, fml) != OK)
  57.     return (NCF);
  58.   scfl = (struct d_sc_f *) lusc (&n, scfsize, (char *) desfl, SCF,
  59.                                  mode, fn, fl, sc, slsz, fmn, fml, 0);
  60.   scfl->pnf = desfl->tobfl.firstpn;
  61.   scfl->offf = phfsize;
  62.   scfl->mpnf = (u2_t) ~ 0;
  63.   scfl->mofff = 0;
  64.   return (n);
  65. }