2.11BSD/src/local/mtools/mdir.c
/*
* Display an MSDOS directory
*
* Emmet P. Gray US Army, HQ III Corps & Fort Hood
* ...!uunet!uiucuxc!fthood!egray Attn: AFZF-DE-ENV
* fthood!egray@uxc.cso.uiuc.edu Directorate of Engineering & Housing
* Environmental Management Office
* Fort Hood, TX 76544-5057
*/
#include <stdio.h>
#include "msdos.h"
#include "patchlevel.h"
int fd = -1; /* the file descriptor for the device */
int dir_start; /* starting sector for directory */
int dir_len; /* length of directory (in sectors) */
int dir_entries; /* number of directory entries */
int clus_size; /* cluster size (in sectors) */
char *mcwd; /* the Current Working Directory */
int fat_error; /* FAT error detected? */
static long getfree();
static char *conv_date(), *conv_time();
main(argc, argv)
int argc;
char *argv[];
{
int i, entry, files, fargn, wide, faked;
long size, blocks;
char *date, *time, last_drive, *fix_mcwd();
char *strncpy(), newpath[MAX_PATH], *get_name(), *get_path(), *pathname;
char *newfile, *filename, *unix_name(), volume[12], drive, *strpbrk();
char *strcpy(), *strcat(), newname[13], *strncat(), get_drive();
void exit();
struct directory *dir, *dir_read();
fargn = 1;
wide = 0;
files = 0;
/* first argument */
if (argc > 1) {
if (!strcmp(argv[1], "-w")) {
wide = 1;
fargn = 2;
}
if (argv[1][0] == '-' && !wide) {
fprintf(stderr, "%s: illegal option -- %c\n", argv[0], argv[1][1]);
fprintf(stderr, "Mtools version %s, dated %s\n", VERSION, DATE);
fprintf(stderr, "Usage: %s: [-w] msdosdirectory\n", argv[0]);
fprintf(stderr, " %s: [-w] msdosfile [msdosfiles...]\n", argv[0]);
exit(1);
}
}
/* fake an argument */
faked = 0;
if (argc == fargn) {
faked++;
argc++;
}
last_drive = 'x';
mcwd = fix_mcwd();
for (i = fargn; i < argc; i++) {
if (faked) {
drive = get_drive("");
filename = get_name("");
pathname = get_path("");
}
else {
drive = get_drive(argv[i]);
filename = get_name(argv[i]);
pathname = get_path(argv[i]);
}
/* is this a new device? */
if (drive != last_drive) {
if (last_drive != 'x') {
blocks = getfree() * MSECTOR_SIZE;
if (!files)
printf("File \"%s\" not found\n\n", newname);
else
printf(" %3d File(s) %6ld bytes free\n\n", files, blocks);
}
if (init(drive, 0)) {
fprintf(stderr, "%s: Cannot initialize '%c:'\n", argv[0], drive);
continue;
}
last_drive = drive;
files = 0;
/* find the volume label */
volume[0] = '\0';
for (entry = 0; entry < dir_entries; entry++) {
dir = dir_read(entry);
/* if empty */
if (dir->name[0] == 0x0)
break;
/* if erased */
if (dir->name[0] == 0xe5)
continue;
/* if not volume label */
if (!(dir->attr & 0x08))
continue;
strncpy(volume, (char *) dir->name, 8);
volume[8] = '\0';
strncat(volume, (char *) dir->ext, 3);
volume[11] = '\0';
break;
}
if (volume[0] == '\0')
printf(" Volume in drive %c has no label\n", drive);
else
printf(" Volume in drive %c is %s\n", drive, volume);
}
/*
* Move to "first guess" subdirectory, so that is_dir() can
* search to see if filename is also a directory.
*/
if (subdir(drive, pathname))
continue;
/*
* Under MSDOS, wildcards that match directories don't
* display the contents of that directory. So I guess I'll
* do that too.
*/
if ((strpbrk(filename, "*[?") == NULL) && is_dir(filename)) {
strcpy(newpath, pathname);
if (newpath[strlen(newpath) -1] != '/')
strcat(newpath, "/");
strcat(newpath, filename);
/* move to real subdirectory */
if (subdir(drive, newpath))
continue;
strcpy(newname, "*");
}
else {
strcpy(newpath, pathname);
strcpy(newname, filename);
}
/* if no files, assume '*' */
if (*filename == '\0')
strcpy(newname, "*");
printf(" Directory for %c:%s\n\n", drive, newpath);
for (entry = 0; entry < dir_entries; entry++) {
dir = dir_read(entry);
/* if empty */
if (dir->name[0] == 0x0)
break;
/* if erased */
if (dir->name[0] == 0xe5)
continue;
/* if a volume label */
if (dir->attr & 0x08)
continue;
newfile = unix_name(dir->name, dir->ext);
if (!match(newfile, newname))
continue;
files++;
if (wide && files != 1) {
if (!((files - 1) % 5))
putchar('\n');
}
date = conv_date(dir->date[1], dir->date[0]);
time = conv_time(dir->time[1], dir->time[0]);
size = dir->size[3] * 0x1000000L + dir->size[2] * 0x10000L + dir->size[1] * 0x100 + dir->size[0];
/* is a subdirectory */
if (dir->attr & 0x10) {
if (wide)
printf("%-8.8s %-3.3s ", dir->name, dir->ext);
else
printf("%-8.8s %-3.3s <DIR> %s %s\n", dir->name, dir->ext, date, time);
continue;
}
if (wide)
printf("%-8.8s %-3.3s ", dir->name, dir->ext);
else
printf("%-8.8s %-3.3s %8ld %s %s\n", dir->name, dir->ext, size, date, time);
}
if (argc > 2)
putchar('\n');
}
if (fd < 0)
exit(1);
blocks = getfree() * MSECTOR_SIZE;
if (!files)
printf("File \"%s\" not found\n", newname);
else
printf(" %3d File(s) %6ld bytes free\n", files, blocks);
close(fd);
exit(0);
}
/*
* Get the amount of free space on the diskette
*/
static long
getfree()
{
register unsigned int i;
long total;
extern unsigned int num_clus;
unsigned int fat_decode();
total = 0L;
for (i = 2; i < num_clus + 2; i++) {
/* if fat_decode returns zero */
if (!fat_decode(i))
total += clus_size;
}
return(total);
}
/*
* Convert an MSDOS directory date stamp to ASCII
*/
static char *
conv_date(date_high, date_low)
unsigned date_high, date_low;
{
/*
* hi byte | low byte
* |7|6|5|4|3|2|1|0|7|6|5|4|3|2|1|0|
* | | | | | | | | | | | | | | | | |
* \ 7 bits /\4 bits/\ 5 bits /
* year +80 month day
*/
static char ans[9];
unsigned char year, month_hi, month_low, day;
year = (date_high >> 1) + 80;
month_hi = (date_high & 0x1) << 3;
month_low = date_low >> 5;
day = date_low & 0x1f;
sprintf(ans, "%2d-%02d-%02d", month_hi + month_low, day, year);
return(ans);
}
/*
* Convert an MSDOS directory time stamp to ASCII.
*/
static char *
conv_time(time_high, time_low)
unsigned time_high, time_low;
{
/*
* hi byte | low byte
* |7|6|5|4|3|2|1|0|7|6|5|4|3|2|1|0|
* | | | | | | | | | | | | | | | | |
* \ 5 bits /\ 6 bits /\ 5 bits /
* hour minutes sec*2
*/
static char ans[7];
char am_pm;
unsigned char hour, min_hi, min_low;
hour = time_high >> 3;
am_pm = (hour >= 12) ? 'p' : 'a';
if (hour > 12)
hour = hour - 12;
if (hour == 0)
hour = 12;
min_hi = (time_high & 0x7) << 3;
min_low = time_low >> 5;
sprintf(ans, "%2d:%02d%c", hour, min_hi + min_low, am_pm);
return(ans);
}
/*
* stubs for read-only programs
*/
void
disk_flush()
{
extern int disk_dirty;
disk_dirty = 0;
return;
}
void
dir_flush()
{
extern int dir_dirty;
dir_dirty = 0;
return;
}