home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / diskutil / mtools / mcd.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-08-05  |  2.6 KB  |  116 lines
  1. /*
  2.  * Change MSDOS directories
  3.  *
  4.  * Emmet P. Gray            US Army, HQ III Corps & Fort Hood
  5.  * ...!uunet!uiucuxc!fthood!egray    Attn: AFZF-DE-ENV
  6.  * fthood!egray@uxc.cso.uiuc.edu    Directorate of Engineering & Housing
  7.  *                     Environmental Management Office
  8.  *                     Fort Hood, TX 76544-5057
  9.  */
  10.  
  11. #include <stdio.h>
  12. #include "msdos.h"
  13. #include "patchlevel.h"
  14.  
  15. int fd = -1;                /* the file descriptor for the device */
  16. int dir_start;                /* starting sector for directory */
  17. int dir_len;                /* length of directory (in sectors) */
  18. int dir_entries;            /* number of directory entries */
  19. int clus_size;                /* cluster size (in sectors) */
  20. char *mcwd;                /* the Current Working Directory */
  21. int fat_error;                /* FAT error detected? */
  22.  
  23. main(argc, argv)
  24. int argc;
  25. char *argv[];
  26. {
  27.     FILE *fp;
  28.     char *fix_mcwd(), *strcpy(), newpath[MAX_PATH], *get_name();
  29.     char *get_path(), *pathname, *filename, drive, *strcat();
  30.     char get_drive(), *mcwd_path, *getenv(), *expand();
  31.     void exit();
  32.  
  33.     if (argc > 2) {
  34.         fprintf(stderr, "Mtools version %s, dated %s\n", VERSION, DATE);
  35.         fprintf(stderr, "Usage: %s: msdosdirectory\n", argv[0]);
  36.         exit(1);
  37.     }
  38.                     /* only report the mcwd */
  39.     mcwd = fix_mcwd();
  40.     if (argc == 1) {
  41.         printf("%s\n", mcwd);
  42.         exit(0);
  43.     }
  44.  
  45.     drive = get_drive(argv[1]);
  46.     filename = get_name(argv[1]);
  47.     pathname = get_path(argv[1]);
  48.  
  49.     if (init(drive, 0)) {
  50.         fprintf(stderr, "%s: Cannot initialize '%c:'\n", argv[0], drive);
  51.         exit(1);
  52.     }
  53.  
  54.     /*
  55.      * Move to "first guess" subdirectory, so that is_dir() can
  56.      * search to see if filename is also a directory.
  57.      */
  58.     if (subdir(drive, pathname)) {
  59.         fprintf(stderr, "%s: Directory not found\n", argv[0]);
  60.         exit(1);
  61.     }
  62.                     /* is filename really a subdirectory? */
  63.     strcpy(newpath, pathname);
  64.     if (is_dir(filename)) {
  65.         if (newpath[strlen(newpath) -1] != '/')
  66.             strcat(newpath, "/");
  67.         strcat(newpath, filename);
  68.  
  69.                     /* move to real subdirectory */
  70.         if (subdir(drive, newpath)) {
  71.             fprintf(stderr, "%s: Directory not found\n", argv[0]);
  72.             exit(1);
  73.         }
  74.     }
  75.     else {
  76.         if (*filename != '\0') {
  77.             fprintf(stderr, "%s: Directory not found\n", argv[0]);
  78.             exit(1);
  79.         }
  80.     }
  81.                     /* it checked out ok, so save it */
  82.     mcwd_path = getenv("MCWD");
  83.     if (mcwd_path == NULL || *mcwd_path == '\0')
  84.         mcwd_path = "$HOME/.mcwd";
  85.  
  86.     if (!(fp = fopen(expand(mcwd_path), "w"))) {
  87.         fprintf(stderr, "%s: Can't open '%s' for write\n", argv[0], expand(mcwd_path));
  88.         exit(1);
  89.     }
  90.     fprintf(fp, "%c:%s\n", drive, newpath);
  91.     fclose(fp);
  92.     exit(0);
  93. }
  94.  
  95. /*
  96.  * stubs for read-only programs
  97.  */
  98.  
  99. void
  100. disk_flush()
  101. {
  102.     extern int disk_dirty;
  103.  
  104.     disk_dirty = 0;
  105.     return;
  106. }
  107.  
  108. void
  109. dir_flush()
  110. {
  111.     extern int dir_dirty;
  112.  
  113.     dir_dirty = 0;
  114.     return;
  115. }
  116.