home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTIFIL.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  3.7 KB  |  174 lines
  1. /*
  2.  *    incremental isam file support
  3.  *
  4.  *    This program is the CONFIDENTIAL and PROPRIETARY property 
  5.  *    of FairCom(R) Corporation. Any unauthorized use, reproduction or
  6.  *    transfer of this program is strictly prohibited.
  7.  *
  8.  *    Copyright (c) 1987, 1988, 1989 FairCom Corporation
  9.  *    (Subject to limited distribution and
  10.  *     restricted disclosure only.)
  11.  *    *** ALL RIGHTS RESERVED ***
  12.  *
  13.  *    4006 West Broadway
  14.  *    Columbia, MO 65203
  15.  *
  16.  *
  17.  *    c-tree(R)    Version 4.3
  18.  *            Release C
  19.  *            February 7, 1989 17:30
  20.  *
  21.  */
  22.  
  23. #include "ctstdr.h"
  24. #include "ctoptn.h"
  25. #include "ctstrc.h"
  26. #include "ctgvar.h"
  27. #include "ctisam.h"
  28. #include "ctifil.h"
  29. #include "cterrc.h"
  30.  
  31. #ifdef RTREE
  32. #include "rtpars.h"
  33. #include "rtstrc.h"
  34.  
  35. EXTERN RKEY  usrkey[];
  36. EXTERN COUNT srtknm,srtdat,tmpdat;
  37. #endif
  38.  
  39. COUNT ierr();
  40.  
  41. COUNT filrng(ifilptr)
  42. PFAST IFIL  *ifilptr;
  43. {
  44.     FAST COUNT   i;
  45.     COUNT         filno,ll,ul;
  46.     FAST CTFILE *ctnum;
  47.  
  48.     ifilptr->tfilno = -1;
  49.     /* check if filno range exists */
  50.     if ((filno = ifilptr->dfilno) < 0) {
  51.         ll = 0;
  52. #ifdef RTREE
  53.         ul = ct_mxfil - ifilptr->dnumidx - 3;
  54. #else
  55.         ul = ct_mxfil - ifilptr->dnumidx;
  56. #endif
  57.     } else
  58.         ll = ul = filno;
  59.     for (filno = ll, ctnum = ct_key + ll; filno <= ul; filno++, ctnum++) {
  60.         for (i = 0; i <= ifilptr->dnumidx; i++) {
  61.             if ((ctnum + i)->chnacs != 'n')
  62.                 break;
  63.         }
  64.         if (i > ifilptr->dnumidx)
  65.             return(filno);
  66.     }
  67.     return(-ierr(FUSE_ERR,filno));
  68. }
  69.  
  70. COUNT setimap(i,ip)
  71. COUNT          i;
  72. IFIL           *ip;
  73. {
  74.     FAST COUNT k,keyno;
  75.     FAST IIDX *idxp;
  76.     COUNT       datno,totseg,tstmod;
  77.  
  78.     datno         = ip->tfilno;
  79.     idxp         = &ip->ix[i];
  80.     keyno         = datno + i + 1;
  81.     if (idxp->inumseg > MAX_KEY_SEG)
  82.         return(ierr(IKRS_ERR,keyno));    
  83.     ct_kymap[datno][i] = keyno;
  84.     ct_rvmap[keyno]    = datno;
  85.     ct_nlchr[keyno]    = idxp->iempchr;
  86.     ct_nlkey[keyno]    = idxp->inulkey;
  87.     ct_vfin[keyno]     = NO;
  88.  
  89.     for (k = 0, totseg = idxp->ikeylen; k < idxp->inumseg; k++) {
  90.         ct_sgpos[keyno][k] = idxp->seg[k].soffset;
  91.         ct_sglen[keyno][k] = idxp->seg[k].slength;
  92.         ct_sgmod[keyno][k] = tstmod = idxp->seg[k].segmode;
  93.         tstmod &= SEGMSK;
  94.         totseg -= ct_sglen[keyno][k];
  95.         if (tstmod == SRLSEG)
  96.             (ct_key + datno)->srlpos = ct_sgpos[keyno][k] + 1;
  97.         else if (tstmod == VARSEG || tstmod == UVARSEG)
  98.             ct_vfin[keyno] = YES;
  99.     }
  100.     if ((idxp->ikeydup == DUPKEY && totseg != sizeof(POINTER)) ||
  101.         (idxp->ikeydup != DUPKEY && totseg))
  102.         return(ierr(ISLN_ERR,keyno));
  103.  
  104.     if (k < MAX_KEY_SEG)
  105.         ct_sgpos[keyno][k] = -1;
  106.  
  107. #ifdef RTREE
  108.     usrkey[keyno].rsymb = idxp->ridxnam;
  109.     usrkey[keyno].rtype = idxp->ikeytyp;
  110. #endif
  111.  
  112.     return(NO_ERROR);
  113. }
  114.  
  115. COUNT CLIFIL(ifilptr)
  116. PFAST IFIL  *ifilptr;
  117. {
  118.     FAST COUNT filno;
  119.     COUNT       CLSFIL();
  120.  
  121.     if (CLSFIL(filno = ifilptr->tfilno,ifilptr->dfilmod))
  122.         return(ierr(uerr_cod,filno));
  123.     else {
  124.         ifilptr->tfilno = -1;
  125.         ct_dtmap[filno]    = NO;
  126.         cur_recno[filno] = DRNZERO;
  127.     }
  128.     if (ifilptr->dnumidx > 0) {
  129.         CLSFIL(filno + 1,ifilptr->ifilmod);
  130.         ct_dtmap[filno + 1] = NO;
  131.     }
  132.     return(ierr(uerr_cod,filno));
  133. }
  134.  
  135. COUNT INTISAM(bufs,fils,sect)
  136. COUNT          bufs,fils,sect;
  137. {
  138.     FAST COUNT i;
  139.     LOKS      *lp;
  140.     COUNT       INTREE();
  141.  
  142.     isam_err = NO_ERROR;
  143.     if (fils > MAXFIL)
  144.         return(ierr(IFIL_ERR,0));
  145.  
  146. #ifdef RTREE
  147.     for (i = 0; i < MAXFIL; i++) {
  148.         usrkey[i].rtype = -1;
  149.         usrkey[i].rsymb = NULL;
  150.     }
  151.     if (fils > (MAXFIL - 3))
  152.         return(ierr(IKSR_ERR,0));
  153.     fils   += 3;
  154.     srtknm  = fils   - 1;
  155.     srtdat  = srtknm - 1;
  156.     tmpdat  = srtdat - 1;
  157. #endif
  158.  
  159.     if (INTREE(bufs,fils,sect))
  160.         return(ierr(uerr_cod,0));
  161.  
  162.     for (i = 0; i < ct_mxfil; ) {
  163.         ct_dtmap[i]      = NO;
  164.         ct_rvmap[i]      = -1;
  165.         cur_recno[i]   = DRNZERO;
  166.         ct_kymap[i++][0] = -1;
  167.     }
  168.     for (i = 0,lp = ct_locks; i < MAX_LOCKS; i++,lp++)
  169.         lp->datfnm = -1;
  170.     return(NO_ERROR);
  171. }
  172.  
  173. /* end of ctifil.c */
  174.