Is there any way to create a function dynamically? Topic is solved

[User]

Example below,

Function_Name := "Test"

%Function_Name%()
{

}

[Delta Pythagorean]

As of currently. No. Functions are set in stone as it is.
You can, however, CALL the function dynamically:

Code: Select all

CallFunc := "FunctionNames"
MsgBox, % [CallFunc]()

FunctionNames() {
	Return, True
}

[User]

As of currently. No. Functions are set in stone as it is.

Really bad, unfortunately!

[A_AhkUser]

Hi User,

Check out function%myvar%().

As DeltaPythagorean stated I'm pretty sure you only can call a function dynamically.

Btw @DeltaPythagorean I think you had in view a dynamic call of a method:

Code: Select all

CallFunc := "MethodName"
MsgBox, % C[CallFunc]()

Class C {
	MethodName() {
		Return, True
	}
}

[FanaticGuru]

Example below,

Function_Name := "Test"

%Function_Name%()
{

}

Not sure of your end game but you could create the function code dynamically then either execute it through a pipe or add it to your function library.

Code: Select all

Function_Name := "TestFunc"

Code = 
(
%Function_Name%()
{
	MsgBox I am here!
}
)

MsgBox % Code

Once you have the code in a variable like that there is various ways to execute it or make it available for use.

But nothing is going to be as simple as your example. Functions are defined when the script is being interperted before anything is actual executed in the script. Function_Name has no value when the interpreter is setting that function up for use by the script to be executed after the code is pre-processed.

FG

[kczx3]

Why would you need such a thing?

[User]

As of currently. No. Functions are set in stone as it is.

As DeltaPythagorean stated I'm pretty sure you only can call a function dynamically.

Well, it seems that it is easy to implement "function dynamic creation"! example below:

93_ image.gif (1.39 MiB) Viewed 3598 times

Code: Select all

