FEAT: using more robust posix implementation of the QUERY on console port

Author: Oldes

src/os/posix/dev-stdio.c

@@ -272,12 +272,28 @@ static void Close_Stdio(void)
 **
 ***********************************************************************/
 {
+#ifdef TIOCGWINSZ
 	struct winsize w;
-    ioctl(STDOUT_FILENO, TIOCGWINSZ, &w);
+	if (ioctl(Std_Out, TIOCGWINSZ, &w) != 0) {
+		req->error = errno;
+		return DR_ERROR;
+	}
 	req->console.window_rows =
 	req->console.buffer_rows = w.ws_row;
 	req->console.window_cols =
 	req->console.buffer_cols = w.ws_col;
+#else
+#ifdef WIOCGETD
+	struct uwdata w;
+	if (ioctl(Std_Out, WIOCGETD, &w) != 0) {
+		req->error = errno;
+		return DR_ERROR;
+	}
+	req->console.window_rows =
+	req->console.buffer_rows = w.uw_height / w.uw_vs;
+	req->console.window_cols =
+	req->console.buffer_cols = w.uw_width / w.uw_hs;
+#endif
 	return DR_DONE;
 }
 

src/tests/units/port-test.r3

@@ -24,7 +24,8 @@ Rebol [
 	--test-- "query input port"
 		--assert  port? system/ports/input
 		--assert  object? console-info: query system/ports/input
-		?? console-info
+		--assert  pair? try [console-info/window-size]
+		;?? console-info
 ===end-group===
 
 ~~~end-file~~~