MLC: Add syntax for obtaining stdout stream.

peter-b · peter-b · commit 8c72e51fb6c8 · 2015-01-16T11:27:02.000Z
This adds a way of getting a stream that wraps the libc stdout stream.
For example:

    write tData to the output stream
diff --git a/libscript/src/module-stream.cpp b/libscript/src/module-stream.cpp
@@ -36,3 +36,11 @@ MCStreamExecWriteToStream(MCDataRef p_data,
 		return; /* Error should already have been set */
 	}
 }
+
+////////////////////////////////////////////////////////////////////////////////
+
+extern "C" MC_DLLEXPORT void
+MCStreamExecGetStandardOutput (MCStreamRef & r_stream)
+{
+	MCStreamGetStandardOutput (r_stream);
+}
diff --git a/libscript/src/stream.mlc b/libscript/src/stream.mlc
@@ -9,6 +9,29 @@ public foreign type Stream binds to "kMCStreamTypeInfo"
 
 --
 
+public foreign handler MCStreamExecGetStandardOutput(out Stdout as Stream) as undefined binds to "<builtin>"
+
+/*
+Summary:	Default output stream.
+Returns:	The default output stream.
+
+Description:
+The default output stream for output from the program.
+
+In command-line programs, this is usually used to output the results
+of running the program.  In CGI programs running on servers, this is
+usually used to output the data to be sent to the client.
+
+Tags: IO
+*/
+syntax DefaultOutputStream is expression
+	"the" "output" "stream"
+begin
+	MCStreamExecGetStandardOutput(output)
+end syntax
+
+--
+
 public foreign handler MCStreamExecWriteToStream(in Buffer as data, in Destination as Stream) as undefined binds to "<builtin>"
 
 /*

Original file line number	Diff line number	Diff line change
`@@ -36,3 +36,11 @@ MCStreamExecWriteToStream(MCDataRef p_data,`
`36`	`36`	`return; /* Error should already have been set */`
`37`	`37`	`}`
`38`	`38`	`}`
	`39`	`+`
	`40`	`+////////////////////////////////////////////////////////////////////////////////`
	`41`	`+`
	`42`	`+extern "C" MC_DLLEXPORT void`
	`43`	`+MCStreamExecGetStandardOutput (MCStreamRef & r_stream)`
	`44`	`+{`
	`45`	`+ MCStreamGetStandardOutput (r_stream);`
	`46`	`+}`