implement very simple SvScriptStream to read from process

It inherits from SvStream, so it could be used easily.
Basically, it's just a simple wrapper around
osl_executeProcess_WithRedirectedIO() and osl_readFile().

Change-Id: Ifa225c87d2c9be7e71ea113b0832a4fe83ec65b3

1 files changed, 57 insertions, 0 deletions

diff --git a/tools/source/stream/stream.cxx b/tools/source/stream/stream.cxx
index 32babd9b7a6a..7cbdca78292b 100644
--- a/tools/source/stream/stream.cxx
+++ b/tools/source/stream/stream.cxx
@@ -1961,6 +1961,63 @@ void SvMemoryStream::SetSize( sal_Size nNewSize )
     ReAllocateMemory( nDiff );
 }
 
+SvScriptStream::SvScriptStream(const OUString& rUrl):
+    mpProcess(NULL), mpHandle(NULL)
+{
+    oslProcessError rc;
+    rc = osl_executeProcess_WithRedirectedIO(
+        rUrl.pData,
+        NULL, 0,
+        osl_Process_HIDDEN,
+        NULL,
+        NULL,
+        NULL, 0,
+        &mpProcess,
+        NULL, &mpHandle, NULL);
+    if (osl_Process_E_None != rc)
+    {
+        mpProcess = NULL;
+        mpHandle = NULL;
+    }
+}
+
+SvScriptStream::~SvScriptStream()
+{
+    if (mpProcess)
+    {
+        osl_terminateProcess(mpProcess);
+        osl_freeProcessHandle(mpProcess);
+    }
+    if (mpHandle)
+        osl_closeFile(mpHandle);
+}
+
+bool SvScriptStream::ReadLine(OString &rStr, sal_Int32)
+{
+    rStr = OString();
+    if (!good())
+        return false;
+
+    OStringBuffer sBuf;
+    sal_Char aChar('\n');
+    sal_uInt64 nBytesRead;
+    while (osl_File_E_None == osl_readFile(mpHandle, &aChar, 1, &nBytesRead)
+            && nBytesRead == 1 && aChar != '\n')
+    {
+        sBuf.append( aChar );
+    }
+    rStr = sBuf.makeStringAndClear();
+    if (!rStr.isEmpty())
+        return true;
+
+    return false;
+}
+
+bool SvScriptStream::good() const
+{
+    return mpHandle != NULL;
+}
+
 TYPEINIT0 ( SvDataCopyStream )
 
 void SvDataCopyStream::Assign( const SvDataCopyStream& )