Merge pull request #565 from paulscottrobson/dirstat

Fixed emulator stat directory bug

basic/test.bsc

@@ -1,13 +1,16 @@
-open output 1,"test.txt"
-a$ = "Line 2"
-print line #1,"Hello world!",a$
-print line #1,"Line 3",""
-close 1
+f$ = "test.xxx"
+f$ = "testdir2"
+fName = $D000
+poke fName,len(f$)
+for i = 1 to len(f$):poke fname+i,asc(mid$(f$,i)):next
 
-open input 1,"test.txt"
-print eof(1)
-while eof(1) = 0
-	input line #1,a$
-	print "[";a$;"]"
-wend
-close 1
+while peek($FF00):wend
+doke $FF04,$D000
+poke $FF01,16
+poke $FF00,3
+while peek($FF00):wend
+
+result = peek($FF02)
+size = deek($FF04)
+attrib = peek($FF08)
+print result,size,attrib

emulator/src/core/hardware.cpp

@@ -272,7 +272,9 @@ uint8_t FISStatFile(const std::string& filename, uint32_t* length, uint8_t* attr
 	printf("FISStatFile('%s') -> ", abspath.c_str());
 
 	try {
-		*length = std::filesystem::file_size(abspath);
+		if (!std::filesystem::is_directory(abspath)) {
+			*length = std::filesystem::file_size(abspath);
+		}
 		*attribs = getAttributes(abspath);
 		printf("OK; length=0x%04x; permissions=0x%02x\n", *length, *attribs);
 		return 0;