home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTRBLD.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  4.2 KB  |  175 lines
  1. /*
  2.  *    rebuild front end
  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. #include "ctvrec.h"        /* variable length header    */
  30.  
  31. #ifdef FPUTFGET
  32.  
  33. main()
  34. {
  35.     printf(
  36. "\n*** CTRBLD should not be compiled with the FPUTFGET option.    ***");
  37. printf(
  38. "\n*** CTRBLD should compiled with the NOTFORCE disk I/O option,    ***");
  39. printf(
  40. "\n*** AND linked to a library compiled with the NOTFORCE option.    ***");
  41.     exit(0);
  42. }
  43.  
  44. #else
  45.  
  46. /*
  47.  * To disable REBUILD prompts, "comment out" the RB_INTERACTIVE define
  48.  * below and in CTRBL2.C
  49.  */
  50. #define RB_INTERACTIVE
  51.  
  52.  
  53. #define SORT_SPACE    32760
  54.  
  55. EXTERN COUNT    rerr_cod,rerr_fil,ct_fp,ct_redom;
  56. EXTERN TEXT    *ct_rbuf;
  57. EXTERN POINTER *ct_pbuf;
  58. EXTERN VRLEN    ct_bsz;
  59. EXTERN LONG    ct_spc;
  60.  
  61. TEXT        *mballc();
  62. COUNT        getintr(),getdatr(),getidxr(),getambr(),uerr();
  63. COUNT        INTREE();
  64.  
  65. main (argc,argv)
  66. int   argc;
  67. TEXT *argv[];
  68. {
  69.     COUNT rebuild(),yesno();
  70.  
  71.     TEXT  rbld_nam[MAX_NAME];
  72.  
  73.     ct_bsz = 0;
  74.     ct_rbuf   = NULL;
  75.  
  76.     printf("\n\nc-tree(R) REBUILD VERSION 4.3\nRelease C\n");
  77.     printf("\nCopyright 1984-1989 FairCom Corporation");
  78.     printf(
  79. "\n\nPlease note that index files which must be rebuilt will be deleted first.");
  80.  
  81.     if (argc > 1) {
  82.         cpybuf(rbld_nam,*++argv,MAX_NAME);
  83.         printf("\n\nParameter File Name>> %s\n",rbld_nam);
  84.     } else {
  85.         printf("\n\nEnter Rebuild Parameter File Name>> ");
  86.         gets(ct_buf);
  87.         cpybuf(rbld_nam,ct_buf,MAX_NAME);
  88.     }
  89.  
  90. #ifdef RB_INTERACTIVE
  91.     printf("\n\nDo you want to force rebuild? (y or n)>> ");
  92.     ct_fp = yesno();
  93. #else
  94.     ct_fp = YES;
  95. #endif
  96.  
  97.     printf("\n\n   ***  Wait While Rebuilding  ***\n\n");
  98.     rerr_cod = rerr_fil = 0;
  99.     rebuild(rbld_nam);
  100.  
  101.     printf("\n\nEnd Of Rebuild");
  102.     if (rerr_cod)
  103.         printf(" - Error Code %d  File %d\n",rerr_cod,rerr_fil);
  104.     else
  105.         printf(".\n");
  106.     exit(0);
  107. }
  108.  
  109. COUNT rebuild(rname)
  110.  
  111. TEXT *rname;
  112.  
  113. {
  114.     COUNT      RBLDAT(),RBLIDX(),RBLMEM();
  115.     FILE      *ifd;
  116.     FAST COUNT i,j,k;
  117.     COUNT      nbufs,nkeys,dkeys,nomemb,nsecs;
  118.     COUNT      datno,xtdsiz,filemd,datlen,keyno,klen,ktyp,dflg;
  119.     TEXT       filname[MAX_NAME],idxname[MAX_NAME];
  120.  
  121.     FILE *fopen();
  122.  
  123.     if ((ct_pbuf = (POINTER *) mballc(1,(unsigned int) (ct_spc = SORT_SPACE))) == NULL)
  124.         return(rerr(RSPC_ERR,0));
  125.     if ((ifd = fopen(rname,"r")) == NULL)
  126.         return(rerr(INOD_ERR,0));
  127.  
  128.     if (getintr(ifd,&nbufs,&nkeys,&nsecs,&ct_isdats))
  129.         return(rerr(isam_err,0));
  130.     if (INTREE(nbufs,nkeys + ct_isdats,nsecs))
  131.         return(rerr(uerr_cod,0));
  132.  
  133.     for (i = 0; i < ct_isdats; i++) {
  134.         if (getdatr(ifd,&datno,filname,&datlen,&dkeys,&xtdsiz,&filemd))
  135.             return(rerr(isam_err,isam_fil));
  136.         if (datlen > ct_bsz) {
  137.             if (ct_rbuf != NULL)
  138.                 mbfree(ct_rbuf);
  139.             if ((ct_rbuf = mballc(1,datlen)) != NULL)
  140.                 ct_bsz = datlen;
  141.             else
  142.                 return(rerr(RRLN_ERR,i));
  143.         }
  144.         if (RBLDAT(datno,filname,datlen,xtdsiz,filemd))
  145.             return(rerr_cod);
  146.  
  147.         (ct_key + datno)->srlpos = 0;
  148.         for (j = 0; j < dkeys; j++) {
  149.             if (getidxr(ifd,datno,j,&keyno,
  150.                 idxname,&klen,&ktyp,&dflg,&nomemb,&xtdsiz,&filemd))
  151.                 return(rerr(isam_err,isam_fil));
  152.  
  153.             if (RBLIDX(datno,filname,idxname,keyno,klen,ktyp,dflg,
  154.                 nomemb,xtdsiz,filemd))
  155.                 return(rerr_cod);
  156.  
  157.             for (k = 1; k <= nomemb; k++) {
  158.                 if (getambr(ifd,datno,j + k,keyno + k,&klen,
  159.                     &ktyp,&dflg))
  160.                     return(rerr(isam_err,isam_fil));
  161.                 if (ct_redom && RBLMEM(datno,filname,idxname,
  162.                     keyno,klen,ktyp,dflg,k))
  163.                     return(rerr_cod);
  164.             }
  165.             j += nomemb;
  166.         }
  167.     }
  168.     fclose(ifd);
  169.     return(NO_ERROR);
  170. }
  171.  
  172. #endif /* ifdef FPUTFGET */
  173.  
  174. /* end of ctrbld.c */
  175.