Script =
(join`r`n

xxx := "111"

 yyy := "222"

	zzz := "333"

;ttt := "44444"

gui, add, text, , `%`%xxx`%`%  `%`%yyy`%`%  `%`%zzz`%`%  `%`%;ttt`%`%

;_________

gui, add, text, w300 h200, Left click anywhere in this window

gui, show

return

guiclose:	;__
exitapp

;___________


;Function_Name := "Test"

`%`%;Function_Name`%`%()		;__________________________________________________
{
Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

Static count := 0

tooltip, `% A_ThisFunc "() - " count++, 0, 100, 1
}

   ;Function_Name := "First"

   `%`%;Function_Name`%`%()		;__________________________________________________
   {
   Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

   Static count := 1

   tooltip, `% A_ThisFunc "() - " count++, 0, 125, 2
   }



	;Function_Name := "Last"

	`%`%;Function_Name`%`%()		;__________________________________________________
	{
	Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

	Static count := 2

	tooltip, `% A_ThisFunc "() - " count++, 0, 150, 3
	}

)


Temp_Script_File_Name := "#_AHK_Temp_Pre_Edited_Script.ahk"

gui,add, button, gPreRunScript, Pré-Edit and Run Script

gui, add, button, x+5 gShowPreEdScript, show Pre-Edited code

gui, add, edit, xm w800 h600 +HScroll +HwndUserInputControlId, % Script

gui, show

return

ShowPreEdScript:	;___________________________________

ControlGetText, UserScript, , % "ahk_id" UserInputControlId

gui ShowPreEdScript:default

gui, destroy

gui, add, edit, w700 h500 +HScroll +HwndPreEdScriptOut,

ControlSetText , , % Pre_Edit_Script(UserScript), % "ahk_id" PreEdScriptOut

gui, show

return

PreRunScript:	;_________________________________________

ControlGetText, UserScript, , % "ahk_id" UserInputControlId

FileDelete, % Temp_Script_File_Name

FileAppend , % Pre_Edit_Script(UserScript), % Temp_Script_File_Name

run, % Temp_Script_File_Name

return

guiclose:	;_________________________________________
exitapp


RegExEsc(String, Options := "")		;_________ RegExEsc(Function) - v1.0 __________
{

if (Options == "$")
return, RegExReplace(String, "\$", "$$$$")	;to be used with "RegExReplace" third parameter! ("$$" represents one literal "$")

return, "\E\Q" RegExReplace(String, "\\E", "\E\\E\Q") "\E"	;to be used with "RegExMatch" and "RegExReplace" second parameters! ("\\" represents one literal "\")

}


Pre_Edit_Script(Script)		;_______________ v1.1 _________________
{

Pre_Vars := []

	MatchLength := 0
	FoundPos := 1
	loop
	{
	FoundPos := RegExMatch(Script, "(?P<Set>(\n| |\t)(?P<Key>\S+?)( |\t)*?:=( |\t)*?""(?P<Value>.*?)"")|(?P<Rep>%%(?P<Var>\S+?)%%)", Match_, FoundPos + MatchLength)

	;\s, Matches any single whitespace character, mainly space, tab, and newline (`r and `n)
	;"(\n| |\t)" in use because "\s" does not work correctly!
	;\S, means "any non-whitespace character".

		if (FoundPos == "" or FoundPos = 0)
		break
		else
		{

			if (Match_ = Match_Set)
			{
			Pre_Vars[Match_Key] := Match_Value

			MatchLength := StrLen(Match_)

				;msgbox, % Match_Set " - " Match_Key " / " Match_Value
			}
			else if (Match_ = Match_Rep)
			{
			Script := RegExReplace(Script, RegExEsc(Match_Rep), RegExEsc(Pre_Vars[Match_Var], "$"), , 1, FoundPos)

			MatchLength := StrLen(Pre_Vars[Match_Var])

				;msgbox, % Match_Rep " - " Match_Var
			}
		
		}
	}


return, Script 
}

[just me]

LOL, good joke!

[User]

LOL, good joke!

Hahahahahahahahahahahahahahahahahahahahahahahahahahahahahaha!

[User]

(v1.2)

++Var Operator supported now! (This can be used, for example, to create Anonymous Functions, etc, etc, etc)!

92_ Image.gif (1.44 MiB) Viewed 3500 times

Code: Select all

Script =
(join`r`n

xxx := "111"

 yyy := "222"

	zzz := "333"

;ttt := "44444"

gui, add, text, , `%`%xxx`%`%  `%`%yyy`%`%  `%`%zzz`%`%  `%`%;ttt`%`%

gui, add, text, , `%`%++Count`%`%  `%`%++Count`%`%  `%`%++Count`%`%  -  `%`%Count`%`%  `%`%Count`%`%  `%`%Count`%`%

gui, add, text, , `%`%++UniqueId`%`%  `%`%++UniqueId`%`%  -  `%`%UniqueId`%`%  `%`%UniqueId`%`%

;_________

gui, add, text, w300 h200, Left click anywhere in this window

gui, add, button, gRunAnonymousFunctions, Run Anonymous Functions

gui, show

return

RunAnonymousFunctions:	;__

Anonymous_Function`%`%++UniqueId`%`%()
Anonymous_Function`%`%UniqueId`%`%()
{
msgbox, `% A_ThisFunc
}

Anonymous_Function`%`%++UniqueId`%`%()
Anonymous_Function`%`%UniqueId`%`%()
{
msgbox, `% A_ThisFunc
}

Anonymous_Function`%`%++UniqueId`%`%()
Anonymous_Function`%`%UniqueId`%`%()
{
msgbox, `% A_ThisFunc
}

return

guiclose:	;__
exitapp

;___________


;Function_Name := "Test"

`%`%;Function_Name`%`%()		;__________________________________________________
{
Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

Static count := 0

tooltip, `% A_ThisFunc "() - " count++, 0, 200, 1
}

   ;Function_Name := "First"

   `%`%;Function_Name`%`%()		;__________________________________________________
   {
   Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

   Static count := 1

   tooltip, `% A_ThisFunc "() - " count++, 0, 225, 2
   }



	;Function_Name := "Last"

	`%`%;Function_Name`%`%()		;__________________________________________________
	{
	Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

	Static count := 2

	tooltip, `% A_ThisFunc "() - " count++, 0, 250, 3
	}

)


Temp_Script_File_Name := "#_AHK_Temp_Pre_Edited_Script.ahk"

gui,add, button, gPreRunScript, Pré-Edit and Run Script

gui, add, button, x+5 gShowPreEdScript, show Pre-Edited code

gui, add, edit, xm w800 h600 +HScroll +HwndUserInputControlId, % Script

gui, show

return

ShowPreEdScript:	;___________________________________

ControlGetText, UserScript, , % "ahk_id" UserInputControlId

gui ShowPreEdScript:default

gui, destroy

gui, add, edit, w700 h500 +HScroll +HwndPreEdScriptOut,

ControlSetText , , % Pre_Edit_Script(UserScript), % "ahk_id" PreEdScriptOut

gui, show

return

PreRunScript:	;_________________________________________

ControlGetText, UserScript, , % "ahk_id" UserInputControlId

FileDelete, % Temp_Script_File_Name

FileAppend , % Pre_Edit_Script(UserScript), % Temp_Script_File_Name

run, % Temp_Script_File_Name

return

guiclose:	;_________________________________________
exitapp


RegExEsc(String, Options := "")		;_________ RegExEsc(Function) - v1.0 __________
{

if (Options == "$")
return, RegExReplace(String, "\$", "$$$$")	;to be used with "RegExReplace" third parameter! ("$$" represents one literal "$")

return, "\E\Q" RegExReplace(String, "\\E", "\E\\E\Q") "\E"	;to be used with "RegExMatch" and "RegExReplace" second parameters! ("\\" represents one literal "\")

}


Pre_Edit_Script(Script)		;_______________ v1.2 _________________
{

Pre_Vars := []

	MatchLength := 0
	FoundPos := 1
	loop
	{
	FoundPos := RegExMatch(Script, "(?P<Set>(\n| |\t)(?P<Key>\S+?)( |\t)*?:=( |\t)*?""(?P<Value>.*?)"")|(?P<Rep>%%(?P<Var>\S+?)%%)", Match_, FoundPos + MatchLength)

	;\s, Matches any single whitespace character, mainly space, tab, and newline (`r and `n)
	;"(\n| |\t)" in use because "\s" does not work correctly!
	;\S, means "any non-whitespace character".

		if (FoundPos == "" or FoundPos = 0)
		break
		else
		{

			if (Match_ = Match_Set)
			{
			Pre_Vars[Match_Key] := Match_Value

			MatchLength := StrLen(Match_)

				;msgbox, % Match_Set " - " Match_Key " / " Match_Value
			}
			else if (Match_ = Match_Rep)
			{
				if RegExMatch(Match_Var, "^\+\+(.+)", Found_Var)
				{
					;msgbox, % Match_Var " / " Found_Var1

				Match_Var := Found_Var1

				Match_Var_Value := Pre_Vars[Match_Var]

				if Match_Var_Value is number
				Pre_Vars[Match_Var]++
				else
				Pre_Vars[Match_Var] := 0
				}

			Script := RegExReplace(Script, RegExEsc(Match_Rep), RegExEsc(Pre_Vars[Match_Var], "$"), , 1, FoundPos)

			MatchLength := StrLen(Pre_Vars[Match_Var])

				;msgbox, % Match_Rep " - " Match_Var
			}
		
		}
	}


return, Script 
}

[swagfag]

how is any of this "create a function dynamically"? ur script boils down to:

Code: Select all

script =
(
myfunc()
myfunc() {
	MsgBox look ma`, dynamik fankshuns! 
}
)

