home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
vol_100
/
140_01
/
fixdir.c
< prev
next >
Wrap
Text File
|
1985-03-10
|
6KB
|
285 lines
/* FIXDIR.C 22nd Jan 1981
This program will "clean" a CP/M directotry of illegal file
names. The user is given the option of erasing or renaming
the illegal file. The program is fast, even on big directories.
See the accompanying FIXDIR.DOC for a full discussion.
By Bill Bolton,
Software Tools,
P.O. Box 80,
Newport Beach,
NSW, 2106
Australia
*/
#define VERSION 12
#define OPEN 15
#define SEARCH_FIRST 17
#define SEARCH_NEXT 18
#define DELETE 19
#define RENAME 23
#define SETDMA 26
#define SEC_BUF 0X80
#define DEL 0X7F
int space; /* Count of spaces found in file name */
int error_count; /* Count of bad file names found in directory */
int pass; /* Number of recursions */
char drive[1]; /* Storage for drive identifier */
main (argc,argv) /* Search CP/M directory for bad file names */
int argc;
char *argv[];
{
pass = 0;
printf("\tFIXDIR version 1.00 \n");
printf("\t(C) 1981, Software Tools - Sydney, Australia.\n");
printf("\tCorrects illegal file names in a CP/M disk directory.\n\n");
dir_check(argc,argv);
printf("\n\tNo illegal file names in directory on this pass.\n\n");
if (pass > 1)
printf("\tThere were %d passes performed.\n",pass);
exit();
}
dir_check(argc,argv)
int argc;
char *argv[];
{
int n;
char filename[15];
char *buf;
char fcb1[36];
error_count = 0; /* Initialise some variables */
space = 0;
buf = SEC_BUF;
pass++;
if (argc > 2){ /* Too many command line args ? */
command_error(argv[2]);
}
strcpy(filename,"");
strcpy(drive,"");
if (argc == 2)
if (strlen(argv[1]) == 2 && isdrive(argv[1])){
strcpy(filename,argv[1]);
strcpy(drive,argv[1]);
}
else{
command_error(argv[1]);
}
strcat(filename,"????????.???");
setfcb(fcb1,filename);
bdos(SETDMA,buf);
n = bdos(SEARCH_FIRST,fcb1);
valid_check(n,buf);
while ((n = bdos(SEARCH_NEXT,fcb1)) != 255){
if(valid_check(n,buf)){
while(action(n,buf));
}
}
if (error_count){
printf("\t\nPerforming another pass.\n\n");
dir_check(argc,argv);
}
}
/* Checks for legal CP/M drive identifier in range A: through P: */
int isdrive(s)
char *s;
{
toupper(*s);
return (*s >= 'A' && *s <= 'P' && *++s == ':');
}
/* Checks for legal CP/M directory entry, if illegal entry found prompts
for erase or rename */
int valid_check(n,buf)
int n;
char *buf;
{
int i;
if (n == 255) /* Error indicator from caller */
return(n);
buf += (n * 32);
for (i = 1; i < 12; ++i){
if (bad_char(i,buf))
return(-1);
}
return(0);
}
/* Checks if a character is legal in a CP/M directory entry or file control
block */
int bad_char(i,buf)
int i;
char *buf;
{
char temp[0]; /* Transient storage for > del test */
if (i == 1 || i == 9) /* Reset at start of filename & typ */
space = 0;
switch (buf[i]){
case '*':
case ',':
case '.':
case ':':
case ';':
case '<':
case '=':
case '>':
case '?':
case '[':
case ']':
case DEL:
return(-1);
case ' ': /* Space is conditionally illegal */
if (space == 7) /* Filename is all spaces is a */
return(-1); /* definite error */
space++; /* Else just keep track of how many */
return(0);
}
if (buf[i] < ' ' || (buf[i] >= 'a' && buf[i] <= 'z'))
return(-1);
if (buf[i] > DEL){ /* Bit 7 set may be legal attribute */
*temp = buf[i] & DEL; /* so force it to 0 and try again */
return (bad_char(0,temp));
}
else
return(space); /* Space preceeding char IS illegal */
}
/* Erases or renames a file in CP/M directory */
int action(n,buf)
int n;
char *buf;
{
char temp_buf[36];
char fcb[36];
buf += (n *32);
setmem(temp_buf,36,0);
movmem(buf+1,temp_buf+1,11);
error_count++;
printf("\07\n\tIllegal CP/M file name : %.8s.%.3s\n\n\07",
buf+1,buf+9);
printf("\t%s\n\t\t%s\n\t%s",
"Press 'E' to erase file",
"Or",
"Press 'R' to rename file : ");
if (toupper(getchar()) == 'E')
return(erase(temp_buf));
else
return(rename(temp_buf));
}
/* Erases a file from CP/M directory */
int erase(buf)
char *buf;
{
printf("\n\n\tDELETING %.8s.%.3s\n",buf+1,buf+9);
makefcb(buf,drive);
if(bdos(DELETE,buf) == 255){
printf("\07\n\tBDOS DELETE ERROR\n\07");
return(-1);
}
return(0);
}
/* Renames a file in CP/M directory with file name supplied from console */
int rename(buf)
char *buf;
{
char fcb[36];
get_name(fcb);
if (strlen(drive))
*fcb = *drive - '@'; /* Put drive into fcb */
if(bdos(OPEN,fcb) != 255){
printf("\07\n\tFilename entered ALREADY EXISTS !\n\07");
return(-1);
}
makefcb(buf,drive);
strcpy(buf+17,fcb+1);
printf("\n\tRENAMING %.8s.%.3s to %.8s.%.3s\n",
buf+1,buf+9,buf+17,buf+25);
if(bdos(RENAME,buf) == 255){
printf("\07\n\tBDOS RENAME ERROR\n\07");
return(-1);
}
return(0);
}
/* Makes a valid CP/M file control block from name supplied from console */
int get_name(fcb)
char *fcb;
{
char new_name[43]; /* Make big for bullet proofing */
printf("\n\n\tEnter new file name :");
gets(new_name);
setfcb(fcb,new_name);
while(valid_check(0,fcb)){
printf("\07\n\tBAD FILENAME entered as new name !\n\07");
get_name(fcb);
}
}
/* Makes a CP/M file control block from a CP/M directory entry */
int makefcb(buf,ident)
char *buf;
char *ident;
{
if (strlen(ident))
*buf = *ident - '@'; /* Put drive into fcb */
else
*buf = 0; /* Use auto disk select */
setmem(buf+12,24,00); /* Initialise rest of fcb */
}
/* Displays an error message showing incorrect command line argument */
int command_error(s)
char *s;
{
printf("\07Command line error : %s\n\n\07",s);
printf("USAGE :\n\tFIXDIR\n\tFIXDIR B:\n\n");
printf("\tExiting to CP/M\n");
exit();
}