[Bug 54490] New: vbscript fails to compile when statement follows ElseIf

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=54490

Bug ID: 54490
           Summary: vbscript fails to compile when statement follows
                    ElseIf
           Product: Wine
           Version: 7.21
          Hardware: x86-64
                OS: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: vbscript
          Assignee: [e-mail]
          Reporter: [e-mail]
      Distribution: ---

While working on porting Visual Pinball to cross platform, I ran into a code
example where ElseIf had a statement was on the same line:

If Lampz.state(130) = 0 AND Lampz.state(132) = 0 AND Lampz.state(136) =
0 Then
'              
ACDC.ColorGradeImage="ColorGrade_off":Translite.Blenddisablelighting=0.2:For
Each bulb in BandMembersPoster: bulb.IntensityScale=0 :Next

ACDC.ColorGradeImage="ColorGrade_off":LM_Translite.intensityscale=0:For Each
bulb in BandMembersPoster: bulb.IntensityScale=0 :Next
        ElseIf Lampz.state(130) > 0 AND Lampz.state(132) = 0 AND
Lampz.state(134) > 0  AND Lampz.state(136) = 0 Then
ACDC.ColorGradeImage="ColorGrade_red"
        ElseIf Lampz.state(130) = 0 AND Lampz.state(132) > 0 AND
Lampz.state(134) = 0  AND Lampz.state(136) = 0 Then
ACDC.ColorGradeImage="ColorGrade_blue"
        Else
'              
ACDC.ColorGradeImage="ColorGrade_on":Translite.Blenddisablelighting=4:For Each
bulb in BandMembersPoster: bulb.IntensityScale=1:Next

ACDC.ColorGradeImage="ColorGrade_on":LM_Translite.intensityscale=1:For Each
bulb in BandMembersPoster: bulb.IntensityScale=1:Next
        End If

The grammar was expecting a NL after ElseIf Then.

I have submitted a merge request:

https://gitlab.winehq.org/wine/wine/-/merge_requests/2188

[Bug 54490] vbscript fails to compile when statement follows ElseIf

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=54490

Robert Wilhelm  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |[e-mail]
      Fixed by SHA1|                            |887e72b24ead813facc3bd2ec9f
                   |                            |d90a268d0dcd8
         Resolution|---                         |FIXED
             Status|UNCONFIRMED                 |RESOLVED

--- Comment #1 from Robert Wilhelm  ---
Thanks to Jason, this was fixed with
https://gitlab.winehq.org/wine/wine/-/merge_requests/2188

[Bug 54490] vbscript fails to compile when statement follows ElseIf

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=54490

Alexandre Julliard  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |CLOSED

--- Comment #2 from Alexandre Julliard  ---
Closing bugs fixed in 8.2.

[Bug 54490] vbscript fails to compile when statement follows ElseIf

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=54490

Michael Stefaniuc  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |8.0.x

[Bug 54490] vbscript fails to compile when statement follows ElseIf

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=54490

Michael Stefaniuc  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|8.0.x                       |---

--- Comment #3 from Michael Stefaniuc  ---
Removing the 8.0.x milestone from bug fixes included in 8.0.1.