#include <stdio.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <stdarg.h>
#define MAXARGS     100

/*   isfile is called by
 *   isfile(filenamecomp1, filecomp2,  filecomp3, ..., (char *)0);
 *   extern "C" int isfile(const char *, const char *[]) ;
*/


char FILEBUF[4096];


static char DOLLAR_[8192];
char *getstream(fp)
FILE *fp;
{
    return fgets(DOLLAR_, sizeof(DOLLAR_) -1 , fp);
}

/*
    The same as sprintf, but return the new string
    fileglue("%s/%s",home,".newsrc");
*/

char *fileglue(char *fmt, ...)
{
    va_list ap;
    static char gluebuffer[8192];
    va_start(ap, fmt);
    vsprintf(gluebuffer, fmt, ap);
    va_end(ap);
    return gluebuffer;
}

long 
filesize(filename)
char* filename;
{
	struct stat st;

	if (stat(filename,&st)) return 0; 
	return st.st_size;
}

int iszerofile(filename)
char* filename;
{
	struct stat st;

	if (stat(filename,&st)) return 0; 
	if (st.st_size == 0) return 1;
	return 0;
}

int isfile(filename)
char* filename;
{
	struct stat st;

	if (stat(filename,&st)) return 0; 
	if (!S_ISREG(st.st_mode)) return 0;
	return 1;
}

#ifdef TEST
int isfilev(va_alist)
{
	va_list ap;
	struct stat st;
	char *p;
	va_start(ap);

	FILEBUF[0]='\0';
        while ((p = va_arg(ap, char *)) != (char *)0) {
		strcat(FILEBUF,p);
	}
	printf("file %s\n",FILEBUF);

	va_end(ap);
	return isfile(FILEBUF);
}
#endif


int isdir(filename)
char* filename;
{
	struct stat st;

	if (stat(filename,&st)) return 0; 
	if (!S_ISDIR(st.st_mode)) return 0;
	return 1;
}

#ifdef TEST
int isdirv(va_alist)
{
	va_list ap;
	struct stat st;
	char *p;
	va_start(ap);

	FILEBUF[0]='\0';
        while ((p = va_arg(ap, char *)) != (char *)0) {
		strcat(FILEBUF,p);
	}

	va_end(ap);
	return isdir(FILEBUF);
}
#endif

unsigned long  mtime(filename)
char* filename;
{
	struct stat st;
	if (stat(filename,&st)) return 0; 
        return st.st_mtime;
}

#ifdef TEST
unsigned long mtimev(va_alist)
{
	va_list ap;
	struct stat st;
	char *p;
	va_start(ap);

	FILEBUF[0]='\0';
        while ((p = va_arg(ap, char *)) != (char *)0) {
		strcat(FILEBUF,p);
	}

	va_end(ap);
	return mtime(FILEBUF);
}
#endif

unsigned long  atime(filename)
char *filename;
{
	struct stat st;
	if (stat(filename,&st)) return 0; 
        return st.st_atime;
}

#ifdef TEST
unsigned long atimev(va_alist)
{
	va_list ap;
	struct stat st;
	char *p;
	va_start(ap);

	FILEBUF[0]='\0';
        while ((p = va_arg(ap, char *)) != (char *)0) {
		strcat(FILEBUF,p);
	}

	va_end(ap);
	return atime(FILEBUF);
}
#endif

/*#undef TEST*/
#ifdef TEST
main(argc,argv)
int argc;
char **argv;
{
	int i;
	if (argc > 3) {
	  if (isfilev(argv[1],argv[2],(char*)0))	printf("%s %s %s is file\n",argv[1],argv[2],argv[3]);
	  if (isdirv(argv[1],argv[2],(char*)0))	printf("%s %s %s is dir\n",argv[1],argv[2],argv[3]);
	  printf("mtime %d\n",mtimev(argv[1],argv[2],(char*)0));
	  printf("atime %d\n",atimev(argv[1],argv[2],(char*)0));
	}
	printf("fileglue %s\n", fileglue("%s/%s","home",".test"));
}
#endif