_IsBeta()

[mLipok]

I would like to introduce a function that can help for testing the scripts for movement toward EDIT: a the new version of AutoIt EDIT: or when testing the Beta version.

Func _IsBeta()
    Return Mod(StringSplit(@AutoItVersion, '.')[3], 2) == 1
EndFunc   ;==>_IsBeta

  Reveal hidden contents

Old function:

Func _IsBeta()
    If Mod(StringSplit(@AutoItVersion, '.')[3], 2) = 0 Then
        Return SetError(1, '', False)
    Else
        Return SetError(1, '', True)
    EndIf
EndFunc   ;==>_IsBeta

EXAMPLE:

#include <Array.au3>
#include <MsgBoxConstants.au3>

_SomeFunc()

Func _SomeFunc()
    Local $aTest[10]
    _ArrayUnique($aTest, 0, 5)
    Local $iError = @error
    ConsoleWrite('$iError = ' & $iError & @CRLF)
    If _IsBeta() Then
        If $iError = 3 Then
            MsgBox($MB_SYSTEMMODAL, '@error', '3 - $iBase or $iCase contains an invalid value' & @CRLF & @AutoItVersion)
        EndIf
    Else
        If $iError = 2 Then
            MsgBox($MB_SYSTEMMODAL, '@error', '2 - $iBase or $iCase contains an invalid value' & @CRLF & @AutoItVersion)
        EndIf
    EndIf
EndFunc   ;==>_SomeFunc

Func _IsBeta()
       Return Mod(StringSplit(@AutoItVersion, '.')[3], 2) == 1
EndFunc   ;==>_IsBeta

EDIT:
I started to use it in order to be able to use both the current version and the beta, to become independent of the "SCRIPT BREAKING CHANGE".

EDIT2:

_IsBeta() - changed.

Edited May 2, 2014 by mLipok

[JohnOne]

Why setting @error?

[mLipok]

you mean why do not I use simply:

Func _IsBeta()
    If Mod(StringSplit(@AutoItVersion, '.')[3], 2) = 0 Then
        Return False
    Else
        Return True
    EndIf
EndFunc   ;==>_IsBeta

or even:

Func _IsBeta()
    Return Mod(StringSplit(@AutoItVersion, '.')[3], 2) == 1
EndFunc   ;==>_IsBeta

[JohnOne]

Yes, but even if you do use @error they are both same value.

[mLipok]

It reminded me why.
Initially, my function in @Extended returns arrays content that was results from the function StringSplit.

I forgot to clean up.

But thanks, because of your note, now I cleaned up completely this function

Cheers

mLipok

Edited May 2, 2014 by mLipok

[guinness]

Great. This function should only return a bool.

[Inververs]

Return @AutoItVersion <> '3.3.10.2'

...more intuitive than your code

[JohnOne]

  On 5/6/2014 at 7:24 PM, Inververs said:

Return @AutoItVersion <> '3.3.10.2'

...more intuitive than your code

I use version 3.3.8.1, you method says it's beta, it's not.

[Inververs]

Return StringInStr(FileGetVersion (@AutoItExe,'ProductName'),'Beta') > 0

and this?

[mLipok]

This function can theoretically cause additional load on the CPU, and it is due to anti-virus, as opposed to my Versions, your refers again to the file that is already running, and my work completely in memory.

[JohnOne]

  On 5/6/2014 at 7:38 PM, Inververs said:

Return StringInStr(FileGetVersion (@AutoItExe,'ProductName'),'Beta') > 0

and this?

That appears to work correctly.

[guinness]

  On 5/6/2014 at 7:38 PM, Inververs said:

Return StringInStr(FileGetVersion (@AutoItExe,'ProductName'),'Beta') > 0

and this?

This is different to mLipok's version. I can compile the executable using the beta and change the productname via pragma, thus your version won't work.

[BrewManNH]

Of course, if Jon decides tomorrow to release a new version 3.3.11.xx then the original function fails as well. Fortunately, the release versions have all been using an even number or 0 for the 3rd minor version number so far.

[guinness]

I fail to see how the original function will fail if Jon releases a new beta version.

[BrewManNH]

I meant a NON-beta version that uses an odd number in the third position. Using the function would say that it's a beta version.

I thought that was made clear by the rest of the post I made.

  Quote

 

Fortunately, the release versions have all been using an even number or 0 for the 3rd minor version number so far.

[JohnOne]

Agreed, unless it is some sort of standard which Jon adheres to, it is only good for purpose and not in general.

Also you restructure it to use in versions upto ans including 3.3.8.1

ConsoleWrite(_IsBeta() & @LF)

Func _IsBeta()
    $a = StringSplit(@AutoItVersion, '.')
    Return Mod($a[3], 2) == 1
EndFunc   ;==>_IsBeta

[guinness]

It's the standard to use an odd number for the build scheme of the version value. mLipok's code is good.