FIX: exists %/ must return true and not none

fixes: Oldes/Rebol-issues#2317
related to: Oldes/Rebol-issues#2031

Author: Oldes

src/core/p-dir.c

@@ -61,8 +61,7 @@
 	dir->data = (REBYTE*)(&file);
 
 #ifdef TO_WINDOWS
-	REBCHR *cp = file.file.path;
-	if (cp[0] == '/' && cp[1] == 0) {
+	if (dir->file.path[0] == 0) {
 		// special case: reading drive letters -> read %/
 		// https://github.com/Oldes/Rebol-issues/issues/2031
 		SET_FLAG(dir->modes, RFM_DRIVES);
@@ -180,6 +179,7 @@
 
 	Secure_Port(SYM_FILE, dir, path, ser);
 
+	if (len == 0) return;
 	if (len == 1 && dir->file.path[0] == '.') {
 		if (wild > 0) {
 			dir->file.path[0] = '*';
@@ -346,7 +346,7 @@
 			return R_RET;
 		}
 		SET_NONE(state);
-		Init_Dir_Path(&dir, path, -1, REMOVE_TAIL_SLASH | POL_READ);
+		Init_Dir_Path(&dir, path, -1, POL_READ);
 		if (OS_DO_DEVICE(&dir, RDC_QUERY) < 0) return R_NONE;
 		Ret_Query_File(port, &dir, D_RET, D_ARG(ARG_QUERY_FIELD));
 		///OS_FREE(dir.file.path);

src/core/p-file.c

@@ -91,9 +91,12 @@
 ***********************************************************************/
 {
 	REBOL_DAT dat;
-
-	OS_FILE_TIME(file, &dat);
-	Set_Date(val, &dat);
+	if (file->file.time.h == 0 && file->file.time.l == 0) {
+		SET_NONE(val);
+	} else {
+		OS_FILE_TIME(file, &dat);
+		Set_Date(val, &dat);
+	}
 }
 
 /***********************************************************************

src/core/s-file.c

@@ -142,6 +142,11 @@
 		dst = Make_Unicode(len+FN_PAD);
 		out = UNI_HEAD(dst);
 #ifdef TO_WINDOWS
+		if (len == 1) {
+			// it was really just: %/
+			// so return empty string in such a case
+			goto term_out;
+		}
 		i++;
 		if (i < len) {
 			c = GET_CHAR_UNI(uni, bp, i);
@@ -223,6 +228,7 @@
 			out[n++] = c;
 		}
 	}
+term_out:
 	out[n] = 0;
 	SERIES_TAIL(dst) = n;
 //	TERM_SERIES(dst);

src/os/win32/dev-file.c

@@ -412,6 +412,19 @@ static BOOL Seek_File_64(REBREQ *file)
 	WIN32_FILE_ATTRIBUTE_DATA info;
 
 	if (!GetFileAttributesEx(file->file.path, GetFileExInfoStandard, &info)) {
+		if (file->file.path[0] == 0) {
+			// special case: query %/
+			// report it still as a dir...
+			SET_FLAG(file->modes, RFM_DIR);
+			// but without size and date
+			file->file.size = MIN_I64;
+			file->file.time.l = 0;
+			file->file.time.h = 0;
+			// put back removed slash
+			file->file.path[0] = '/';
+			file->file.path[1] = 0;
+			return DR_DONE;
+		}
 		file->error = GetLastError();
 		return DR_ERROR;
 	}

src/os/win32/host-lib.c

@@ -630,7 +630,7 @@ static void *Task_Ready;
 **
 ***********************************************************************/
 {
-	return SetCurrentDirectory(path);
+	return SetCurrentDirectory( path[0]==0 ? L"\\" : path );
 }
 
 

src/tests/units/port-test.r3

@@ -67,6 +67,20 @@ if system/platform = 'Windows [
 			#"/" = last drives/1
 		]
 ]
+	--test-- "exists? %/"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2317
+		--assert exists? %/
+		--assert object? info: query %/
+		--assert info/name = %/
+		--assert info/type = 'dir
+		--assert none? info/size
+		either system/platform = 'Windows [
+			--assert none? info/date
+		][
+			; on linux %/ is just a normal directory root
+			--assert date? info/date
+		]
+		
 
 ===end-group===