home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTFLAT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  4.0 KB  |  174 lines
  1. /*
  2.  *    convert fixed-length flat file to c-tree data file
  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) 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.  
  24. #include "ctstdr.h"        /* standard i/o header         */
  25. #include "ctoptn.h"        /* c-tree configuration options */
  26. #include "cterrc.h"        /* c-tree error codes        */
  27. #include "ctstrc.h"        /* c-tree data structures    */
  28. #include "ctgvar.h"        /* c-tree global variables    */
  29.  
  30. #define TMP_NAME "CTREE.TMP"
  31. #define OLDFIL     0
  32. #define NEWFIL     1
  33.  
  34. POINTER NEWREC();
  35. RNDFILE mbopen();
  36. COUNT   WRTREC(),INTREE(),LOKREC(),CLSFIL(),CREDAT(),ctio();
  37. TEXT   *mballc();
  38.  
  39. TEXT   *recbuf;
  40.  
  41. main (argc,argv)
  42. int   argc;
  43. TEXT *argv[];
  44. {
  45.     TEXT   fname[MAX_NAME];
  46.     TEXT  *tp; 
  47.     int    flat_len,extension;
  48.  
  49.     VOID   convert();
  50.  
  51.     printf(
  52. "\n\nc-tree flat file conversion utility\nVersion 4.3 Release C\n");
  53.     printf("Copyright 1986, 1987, 1988, 1989 FairCom Corporation\n");
  54.     printf(
  55. "\nThe c-tree file will be named %s. Any existing file with this\n",TMP_NAME);
  56.     printf("\tname will first be deleted!\n");
  57.  
  58.     if (INTREE(3,2,1)) {
  59.         printf("\nNot enough memory space for INTREE\n");
  60.         return;
  61.     }
  62.  
  63.     flat_len = extension = 1;
  64.  
  65.     if (argc > 1) {
  66.         strcpy(fname,*++argv);
  67.         argc -= 2;
  68.         while (argc-- > 0) {
  69.             tp = *++argv;
  70.             switch (*tp) {
  71.         case 'R':
  72.         case 'r':
  73.                 flat_len = atoi(++tp);
  74.                 break;
  75.         case 'X':
  76.         case 'x':
  77.                 extension = atoi(++tp);
  78.                 break;
  79.             }
  80.         }
  81.     } else {
  82.         printf("\n     Enter flat file name >> ");
  83.         gets(ct_buf);
  84.         cpybuf(fname,ct_buf,MAX_NAME);
  85.     }
  86.     if (flat_len == 1) {
  87.         printf("\n      Enter record length >> ");
  88.         gets(ct_buf);
  89.         sscanf(ct_buf,"%u",&flat_len);
  90.     }
  91.     if (extension == 1) {
  92.         printf("\nEnter file extension size >> ");
  93.         gets(ct_buf);
  94.         sscanf(ct_buf,"%u",&extension);
  95.     }
  96.     printf(
  97. "\n\n\t*** Please wait while c-tree version of %s is created ***\n",fname);
  98.     convert(fname,(UCOUNT) flat_len,(UCOUNT) extension);
  99.     printf("\n\nEnd of File Conversion");
  100.     if (uerr_cod)
  101.         printf(" - Error Code %d\n\n",uerr_cod);
  102.     else
  103.         printf(".\n\n");
  104.     exit(0);
  105. }
  106.  
  107. COUNT skprec()
  108. {
  109. /*
  110.  * If you wish to examine records in the existing flat file, then
  111.  * you will find the record image in the buffer pointed to by
  112.  * recbuf. If the record should be skipped (i.e., not added to the
  113.  * c-tree version of the flat file), return YES. Otherwise return
  114.  * NO.
  115.  */
  116.  
  117.     return(NO);
  118. }
  119.  
  120. VOID convert(fn,rl,ext)
  121. TEXT        *fn;
  122. UCOUNT             rl,ext;
  123. {
  124.     POINTER recbyt,newbyt;
  125.  
  126.     if ((recbuf = mballc(1,rl)) == NULL) {
  127.         printf("\nCould not allocate space for record buffer\n");
  128.         return;
  129.     }
  130.  
  131.     strcpy(ct_key->flname,fn);
  132. #ifdef CT_ANSI
  133.     if ((ct_key->fd = mbopen(ct_key,(EXCLUSIVE | PERMANENT))) ==
  134.        (RNDFILE) NULL) {
  135. #else
  136.     if ((ct_key->fd = mbopen(ct_key,(EXCLUSIVE | PERMANENT))) < 0) {
  137. #endif
  138.         printf("\nCound not open flat file: %s\n",fn);
  139.         return;
  140.     }
  141.     remove(TMP_NAME);
  142.     if (CREDAT(NEWFIL,TMP_NAME,rl,ext,(EXCLUSIVE | PERMANENT))) {
  143.         printf("\nCould not create %s\n",TMP_NAME);
  144.         return;
  145.     }
  146.  
  147.  
  148.     recbyt = 0L;
  149.     while (ctio(CTREAD,ct_key,recbyt,recbuf,rl) == NO_ERROR) {
  150.         if (!skprec()) {
  151.             if ((newbyt = NEWREC(NEWFIL)) == DRNZERO) {
  152.                 printf("\nCould not get new record\n");
  153.                 return;
  154.             }
  155.             if (WRTREC(NEWFIL,newbyt,recbuf)) {
  156.                 printf("\nCould not write new record\n");
  157.                 return;
  158.             }
  159.          if (LOKREC(NEWFIL,FREE,newbyt)) {
  160.             printf("\nCould not unlock new record\n");
  161.             return;
  162.          }
  163.         } 
  164.         recbyt += rl;
  165.     }
  166.  
  167.     if (CLSFIL(NEWFIL,EXCLUSIVE))
  168.         printf("\nCould not close newly created file %s\n",TMP_NAME);
  169.  
  170.     return;
  171. }
  172.  
  173. /* end of ctflat.c */
  174.