AutoHotkey Community

varsetcapacity(a, 10000, 0)
a = a
element = element%A_Index%
numput("element0", a, 0, 10)
loop, 10
{
element = element%A_Index%
numput(element, a, 10 * A_Index, 10)
}

msgbox % a
loop, 10
{
ListVars
msgbox % el := numget(a, 10 * A_Index, 10)
}
return

VarSetCapacity(n,4,1) ; 4 non-zero bytes
NumPut(0,n)
m := n
MsgBox % "n: '" n "'`nm: '" m "'`nStrLen(m): " StrLen(m)

VarSetCapacity(x, 100, 88)
x = aaaaaaaaasdfs ; some data
numput(0, x, 80, "char")
copyx := x 
if (numget(x, 85) != numget(copyx, 85))
Msgbox copyx is not the same as x beyond byte element 80. 

x = aaaaaaaaasdfsaaaaaaaaaaaaaaaaaa ; some data
numput(0, x, 10, "char")
copyx := x 
if (numget(x, 15) == numget(copyx, 15))
Msgbox copyx is the same as x beyond byte element 10 for (varsize < 64)

void Hotkey::PerformInNewThreadMadeByCaller(HotkeyVariant &aVariant){
...
  if aVariant.mJumpToLabel
   ResultType result = aVariant.mJumpToLabel->Execute();
  if aVariant.mHotFunc
   {
     char returnValue[64];
     Func *hotfunc = g_script.FindFunc(aVariant.mHotFunc);
     hotfunc->Call(returnValue);
   }
  if aVariant.mFunctionPointer
{
   (*aVariant.mFunctionPointer)(aVariant);  // optionally in an os thread
}
}

Loop, 50
    var .= "VarSetCapacity isn't the only way to expand a variable. "
var := "abc"
MsgBox % VarSetCapacity(var)

FileAppend, errors, stderr
...
> autohotkey.exe script.ahk 2> error.log 

FileReadLine, line1, stdin, 1
FileReadLine, line2, stdin, 1
listvars
msgbox
...
> type script.ahk | autohotkey.exe script.ahk

line_ptr:=Import("x:\test1.ahk")
MsgBox % line_ptr

#Persistent
AHKfile1=%A_ScriptDir%\mandelbrot1.ahk
AHKfile2=%A_ScriptDir%\mandelbrot2.ahk
AHKfile3=%A_ScriptDir%\mandelbrot3.ahk
Return

!r::Reload
!q::ExitApp

F1::
F2::
F3::
file:="AHKfile" . SubStr(A_ThisHotkey,0)
Thread(%file%)
return
F4::
Script=
(
#Persistent
#NoEnv
#NoTrayIcon
Loop
   ToolTip `% A_Now "``n" A_TickCount,0,0
)
Thread(script)
Return
F5::
Script=
(
#Persistent
#NoEnv
#NoTrayIcon
Loop
   ToolTip `% A_Now "``n" A_TickCount,0,50
)
Thread:=Thread(script)
Return



Thread(file="",parameters="",dll="AutoHotkey.dll"){
   static thread, ahkdll, file_check
   If (!FileExist(dll))
      Return false
   isfile=0
   Loop %file%
      If (InStr(file_check,"|" . A_LoopFileFullPath . "|") or (file_check.=("|" . A_LoopFileFullPath . "|") and !(isfile:=1)))
         Return false
   thread:="AutoHotkey_" A_TickCount . ".dll"
   FileMove, %dll%, %thread%
   lib:=DllCall("LoadLibrary", "str", thread)
   FileMove, %thread%,%dll%
   If (!isfile){
      #__PIPE_NAME_ := A_TickCount
      #__PIPE_GA_ := DllCall("CreateNamedPipe","str","\\.\pipe" #__PIPE_NAME_,"uint"
                     ,2,"uint",0,"uint",255,"uint",0,"uint",0,"uint",0,"uint",0)
      #__PIPE_    := DllCall("CreateNamedPipe","str","\\.\pipe" #__PIPE_NAME_,"uint"
                     ,2,"uint",0,"uint",255,"uint",0,"uint",0,"uint",0,"uint",0)
      if (#__PIPE_=-1 or #__PIPE_GA_=-1) {
         MsgBox CreateNamedPipe failed.
         Return
      }
      thread_ := DllCall(thread . "\ahkdll", "str", "\\.\pipe" . #__PIPE_NAME_, "str"
                           , "", "str", parameters, "Cdecl Int")
      DllCall("ConnectNamedPipe","uint",#__PIPE_GA_,"uint",0)
      DllCall("CloseHandle","uint",#__PIPE_GA_)
      DllCall("ConnectNamedPipe","uint",#__PIPE_,"uint",0)
   } else
      thread_ := DllCall(thread . "\ahkdll", "str", file, "str", "", "str", parameters, "Cdecl Int")
   If (!isfile){
      file := chr(239) . chr(187) . chr(191) . file
      if !DllCall("WriteFile","uint",#__PIPE_,"str",file,"uint",StrLen(file)+1,"uint*",0,"uint",0)
         MsgBox WriteFile failed: %ErrorLevel%/%A_LastError%
      DllCall("CloseHandle","uint",#__PIPE_)
   }
   ErrorLevel:=lib
   Return thread_
}

; Replaced mcode functions with builtin functions
__static(var) {
return static(var)
}
__getVar(var) {
return getVar(var)
}
__alias(alias, alias_for) {
return alias(alias, alias_for)
}
__cacheEnable(var) {
return cacheEnable(var)
}
__getTokenValue(token) {
return getTokenValue(token)
}
/*
myLowLevel_init() {
    __init()
}

__init() {
    Global
    ; __getFirstFunc must be called at least once before (or by) __mcode, or it won't work properly later on.
    __getFirstFunc()
    __mcode("__getVar","8B4C24088B0933C08379080375028B018B4C2404998901895104C3")
    __mcode("__static","8B4424088B008378080375068B0080481504C3")
    __mcode("__alias","8B4C24088B01837808038B4904751D8B51088B005633F64A74044A4A75028B3185F60F94C189700C8848175EC3")
    __mcode("__cacheEnable","8B4424088B0083780803750F8B008078170075038B400C8060157FC3")
    __mcode("__getTokenValue","8B4424088B0083780801752B8B008B500883FA0375108B008A481580E13074180FB6D1C1EA048B4C24048951088B1089118B4004894104C38B4C2404C74108040000008B40088901C3")
    __mcode("__init","C3"), __mcode("LowLevel_init","C3") ; C3 = RET
}
*/