mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 01:30:26 +03:00
fix print privous return value in repl error
This commit is contained in:
parent
b61c6482c2
commit
96cda20bfa
@ -19,12 +19,13 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -102,12 +102,13 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -113,12 +113,13 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -127,12 +127,13 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -136,12 +136,13 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -164,12 +164,13 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -288,12 +288,13 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -342,12 +342,13 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -402,9 +402,6 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
If Err.Source = "MThrow" Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + _
|
||||
@ -415,6 +412,10 @@ Sub REPL()
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
End If
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
@ -403,9 +403,6 @@ Sub REPL()
|
||||
Dim strRes
|
||||
On Error Resume Next
|
||||
strRes = REP(strCode)
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
If Err.Number <> 0 Then
|
||||
If Err.Source = "MThrow" Then
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + _
|
||||
@ -416,6 +413,10 @@ Sub REPL()
|
||||
'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
|
||||
WScript.StdErr.WriteLine "Exception: " + Err.Description
|
||||
End If
|
||||
Else
|
||||
If strRes <> "" Then
|
||||
WScript.Echo strRes
|
||||
End If
|
||||
End If
|
||||
On Error Goto 0
|
||||
Wend
|
||||
|
Loading…
Reference in New Issue
Block a user