A preview of things to come:
Code:
SetTimer, % CreateSub("func('timer1')"), 1000
sub2 := CreateSub("func(A_ThisHotkey)")
Hotkey, ^1, %sub2%
Hotkey, ^2, %sub2%
...
And here it is.
Code:
#NoTrayIcon
DllCall("AllocConsole")
LowLevel_init()
SetTimer, % CreateSub("func('timer1')"), 1000
sub2 := CreateSub("func(A_ThisHotkey)")
Hotkey, ^1, %sub2%
Hotkey, ^2, %sub2%
; gosub % sub3:=CreateSub("func('sub')")
; DeleteSub(sub)
; ListLines
; Pause
func(param)
{
FileAppend, %param%`n, CON
}
CreateSub(expr, name="", pScopeFunc=0)
{
if __findLabel(name)
return 0, ErrorLevel:="Label already exists."
if ! pArg := __MakeExpressionArg(expr, pScopeFunc)
return 0 ; ErrorLevel set by __MakeExpressionArg.
pSub := DllCall("GlobalAlloc","uint",0x40,"uint",80 + (name ? StrLen(name)+1 : 15))
if name =
name := pSub
DllCall("lstrcpy","uint",pSub+80,"str",name)
; Build expression line.
NumPut(pArg, NumPut(1, NumPut(3, pSub+16,0,"char"), 0,"char"), 2)
NumPut(pSub+48, NumPut(pSub+16, pSub+32))
; Build return line.
NumPut(102, pSub+48,0,"char")
NumPut(pSub+48, NumPut(pSub+16, pSub+64))
; Build label and insert into list.
pFirstLabel := __getFirstLabel()
NumPut(NumGet(pFirstLabel+12), NumPut(pFirstLabel, NumPut(pSub+16, NumPut(pSub+80, pSub+0))))
NumPut(pSub, NumGet(pFirstLabel+12)+8), NumPut(pSub, pFirstLabel+12)
return pSub
}
; For use ONLY with subs created by CreateSub.
DeleteSub(pSub) {
NumPut(NumGet(pSub+12), NumGet(pSub+8)+12) ; pSub->mPrevLabel->mNextLabel = pSub->mNextLabel;
NumPut(NumGet(pSub+8), NumGet(pSub+12)+8) ; pSub->mNextLabel->mPrevLabel = pSub->mPrevLabel;
DllCall("GlobalFree","uint",NumGet(pSub+20)), DllCall("GlobalFree","uint",pSub)
}
I plan on adding full command-parsing before including CreateSub in LowLevel.
I'm still contemplating what to do about one major issue: ListLines.
ListLines is not safe to use after DeleteSub if the sub has executed, since it tries to display Lines that were deleted. It may crash AutoHotkey or display garbage like the following:
Code:
000: ˜i%
There is one way I know of to prevent this, but I don't like it...
Code:
Loop, 200
{}
An alternative I am considering is to maintain a "pool" of unused Line structures. Rather than deleting Lines, they would be "reclaimed" by the script and reused later. (Only the 32-byte Line structure needs to be persistent - the text, arg and deref structures may be deleted.)
Of course, once a Line is "reclaimed", ListLines won't be entirely accurate (since it will display a blank line.) If a Line is reused, ListLines may be confusing...
Login
Register
FAQ
Search
