ShortIf

[Jac de Lad]

Hi,
I know this from other languages and would like to see it here too: ShortIf (or whatever it would be called). This is a statement with a single command if it is true. No endif, no else or whatever. This shortens instructions that only need one call after the condition:

Code: Select all

If IsImage(image)
  FreeImage(image)
EndIf

or

Code: Select all

If IsImage(image):FreeImage(image):EndIf

would become

Code: Select all

ShortIf IsImage(image):FreeImage(image)

[#NULL]

Why not name if ShorterIf instead? Then it's 1 character longer than the normal version instead of 1 character shorter

[chi]

I'd prefer something similar to the ternary operator from C/C++ so we could write an If/Else statement in one line!

[Kiffi]

I bet that this can be solved with a macro.

[BarryG]

As Kiffi said, a macro can do this:

Code: Select all

Macro ShortIf(condition,action)
  If condition : action : EndIf
EndMacro

CreateImage(0,640,480)

Debug IsImage(0) ; 37685600
ShortIf(IsImage(0),FreeImage(0))
Debug IsImage(0) ; 0

And this is what happens if it fails:

Code: Select all

Macro ShortIf(condition,action)
  If condition : action : EndIf
EndMacro

CreateImage(0,640,480)

Debug IsImage(0) ; 37685600
ShortIf(IsImage(1),FreeImage(0)) ; Image 1 doesn't exist, so FreeImage is ignored.
Debug IsImage(0) ; 37685600

[BarryG]

I'd prefer something similar to the ternary operator from C/C++ so we could write an If/Else statement in one line!

What do you mean? You can do this already.

[chi]

I'd prefer something similar to the ternary operator from C/C++ so we could write an If/Else statement in one line!

What do you mean? You can do this already.

Yes, we can! But only with If:Else:Endif keywords or by creating a Macro + Procedure (for each data type) and I'm talking about the shortest possible syntax...


Something like this

Code: Select all

If a < b : c = 34 : Else : c = 12 : EndIf

or this

Code: Select all

Procedure IIFEval(boolean, y, n)
  If boolean : ProcedureReturn y : Else : ProcedureReturn n : EndIf
EndProcedure

Macro IIF(expr, y, n)
  IIFEval((Bool(Not(Bool(expr)))), n, y)
EndMacro

c = IIF(a < b, 34, 12)

would become

Code: Select all

c = (a < b) ? 34 : 12

and should also work for strings (floats, doubles, ...)

Code: Select all

c.s = (a < b) ? "true" : "false"
c.f = (a < b) ? 0.34 : 0.12