home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTICLS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  2.2 KB  |  101 lines
  1. /*
  2.  *    isam close routine
  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) 1984, 1985, 1986, 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"        /* standard i/o header         */
  24. #include "ctoptn.h"        /* c-tree configuration options */
  25. #include "ctstrc.h"        /* c-tree data structures    */
  26. #include "ctgvar.h"        /* c-tree global variables    */
  27. #include "ctisam.h"        /* c-tree isam header        */
  28.  
  29. #ifdef RTREE
  30. #ifdef PARMFILE
  31. #include "rtpars.h"
  32. #include "rtstrc.h"
  33.  
  34. EXTERN RKEY  usrkey[];
  35. EXTERN RDAT  usrdat[];
  36. #endif
  37. #endif
  38.  
  39. COUNT CLISAM()
  40. {
  41.     COUNT i,err_flag;
  42.     COUNT CLSFIL(),ierr();
  43.     VOID  mbfree();
  44.  
  45. #ifdef RTREE
  46. #ifdef PARMFILE
  47.     FAST CTFILE *ctnum;
  48.     FAST COUNT   j;
  49. #endif
  50. #endif
  51.  
  52.     if (ct_key == NULL) /* no c-tree initialization */
  53.         return(uerr_cod = 0);
  54.  
  55. #ifdef RTREE
  56. #ifdef PARMFILE
  57.     for (i = 0; i < ct_mxfil; i++) {
  58.         ctnum = ct_key + i;
  59.         if (ctnum->chnacs == 'y' || ctnum->chnacs == 'v')
  60.             if (ctnum->clstyp != IDX_CLOSE && ct_dtmap[i] == YES) {
  61.             mbfree(usrdat[i].fldnam[1]);
  62.             mbfree(usrdat[i].fldnam[2]);
  63.             } else if (ctnum->clstyp == IDX_CLOSE &&
  64.               ct_dtmap[i] == YES) {
  65.             for (j = 0; j <= ctnum->nmem; j++)
  66.                 mbfree(usrkey[i + j].rsymb);
  67.             i += ctnum->nmem;
  68.             }
  69.     }
  70. #endif
  71. #endif
  72.  
  73.     isam_err = err_flag = 0;
  74.     for (i = 0; i < ct_mxfil; i++)
  75.         if (ct_dtmap[i]) {
  76.             if (CLSFIL(i,(ct_key + i)->flmode)) {
  77.                 if (!err_flag)
  78.                     err_flag = ierr(uerr_cod,i);
  79.             } else {
  80.                 ct_dtmap[i] = 0;
  81.                 cur_recno[i] = DRNZERO;
  82.             }
  83.         }
  84.  
  85.     mbfree(ct_origin);
  86.     ct_origin = NULL;
  87.     mbfree(ct_key);
  88.     ct_key    = ct_vat = ct_dat = NULL;
  89.     mbfree(ct_btree);
  90.     ct_btree  = NULL;
  91.     mbfree(ct_savset);
  92.     ct_savset = NULL;
  93.     ct_mxfil  = 0;
  94. #ifdef CTSERVER
  95.     STPUSR();
  96. #endif
  97.     return(err_flag);
  98. }
  99.  
  100. /* end of cticls.c */
  101.