mirror of
https://github.com/scummvm/scummvm.git
synced 2025-04-02 10:52:32 -04:00
277d807168
Add three tests: - exit during repeat with - return during repeat with - handle list expr and not a variable in repeat with The last test is added since it's not supported and breaks code execution.
65 lines
946 B
Text
65 lines
946 B
Text
set x = 5
|
|
if x <= 5 then set x = 6
|
|
if (x = 5) then
|
|
set x = 7 -- this is comment
|
|
else
|
|
set x = 8
|
|
-- this is another comment
|
|
end if
|
|
put x
|
|
-- this is more comment
|
|
set y = 1
|
|
repeat while (y < 5)
|
|
set y = y + 1
|
|
put y
|
|
end repeat
|
|
|
|
repeat with z = 10 to 15
|
|
put z
|
|
end repeat
|
|
repeat with y = 5 down to 1
|
|
put y
|
|
end repeat
|
|
|
|
repeat while y < 5
|
|
set y = y + 1
|
|
put y
|
|
end repeat
|
|
|
|
|
|
repeat while y < 5
|
|
set y = y + 1
|
|
if y = 3 then next repeat
|
|
put y
|
|
end repeat
|
|
|
|
-- tests for repeat with
|
|
|
|
on exitRepeatWith
|
|
set aList = [1,2,3,4]
|
|
repeat with a in aList
|
|
if a = 3 then
|
|
exit repeat
|
|
end if
|
|
end repeat
|
|
return a
|
|
end exitRepeatWith
|
|
|
|
on returnRepeatWith
|
|
set aList = [1,2,3,4]
|
|
repeat with a in aList
|
|
if a = 3 then
|
|
return a
|
|
end if
|
|
end repeat
|
|
end returnRepeatWith
|
|
|
|
on directListRepeatWith
|
|
repeat with a in [1,2,3,4]
|
|
put a
|
|
end repeat
|
|
end directListRepeatWith
|
|
|
|
put exitRepeatWith()
|
|
put returnRepeatWith()
|
|
directListRepeatWith()
|