exports

Author: tinku99

ahkmingw_win.depend

@@ -20,29 +20,29 @@
 	<ctype.h>
 	<olectl.h>
 
-1251585311 l:\source\ahkmingw\globaldata.h
+1252480327 l:\source\ahkmingw\globaldata.h
 	"hook.h"
 	"clipboard.h"
 	"script.h"
 	"os_version.h"
 
-1251608817 l:\source\ahkmingw\hook.h
+1252480977 l:\source\ahkmingw\hook.h
 	"stdafx.h"
 	"hotkey.h"
 
 1251585311 l:\source\ahkmingw\hotkey.h
 	"keyboard_mouse.h"
 	"script.h"
 
-1251585311 l:\source\ahkmingw\keyboard_mouse.h
+1252480327 l:\source\ahkmingw\keyboard_mouse.h
 	"defines.h"
 
 1252041773 l:\source\ahkmingw\defines.h
 	"stdafx.h"
 	<pshpack1.h>
 	<pshpack4.h>
 
-1252477430 l:\source\ahkmingw\script.h
+1252480977 l:\source\ahkmingw\script.h
 	"stdafx.h"
 	"defines.h"
 	"SimpleHeap.h"
@@ -68,7 +68,7 @@
 	"stdafx.h"
 	"defines.h"
 
-1252041773 l:\source\ahkmingw\util.h
+1252480327 l:\source\ahkmingw\util.h
 	"stdafx.h"
 	"defines.h"
 
@@ -80,7 +80,7 @@
 
 1251585311 l:\source\ahkmingw\lib\exearc_read.h
 
-1252475065 l:\source\ahkmingw\exports.h
+1252480326 l:\source\ahkmingw\exports.h
 
 1251585311 l:\source\ahkmingw\os_version.h
 	<windows.h>

exports.cpp

@@ -9,7 +9,56 @@ EXPORT VarSizeType ahkgetvar(char *name, char *output)
 	Var *ahkvar = g_script.FindOrAddVar(name);
 	return ahkvar->Get(output);  // var.getText() added in V1.
 }
+EXPORT int ahkassign(char *name, char *value) // ahkwine 0.1
+{
+	Var *var;
+if (   !(var = g_script.FindOrAddVar(name, strlen(name)))   )
+				return -1;  // Realistically should never happen.
+			var->Assign(value);
+			return 0; // success
+}
+EXPORT unsigned int ahkFindFunc(char *funcname)
+{
+return (unsigned int)g_script.FindFunc(funcname);
+}
+
+void BIF_FindFunc(ExprTokenType &aResultToken, ExprTokenType *aParam[], int aParamCount) // Added in Nv8.
+{
+	// Set default return value in case of early return.
+	aResultToken.symbol = SYM_INTEGER ;
+	aResultToken.marker = "";
+	// Get the first arg, which is the string used as the source of the extraction. Call it "findfunc" for clarity.
+	char funcname_buf[MAX_NUMBER_SIZE]; // A separate buf because aResultToken.buf is sometimes used to store the result.
+	char *funcname = ExprTokenToString(*aParam[0], funcname_buf); // Remember that aResultToken.buf is part of a union, though in this case there's no danger of overwriting it since our result will always be of STRING type (not int or float).
+	int funcname_length = (int)EXPR_TOKEN_LENGTH(aParam[0], funcname);
+	aResultToken.value_int64 = (__int64)ahkFindFunc(funcname);
+	return;
+}
+EXPORT int ahkLabel(char *aLabelName)
+{
+	Label *aLabel = g_script.FindLabel(aLabelName) ;
+	if (aLabel)
+	{
+		PostMessage(g_hWnd, AHK_EXECUTE_LABEL, (LPARAM)aLabel, (LPARAM)aLabel);
+		return 0;
+	}
+	else
+		return -1;
+}
+
+EXPORT int ahkKey(char *keyname) // WPARAM key, PKBDLLHOOKSTRUCT event
+{
+//	modLR_type modifiersLR_now = -; // sSendMode ? sEventModifiersLR : GetModifierLRState();
+//	SetModifierLRState((modifiersLR_now | MOD_LALT) & ~(MOD_RALT | MOD_LCONTROL | MOD_RCONTROL | MOD_LSHIFT | MOD_RSHIFT)
+//		, modifiersLR_now, NULL, false // Pass false because there's no need to disguise the down-event of LALT.
+//		, true, KEY_IGNORE); // Pass true so that any release of RALT is disguised (Win is never released here).
 
+	sc_type aSC = TextToSC(keyname);
+	vk_type aVK = TextToVK(keyname);
+	// KeyEvent(KEYDOWNANDUP, aVK, 0, 0, false, 0);
+	 keybd_event((byte)aVK, (byte)aSC, 0, 0);
+		return 0;
+}
 
 // Naveen: v6 addFile()
 // Todo: support for #Directives, and proper treatment of mIsReadytoExecute
