home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTISMC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  2.9 KB  |  129 lines
  1. /*
  2.  *    create isam files
  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 "cterrc.h"        /* c-tree error codes        */
  26. #include "ctstrc.h"        /* c-tree data structures    */
  27. #include "ctgvar.h"        /* c-tree global variables    */
  28. #include "ctisam.h"        /* c-tree isam header        */
  29.  
  30. COUNT    INTREE(),CREIDX(),CREDAT(),getidxr(),getintr(),getdatr(),ierr();
  31. COUNT    getambr(),CREMEM();
  32. FILE    *fopen();
  33.  
  34.  
  35. COUNT CREISAM(filnam)
  36. TEXT *filnam;
  37.  
  38. {
  39. #ifdef PARMFILE
  40.     FILE      *ifd;
  41.     FAST COUNT i,j,k;
  42.     COUNT      nbufs,nkeys,nsecs,dkeys;
  43.     COUNT      nomemb,datno,filemd,keyno,klen,ktyp,dflg;
  44.     UCOUNT       datlen,xtdsiz;
  45.     TEXT       isam_nam[MAX_NAME];
  46.     LOKS      *lp;
  47.  
  48.     isam_err = NO_ERROR;
  49.     if ((ifd = fopen(filnam,"r")) == NULL)
  50.         return(ierr(INOD_ERR,0));
  51.  
  52.     if (getintr(ifd,&nbufs,&nkeys,&nsecs,&ct_isdats)) {
  53.         fclose(ifd);
  54.         return(isam_err);
  55.     }
  56.     if (INTREE(nbufs,nkeys + ct_isdats,nsecs)) {
  57.         fclose(ifd);
  58.         return(ierr(uerr_cod,0));
  59.     }
  60.  
  61.     for (i = 0; i < ct_mxfil; ) {
  62.         ct_dtmap[i]      = NO;
  63.         ct_rvmap[i]      = -1;
  64.         cur_recno[i]   = DRNZERO;
  65.         ct_kymap[i++][0] = -1;
  66.     }
  67.  
  68.     for (i = 0; i < ct_isdats; i++) {
  69.         if (getdatr(ifd,&datno,isam_nam,&datlen,&dkeys,&xtdsiz,
  70.             &filemd))
  71.             goto close_up;
  72.  
  73.         if (CREDAT(datno,isam_nam,datlen,xtdsiz,filemd)) {
  74.             ierr(uerr_cod,datno);
  75.             goto close_up;
  76.         }
  77.  
  78.         for (j = 0; j < dkeys; j++) {
  79.             if (getidxr(ifd,datno,j,&keyno,isam_nam,&klen,&ktyp,
  80.                 &dflg,&nomemb,&xtdsiz,&filemd))
  81.                 goto close_up;
  82.  
  83.                 if (CREIDX(keyno,isam_nam,klen,ktyp,dflg,
  84.                 nomemb,xtdsiz,filemd)) {
  85.                     ierr(uerr_cod,keyno);
  86.                 goto close_up;
  87.             }
  88.  
  89.             for (k = 1; k <= nomemb; k++) {
  90.                 if (getambr(ifd,datno,j + k,keyno + k,&klen,
  91.                     &ktyp,&dflg))
  92.                     return(isam_err);
  93.                 if (CREMEM(keyno,klen,ktyp,dflg,k)) {
  94.                     ierr(uerr_cod,keyno + k);
  95.                     goto close_up;
  96.                 }
  97.             }
  98.             j += nomemb;
  99.  
  100.         }
  101.         if (j < MAX_DAT_KEY)
  102.             ct_kymap[datno][j] = -1;
  103.     }
  104.  
  105. close_up:
  106.     fclose(ifd);
  107.     if (isam_err) {
  108.         for (i = 0; i < ct_mxfil; i++)
  109.             if (ct_dtmap[i] == YES) {
  110.                 CLSFIL(i,COMPLETE);
  111.                 ct_dtmap[i] = NO;
  112.             }
  113.         mbfree(ct_origin);
  114.         ct_origin = NULL;
  115.         mbfree(ct_key);
  116.         ct_key    = ct_dat = ct_vat = NULL;
  117.         mbfree(ct_btree);
  118.         ct_btree  = NULL;
  119.         ct_mxfil = 0;
  120.         return(isam_err);
  121.     }
  122.     for (i = 0,lp = ct_locks; i < MAX_LOCKS; i++,lp++)
  123.         lp->datfnm = -1;
  124. #endif
  125.     return(NO_ERROR);
  126. }
  127.  
  128. /* end of ctismc.c */
  129.