FileDelete C:\dyn.ahk
FileAppend % script, C:\dyn.ahk
Run C:\dyn.ahk

where is the dynamicness?

[kczx3]

It’s really just pre-compiled scripts using AHK as the compiler.

[SOTE]

I'm confused by the purpose of a "dynamic function" as well. The only thing that I can think of that makes sense is if you are trying to have your script adapt to unknown conditions.

In the example of what swagfag showed, it was to have the script rewrite itself upon meeting a particular condition. However, if your main script has variables with functions to execute when a particular condition is met, then needing to rewrite itself would seem usually unnecessary. You could simply store numerous functions at the bottom of your script, which are then called by if-statements.

I can also understand what FantasicGuru is doing, which is similar to what swagfag showed. Have multiple functions placed in multiple variables, so that if a particular condition is met, then a particular variable and function is selected. And, it doesn't really have to be functions within variables. It can just as easily be subroutines called by various variables, which meet criteria within if-statements.

To me, "dynamicness" would be like the script searching for a function that is not listed within itself, when it gets an unexpected result or when an error occurs. Possibly do a directory and then a computer wide search of functions in .ahk files and/or .dlls. When a function is found, copy the function or dll call (though dllcalls are way more problematic) into a variable, then test the function and see if it can achieve the result. Possibly, do the test virtually, as to not cause any problems on the computer or any permanent changes yet. Upon getting the result it desired (virtually), then the script writes a new version of itself with the new function or dllcall (less likely to succeed), and uses the newly written version of itself to solve the problem.

I think that would be one hell of a script, that would arguably border on AI level, but might be worthwhile to try and particularly for an automation based language.

[User]

(Pre-Editor v1.0)

Now I can finally write ahk scripts smoothly, nicely, easily, and of course, dynamically!

Thanks for All your HELP!!!

---

Basically, set windows to always run ".ahkpe" extension files with "Pre-Editor.exe"

- Example, run "Test.ahkpe"

- "Pre-Editor.exe" will automatically pre-edit script from "Test.ahkpe" file

