I had bookmarked this thread a while back but didn't dig deep enough - as I couldn't see what I could use it for at the time, and never noticed the __static() function:
Which has finally
cleanly enabled my attempt at non-Global Constants.
Thanks, Lexikos.
Requires: lowlevel.ahk's __static()
Purpose:
To get rid of global Constants, and have one Function that contains a group of static Constants, that can:
Quote:
- if( dx == ValidVar ) Then Return the Value of VarName.
Query the value of a Constant on the fly. - if( dx is integer):
- if( init == 0): return Array%dx% (VarName)
- if( init > 0 ):: return Value of Array%dx%
Which lets us initialize ALL the constants in any given function.
With only 2 lines of Code:- while( !init && tmpVar := OC2( ++i, init ) ) ;; init will be 0 until i > index0(size) of Constants array
__ __static( %tmpVar% := OC2( i, i ) )
Code:
Lowlevel_init()
StaticTest()
StaticTest()
StaticTest("FS_IMAGE_ADDRESS")
StaticTest("NO_VAR")
StaticTest(dx="")
{
static init:=0
if( dx )
{
if( !init )
return
tmpVar := OC2( dx )
MsgBox, %dx%: %tmpVar%
return
}
i := 0
while( !init && tmpVar := OC2( ++i, init ) ) ;; init will be 0 until i > index0(size) of OC's array
__static( %tmpVar% := OC2( i, i ) )
MsgBox, FS_IMAGE_PAGETEXT: %FS_IMAGE_PAGETEXT%
return
}
OC2( dx, byRef init=0, calledBy="" )
{
static
static oc := "FS_IMAGE_NAME=1,FS_IMAGE_TITLEBAR=2,FS_IMAGE_PAGETEXT=4,FS_IMAGE_ADDRESS=8
,FS_IMAGE_ALTNAME=16,FS_PREFETCH_TITLE=32,FS_IMAGE_ADD_X=170,FS_IMAGE_ADD_Y=180
,FS_IMAGE_ALT_X=170,FS_IMAGE_ALT_Y=210"
local oTmp0, oTmp1, oTmp2
if( !FS_IMAGE_NAME )
{
StringSplit, aOC, oc, `,
Loop, %aOC0%
{
RegExMatch( aOC%A_Index%, "^(.*)=(.*)$", oTmp )
__static( %oTmp1% := oTmp2 ) ; Assign VAR=VAL, so function can return VAL when dx==validVAR
__static( aOC%A_Index% := oTmp1 ) ; So we don't have to initialize the array again.
}
}
if dx is integer
return ( !init ? (aOC%dx% ? aOC%dx% : (init:=1) && 0) : ((retVal := aOC%dx%) ? %retVal% : ""))
return AssertBox( retVal := %dx%, A_ThisFunc, "Variable: (" dx ") doesn't exist!" )
}
AssertBox( msgOK, fn, msg="", fn_mod="" )
{
if( msgOK )
return MsgOK
MsgBox,, `t%fn%() Assert FAILED,%fn%(%fn_mod%):`n(`n %msg%`n)
ErrorLevel := 1
;Exit
Pause ; To Enable Easy SystemTray Reload Tests
}
Prior to this,
1) The variables were globals -- which I didn't want.
2) The variables were static and had to be copy/pasted into each Function
&) Difficult to maintain if there were additions or changes to the constants.
3) The variables were static and contained in one File which had multiple hardlinks -- so they could be included into the relevant function. And set with a similiar while loop.
&) Messy solution still.
&) And to prevent the Array from being initialized each time, one had to manually static each array element, plus error checking:
Quote:
static aOC0, aOC1, aOC2, aOC3, aOC4, aOC5, aOC6, aOC7, aOC8, aOC9, aOC10
local iOC := 10 ; This needs to match the number of aOC variables ------------^
Previous Version:
Code:
OC( dx, byRef init )
{
static
static oc := "FS_IMAGE_NAME=1,FS_IMAGE_TITLEBAR=2,FS_IMAGE_PAGETEXT=4,FS_IMAGE_ADDRESS=8
,FS_IMAGE_ALTNAME=16,FS_PREFETCH_TITLE=32,FS_IMAGE_ADD_X=170,FS_IMAGE_ADD_Y=180
,FS_IMAGE_ALT_X=170,FS_IMAGE_ALT_Y=210"
static aOC0, aOC1, aOC2, aOC3, aOC4, aOC5, aOC6, aOC7, aOC8, aOC9, aOC10
local iOC := 10 ; This needs to match the number of aOC variables --^
local oTmp0, oTmp1, oTmp2
if( !aOC0 )
{
StringSplit, aOC, oc, `,
onErrorExit( aOC0 != iOC, A_ThisFunc, "Invalid number of static variables. ", iOC . " != " aOC0 )
}
RegExMatch( aOC%dx%, "^(.*)=(.*)$", oTmp )
return ( !init ? (oTmp1 ? oTmp1 : (init:=1) && 0) : oTmp2 )
onErrorExit( msgOK, fn, msg, fn_mod="", delay=3)
{
if( !msgOK || !msg )
return 0
MsgBox, ,, %fn%(%fn_mod%): %msg%, %delay%
Exit
}
[Moderator's note: Added wrapping to static initializers.]
Login
Register
FAQ
Search
Win2k (SP4+updates) support was added about a week ago, but I only mentioned it in the change log a couple days ago.