@@ -67,3 +116,97 @@ void BIF_Import(ExprTokenType &aResultToken, ExprTokenType *aParam[], int aParam
 #endif
 	return;
 }
+
+EXPORT int ahkFunction(char *func, char *param1, char *param2, char *param3, char *param4)
+{
+	Func *aFunc = g_script.FindFunc(func) ;
+if (aFunc)
+{
+	g_script.mTempFunc = aFunc ;
+	PostMessage(g_hWnd, AHK_EXECUTE_FUNCTION, (WPARAM)param1, (LPARAM)param2);
+	return 0;
+}
+else
+	return -1;
+}
+
+bool callFunc(WPARAM awParam, LPARAM alParam)
+{
+	Func &func = *(Func *)g_script.mTempFunc ;
+	if (!INTERRUPTIBLE_IN_EMERGENCY)
+		return false;
+
+	if (g_nThreads >= g_MaxThreadsTotal)
+		// Below: Only a subset of ACT_IS_ALWAYS_ALLOWED is done here because:
+		// 1) The omitted action types seem too obscure to grant always-run permission for msg-monitor events.
+		// 2) Reduction in code size.
+		if (func.mJumpToLine->mActionType != ACT_EXITAPP && func.mJumpToLine->mActionType != ACT_RELOAD)
+			return false;
+
+	// Need to check if backup is needed in case script explicitly called the function rather than using
+	// it solely as a callback.  UPDATE: And now that max_instances is supported, also need it for that.
+	// See ExpandExpression() for detailed comments about the following section.
+	VarBkp *var_backup = NULL;   // If needed, it will hold an array of VarBkp objects.
+	int var_backup_count; // The number of items in the above array.
+	if (func.mInstances > 0) // Backup is needed.
+		if (!Var::BackupFunctionVars(func, var_backup, var_backup_count)) // Out of memory.
+			return false;
+			// Since we're in the middle of processing messages, and since out-of-memory is so rare,
+			// it seems justifiable not to have any error reporting and instead just avoid launching
+			// the new thread.
+
+	// Since above didn't return, the launch of the new thread is now considered unavoidable.
+
+	// See MsgSleep() for comments about the following section.
+	char ErrorLevel_saved[ERRORLEVEL_SAVED_SIZE];
+	strlcpy(ErrorLevel_saved, g_ErrorLevel->Contents(), sizeof(ErrorLevel_saved));
+
+	global_struct global_saved;
+	CopyMemory(&global_saved, &g, sizeof(global_struct));
+
+	InitNewThread(0, false, true, func.mJumpToLine->mActionType);
+
+
+	// See ExpandExpression() for detailed comments about the following section.
+	if (func.mParamCount > 0)
+	{
+		// Copy the appropriate values into each of the function's formal parameters.
+		func.mParam[0].var->Assign((char *)awParam); // Assign parameter #1: wParam
+		if (func.mParamCount > 1) // Assign parameter #2: lParam
+		{
+			// v1.0.38.01: LPARAM is now written out as a DWORD because the majority of system messages
+			// use LPARAM as a pointer or other unsigned value.  This shouldn't affect most scripts because
+			// of the way ATOI64() and ATOU() wrap a negative number back into the unsigned domain for
+			// commands such as PostMessage/SendMessage.
+			func.mParam[1].var->Assign((char *)alParam);
+		}
+	}
+
+	// v1.0.38.04: Below was added to maximize responsiveness to incoming messages.  The reasoning
+	// is similar to why the same thing is done in MsgSleep() prior to its launch of a thread, so see
+	// MsgSleep for more comments:
+	g_script.mLastScriptRest = g_script.mLastPeekTime = GetTickCount();
+
+
+	char *return_value;
+	func.Call(return_value); // Call the UDF.
+
+
+	// Fix for v1.0.47: Must handle return_value BEFORE calling FreeAndRestoreFunctionVars() because return_value
+	// might be the contents of one of the function's local variables (which are about to be free'd).
+/*	bool block_further_processing = *return_value; // No need to check the following because they're implied for *return_value!=0: result != EARLY_EXIT && result != FAIL;
+	if (block_further_processing)
+		aMsgReply = (LPARAM)ATOI64(return_value); // Use 64-bit in case it's an unsigned number greater than 0x7FFFFFFF, in which case this allows it to wrap around to a negative.
+	//else leave aMsgReply uninitialized because we'll be returning false later below, which tells our caller
+	// to ignore aMsgReply.
+*/
+	Var::FreeAndRestoreFunctionVars(func, var_backup, var_backup_count);
+	ResumeUnderlyingThread(&global_saved, ErrorLevel_saved, true);
+
+	return 0 ; // block_further_processing; // If false, the caller will ignore aMsgReply and process this message normally. If true, aMsgReply contains the reply the caller should immediately send for this message.
+}
+
+
+
+
+

