FIX: QUERY directory size now returns NONE instead of 0

fixes: Oldes/Rebol-issues#2305

Author: Oldes

src/core/p-file.c

@@ -106,7 +106,11 @@
 {
 	switch (mode) {
 	case SYM_SIZE:
-		SET_INTEGER(ret, file->file.size);
+		if(file->file.size == MIN_I64) {
+			SET_NONE(ret);
+		} else {
+			SET_INTEGER(ret, file->file.size);
+		}
 		break;
 	case SYM_TYPE:
 		Init_Word(ret, GET_FLAG(file->modes, RFM_DIR) ? SYM_DIR : SYM_FILE);

src/os/posix/dev-file.c

@@ -132,7 +132,7 @@ static int Get_File_Info(REBREQ *file)
 
 	if (S_ISDIR(info.st_mode)) {
 		SET_FLAG(file->modes, RFM_DIR);
-		file->file.size = 0; // in order to be consistent on all systems
+		file->file.size = MIN_I64; // using MIN_I64 to notify, that size should be reported as NONE
 	}
 	else {
 		CLR_FLAG(file->modes, RFM_DIR);

src/os/win32/dev-file.c

@@ -408,7 +408,7 @@ static BOOL Seek_File_64(REBREQ *file)
 
 	if (info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
 		SET_FLAG(file->modes, RFM_DIR);
-		file->file.size = 0;
+		file->file.size = MIN_I64; // using MIN_I64 to notify, that size should be reported as NONE
 	}
 	else {
 		CLR_FLAG(file->modes, RFM_DIR);

src/tests/units/port-test.r3

@@ -43,6 +43,8 @@ Rebol [
 		--assert 'dir     = query/mode %. 'type
 		--assert date?      query/mode %. 'date
 		--assert what-dir = query/mode %. 'name
+		;@@ https://github.com/Oldes/Rebol-issues/issues/2305
+		--assert      none? query/mode %. 'size
 ===end-group===
 
 ===start-group=== "file port"
@@ -84,6 +86,10 @@ Rebol [
 		--assert  string? try [read http://google.com]
 	--test-- "read HTTPS"
 		--assert  string? try [read https://www.google.com]
+	--test-- "exists? url"
+		;@@ https://github.com/Oldes/Rebol3/issues/14
+		--assert     exists? http://httpbin.org/
+		--assert not exists? http://httpbin.org/not-exists
 ===end-group===
 
 
@@ -116,14 +122,6 @@ if "true" <> get-env "CONTINUOUS_INTEGRATION" [
 			--assert block?   v: query/mode system/ports/input m
 			--assert 4 = length? v
 	===end-group===
-
-	===start-group=== "HTTP"	
-		--test-- "exists? url"
-			;@@ https://github.com/Oldes/Rebol3/issues/14
-			--assert     exists? http://httpbin.org/
-			--assert not exists? http://httpbin.org/not-exists
-
-	===end-group===
 ]
 
 ~~~end-file~~~