- "Pre-Editor.exe" will store the pre-edited script in "Test.ahkpe.ahk" file! (in the same directory of "Test.ahkpe")

- "Pre-Editor.exe" then executes "Test.ahkpe.ahk", and exit!

- "Test.ahkpe.ahk" itself will delete "Test.ahkpe.ahk" file

Pre-Editor (v1.0).rar

(344.52 KiB) Downloaded 72 times

(the ".rar" file contains "Pre-Editor" script compiled - Pre-Editor.exe - and "Test.ahkpe")





Pre-Editor

Code: Select all

Cmd_Total_Parameters = %0%

Cmd_Parameter := []

loop, % Cmd_Total_Parameters
Cmd_Parameter[a_index] := %a_index%

if (Cmd_Parameter[1] != "")
{
	;msgbox, % Cmd_Parameter[1]

FileRead, File_Content, % Cmd_Parameter[1]	;"Cmd_Parameter[1]" contains the file path

File_Extension := ".ahk"

FileDelete, % Cmd_Parameter[1] File_Extension

Pre_Edited_Script := "FileDelete, % A_ScriptName `r`n`r`n"

Pre_Edited_Script .= Pre_Edit_Script(File_Content)

FileAppend, % Pre_Edited_Script, % Cmd_Parameter[1] File_Extension, UTF-8	;"UTF-8" same Encoding used by ".ahk" files

run, % Cmd_Parameter[1] File_Extension

exitapp
}


;______________________________

App_Title := "Pre-Editor"

App_Version := "1.0"

;______________________________


Script =
(join`r`n

xxx := "111"

 yyy := "222"

	zzz := "333"

;ttt := "44444"

gui, add, text, , `%`%xxx`%`%  `%`%yyy`%`%  `%`%zzz`%`%  `%`%;ttt`%`%

gui, add, text, , `%`%++Count`%`%  `%`%++Count`%`%  `%`%++Count`%`%  -  `%`%Count`%`%  `%`%Count`%`%  `%`%Count`%`%

gui, add, text, , `%`%++UniqueId`%`%  `%`%++UniqueId`%`%  -  `%`%UniqueId`%`%  `%`%UniqueId`%`%

;_________

gui, add, text, w300 h200, Left click anywhere in this window

gui, add, button, gRunAnonymousFunctions, Run Anonymous Functions

gui, show

return

RunAnonymousFunctions:	;__

Anonymous_Function`%`%++UniqueId`%`%()
Anonymous_Function`%`%UniqueId`%`%()
{
msgbox, `% A_ThisFunc
}

Anonymous_Function`%`%++UniqueId`%`%()
Anonymous_Function`%`%UniqueId`%`%()
{
msgbox, `% A_ThisFunc
}

Anonymous_Function`%`%++UniqueId`%`%()
Anonymous_Function`%`%UniqueId`%`%()
{
msgbox, `% A_ThisFunc
}

return

guiclose:	;__
exitapp

;___________


;Function_Name := "Test"

`%`%;Function_Name`%`%()		;__________________________________________________
{
Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

Static count := 0

tooltip, `% A_ThisFunc "() - " count++, 0, 200, 1
}

   ;Function_Name := "First"

   `%`%;Function_Name`%`%()		;__________________________________________________
   {
   Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

   Static count := 1

   tooltip, `% A_ThisFunc "() - " count++, 0, 225, 2
   }



	;Function_Name := "Last"

	`%`%;Function_Name`%`%()		;__________________________________________________
	{
	Static RunAtScriptExecution := OnMessage(0x201, Func("`%`%;Function_Name`%`%"))	;"0x201" left mouse down

	Static count := 2

	tooltip, `% A_ThisFunc "() - " count++, 0, 250, 3
	}

)


Temp_Script_File_Name := "#_AHK_Temp_Pre_Edited_Script.ahk"

gui,add, button, gPreRunScript, Pré-Edit and Run Script

gui, add, button, x+5 gShowPreEdScript, show Pre-Edited code

gui, add, edit, xm w800 h600 +HScroll +HwndUserInputControlId, % Script

gui, show, , % App_Title " (v" App_Version ")"

return

ShowPreEdScript:	;___________________________________

ControlGetText, UserScript, , % "ahk_id" UserInputControlId

gui ShowPreEdScript:default

gui, destroy

gui, add, edit, w700 h500 +HScroll +HwndPreEdScriptOut,

ControlSetText , , % Pre_Edit_Script(UserScript), % "ahk_id" PreEdScriptOut

gui, show

return

PreRunScript:	;_________________________________________

ControlGetText, UserScript, , % "ahk_id" UserInputControlId