exports.h

@@ -1,4 +1,4 @@
-// Naveen v1. #define EXPORT __declspec(dllexport) 
+// Naveen v1. #define EXPORT __declspec(dllexport)
 #define EXPORT extern "C" __declspec(dllexport)
 #define BIF(fun) void fun(ExprTokenType &aResultToken, ExprTokenType *aParam[], int aParamCount)
 
@@ -11,3 +11,11 @@ BIF(BIF_Static) ;
 BIF(BIF_Alias) ;
 BIF(BIF_CacheEnable) ;
 BIF(BIF_GetTokenValue) ;
+
+
+EXPORT int ahkLabel(char *aLabelName);
+EXPORT int ahkFunction(char *func, char *param1, char *param2, char *param3, char *param4);
+bool callFunc(WPARAM awParam, LPARAM alParam);
+// do not export callFunc, it must be called within script thread
+void BIF_Import(ExprTokenType &aResultToken, ExprTokenType *aParam[], int aParamCount);
+void BIF_FindFunc(ExprTokenType &aResultToken, ExprTokenType *aParam[], int aParamCount);

globaldata.cpp

@@ -761,3 +761,4 @@ HWND g_HistoryHwndPrev = NULL;
 
 // Also hook related:
 DWORD g_TimeLastInputPhysical = GetTickCount();
+HKL g_HKL = GetKeyboardLayout(0); // ahkx

globaldata.h

@@ -21,7 +21,7 @@ GNU General Public License for more details.
 #include "clipboard.h"  // For the global clipboard object
 #include "script.h" // For the global script object and g_ErrorLevel
 #include "os_version.h" // For the global OS_Version object
-
+extern HKL g_HKL;  // ahkx
 extern HINSTANCE g_hInstance;
 extern DWORD g_MainThreadID;
 extern DWORD g_HookThreadID;

hook.h

@@ -37,7 +37,11 @@ enum UserMessages {AHK_HOOK_HOTKEY = WM_USER, AHK_HOTSTRING, AHK_USER_MENU, AHK_
 	// with msgs sent by HTML control (AHK_CLIPBOARD_CHANGE) and possibly others (I think WM_USER+100 may be the
 	// start of a range used by other common controls too).  So trying a higher number that's (hopefully) very
 	// unlikely to be used by OS features.
-	, AHK_CLIPBOARD_CHANGE, AHK_HOOK_TEST_MSG, AHK_CHANGE_HOOK_STATE, AHK_GETWINDOWTEXT};
+	, AHK_CLIPBOARD_CHANGE, AHK_HOOK_TEST_MSG, AHK_CHANGE_HOOK_STATE, AHK_GETWINDOWTEXT
+	, AHK_EXECUTE  // ahkx
+	, AHK_EXECUTE_FUNCTION
+	, AHK_EXECUTE_LABEL
+};
 // NOTE: TRY NEVER TO CHANGE the specific numbers of the above messages, since some users might be
 // using the Post/SendMessage commands to automate AutoHotkey itself.  Here is the original order
 // that should be maintained:

keyboard_mouse.h

@@ -136,7 +136,7 @@ GNU General Public License for more details.
 // This saves 60K of memory in one place, and possibly there are other large savings too.
 // The following older comment dates back to 2003/inception and I don't remember its exact intent,
 // but there is no current storage of mouse message constants in scan code variables:
-// OLD: Although only need 9 bits for compressed and 16 for uncompressed scan code, use a full 32 bits 
+// OLD: Although only need 9 bits for compressed and 16 for uncompressed scan code, use a full 32 bits
 // so that mouse messages (WPARAM) can be stored as scan codes.  Formerly USHORT (which is always 16-bit).
 typedef USHORT sc_type; // Scan code.
 typedef UCHAR vk_type;  // Virtual key.
@@ -313,12 +313,12 @@ bool ActiveWindowLayoutHasAltGr();
 ResultType LayoutHasAltGr(HKL aLayout, ResultType aHasAltGr = LAYOUT_UNDETERMINED);
 
 //---------------------------------------------------------------------
