HuntnGather – Diff between revs 27 and 29

Subversion Repositories:

?pathlinks?

Rev 27 – Rev 37 – Go to most recent revision – Details – Blame – Last modification – View Log

 ///////////////////////////////////////////////////////////////////////////
 #include <stdio.h>
 #include <stdlib.h>
-#include <string.h>
-#include <dirent.h>
+#include <string.h>
 #include <ctype.h>
 #if !defined ___AmigaOS___
+#include <signal.h>
+#include <dirent.h>
-#include <signal.h>
+#include <sys/stat.h>
-#endif
 #endif
 #include <sys/types.h>
-#include <sys/stat.h>
+#include <sys/types.h>
 #if defined ___AmigaOS___
 	fprintf(stdout, "                                                         \n");
 	fprintf(stdout, "(c) 2021 Wizardry and Steamworks, MIT.                   \n");
+}
+int main(int argc, char **argv) {
+#if defined ___AmigaOS___
+	struct FileInfoBlock *FIB;
+	BPTR lock;
+#else
+	struct stat dirStat;
-int main(int argc, char **argv) {
+#endif
  	int option;
- 	char *dbFile;
- 	struct stat path;
+ 	char *dbFile;
 	// Bind handler to SIGINT.
 #if !defined ___AmigaOS___
 	if(optind >= argc) {
 		usage(argv[0]);
 		return 1;
+	}
+#if defined ___AmigaOS___
+	if((lock = Lock(dbFile, ACCESS_READ)) == NULL) {
+		fprintf(stderr, "Path '%s' is not accessible.\n", dbFile);
+		return 1;
+	}
+	if((FIB = AllocDosObject(DOS_FIB, NULL)) == NULL) {
+		fprintf(stderr, "Path '%s' file information block not accessible.\n", dbFile);
+		UnLock(lock);
+		return 1;
+	}
+	if(Examine(lock, FIB) == FALSE) {
+		fprintf(stderr, "Path '%s' information unexaminable.\n", dbFile);
+		FreeDosObject(DOS_FIB, FIB);
+		UnLock(lock);
+		return 1;
+	}
+	if(FIB->fib_DirEntryType > 0) {
+#else
-	stat(dbFile, &path);
+	stat(dbFile, &dirStat);
+	if(!S_ISREG(dirStat.st_mode)) {
-	if(!S_ISREG(path.st_mode)) {
+#endif
 		fprintf(stderr, "'%s' is not a file.\n", dbFile);
 		return 1;
+	}
+#if defined ___AmigaOS___
+	FreeDosObject(DOS_FIB, FIB);
+	UnLock(lock);
 #endif
 	Hunt(dbFile, argv[optind]);