#include "stdio.h"	/* BCKUP.C   MODIFIES SYSTEM DIRECTORIES */

main()
{	int size, files;	/* size= file size */
				/* files= file cont */
	char line[50], temp[10];	/* line= data input line */
				/* temp= used in size conversion */
	char name[20], date[12];	/* name=file name (compressed)*/
				/* date= creation date "-" removed */
	char outpfn[20];	/* outpfn= output file name */
	char lname[20];
	int long cum ;		/* cum= location calulated */
	int big;

	char dev[6], file[14];	/* dev= device name ..incl : */
				/* file= file name containing directory */
				/*       for device dev */
	FILE *fopen(), *fpi, *fpo;
	int i, j;
	int flg;
	int iflg, err, ipos;

	
	/* set counters ... */
	cum=0 ; files=0 ; big=0;

	/* get file name that contains directory of device */
	printf("\nHIGH DENSITY TAPE BACKUP SYSTEM\n\n");

	printf("ENTER :	output file name : ");
	gets(outpfn);
	fpo=fopen(outpfn,"wn");

	printf("\nRequires : name of file containing device directory\n");
	printf("           & device name (include :)\n");
	printf("enter 'done' for file name when finished\n");

	iflg=0;
	while(iflg==0)
	{
		/* read file name and device */
		printf("ENTER : file name and device (seperate with space) : ");
		gets(line);
		err=sscanf(line,"%s %s",&file,&dev);

		/* must test values entered */

		/* finished ??? */
		if(strncmp(file,"DONE",4)==0)
		{	printf("\nFINISHED....\n");	iflg=1;}
		else if(strncmp(file,"done",4)==0)
		{	printf("\nFINISHED....\n");	iflg=1;}

		/* test dev length .. does it end in a : ? */
		else if((ipos=strlen(dev)) > 4)
		   printf("Error... Too many characters in device name !!\n");
		else if(dev[ipos-1] != ':')
		   printf("Error... Device name does NOT end in a ':'\n");

		/* open the file !!! */
		else if((fpi=fopen(file,"rn"))==NULL)
		   printf("Error... Cannot open file '%s' \n",file);

		/* if no errors ...  setup name[] variable with device */
		else
		{	for(i=0;i<ipos;i++)name[i]=dev[i];


		/* get line info from directory file */
		
		while(fgets(line,50,fpi)!=NULL )	/* read line */
		{
			/* first character cannot be blank */
			/* must have exactly 29 characters */
			if(line[0]!=' ' && strlen(line)==29)
			{
			for(i=ipos;i<13;i++)name[i]=' ';/* blank out name */
			name[13]='\0';	name[14]='\0';
			for(i=0,j=ipos; i<10 ; i++)	/* remove spaces in name */
			{	if(line[i]!=' ')
				{name[j]=line[i]; j++;}
			}
			for(i=11,j=0; i<=15; i++)	/* get size digits */
			{	temp[j]=line[i]; j++; 
			}
			sscanf(temp,"%d",&size);	/* deblock size value */

			for(i=18,j=0; i<=26; i++)	/* get creation date */
			{	if(line[i]!='-')
				{date[j]=line[i]; j++; date[j]='\0';}
			}

		/* test for undesirable file names */
		
			flg=0;
			if(size==0)flg=1;
			else if(name[ipos]==' ')flg=2;
			else if(name[ipos]=='\0')flg=2;
			else if(strcmp(name,lname)==0)flg=2;
			else if(strncmp(date,"  ",2)==0)flg=3;
			else if(big==1)flg=1;

		/* print new directory line */
		/* only if flg=0 */
			if(flg == 0)
			{
			cpystr(lname,name);
			fprintf(fpo,"%-14s%-5d%-6ld%7s",name,size,cum,date);

			(long)	cum +=size;	/* update location */
			files++;
			}
			else if(flg==1)
			printf("     %s, size=%6d ..not backuped\n",name,size);
			else if(flg==3)
			printf("     %s, size=%6d ..no date..\n",name,size);
			}
			if(cum>100000 && big==0)
			{	big=1;
				printf("\n*** TAPE FULL !!!  %ld blocks\n",cum);
			}
		}
		}
	}
if(big==1)printf("NOT ALL FILES DUMPED !!! Total %6ld blocks\n",cum);
if(big==0)printf("All FILES TO BE DUMPED . Total %6ld blocks\n",cum);
	  printf("                         Total %6d files\n",files);
}