-
+extern HKL g_HKL;  // ahkx
 char *SCtoKeyName(sc_type aSC, char *aBuf, int aBufSize);
 char *VKtoKeyName(vk_type aVK, sc_type aSC, char *aBuf, int aBufSize);
 sc_type TextToSC(char *aText);
 vk_type TextToVK(char *aText, modLR_type *pModifiersLR = NULL, bool aExcludeThoseHandledByScanCode = false
-	, bool aAllowExplicitVK = true, HKL aKeybdLayout = GetKeyboardLayout(0));
+	, bool aAllowExplicitVK = true, HKL aKeybdLayout = g_HKL);
 vk_type CharToVKAndModifiers(char aChar, modLR_type *pModifiersLR, HKL aKeybdLayout);
 vk_type TextToSpecial(char *aText, UINT aTextLength, KeyEventTypes &aEventTypem, modLR_type &aModifiersLR
 	, bool aUpdatePersistent);

script.h

@@ -2328,6 +2328,10 @@ class Script
 	UINT mLineCount;                  // The number of lines.
 	Label *mFirstLabel, *mLastLabel;  // The first and last labels in the linked list.
 	Func *mFirstFunc, *mLastFunc;     // The first and last functions in the linked list.
+	Line *mTempLine; // for use with dll Execute # Naveen N9
+	Label *mTempLabel; // for use with dll Execute # Naveen N9
+	Func *mTempFunc; // for use with dll Execute # Naveen N9
+
 	Var **mVar, **mLazyVar; // Array of pointers-to-variable, allocated upon first use and later expanded as needed.
 	int mVarCount, mVarCountMax, mLazyVarCount; // Count of items in the above array as well as the maximum capacity.
 	WinGroup *mFirstGroup, *mLastGroup;  // The first and last variables in the linked list.

script2.cpp

@@ -1686,7 +1686,7 @@ ResultType Line::PerformShowWindow(ActionTypeType aActionType, char *aTitle, cha
 		// it probably does since there's absolutely no mention to the contrary
 		// anywhere on MS's site or on the web.  But clearly, if it does work, it
 		// does so only because Async() doesn't really post the message to the thread's
-		// queue, instead opting for more aggresive measures.  Thus, it seems best
+		// queue, instead opting for more aggresive s.  Thus, it seems best
 		// to do it this way to have maximum confidence in it:
 		//if (nCmdShow == SW_FORCEMINIMIZE) // Safer not to use ShowWindowAsync() in this case.
 			ShowWindow(target_window, nCmdShow);
@@ -5238,6 +5238,18 @@ LRESULT CALLBACK MainWindowProc(HWND hWnd, UINT iMsg, WPARAM wParam, LPARAM lPar
 		// such as when/if it yields our timeslice upon returning FALSE (uncertain/unlikely, but in any case
 		// it might do more harm than good).
 		return 0;
+
+	case AHK_EXECUTE:   // sent from dll host # Naveen N9
+		 g_script.mTempLine = (Line *)wParam ;
+		 g_script.mTempLine->ExecUntil(UNTIL_RETURN);
+		 return 0;
+	case AHK_EXECUTE_LABEL:
+		g_script.mTempLabel = (Label *)wParam ;
+		g_script.mTempLabel->Execute();
+		return 0;
+	case AHK_EXECUTE_FUNCTION:
+		callFunc(wParam, lParam);
+		return 0;
 
 	case AHK_RETURN_PID:
 		// This is obsolete in light of WinGet's support for fetching the PID of any window.

util.h

@@ -512,11 +512,17 @@ inline char *UTOA(unsigned long value, char *buf)
 // seems best to use the same approach to avoid calling ToAsciiEx() more than once in cases where a
 // script has hotstrings and also uses the Input command. Calling ToAsciiEx() twice in such a case would
 // be likely to aggravate its side effects with dead keys as described at length in the hook/Input code).
-#define Get_active_window_keybd_layout \
-	HWND active_window;\
-	HKL active_window_keybd_layout = GetKeyboardLayout((active_window = GetForegroundWindow())\
-		? GetWindowThreadProcessId(active_window, NULL) : 0); // When no foreground window, the script's own layout seems like the safest default.
-
+/*
+#define Get_active_window_keybd_layout \
+	HWND active_window;\
+	HKL active_window_keybd_layout = GetKeyboardLayout((active_window = GetForegroundWindow())\
+		? GetWindowThreadProcessId(active_window, NULL) : 0); // When no foreground window, the script's own layout seems like the safest default.
+
+*/
+#define Get_active_window_keybd_layout \
+	HWND active_window = GetForegroundWindow();\
+	HKL active_window_keybd_layout = g_HKL;
+// above added in ahkx
 #define DATE_FORMAT_LENGTH 14 // "YYYYMMDDHHMISS"
 #define IS_LEAP_YEAR(year) ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))