home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / sysutl / tools.lbr / CP.CZ / CP.C
Encoding:
C/C++ Source or Header  |  1987-08-07  |  3.6 KB  |  149 lines
  1. /*
  2.     CP.C
  3.     Written by Leor Zolman, 3/18/82
  4.  
  5.     CP either copies a file from any disk and user area to any other
  6.     disk and user area, or copies a list of files from the current
  7.     disk and user area to some other disk and/or user area.
  8.  
  9.     Usage:
  10.         A>cp [user#/][d:]<filename> [user#/][d:][<filename>] <cr>
  11.     or    A>cp [user#/][d:]<filename> . <cr>
  12.     or    A>cp <afn>  { <user#/> or <d:> } <cr>
  13.  
  14.     Note that the filename portion of the last argument is optional
  15.     when only one file is being copied, but not allowed when multiple
  16.     files are being copied.
  17.     If one file is being copied and the destination filename is omitted,
  18.      CP attempts to copy to the disk and/or user number specified, leaving
  19.     the filename the same. For example, to copy *.com into user area 7:
  20.  
  21.         cp  *.com  7/ 
  22.  
  23.     If the entire second argument is a single dot (.), then the destin-
  24.     ation is the CURRENT disk and user area. For example, to copy foo.c
  25.     into the current directory from user area 4:
  26.  
  27.         cp 4/foo.c .
  28.  
  29.     Link with:
  30.         A>clink cp -f usercode -f wildexp
  31.     (or)     A>l2 cp usercode wildexp
  32. */
  33.  
  34. #include "bdscio.h"
  35.  
  36. main(argc,argv)
  37. char **argv;
  38. {
  39.     int i,j,c,loop;
  40.     int fd1,fd2;
  41.     int bufsects;
  42.     unsigned bufsize;
  43.     unsigned corebuf;
  44.     char cur_disk;            /* currently logged-in disk */
  45.     int orig_user;            /* original user area */
  46.     int source_user;        /* source user area */
  47.     int dest_user;            /* destination user area */
  48.     char destname[30];
  49.     char *lastarg;
  50.  
  51.     wildexp(&argc,&argv);
  52.  
  53.     cur_disk = 'A' + bdos(25);
  54.     lastarg = argv[argc - 1];
  55.  
  56.     if (argc < 3 || (argc > 3 &&
  57.         !((c = lastarg[strlen(lastarg)-1]) == '/' || c == ':')))
  58.     {
  59.         printf("Usages: cp [u/][d:]filename [u/][d:]newname <cr>\n");
  60.         printf("    cp [u/][d:]filename u/ <cr>\n");
  61.         printf("    cp [u/][d:]filename d: <cr>\n");
  62.         printf("    cp [u/][d:]filename .  <cr>\n");
  63.         printf("    cp <afn>  { <u/> or <d:> or <u/d:> }\n");
  64.         exit();
  65.     }
  66.  
  67.     corebuf = sbrk(256);
  68.     for (bufsize = 256; sbrk(256) != ERROR; bufsize += 256)
  69.         ;
  70.     bufsects = bufsize / SECSIZ;
  71.  
  72.  
  73.    for (loop = 1; loop < argc-1; loop++)
  74.    {
  75.                     /* get current user number */
  76.     source_user = dest_user = orig_user  = bdos(32,0xff);
  77.  
  78.     if ((fd1 = open(argv[loop],0)) == ERROR) {
  79.         printf("Can't open %s\n",argv[loop]);
  80.         exit();
  81.     }
  82.  
  83.     strcpy(destname,lastarg);
  84.     if (hasuno(destname))
  85.         dest_user = atoi(destname);
  86.     if (hasuno(argv[loop]))
  87.         source_user = atoi(argv[loop]);
  88.  
  89.     if ( (c = destname[strlen(destname) - 1])=='/' || c == ':' ||
  90.                           !strcmp(destname,"."))
  91.     {
  92.         if (!strcmp(destname,"."))
  93.             sprintf(destname,"%d/%c:",orig_user,cur_disk);
  94.         for (i = strlen(argv[loop]) - 1; i >= 0; i--)
  95.             if (argv[loop][i] == '/' || argv[loop][i] == ':')
  96.                 break;                
  97.         strcat(destname,&argv[loop][i+1]);
  98.     }
  99.  
  100.     if ((fd2 = creat(destname)) == ERROR) {
  101.       printf("Can't create %s\n",destname);
  102.         exit();
  103.     }
  104.  
  105.     printf("\t copying %s\n",argv[loop]);
  106.  
  107.     while (1)
  108.     {
  109.         bdos(32,source_user);
  110.         if (kbhit()) getchar();
  111.         if (!(i = read(fd1,corebuf,bufsects))) break;
  112.         bdos(32,dest_user);
  113.         if (kbhit()) getchar();
  114.         if (write(fd2,corebuf,i) != i) {
  115.             printf("Write error. Disk full?\n");
  116.             exit();
  117.         }
  118.     }
  119.  
  120.     bdos(32,dest_user);
  121.     if (close(fd2) == ERROR) {
  122.         printf("Can't close the output file.\7\n");;
  123.     }
  124.     bdos(32,orig_user);
  125.     fabort(fd1);
  126.    }
  127. }
  128.  
  129. /*
  130.     Return true if the string arg is a filename prefixed by "nn/",
  131.     where "nn" is a user number:
  132. */
  133.  
  134. int hasuno(str)
  135. char *str;
  136. {
  137.     char c;
  138.     int sum;
  139.  
  140.     sum = 0;
  141.  
  142.     if (!isdigit(*str)) return FALSE;
  143.  
  144.     while (isdigit(c = *str++))
  145.         sum = sum * 10 + c - '0';
  146.     return (c == '/') ? (sum >= 0 && sum < 32) : FALSE;
  147. }
  148.  
  149.