home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 225_01 / user2.c < prev    next >
Text File  |  1987-06-10  |  14KB  |  383 lines
  1.  
  2. /*-----------------------------------------------------------------*/
  3. /*       STANDARD HEADER FOR BDS C PROGRAMMES
  4.          ------------------------------------
  5.  
  6.          Programme:     USER2.C
  7.          ---------
  8.          Purpose:       This programme will delete all inactive
  9.          -------        entries from the directory and then re-write
  10.                         the directory in (almost) alphabetical order.
  11.  
  12.          Written:       11/05/86
  13.          -------
  14.          Amended:       06/11/86
  15.          -------
  16.          Version:       2.0
  17.          -------
  18.  
  19.          Copyright 1986 - Cogar Computer Services Pty. Ltd.        */
  20. /*-----------------------------------------------------------------*/
  21. #include <bdscio.h>
  22. #include <pec.h>
  23. /*-----------------------------------------------------------------*/
  24. #define    VERSION "2.0\0"
  25. #define NAME    "USER2\0"
  26. /*-----------------------------------------------------------------*/
  27.  
  28. main(argc, argv)    /* For Command Line processing             */
  29. int argc;
  30. char *argv[];
  31. {
  32. /*-----------------------------------------------------------------*/
  33. /*  Space reserved for variables used in programme                 */
  34. /*-----------------------------------------------------------------*/
  35.     int i, j, k, l;
  36.     char c;
  37.     int CPM;    /* To check the CP/M Version number        */
  38.     char DRIVE;    /* The active drive                        */
  39.     char OLD_DRIVE;    /* The starting drive No.                  */
  40.     char OLD_USER;    /* The User No. at start of programme      */
  41.     char FROM_USER;    /* User area to take file from             */
  42.     char TO_USER;    /* User area to put file to                */
  43.     char my_dma[128];    /* The dma buffer to use           */
  44.     char my_file[15];
  45.     char filename[12];
  46.     char READING, FOUND, FLAG;
  47.     int  FD;    /* The file descriptor                     */
  48.     char out_buf[128];
  49.     char **skew_table;
  50.     int  PHYS_SEC;    /* The physical sector to read/write       */
  51.     unsigned STORAGE;    /* The size of the big buffer      */
  52.     struct dpb *THIS;    /* Disk parameter information      */
  53.     int  DIRECTORY;    /* The directory track                     */
  54.     int  SECTORS;    /* Sectors per track                       */
  55.     int  ENTRIES;    /* The active entries in directory         */
  56.     char *BIG_BUF, *infile;
  57. /*-----------------------------------------------------------------*/
  58.     pec_clear();    /* Universal routine                       */
  59.     printf("%s - Version %s\n",NAME, VERSION);
  60.     printf("Copyright 1986 - Cogar Computer Services Pty.Ltd.\n");
  61.     printf("----------------------------------------------------------\n");
  62.     printf("This programme will copy a nominated programme to another\n");
  63.     printf("User Area, from the present User Area.   At the same time\n");
  64.     printf("as it does this it will also 'clean up' the directory\n");
  65.     printf("tracks by removing any inactive (0xe5) entries, and will\n");
  66.     printf("then sort the active entries into (approximate) alphabetical\n");
  67.     printf("order.\n");
  68.     printf("----------------------------------------------------------\n");
  69. /*-----------------------------------------------------------------*/
  70. /*  First check the CP/M Version in use.   If it is less than
  71.     Version 2.0 then inform the user and terminate programme.      */
  72. /*-----------------------------------------------------------------*/
  73.  
  74.     CPM = get_cpm();    /* Obtain the CP/M version and No. */
  75.  
  76.     i = (CPM & 0xff) - 0x20; /* Mask off the MP/M bit          */
  77.  
  78.     if(i < 0)        /* Must be less than V 2.0         */
  79.     {
  80.     printf("This programme requires at least V 2.x of CP/M.\n");
  81.         printf("Sorry but it won't run for you.\n");
  82.         exit();
  83.     }
  84. /*-----------------------------------------------------------------*/
  85. /*  The CP/M Version is OK, so save the starting User No. and the
  86.     starting Drive No. in case either is changed later.            */
  87. /*-----------------------------------------------------------------*/
  88.  
  89.     OLD_USER = user_id(0xff);
  90.     OLD_DRIVE = get_default() + 0x41;
  91.  
  92. /*-----------------------------------------------------------------*/
  93. /*  Now check the Command Line to see if anything was entered.
  94.     We are looking for the file name to transfer to another user
  95.     area and the drive code if the current drive isn't being used  */
  96. /*-----------------------------------------------------------------*/
  97.     if(argc != 2)
  98.     {
  99.         printf("You have to enter the FILE you wish to transfer.\n");
  100.         printf("The required style is -\n\n");
  101.         printf("\t\t[dr:]filename.type\n\n");
  102.         printf("where 'dr:' is the optional drive code.   If you ");
  103.         printf("don't\n");
  104.         printf("specify a drive then the current drive is used\n");
  105.         infile = gets(my_file);
  106.     }
  107.     else if(argc == 2)
  108.         infile = argv[1];
  109.     up_str(infile);        /* Make name upper case letters    */
  110.     lines(2);
  111.  
  112. /*-----------------------------------------------------------------*/
  113. /*  Now check for the drive to be used.                            */
  114. /*-----------------------------------------------------------------*/
  115.     if(infile[1] == ':')    /* Then we have a drive code       */
  116.         DRIVE = toupper(infile[0]);
  117.     else DRIVE = GET_DEFAULT() + 65;
  118. /*-----------------------------------------------------------------*/
  119. /*  Check that the selected drive is available/on-line.   If not
  120.     then terminate the programme.   You may need to add a message
  121.     about what is going on if your version of CP/M doesn't do
  122.     this automatically, as mine does.                              */
  123. /*-----------------------------------------------------------------*/
  124.     if(!(skew_table = seldsk(DRIVE)))
  125.         exit();        /* Must be something wrong         */
  126.     if(select_dsk(DRIVE) != 0)
  127.         exit();
  128.     printf("          For Drive - %c\n", DRIVE);
  129.     printf("          -------------\n\n");
  130. /*-----------------------------------------------------------------*/
  131. /*  The next job is to put the file name in the form which it will
  132.     appear in the directory.                                       */
  133. /*-----------------------------------------------------------------*/
  134.     setmem(&filename[0], 11, 0x20);
  135.     if(infile[1] != ':')    /* No drive code given             */
  136.         j = 0;
  137.     else j = 2;        /* Drive code given                */
  138.  
  139.     for(i = 0; i < 11; i++)
  140.     {
  141.         if(infile[j] != '.' && i < 8)
  142.         {
  143.             filename[i] = infile[j];
  144.             j++;
  145.         }
  146.         else if(infile[j] == '.' && i < 8)
  147.             filename[i] = SPACE;
  148.         else if(i > 7)
  149.         {
  150.             j++;
  151.         if(isalnum(infile[j]))
  152.             filename[i] = infile[j];
  153.         else filename[i] = 0x20;
  154.         }
  155.     }
  156.     filename[i] = '\0';
  157.     printf("The parsed file name is ==> %s\n", filename);
  158.  
  159. /*-----------------------------------------------------------------*/
  160. /*  Everything appears to be OK, so now ask the user to nominate
  161.     the user area he/she wishes the file to be put into.           */
  162. /*-----------------------------------------------------------------*/
  163.     printf("Which User Area is the file now in - ");
  164.     scanf("%d", &FROM_USER);
  165.     lines(2);
  166.     printf("Which USER No. do you want this file to go to -\n");
  167.     THIS = dpb_adr();
  168.     scanf("%d", &TO_USER);
  169.     SECTORS = THIS->SPT;
  170.     TO_USER = TO_USER & 0xff;
  171.     if(TO_USER == FROM_USER)
  172.     {
  173.         printf("You can't copy to same User Area.");
  174.         exit();
  175.     }
  176.     lines(2);
  177. /*-----------------------------------------------------------------*/
  178. /*  Now do some checking to see -
  179.  
  180.          A.   Whether the file exists in the first user area; and
  181.  
  182.          B.   Whether or not it already exists in the nominated
  183.               user area.                                           */
  184. /*-----------------------------------------------------------------*/
  185.     user_id(FROM_USER);    /* Go to first User Area           */
  186.     if((FD = open(infile,0)) == -1)
  187.     {
  188.         printf("Unable to find - %s\n", infile);
  189.         user_id(OLD_USER);
  190.         exit();
  191.     }
  192.     else printf("OK, have found - %s\n", infile);
  193.     close(FD);
  194.     user_id(TO_USER);    /* Go to nominated user area for check     */
  195.     if((FD = open(infile,0)) != -1)
  196.     {
  197. printf("The file - %s  already exists in User Area - %d\n", infile, TO_USER);
  198.         user_id(OLD_USER);
  199.         exit();
  200.     }
  201. else printf("and it doesn't yet exist in User Area - %d\n\n",  TO_USER);
  202.     close(FD);
  203.     user_id(FROM_USER);    /* Return to first user area