1 files changed, 185 insertions, 0 deletions
diff --git a/innbbsd/file.c b/innbbsd/file.c
new file mode 100644
index 00000000..d4df15b2
--- /dev/null
+++ b/innbbsd/file.c
@@ -0,0 +1,185 @@
+#include <stdio.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <varargs.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(va_alist)
+va_dcl
+{
+	va_list ap;
+	register char* fmt;
+	static char *newstring;
+        static char gluebuffer[8192];
+
+	va_start(ap);
+	fmt = va_arg(ap, char *) ;
+        vsprintf(gluebuffer, fmt, ap);
+	newstring = gluebuffer;
+	va_end(ap);
+	return newstring;
+}
+
+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;
+}
+
+int isfilev(va_alist)
+va_dcl
+{
+	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);
+}
+
+
+int isdir(filename)
+char* filename;
+{
+	struct stat st;
+
+	if (stat(filename,&st)) return 0; 
+	if (!S_ISDIR(st.st_mode)) return 0;
+	return 1;
+}
+
+int isdirv(va_alist)
+va_dcl
+{
+	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);
+}
+
+unsigned long  mtime(filename)
+char* filename;
+{
+	struct stat st;
+	if (stat(filename,&st)) return 0; 
+        return st.st_mtime;
+}
+
+unsigned long mtimev(va_alist)
+va_dcl
+{
+	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);
+}
+
+unsigned long  atime(filename)
+char *filename;
+{
+	struct stat st;
+	if (stat(filename,&st)) return 0; 
+        return st.st_atime;
+}
+
+unsigned long atimev(va_alist)
+va_dcl
+{
+	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);
+}
+
+/*#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