[Implemented] BoolEval() or EvalBool() Command

[Grunz]

Implemented as Bool()

Id like to be able to calculate boolean expression outside of "If","While" and similar.
So that the result may be assigned to a variable or given as parameter.

examples:

Code: Select all

result1.b = BoolEval( a > b )

result2.b = BoolEval(a$ = b$)

[luis]

http://www.purebasic.fr/english/viewtop ... 31#p303631

in the meantime this still works

Code: Select all

Macro Bool (exp)
; Evaluate an expression as a boolean.
;
; a = 15
; Debug (a = 15)      ; prints 15
; Debug Bool(a = 15)  ; prints 1 (#True)

 (1 And (exp))
EndMacro


a = 15
b = 10

result1 = Bool( a > b )
Debug result1

a$="test"
b$="best"

result2 = Bool(a$ = b$)
Debug result2