mirror of
https://github.com/kanaka/mal.git
synced 2024-10-27 06:40:14 +03:00
47 lines
1006 B
Plaintext
47 lines
1006 B
Plaintext
Option Explicit
|
|
|
|
Class IOWrap
|
|
Public NoStdErr
|
|
Public EchoStdIn
|
|
|
|
Private Sub Class_Initialize
|
|
With WScript.CreateObject("WScript.Shell")
|
|
NoStdErr = .ExpandEnvironmentStrings("%MAL_VBS_IMPL_NO_STDERR%") <> "%MAL_VBS_IMPL_NO_STDERR%"
|
|
EchoStdIn = .ExpandEnvironmentStrings("%MAL_VBS_IMPL_ECHO_STDIN%") <> "%MAL_VBS_IMPL_ECHO_STDIN%"
|
|
End With
|
|
End Sub
|
|
|
|
Public Sub Write(sText)
|
|
WScript.StdOut.Write sText
|
|
End Sub
|
|
|
|
Public Sub WriteLine(sText)
|
|
WScript.StdOut.WriteLine sText
|
|
End Sub
|
|
|
|
Public Function ReadLine()
|
|
ReadLine = WScript.StdIn.ReadLine
|
|
If EchoStdIn Then
|
|
WScript.StdOut.WriteLine ReadLine
|
|
End If
|
|
End Function
|
|
|
|
Public Sub WriteErr(sText)
|
|
If Not NoStdErr Then
|
|
WScript.StdErr.Write sText
|
|
Else ' Redirect to StdOut
|
|
WScript.StdOut.Write sText
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub WriteErrLine(sText)
|
|
If Not NoStdErr Then
|
|
WScript.StdErr.WriteLine sText
|
|
Else ' Redirect to StdOut
|
|
WScript.StdOut.WriteLine sText
|
|
End If
|
|
End Sub
|
|
End Class
|
|
|
|
Dim IO
|
|
Set IO = New IOWrap |