kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-08-17 01:30:26 +03:00
Code Issues Projects Releases Wiki Activity

fix print privous return value in repl error

Browse Source
This commit is contained in:
OldLiu 2023-07-08 13:03:26 +08:00
parent b61c6482c2
commit 96cda20bfa
10 changed files with 40 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
impls/vbs/step1_read_print.vbs
View File

@ -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

7
impls/vbs/step2_eval.vbs
View File

@ -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

7
impls/vbs/step3_env.vbs
View File

@ -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

7
impls/vbs/step4_if_fn_do.vbs
View File

@ -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

7
impls/vbs/step5_tco.vbs
View File

@ -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

7
impls/vbs/step6_file.vbs
View File

@ -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

7
impls/vbs/step7_quote.vbs
View File

@ -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

7
impls/vbs/step8_macros.vbs
View File

@ -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

7
impls/vbs/step9_try.vbs
View File

@ -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

7
impls/vbs/stepA_mal.vbs
View File

@ -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