home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 225_01 / archive.c < prev    next >
Text File  |  1987-06-10  |  14KB  |  380 lines
  1.  
  2. /*-----------------------------------------------------------------*/
  3. /*
  4.          Programme:     ARC2.C
  5.          ---------
  6.          Purpose:       Will "archive" files to the nominated disk
  7.          -------        and then set bit 7 of byte "t3" of the
  8.                         original file to show that it has been
  9.                         copied.
  10.  
  11.          Compiler:      BDS C V 1.50
  12.          --------
  13.          Written:       10/07/85
  14.          -------
  15.          Amended:       20/11/86  (for UTIL)
  16.          -------        28/11/86 to allow for the circumstance when
  17.                         the archive disk becomes full before the run
  18.                         is finished.
  19.  
  20.          Version:       2.0
  21.          -------
  22.  
  23.          Copyright 1986 - Cogar Computer Services Pty. Ltd.        */
  24. /*-----------------------------------------------------------------*/
  25. #include <bdscio.h>
  26. #include <pec.h>
  27. /*-----------------------------------------------------------------*/
  28. #define    VERSION "2.0\0"
  29. #define NAME    "ARCHIVE\0"
  30. /*-----------------------------------------------------------------*/
  31. main(argc, argv)    /* For Command Line processing             */
  32. int argc;
  33. char *argv[];
  34. {
  35. /*-----------------------------------------------------------------*/
  36. /*  Space reserved for variables used in programme                 */
  37. /*-----------------------------------------------------------------*/
  38.     char DRIVE;    /* The active drive                        */
  39.     char USER;    /* The User No. for this programme         */
  40.     int i, j, n, file_count, done_count; /* Counters           */
  41.     char c, d2;
  42.     int CPM;    /* To check the CP/M Version number        */
  43.     char OLD_DRIVE;    /* The drive at start of programme         */
  44.     char OLD_USER;    /* The User No. at start of programme      */
  45.     int  FD1, FD2;    /* For the open files                      */
  46.     char MY_DMA[128];    /* For data transfer               */
  47.     char NAME_BUF[1600];    /* For 50 file names               */
  48.     char BIG_BUF[16384];   /* For file transfer - 128 records  */
  49.     struct dpb *THIS;  /* For disk information                 */
  50.     int  DIRECTORY, SECTORS, offset;
  51.     char **skew_table; /* For sector translation               */
  52.     int  PHYS_SEC;
  53.     char in_file[15], out_file[15];
  54. /*-----------------------------------------------------------------*/
  55.     pec_clear();    /* Universal routine                       */
  56.     printf("%s - Version %s\n",NAME, VERSION);
  57.     printf("Copyright 1986 - Cogar Computer Services Pty.Ltd.\n\n");
  58. /*-----------------------------------------------------------------*/
  59. /*  First check the CP/M Version in use.   If it is less than
  60.     Version 2.0 then inform the user and terminate programme.      */
  61. /*-----------------------------------------------------------------*/
  62.  
  63.     CPM = get_cpm();    /* Obtain the CP/M version and No. */
  64.  
  65.     i = (CPM & 0xff) - 0x20; /* Mask off the MP/M bit          */
  66.  
  67.     if(i < 0)        /* Must be less than V 2.0         */
  68.     {
  69.     printf("This programme requires at least V 2.x of CP/M.\n");
  70.         printf("Sorry but it won't run for you.\n");
  71.         exit();
  72.     }
  73. /*-----------------------------------------------------------------*/
  74. /*  Now check the Command Line to see if any command was entered.
  75.     Other checks can also be used, as required but then it will be
  76.     necessary to change this coding.                               */
  77. /*-----------------------------------------------------------------*/
  78.     if(argc != 3)
  79.     {
  80. printf("This programme will copy files from the nominated drive\n");
  81. printf("to the ARCHIVE disk but will only accept those files which\n");
  82. printf("have not previously been copied.   It does this by checking\n");
  83. printf("the archive byte....byte 't3' of the file name.\n\n");
  84. printf("When it has copied the file across it will set bit 7 of t3\n");
  85. printf("in the particular file name to show that this file has now\n");
  86. printf("been archived.\n\n");
  87.  
  88.         printf("\tEnter the DRIVE to take files FROM - ");
  89.         DRIVE = toupper(getchar());
  90.         lines(2);
  91.         printf("\tEnter the DRIVE to copy files TO   - ");
  92.         d2 = toupper(getchar());
  93.     }
  94.     else if(argc == 3)
  95.     {
  96.         DRIVE = toupper(argv[1][0]);
  97.         d2 = toupper(argv[2][0]);
  98.     }
  99.     lines(2);
  100.     if(DRIVE == d2)
  101.     {
  102.         printf("Copying TO and FROM same disk is not allowed.");
  103.         exit();
  104.     }
  105. /*-----------------------------------------------------------------*/
  106. /*  Save the starting drive in case it is changed later.           */
  107. /*-----------------------------------------------------------------*/
  108.     OLD_DRIVE = get_default() + 0x41;
  109. /*-----------------------------------------------------------------*/
  110. /*  Save the starting User No. in case it is changed later.        */
  111. /*-----------------------------------------------------------------*/
  112.     OLD_USER = user_id(0xff);
  113. /*-----------------------------------------------------------------*/
  114. /*  Now check that the selected drives are available.              */
  115. /*-----------------------------------------------------------------*/
  116.     printf("You have nominated to copy FROM -  %c\n", DRIVE);
  117.     if(select_dsk(DRIVE) != 0)
  118.         exit();
  119.     printf("                           TO   -  %c\n", d2);
  120.     if(select_dsk(d2) != 0)
  121.         exit();
  122.     else printf("Both drives are acceptable.");
  123.     lines(2);
  124. /*-----------------------------------------------------------------*/
  125. /*  Get the pointer to the skew table for sector translation when
  126.     reading the Directory, and go back to the Copy drive.          */
  127. /*-----------------------------------------------------------------*/
  128.     if(!(skew_table = seldsk(DRIVE)))
  129.         exit();
  130.     if(select_dsk(DRIVE) != 0)
  131.         exit();
  132. /*-----------------------------------------------------------------*/
  133. /*  Get the information needed to read Directory track.            */
  134. /*-----------------------------------------------------------------*/
  135.     THIS = dpb_adr();
  136.     DIRECTORY = THIS->OFF;    /* The directory track             */
  137.     SECTORS   = THIS->SPT;  /* Records per track               */
  138.  
  139.     set_dma(&MY_DMA[0]);
  140.     set_trk(DIRECTORY);
  141.     file_count = done_count = offset = 0;
  142. /*-----------------------------------------------------------------*/
  143. /*  We now have to check for files to be archived.   When found
  144.     their names won't be in a suitable form to be used in the "open"
  145.     and "close" file functions available in BDS C.   It will be
  146.     necessary to first convert the names to suitable null-terminated
  147.     strings.                                                       */
  148. /*-----------------------------------------------------------------*/
  149.     printf("               FILES BEING ARCHIVED\n");
  150.     printf("               --------------------\n\n");
  151.  
  152.     for(i = 0; i < SECTORS; i++)
  153.     {
  154.         PHYS_SEC = biosh(16, i, *skew_table);
  155.         set_sec(PHYS_SEC);
  156.         setmem(&MY_DMA[0], 128, 0xe5);
  157. /*-----------------------------------------------------------------*/
  158. /*  Read one Directory sector into DMA buffer and then check if
  159.     any files are available for archiving.                         */
  160. /*-----------------------------------------------------------------*/
  161.         if(read_sec() != 0) /* Put information into DMA buffer */
  162.         {
  163.             printf("\nBad read of sector - %d", PHYS_SEC);
  164.             user_id(OLD_USER);
  165.             if(select_dsk(OLD_DRIVE) != 0)
  166.         printf("\nUnable to return to starting drive.");
  167.             exit();
  168.         }
  169.  
  170.         for(j = 0; j < 4; j++)
  171.         {
  172.             USER = MY_DMA[j*32];
  173.             c    = MY_DMA[j*32 + 11];
  174.  
  175.     if(USER != 0xe5 && USER == OLD_USER && c < 128)
  176.             {
  177.                 if(++file_count == 50)
  178.                 {
  179.     printf("There is a limit of 50 files which can be copied.\n");
  180.     printf("Your options are to run the programme again after\n");
  181.     printf("this run finishes....and so do the additional files.\n");
  182.     printf("Else you can go to ARCHIVE.C and alter the size of\n");
  183.     printf("the NAME_BUF to accomodate more files.\n\n");
  184.                 j = 4;
  185.                 i = SECTORS;
  186.                 }
  187.  
  188.     movmem(&MY_DMA[j*32], &NAME_BUF[offset], 32);
  189.                 offset = offset + 32;
  190.             }
  191.         }
  192.     }
  193. /*-----------------------------------------------------------------*/
  194. /*  Check to see whether we have anything to archive.   If not
  195.     then tell the user and terminate.                              */
  196. /*---------------------------------