FIX: accept block input to call function on Windows

resolves: Oldes/Rebol-issues#2582

Author: Oldes

src/os/win32/host-lib.c

@@ -1007,7 +1007,18 @@ void Dispose_Windows(void);
 
 	if (call == NULL) {
 		/* command in argv */
-		goto cleanup; /* NOT IMPLEMENTED*/
+		// count the length of the full command line...
+		size_t len = 1; // termination byte
+		for (int n = 0; n < argc; n++) {
+			len += wcslen(argv[n]) + 1;
+		}
+		cmd = cast(wchar_t*, malloc(len * sizeof(wchar_t)));
+		cmd[0] = L'\0';
+		// construct the command line
+		for (int n = 0; n < argc; n++) {
+			wcscat(cmd, argv[n]);
+			wcscat(cmd, L" ");
+		}
 	} else {
 		if (flag_shell) {
 			// command to cmd.exe needs to be surrounded by quotes to preserve the inner quotes

src/tests/units/call-test.r3

@@ -18,7 +18,7 @@ rebol-cmd: func[cmd][
 	call/shell/wait/output/error cmd out-buffer err-buffer
 ] 
 
-===start-group=== "Command-Line Interface"
+===start-group=== "Command-Line Interface (/shell)"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/2228
 	--test-- "--do"
 		;@@ https://github.com/Oldes/Rebol-issues/issues/2467
@@ -75,6 +75,19 @@ rebol-cmd: func[cmd][
 ===end-group===
 
 
+===start-group=== "Command-Line Interface"
+	--test-- "Block input"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2582
+	--assert all [
+		file? try [write %issue-2582.r3 {Rebol [] print now}]
+		tmp: clear ""
+		0 = call/wait/output reduce [system/options/boot %issue-2582.r3] tmp
+		date? transcode/one tmp
+	]
+	delete %issue-2582.r3
+===end-group===
+
+
 ===start-group=== "Error pipe"
 	--test-- "User controlled error output"
 		;@@ https://github.com/Oldes/Rebol-issues/issues/2468