FileDelete, % Temp_Script_File_Name

FileAppend , % Pre_Edit_Script(UserScript), % Temp_Script_File_Name

run, % Temp_Script_File_Name

return

guiclose:	;_________________________________________
exitapp


RegExEsc(String, Options := "")		;_________ RegExEsc(Function) - v1.0 __________
{

if (Options == "$")
return, RegExReplace(String, "\$", "$$$$")	;to be used with "RegExReplace" third parameter! ("$$" represents one literal "$")

return, "\E\Q" RegExReplace(String, "\\E", "\E\\E\Q") "\E"	;to be used with "RegExMatch" and "RegExReplace" second parameters! ("\\" represents one literal "\")

}


Pre_Edit_Script(Script)		;_______________ v1.2 _________________
{

Pre_Vars := []

	MatchLength := 0
	FoundPos := 1
	loop
	{
	FoundPos := RegExMatch(Script, "(?P<Set>(\n| |\t)(?P<Key>\S+?)( |\t)*?:=( |\t)*?""(?P<Value>.*?)"")|(?P<Rep>%%(?P<Var>\S+?)%%)", Match_, FoundPos + MatchLength)

	;\s, Matches any single whitespace character, mainly space, tab, and newline (`r and `n)
	;"(\n| |\t)" in use because "\s" does not work correctly!
	;\S, means "any non-whitespace character".

		if (FoundPos == "" or FoundPos = 0)
		break
		else
		{

			if (Match_ = Match_Set)
			{
			Pre_Vars[Match_Key] := Match_Value

			MatchLength := StrLen(Match_)

				;msgbox, % Match_Set " - " Match_Key " / " Match_Value
			}
			else if (Match_ = Match_Rep)
			{
				if RegExMatch(Match_Var, "^\+\+(.+)", Found_Var)
				{
					;msgbox, % Match_Var " / " Found_Var1

				Match_Var := Found_Var1

				Match_Var_Value := Pre_Vars[Match_Var]

				if Match_Var_Value is number
				Pre_Vars[Match_Var]++
				else
				Pre_Vars[Match_Var] := 0
				}

			Script := RegExReplace(Script, RegExEsc(Match_Rep), RegExEsc(Pre_Vars[Match_Var], "$"), , 1, FoundPos)

			MatchLength := StrLen(Pre_Vars[Match_Var])

				;msgbox, % Match_Rep " - " Match_Var
			}
		
		}
	}


return, Script 
}

test.ahkpe

Code: Select all

xxx := "111"

 yyy := "222"

	zzz := "333"

;ttt := "44444"

gui, add, text, , %%xxx%%  %%yyy%%  %%zzz%%  %%;ttt%%

gui, add, text, , %%++Count%%  %%++Count%%  %%++Count%%  -  %%Count%%  %%Count%%  %%Count%%

gui, add, text, , %%++UniqueId%%  %%++UniqueId%%  -  %%UniqueId%%  %%UniqueId%%

;_________

gui, add, text, w300 h200, Left click anywhere in this window

gui, add, button, gRunAnonymousFunctions, Run Anonymous Functions

gui, show

return

RunAnonymousFunctions:	;__

Anonymous_Function%%++UniqueId%%()
Anonymous_Function%%UniqueId%%()
{
msgbox, % A_ThisFunc
}

Anonymous_Function%%++UniqueId%%()
Anonymous_Function%%UniqueId%%()
{
msgbox, % A_ThisFunc
}

Anonymous_Function%%++UniqueId%%()
Anonymous_Function%%UniqueId%%()
{
msgbox, % A_ThisFunc
}

return

guiclose:	;__
exitapp

;___________


;Function_Name := "Test"

%%;Function_Name%%()		;__________________________________________________
{
Static RunAtScriptExecution := OnMessage(0x201, Func("%%;Function_Name%%"))	;"0x201" left mouse down

Static count := 0

tooltip, % A_ThisFunc "() - " count++, 0, 200, 1
}

   ;Function_Name := "First"

   %%;Function_Name%%()		;__________________________________________________
   {
   Static RunAtScriptExecution := OnMessage(0x201, Func("%%;Function_Name%%"))	;"0x201" left mouse down

   Static count := 1

   tooltip, % A_ThisFunc "() - " count++, 0, 225, 2
   }



	;Function_Name := "Last"

	%%;Function_Name%%()		;__________________________________________________
	{
	Static RunAtScriptExecution := OnMessage(0x201, Func("%%;Function_Name%%"))	;"0x201" left mouse down

	Static count := 2

	tooltip, % A_ThisFunc "() - " count++, 0, 250, 3
	}