使用Lua构造PL/SQL Developer插件框架

一、前言

Lua是一门脚本语言，由巴西里约热内卢天主教大学的一个研发小组创作，因其小巧和灵活备受青睐，魔兽世界和迅雷中都能看到它的身影，关于Lua更详细介绍和源代码，可以从http://www.lua.org获取。

和前者不同，PL/SQLDeveloper是一个商业软件，使用Delphi开发，用于Oracle数据库的开发和维护，因其功能的完备和易用性受到数据库应用开发着的追捧，官方站点为http://www.allroundautomations.com。该工具支持用户开发第三方插件用来扩展特殊的应用需求，插件以动态链接库的形式存在，库中需要导出插件必须支持的最小API集合，工具通过调用用户实现的插件API完成特定的任务。

本文尝试使用Lua语言粘合插件API达成通过脚本实现插件开发的目的，充分使用脚本无需编译的特性，并充分利用脚本提供的强大动态语言特性，避免插件开发者劳累于插件编译和发布过程，轻松实现个性化的应用需求。

二、PL/SQL Developer插件开发的一般过程

在PL/SQL Developer安装目录下有个PlugIns目录，该目录下的DLL文件即是插件的实现动态连接库。插件最常见的任务便是和主应用程序进行交互——获取正在运行的应用程序信息，或者把加工处理的结果信息反馈给应用程序，此处的应用程序特指PL/SQL Developer进程，当然插件被应用程序激活触发后，你可以在插件中完成操作系统中允许的任何功能。

开发插件需要面对的API包括两部分，一部分需要在插件的动态链接库中提供，主程序启动后会在动态链接库中寻找这组函数，并通过调用这组函数确定动态链接库是否是有效的插件；另一部分API由主程序提供，插件的业务逻辑可以调用这组API实现和主程序的交互，主要包括菜单控制、窗口控制、和后台数据库交互等，例如你想在插件中执行一段SQL语句就需要用到这组API。

由插件导出的API最小集合只有一个函数IdentifyPlugIn，只要导出该函数并可正确调用，主程序就认为动态库是一个有效的插件。当然如果你的插件只有这么一个函数毫无意义的，你必须通过主程序的UI让用户和你的插件进行交互，其中几个较重要的函数有CreateMenuItem，OnMenuClick等。插件提供有组API称为事件API，主程序发生特定事件时会调用这组API，包括应用初始化、UI初始化、数据库连接初始化等等，这组API是让你的插件工作的驱动源，只有主程序触发了这组API，插件才能按照预期的规划执行特定代码。这组事件API大概有20几个，如OnCreate，OnActivate，OnDestroy等。另一组API为主程序提供插件的详细信息，如插件的版本、插件的作者、插件的版权等，如PlugInName，PlugInSubName，PlugInShortName等。此外主程序还提供注册外部文件系统的API，方便通过文件保存等功能改变主程序缺省的本地文件保存方案。还有一组数据导出的注册API，是你改变数据导出的缺省行为。

啰嗦许久，下面开始介绍如何将各类API组织起来使主程序和插件协同工作，这里有个由插件导出的重量级函数RegisterCallback，这个函数将主程序提供的回调函数地址保存到插件的变量中来，毕竟主程序是使用Delphi开发的，并且出于安全考虑主程序并未直接在PE中导出回调函数，而是通过RegisterCallback函数将函数指针作为参数返回给插件，插件使用函数指针变量保存函数地址。RegisterCallback没有采用函数名称传回回调函数地址，而是将回调函数进行编号，通过编号对应函数地址，这里就不得不提一下，安装目录下C++的插件头文件的回调函数编号是错误的，不知道是开发人员敷衍了事还支持使用Delphi开发插件，C++程序员很容易将其作为SDK的头文件进行扩展，这样就会导出碰壁，本人就曾经被折腾，最后才发现函数编号彻底混乱，害人啊。

RegisterCallback定义的示例如下。

void RegisterCallback(int Index, void *Addr)
{
switch (Index)
{
case 10 :
(void *)IDE_MenuState = Addr;
break;
case 11 :
(void *)IDE_Connected = Addr;
break;
case 12 :
(void *)IDE_GetConnectionInfo = Addr;
break;
case 13 :
(void *)IDE_GetBrowserInfo = Addr;
break;
}
}

其中Index参数为回调函数编号，Addr参数为函数地址，此时将Addr参数保存在本地的函数指针变量中，后继代码即可使用函数指针调用该回调函数。

如下为本人定义的RegisterCallback函数，已经包含了所有公开的回调函数。

/* Let IDE setup function pointers */
void RegisterCallback(int Index, void*Addr) {
	FC_TRACE("RegisterCallback");
	switch (Index) {
	case 1:
		SYS_Version = Addr;
		break;
	case 2:
		SYS_Registry = Addr;
		break;
	case 3:
		SYS_RootDir = Addr;
		break;
	case 4:
		SYS_OracleHome = Addr;
		break;
	case 5:
		SYS_OCIDLL = Addr;
		break;
	case 6:
		SYS_OCI8Mode = Addr;
		break;
	case 7:
		SYS_XPStyle = Addr;
		break;
	case 8:
		SYS_TNSNAMES = Addr;
		break;
	case 9:
		SYS_DelphiVersion = Addr;
		break;
	case 10:
		IDE_MenuState = Addr;
		break;
	case 11:
		IDE_Connected = Addr;
		break;
	case 12:
		IDE_GetConnectionInfo = Addr;
		break;
	case 13:
		IDE_GetBrowserInfo = Addr;
		break;
	case 14:
		IDE_GetWindowType = Addr;
		break;
	case 15:
		IDE_GetAppHandle = Addr;
		break;
	case 16:
		IDE_GetWindowHandle = Addr;
		break;
	case 17:
		IDE_GetClientHandle = Addr;
		break;
	case 18:
		IDE_GetChildHandle = Addr;
		break;
	case 19:
		IDE_Refresh = Addr;
		break;
	case 20:
		IDE_CreateWindow = Addr;
		break;
	case 21:
		IDE_OpenFile = Addr;
		break;
	case 22:
		IDE_SaveFile = Addr;
		break;
	case 23:
		IDE_Filename = Addr;
		break;
	case 24:
		IDE_CloseFile = Addr;
		break;
	case 25:
		IDE_SetReadOnly = Addr;
		break;
	case 26:
		IDE_GetReadOnly = Addr;
		break;
	case 27:
		IDE_ExecuteSQLReport = Addr;
		break;
	case 28:
		IDE_ReloadFile = Addr;
		break;
	case 29:
		IDE_SetFilename = Addr;
		break;
	case 30:
		IDE_GetText = Addr;
		break;
	case 31:
		IDE_GetSelectedText = Addr;
		break;
	case 32:
		IDE_GetCursorWord = Addr;
		break;
	case 33:
		IDE_GetEditorHandle = Addr;
		break;
	case 34:
		IDE_SetText = Addr;
		break;
	case 35:
		IDE_SetStatusMessage = Addr;
		break;
	case 36:
		IDE_SetErrorPosition = Addr;
		break;
	case 37:
		IDE_ClearErrorPositions = Addr;
		break;
	case 38:
		IDE_GetCursorWordPosition = Addr;
		break;
	case 39:
		IDE_Perform = Addr;
		break;
	case 40:
		SQL_Execute = Addr;
		break;
	case 41:
		SQL_FieldCount = Addr;
		break;
	case 42:
		SQL_Eof = Addr;
		break;
	case 43:
		SQL_Next = Addr;
		break;
	case 44:
		SQL_Field = Addr;
		break;
	case 45:
		SQL_FieldName = Addr;
		break;
	case 46:
		SQL_FieldIndex = Addr;
		break;
	case 47:
		SQL_FieldType = Addr;
		break;
	case 48:
		SQL_ErrorMessage = Addr;
		break;
	case 50:
		SQL_UsePlugInSession = Addr;
		break;
	case 51:
		SQL_UseDefaultSession = Addr;
		break;
	case 52:
		SQL_CheckConnection = Addr;
		break;
	case 53:
		SQL_GetDBMSGetOutput = Addr;
		break;
	case 54:
		SQL_SetVariable = Addr;
		break;
	case 55:
		SQL_GetVariable = Addr;
		break;
	case 56:
		SQL_ClearVariables = Addr;
		break;
	case 60:
		IDE_GetCustomKeywords = Addr;
		break;
	case 61:
		IDE_SetCustomKeywords = Addr;
		break;
	case 62:
		IDE_SetKeywords = Addr;
		break;
	case 63:
		IDE_ActivateKeywords = Addr;
		break;
	case 64:
		IDE_RefreshMenus = Addr;
		break;
	case 65:
		IDE_SetMenuName = Addr;
		break;
	case 66:
		IDE_SetMenuCheck = Addr;
		break;
	case 67:
		IDE_SetMenuVisible = Addr;
		break;
	case 68:
		IDE_GetMenulayout = Addr;
		break;
	case 69:
		IDE_CreatePopupItem = Addr;
		break;
	case 70:
		IDE_SetConnection = Addr;
		break;
	case 71:
		IDE_GetObjectInfo = Addr;
		break;
	case 72:
		IDE_GetBrowserItems = Addr;
		break;
	case 73:
		IDE_RefreshBrowser = Addr;
		break;
	case 74:
		IDE_GetPopupObject = Addr;
		break;
	case 75:
		IDE_GetPopupBrowserRoot = Addr;
		break;
	case 76:
		IDE_RefreshObject = Addr;
		break;
	case 77:
		IDE_FirstSelectedObject = Addr;
		break;
	case 78:
		IDE_NextSelectedObject = Addr;
		break;
	case 79:
		IDE_GetObjectSource = Addr;
		break;
	case 80:
		IDE_GetWindowCount = Addr;
		break;
	case 81:
		IDE_SelectWindow = Addr;
		break;
	case 82:
		IDE_ActivateWindow = Addr;
		break;
	case 83:
		IDE_WindowIsModified = Addr;
		break;
	case 84:
		IDE_WindowIsRunning = Addr;
		break;
	case 90:
		IDE_SplashCreate = Addr;
		break;
	case 91:
		IDE_SplashHide = Addr;
		break;
	case 92:
		IDE_SplashWrite = Addr;
		break;
	case 93:
		IDE_SplashWriteLn = Addr;
		break;
	case 94:
		IDE_SplashProgress = Addr;
		break;
	case 95:
		IDE_TemplatePath = Addr;
		break;
	case 96:
		IDE_ExecuteTemplate = Addr;
		break;
	case 97:
		IDE_GetConnectAs = Addr;
		break;
	case 98:
		IDE_SetConnectionAs = Addr;
		break;
	case 100:
		IDE_GetFileOpenMenu = Addr;
		break;
	case 101:
		IDE_CanSaveWindow = Addr;
		break;
	case 102:
		IDE_OpenFileExternal = Addr;
		break;
	case 103:
		IDE_GetFileTypes = Addr;
		break;
	case 104:
		IDE_GetDefaultExtension = Addr;
		break;
	case 105:
		IDE_GetFiledata = Addr;
		break;
	case 106:
		IDE_FileSaved = Addr;
		break;
	case 107:
		IDE_ShowHTML = Addr;
		break;
	case 108:
		IDE_RefreshHTML = Addr;
		break;
	case 109:
		IDE_GetProcEditExtension = Addr;
		break;
	case 110:
		IDE_GetWindowObject = Addr;
		break;
	case 111:
		IDE_FirstSelectedFile = Addr;
		break;
	case 112:
		IDE_NextSelectedFile = Addr;
		break;
	case 113:
		IDE_RefreshFileBrowser = Addr;
		break;
	case 120:
		IDE_KeyPress = Addr;
		break;
	case 121:
		IDE_GetMenuItem = Addr;
		break;
	case 122:
		IDE_SelectMenu = Addr;
		break;
	case 130:
		IDE_TranslationFile = Addr;
		break;
	case 131:
		IDE_TranslationLanguage = Addr;
		break;
	case 132:
		IDE_GetTranslatedMenuLayout = Addr;
		break;
	case 133:
		IDE_MainFont = Addr;
		break;
	case 134:
		IDE_TranslateItems = Addr;
		break;
	case 135:
		IDE_TranslateString = Addr;
		break;
	case 140:
		IDE_SaveRecoveryFiles = Addr;
		break;
	case 141:
		IDE_GetCursorX = Addr;
		break;
	case 142:
		IDE_GetCursorY = Addr;
		break;
	case 143:
		IDE_SetCursor = Addr;
		break;
	case 144:
		IDE_SetBookmark = Addr;
		break;
	case 145:
		IDE_ClearBookmark = Addr;
		break;
	case 146:
		IDE_GotoBookmark = Addr;
		break;
	case 147:
		IDE_GetBookmark = Addr;
		break;
	case 148:
		IDE_TabInfo = Addr;
		break;
	case 149:
		IDE_TabIndex = Addr;
		break;
	case 150:
		IDE_CreateToolButton = Addr;
		break;
	case 153:
		IDE_WindowHasEditor = Addr;
		break;
	case 160:
		IDE_BeautifierOptions = Addr;
		break;
	case 161:
		IDE_BeautifyWindow = Addr;
		break;
	case 162:
		IDE_BeautifyText = Addr;
		break;
	case 165:
		IDE_ObjectAction = Addr;
		break;
	case 166:
		IDE_ShowDialog = Addr;
		break;
	case 173:
		IDE_DebugLog = Addr;
		break;
	case 174:
		IDE_GetParamString = Addr;
		break;
	case 175:
		IDE_GetParamBool = Addr;
		break;
	case 176:
		IDE_GetBrowserFilter = Addr;
		break;
	case 180:
		IDE_CommandFeedback = Addr;
		break;
	case 190:
		IDE_ResultGridRowCount = Addr;
		break;
	case 191:
		IDE_ResultGridColCount = Addr;
		break;
	case 192:
		IDE_ResultGridCell = Addr;
		break;
	case 200:
		IDE_Authorized = Addr;
		break;
	case 201:
		IDE_WindowAllowed = Addr;
		break;
	case 202:
		IDE_Authorization = Addr;
		break;
	case 203:
		IDE_AuthorizationItems = Addr;
		break;
	case 204:
		IDE_AddAuthorizationItem = Addr;
		break;
	case 210:
		IDE_GetPersonalPrefSets = Addr;
		break;
	case 211:
		IDE_GetDefaultPrefSets = Addr;
		break;
	case 212:
		IDE_GetPrefAsString = Addr;
		break;
	case 213:
		IDE_GetPrefAsInteger = Addr;
		break;
	case 214:
		IDE_GetPrefAsBool = Addr;
		break;
	case 215:
		IDE_SetPrefAsString = Addr;
		break;
	case 216:
		IDE_SetPrefAsInteger = Addr;
		break;
	case 217:
		IDE_SetPrefAsBool = Addr;
		break;
	case 218:
		IDE_GetGeneralPref = Addr;
		break;
	case 219:
		IDE_PlugInSetting = Addr;
		break;
	case 220:
		IDE_GetProcOverloadCount = Addr;
		break;
	case 221:
		IDE_SelectProcOverloading = Addr;
		break;
	case 230:
		IDE_GetSessionValue = Addr;
		break;
	case 231:
		IDE_CheckDBVersion = Addr;
		break;
	}
}

至此，已经将主程序提供的所有回调函数都保存到本地的函数指针变量，在插件中可以自由使用这些回调函数了。

三、使用Lua粘合代码

Lua通常情况下通过将Lua虚拟机直接嵌入宿主程序代码的方式粘合代码，在本示例中，我们将Lua虚拟机直接嵌入上述的插件文件中。

在插件中代码执行从插件被载入开始，插件在收到主程序的事件调用时，将调用的代码转嫁到Lua脚本的执行，至此就完成脚本代码的粘合。

在C程序中调用Lua脚本的示例如下所述，首先一定一个C函数，该函数被插件的事件函数所调用，在函数中载入Lua脚本，并执行脚本中对应的方法，此处以粘合IdentifyPlugIn函数为例。

char* IdentifyPlugIn(int ID) {
	char* retValue;
	FC_TRACE("IdentifyPlugIn");
	CHECK_LUA;
	/* Save the plugin ID in dynamic library */
	SavePluginID(ID);
	lua_getglobal(L, "IdentifyPlugIn");
	lua_pushinteger(L, ID);
	lua_pcall(L, 1, 1, 0);
	retValue = (char *)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

其中L为Lua虚拟机上下文结构指针，有该指针可实现Lua的线程安全，代码中首先查找Lua方法的名称，之后使用Lua的数据类型调用改脚本方法。

在这之前需要载入Lua脚本并穿件虚拟机，这部分代码如下所示。

luaL_dofile(L, scriptName);

其中scriptName问Lua脚本的文件名称。

另一个方向的调用时Lua脚本中调用C函数，主程序的回调函数都需要使用这个渠道完成，现以SYS_OracleHome函数为例，首先要注册该函数的名称到Lua执行上下文

RegisterRoutine(L, "SYS_OracleHome", luax_SYS_OracleHome);

Lua脚本对SYS_OracleHome的调用会转移为调用luax_SYS_OracleHome函数，一下为该函数的定义。

int luax_SYS_OracleHome(lua_State *l) {
	char* retValue;
	retValue = SYS_OracleHome();
	lua_pushstring(l, retValue);
	return 1;
}

此处调用了主程序函数指针（先前用RegisterCallback保存的地址），并使用Lua的数据类型返回函数返回值。

至此所有的粘合工作完成，可以在Lua脚本中编写脚本构造插件了。

四、主要示例代码

注册全部的回调函数Lua名称。

/* Function for setup Lua virtual machine */
lua_State *SetupLuaSupport()
{ // By default file name convention regardless of complex situation
	HMODULE hModule;
	if (L)
		return L;
	L = lua_open();
	if (L) {
		luaopen_base(L);
		luaopen_table(L);
		luaL_openlibs(L);
		luaopen_string(L);
		luaopen_math(L);
	}
	else {
		return NULL; // Initialization failed
	}
	hModule = GetModuleHandle("yap.dll");
	if (hModule) {
		char fileName[MAX_PATH];
		DWORD dwCount;
		memset(fileName, '\0', sizeof(fileName));
		dwCount = GetModuleFileName(hModule, fileName,
			sizeof(fileName) / sizeof(TCHAR));
		if (dwCount > 0) {
			char *szPos1, *szPos2;
			char scriptName[MAX_PATH];
			memset(scriptName, '\0', sizeof(scriptName));
			szPos1 = fileName;
			szPos2 = szPos1;
			while (szPos1 = strstr(szPos1, "\\")) {
				szPos2 = szPos1;
				szPos1 += 1;
			}
			strncpy(scriptName, fileName, szPos2 - fileName);
			strcat(scriptName, "\\yap.lua");
			luaL_dofile(L, scriptName);
			/* Register c function begin */
			/* Extra define for utilities */
			RegisterRoutine(L, "ShowMessage", luax_ShowMessage);
			RegisterRoutine(L, "ShowMessageOption", luax_ShowMessageOption);
			RegisterRoutine(L, "FetchData", luax_FetchData);
			RegisterRoutine(L, "GetOpenFileName", luax_GetOpenFileName);
			RegisterRoutine(L, "GetSaveFileName", luax_GetSaveFileName);
			/* Auto scratch routine */
			RegisterRoutine(L, "SYS_Version", luax_SYS_Version);
			RegisterRoutine(L, "SYS_Registry", luax_SYS_Registry);
			RegisterRoutine(L, "SYS_RootDir", luax_SYS_RootDir);
			RegisterRoutine(L, "SYS_OracleHome", luax_SYS_OracleHome);
			RegisterRoutine(L, "SYS_OCIDLL", luax_SYS_OCIDLL);
			RegisterRoutine(L, "SYS_OCI8Mode", luax_SYS_OCI8Mode);
			RegisterRoutine(L, "SYS_XPStyle", luax_SYS_XPStyle);
			RegisterRoutine(L, "SYS_TNSNAMES", luax_SYS_TNSNAMES);
			RegisterRoutine(L, "SYS_DelphiVersion", luax_SYS_DelphiVersion);
			RegisterRoutine(L, "IDE_MenuState", luax_IDE_MenuState);
			RegisterRoutine(L, "IDE_Connected", luax_IDE_Connected);
			RegisterRoutine(L, "IDE_GetConnectionInfo",
				luax_IDE_GetConnectionInfo);
			RegisterRoutine(L, "IDE_GetBrowserInfo", luax_IDE_GetBrowserInfo);
			RegisterRoutine(L, "IDE_GetWindowType", luax_IDE_GetWindowType);
			RegisterRoutine(L, "IDE_GetAppHandle", luax_IDE_GetAppHandle);
			RegisterRoutine(L, "IDE_GetWindowHandle", luax_IDE_GetWindowHandle);
			RegisterRoutine(L, "IDE_GetClientHandle", luax_IDE_GetClientHandle);
			RegisterRoutine(L, "IDE_GetChildHandle", luax_IDE_GetChildHandle);
			RegisterRoutine(L, "IDE_Refresh", luax_IDE_Refresh);
			RegisterRoutine(L, "IDE_CreateWindow", luax_IDE_CreateWindow);
			RegisterRoutine(L, "IDE_OpenFile", luax_IDE_OpenFile);
			RegisterRoutine(L, "IDE_SaveFile", luax_IDE_SaveFile);
			RegisterRoutine(L, "IDE_Filename", luax_IDE_Filename);
			RegisterRoutine(L, "IDE_CloseFile", luax_IDE_CloseFile);
			RegisterRoutine(L, "IDE_SetReadOnly", luax_IDE_SetReadOnly);
			RegisterRoutine(L, "IDE_GetReadOnly", luax_IDE_GetReadOnly);
			RegisterRoutine(L, "IDE_ExecuteSQLReport",
				luax_IDE_ExecuteSQLReport);
			RegisterRoutine(L, "IDE_ReloadFile", luax_IDE_ReloadFile);
			RegisterRoutine(L, "IDE_SetFilename", luax_IDE_SetFilename);
			RegisterRoutine(L, "IDE_GetText", luax_IDE_GetText);
			RegisterRoutine(L, "IDE_GetSelectedText", luax_IDE_GetSelectedText);
			RegisterRoutine(L, "IDE_GetCursorWord", luax_IDE_GetCursorWord);
			RegisterRoutine(L, "IDE_GetEditorHandle", luax_IDE_GetEditorHandle);
			RegisterRoutine(L, "IDE_SetText", luax_IDE_SetText);
			RegisterRoutine(L, "IDE_SetStatusMessage",
				luax_IDE_SetStatusMessage);
			RegisterRoutine(L, "IDE_SetErrorPosition",
				luax_IDE_SetErrorPosition);
			RegisterRoutine(L, "IDE_ClearErrorPositions",
				luax_IDE_ClearErrorPositions);
			RegisterRoutine(L, "IDE_GetCursorWordPosition",
				luax_IDE_GetCursorWordPosition);
			RegisterRoutine(L, "IDE_Perform", luax_IDE_Perform);
			RegisterRoutine(L, "SQL_Execute", luax_SQL_Execute);
			RegisterRoutine(L, "SQL_FieldCount", luax_SQL_FieldCount);
			RegisterRoutine(L, "SQL_Eof", luax_SQL_Eof);
			RegisterRoutine(L, "SQL_Next", luax_SQL_Next);
			RegisterRoutine(L, "SQL_Field", luax_SQL_Field);
			RegisterRoutine(L, "SQL_FieldName", luax_SQL_FieldName);
			RegisterRoutine(L, "SQL_FieldIndex", luax_SQL_FieldIndex);
			RegisterRoutine(L, "SQL_FieldType", luax_SQL_FieldType);
			RegisterRoutine(L, "SQL_ErrorMessage", luax_SQL_ErrorMessage);
			RegisterRoutine(L, "SQL_UsePlugInSession",
				luax_SQL_UsePlugInSession);
			RegisterRoutine(L, "SQL_UseDefaultSession",
				luax_SQL_UseDefaultSession);
			RegisterRoutine(L, "SQL_CheckConnection", luax_SQL_CheckConnection);
			RegisterRoutine(L, "SQL_GetDBMSGetOutput",
				luax_SQL_GetDBMSGetOutput);
			RegisterRoutine(L, "SQL_SetVariable", luax_SQL_SetVariable);
			RegisterRoutine(L, "SQL_GetVariable", luax_SQL_GetVariable);
			RegisterRoutine(L, "SQL_ClearVariables", luax_SQL_ClearVariables);
			RegisterRoutine(L, "IDE_GetCustomKeywords",
				luax_IDE_GetCustomKeywords);
			RegisterRoutine(L, "IDE_SetCustomKeywords",
				luax_IDE_SetCustomKeywords);
			RegisterRoutine(L, "IDE_SetKeywords", luax_IDE_SetKeywords);
			RegisterRoutine(L, "IDE_ActivateKeywords",
				luax_IDE_ActivateKeywords);
			RegisterRoutine(L, "IDE_RefreshMenus", luax_IDE_RefreshMenus);
			RegisterRoutine(L, "IDE_SetMenuName", luax_IDE_SetMenuName);
			RegisterRoutine(L, "IDE_SetMenuCheck", luax_IDE_SetMenuCheck);
			RegisterRoutine(L, "IDE_SetMenuVisible", luax_IDE_SetMenuVisible);
			RegisterRoutine(L, "IDE_GetMenulayout", luax_IDE_GetMenulayout);
			RegisterRoutine(L, "IDE_CreatePopupItem", luax_IDE_CreatePopupItem);
			RegisterRoutine(L, "IDE_SetConnection", luax_IDE_SetConnection);
			RegisterRoutine(L, "IDE_GetObjectInfo", luax_IDE_GetObjectInfo);
			RegisterRoutine(L, "IDE_GetBrowserItems", luax_IDE_GetBrowserItems);
			RegisterRoutine(L, "IDE_RefreshBrowser", luax_IDE_RefreshBrowser);
			RegisterRoutine(L, "IDE_GetPopupObject", luax_IDE_GetPopupObject);
			RegisterRoutine(L, "IDE_GetPopupBrowserRoot",
				luax_IDE_GetPopupBrowserRoot);
			RegisterRoutine(L, "IDE_RefreshObject", luax_IDE_RefreshObject);
			RegisterRoutine(L, "IDE_FirstSelectedObject",
				luax_IDE_FirstSelectedObject);
			RegisterRoutine(L, "IDE_NextSelectedObject",
				luax_IDE_NextSelectedObject);
			RegisterRoutine(L, "IDE_GetObjectSource", luax_IDE_GetObjectSource);
			RegisterRoutine(L, "IDE_GetWindowCount", luax_IDE_GetWindowCount);
			RegisterRoutine(L, "IDE_SelectWindow", luax_IDE_SelectWindow);
			RegisterRoutine(L, "IDE_ActivateWindow", luax_IDE_ActivateWindow);
			RegisterRoutine(L, "IDE_WindowIsModified",
				luax_IDE_WindowIsModified);
			RegisterRoutine(L, "IDE_WindowIsRunning", luax_IDE_WindowIsRunning);
			RegisterRoutine(L, "IDE_SplashCreate", luax_IDE_SplashCreate);
			RegisterRoutine(L, "IDE_SplashHide", luax_IDE_SplashHide);
			RegisterRoutine(L, "IDE_SplashWrite", luax_IDE_SplashWrite);
			RegisterRoutine(L, "IDE_SplashWriteLn", luax_IDE_SplashWriteLn);
			RegisterRoutine(L, "IDE_SplashProgress", luax_IDE_SplashProgress);
			RegisterRoutine(L, "IDE_TemplatePath", luax_IDE_TemplatePath);
			RegisterRoutine(L, "IDE_ExecuteTemplate", luax_IDE_ExecuteTemplate);
			RegisterRoutine(L, "IDE_GetConnectAs", luax_IDE_GetConnectAs);
			RegisterRoutine(L, "IDE_SetConnectionAs", luax_IDE_SetConnectionAs);
			RegisterRoutine(L, "IDE_GetFileOpenMenu", luax_IDE_GetFileOpenMenu);
			RegisterRoutine(L, "IDE_CanSaveWindow", luax_IDE_CanSaveWindow);
			RegisterRoutine(L, "IDE_OpenFileExternal",
				luax_IDE_OpenFileExternal);
			RegisterRoutine(L, "IDE_GetFileTypes", luax_IDE_GetFileTypes);
			RegisterRoutine(L, "IDE_GetDefaultExtension",
				luax_IDE_GetDefaultExtension);
			RegisterRoutine(L, "IDE_GetFiledata", luax_IDE_GetFiledata);
			RegisterRoutine(L, "IDE_FileSaved", luax_IDE_FileSaved);
			RegisterRoutine(L, "IDE_ShowHTML", luax_IDE_ShowHTML);
			RegisterRoutine(L, "IDE_RefreshHTML", luax_IDE_RefreshHTML);
			RegisterRoutine(L, "IDE_GetProcEditExtension",
				luax_IDE_GetProcEditExtension);
			RegisterRoutine(L, "IDE_GetWindowObject", luax_IDE_GetWindowObject);
			RegisterRoutine(L, "IDE_FirstSelectedFile",
				luax_IDE_FirstSelectedFile);
			RegisterRoutine(L, "IDE_NextSelectedFile",
				luax_IDE_NextSelectedFile);
			RegisterRoutine(L, "IDE_RefreshFileBrowser",
				luax_IDE_RefreshFileBrowser);
			RegisterRoutine(L, "IDE_KeyPress", luax_IDE_KeyPress);
			RegisterRoutine(L, "IDE_GetMenuItem", luax_IDE_GetMenuItem);
			RegisterRoutine(L, "IDE_SelectMenu", luax_IDE_SelectMenu);
			RegisterRoutine(L, "IDE_TranslationFile", luax_IDE_TranslationFile);
			RegisterRoutine(L, "IDE_TranslationLanguage",
				luax_IDE_TranslationLanguage);
			RegisterRoutine(L, "IDE_GetTranslatedMenuLayout",
				luax_IDE_GetTranslatedMenuLayout);
			RegisterRoutine(L, "IDE_MainFont", luax_IDE_MainFont);
			RegisterRoutine(L, "IDE_TranslateItems", luax_IDE_TranslateItems);
			RegisterRoutine(L, "IDE_TranslateString", luax_IDE_TranslateString);
			RegisterRoutine(L, "IDE_SaveRecoveryFiles",
				luax_IDE_SaveRecoveryFiles);
			RegisterRoutine(L, "IDE_GetCursorX", luax_IDE_GetCursorX);
			RegisterRoutine(L, "IDE_GetCursorY", luax_IDE_GetCursorY);
			RegisterRoutine(L, "IDE_SetCursor", luax_IDE_SetCursor);
			RegisterRoutine(L, "IDE_SetBookmark", luax_IDE_SetBookmark);
			RegisterRoutine(L, "IDE_ClearBookmark", luax_IDE_ClearBookmark);
			RegisterRoutine(L, "IDE_GotoBookmark", luax_IDE_GotoBookmark);
			RegisterRoutine(L, "IDE_GetBookmark", luax_IDE_GetBookmark);
			RegisterRoutine(L, "IDE_TabInfo", luax_IDE_TabInfo);
			RegisterRoutine(L, "IDE_TabIndex", luax_IDE_TabIndex);
			RegisterRoutine(L, "IDE_CreateToolButton",
				luax_IDE_CreateToolButton);
			RegisterRoutine(L, "IDE_WindowHasEditor", luax_IDE_WindowHasEditor);
			RegisterRoutine(L, "IDE_BeautifierOptions",
				luax_IDE_BeautifierOptions);
			RegisterRoutine(L, "IDE_BeautifyWindow", luax_IDE_BeautifyWindow);
			RegisterRoutine(L, "IDE_BeautifyText", luax_IDE_BeautifyText);
			RegisterRoutine(L, "IDE_ObjectAction", luax_IDE_ObjectAction);
			RegisterRoutine(L, "IDE_ShowDialog", luax_IDE_ShowDialog);
			RegisterRoutine(L, "IDE_DebugLog", luax_IDE_DebugLog);
			RegisterRoutine(L, "IDE_GetParamString", luax_IDE_GetParamString);
			RegisterRoutine(L, "IDE_GetParamBool", luax_IDE_GetParamBool);
			RegisterRoutine(L, "IDE_GetBrowserFilter",
				luax_IDE_GetBrowserFilter);
			RegisterRoutine(L, "IDE_CommandFeedback", luax_IDE_CommandFeedback);
			RegisterRoutine(L, "IDE_ResultGridRowCount",
				luax_IDE_ResultGridRowCount);
			RegisterRoutine(L, "IDE_ResultGridColCount",
				luax_IDE_ResultGridColCount);
			RegisterRoutine(L, "IDE_ResultGridCell", luax_IDE_ResultGridCell);
			RegisterRoutine(L, "IDE_Authorized", luax_IDE_Authorized);
			RegisterRoutine(L, "IDE_WindowAllowed", luax_IDE_WindowAllowed);
			RegisterRoutine(L, "IDE_Authorization", luax_IDE_Authorization);
			RegisterRoutine(L, "IDE_AuthorizationItems",
				luax_IDE_AuthorizationItems);
			RegisterRoutine(L, "IDE_AddAuthorizationItem",
				luax_IDE_AddAuthorizationItem);
			RegisterRoutine(L, "IDE_GetPersonalPrefSets",
				luax_IDE_GetPersonalPrefSets);
			RegisterRoutine(L, "IDE_GetDefaultPrefSets",
				luax_IDE_GetDefaultPrefSets);
			RegisterRoutine(L, "IDE_GetPrefAsString", luax_IDE_GetPrefAsString);
			RegisterRoutine(L, "IDE_GetPrefAsInteger",
				luax_IDE_GetPrefAsInteger);
			RegisterRoutine(L, "IDE_GetPrefAsBool", luax_IDE_GetPrefAsBool);
			RegisterRoutine(L, "IDE_SetPrefAsString", luax_IDE_SetPrefAsString);
			RegisterRoutine(L, "IDE_SetPrefAsInteger",
				luax_IDE_SetPrefAsInteger);
			RegisterRoutine(L, "IDE_SetPrefAsBool", luax_IDE_SetPrefAsBool);
			RegisterRoutine(L, "IDE_GetGeneralPref", luax_IDE_GetGeneralPref);
			RegisterRoutine(L, "IDE_PlugInSetting", luax_IDE_PlugInSetting);
			RegisterRoutine(L, "IDE_GetProcOverloadCount",
				luax_IDE_GetProcOverloadCount);
			RegisterRoutine(L, "IDE_SelectProcOverloading",
				luax_IDE_SelectProcOverloading);
			RegisterRoutine(L, "IDE_GetSessionValue", luax_IDE_GetSessionValue);
			RegisterRoutine(L, "IDE_CheckDBVersion", luax_IDE_CheckDBVersion);

			/* Register c function end */
		}
		else {
			if (L) {
				lua_close(L);
				L = NULL;
			}
		}
	}
	return L; // Initialization successed
}

用来转嫁Lua对C调用和C调用Lua的全部函数代码。

// Part 1,System functions & IDE functions use by Lua
int luax_SYS_Version(lua_State *l) {
	int retValue;
	retValue = SYS_Version();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_SYS_Registry(lua_State *l) {
	char* retValue;
	retValue = SYS_Registry();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SYS_RootDir(lua_State *l) {
	char* retValue;
	retValue = SYS_RootDir();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SYS_OracleHome(lua_State *l) {
	char* retValue;
	retValue = SYS_OracleHome();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SYS_OCIDLL(lua_State *l) {
	char* retValue;
	retValue = SYS_OCIDLL();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SYS_OCI8Mode(lua_State *l) {
	BOOL* retValue;
	retValue = SYS_OCI8Mode();
	// lua_pushinteger(l,retValue);
	lua_pushinteger(l, (int)retValue);
	return 1;
}

int luax_SYS_XPStyle(lua_State *l) {
	BOOL* retValue;
	retValue = SYS_XPStyle();
	// lua_pushinteger(l,retValue);
	lua_pushinteger(l, (int)retValue);
	return 1;
}

int luax_SYS_TNSNAMES(lua_State *l) {
	char* retValue;
	char* Param;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Param = (char*)lua_tostring(l, 1);
	retValue = SYS_TNSNAMES(Param);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SYS_DelphiVersion(lua_State *l) {
	int retValue;
	retValue = SYS_DelphiVersion();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_MenuState(lua_State *l) {
	int ID;
	int Index;
	BOOL Enabled;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 2);
	if (!lua_isboolean(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Enabled = (BOOL)lua_toboolean(l, 3);
	IDE_MenuState(ID, Index, Enabled);
	return 0;
}

int luax_IDE_Connected(lua_State *l) {
	BOOL retValue;
	retValue = IDE_Connected();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetConnectionInfo(lua_State *l) {
	// char** Username;
	// char** Password;
	// char** Database;
	// if (!lua_isnumber(l, 1)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// Username = (char**)lua_topointer(l, 1);
	// if (!lua_isnumber(l, 2)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// Password = (char**)lua_topointer(l, 2);
	// if (!lua_isnumber(l, 3)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// Database = (char**)lua_topointer(l, 3);
	// IDE_GetConnectionInfo(Username, Password, Database);
	// return 0;
	char* Username;
	char* Password;
	char* Database;
	IDE_GetConnectionInfo(&Username, &Password, &Database);
	lua_pushstring(l, Username);
	lua_pushstring(l, Password);
	lua_pushstring(l, Database);
	return 3;
}

int luax_IDE_GetBrowserInfo(lua_State *l) {
	// char** ObjectType;
	// char** ObjectOwner;
	// char** ObjectName;
	// if (!lua_isnumber(l, 1)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectType = (char**)lua_topointer(l, 1);
	// if (!lua_isnumber(l, 2)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectOwner = (char**)lua_topointer(l, 2);
	// if (!lua_isnumber(l, 3)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectName = (char**)lua_topointer(l, 3);
	// IDE_GetBrowserInfo(ObjectType, ObjectOwner, ObjectName);
	// return 0;
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	IDE_GetBrowserInfo(&ObjectType, &ObjectOwner, &ObjectName);
	lua_pushstring(l, ObjectType);
	lua_pushstring(l, ObjectOwner);
	lua_pushstring(l, ObjectName);
	return 3;
}

int luax_IDE_GetWindowType(lua_State *l) {
	int retValue;
	retValue = IDE_GetWindowType();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_GetAppHandle(lua_State *l) {
	int retValue;
	retValue = IDE_GetAppHandle();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_GetWindowHandle(lua_State *l) {
	int retValue;
	retValue = IDE_GetWindowHandle();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_GetClientHandle(lua_State *l) {
	int retValue;
	retValue = IDE_GetClientHandle();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_GetChildHandle(lua_State *l) {
	int retValue;
	retValue = IDE_GetChildHandle();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_Refresh(lua_State *l) {
	IDE_Refresh();
	return 0;
}

int luax_IDE_CreateWindow(lua_State *l) {
	int WindowType;
	char* Text;
	BOOL Execute;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	WindowType = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Text = (char*)lua_tostring(l, 2);
	if (!lua_isboolean(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Execute = (BOOL)lua_toboolean(l, 3);
	IDE_CreateWindow(WindowType, Text, Execute);
	return 0;
}

int luax_IDE_OpenFile(lua_State *l) {
	BOOL retValue;
	int WindowType;
	char* Filename;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	WindowType = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Filename = (char*)lua_tostring(l, 2);
	retValue = IDE_OpenFile(WindowType, Filename);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_SaveFile(lua_State *l) {
	BOOL retValue;
	retValue = IDE_SaveFile();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_Filename(lua_State *l) {
	char* retValue;
	retValue = IDE_Filename();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_CloseFile(lua_State *l) {
	IDE_CloseFile();
	return 0;
}

int luax_IDE_SetReadOnly(lua_State *l) {
	BOOL ReadOnly;
	if (!lua_isboolean(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ReadOnly = (BOOL)lua_toboolean(l, 1);
	IDE_SetReadOnly(ReadOnly);
	return 0;
}

int luax_IDE_GetReadOnly(lua_State *l) {
	BOOL retValue;
	retValue = IDE_GetReadOnly();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_ExecuteSQLReport(lua_State *l) {
	BOOL retValue;
	char* SQL;
	char* Title;
	BOOL Updateable;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	SQL = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Title = (char*)lua_tostring(l, 2);
	if (!lua_isboolean(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Updateable = (BOOL)lua_toboolean(l, 3);
	retValue = IDE_ExecuteSQLReport(SQL, Title, Updateable);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_ReloadFile(lua_State *l) {
	BOOL retValue;
	retValue = IDE_ReloadFile();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_SetFilename(lua_State *l) {
	char* Filename;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Filename = (char*)lua_tostring(l, 1);
	IDE_SetFilename(Filename);
	return 0;
}

int luax_IDE_GetText(lua_State *l) {
	char* retValue;
	retValue = IDE_GetText();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetSelectedText(lua_State *l) {
	char* retValue;
	retValue = IDE_GetSelectedText();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetCursorWord(lua_State *l) {
	char* retValue;
	retValue = IDE_GetCursorWord();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetEditorHandle(lua_State *l) {
	int retValue;
	retValue = IDE_GetEditorHandle();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_SetText(lua_State *l) {
	BOOL retValue;
	char* Text;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Text = (char*)lua_tostring(l, 1);
	retValue = IDE_SetText(Text);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_SetStatusMessage(lua_State *l) {
	BOOL retValue;
	char* Text;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Text = (char*)lua_tostring(l, 1);
	retValue = IDE_SetStatusMessage(Text);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_SetErrorPosition(lua_State *l) {
	BOOL retValue;
	int Line;
	int Col;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Line = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Col = (int)lua_tointeger(l, 2);
	retValue = IDE_SetErrorPosition(Line, Col);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_ClearErrorPositions(lua_State *l) {
	IDE_ClearErrorPositions();
	return 0;
}

int luax_IDE_GetCursorWordPosition(lua_State *l) {
	int retValue;
	retValue = IDE_GetCursorWordPosition();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_Perform(lua_State *l) {
	BOOL retValue;
	int Param;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Param = (int)lua_tointeger(l, 1);
	retValue = IDE_Perform(Param);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_SQL_Execute(lua_State *l) {
	int retValue;
	char* SQL;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	SQL = (char*)lua_tostring(l, 1);
	retValue = SQL_Execute(SQL);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_SQL_FieldCount(lua_State *l) {
	int retValue;
	retValue = SQL_FieldCount();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_SQL_Eof(lua_State *l) {
	BOOL retValue;
	retValue = SQL_Eof();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_SQL_Next(lua_State *l) {
	int retValue;
	retValue = SQL_Next();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_SQL_Field(lua_State *l) {
	char* retValue;
	int Field;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Field = (int)lua_tointeger(l, 1);
	retValue = SQL_Field(Field);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SQL_FieldName(lua_State *l) {
	char* retValue;
	int Field;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Field = (int)lua_tointeger(l, 1);
	retValue = SQL_FieldName(Field);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SQL_FieldIndex(lua_State *l) {
	int retValue;
	char* Name;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 1);
	retValue = SQL_FieldIndex(Name);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_SQL_FieldType(lua_State *l) {
	int retValue;
	int Field;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Field = (int)lua_tointeger(l, 1);
	retValue = SQL_FieldType(Field);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_SQL_ErrorMessage(lua_State *l) {
	char* retValue;
	retValue = SQL_ErrorMessage();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SQL_UsePlugInSession(lua_State *l) {
	BOOL retValue;
	int PlugInID;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	retValue = SQL_UsePlugInSession(PlugInID);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_SQL_UseDefaultSession(lua_State *l) {
	int PlugInID;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	SQL_UseDefaultSession(PlugInID);
	return 0;
}

int luax_SQL_CheckConnection(lua_State *l) {
	BOOL retValue;
	retValue = SQL_CheckConnection();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_SQL_GetDBMSGetOutput(lua_State *l) {
	char* retValue;
	retValue = SQL_GetDBMSGetOutput();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SQL_SetVariable(lua_State *l) {
	char* Name;
	char* Value;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Value = (char*)lua_tostring(l, 2);
	SQL_SetVariable(Name, Value);
	return 0;
}

int luax_SQL_GetVariable(lua_State *l) {
	char* retValue;
	char* Name;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 1);
	retValue = SQL_GetVariable(Name);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_SQL_ClearVariables(lua_State *l) {
	SQL_ClearVariables();
	return 0;
}

int luax_IDE_GetCustomKeywords(lua_State *l) {
	char* retValue;
	retValue = IDE_GetCustomKeywords();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_SetCustomKeywords(lua_State *l) {
	char* Keywords;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Keywords = (char*)lua_tostring(l, 1);
	IDE_SetCustomKeywords(Keywords);
	return 0;
}

int luax_IDE_SetKeywords(lua_State *l) {
	int ID;
	int Style;
	char* Keywords;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Style = (int)lua_tointeger(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Keywords = (char*)lua_tostring(l, 3);
	IDE_SetKeywords(ID, Style, Keywords);
	return 0;
}

int luax_IDE_ActivateKeywords(lua_State *l) {
	IDE_ActivateKeywords();
	return 0;
}

int luax_IDE_RefreshMenus(lua_State *l) {
	int ID;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (int)lua_tointeger(l, 1);
	IDE_RefreshMenus(ID);
	return 0;
}

int luax_IDE_SetMenuName(lua_State *l) {
	int ID;
	int Index;
	char* Name;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	IDE_SetMenuName(ID, Index, Name);
	return 0;
}

int luax_IDE_SetMenuCheck(lua_State *l) {
	int ID;
	int Index;
	BOOL Enabled;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 2);
	if (!lua_isboolean(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Enabled = (BOOL)lua_toboolean(l, 3);
	IDE_SetMenuCheck(ID, Index, Enabled);
	return 0;
}

int luax_IDE_SetMenuVisible(lua_State *l) {
	int ID;
	int Index;
	BOOL Enabled;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 2);
	if (!lua_isboolean(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Enabled = (BOOL)lua_toboolean(l, 3);
	IDE_SetMenuVisible(ID, Index, Enabled);
	return 0;
}

int luax_IDE_GetMenulayout(lua_State *l) {
	char* retValue;
	retValue = IDE_GetMenulayout();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_CreatePopupItem(lua_State *l) {
	void* retValue;
	int ID;
	int Index;
	char* Name;
	char* ObjectType;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectType = (char*)lua_tostring(l, 4);
	retValue = IDE_CreatePopupItem(ID, Index, Name, ObjectType);
	// lua_pushinteger(l,retValue);
	lua_pushinteger(l, (int)retValue);
	return 1;
}

int luax_IDE_SetConnection(lua_State *l) {
	BOOL retValue;
	char* Username;
	char* Password;
	char* Database;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Username = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Password = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Database = (char*)lua_tostring(l, 3);
	retValue = IDE_SetConnection(Username, Password, Database);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetObjectInfo(lua_State *l) {
	// int retValue;
	// char* AnObject;
	// char** ObjectType;
	// char** ObjectOwner;
	// char** ObjectName;
	// char** SubObject;
	// if (!lua_isstring(l, 1)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// AnObject = (char*)lua_tostring(l, 1);
	// if (!lua_isnumber(l, 2)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectType = (char**)lua_topointer(l, 2);
	// if (!lua_isnumber(l, 3)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectOwner = (char**)lua_topointer(l, 3);
	// if (!lua_isnumber(l, 4)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectName = (char**)lua_topointer(l, 4);
	// if (!lua_isnumber(l, 5)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// SubObject = (char**)lua_topointer(l, 5);
	// retValue = IDE_GetObjectInfo(AnObject, ObjectType, ObjectOwner, ObjectName,
	// SubObject);
	// lua_pushinteger(l, retValue);
	// return 1;
	int retValue;
	char *AnObject;
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	char* SubObject;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	AnObject = (char*)lua_tostring(l, 1);
	retValue = IDE_GetObjectInfo(AnObject, &ObjectType, &ObjectOwner,
		&ObjectName, &SubObject);
	lua_pushinteger(l, retValue);
	lua_pushstring(l, ObjectType);
	lua_pushstring(l, ObjectOwner);
	lua_pushstring(l, ObjectName);
	lua_pushstring(l, SubObject);
	return 5;
}

int luax_IDE_GetBrowserItems(lua_State *l) {
	char* retValue;
	char* Node;
	BOOL GetItems;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Node = (char*)lua_tostring(l, 1);
	if (!lua_isboolean(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	GetItems = (BOOL)lua_toboolean(l, 2);
	retValue = IDE_GetBrowserItems(Node, GetItems);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_RefreshBrowser(lua_State *l) {
	char* Node;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Node = (char*)lua_tostring(l, 1);
	IDE_RefreshBrowser(Node);
	return 0;
}

int luax_IDE_GetPopupObject(lua_State *l) {
	// int retValue;
	// char** ObjectType;
	// char** ObjectOwner;
	// char** ObjectName;
	// char** SubObject;
	// if (!lua_isnumber(l, 1)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectType = (char**)lua_topointer(l, 1);
	// if (!lua_isnumber(l, 2)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectOwner = (char**)lua_topointer(l, 2);
	// if (!lua_isnumber(l, 3)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectName = (char**)lua_topointer(l, 3);
	// if (!lua_isnumber(l, 4)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// SubObject = (char**)lua_topointer(l, 4);
	// retValue = IDE_GetPopupObject(ObjectType, ObjectOwner, ObjectName,
	// SubObject);
	// lua_pushinteger(l, retValue);
	// return 1;
	int retValue;
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	char* SubObject;
	retValue = IDE_GetPopupObject(&ObjectType, &ObjectOwner, &ObjectName,
		&SubObject);
	lua_pushstring(l, ObjectType);
	lua_pushstring(l, ObjectOwner);
	lua_pushstring(l, ObjectName);
	lua_pushstring(l, SubObject);
	lua_pushinteger(l, retValue);
	return 5;
}

int luax_IDE_GetPopupBrowserRoot(lua_State *l) {
	char* retValue;
	retValue = IDE_GetPopupBrowserRoot();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_RefreshObject(lua_State *l) {
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	int Action;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectType = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectOwner = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectName = (char*)lua_tostring(l, 3);
	if (!lua_isnumber(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Action = (int)lua_tointeger(l, 4);
	IDE_RefreshObject(ObjectType, ObjectOwner, ObjectName, Action);
	return 0;
}

int luax_IDE_FirstSelectedObject(lua_State *l) {
	BOOL retValue;
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	char* SubObject;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectType = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectOwner = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectName = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	SubObject = (char*)lua_tostring(l, 4);
	retValue = IDE_FirstSelectedObject(ObjectType, ObjectOwner, ObjectName,
		SubObject);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_NextSelectedObject(lua_State *l) {
	BOOL retValue;
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	char* SubObject;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectType = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectOwner = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectName = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	SubObject = (char*)lua_tostring(l, 4);
	retValue = IDE_NextSelectedObject(ObjectType, ObjectOwner, ObjectName,
		SubObject);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetObjectSource(lua_State *l) {
	char* retValue;
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectType = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectOwner = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectName = (char*)lua_tostring(l, 3);
	retValue = IDE_GetObjectSource(ObjectType, ObjectOwner, ObjectName);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetWindowCount(lua_State *l) {
	int retValue;
	retValue = IDE_GetWindowCount();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_SelectWindow(lua_State *l) {
	BOOL retValue;
	int Index;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	retValue = IDE_SelectWindow(Index);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_ActivateWindow(lua_State *l) {
	BOOL retValue;
	int Index;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	retValue = IDE_ActivateWindow(Index);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_WindowIsModified(lua_State *l) {
	BOOL retValue;
	retValue = IDE_WindowIsModified();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_WindowIsRunning(lua_State *l) {
	BOOL retValue;
	retValue = IDE_WindowIsRunning();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_SplashCreate(lua_State *l) {
	int ProgressMax;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ProgressMax = (int)lua_tointeger(l, 1);
	IDE_SplashCreate(ProgressMax);
	return 0;
}

int luax_IDE_SplashHide(lua_State *l) {
	IDE_SplashHide();
	return 0;
}

int luax_IDE_SplashWrite(lua_State *l) {
	char* s;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	s = (char*)lua_tostring(l, 1);
	IDE_SplashWrite(s);
	return 0;
}

int luax_IDE_SplashWriteLn(lua_State *l) {
	char* s;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	s = (char*)lua_tostring(l, 1);
	IDE_SplashWriteLn(s);
	return 0;
}

int luax_IDE_SplashProgress(lua_State *l) {
	int Progress;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Progress = (int)lua_tointeger(l, 1);
	IDE_SplashProgress(Progress);
	return 0;
}

int luax_IDE_TemplatePath(lua_State *l) {
	char* retValue;
	retValue = IDE_TemplatePath();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_ExecuteTemplate(lua_State *l) {
	BOOL retValue;
	char* Template;
	BOOL NewWindow;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Template = (char*)lua_tostring(l, 1);
	if (!lua_isboolean(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	NewWindow = (BOOL)lua_toboolean(l, 2);
	retValue = IDE_ExecuteTemplate(Template, NewWindow);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetConnectAs(lua_State *l) {
	char *retValue;
	retValue = IDE_GetConnectAs();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_SetConnectionAs(lua_State *l) {
	BOOL retValue;
	char* Username;
	char* Password;
	char* Database;
	char* ConnectAs;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Username = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Password = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Database = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ConnectAs = (char*)lua_tostring(l, 4);
	retValue = IDE_SetConnectionAs(Username, Password, Database, ConnectAs);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetFileOpenMenu(lua_State *l) {
	// char* retValue;
	// int MenuIndex;
	// int* WindowType;
	// if (!lua_isnumber(l, 1)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// MenuIndex = (int)lua_tointeger(l, 1);
	// if (!lua_isnumber(l, 2)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// WindowType = (int*)lua_topointer(l, 2);
	// retValue = IDE_GetFileOpenMenu(MenuIndex, WindowType);
	// lua_pushstring(l, retValue);
	// return 1;
	char* retValue;
	int MenuIndex;
	int WindowType;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	MenuIndex = (int)lua_tointeger(l, 1);
	retValue = IDE_GetFileOpenMenu(MenuIndex, &WindowType);
	lua_pushstring(l, retValue);
	lua_pushinteger(l, WindowType);
	return 2;
}

int luax_IDE_CanSaveWindow(lua_State *l) {
	BOOL retValue;
	retValue = IDE_CanSaveWindow();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_OpenFileExternal(lua_State *l) {
	int WindowType;
	char* Data;
	char* FileSystem;
	char* Tag;
	char* Filename;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	WindowType = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Data = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	FileSystem = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Tag = (char*)lua_tostring(l, 4);
	if (!lua_isstring(l, 5)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Filename = (char*)lua_tostring(l, 5);
	IDE_OpenFileExternal(WindowType, Data, FileSystem, Tag, Filename);
	return 0;
}

int luax_IDE_GetFileTypes(lua_State *l) {
	char* retValue;
	int WindowType;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	WindowType = (int)lua_tointeger(l, 1);
	retValue = IDE_GetFileTypes(WindowType);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetDefaultExtension(lua_State *l) {
	char* retValue;
	int WindowType;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	WindowType = (int)lua_tointeger(l, 1);
	retValue = IDE_GetDefaultExtension(WindowType);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetFiledata(lua_State *l) {
	char* retValue;
	retValue = IDE_GetFiledata();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_FileSaved(lua_State *l) {
	char* FileSystem;
	char* FileTag;
	char* Filename;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	FileSystem = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	FileTag = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Filename = (char*)lua_tostring(l, 3);
	IDE_FileSaved(FileSystem, FileTag, Filename);
	return 0;
}

int luax_IDE_ShowHTML(lua_State *l) {
	BOOL retValue;
	char* Url;
	char* Hash;
	char* Title;
	char* ID;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Url = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Hash = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Title = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (char*)lua_tostring(l, 4);
	retValue = IDE_ShowHTML(Url, Hash, Title, ID);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_RefreshHTML(lua_State *l) {
	BOOL retValue;
	char* Url;
	char* ID;
	BOOL BringToFront;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Url = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (char*)lua_tostring(l, 2);
	if (!lua_isboolean(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	BringToFront = (BOOL)lua_toboolean(l, 3);
	retValue = IDE_RefreshHTML(Url, ID, BringToFront);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetProcEditExtension(lua_State *l) {
	char* retValue;
	char* oType;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	oType = (char*)lua_tostring(l, 1);
	retValue = IDE_GetProcEditExtension(oType);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetWindowObject(lua_State *l) {
	// BOOL retValue;
	// char** ObjectType;
	// char** ObjectOwner;
	// char** ObjectName;
	// char** SubObject;
	// if (!lua_isnumber(l, 1)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectType = (char**)lua_topointer(l, 1);
	// if (!lua_isnumber(l, 2)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectOwner = (char**)lua_topointer(l, 2);
	// if (!lua_isnumber(l, 3)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// ObjectName = (char**)lua_topointer(l, 3);
	// if (!lua_isnumber(l, 4)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// SubObject = (char**)lua_topointer(l, 4);
	// retValue = IDE_GetWindowObject(ObjectType, ObjectOwner, ObjectName,
	// SubObject);
	// lua_pushboolean(l, retValue);
	// return 1;
	BOOL retValue;
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	char* SubObject;
	retValue = IDE_GetWindowObject(&ObjectType, &ObjectOwner, &ObjectName,
		&SubObject);
	lua_pushboolean(l, retValue);
	lua_pushstring(l, ObjectType);
	lua_pushstring(l, ObjectOwner);
	lua_pushstring(l, ObjectName);
	lua_pushstring(l, SubObject);
	return 5;
}

int luax_IDE_FirstSelectedFile(lua_State *l) {
	char* retValue;
	BOOL Files;
	BOOL Directories;
	if (!lua_isboolean(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Files = (BOOL)lua_toboolean(l, 1);
	if (!lua_isboolean(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Directories = (BOOL)lua_toboolean(l, 2);
	retValue = IDE_FirstSelectedFile(Files, Directories);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_NextSelectedFile(lua_State *l) {
	char* retValue;
	retValue = IDE_NextSelectedFile();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_RefreshFileBrowser(lua_State *l) {
	IDE_RefreshFileBrowser();
	return 0;
}

int luax_IDE_KeyPress(lua_State *l) {
	int Key;
	int Shift;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Key = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Shift = (int)lua_tointeger(l, 2);
	IDE_KeyPress(Key, Shift);
	return 0;
}

int luax_IDE_GetMenuItem(lua_State *l) {
	int retValue;
	char* MenuName;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	MenuName = (char*)lua_tostring(l, 1);
	retValue = IDE_GetMenuItem(MenuName);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_SelectMenu(lua_State *l) {
	BOOL retValue;
	int MenuItem;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	MenuItem = (int)lua_tointeger(l, 1);
	retValue = IDE_SelectMenu(MenuItem);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_TranslationFile(lua_State *l) {
	char* retValue;
	retValue = IDE_TranslationFile();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_TranslationLanguage(lua_State *l) {
	char* retValue;
	retValue = IDE_TranslationLanguage();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetTranslatedMenuLayout(lua_State *l) {
	char* retValue;
	retValue = IDE_GetTranslatedMenuLayout();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_MainFont(lua_State *l) {
	char* retValue;
	retValue = IDE_MainFont();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_TranslateItems(lua_State *l) {
	char* retValue;
	char* Group;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Group = (char*)lua_tostring(l, 1);
	retValue = IDE_TranslateItems(Group);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_TranslateString(lua_State *l) {
	char* retValue;
	char* ID;
	char* Default;
	char Param1;
	char Param2;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Default = (char*)lua_tostring(l, 2);
	if (!lua_isnumber(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Param1 = (char)lua_tointeger(l, 3);
	if (!lua_isnumber(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Param2 = (char)lua_tointeger(l, 4);
	retValue = IDE_TranslateString(ID, Default, Param1, Param2);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_SaveRecoveryFiles(lua_State *l) {
	BOOL retValue;
	retValue = IDE_SaveRecoveryFiles();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetCursorX(lua_State *l) {
	int retValue;
	retValue = IDE_GetCursorX();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_GetCursorY(lua_State *l) {
	int retValue;
	retValue = IDE_GetCursorY();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_SetCursor(lua_State *l) {
	int X;
	int Y;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	X = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Y = (int)lua_tointeger(l, 2);
	IDE_SetCursor(X, Y);
	return 0;
}

int luax_IDE_SetBookmark(lua_State *l) {
	int retValue;
	int Index;
	int X;
	int Y;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	X = (int)lua_tointeger(l, 2);
	if (!lua_isnumber(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Y = (int)lua_tointeger(l, 3);
	retValue = IDE_SetBookmark(Index, X, Y);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_ClearBookmark(lua_State *l) {
	int Index;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	IDE_ClearBookmark(Index);
	return 0;
}

int luax_IDE_GotoBookmark(lua_State *l) {
	int Index;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	IDE_GotoBookmark(Index);
	return 0;
}

int luax_IDE_GetBookmark(lua_State *l) {
	BOOL retValue;
	int Index;
	int X;
	int Y;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	X = (int)lua_tointeger(l, 2);
	if (!lua_isnumber(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Y = (int)lua_tointeger(l, 3);
	retValue = IDE_GetBookmark(Index, X, Y);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_TabInfo(lua_State *l) {
	char* retValue;
	int Index;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	retValue = IDE_TabInfo(Index);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_TabIndex(lua_State *l) {
	int retValue;
	int Index;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	retValue = IDE_TabIndex(Index);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_CreateToolButton(lua_State *l) {
	int ID;
	int Index;
	char* Name;
	char* BitmapFile;
	int BitmapHandle;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ID = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	BitmapFile = (char*)lua_tostring(l, 4);
	if (!lua_isnumber(l, 5)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	BitmapHandle = (int)lua_tointeger(l, 5);
	IDE_CreateToolButton(ID, Index, Name, BitmapFile, BitmapHandle);
	return 0;
}

int luax_IDE_WindowHasEditor(lua_State *l) {
	BOOL retValue;
	BOOL CodeEditor;
	if (!lua_isboolean(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	CodeEditor = (BOOL)lua_toboolean(l, 1);
	retValue = IDE_WindowHasEditor(CodeEditor);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_BeautifierOptions(lua_State *l) {
	int retValue;
	retValue = IDE_BeautifierOptions();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_BeautifyWindow(lua_State *l) {
	BOOL retValue;
	retValue = IDE_BeautifyWindow();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_BeautifyText(lua_State *l) {
	char* retValue;
	char* S;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	S = (char*)lua_tostring(l, 1);
	retValue = IDE_BeautifyText(S);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_ObjectAction(lua_State *l) {
	BOOL retValue;
	char* Action;
	char* ObjectType;
	char* ObjectOwner;
	char* ObjectName;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Action = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectType = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectOwner = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ObjectName = (char*)lua_tostring(l, 4);
	retValue = IDE_ObjectAction(Action, ObjectType, ObjectOwner, ObjectName);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_ShowDialog(lua_State *l) {
	BOOL retValue;
	char* Dialog;
	char* Param;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Dialog = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Param = (char*)lua_tostring(l, 2);
	retValue = IDE_ShowDialog(Dialog, Param);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_DebugLog(lua_State *l) {
	char* Msg;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Msg = (char*)lua_tostring(l, 1);
	IDE_DebugLog(Msg);
	return 0;
}

int luax_IDE_GetParamString(lua_State *l) {
	char* retValue;
	char* Name;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 1);
	retValue = IDE_GetParamString(Name);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetParamBool(lua_State *l) {
	BOOL retValue;
	char* Name;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 1);
	retValue = IDE_GetParamBool(Name);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetBrowserFilter(lua_State *l) {
	// int Index;
	// char** Name;
	// char** WhereClause;
	// char** OrderByClause;
	// char** User;
	// BOOL Active;
	// if (!lua_isnumber(l, 1)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// Index = (int)lua_tointeger(l, 1);
	// if (!lua_isnumber(l, 2)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// Name = (char**)lua_topointer(l, 2);
	// if (!lua_isnumber(l, 3)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// WhereClause = (char**)lua_topointer(l, 3);
	// if (!lua_isnumber(l, 4)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// OrderByClause = (char**)lua_topointer(l, 4);
	// if (!lua_isnumber(l, 5)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// User = (char**)lua_topointer(l, 5);
	// if (!lua_isboolean(l, 6)) {
	// lua_pushstring(l, "incorrect argument");
	// lua_error(l);
	// }
	// Active = (BOOL)lua_toboolean(l, 6);
	// IDE_GetBrowserFilter(Index, Name, WhereClause, OrderByClause, User, Active);
	// return 0;
	int Index;
	char* Name;
	char* WhereClause;
	char* OrderByClause;
	char* User;
	BOOL Active;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Index = (int)lua_tointeger(l, 1);
	if (!lua_isboolean(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Active = (BOOL)lua_toboolean(l, 2);
	IDE_GetBrowserFilter(Index, &Name, &WhereClause, &OrderByClause, &User,
		Active);
	lua_pushstring(l, Name);
	lua_pushstring(l, WhereClause);
	lua_pushstring(l, OrderByClause);
	lua_pushstring(l, User);
	return 4;
}

int luax_IDE_CommandFeedback(lua_State *l) {
	int FeedbackHandle;
	char* S;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	FeedbackHandle = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	S = (char*)lua_tostring(l, 2);
	IDE_CommandFeedback(FeedbackHandle, S);
	return 0;
}

int luax_IDE_ResultGridRowCount(lua_State *l) {
	int retValue;
	retValue = IDE_ResultGridRowCount();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_ResultGridColCount(lua_State *l) {
	int retValue;
	retValue = IDE_ResultGridColCount();
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_ResultGridCell(lua_State *l) {
	char* retValue;
	int Col;
	int Row;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Col = (int)lua_tointeger(l, 1);
	if (!lua_isnumber(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Row = (int)lua_tointeger(l, 2);
	retValue = IDE_ResultGridCell(Col, Row);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_Authorized(lua_State *l) {
	BOOL retValue;
	char* Category;
	char* Name;
	char* SubName;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Category = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	SubName = (char*)lua_tostring(l, 3);
	retValue = IDE_Authorized(Category, Name, SubName);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_WindowAllowed(lua_State *l) {
	BOOL retValue;
	int WindowType;
	BOOL ShowErrorMessage;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	WindowType = (int)lua_tointeger(l, 1);
	if (!lua_isboolean(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ShowErrorMessage = (BOOL)lua_toboolean(l, 2);
	retValue = IDE_WindowAllowed(WindowType, ShowErrorMessage);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_Authorization(lua_State *l) {
	BOOL retValue;
	retValue = IDE_Authorization();
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_AuthorizationItems(lua_State *l) {
	char* retValue;
	char* Category;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Category = (char*)lua_tostring(l, 1);
	retValue = IDE_AuthorizationItems(Category);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_AddAuthorizationItem(lua_State *l) {
	int PlugInID;
	char* Name;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 2);
	IDE_AddAuthorizationItem(PlugInID, Name);
	return 0;
}

int luax_IDE_GetPersonalPrefSets(lua_State *l) {
	char* retValue;
	retValue = IDE_GetPersonalPrefSets();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetDefaultPrefSets(lua_State *l) {
	char* retValue;
	retValue = IDE_GetDefaultPrefSets();
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetPrefAsString(lua_State *l) {
	char* retValue;
	int PlugInID;
	char* PrefSet;
	char* Name;
	char* Default;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PrefSet = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Default = (char*)lua_tostring(l, 4);
	retValue = IDE_GetPrefAsString(PlugInID, PrefSet, Name, Default);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_GetPrefAsInteger(lua_State *l) {
	int retValue;
	int PlugInID;
	char* PrefSet;
	char* Name;
	BOOL Default;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PrefSet = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	if (!lua_isboolean(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Default = (BOOL)lua_toboolean(l, 4);
	retValue = IDE_GetPrefAsInteger(PlugInID, PrefSet, Name, Default);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_GetPrefAsBool(lua_State *l) {
	BOOL retValue;
	int PlugInID;
	char* PrefSet;
	char* Name;
	BOOL Default;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PrefSet = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	if (!lua_isboolean(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Default = (BOOL)lua_toboolean(l, 4);
	retValue = IDE_GetPrefAsBool(PlugInID, PrefSet, Name, Default);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_SetPrefAsString(lua_State *l) {
	BOOL retValue;
	int PlugInID;
	char* PrefSet;
	char* Name;
	char* Value;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PrefSet = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	if (!lua_isstring(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Value = (char*)lua_tostring(l, 4);
	retValue = IDE_SetPrefAsString(PlugInID, PrefSet, Name, Value);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_SetPrefAsInteger(lua_State *l) {
	BOOL retValue;
	int PlugInID;
	char* PrefSet;
	char* Name;
	int Value;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PrefSet = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	if (!lua_isnumber(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Value = (int)lua_tointeger(l, 4);
	retValue = IDE_SetPrefAsInteger(PlugInID, PrefSet, Name, Value);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_SetPrefAsBool(lua_State *l) {
	BOOL retValue;
	int PlugInID;
	char* PrefSet;
	char* Name;
	BOOL Value;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PrefSet = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 3);
	if (!lua_isboolean(l, 4)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Value = (BOOL)lua_toboolean(l, 4);
	retValue = IDE_SetPrefAsBool(PlugInID, PrefSet, Name, Value);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetGeneralPref(lua_State *l) {
	char* retValue;
	char* Name;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 1);
	retValue = IDE_GetGeneralPref(Name);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_PlugInSetting(lua_State *l) {
	BOOL retValue;
	int PlugInID;
	char* Setting;
	char* Value;
	if (!lua_isnumber(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PlugInID = (int)lua_tointeger(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Setting = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Value = (char*)lua_tostring(l, 3);
	retValue = IDE_PlugInSetting(PlugInID, Setting, Value);
	lua_pushboolean(l, retValue);
	return 1;
}

int luax_IDE_GetProcOverloadCount(lua_State *l) {
	int retValue;
	char* Owner;
	char* PackageName;
	char* ProcedureName;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Owner = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PackageName = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ProcedureName = (char*)lua_tostring(l, 3);
	retValue = IDE_GetProcOverloadCount(Owner, PackageName, ProcedureName);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_SelectProcOverloading(lua_State *l) {
	int retValue;
	char* Owner;
	char* PackageName;
	char* ProcedureName;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Owner = (char*)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	PackageName = (char*)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	ProcedureName = (char*)lua_tostring(l, 3);
	retValue = IDE_SelectProcOverloading(Owner, PackageName, ProcedureName);
	lua_pushinteger(l, retValue);
	return 1;
}

int luax_IDE_GetSessionValue(lua_State *l) {
	char* retValue;
	char* Name;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Name = (char*)lua_tostring(l, 1);
	retValue = IDE_GetSessionValue(Name);
	lua_pushstring(l, retValue);
	return 1;
}

int luax_IDE_CheckDBVersion(lua_State *l) {
	BOOL retValue;
	char* Version;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	Version = (char*)lua_tostring(l, 1);
	retValue = IDE_CheckDBVersion(Version);
	lua_pushboolean(l, retValue);
	return 1;
}

此处为主程序主动发起的转嫁调用。

// Part 2,Call back function to call Lua script
char* IdentifyPlugIn(int ID) {
	char* retValue;
	FC_TRACE("IdentifyPlugIn");
	CHECK_LUA;
	/* Save the plugin ID in dynamic library */
	SavePluginID(ID);
	lua_getglobal(L, "IdentifyPlugIn");
	lua_pushinteger(L, ID);
	lua_pcall(L, 1, 1, 0);
	retValue = (char *)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

char* CreateMenuItem(int Index) {
	char* retValue;
	FC_TRACE("CreateMenuItem");
	CHECK_LUA;
	lua_getglobal(L, "CreateMenuItem");
	lua_pushinteger(L, Index);
	lua_pcall(L, 1, 1, 0);
	retValue = (char*)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

void OnMenuClick(int Index) {
	FC_TRACE("OnMenuClick");
	CHECK_LUA;
	lua_getglobal(L, "OnMenuClick");
	lua_pushinteger(L, Index);
	lua_pcall(L, 1, 0, 0);
}

void OnCreate() {
	FC_TRACE("OnCreate");
	CHECK_LUA;
	lua_getglobal(L, "OnCreate");
	lua_pcall(L, 0, 0, 0);
}

void OnActivate() {
	FC_TRACE("OnActivate");
	CHECK_LUA;
	lua_getglobal(L, "OnActivate");
	lua_pcall(L, 0, 0, 0);
}

void OnDeactivate() {
	FC_TRACE("OnDeactivate");
	CHECK_LUA;
	lua_getglobal(L, "OnDeactivate");
	lua_pcall(L, 0, 0, 0);
}

void OnDestroy() {
	FC_TRACE("OnDestroy");
	CHECK_LUA;
	lua_getglobal(L, "OnDestroy");
	lua_pcall(L, 0, 0, 0);
	/* Clear Lua support */
	CLEAR_LUA;
}

BOOL CanClose() {
	BOOL retValue;
	FC_TRACE("CanClose");
	CHECK_LUA;
	lua_getglobal(L, "CanClose");
	lua_pcall(L, 0, 1, 0);
	retValue = lua_toboolean(L, -1);
	lua_pop(L, 1);
	return retValue;
}

void AfterStart() {
	FC_TRACE("AfterStart");
	CHECK_LUA;
	lua_getglobal(L, "AfterStart");
	lua_pcall(L, 0, 0, 0);
}

void OnBrowserChange() {
	FC_TRACE("OnBrowserChange");
	CHECK_LUA;
	lua_getglobal(L, "OnBrowserChange");
	lua_pcall(L, 0, 0, 0);
}

void OnWindowChange() {
	CHECK_LUA;
	lua_getglobal(L, "OnWindowChange");
	lua_pcall(L, 0, 0, 0);
}

void OnWindowCreate(int WindowType) {
	FC_TRACE("OnWindowCreate");
	CHECK_LUA;
	lua_getglobal(L, "OnWindowCreate");
	lua_pushinteger(L, WindowType);
	lua_pcall(L, 1, 0, 0);
}

void OnWindowCreated(int WindowType) {
	FC_TRACE("OnWindowCreated");
	CHECK_LUA;
	lua_getglobal(L, "OnWindowCreated");
	lua_pushinteger(L, WindowType);
	lua_pcall(L, 1, 0, 0);
}

int OnWindowClose(int WindowType, BOOL Changed) {
	int retValue;
	FC_TRACE("OnWindowClose");
	CHECK_LUA;
	lua_getglobal(L, "OnWindowClose");
	lua_pushinteger(L, WindowType);
	lua_pushinteger(L, Changed);
	lua_pcall(L, 2, 1, 0);
	retValue = lua_tointeger(L, -1);
	lua_pop(L, 1);
	return retValue;
}

BOOL BeforeExecuteWindowe(int WindowType) {
	BOOL retValue;
	FC_TRACE("BeforeExecuteWindowe");
	CHECK_LUA;
	lua_getglobal(L, "BeforeExecuteWindowe");
	lua_pushinteger(L, WindowType);
	lua_pcall(L, 1, 1, 0);
	retValue = lua_toboolean(L, -1);
	lua_pop(L, 1);
	return retValue;
}

void AfterExecuteWindow(int WindowType, int Result) {
	FC_TRACE("AfterExecuteWindow");
	CHECK_LUA;
	lua_getglobal(L, "AfterExecuteWindow");
	lua_pushinteger(L, WindowType);
	lua_pushinteger(L, Result);
	lua_pcall(L, 2, 0, 0);
}

void OnConnectionChange() {
	FC_TRACE("OnConnectionChange");
	CHECK_LUA;
	lua_getglobal(L, "OnConnectionChange");
	lua_pcall(L, 0, 0, 0);
}

void OnPopup(char* ObjectType, char* ObjectName) {
	FC_TRACE("OnPopup");
	CHECK_LUA;
	lua_getglobal(L, "OnPopup");
	lua_pushstring(L, ObjectType);
	lua_pushstring(L, ObjectName);
	lua_pcall(L, 2, 0, 0);
}

void OnMainMenu(char* MenuName) {
	FC_TRACE("OnMainMenu");
	CHECK_LUA;
	lua_getglobal(L, "OnMainMenu");
	lua_pushstring(L, MenuName);
	lua_pcall(L, 1, 0, 0);
}

BOOL OnTemplate(char* Filename, char** Data) {
	BOOL retValue;
	char b[1024];
	memset(b, '\0', sizeof(b));
	FC_TRACE("OnTemplate");
	CHECK_LUA;
	lua_getglobal(L, "OnTemplate");
	lua_pushstring(L, Filename);
	// lua_pushinteger(L,Data);
	/* Modify by hand if need to use this feture */
	lua_pushstring(L, *Data);
	/* Call function and return multiple values */
	lua_pcall(L, 2, 2, 0);
	retValue = lua_toboolean(L, -2);
	*Data = lua_tostring(L, -1);
	lua_pop(L, 2);
	return retValue;
}

void OnFileLoaded(int WindowType, int Mode) {
	FC_TRACE("OnFileLoaded");
	CHECK_LUA;
	lua_getglobal(L, "OnFileLoaded");
	lua_pushinteger(L, WindowType);
	lua_pushinteger(L, Mode);
	lua_pcall(L, 2, 0, 0);
}

void OnFileSaved(int WindowType, int Mode) {
	FC_TRACE("OnFileSaved");
	CHECK_LUA;
	lua_getglobal(L, "OnFileSaved");
	lua_pushinteger(L, WindowType);
	lua_pushinteger(L, Mode);
	lua_pcall(L, 2, 0, 0);
}

char* About() {
	char* retValue;
	FC_TRACE("About");
	CHECK_LUA;
	lua_getglobal(L, "About");
	lua_pcall(L, 0, 1, 0);
	retValue = (char*)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

void Configure() {
	FC_TRACE("Configure");
	CHECK_LUA;
	lua_getglobal(L, "Configure");
	lua_pcall(L, 0, 0, 0);
}

void CommandLine(int FeedbackHandle, char* Command, char* Params) {
	FC_TRACE("CommandLine");
	CHECK_LUA;
	lua_getglobal(L, "CommandLine");
	lua_pushinteger(L, FeedbackHandle);
	lua_pushstring(L, Command);
	lua_pushstring(L, Params);
	lua_pcall(L, 3, 0, 0);
}

char* PlugInName() {
	char* retValue;
	FC_TRACE("PlugInName");
	CHECK_LUA;
	lua_getglobal(L, "PlugInName");
	lua_pcall(L, 0, 1, 0);
	retValue = (char*)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

char* PlugInSubName() {
	char* retValue;
	FC_TRACE("PlugInSubName");
	CHECK_LUA;
	lua_getglobal(L, "PlugInSubName");
	lua_pcall(L, 0, 1, 0);
	retValue = (char*)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

char* PlugInShortName() {
	char* retValue;
	FC_TRACE("PlugInShortName");
	CHECK_LUA;
	lua_getglobal(L, "PlugInShortName");
	lua_pcall(L, 0, 1, 0);
	retValue = (char*)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

char* RegisterFileSystem() {
	char* retValue;
	FC_TRACE("RegisterFileSystem");
	CHECK_LUA;
	lua_getglobal(L, "RegisterFileSystem");
	lua_pcall(L, 0, 1, 0);
	retValue = (char*)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

char* DirectFileLoad() {
	char* retValue;
	FC_TRACE("DirectFileLoad");
	CHECK_LUA;
	lua_getglobal(L, "DirectFileLoad");
	lua_pcall(L, 0, 1, 0);
	retValue = (char*)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

BOOL DirectFileSave() {
	BOOL retValue;
	FC_TRACE("DirectFileSave");
	CHECK_LUA;
	lua_getglobal(L, "DirectFileSave");
	lua_pcall(L, 0, 1, 0);
	retValue = lua_toboolean(L, -1);
	lua_pop(L, 1);
	return retValue;
}

char* RegisterExport() {
	char* retValue;
	FC_TRACE("RegisterExport");
	CHECK_LUA;
	lua_getglobal(L, "RegisterExport");
	lua_pcall(L, 0, 1, 0);
	retValue = (char*)lua_tostring(L, -1);
	lua_pop(L, 1);
	return retValue;
}

BOOL ExportInit() {
	BOOL retValue;
	FC_TRACE("ExportInit");
	CHECK_LUA;
	lua_getglobal(L, "ExportInit");
	lua_pcall(L, 0, 1, 0);
	retValue = lua_toboolean(L, -1);
	lua_pop(L, 1);
	return retValue;
}

void ExportFinished() {
	CHECK_LUA;
	lua_getglobal(L, "ExportFinished");
	lua_pcall(L, 0, 0, 0);
}

BOOL ExportPrepare() {
	BOOL retValue;
	FC_TRACE("ExportPrepare");
	CHECK_LUA;
	lua_getglobal(L, "ExportPrepare");
	lua_pcall(L, 0, 1, 0);
	retValue = lua_toboolean(L, -1);
	lua_pop(L, 1);
	return retValue;
}

BOOL ExportData(char* Value) {
	BOOL retValue;
	FC_TRACE("ExportData");
	CHECK_LUA;
	lua_getglobal(L, "ExportData");
	lua_pushstring(L, Value);
	lua_pcall(L, 1, 1, 0);
	retValue = lua_toboolean(L, -1);
	lua_pop(L, 1);
	return retValue;
}
/* Automatically generate code end. */

头文件的定义，包括事件函数、插件函数、回调函数、转嫁调用函数等声明。

#ifndef __PLUGIN_H__
#define __PLUGIN_H__

/* Commmon use of windows utilities */
#include <windows.h>

/* Embeded language Lua header files */
#ifdef	__cplusplus
extern "C" {
#endif
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
#ifdef	__cplusplus
}
#endif

/*Include common header files*/
#include "common.h"

/* Export to IDE function groups */
#ifdef	__cplusplus
extern "C" {
#endif
	/* Plug-in primary functions */
	__declspec(dllexport)char*IdentifyPlugIn(int ID);
	__declspec(dllexport)char*CreateMenuItem(int Index);
	__declspec(dllexport)void OnMenuClick(int Index);
	/* Plug-in event functions */
	__declspec(dllexport)void OnCreate();
	__declspec(dllexport)void OnActivate();
	__declspec(dllexport)void OnDeactivate();
	__declspec(dllexport)void OnDestroy();
	__declspec(dllexport)BOOL CanClose();
	__declspec(dllexport)void AfterStart();
	__declspec(dllexport)void OnBrowserChange();
	__declspec(dllexport)void OnWindowChange();
	__declspec(dllexport)void OnWindowCreate(int WindowType);
	__declspec(dllexport)void OnWindowCreated(int WindowType);
	__declspec(dllexport)int OnWindowClose(int WindowType, BOOL Changed);
	__declspec(dllexport)BOOL BeforeExecuteWindowe(int WindowType);
	__declspec(dllexport)void AfterExecuteWindow(int WindowType, int Result);
	__declspec(dllexport)void OnConnectionChange();
	__declspec(dllexport)void OnPopup(char*ObjectType, char*ObjectName);
	__declspec(dllexport)void OnMainMenu(char*MenuName);
	__declspec(dllexport)BOOL OnTemplate(char*Filename, char**Data);
	__declspec(dllexport)void OnFileLoaded(int WindowType, int Mode);
	__declspec(dllexport)void OnFileSaved(int WindowType, int Mode);
	__declspec(dllexport)char*About();
	__declspec(dllexport)void Configure();
	__declspec(dllexport)void CommandLine(int FeedbackHandle, char*Command,
		char*Params);
	/* Plug-in nameing functions */
	__declspec(dllexport)char*PlugInName();
	__declspec(dllexport)char*PlugInSubName();
	__declspec(dllexport)char*PlugInShortName();
	/* Plug-in external filesystem functions */
	__declspec(dllexport)char*RegisterFileSystem();
	__declspec(dllexport)char*DirectFileLoad();
	__declspec(dllexport)BOOL DirectFileSave();
	/* Plug-in export functions */
	__declspec(dllexport)char*RegisterExport();
	__declspec(dllexport)BOOL ExportInit();
	__declspec(dllexport)void ExportFinished();
	__declspec(dllexport)BOOL ExportPrepare();
	__declspec(dllexport)BOOL ExportData(char*Value);
	/* Plug-in callback functions */
	__declspec(dllexport)void RegisterCallback(int Index, void*Addr);
#ifdef	__cplusplus
}
#endif

/* Tab type returned by IDE_TabInfo() */
#define PLSQL_TT_FUNCTION                         "Function"
#define PLSQL_TT_PROCEDURE                        "Procedure"
#define PLSQL_TT_TRIGGER                          "Trigger"
#define PLSQL_TT_JAVA_SOURCE                      "Java source"
#define PLSQL_TT_PACKAGE_SPEC                     "Package"
#define PLSQL_TT_PACKAGE_BODY                     "Package body"
#define PLSQL_TT_TYPE_SPEC                        "Type"
#define PLSQL_TT_TYPE_BODY                        "Type body"

/* window type */
#define PLSQL_WT_UNKNOWN                          0
#define PLSQL_WT_SQL                              1
#define PLSQL_WT_TEST                             2
#define PLSQL_WT_PROCEDURE                        3
#define PLSQL_WT_COMMAND                          4
#define PLSQL_WT_PLAN                             5
#define PLSQL_WT_REPORT                           6

/* Cursor word position */
#define PLSQL_CWP_UNKNOWN                         0
#define PLSQL_CWP_CURSOR_START_WORD               1
#define PLSQL_CWP_CURSOR_WORD                     2
#define PLSQL_CWP_CURSOR_END_WORD                 3

/* Perform */
#define PLSQL_PERFORM_EXECUTE                     1
#define PLSQL_PERFORM_BREAK                       2
#define PLSQL_PERFORM_KILL                        3
#define PLSQL_PERFORM_COMMIT                      4
#define PLSQL_PERFORM_ROLLBACK                    5
#define PLSQL_PERFORM_PRINT                       6

/* Keyword style */
#define PLSQL_KWS_CUSTOM                          10
#define PLSQL_KWS_KEYWORDS                        11
#define PLSQL_KWS_COMMENT                         12
#define PLSQL_KWS_STRINGS                         13
#define PLSQL_KWS_NUMBERS                         14
#define PLSQL_KWS_SYMBOLS                         15

/* Popup */
#define PLSQL_POPUP_PROGRAMWINDOW                 "PROGRAMWINDOW"
#define PLSQL_POPUP_SQLWINDOW                     "SQLWINDOW"
#define PLSQL_POPUP_TESTWINDOW                    "TESTWINDOW"
#define PLSQL_POPUP_COMMANDWINDOW                 "COMMANDWINDOW"

/* Refresh object */
#define PLSQL_REFRESH_OBJECT_CREATED              1
#define PLSQL_REFRESH_OBJECT_MODIFIED             2
#define PLSQL_REFRESH_OBJECT_DELETED              3

/* Key simulation */
#define PLSQL_KP_SHIFT   1
#define PLSQL_KP_ALT     2
#define PLSQL_KP_CTRL    3

/* Beautifier options */
#define PLSQL_BO_AfterCreating                    1
#define PLSQL_BO_AfterLoading                     2
#define PLSQL_BO_BeforeCompiling                  4
#define PLSQL_BO_BeforeSaving                     8

/* SQL field type */
#define PLSQL_FT_Integer                          3
#define PLSQL_FT_Float                            4
#define PLSQL_FT_String                           5
#define PLSQL_FT_Long                             8
#define PLSQL_FT_Date                             12
#define PLSQL_FT_LongRaw                          24

/* Define error code */
#define ANYTHING_IS_OK				0
#define GENERAL_LUA_ERROR		-1
#define	REGISTER_ROUTINE_ERROR	-11

/* Common definition */
#define LUA_MESSAGE_SIZE	1024
#define MAX_OBJECT_NAME_LEN	256

/* Lua c function pointer type */
typedef int(*lua_CF)(lua_State * l);

/* Tools function declaration */
int RegisterRoutine(lua_State *l, const char *routine, lua_CF fp);
lua_State *SetupLuaSupport();
void ClearLuaSupport();
static void Stack2Buff(lua_State *L, char *buff);

/* Check the lua support was fixed */
#define	CHECK_LUA	SetupLuaSupport()
#define	CLEAR_LUA	ClearLuaSupport()
#ifdef _DEBUG
#define FC_TRACE(fn)	//MessageBox((HWND)GetDesktopWindow(), fn, "Function call trace...", MB_OK)
#else
#define FC_TRACE(fn)
#endif //_DEBUG

/* Function declare for lua "library" */
/* Part 1,manual created functions */
int luax_ShowMessage(lua_State *l);
int luax_ShowMessageOption(lua_State *l);
int luax_FetchData(lua_State *l);
int luax_GetOpenFileName(lua_State *l);
int luax_GetSaveFileName(lua_State *l);
/* Part 2,auto created funcrions */
int luax_SYS_Version(lua_State *l);
int luax_SYS_Registry(lua_State *l);
int luax_SYS_RootDir(lua_State *l);
int luax_SYS_OracleHome(lua_State *l);
int luax_SYS_OCIDLL(lua_State *l);
int luax_SYS_OCI8Mode(lua_State *l);
int luax_SYS_XPStyle(lua_State *l);
int luax_SYS_TNSNAMES(lua_State *l);
int luax_SYS_DelphiVersion(lua_State *l);
int luax_IDE_MenuState(lua_State *l);
int luax_IDE_Connected(lua_State *l);
int luax_IDE_GetConnectionInfo(lua_State *l);
int luax_IDE_GetBrowserInfo(lua_State *l);
int luax_IDE_GetWindowType(lua_State *l);
int luax_IDE_GetAppHandle(lua_State *l);
int luax_IDE_GetWindowHandle(lua_State *l);
int luax_IDE_GetClientHandle(lua_State *l);
int luax_IDE_GetChildHandle(lua_State *l);
int luax_IDE_Refresh(lua_State *l);
int luax_IDE_CreateWindow(lua_State *l);
int luax_IDE_OpenFile(lua_State *l);
int luax_IDE_SaveFile(lua_State *l);
int luax_IDE_Filename(lua_State *l);
int luax_IDE_CloseFile(lua_State *l);
int luax_IDE_SetReadOnly(lua_State *l);
int luax_IDE_GetReadOnly(lua_State *l);
int luax_IDE_ExecuteSQLReport(lua_State *l);
int luax_IDE_ReloadFile(lua_State *l);
int luax_IDE_SetFilename(lua_State *l);
int luax_IDE_GetText(lua_State *l);
int luax_IDE_GetSelectedText(lua_State *l);
int luax_IDE_GetCursorWord(lua_State *l);
int luax_IDE_GetEditorHandle(lua_State *l);
int luax_IDE_SetText(lua_State *l);
int luax_IDE_SetStatusMessage(lua_State *l);
int luax_IDE_SetErrorPosition(lua_State *l);
int luax_IDE_ClearErrorPositions(lua_State *l);
int luax_IDE_GetCursorWordPosition(lua_State *l);
int luax_IDE_Perform(lua_State *l);
int luax_SQL_Execute(lua_State *l);
int luax_SQL_FieldCount(lua_State *l);
int luax_SQL_Eof(lua_State *l);
int luax_SQL_Next(lua_State *l);
int luax_SQL_Field(lua_State *l);
int luax_SQL_FieldName(lua_State *l);
int luax_SQL_FieldIndex(lua_State *l);
int luax_SQL_FieldType(lua_State *l);
int luax_SQL_ErrorMessage(lua_State *l);
int luax_SQL_UsePlugInSession(lua_State *l);
int luax_SQL_UseDefaultSession(lua_State *l);
int luax_SQL_CheckConnection(lua_State *l);
int luax_SQL_GetDBMSGetOutput(lua_State *l);
int luax_SQL_SetVariable(lua_State *l);
int luax_SQL_GetVariable(lua_State *l);
int luax_SQL_ClearVariables(lua_State *l);
int luax_IDE_GetCustomKeywords(lua_State *l);
int luax_IDE_SetCustomKeywords(lua_State *l);
int luax_IDE_SetKeywords(lua_State *l);
int luax_IDE_ActivateKeywords(lua_State *l);
int luax_IDE_RefreshMenus(lua_State *l);
int luax_IDE_SetMenuName(lua_State *l);
int luax_IDE_SetMenuCheck(lua_State *l);
int luax_IDE_SetMenuVisible(lua_State *l);
int luax_IDE_GetMenulayout(lua_State *l);
int luax_IDE_CreatePopupItem(lua_State *l);
int luax_IDE_SetConnection(lua_State *l);
int luax_IDE_GetObjectInfo(lua_State *l);
int luax_IDE_GetBrowserItems(lua_State *l);
int luax_IDE_RefreshBrowser(lua_State *l);
int luax_IDE_GetPopupObject(lua_State *l);
int luax_IDE_GetPopupBrowserRoot(lua_State *l);
int luax_IDE_RefreshObject(lua_State *l);
int luax_IDE_FirstSelectedObject(lua_State *l);
int luax_IDE_NextSelectedObject(lua_State *l);
int luax_IDE_GetObjectSource(lua_State *l);
int luax_IDE_GetWindowCount(lua_State *l);
int luax_IDE_SelectWindow(lua_State *l);
int luax_IDE_ActivateWindow(lua_State *l);
int luax_IDE_WindowIsModified(lua_State *l);
int luax_IDE_WindowIsRunning(lua_State *l);
int luax_IDE_SplashCreate(lua_State *l);
int luax_IDE_SplashHide(lua_State *l);
int luax_IDE_SplashWrite(lua_State *l);
int luax_IDE_SplashWriteLn(lua_State *l);
int luax_IDE_SplashProgress(lua_State *l);
int luax_IDE_TemplatePath(lua_State *l);
int luax_IDE_ExecuteTemplate(lua_State *l);
int luax_IDE_GetConnectAs(lua_State *l);
int luax_IDE_SetConnectionAs(lua_State *l);
int luax_IDE_GetFileOpenMenu(lua_State *l);
int luax_IDE_CanSaveWindow(lua_State *l);
int luax_IDE_OpenFileExternal(lua_State *l);
int luax_IDE_GetFileTypes(lua_State *l);
int luax_IDE_GetDefaultExtension(lua_State *l);
int luax_IDE_GetFiledata(lua_State *l);
int luax_IDE_FileSaved(lua_State *l);
int luax_IDE_ShowHTML(lua_State *l);
int luax_IDE_RefreshHTML(lua_State *l);
int luax_IDE_GetProcEditExtension(lua_State *l);
int luax_IDE_GetWindowObject(lua_State *l);
int luax_IDE_FirstSelectedFile(lua_State *l);
int luax_IDE_NextSelectedFile(lua_State *l);
int luax_IDE_RefreshFileBrowser(lua_State *l);
int luax_IDE_KeyPress(lua_State *l);
int luax_IDE_GetMenuItem(lua_State *l);
int luax_IDE_SelectMenu(lua_State *l);
int luax_IDE_TranslationFile(lua_State *l);
int luax_IDE_TranslationLanguage(lua_State *l);
int luax_IDE_GetTranslatedMenuLayout(lua_State *l);
int luax_IDE_MainFont(lua_State *l);
int luax_IDE_TranslateItems(lua_State *l);
int luax_IDE_TranslateString(lua_State *l);
int luax_IDE_SaveRecoveryFiles(lua_State *l);
int luax_IDE_GetCursorX(lua_State *l);
int luax_IDE_GetCursorY(lua_State *l);
int luax_IDE_SetCursor(lua_State *l);
int luax_IDE_SetBookmark(lua_State *l);
int luax_IDE_ClearBookmark(lua_State *l);
int luax_IDE_GotoBookmark(lua_State *l);
int luax_IDE_GetBookmark(lua_State *l);
int luax_IDE_TabInfo(lua_State *l);
int luax_IDE_TabIndex(lua_State *l);
int luax_IDE_CreateToolButton(lua_State *l);
int luax_IDE_WindowHasEditor(lua_State *l);
int luax_IDE_BeautifierOptions(lua_State *l);
int luax_IDE_BeautifyWindow(lua_State *l);
int luax_IDE_BeautifyText(lua_State *l);
int luax_IDE_ObjectAction(lua_State *l);
int luax_IDE_ShowDialog(lua_State *l);
int luax_IDE_DebugLog(lua_State *l);
int luax_IDE_GetParamString(lua_State *l);
int luax_IDE_GetParamBool(lua_State *l);
int luax_IDE_GetBrowserFilter(lua_State *l);
int luax_IDE_CommandFeedback(lua_State *l);
int luax_IDE_ResultGridRowCount(lua_State *l);
int luax_IDE_ResultGridColCount(lua_State *l);
int luax_IDE_ResultGridCell(lua_State *l);
int luax_IDE_Authorized(lua_State *l);
int luax_IDE_WindowAllowed(lua_State *l);
int luax_IDE_Authorization(lua_State *l);
int luax_IDE_AuthorizationItems(lua_State *l);
int luax_IDE_AddAuthorizationItem(lua_State *l);
int luax_IDE_GetPersonalPrefSets(lua_State *l);
int luax_IDE_GetDefaultPrefSets(lua_State *l);
int luax_IDE_GetPrefAsString(lua_State *l);
int luax_IDE_GetPrefAsInteger(lua_State *l);
int luax_IDE_GetPrefAsBool(lua_State *l);
int luax_IDE_SetPrefAsString(lua_State *l);
int luax_IDE_SetPrefAsInteger(lua_State *l);
int luax_IDE_SetPrefAsBool(lua_State *l);
int luax_IDE_GetGeneralPref(lua_State *l);
int luax_IDE_PlugInSetting(lua_State *l);
int luax_IDE_GetProcOverloadCount(lua_State *l);
int luax_IDE_SelectProcOverloading(lua_State *l);
int luax_IDE_GetSessionValue(lua_State *l);
int luax_IDE_CheckDBVersion(lua_State *l);

/****************************************************************************** /
/*All IDE functions declare */

/*
 Delphi procedure IDE_RefreshBrowser(Node: PChar)
 Force a refresh to the Object Browser. If Node is empty, all items are
 refreshed. To refresh a specific item you can enter the name in the Node
 parameter.
 Note:
 Version 500 allows you to pass a * to refresh the current selected
 browser item.
 Note:
 Version 600 allows you to pass a ** to refresh to parent of the current
 browser item, and you can pass *** to refresh to root item.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_RefreshBrowser)(char *Node);

/*
 Delphi function IDE_SetBookmark(Index, X, Y: Integer): Integer
 Create a bookmark at position X (character), Y (line). Index is the
 bookmark (0..9) you want to set. If you pass –1 as bookmark, the first
 free bookmark will be used. The returned value is the used bookmark.
 Normally, from within PL/SQL Developer. Bookmarks can only be used
 for windows with a gutter (Test window and Program editor), but the
 Plug-In interface allows you to use bookmarks for all windows.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_SetBookmark)(int Index, int X, int Y);

/*
 Delphi procedure IDE_ClearBookmark(Index: Integer)
 Clears the specified bookmark

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_ClearBookmark)(int Index);

/*
 Delphi procedure IDE_GotoBookmark(Index: Integer)
 Jumps to a bookmark

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_GotoBookmark)(int Index);

/*
 Delphi function IDE_GetBookmark(Index: Integer; var X: Integer;var Y: Integer): Bool
 Get the cursor position for a specific bookmark

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_GetBookmark)(int Index, int X, int Y);

/*
 Delphi function IDE_TabInfo(Index: Integer): PChar
 Returns the description tab page Index (zero based). The return value is
 empty if the tab page does not exist. This function allows you to
 determine which tab pages (if any) are available for the current window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_TabInfo)(int Index);

/*
 Delphi function IDE_TabIndex(Index: Integer): Integer
 This function allows you to read or set the active tab page. To set a
 specific page, pass a zero based value to the Index parameter. The
 return value is the actual selected page. To determine the active page
 (without setting it) pass a value of –1 to the Index parameter.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_TabIndex)(int Index);

/*
 Delphi procedure IDE_CreateToolButton(ID, Index: Integer;Name: PChar; BitmapFile: PChar;BitmapHandle: Integer)
 This function allows you to add Toolbuttons to your Plug-In, similar to
 IDE_CreatePopupItem. The ID is the Plug-In ID and the index is the
 menu index. When a button is selected, OnMenuClick is called with the
 corresponding index.
 The Name will appear as hint for the button, and as name in the
 preferences dialog.
 The button can be enabled and disabled with IDE_MenuState.
 The image for the button can be set by passing a filename to a bmp file
 in the BitmapFile parameter, or as a handle to a bitmap in memory.
 The bmp image can have any number of colors, but should
 approximately be 20 x 20 pixels in size.
 The button will only be visible if it is selected in the Toolbar preference.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_CreateToolButton)(int ID, int Index, char *Name,
	char *BitmapFile, int BitmapHandle);

/*
 Delphi procedure IDE_WindowHasEditor(CodeEditor: Bool)
 Returns true if the current Window has an Editor. If the CodeEditor
 parameter is true, it returns false for editors like the output editor.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_WindowHasEditor)(BOOL CodeEditor);

/*
 Delphi function IDE_BeautifierOptions: Integer
 Returns the PL/SQL Beautifier options. The result is a value where the
 following values are or-ed together:
 1 AfterCreating enabled
 2 AfterLoading enabled
 4 BeforeCompiling enabled
 8 BeforeSaving enabled
 You can use this to determine if you need to call the beautifier.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_BeautifierOptions)();

/*
 Delphi function IDE_BeautifyWindow: Bool
 Calls the PL/SQL Beautifier for the current Window. The result indicates
 if the operations succeeded.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_BeautifyWindow)();

/*
 Delphi function IDE_BeautifyText(S: PChar): PChar
 Calls the PL/SQL Beautifier to beautify the text in the S parameter. The
 result is the beautified text or it is empty if the function failed

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_BeautifyText)(char *S);

/*
 Delphi IDE_ObjectAction(Action, ObjectType, ObjectOwner,
 ObjectName: PChar): Bool
 This function allows you to do a specific action for the object specified.
 The following actions are available:
 VIEW, VIEWSPECANDBODY, EDIT, EDITSPECANDBODY, EDITDATA,
 QUERYDATA, TEST

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_ObjectAction)(char *Action, char *ObjectType,
	char *ObjectOwner, char *ObjectName);

/*
 Delphi function IDE_ShowDialog(Dialog, Param: PChar): Bool
 This allows you to start a specific PL/SQL Developer dialog. The
 following are supported:
 AUTHORIZATIONS
 PROJECTITEMS
 BREAKPOINTS
 PREFERENCES
 CONFIG PLUGINS
 CONFIG TOOLS
 CONFIG DOCUMENTS
 CONFIG REPORTS
 CONFIG MACROS
 CONFIG AUTOREFRESH
 The Param parameter is for future use.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_ShowDialog)(char *Dialog, char *Param);

/*
 Delphi function IDE_ExecuteTemplate(Template: PChar;NewWindow: Bool): Bool
 If you want to execute a template from within your PlugIn you can do so
 with this function. The NewWindow parameter indicates if a new window
 should be created or that the result of the template should be pasted at
 the current cursor position in the active window. The template parameter
 should contain the template name. If the template is located in one or
 more folders, the folder name(s) should be prefixed to the template
 name separated by a backslash.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_ExecuteTemplate)(char *Template, BOOL NewWindow);

/*
 Delphi function IDE_GetConnectAs: PChar
 Use this function to determine if the current connection has a specific
 ‘Connect As’. Possible return values are:
 '', 'SYSDBA' and 'SYSOPER'

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char*(*IDE_GetConnectAs)();

/*
 Delphi function IDE_SetConnectionAs(Username,
 Password, Database, ConnectAs: PChar): Bool
 Identical to IDE_SetConnection, but with an option to specify a
 ConnectAs parameter. You can pass 'SYSDBA' or 'SYSOPER', all other
 values will be handled as 'NORMAL'.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SetConnectionAs)(char *Username, char *Password,
	char *Database, char *ConnectAs);

/*
 Delphi function IDE_GetFileOpenMenu(MenuIndex: Integer;var WindowType: Integer): PChar
 If you want to create a new ‘File Open’ menu with the same items as the
 standard menu, you can use this function to determine the standard
 items. You can call this function in a loop while incrementing MenuIndex
 (starting with 0) until the return value is an empty string. The return
 values are the menu names in the File Open menu and the WindowType
 is the corresponding window type.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetFileOpenMenu)(int MenuIndex, int *WindowType);

/*
 Delphi function IDE_CanSaveWindow: Bool
 Returns True if the active child window can be saved. (which are the
 SQL, Test, Program and Command windows).

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_CanSaveWindow)();

/*
 Delphi procedure IDE_OpenFileExternal(WindowType: Integer;Data, FileSystem, Tag, Filename: PChar)
 Creates a new Window (of type WindowType) for the specified (and
 registered) FileSystem, Tag and Filename.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_OpenFileExternal)(int WindowType, char *Data, char *FileSystem,
	char *Tag, char *Filename);

/*
 Delphi function IDE_GetFileTypes(WindowType: Integer): PChar
 Returns the defined filetypes for a specific WindowType.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetFileTypes)(int WindowType);

/*
 Delphi function IDE_GetDefaultExtension(WindowType:
 Integer): PChar
 Returns the default extension (without period) for a specific window type.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetDefaultExtension)(int WindowType);

/*
 Delphi function IDE_GetFileData: PChar
 Returns the data of a window. You can use this function to get the data
 and save it.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetFiledata)();

/*
 Delphi procedure IDE_FileSaved(FileSystem, FileTag,
 Filename: PChar)
 You can call this function when a file is saved successfully. The filename
 will be set in the Window caption and the status will display that the file is
 ‘saved successfully’.
 FileSystem and FileTag can be nil.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_FileSaved)(char *FileSystem, char *FileTag, char *Filename);

/*
 Delphi function IDE_ShowHTML(Url, Hash, Title, ID: PChar):
 Bool
 This function displays a html file in a child window. The url parameter
 identifies the file and the hash parameter allows you to jump to a specific
 location. The title parameter will be used as window title.
 You can refresh the contents of an already opened window by specifying
 an ID. If ID is not empty, and a window exists with the same ID, this will
 be used, otherwise a new window will be created.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_ShowHTML)(char *Url, char *Hash, char *Title, char *ID);

/*
 Delphi function IDE_ShowHTML(Url, ID: PChar; BringToFront:
 Bool): Bool
 Refresh the contents of a HTML Window. You can pass an url to refresh
 all windows that show a specific url, or you can pass an ID to refresh a
 specific Window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_RefreshHTML)(char *Url, char *ID, BOOL BringToFront);

/*
 Delphi function IDE_GetProcEditExtension (oType: PChar):
 PChar
 Returns the define file extension of a specific object type. The oType
 parameter can hold one of the following valies:
 FUNCTION, PROCEDURE, TRIGGER,
 PACKAGE, PACKAGE BODY, PACKAGE SPEC AND BODY,
 TYPE, TYPE BODY, TYPE SPEC AND BODY,
 JAVA SOURCE

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetProcEditExtension)(char *oType);

/*
 Delphi function IDE_GetWindowObject(var ObjectType,
 ObjectOwner, ObjectName, SubObject: PChar): Bool
 Get info about the object opened in a Window. This will only work for
 Program Windows.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_GetWindowObject)(char **ObjectType, char **ObjectOwner,
	char **ObjectName, char **SubObject);

/*
 Delphi function IDE_FirstSelectedFile(Files, Directories:
 Boolean): PChar;Returns the first selected item in the file browser. Use
 IDE_NextSelectedFile for multiple selected items. The Files and
 Directories parameters allow you to specify if you do or don’t want
 selected files and/or directories.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_FirstSelectedFile)(BOOL Files, BOOL Directories);

/*
 Delphi function IDE_NextSelectedFile: PChar
 Returns the next selected item. See the previous function.
 Returns empty value when no more items.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_NextSelectedFile)();

/*
 Delphi procedure IDE_RefreshFileBrowser
 Forces the file browser to refresh the contents. Normally the browser will
 autodetect changes.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_RefreshFileBrowser)();

/*
 Delphi procedure IDE_KeyPress(Key, Shift: Integer)
 Simulates a key press. You can use this function to do the things you
 can also do with the keyboard. The Key parameter is the virtual key code
 of the key, and the Shift parameter holds the status of the Shift Ctrl and
 Alt keys. You can combine the following values:
 1 = Shift
 2 = Alt
 3 = Ctrl

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_KeyPress)(int Key, int Shift);

/*
 Delphi function IDE_GetMenuItem(MenuName: PChar): Integer
 This function will return an ‘index’ of a specific menu item. The
 MenuName parameter must specify the menu path separated by a slash,
 for example ‘edit / selection / uppercase’. The menu name is not case
 sensitive. If the function returns zero, the menu did not exist.
 You can use the return value with IDE_SelectMenu

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetMenuItem)(char *MenuName);

/*
 Delphi function IDE_SelectMenu(MenuItem: Integer): Bool
 You can execute a menu item with this function. The MenuItem
 parameter has to be determined by the IDE_SelectMenu function. If this
 function returns false, the menu did not exist, or it was disabled.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SelectMenu)(int MenuItem);

/*
 Delphi function IDE_TranslationFile: PChar
 Returns the currently used translation file. If the return value is empty, no
 translation is used.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_TranslationFile)();

/*
 Delphi function IDE_TranslationLanguage: PChar
 Returns the language of the currently used translation file. If the return
 value is empty, no translation is used.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_TranslationLanguage)();

/*
 Delphi function IDE_GetTranslatedMenuLayout: PChar
 Returns a list of all standard PL/SQL Developer menu items like
 IDE_GetMenuLayout, but this function will return the translated menus.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetTranslatedMenuLayout)();

/*
 Delphi function IDE_MainFont: PChar
 Return the PL/SQL Developer main font in the format:
 “Name”, size, color, charset, “style”

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_MainFont)();

/*
 Delphi procedure IDE_DebugLog(Msg: PChar)
 When debuggin is on, this function allows you to add messages in the
 debug.txt file generated.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_DebugLog)(char *Msg);

/*
 Delphi function IDE_GetParamString(Name: PChar): PChar
 This function returns a command-line parameter, or a parameter
 specified in the params.ini file.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetParamString)(char *Name);

/*
 Delphi function IDE_GetParamBool(Name: PChar): Bool
 This function returns a command-line parameter, or a parameter
 specified in the params.ini file.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_GetParamBool)(char *Name);

/*
 Delphi procedure IDE_GetBrowserFilter(Index: Integer; var
 Name, WhereClause, OrderByClause, User: PChar; var
 Active: Bool)
 This function returns the defined browser filters. You can use this if the
 Plug-in has a similar requirement. Index = 0 and higher, and the returned
 values are empty if the filter does not exist.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_GetBrowserFilter)(int Index, char **Name, char **WhereClause,
	char **OrderByClause, char **User, BOOL Active);

/*
 Delphi procedure IDE_CommandFeedback(FeedBackHandle:
 Integer; S: PChar)
 This function allows you to return feedback to the command window. The
 description S will be displayed in the window identified by the
 FeedbackHandle. See the CommandLine Plug-In function for details.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_CommandFeedback)(int FeedbackHandle, char *S);

/*
 Delphi function IDE_ResultGridRowCount: Integer
 Returns the number of rows in the result grid of a SQL or Test Window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_ResultGridRowCount)();

/*
 Delphi function IDE_ResultGridColCount: Integer
 Returns the number of cols in the result grid of a SQL or Test Window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_ResultGridColCount)();

/*
 Delphi function IDE_ResultGridCell(Col, Row: Integer): PChar
 This function allows you to access the results of a query in a SQL or Test
 Window. Use the above two functions to determine the number of rows
 and cols.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_ResultGridCell)(int Col, int Row);

/*
 Delphi procedure IDE_GetPopupObject(var ObjectType,
 ObjectOwner, ObjectName, SubObject: PChar)
 This function returns information about the item for which a popup menu
 (created with IDE_CreatePopupItem) was activated.
 If the item is a Browser folder, the name of the folder will be returned in
 ObjectName and ObjectType will return ‘FOLDER’

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetPopupObject)(char **ObjectType, char **ObjectOwner,
	char **ObjectName, char **SubObject);

/*
 Delphi function IDE_GetPopupBrowserRoot: PChar
 This function returns the name of browser root item for which a popup
 menu (created with IDE_CreatePopupItem) was activated.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetPopupBrowserRoot)();

/*
 Delphi procedure IDE_RefreshObject(ObjectType, ObjectOwner,
 ObjectName: PChar; Action: Integer)
 If you modify database objects in your Plug-In and you want to update
 PL/SQL Developer to reflect these changes, you can do so by calling this
 function. You should pass the object type, owner, name and the action
 that you performed on the object. The action can be one of the following:
 1 = Object created
 2 = Object modified
 3 = Object deleted
 PL/SQL Developer will update the browser and all windows that might
 use the object.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_RefreshObject)(char *ObjectType, char *ObjectOwner,
	char *ObjectName, int Action);

/*
 Delphi function IDE_FirstSelectedObject(var ObjectType,
 ObjectOwner, ObjectName, SubObject: PChar): Bool
 This function will return the details of the first selected in the Browser.
 The function will return false if no items are selected.
 Use in combination with IDE_NextSelectedObject to determine all
 selected items.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_FirstSelectedObject)(char *ObjectType, char *ObjectOwner,
	char *ObjectName, char *SubObject);

/*
 Delphi function IDE_NextSelectedObject(var ObjectType,
 ObjectOwner, ObjectName, SubObject: PChar): Bool
 This function can be called after a call to IDE_FirstSelectedObject to
 determine all selected objects. You can keep calling this function until it
 returns false.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_NextSelectedObject)(char *ObjectType, char *ObjectOwner,
	char *ObjectName, char *SubObject);

/*
 Delphi function IDE_GetObjectSource (ObjectType,
 ObjectOwner, ObjectName: PChar): PChar
 Returns the source for the specified object. This function will only return
 source for objects that actually have source (packages, views, …).

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetObjectSource)(char *ObjectType, char *ObjectOwner,
	char *ObjectName);

/*
 Delphi function IDE_GetWindowCount: Integer
 Returns the number of child windows in PL/SQL Developer. In
 combination with IDE_SelectWindow you can communicate with all child
 windows.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetWindowCount)();

/*
 Delphi function IDE_SelectWindow(Index: Integer): Bool
 This function will ‘select’ one of PL/SQL Developers child Windows.
 Index is the window number where 0 is the top child window. The return
 value will indicate if the window existed.
 Normally all window related functions communicate with the active child
 window. With this function you can select any window and all windowrelated
 IDE functions will refer to the selected window.
 Note:
 IDE_SelectWindow does not actually bring the window to front, you need
 IDE_ActivateWindow to do that.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SelectWindow)(int Index);

/*
 Delphi function IDE_ActivateWindow(Index: Integer): Bool
 Brings the Indexth child window with to front.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_ActivateWindow)(int Index);

/*
 Delphi function IDE_WindowIsModified: Bool
 Returns if the contents of the window is modified.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_WindowIsModified)();

/*
 Delphi function IDE_WindowIsRunning: Bool
 Returns if there is anything running in the current window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_WindowIsRunning)();

/*
 Delphi procedure IDE_SplashCreate(ProgressMax: Integer)
 Creates an empty splash screen (the one you see when PL/SQL
 Developer is starting or printing) which allows you to show some kind of
 progress on lengthy operations.
 If the ProgressMax parameter is larger then 0, a progress bar is
 displayed which you can advance with the IDE_SplashProgress function.
 Note:
 There can only be one splash screen active at a time. If a splash screen
 is created while one was active, the first one will get re-used.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SplashCreate)(int ProgressMax);

/*
 Delphi procedure IDE_SplashHide
 Hides the splash screen. This function will work on any splash screen,
 you can even hide the one created by PL/SQL Developer.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SplashHide)();

/*
 Delphi procedure IDE_SplashWrite(s: string)
 Add text to the splash screen.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SplashWrite)(char *s);

/*
 Delphi procedure IDE_SplashWriteLn(s: string)
 Add text to the splash screen beginning on the next line.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SplashWriteLn)(char *s);

/*
 Delphi procedure IDE_SplashProgress(Progress: Integer)
 If the splash screen was created with a progress bar, you can indicate
 progress with this function.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SplashProgress)(int Progress);

/*
 Delphi function IDE_TemplatePath: PChar
 This function returns the path where the templates are located.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_TemplatePath)();

/*
 Delphi function IDE_SetText(Text: PChar): Bool
 Sets the text in the editor of current window. If this failed for some reason
 (ReadOnly?), the function returns false.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SetText)(char *Text);

/*
 Delphi function IDE_SetStatusMessage(Text: PChar): Bool
 Places a message in the status bar of the current window, returns false if
 the window did not have a status bar.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SetStatusMessage)(char *Text);

/*
 Delphi function IDE_SetErrorPosition(Line, Col: Integer): Bool
 Highlights the given line and places the cursor at the given position.
 This will only work when the active window is a procedure window, if not,
 the function returns false.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SetErrorPosition)(int Line, int Col);

/*
 Delphi procedure IDE_ClearErrorPositions
 Resets the highlighted lines.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_ClearErrorPositions)();

/*
 Delphi function IDE_GetCursorWordPosition: Integer
 This function returns the location of the cursor in the word after a call to
 IDE_GetCursorWord. Possible return values:
 0: Unknown
 1: Cursor was at start of word
 2: Cursor was somewhere in the middle
 3: Cursor was at the end

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetCursorWordPosition)();

/*
 Delphi function IDE_Perform(Param Integer): Bool
 This function allows you to perform a specific action as if the menu item
 as specified in Param was selected. The following values are supported:
 1: Execute
 2: Break
 3: Kill
 4: Commit
 5: Rollback
 6: Print

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_Perform)(int Param);

/*
 Delphi function IDE_GetCustomKeywords: PChar
 Returns a list of all keywords as entered in the ‘custom keywords’ option
 in the Editor preference.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetCustomKeywords)();

/*
 Delphi procedure IDE_SetCustomKeywords(Keywords: PChar)
 Fills the custom keywords with the words in the Keywords parameter.
 Words should be separated by cr/lf. The currently used keywords will be
 overwritten.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SetCustomKeywords)(char *Keywords);

/*
 Delphi procedure IDE_SetKeywords(ID, Style: Integer;Keywords: PChar)
 Adds a number of keywords with a specific style.
 This function is more specific then IDE_SetCustomKeywords because
 this one can set multiple sets of keywords for different highlighting styles.
 ID should be the PlugIn ID as returned by the IdentifyPlugIn function.
 Style can be one of the following values:
 10: Custom
 11: Keywords
 12: Comment
 13: Strings
 14: Numbers
 15: Symbols
 Keywords is a cr/lf separated list of words. You can define one list per
 style.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SetKeywords)(int ID, int Style, char *Keywords);

/*
 Activates the keywords as defined by the IDE_SetKeywords function.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_ActivateKeywords)();

/*
 Delphi procedure IDE_RefreshMenus(ID: Integer)
 When this function is called, all menus for this Plug-In are removed and
 CreateMenuItem will be called to build a new set of menus. This only
 makes sense if you supply a different set of menu-items.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_RefreshMenus)(int ID);

/*
 Delphi procedure IDE_SetMenuName(ID, Index: Integer;Name: PChar)
 This function allows you to rename a certain menu-item.
 ID is the Plug-In ID, Index is the Menu number and name is the new
 menu name.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SetMenuName)(int ID, int Index, char *Name);

/*
 Delphi procedure IDE_SetMenuCheck(ID, Index: Integer;Enabled: Bool)
 You can display or remove a check mark for a menu-item.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SetMenuCheck)(int ID, int Index, BOOL Enabled);

/*
 Delphi procedure IDE_SetMenuVisible(ID, Index: Integer;Enabled: Bool)
 With this function you can hide or show a specific menu. You can use
 this instead of IDE_MenuState.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SetMenuVisible)(int ID, int Index, BOOL Enabled);

/*
 Delphi function IDE_GetMenulayout: PChar
 Returns a list of all standard PL/SQL Developer menu items. Items are
 separated by cr/lf and child menu level is indicated by a number of
 spaces.
 You can use this function to build an advanced user configuration dialog
 where the user could be able to select place where he wants to insert the
 Plug-In menus.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetMenulayout)();

/*
 Delphi procedure IDE_CreatePopupItem(ID, Index: Integer;Name, ObjectType: PChar)
 With this function you can add items to certain popup menus. The ID is
 the Plug-In ID and the index is the menu index. You can pass any
 number as the menu index, it can be an existing menu (as used by
 CreateMenuItem) or anything else. If the popup menu gets selected,
 OnMenuClick is called with the corresponding index.
 The Name is the menu name as it will be displayed. The ObjectType
 determines in which popup menus this item will be displayed. Some
 possible values are: ‘TABLE’, ‘VIEW’, ‘PACKAGE’, etc.
 Version 301 and higher
 If you pass one of the following values as ObjectType, you can add items
 to specific Windows.
 PROGRAMWINDOW
 SQLWINDOW
 TESTWINDOW
 COMMANDWINDOW
 Version 400 and higher
 You can add popup items to Object Browser items like Tables, Views,
 etc. by passing their name as ObjectType.
 Version 510 and higher
 If you want to create popup menus for multiple selected items (of the
 same object type), you can add a + to the ObjectType parameter like
 ‘TABLE+’, ‘VIEW+’, etc. The OnMenuClick will be called for every
 selected item, and the GetPopupObject will return the correct details.
 Version 700 and higher
 Supports Popup for the Session Window with the SESSIONWINDOW
 ObjectType. (see also IDE_GetSessionValue)
 Version 712 and higher
 Supports Popup for result grids with SQLRESULT
 Version 800 and higher
 Supports Popup for file browser with FILE

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void* (*IDE_CreatePopupItem)(int ID, int Index, char *Name,
	char *ObjectType);

/*
 Delphi function IDE_SetConnection(Username,
 Password, Database: PChar): Bool
 This function allows you to reconnect PL/SQL Developer as another
 user. The return value indicates if the connection was successful.
 The function will fail if there is a childwindow with an active query.
 Also see IDE_SetConnectionAs

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SetConnection)(char *Username, char *Password, char *Database);

/*
 Delphi procedure IDE_GetObjectInfo(AnObject: PChar;var ObjectType, ObjectOwner, ObjectName,
 SubObject: PChar)
 This function returns Oracle information about the item in the AnObject
 parameter. The SubObject returns the name of the procedure if the
 Object is a packaged procedure.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetObjectInfo)(char *AnObject, char **ObjectType,
	char **ObjectOwner, char **ObjectName, char **SubObject);

/*
 Delphi function IDE_GetBrowserItems(Node: PChar;GetItems: Bool): PChar
 Returns a cr/lf separated list of items from the Object Browser. The Node
 parameter determines which items are returned. This can be one of the
 main items like TABLES, but you can also us a slash to get more specific
 items like TABLES/DEPT/COLUMNS.
 The GetItems boolean determines if PL/SQL Developer will fetch these
 values from the database if the item has not been opened yet in the
 Browser.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetBrowserItems)(char *Node, BOOL GetItems);

/*
 Delphi function IDE_TranslateItems(Group: PChar): PChar
 Function for translating items.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_TranslateItems)(char *Group);

/*
 Delphi function IDE_TranslateString(ID, Default, Param1,
 Param2: PChar): PChar
 Function for translating items.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_TranslateString)(char *ID, char *Default, char Param1,
	char Param2);

/*
 Delphi function IDE_SaveRecoveryFiles: Bool
 PL/SQL Developer has a preference to save all opened files on a time
 interval, and/or when an Execute is performed. In case of a crash (from
 the system, Oracle or PL/SQL Dev), the user will be able to recover the
 edited files.
 If the Plug-In can do things that have a possible risk of causing a crash,
 you can call this function to protect the user’s work.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SaveRecoveryFiles)();

/*
 Delphi function IDE_GetCursorX: Integer
 Returns the (1 based) character position of the cursor in the current
 editor.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetCursorX)();

/*
 Delphi function IDE_GetCursorY: Integer
 Returns the (1 based) line position of the cursor in the current editor.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetCursorY)();

/*
 Delphi procedure IDE_SetCursor(X, Y: Integer)
 Set the cursor in the current editor. If the X or Y parameter is 0, the
 position will not change.
 This function will also update the position display in the statusbar.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SetCursor)(int X, int Y);

/*
 Delphi function SYS_Version: Integer
 Returns the PL/SQL Developer main and subversion, for example 210
 for version 2.1.0. This might be useful if you want to use functions that
 are not available in all versions.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*SYS_Version)();

/*
 Delphi function SYS_Registry: PChar
 Returns the registry root name of PL/SQL Developer in
 HKEY_CURRENT_USER (usually “Software\PL/SQL Developer”). If you
 want to save your settings in the registry, you can create a section within
 the PL/SQL Developer section.
 Note: In PL/SQL Developer 3.1, the registry section is moved to:
 (“Software\Allround Automations\PL/SQL Developer”)

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SYS_Registry)();

/*
 Delphi function SYS_RootDir: PChar
 The directory where PL/SQL Developer is installed, for example
 “C:\Program Files\PLSQL Developer”.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SYS_RootDir)();

/*
 Delphi function SYS_OracleHome: PChar
 The Oracle directory, for example “C:\Orawin95”

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SYS_OracleHome)();

/*
 Delphi function SYS_OCIDLL: PChar
 Returns the path of the OCI DLL that is used by PL/SQL Developer. If
 you want to initialize a new session, you might want to use this value if
 you want to make sure you’re using the same OCI version.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SYS_OCIDLL)();

/*
 Delphi function SYS_OCI8Mode: Bool
 Returns True if PL/SQL Developer is currently connected in OCI8 Mode
 (Net8).

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL* (*SYS_OCI8Mode)();

/*
 Delphi function SYS_XPStyle: Bool
 Returns if PL/SQL Developer is currently using the visual XP style.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL* (*SYS_XPStyle)();

/*
 Delphi function SYS_TNSNAMES(Param: PChar): PChar
 If Param is empty, the function will return the full tnsnames filename.
 If Param has a value, the connection details of the alias as specified by
 Param is returned. If Param is *, the connection details of the current
 connection are returned). The return value can look like:
 TEST =
 (DESCRIPTION =
 (ADDRESS_LIST =
 (ADDRESS = (PROTOCOL = TCP)(HOST = p2800)(PORT = 1521))
 )
 (CONNECT_DATA =
 (SERVER = DEDICATED)
 (SERVICE_NAME = AAA)
 )
 )

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SYS_TNSNAMES)(char *Param);

/*
 Delphi function SYS_DelphiVersion: Integer
 Returns the Delphi version used to build PL/SQL Developer. Only useful
 for very specific functions.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*SYS_DelphiVersion)();

/*
 Delphi procedure IDE_MenuState(ID, Index: Integer;Enabled: Bool)
 Use this function to enable or disable a menu. The ID is the Plug-In ID,
 which is given by the IdentifyPlugIn function. The Index is the menu
 index, which the menu was related to by the CreateMenuItem function.
 The Enabled boolean determines if the menu item is enabled or grayed.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_MenuState)(int ID, int Index, BOOL Enabled);

/*
 Delphi function IDE_Connected: Bool
 Returns a boolean that indicates if PL/SQL Developer is currently
 connected to a database.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_Connected)();

/*
 Delphi procedure IDE_GetConnectionInfo(var Username,
 Password, Database: PChar)
 Returns the username, password and database of the current
 connection.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_GetConnectionInfo)(char **Username, char **Password,
	char **Database);

/*
 Delphi procedure IDE_GetBrowserInfo(var ObjectType,
 ObjectOwner, ObjectName: PChar)
 Returns information about the selected item in the Browser. If no item is
 selected, all items are empty.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_GetBrowserInfo)(char **ObjectType, char **ObjectOwner,
	char **ObjectName);

/*
 Delphi function IDE_GetWindowType: Integer
 Returns the type of the current window.
 1 = SQL Window
 2 = Test Window
 3 = Procedure Window
 4 = Command Window
 5 = Plan Window
 6 = Report Window
 0 = None of the above

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetWindowType)();

/*
 Delphi function IDE_GetAppHandle: Integer
 Returns the Application handle of PL/SQL Developer

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetAppHandle)();

/*
 Delphi function IDE_GetWindowHandle: Integer
 Returns the handle of PL/SQL Developers main window

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetWindowHandle)();

/*
 Delphi function IDE_GetClientHandle: Integer
 Returns the handle of PL/SQL Developers client window

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetClientHandle)();

/*
 Delphi function IDE_GetChildHandle: Integer
 Returns the handle of the active child form

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetChildHandle)();

/*
 Delphi procedure IDE_Refresh
 Resets the state of the menus, buttons and the active window.
 You can call this function if you made some changes that affect the state
 of a menu or window which are unnoticed by PL/SQL Developer.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_Refresh)();

/*
 Delphi procedure IDE_CreateWindow(WindowType: Integer;Text: PChar; Execute: Bool)
 Creates a new window. The Text parameter contains text that is placed
 in the window. If the Execute Boolean is true, the Window will be
 executed.
 WindowType can be one of the following values:
 1 = SQL Window
 2 = Test Window
 3 = Procedure Window
 4 = Command Window
 5 = Plan Window
 6 = Report Window
 Version 800 and higher
 7 = HTML Window

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_CreateWindow)(int WindowType, char *Text, BOOL Execute);

/*
 Delphi function IDE_OpenFile(WindowType: Integer;Filename: PChar): Bool
 Creates a window of type WindowType and loads the specified file.
 WindowType can be one of the following values:
 1 = SQL Window
 2 = Test Window
 3 = Procedure Window
 4 = Command Window
 The function returns True if successful.
 Version 301 and higher
 If you pass 0 as WindowType, PL/SQL Developer will try to determine
 the actual WindowType on the extension of the filename.
 Version 800 and higher
 5 = Plan Window
 6 = Report Window
 7 = HTML Window

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_OpenFile)(int WindowType, char *Filename);

/*
 Delphi function IDE_SaveFile: Bool
 This function saves the current window. It returns True if successful.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SaveFile)();

/*
 Delphi function IDE_Filename: PChar
 Return the filename of the current child window.
 See also IDE_SetFilename()

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_Filename)();

/*
 Delphi procedure IDE_CloseFile
 Closes the current child window

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_CloseFile)();

/*
 Delphi procedure IDE_SetReadOnly(ReadOnly: Bool)
 Set the ReadOnly status of the current Window

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SetReadOnly)(BOOL ReadOnly);

/*
 Delphi function IDE_ReloadFile: Bool
 Forces the active child window to reload its file from disk.
 Note: In PL/SQL Developer 4 there will no longer be a warning message
 when modifications were made.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_ReloadFile)();

/*
 Delphi procedure IDE_SetFilename(Filename: PChar)
 Set the filename of the active child window. The filename should contain
 a valid path, but the file does not need to exist. The new filename will be
 used when the file is saved.
 If the Filename parameter is an empty string, the Window will behave as
 a new created Window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_SetFilename)(char *Filename);

/*
 Delphi function IDE_GetText: PChar
 Retrieves the text from the current child window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetText)();

/*
 Delphi function IDE_GetSelectedText: PChar
 Retrieves the selected text from the current child window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetSelectedText)();

/*
 Delphi function IDE_GetCursorWord: PChar
 Retrieves the word the cursor is on in the current child window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetCursorWord)();

/*
 Delphi function IDE_GetEditorHandle: Integer
 Returns the handle of the editor of the current child window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetEditorHandle)();

/*
 Delphi function IDE_Authorized(Category, Name, SubName:
 PChar): Bool
 In PL/SQL Developer 6 we introduced the concept of Authorization. You
 should test if a specific feature is allowed for the current user with this
 function. In the Category parameter you can specify one of the main
 categories (objects, menus, system). The name parameter specifies the
 item (session.kill or objects.drop). Some items have a subname, like
 objects.drop with the different objects.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_Authorized)(char *Category, char *Name, char *SubName);

/*
 Delphi function IDE_WindowAllowed(WindowType: Integer;ShowErrorMessage: Bool): Bool
 For a quick check if authorization allows the Plug-In to create a specific
 function, you can use this function.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_WindowAllowed)(int WindowType, BOOL ShowErrorMessage);

/*
 Delphi function IDE_Authorization: Bool
 Returns if authorization is enabled or not.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_Authorization)();

/*
 Delphi function IDE_AuthorizationItems(Category: PChar):
 PChar
 If you want a list off all available authorization items, you can call this
 function. It will return a cr/lf separated list.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_AuthorizationItems)(char *Category);

/*
 Delphi procedure IDE_AddAuthorizationItem(PlugInID: Integer;Name: PChar)
 If you want to add items to the authorization list to allow them to be
 managed through the authorization option, you can use this function.
 Pass the PlugInID to identify your Plug-In, and pass the Name parameter
 with the item you want to add. The name should be unique, so you
 should prefix it with the name the Plug-In, for example:
 MyPlugIn.Create New Command
 All items will be added in the PlugIns category, so if you want to
 test if this feature is allowed you should call:
 IDE_Authorized('PlugIns ', ' MyPlugIn.Create New Command')

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*IDE_AddAuthorizationItem)(int PlugInID, char *Name);

/*
 Delphi function IDE_GetPersonalPrefSets: PChar
 Returns a list of all personal preference sets.
 If you to have the Plug-In to use different preferences depending on the
 current connection, you can use this function to build a list of possible
 preference sets.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetPersonalPrefSets)();

/*
 Delphi function IDE_GetDefaultPrefSets: PChar
 Returns a list of all default preference sets.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetDefaultPrefSets)();

/*
 Delphi function IDE_GetPrefAsString(PlugInID: Integer; PrefSet,
 Name: PChar; Default: PChar): PChar
 Read a Plug-In preference from the preferences. In PL/SQL Developer
 6, personal preferences are stored in files, not in the registry. You can
 still use the registry, but if you want to store your preferences in a shared
 location, you can use this function.
 Pass the PlugInID you received with the IdentifyPlugIn call. The PrefSet
 parameter can be empty to retrieve default preferences, or you can
 specify one of the existing preference sets.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetPrefAsString)(int PlugInID, char *PrefSet, char *Name,
	char *Default);

/*
 Delphi function IDE_GetPrefAsInteger(PlugInID: Integer;PrefSet, Name: PChar; Default: Integer): Integer
 As IDE_GetPrefAsString, but for integers.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetPrefAsInteger)(int PlugInID, char *PrefSet, char *Name,
	BOOL Default);

/*
 Delphi function IDE_GetPrefAsBool(PlugInID: Integer; PrefSet,
 Name: PChar; Default: Bool): Bool
 As IDE_GetPrefAsString, but for booleans.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_GetPrefAsBool)(int PlugInID, char *PrefSet, char *Name,
	BOOL Default);

/*
 Delphi function IDE_SetPrefAsString(PlugInID: Integer; PrefSet,
 Name: PChar; Value: PChar): Bool
 Set a Plug-In preference. Pass the PlugInID you received with the
 IdentifyPlugIn call. The PrefSet parameter can be empty to set default
 preferences, or you can specify one of the existing preference sets. The
 return value indicates if the function succeeded.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SetPrefAsString)(int PlugInID, char *PrefSet, char *Name,
	char *Value);

/*
 Delphi function IDE_SetPrefAsInteger(PlugInID: Integer;PrefSet, Name: PChar; Value: Integer): Bool
 As IDE_SetPrefAsString, but for integers.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SetPrefAsInteger)(int PlugInID, char *PrefSet, char *Name,
	int Value);

/*
 Delphi function IDE_SetPrefAsBool(PlugInID: Integer; PrefSet,
 Name: PChar; Value: Bool): Bool
 As IDE_SetPrefAsString, but for booleans.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_SetPrefAsBool)(int PlugInID, char *PrefSet, char *Name,
	BOOL Value);

/*
 Delphi function IDE_GetGeneralPref(Name: PChar): PChar
 Returns the value of a preference. The names can be found in the
 preference ini file under the [Preferences] section.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetGeneralPref)(char *Name);

/*
 Delphi function SQL_GetDBMSGetOutput: PChar
 Returns sys.dbms_output for the current (PlugIn specific) session.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SQL_GetDBMSGetOutput)();

/*
 Delphi procedure SQL_SetVariable(Name, Value: PChar)
 This function declares a variable. Call this for al variables you use in the
 statement you pass in SQL_Execute.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*SQL_SetVariable)(char *Name, char *Value);

/*
 Delphi function SQL_GetVariable(Name: PChar): PChar
 This function will return the value of a variable.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SQL_GetVariable)(char *Name);

/*
 Delphi procedure SQL_ClearVariables
 Clear all declared variables. If you are finished doing a query it is a good
 idea to call this function to prevent errors for the next execute.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*SQL_ClearVariables)();

/*
 Delphi function IDE_GetReadOnly: Bool
 Get the ReadOnly status of the current Window

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_GetReadOnly)();

/*
 Delphi function IDE_ExecuteSQLReport(SQL: PChar;Title: PChar; Updateable: Bool): Bool
 This function will execute a query (SQL parameter) and display the result
 in a ‘result only’ SQL Window. Title will be used as the window name and
 the Updateable parameter determines if the results are updateable.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_ExecuteSQLReport)(char *SQL, char *Title, BOOL Updateable);

/*
 Delphi function IDE_PlugInSetting(PlugInID: Integer; Setting,
 Value: PChar): Bool
 Make a Plug-In specific setting:
 NOFILEDATECHECK TRUE|FALSE
 Determines if PL/SQL Developer checks for changes in files
 (default true)
 CHARMODE ANSI|UTF8|UTF8BOM
 Determines how PChar parameters are passed through the Plug-In
 interface. Since version 7.1 supports editing of Unicode, but the interface
 only supports normal characters, you can choose to support UTF8
 encoding. The UTF8BOM encoding will precede the characters with a
 BOM indicator when text contains Unicode.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_PlugInSetting)(int PlugInID, char *Setting, char *Value);

/*
 Delphi IDE_GetProcOverloadCount(Owner, PackageName,
 ProcedureName: PChar): Integer
 Returns the number of overloads for a specific procedure.
 Result < 0 = Procedure doesn't exist
 Result > 0 = overload count

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_GetProcOverloadCount)(char *Owner, char *PackageName,
	char *ProcedureName);

/*
 Delphi IDE_SelectProcOverloading(Owner, PackageName,
 ProcedureName: PChar): Integer
 Shows a dialog to allow the user to select an overloaded procedure.
 Result < 0 = Cancel
 Result 0 = No overloadings
 Result > 0 = Overload index

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*IDE_SelectProcOverloading)(char *Owner, char *PackageName,
	char *ProcedureName);

/*
 Delphi function IDE_GetSessionValue(Name: PChar): PChar
 This function will return one of the Session parameters as you see in the
 grid of the session tool. You will only get a result if the Session Window
 is active, so this will only work from a Popup menu created for the
 SESSIONWINDOW object.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*IDE_GetSessionValue)(char *Name);

/*
 Delphi function IDE_CheckDBVersion(Version: PChar): Boolean
 You can use this function to check if the database is equal or higher then
 the specified version. The parameter should be in the format aa.bb, like
 09.02 or 10.00.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*IDE_CheckDBVersion)(char *Version);

/*
 Delphi function SQL_Execute(SQL: PChar): Integer
 Executes the statement defined in the SQL parameter. The function
 returns 0 if successful, else the Oracle error number.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*SQL_Execute)(char *SQL);

/*
 Delphi function SQL_FieldCount: Integer
 Returns the number of fields after a SQL_Execute.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*SQL_FieldCount)();

/*
 Delphi function SQL_Eof: Bool
 Returns if there are any more rows to fetch.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*SQL_Eof)();

/*
 Delphi function SQL_Next: Integer
 Returns the next row after a SQL_Execute. The function returns 0 if
 successful, else the Oracle error number.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*SQL_Next)();

/*
 Delphi function SQL_Field(Field: Integer): PChar
 Returns the field specified by the Field parameter.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SQL_Field)(int Field);

/*
 Delphi function SQL_FieldName(Field: Integer): PChar
 Returns the fieldname specified by the Field parameter.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SQL_FieldName)(int Field);

/*
 Delphi function SQL_FieldIndex(Name: PChar): Integer
 Converts a fieldname into an index, which can be used in the SQL_Field,
 SQL_FieldName and SQL_FieldType functions. If the field does not
 exist, the return value is -1.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*SQL_FieldIndex)(char *Name);

/*
 Delphi function SQL_FieldType(Field: Integer): Integer
 Return the fieldtype of a field.
 3 = otInteger
 4 = otFloat
 5 = otString
 8 = otLong
 12 = otDate
 24 = otLongRaw

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern int(*SQL_FieldType)(int Field);

/*
 Delphi function SQL_ErrorMessage: PChar
 This function will return the error message for any error that occurred
 during:
 SQL_Execute
 SQL_Eof
 SQL_Next
 IDE_SetConnection

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern char* (*SQL_ErrorMessage)();

/*
 Delphi function SQL_UsePlugInSession(PlugInID: Integer): Bool
 Normally, the SQL functions will use the main PL/SQL Developer Oracle
 session. If you want to make sure you don’t interfere with other
 transactions, and you want the PlugIn to use a private session, call this
 function.
 The return value indicates if the function succeeded.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*SQL_UsePlugInSession)(int PlugInID);

/*
 Delphi procedure SQL_UseDefaultSession(PlugInID: Integer)
 This function will cancel the previous function and set the Oracle session
 back to default.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern void(*SQL_UseDefaultSession)(int PlugInID);

/*
 Delphi function SQL_CheckConnection: Bool
 Forces PL/SQL Developer to check if the current connection to the
 database is still open (and tries a re-connect if necessary). The return
 value indicates if there is a connection.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:37:20 $

 */
extern BOOL(*SQL_CheckConnection)();

/****************************************************************************** /
/*All enent functions declare */

/*
 Delphi function IdentifyPlugIn(ID: Integer): PChar
 This function receives a Plug-In ID from PL/SQL Developer and should return a
 description for the Plug-In. The returned description should be unique for your Plug-In
 and will be displayed in the Plug-In configuration dialog. The ID identifies your Plug-In
 and can be used in other callback functions.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* IdentifyPlugIn(int ID);

/*
 Delphi function CreatMenuItem(Index: Integer): PChar
 This function will be called with an Index ranging from 1 to 99. For every Index you
 can return a string that creates a new menu-item in PL/SQL Developer.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* CreateMenuItem(int Index);

/*
 Delphi procedure OnMenuClick(Index: Integer)
 This function is called when a user selected a menu-item created with the
 CreateMenuItem function and the Index parameter has the value (1 to 99) it is related
 to.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnMenuClick(int Index);

/*
 Delphi procedure OnCreate
 This function is called when the Plug-In is loaded into memory. You can use it to do
 some one-time initialization. PL/SQL Developer is not logged on yet and you can’t
 use the callback functions, so you are limited in the things you can do.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnCreate();

/*
 Delphi procedure OnActivate
 OnActivate gets called after OnCreate. However, when OnActivate is called PL/SQL
 Developer and the Plug-In are fully initialized. This function is also called when the
 Plug-In is enabled in the configuration dialog. A good point to enable/disable menus.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnActivate();

/*
 Delphi procedure OnDeactivate
 This is the counterpart of the OnActivate. It is called when the Plug-In is de-activated
 in the configuration dialog.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnDeactivate();

/*
 Delphi procedure OnDestroy
 This is the counterpart of the OnCreate. You can dispose of anything you created in
 the OnCreate.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnDestroy();

/*
 Delphi function CanClose: Bool
 This will be called when PL/SQL Developer is about to close. If your PlugIn is not
 ready to close, you can show a message and return False.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
BOOL CanClose();

/*
 Delphi procedure AfterStart
 Called after all Plug-Ins are loaded and PL/SQL Developer is finished starting.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void AfterStart();

/*
 Delphi procedure OnBrowserChange
 If your Plug-In depends on a selected item in the Browser, you can use this function
 to enable/disable menu-items. This function is called on every change in the Browser.
 You can use the IDE_GetBrowserInfo callback function to determine if the selected
 item is of interest to you.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnBrowserChange();

/*
 Delphi procedure OnWindowChange
 This function is called if PL/SQL Developer child windows change focus. You can use
 the IDE_GetWindowType callback to determine the active child window type.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnWindowChange();

/*
 Delphi procedure OnWindowCreate(WindowType: Integer)
 This function is called directly after a new window is created.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnWindowCreate(int WindowType);

/*
 Delphi procedure OnWindowCreated(WindowType: Integer)
 This function is called after a new window is created. The difference with the “Create”
 function is that the Window is now completely initialized.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnWindowCreated(int WindowType);

/*
 Delphi function OnWindowClose(WindowType: Integer; Changed: BOOL):
 Integer
 This function allows you to take some action before a window is closed. You can
 influence the closing of the window with the following return values:
 0 = Default behavior
 1 = Ask the user for confirmation (like the contents was changed)
 2 = Don’t ask, allow to close without confirmation
 The Changed Boolean indicates the current status of the window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
int OnWindowClose(int WindowType, BOOL Changed);

/*
 Delphi function BeforeExecuteWindow(WindowType: Integer): Bool
 This function is called before a Window is executed. Nothing is actually executed yet,
 and you can cancel execution by returning false. When you do return false, please
 give some feedback to the user why execution was cancelled.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
BOOL BeforeExecuteWindowe(int WindowType);

/*
 Delphi procedure AfterExecuteWindow(WindowType, Result: Integer)
 When execution is finished, this function is called. The return parameter will indicate
 how execution finished:
 0 = Finished with error
 1 = Finished with the option to continue (like “next page” in the SQL Window)
 2 = Finished successfully

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void AfterExecuteWindow(int WindowType, int Result);

/*
 Delphi procedure OnConnectionChange
 This function is called when the user logs on to a different database or logs off. You
 can use the IDE_Connected and IDE_GetConnectionInfo callback to get information
 about the current connection.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnConnectionChange();

/*
 Delphi procedure OnPopup(ObjectType, ObjectName: PChar)
 This function is called when a context sensitive popup is about to be displayed. It
 gives you the opportunity to do something with the menus you have created with the
 IDE_CreatePopupMenuItem callback.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnPopup(char *ObjectType, char *ObjectName);

/*
 Delphi procedure OnMainMenu(MenuName: PChar)
 This function is called when a main menu is selected (when it drops down). You can
 use this event to activate your Plug-In menu(s) if none of the other events are
 appropriate. The MenuName parameter is the name of the main menu item that was
 selected.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnMainMenu(char *MenuName);

/*
 Delphi function OnTemplate(Filename: PChar; var Data: PChar): Bool
 This function is called before a template is executed. This gives you a chance to
 modify the contents in the Data parameter. If you return false, the template is
 cancelled.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
BOOL OnTemplate(char *Filename, char **Data);

/*
 Delphi procedure OnFileLoaded(WindowType, Mode: Integer)
 Called after a file is loaded. The mode parameter can identify the following:
 1: recovery file (from a crash)
 2: backup file (normal file backup with a ~ extension)

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnFileLoaded(int WindowType, int Mode);

/*
 Delphi procedure OnFileSaved(WindowType, Mode: Integer)
 Called after a file is saved. The mode parameter can identify the following:
 1: recovery file (from a crash)
 2: backup file (normal file backup with a ~ extension)

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void OnFileSaved(int WindowType, int Mode);

/*
 Delphi function About: PChar
 This function allows you to display an about dialog. You can decide to display a
 dialog yourself (in which case you should return an empty text) or just return the
 about text.
 In PL/SQL Developer 3.1 there is an about button in the Plug-In configuration dialog.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* About();

/*
 Delphi procedure Configure
 If the Plug-In has a configure dialog you could use this function to activate it. This will
 allow a user to configure your Plug-In using the configure button in the Plug-In
 configuration dialog.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void Configure();

/*
 Delphi procedure CommandLine(FeedbackHandle: Integer; Command,
 Params: PChar)
 You can use this function if you want the Plug-In to be able to accept commands from
 the command window.
 See IDE_CommandFeedback for how to return messages to the command window.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void CommandLine(int FeedbackHandle, char *Command, char *Params);

/*
 Delphi function PlugInName: PChar
 The PlugIn name (if defined) will be used for online updates, and as name for
 command window PlugIn commands. If you want your PlugIn to be handled by online
 updates, please contact support.
 If this function is not defined, the PlugInName will be the dll filename.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* PlugInName();

/*
 Delphi function PlugInSubName: PChar
 The subname will be added to the PlugInName. Possible values are ‘Trial’ or ‘Beta’.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* PlugInSubName();

/*
 Delphi function PlugInShortName: PChar
 The short name is specifically for command window PlugIn commands. This allows
 you to specify a name that can be entered quickly.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* PlugInShortName();

/*
 Delphi function RegisterFileSystem: PChar
 Use this function if you want your Plug-In to load/save files somewhere ‘external’. If
 you use this function you should return a description that identifies your filesystem
 (like FTP for the FTP Plug-in).
 See the chapter about External File Systems.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* RegisterFileSystem();

/*
 Delphi function DirectFileLoad: function(var Tag, Filename: PChar;WindowType: Integer): PChar
 This function will get called when a file will be directly loaded without a file dialog.
 This is needed if a user selects a file from the recent used files list.
 The Parameters indicate the file that you have to load and the return value is the file
 data.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* DirectFileLoad();

/*
 Delphi function DirectFileSave(var Tag, Filename: PChar; Data: PChar;WindowType: Integer): Bool
 This function will be called when ‘File Save’ is selected (not ‘File Save As…).
 You should save the data as specified in the parameters and return True if everything
 was successful.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
BOOL DirectFileSave();

/*
 Delphi function RegisterExport: PChar
 Use this function if you want to add an export option for (result) grids. The name you
 return will be the name that is displayed in the popup menus (next to html, xml, …).
 See the chapter about adding export options.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
char* RegisterExport();

/*
 Delphi function ExportInit: Boolean
 First call after an export request.
 You can ask the user for a filename and/or initialize variables.
 Return False if you want to cancel the export.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
BOOL ExportInit();

/*
 Delphi procedure ExportFinished;The export has finished.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void ExportFinished();

/*
 Delphi function ExportPrepare: Boolean
 This function allows you to prepare for the actual data.
 All values received with Exportdata before this function is called are column headers,
 and all values received after ExportPrepare is data.
 The return value allows you to signal if the prepare was processed correctly.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
BOOL ExportPrepare();

/*
 Delphi function ExportData(Value: PChar): Boolean
 One cell of data, this can be the column description or the actual data.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
BOOL ExportData(char *Value);

/*
 Delphi procedure RegisterCallback(Index: Integer; Addr: Pointer)
 There are several functions in PL/SQL Developer that you can use from your Plug-In.
 With this function you can get access to the callback functions you need.
 The Index is related to a specific callback function while the Addr parameter holds the
 address to this function.

 $ Scratch by Jianwen Luo at: 2011-03-14 10:41:16 $

 */
void RegisterCallback(int Index, void *Addr);

#endif	//__PLUGIN_H__

插件的脚本实现框架示例，此处为自己开发的一个小功能，通过Oracle的数据字典表得到表结构的个性化文本配置信息。

plugInID	=	0	--Identify of plugin specified by IDE

-- Tab type returned by IDE_TabInfo() 
 PLSQL_TT_FUNCTION	 = 	"Function"
 PLSQL_TT_PROCEDURE	 = 	"Procedure"
 PLSQL_TT_TRIGGER	 = 	"Trigger"
 PLSQL_TT_JAVA_SOURCE	 = 	"Java source"
 PLSQL_TT_PACKAGE_SPEC	 = 	"Package"
 PLSQL_TT_PACKAGE_BODY	 = 	"Package body"
 PLSQL_TT_TYPE_SPEC	 = 	"Type"
 PLSQL_TT_TYPE_BODY	 = 	"Type body"

-- window type 
 PLSQL_WT_UNKNOWN	 = 	0
 PLSQL_WT_SQL	 = 	1
 PLSQL_WT_TEST	 = 	2
 PLSQL_WT_PROCEDURE	 = 	3
 PLSQL_WT_COMMAND	 = 	4
 PLSQL_WT_PLAN	 = 	5
 PLSQL_WT_REPORT	 = 	6

-- Cursor word position 
 PLSQL_CWP_UNKNOWN	 = 	0
 PLSQL_CWP_CURSOR_START_WORD	 = 	1
 PLSQL_CWP_CURSOR_WORD	 = 	2
 PLSQL_CWP_CURSOR_END_WORD	 = 	3

-- Perform 
 PLSQL_PERFORM_EXECUTE	 = 	1
 PLSQL_PERFORM_BREAK	 = 	2
 PLSQL_PERFORM_KILL	 = 	3
 PLSQL_PERFORM_COMMIT	 = 	4
 PLSQL_PERFORM_ROLLBACK	 = 	5
 PLSQL_PERFORM_PRINT	 = 	6

-- Keyword style 
 PLSQL_KWS_CUSTOM	 = 	10
 PLSQL_KWS_KEYWORDS	 = 	11
 PLSQL_KWS_COMMENT	 = 	12
 PLSQL_KWS_STRINGS	 = 	13
 PLSQL_KWS_NUMBERS	 = 	14
 PLSQL_KWS_SYMBOLS	 = 	15

-- Popup 
 PLSQL_POPUP_PROGRAMWINDOW	 = 	"PROGRAMWINDOW"
 PLSQL_POPUP_SQLWINDOW	 = 	"SQLWINDOW"
 PLSQL_POPUP_TESTWINDOW	 = 	"TESTWINDOW"
 PLSQL_POPUP_COMMANDWINDOW	 = 	"COMMANDWINDOW"

-- Refresh object 
 PLSQL_REFRESH_OBJECT_CREATED	 = 	1
 PLSQL_REFRESH_OBJECT_MODIFIED	 = 	2
 PLSQL_REFRESH_OBJECT_DELETED	 = 	3

-- Key simulation 
 PLSQL_KP_SHIFT	 = 	1
 PLSQL_KP_ALT	 = 	2
 PLSQL_KP_CTRL	 = 	3

-- Beautifier options 
 PLSQL_BO_AfterCreating	 = 	1
 PLSQL_BO_AfterLoading	 = 	2
 PLSQL_BO_BeforeCompiling	 = 	4
 PLSQL_BO_BeforeSaving	 = 	8

-- SQL field type 
 PLSQL_FT_Integer	 = 	3
 PLSQL_FT_Float	 = 	4
 PLSQL_FT_String	 = 	5
 PLSQL_FT_Long	 = 	8
 PLSQL_FT_Date	 = 	12
 PLSQL_FT_LongRaw	 = 	24
 
-- WindowType can be one of the following values
WINDOWTYPE_SQL_WINDOW	=	1
WINDOWTYPE_TEST_WINDOW	=	2
WINDOWTYPE_PROCEDURE_WINDOW	=	3
WINDOWTYPE_COMMAND_WINDOW	=	4
WINDOWTYPE_PLAN_WINDOW	=	5
WINDOWTYPE_REPORT_WINDOW	=	6
WINDOWTYPE_HTML_WINDOW	=	7

--Define oracle object types
OBJECT_TYPE_TABLE		=	"TABLE"
OBJECT_TYPE_VIEW		=	"VIEW"
OBJECT_TYPE_FUNCTION	=	"FUNCTION"
OBJECT_TYPE_PROCEDURE	=	"PROCEDURE"
OBJECT_TYPE_PACKAGE		=	"PACKAGE"

OBJECT_TYPE_TABLE_MULSEL		=	"TABLE+"
OBJECT_TYPE_VIEW_MULSEL		=	"VIEW+"
OBJECT_TYPE_FUNCTION_MULSEL	=	"FUNCTION+"
OBJECT_TYPE_PROCEDURE_MULSEL	=	"PROCEDURE+"

--Predefine menu indexes
MENU_DDL_TRUCATE		=	11
MENU_DDL_TABSRC_EXP		=	12
MENU_DML_TABREC_EXP		=	13
MENU_UTL_TAB_EXP		=	14
MENU_UTL_CONNINFO		=	15
MENU_UTL_PMSMETA		=	16
MENU_UTL_SAVESRC		=	17
MENU_UTL_TAB_BAK		=	18

--Predefine menu separator
MENU_SEPARATOR_1	=	1
MENU_SEPARATOR_2	=	2
MENU_SEPARATOR_3	=	3
MENU_SEPARATOR_4	=	4
MENU_SEPARATOR_5	=	5
MENU_SEPARATOR_6	=	6
MENU_SEPARATOR_7	=	7
MENU_SEPARATOR_8	=	8
MENU_SEPARATOR_9	=	9
MENU_SEPARATOR_10	=	10
 
--[[
Delphi function IdentifyPlugIn(ID: Integer): PChar
This function receives a Plug-In ID from PL/SQL Developer and should return a
description for the Plug-In. The returned description should be unique for your Plug-In
and will be displayed in the Plug-In configuration dialog. The ID identifies your Plug-In
and can be used in other callback functions.
--]]
function IdentifyPlugIn(ID)
--Add your code here
--ShowMessage("IdentifyPlugIn is called in lua script.")
	plugInID=ID
	return "Yet Another Plug-In 0.0.1"
end


--[[
Delphi function CreatMenuItem(Index: Integer): PChar
This function will be called with an Index ranging from 1 to 99. For every Index you
can return a string that creates a new menu-item in PL/SQL Developer.
--]]
function CreateMenuItem(Index)
--Add your code here
--ShowMessage("CreateMenuItem is called in lua script.")
	--Add a bundle of Yap menu ...
	local Result=""
	if Index == MENU_SEPARATOR_1 then
		Result = "Tools / -"
	elseif Index == MENU_UTL_CONNINFO then
		Result = "Tools / Yap / Connection information"
	elseif	Index == MENU_SEPARATOR_2 then
		Result = "Tools / -"
	end
	return Result	
end


--[[
Delphi procedure OnMenuClick(Index: Integer)
This function is called when a user selected a menu-item created with the
CreateMenuItem function and the Index parameter has the value (1 to 99) it is related
to.
--]]
function OnMenuClick(Index)
--Add your code here
--ShowMessage("OnMenuClick is called in lua script.")
	--Response for Truncate menu
	if Index==MENU_DDL_TRUCATE then
		objectType,objectOwner,objectName,subObject,retCode=IDE_GetPopupObject()
		if objectType == OBJECT_TYPE_TABLE then
			if 1 == ShowMessageOption("Truncate selected table "..objectOwner.."."..objectName..", are you sure?") then
				sqlStr="truncate table "..objectOwner.."."..objectName
				errCode = SQL_Execute(sqlStr)
				if  errCode ~= 0 then
					ShowMessage(SQL_ErrorMessage())
				end
			end
		end
	end	
	
	--Response for connection information
	if Index==MENU_UTL_CONNINFO then
		if IDE_Connected() then
			userName,passWord,dataBase=IDE_GetConnectionInfo()
			asRole=IDE_GetConnectAs()
			if asRole=="" then
				asRole="Normal"
			end
			ShowMessage("Connected by "..userName.."/"..passWord.."@"..dataBase.." as "..asRole)
		else
			ShowMessage("Not connected")
		end
	end
	
	--Response for PMS Meta export
	if Index==MENU_UTL_PMSMETA then
		objectType,objectOwner,objectName,subObject,retCode=IDE_GetPopupObject()
		if objectType == OBJECT_TYPE_TABLE then
			fileName=GetSaveFileName("Text File (*.txt)\0*.txt\0All File (*.*)\0*.*\0\0",objectName..".txt")
			if fileName~=nil and fileName~="" then
				ofd=io.open(fileName,"w")
				if ofd==nil then
					ShowMessage("Can not open specified file.")
				else					
					result=WirtePMSMeta(objectOwner,objectName,ofd)					
					if result==nil then
						ShowMessage("Can not write specified file.")
					end
					ofd:close()
				end
			end
		end
	end
	
	--Response for export table DDL (Simple)
	if Index==MENU_DDL_TABSRC_EXP then
		objectType,objectOwner,objectName,subObject,retCode=IDE_GetPopupObject()
		if objectType == OBJECT_TYPE_TABLE then
			fileName=GetSaveFileName("SQL File (*.sql)\0*.sql\0All File (*.*)\0*.*\0\0",objectName..".sql")
			if fileName~=nil and fileName~="" then
				ofd=io.open(fileName,"w")
				if ofd==nil then
					ShowMessage("Can not open specified file.")
				else
					result=ExportTableSimpleDDL(objectOwner,objectName,ofd)
					if result == nil or string.len(result) == 0 then
						ShowMessage("Can not found source of specified object.")
					end
					ofd:close()
				end
			end
		end
	end
	
	--Response for export table records
	if Index==MENU_DML_TABREC_EXP then
		objectType,objectOwner,objectName,subObject,retCode=IDE_GetPopupObject()
		if objectType == OBJECT_TYPE_TABLE then
			fileName=GetSaveFileName("SQL File (*.sql)\0*.sql\0All File (*.*)\0*.*\0\0",objectName..".sql")
			if fileName~=nil and fileName~="" then
				ofd=io.open(fileName,"w")
				if ofd==nil then
					ShowMessage("Can not open specified file.")
				else
					result=ExportTableRecords(objectOwner,objectName,ofd)
					if result == nil then
						ShowMessage("Can not create data of specified object.")
					end
					ofd:close()
				end
			end
		end
	end
	
	--Response for export table DDL and records
	if Index==MENU_UTL_TAB_EXP then
		objectType,objectOwner,objectName,subObject,retCode=IDE_GetPopupObject()
		if objectType == OBJECT_TYPE_TABLE then
			fileName=GetSaveFileName("SQL File (*.sql)\0*.sql\0All File (*.*)\0*.*\0\0",objectName..".sql")
			if fileName~=nil and fileName~="" then
				ofd=io.open(fileName,"w")
				if ofd==nil then
					ShowMessage("Can not open specified file.")
				else
					result=ExportTableSimpleDDL(objectOwner,objectName,ofd)
					if result == nil then
						ShowMessage("Can not found source of specified object.")
					end
					result=ExportTableRecords(objectOwner,objectName,ofd)
					if result == nil then
						ShowMessage("Can not create data of specified object.")
					end
					ofd:close()
				end
			end
		end
	end
	
	--Response for save source as file
	if Index==MENU_UTL_SAVESRC then
		objectType,objectOwner,objectName,subObject,retCode=IDE_GetPopupObject()		
		fileName=GetSaveFileName("SQL File (*.sql)\0*.sql\0All File (*.*)\0*.*\0\0",objectName..".sql")
		if fileName~=nil and fileName~="" then
			ofd=io.open(fileName,"w")
			if ofd==nil then
				ShowMessage("Can not open specified file.")
			else
				IDE_SplashCreate(100)
				IDE_SplashWriteLn("Save "..objectOwner.."."..objectName.." source to file '"..fileName.."'")
				IDE_SplashProgress(50)
				result=IDE_GetObjectSource(objectType,objectOwner,objectName)
				IDE_SplashProgress(80)
				if result == nil or string.len(result) == 0 then
					ShowMessage("Can not found source of specified object.")
				else
					ofd:write(result)
				end
				ofd:flush()
				ofd:close()
				IDE_SplashWriteLn("Completed")
				IDE_SplashProgress(100)
				IDE_SplashHide()
			end
		end
	end
	
	--Backup table data
	if Index==MENU_UTL_TAB_BAK then
		objectType,objectOwner,objectName,subObject,retCode=IDE_GetPopupObject()
		if objectType == OBJECT_TYPE_TABLE then
			sqlStr="select to_char(sysdate,'yyyymmdd') rq from dual"			
			if SQL_Execute(sqlStr) ~= 0 then
				ShowMessage("Could not execute query to get sysdate infomation!")
			else
				dateStr=SQL_Field(SQL_FieldIndex("RQ"))
				if dateStr == nil or string.len(dateStr) == 0 then
					ShowMessage("Sysdate string is invalid!")
				else
					sqlStr="create table "..string.upper(objectOwner).."."..string.upper(objectName).."_"..dateStr.." as select * from "..string.upper(objectOwner).."."..string.upper(objectName)
					option=ShowMessageOption("Create a temporary table to store object's data, sure?\nSQL:"..sqlStr)
					if option == 1 then
						if SQL_Execute(sqlStr) ~= 0 then
							ShowMessage("Create temporary table fault\n"..SQL_ErrorMessage())
						end
					end
				end
			end
		end
	end	
end


--[[
Delphi procedure OnCreate
This function is called when the Plug-In is loaded into memory. You can use it to do
some one-time initialization. PL/SQL Developer is not logged on yet and you can’t
use the callback functions, so you are limited in the things you can do.
--]]
function OnCreate()
--Add your code here
--ShowMessage("OnCreate is called in lua script.")
end


--[[
Delphi procedure OnActivate
OnActivate gets called after OnCreate. However, when OnActivate is called PL/SQL
Developer and the Plug-In are fully initialized. This function is also called when the
Plug-In is enabled in the configuration dialog. A good point to enable/disable menus.
--]]
function OnActivate()
--Add your code here
--ShowMessage("OnActivate is called in lua script.")
	--Add Truncate popup menu
	IDE_CreatePopupItem(plugInID,MENU_DDL_TRUCATE,"Truncate",OBJECT_TYPE_TABLE)
	IDE_CreatePopupItem(plugInID,MENU_UTL_PMSMETA,"PMS metadata",OBJECT_TYPE_TABLE)
	IDE_CreatePopupItem(plugInID,MENU_DDL_TABSRC_EXP,"Save DDL as",OBJECT_TYPE_TABLE)
	IDE_CreatePopupItem(plugInID,MENU_DML_TABREC_EXP,"Save records as",OBJECT_TYPE_TABLE)
	IDE_CreatePopupItem(plugInID,MENU_UTL_TAB_EXP,"Save table as",OBJECT_TYPE_TABLE)
	--Save source as
	IDE_CreatePopupItem(plugInID,MENU_UTL_SAVESRC,"Save source as",OBJECT_TYPE_PROCEDURE)
	IDE_CreatePopupItem(plugInID,MENU_UTL_SAVESRC,"Save source as",OBJECT_TYPE_FUNCTION)	
	IDE_CreatePopupItem(plugInID,MENU_UTL_SAVESRC,"Save source as",OBJECT_TYPE_VIEW)
	IDE_CreatePopupItem(plugInID,MENU_UTL_SAVESRC,"Save source as",OBJECT_TYPE_PACKAGE)
	--Backup table data
	IDE_CreatePopupItem(plugInID,MENU_UTL_TAB_BAK,"Backup table data",OBJECT_TYPE_TABLE)
end


--[[
Delphi procedure OnDeactivate
This is the counterpart of the OnActivate. It is called when the Plug-In is de-activated
in the configuration dialog.
--]]
function OnDeactivate()
--Add your code here
--ShowMessage("OnDeactivate is called in lua script.")
end


--[[
Delphi procedure OnDestroy
This is the counterpart of the OnCreate. You can dispose of anything you created in
the OnCreate.
--]]
function OnDestroy()
--Add your code here
--ShowMessage("OnDestroy is called in lua script.")
end


--[[
Delphi function CanClose: Bool
This will be called when PL/SQL Developer is about to close. If your PlugIn is not
ready to close, you can show a message and return False.
--]]
function CanClose()
--Add your code here
--ShowMessage("CanClose is called in lua script.")
	return true
end


--[[
Delphi procedure AfterStart
Called after all Plug-Ins are loaded and PL/SQL Developer is finished starting.
--]]
function AfterStart()
--Add your code here
--ShowMessage("AfterStart is called in lua script.")

end


--[[
Delphi procedure OnBrowserChange
If your Plug-In depends on a selected item in the Browser, you can use this function
to enable/disable menu-items. This function is called on every change in the Browser.
You can use the IDE_GetBrowserInfo callback function to determine if the selected
item is of interest to you.
--]]
function OnBrowserChange()
--Add your code here
--ShowMessage("OnBrowserChange is called in lua script.")
end


--[[
Delphi procedure OnWindowChange
This function is called if PL/SQL Developer child windows change focus. You can use
the IDE_GetWindowType callback to determine the active child window type.
--]]
function OnWindowChange()
--Add your code here
--ShowMessage("OnWindowChange is called in lua script.")
end


--[[
Delphi procedure OnWindowCreate(WindowType: Integer)
This function is called directly after a new window is created.
--]]
function OnWindowCreate(WindowType)
--Add your code here
--ShowMessage("OnWindowCreate is called in lua script.")

end


--[[
Delphi procedure OnWindowCreated(WindowType: Integer)
This function is called after a new window is created. The difference with the “Create”
function is that the Window is now completely initialized.
--]]
function OnWindowCreated(WindowType)
--Add your code here
--ShowMessage("OnWindowCreated is called in lua script.")

end


--[[
Delphi function OnWindowClose(WindowType: Integer; Changed: BOOL):
Integer
This function allows you to take some action before a window is closed. You can
influence the closing of the window with the following return values:
0 = Default behavior
1 = Ask the user for confirmation (like the contents was changed)
2 = Don’t ask, allow to close without confirmation
The Changed Boolean indicates the current status of the window.
--]]
function OnWindowClose(WindowType,Changed)
--Add your code here
--ShowMessage("OnWindowClose is called in lua script.")
	return 0
end


--[[
Delphi function BeforeExecuteWindow(WindowType: Integer): Bool
This function is called before a Window is executed. Nothing is actually executed yet,
and you can cancel execution by returning false. When you do return false, please
give some feedback to the user why execution was cancelled.
--]]
function BeforeExecuteWindowe(WindowType)
--Add your code here
--ShowMessage("BeforeExecuteWindowe is called in lua script.")
	return true
end


--[[
Delphi procedure AfterExecuteWindow(WindowType, Result: Integer)
When execution is finished, this function is called. The return parameter will indicate
how execution finished:
0 = Finished with error
1 = Finished with the option to continue (like “next page” in the SQL Window)
2 = Finished successfully
--]]
function AfterExecuteWindow(WindowType,Result)
--Add your code here
--ShowMessage("AfterExecuteWindow is called in lua script.")
end


--[[
Delphi procedure OnConnectionChange
This function is called when the user logs on to a different database or logs off. You
can use the IDE_Connected and IDE_GetConnectionInfo callback to get information
about the current connection.
--]]
function OnConnectionChange()
--Add your code here
--ShowMessage("OnConnectionChange is called in lua script.")
end


--[[
Delphi procedure OnPopup(ObjectType, ObjectName: PChar)
This function is called when a context sensitive popup is about to be displayed. It
gives you the opportunity to do something with the menus you have created with the
IDE_CreatePopupMenuItem callback.
--]]
function OnPopup(ObjectType,ObjectName)
--Add your code here
--ShowMessage("OnPopup is called in lua script.")

end


--[[
Delphi procedure OnMainMenu(MenuName: PChar)
This function is called when a main menu is selected (when it drops down). You can
use this event to activate your Plug-In menu(s) if none of the other events are
appropriate. The MenuName parameter is the name of the main menu item that was
selected.
--]]
function OnMainMenu(MenuName)
--Add your code here
--ShowMessage("OnMainMenu is called in lua script.")
end


--[[
Delphi function OnTemplate(Filename: PChar; var Data: PChar): Bool
This function is called before a template is executed. This gives you a chance to
modify the contents in the Data parameter. If you return false, the template is
cancelled.
--]]
function OnTemplate(Filename,Data)
--Add your code here
--ShowMessage("OnTemplate is called in lua script.")
	return true,Data
end


--[[
Delphi procedure OnFileLoaded(WindowType, Mode: Integer)
Called after a file is loaded. The mode parameter can identify the following:
1: recovery file (from a crash)
2: backup file (normal file backup with a ~ extension)
--]]
function OnFileLoaded(WindowType,Mode)
--Add your code here
--ShowMessage("OnFileLoaded is called in lua script.")
end


--[[
Delphi procedure OnFileSaved(WindowType, Mode: Integer)
Called after a file is saved. The mode parameter can identify the following:
1: recovery file (from a crash)
2: backup file (normal file backup with a ~ extension)
--]]
function OnFileSaved(WindowType,Mode)
--Add your code here
--ShowMessage("OnFileSaved is called in lua script.")
end


--[[
Delphi function About: PChar
This function allows you to display an about dialog. You can decide to display a
dialog yourself (in which case you should return an empty text) or just return the
about text.
In PL/SQL Developer 3.1 there is an about button in the Plug-In configuration dialog.
--]]
function About()
--Add your code here
--ShowMessage("About is called in lua script.")
	return "Yet Another Plug-In\nTBI Project Department\nYundian Tongfang Technology Co. Ltd."
end


--[[
Delphi procedure Configure
If the Plug-In has a configure dialog you could use this function to activate it. This will
allow a user to configure your Plug-In using the configure button in the Plug-In
configuration dialog.
--]]
function Configure()
--Add your code here
--ShowMessage("Configure is called in lua script.")
end


--[[
Delphi procedure CommandLine(FeedbackHandle: Integer; Command,
Params: PChar)
You can use this function if you want the Plug-In to be able to accept commands from
the command window.
See IDE_CommandFeedback for how to return messages to the command window.
--]]
function CommandLine(FeedbackHandle,Command,Params)
--Add your code here
--ShowMessage("CommandLine is called in lua script.")
end


--[[
Delphi function PlugInName: PChar
The PlugIn name (if defined) will be used for online updates, and as name for
command window PlugIn commands. If you want your PlugIn to be handled by online
updates, please contact support.
If this function is not defined, the PlugInName will be the dll filename.
--]]
function PlugInName()
--Add your code here
--ShowMessage("PlugInName is called in lua script.")
	return "Yet Another Plug-In"
end


--[[
Delphi function PlugInSubName: PChar
The subname will be added to the PlugInName. Possible values are ‘Trial’ or ‘Beta’.
--]]
function PlugInSubName()
--Add your code here
--ShowMessage("PlugInSubName is called in lua script.")
	return " Development Edition"
end


--[[
Delphi function PlugInShortName: PChar
The short name is specifically for command window PlugIn commands. This allows
you to specify a name that can be entered quickly.
--]]
function PlugInShortName()
--Add your code here
--ShowMessage("PlugInShortName is called in lua script.")
	return "Yap"
end


--[[
Delphi function RegisterFileSystem: PChar
Use this function if you want your Plug-In to load/save files somewhere ‘external’. If
you use this function you should return a description that identifies your filesystem
(like FTP for the FTP Plug-in).
See the chapter about External File Systems.
--]]
function RegisterFileSystem()
--Add your code here
--ShowMessage("RegisterFileSystem is called in lua script.")
	return "TFTP"
end


--[[
Delphi function DirectFileLoad: function(var Tag, Filename: PChar;WindowType: Integer): PChar
This function will get called when a file will be directly loaded without a file dialog.
This is needed if a user selects a file from the recent used files list.
The Parameters indicate the file that you have to load and the return value is the file
data.
--]]
function DirectFileLoad()
--Add your code here
--ShowMessage("DirectFileLoad is called in lua script.")
	return nil
end


--[[
Delphi function DirectFileSave(var Tag, Filename: PChar; Data: PChar;WindowType: Integer): Bool
This function will be called when ‘File Save’ is selected (not ‘File Save As…).
You should save the data as specified in the parameters and return True if everything
was successful.
--]]
function DirectFileSave()
--Add your code here
--ShowMessage("DirectFileSave is called in lua script.")
	return true
end


--[[
Delphi function RegisterExport: PChar
Use this function if you want to add an export option for (result) grids. The name you
return will be the name that is displayed in the popup menus (next to html, xml, …).
See the chapter about adding export options.
--]]
function RegisterExport()
--Add your code here
--ShowMessage("RegisterExport is called in lua script.")
	return nil
end


--[[
Delphi function ExportInit: Boolean
First call after an export request.
You can ask the user for a filename and/or initialize variables.
Return False if you want to cancel the export.
--]]
function ExportInit()
--Add your code here
--ShowMessage("ExportInit is called in lua script.")
	return true
end


--[[
Delphi procedure ExportFinished;The export has finished.
--]]
function ExportFinished()
--Add your code here
--ShowMessage("ExportFinished is called in lua script.")
end


--[[
Delphi function ExportPrepare: Boolean
This function allows you to prepare for the actual data.
All values received with Exportdata before this function is called are column headers,
and all values received after ExportPrepare is data.
The return value allows you to signal if the prepare was processed correctly.
--]]
function ExportPrepare()
--Add your code here
--ShowMessage("ExportPrepare is called in lua script.")
	return true
end


--[[
Delphi function ExportData(Value: PChar): Boolean
One cell of data, this can be the column description or the actual data.
--]]
function ExportData(Value)
--Add your code here
--ShowMessage("ExportData is called in lua script.")
	return true
end

--[[
-------------------------------------------------------------
Put other function below
-------------------------------------------------------------
--]]
--Another useful example is how to trim a string
function trim (s)
	return (string.gsub(s, "^%s*(.-)%s*{1}quot;, "%1"))
end

--Write PMS Meta File
function WirtePMSMeta(objectOwner,objectName,fd)
	SQL_ClearVariables()
	IDE_SplashCreate(100)
	IDE_SplashWriteLn("Generate PMS Metadata")
	local outLine="B\n"
	fd:write(outLine)
	fd:flush()
	IDE_SplashWriteLn("Start")
	IDE_SplashProgress(5)
	--Get table header
	sqlStr="select a.table_name, b.comments from all_all_tables a, all_tab_comments b where a.owner = b.owner and a.table_name = b.table_name and a.owner = '"..objectOwner.."' and a.table_name = '"..objectName.."'"
	if SQL_Execute(sqlStr) ~= 0 then
		ShowMessage("Could not execute query to fetch table infomation!")
		return nil
	else
		outLine=string.format("T %-20s%-20s%-51s\n",SQL_Field(SQL_FieldIndex("TABLE_NAME")),SQL_Field(SQL_FieldIndex("COMMENTS")), "不分块")
	end
	fd:write(outLine)
	fd:flush()
	IDE_SplashWriteLn("Table name is created")
	IDE_SplashProgress(10)
	SQL_ClearVariables()
	--Get column information
	sqlStr="select a.column_name, decode(a.data_type, 'NUMBER', 'NUMBER', 'CHAR', 'VARCHAR2', 'VARCHAR', 'VARCHAR2', a.data_type) data_type, a.data_length, a.data_precision, a.data_scale, a.nullable, a.data_default, b.comments from all_tab_columns a, all_col_comments b where a.owner = b.owner and a.table_name = b.table_name and a.column_name = b.column_name and a.owner = '" ..objectOwner.."' and a.table_name = '"..objectName.."' order by a.column_id"
	if SQL_Execute(sqlStr) ~= 0 then
		ShowMessage("Could not execute query to fetch table infomation!")
		return nil
	else
		while SQL_Eof() == false do    
		  columnName = SQL_Field(SQL_FieldIndex("COLUMN_NAME"))
		  dataType = SQL_Field(SQL_FieldIndex("DATA_TYPE"))
		  dataLength = SQL_Field(SQL_FieldIndex("DATA_LENGTH"))
		  dataPrecision = SQL_Field(SQL_FieldIndex("DATA_PRECISION"))
		  dataScale = SQL_Field(SQL_FieldIndex("DATA_SCALE"))
		  nullable = SQL_Field(SQL_FieldIndex("NULLABLE"))
		  dataDefault = SQL_Field(SQL_FieldIndex("DATA_DEFAULT"))
		  comment = SQL_Field(SQL_FieldIndex("COMMENTS"))
		  combin=""
		  if dataType=="VARCHAR2" then      
			combin = dataType .. "(" .. dataLength .. ")"
		  else		  
			if string.len(dataPrecision) == 0 or tonumber(dataPrecision) == 0  then			
			  dataPrecision = tostring("22")
			end
			if string.len(dataScale) == nil or string.len(dataScale) == 0 or tonumber(dataScale) == 0 then			
			  combin = dataType .. "(" .. dataPrecision .. ")"			
			else			
			  combin = dataType .. "(" .. dataPrecision .. "," .. dataScale .. ")"
			end
		end
		if nullable== "N" then		  
			nullable = "NOT NULL"		 
		else
			nullable = ""
		end
		outLine = string.format("C %-20s%-20s%-15s%-15s%s\n", columnName,
			  string.lower(combin), nullable, trim(dataDefault), trim(comment))	  
		fd:write(outLine)	
		fd:flush()		  
		  SQL_Next()
		end
		IDE_SplashWriteLn("Columns is created")
		IDE_SplashProgress(80)
		SQL_ClearVariables()		
		--Get primary key 
		sqlStr="select a.constraint_name, b.column_name from all_constraints a, all_ind_columns b where a.owner = b.index_owner and a.table_name = b.table_name and a.index_name = b.index_name and a.constraint_type = 'P' and a.owner = '"..objectOwner.."' and a.table_name = '"..objectName.."' order by b.column_position"
		if SQL_Execute(sqlStr) ~= 0 then   
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
		else
			keyName=""
			keyColumns = ""
			while SQL_Eof() == false do      
				keyName = SQL_Field(SQL_FieldIndex("CONSTRAINT_NAME"))
				keyColumns = keyColumns .. SQL_Field(SQL_FieldIndex("COLUMN_NAME")).. ","
				SQL_Next()
			end		
			if string.len(keyColumns) > 0 then      
				keyColumns=string.sub(keyColumns, 1, -2)
				primary="Primary"
				outLine = string.format("K %-20s%-20s%s\n", keyName, primary,keyColumns)					
				fd:write(outLine)
				fd:flush()
				IDE_SplashWriteLn("Primary key is created")
				IDE_SplashProgress(90)	
			end
		end	
		SQL_ClearVariables()
		sqlStr="select t.index_name, t.index_type from all_indexes t where owner = '"..objectOwner.."' and table_name = '"..objectName.."' and not exists (select * from all_constraints where owner = t.owner and table_name = t.table_name and constraint_type = 'P' and index_name = t.index_name) order by index_name"
		if SQL_Execute(sqlStr) ~= 0 then
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
		else
			ids={}
			for i = 0, 9 do
				--ids[i].flag = 0
				ids[i]={["flag"] = 0,["indexName"] = "",["indexType"] = ""}
			end
			i = 0
			while SQL_Eof() == false do
				ids[i].flag = 1
				ids[i].indexName = SQL_Field(SQL_FieldIndex("INDEX_NAME"))
				ids[i].indexType = SQL_Field(SQL_FieldIndex("INDEX_TYPE"))
				i = i + 1
				SQL_Next()
			end
			keyColumns = ""
			i = 0
			while ids[i].flag == 1 do
				sqlStr="select t.column_name from all_ind_columns t where index_owner = '"..objectOwner.."' and table_name = '"..objectName.."' and index_name = '"..ids[i].indexName.."' and not exists (select * from all_constraints where owner = t.index_owner and table_name = t.table_name and constraint_type = 'P' and index_name = t.index_name) order by index_name, column_position"
				if SQL_Execute(sqlStr) ~= 0 then
					ShowMessage("Could not execute query to fetch table infomation!")
					return nil
				else
					keyColumns = ""
					while SQL_Eof() == false do
						keyColumns = keyColumns .. SQL_Field(SQL_FieldIndex("COLUMN_NAME"))..","
						SQL_Next()
					end
					if string.len(keyColumns) > 0 then
						keyColumns=string.sub(keyColumns, 1, -2)
						outLine = string.format("I %-20s%-20s%s\n", ids[i].indexName,
              string.upper(string.sub(ids[i].indexType, 1,1)) .. string.lower(string.sub(ids[i].indexType,2,-1)), keyColumns)
						fd:write(outLine)
						fd:flush()
						IDE_SplashWriteLn("Index is created")
						IDE_SplashProgress(95)						
					end
				end
				i = i + 1
			end
		end
		SQL_ClearVariables()
	end
	outLine="D\n"		
	fd:write(outLine)
	fd:flush()	
	IDE_SplashWriteLn("Completed")
	IDE_SplashProgress(100)
	IDE_SplashHide()
	return fd
end

--Export simple table DDL statement
function ExportTableSimpleDDL(objectOwner,objectName,fd)
	SQL_ClearVariables()
	IDE_SplashCreate(100)
	IDE_SplashWriteLn("Save table "..string.upper(objectOwner.."."..objectName).." simple DDL")
	IDE_SplashProgress(5)
	sqlStr="select * from all_tab_comments where owner='"..string.upper(objectOwner).."' and table_name='"..string.upper(objectName).."'"
	tableComment=""
	outLine=""
	if SQL_Execute(sqlStr) ~= 0 then
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
	else
		tableComment=SQL_Field(SQL_FieldIndex("COMMENTS"))
	end
	SQL_ClearVariables()
	outLine="/*Create table "..objectOwner.."."..objectName.."*/\n"
	fd:write(outLine)
	fd:flush()
	outLine="CREATE TABLE "..string.upper(objectOwner).."."..string.upper(objectName).." (--"..tableComment.."\n"
	fd:write(outLine)
	fd:flush()
	IDE_SplashWriteLn("Table name is created")
	IDE_SplashProgress(10)
	sqlStr="select c.*,m.comments from all_tab_columns c,all_col_comments m where c.owner=m.owner and c.table_name=m.table_name and c.column_name=m.column_name and c.owner='"..string.upper(objectOwner).."' and c.table_name='"..string.upper(objectName).."' order by c.column_id"
	if SQL_Execute(sqlStr) ~= 0 then
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
	else
		--Columns
		outLine=""
		repeat
			fd:write(outLine)
			fd:flush()
			columnName = SQL_Field(SQL_FieldIndex("COLUMN_NAME"))
			dataType = SQL_Field(SQL_FieldIndex("DATA_TYPE"))
			dataLength = SQL_Field(SQL_FieldIndex("DATA_LENGTH"))
			dataPrecision = SQL_Field(SQL_FieldIndex("DATA_PRECISION"))
			dataScale = SQL_Field(SQL_FieldIndex("DATA_SCALE"))
			nullable = SQL_Field(SQL_FieldIndex("NULLABLE"))
			dataDefault = SQL_Field(SQL_FieldIndex("DATA_DEFAULT"))
			comment = SQL_Field(SQL_FieldIndex("COMMENTS"))
			combin=""
			if dataType=="VARCHAR2" then      
				combin = dataType .. "(" .. dataLength .. ")"
			else		  
				if string.len(dataPrecision) == 0 or tonumber(dataPrecision) == 0  then			
				  dataPrecision = tostring("22")
				end
				if string.len(dataScale) == nil or string.len(dataScale) == 0 or tonumber(dataScale) == 0 then			
				  combin = dataType .. "(" .. dataPrecision .. ")"			
				else			
				  combin = dataType .. "(" .. dataPrecision .. "," .. dataScale .. ")"
				end
			end
			if nullable== "N" then		  
				nullable = "NOT NULL"		 
			else
				nullable = ""
			end
			SQL_Next()
			if dataDefault~=nil and string.len(trim(dataDefault)) ~= 0 then
				dataDefault="DEFAULT "..dataDefault
			end
			if SQL_Eof() == true then
				outLine = string.format("\t%s\t%s\t%s\t%s\t--%s\n", string.upper(columnName),string.upper(combin),  trim(dataDefault),string.upper(nullable), trim(comment))
			else
				outLine = string.format("\t%s\t%s\t%s\t%s,\t--%s\n", string.upper(columnName),string.upper(combin), trim(dataDefault),string.upper(nullable), trim(comment))
			end
		until SQL_Eof() == true
		fd:write(outLine)
		fd:flush()	
		outLine=");\n"
		fd:write(outLine)
		fd:flush()		
		IDE_SplashWriteLn("Columns information is created")
		IDE_SplashProgress(70)
		SQL_ClearVariables()
		sqlStr="select a.constraint_name, b.column_name from all_constraints a, all_ind_columns b where a.owner = b.index_owner and a.table_name = b.table_name and a.index_name = b.index_name and a.constraint_type = 'P' and a.owner = '"..string.upper(objectOwner).."' and a.table_name = '"..string.upper(objectName).."' order by b.column_position"
		if SQL_Execute(sqlStr) ~= 0 then   
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
		else
			--Primary Key
			keyName=""
			keyColumns = ""
			while SQL_Eof() == false do      
				keyName = SQL_Field(SQL_FieldIndex("CONSTRAINT_NAME"))
				keyColumns = keyColumns .. SQL_Field(SQL_FieldIndex("COLUMN_NAME")).. ","
				SQL_Next()
			end		
			if string.len(keyColumns) > 0 then      
				keyColumns=string.sub(keyColumns, 1, -2)
				primary="Primary"
				outLine="/*Create Primary Key*/\n"
				fd:write(outLine)
				fd:flush()
				outLine = "ALTER TABLE "..string.upper(objectOwner.."."..objectName).." ADD CONSTRAINT "..string.upper(keyName).." PRIMARY KEY ("..string.upper(keyColumns)..");\n"					
				fd:write(outLine)
				fd:flush()
				IDE_SplashWriteLn("Primary key is created")
				IDE_SplashProgress(80)
			end
		end	
		SQL_ClearVariables()
		sqlStr="select t.index_name, t.index_type from all_indexes t where owner = '"..string.upper(objectOwner).."' and table_name = '"..string.upper(objectName).."' and not exists (select * from all_constraints where owner = t.owner and table_name = t.table_name and constraint_type = 'P' and index_name = t.index_name) order by index_name"
		if SQL_Execute(sqlStr) ~= 0 then
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
		else
			--Indexes
			ids={}
			for i = 0, 9 do
				--ids[i].flag = 0
				ids[i]={["flag"] = 0,["indexName"] = "",["indexType"] = ""}
			end
			i = 0
			while SQL_Eof() == false do
				ids[i].flag = 1
				ids[i].indexName = SQL_Field(SQL_FieldIndex("INDEX_NAME"))
				ids[i].indexType = SQL_Field(SQL_FieldIndex("INDEX_TYPE"))
				i = i + 1
				SQL_Next()
			end
			keyColumns = ""
			i = 0			
			while ids[i].flag == 1 do
				if i==0 then
					outLine="/*Create Index*/\n"
					fd:write(outLine)
					fd:flush()
				end
				sqlStr="select t.column_name from all_ind_columns t where index_owner = '"..string.upper(objectOwner).."' and table_name = '"..string.upper(objectName).."' and index_name = '"..ids[i].indexName.."' and not exists (select * from all_constraints where owner = t.index_owner and table_name = t.table_name and constraint_type = 'P' and index_name = t.index_name) order by index_name, column_position"
				if SQL_Execute(sqlStr) ~= 0 then
					ShowMessage("Could not execute query to fetch table infomation!")
					return nil
				else
					keyColumns = ""
					while SQL_Eof() == false do
						keyColumns = keyColumns .. SQL_Field(SQL_FieldIndex("COLUMN_NAME"))..","
						SQL_Next()
					end
					if string.len(keyColumns) > 0 then
						keyColumns=string.sub(keyColumns, 1, -2)
						if string.upper(ids[i].indexType) == "NORMAL" then
							ids[i].indexType=""							
						end
						outLine = "CREATE "..string.upper(ids[i].indexType).." INDEX "..ids[i].indexName.." ON "..objectOwner.."."..objectName.."("..keyColumns..");\n"
						fd:write(outLine)
						fd:flush()						
					end
				end
				i = i + 1
			end
			IDE_SplashWriteLn("Index is created")
			IDE_SplashProgress(85)
		end
	end
	--Table comment
	outLine = "/*Table comment*/\n"					
	fd:write(outLine)
	fd:flush()
	outLine = "COMMENT ON TABLE "..string.upper(objectOwner.."."..objectName).." IS '"..tableComment.."';\n"					
	fd:write(outLine)
	fd:flush()
	IDE_SplashWriteLn("Table comment is created")
	IDE_SplashProgress(90)
	--Column comments
	SQL_ClearVariables()
	outLine = "/*Table column comment*/\n"					
	fd:write(outLine)
	fd:flush()
	sqlStr="select c.*,m.comments from all_tab_columns c,all_col_comments m where c.owner=m.owner and c.table_name=m.table_name and c.column_name=m.column_name and c.owner='"..string.upper(objectOwner).."' and c.table_name='"..string.upper(objectName).."' order by c.column_id"
	if SQL_Execute(sqlStr) ~= 0 then
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
	else
		while SQL_Eof() == false do
			columnName = SQL_Field(SQL_FieldIndex("COLUMN_NAME"))			
			comment = SQL_Field(SQL_FieldIndex("COMMENTS"))
			outLine = "COMMENT ON COLUMN "..string.upper(objectOwner.."."..objectName).."."..columnName.." IS '"..comment.."';\n"					
			fd:write(outLine)
			fd:flush()
			SQL_Next()
		end
	end
	IDE_SplashWriteLn("Column comment is created")
	IDE_SplashProgress(95)
	IDE_SplashWriteLn("Completed")
	IDE_SplashProgress(100)
	IDE_SplashHide()
	return fd
end

--Export table records
function ExportTableRecords(objectOwner,objectName,fd)
	SQL_ClearVariables()
	IDE_SplashCreate(100)
	IDE_SplashWriteLn("Write table records")
	--Query table column meta
	sqlStr="select * from all_tab_columns where owner='"..string.upper(objectOwner).."' and table_name='"..string.upper(objectName).."' order by column_id"
	if SQL_Execute(sqlStr) ~= 0 then
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
	else
		i=1
		rows={}
		--Fix in lua table
		while SQL_Eof() == false do
			col={["USED"]=1,["COLUMN_NAME"]="",["DATA_TYPE"]="",["COLUMN_VALUE"]=""}
			col.COLUMN_NAME=SQL_Field(SQL_FieldIndex("COLUMN_NAME"))
			col.DATA_TYPE=SQL_Field(SQL_FieldIndex("DATA_TYPE"))
			rows[i]=col
			SQL_Next()
			i=i+1
		end
		--End flag element
		col={["USED"]=0,["COLUMN_NAME"]="",["DATA_TYPE"]="",["COLUMN_VALUE"]=""}
		rows[i]=col	
		SQL_ClearVariables()
		IDE_SplashWriteLn("Table column meta created")
		IDE_SplashProgress(1)
		instStr="INSERT INTO "..string.upper(objectOwner).."."..string.upper(objectName).."("
		i=1
		--Fix insert statement
		while rows[i].USED==1 do
			instStr=instStr..rows[i].COLUMN_NAME
			if rows[i+1].USED ~= 0 then
				instStr=instStr..","
			end
			i=i+1
		end
		IDE_SplashWriteLn("Insert statement skeleton created")
		IDE_SplashProgress(2)
		instStr=instStr..") VALUES("
		sqlStr="select count(*) rowcount from "..string.upper(objectOwner).."."..string.upper(objectName)
		rowCount=0
		currentRow=0
		--Get row count
		if SQL_Execute(sqlStr) ~= 0 then
			ShowMessage("Could not execute query to fetch table infomation!")
			return nil
		else
			rowCount=tonumber(SQL_Field(SQL_FieldIndex("ROWCOUNT")))
		end
		SQL_ClearVariables()
		IDE_SplashWriteLn("Table column meta created")
		IDE_SplashProgress(3)
		--Query table data
		sqlStr="select * from "..string.upper(objectOwner).."."..string.upper(objectName)
		if SQL_Execute(sqlStr) ~= 0 then
				ShowMessage("Could not execute query to fetch table infomation!")
				return nil
		else			
			IDE_SplashWriteLn("Write record data as insert statement...")
			fd:write("--Insert table data\n")
			fd:flush()
			insertHead=instStr
			while SQL_Eof() == false do
				instStr=insertHead
				i=1
				--Fix data part
				while rows[i].USED==1 do
					if rows[i].DATA_TYPE == "VARCHAR2" or rows[i].DATA_TYPE == "NVARCHAR2" or rows[i].DATA_TYPE == "CHAR" then
						instStr=instStr.."'"..SQL_Field(SQL_FieldIndex(rows[i].COLUMN_NAME)).."'"						
					else
						instStr=instStr..SQL_Field(SQL_FieldIndex(rows[i].COLUMN_NAME))
					end
					if rows[i+1].USED ~= 0 then
							instStr=instStr..","
					end
					i=i+1
				end
				instStr=instStr..");\n"
				--Write insert statement line
				fd:write(instStr)
				fd:flush()
				SQL_Next()
				currentRow=currentRow+1
				IDE_SplashProgress(currentRow/rowCount*100)
			end
		end
	end
	SQL_ClearVariables()
	IDE_SplashProgress(100)
	IDE_SplashHide()
	return fd
end

函数指针定义。

/* Function pointer for IDE utilities */
/* FUNC:1 */ int(*SYS_Version)();
/* FUNC:2 */ char* (*SYS_Registry)();
/* FUNC:3 */ char* (*SYS_RootDir)();
/* FUNC:4 */ char* (*SYS_OracleHome)();
/* FUNC:5 */ char* (*SYS_OCIDLL)();
/* FUNC:6 */ BOOL* (*SYS_OCI8Mode)();
/* FUNC:7 */ BOOL* (*SYS_XPStyle)();
/* FUNC:8 */ char* (*SYS_TNSNAMES)(char*Param);
/* FUNC:9 */ int(*SYS_DelphiVersion)();
/* FUNC:10 */ void(*IDE_MenuState)(int ID, int Index, BOOL Enabled);
/* FUNC:11 */ BOOL(*IDE_Connected)();
/* FUNC:12 */
void(*IDE_GetConnectionInfo)(char**Username, char**Password, char**Database);
/* FUNC:13 */
void(*IDE_GetBrowserInfo)(char**ObjectType, char**ObjectOwner,
	char**ObjectName);
/* FUNC:14 */ int(*IDE_GetWindowType)();
/* FUNC:15 */ int(*IDE_GetAppHandle)();
/* FUNC:16 */ int(*IDE_GetWindowHandle)();
/* FUNC:17 */ int(*IDE_GetClientHandle)();
/* FUNC:18 */ int(*IDE_GetChildHandle)();
/* FUNC:19 */ void(*IDE_Refresh)();
/* FUNC:20 */ void(*IDE_CreateWindow)(int WindowType, char*Text, BOOL Execute);
/* FUNC:21 */ BOOL(*IDE_OpenFile)(int WindowType, char*Filename);
/* FUNC:22 */ BOOL(*IDE_SaveFile)();
/* FUNC:23 */ char* (*IDE_Filename)();
/* FUNC:24 */ void(*IDE_CloseFile)();
/* FUNC:25 */ void(*IDE_SetReadOnly)(BOOL ReadOnly);
/* FUNC:26 */ BOOL(*IDE_GetReadOnly)();
/* FUNC:27 */
BOOL(*IDE_ExecuteSQLReport)(char*SQL, char*Title, BOOL Updateable);
/* FUNC:28 */ BOOL(*IDE_ReloadFile)();
/* FUNC:29 */ void(*IDE_SetFilename)(char*Filename);
/* FUNC:30 */ char* (*IDE_GetText)();
/* FUNC:31 */ char* (*IDE_GetSelectedText)();
/* FUNC:32 */ char* (*IDE_GetCursorWord)();
/* FUNC:33 */ int(*IDE_GetEditorHandle)();
/* FUNC:34 */ BOOL(*IDE_SetText)(char*Text);
/* FUNC:35 */ BOOL(*IDE_SetStatusMessage)(char*Text);
/* FUNC:36 */ BOOL(*IDE_SetErrorPosition)(int Line, int Col);
/* FUNC:37 */ void(*IDE_ClearErrorPositions)();
/* FUNC:38 */ int(*IDE_GetCursorWordPosition)();
/* FUNC:39 */ BOOL(*IDE_Perform)(int Param);
/* FUNC:40 */ int(*SQL_Execute)(char*SQL);
/* FUNC:41 */ int(*SQL_FieldCount)();
/* FUNC:42 */ BOOL(*SQL_Eof)();
/* FUNC:43 */ int(*SQL_Next)();
/* FUNC:44 */ char* (*SQL_Field)(int Field);
/* FUNC:45 */ char* (*SQL_FieldName)(int Field);
/* FUNC:46 */ int(*SQL_FieldIndex)(char*Name);
/* FUNC:47 */ int(*SQL_FieldType)(int Field);
/* FUNC:48 */ char* (*SQL_ErrorMessage)();
/* FUNC:50 */ BOOL(*SQL_UsePlugInSession)(int PlugInID);
/* FUNC:51 */ void(*SQL_UseDefaultSession)(int PlugInID);
/* FUNC:52 */ BOOL(*SQL_CheckConnection)();
/* FUNC:53 */ char* (*SQL_GetDBMSGetOutput)();
/* FUNC:54 */ void(*SQL_SetVariable)(char*Name, char*Value);
/* FUNC:55 */ char* (*SQL_GetVariable)(char*Name);
/* FUNC:56 */ void(*SQL_ClearVariables)();
/* FUNC:60 */ char* (*IDE_GetCustomKeywords)();
/* FUNC:61 */ void(*IDE_SetCustomKeywords)(char*Keywords);
/* FUNC:62 */ void(*IDE_SetKeywords)(int ID, int Style, char*Keywords);
/* FUNC:63 */ void(*IDE_ActivateKeywords)();
/* FUNC:64 */ void(*IDE_RefreshMenus)(int ID);
/* FUNC:65 */ void(*IDE_SetMenuName)(int ID, int Index, char*Name);
/* FUNC:66 */ void(*IDE_SetMenuCheck)(int ID, int Index, BOOL Enabled);
/* FUNC:67 */ void(*IDE_SetMenuVisible)(int ID, int Index, BOOL Enabled);
/* FUNC:68 */ char* (*IDE_GetMenulayout)();
/* FUNC:69 */
void* (*IDE_CreatePopupItem)(int ID, int Index, char*Name, char*ObjectType);
/* FUNC:70 */
BOOL(*IDE_SetConnection)(char*Username, char*Password, char*Database);
/* FUNC:71 */
int(*IDE_GetObjectInfo)(char*AnObject, char**ObjectType, char**ObjectOwner,
	char**ObjectName, char**SubObject);
/* FUNC:72 */ char* (*IDE_GetBrowserItems)(char*Node, BOOL GetItems);
/* FUNC:73 */ void(*IDE_RefreshBrowser)(char*Node);
/* FUNC:74 */
int(*IDE_GetPopupObject)(char**ObjectType, char**ObjectOwner, char**ObjectName,
	char**SubObject);
/* FUNC:75 */ char* (*IDE_GetPopupBrowserRoot)();
/* FUNC:76 */
void(*IDE_RefreshObject)(char*ObjectType, char*ObjectOwner, char*ObjectName,
	int Action);
/* FUNC:77 */
BOOL(*IDE_FirstSelectedObject)(char*ObjectType, char*ObjectOwner,
	char*ObjectName, char*SubObject);
/* FUNC:78 */
BOOL(*IDE_NextSelectedObject)(char*ObjectType, char*ObjectOwner,
	char*ObjectName, char*SubObject);
/* FUNC:79 */
char* (*IDE_GetObjectSource)(char*ObjectType, char*ObjectOwner,
	char*ObjectName);
/* FUNC:80 */ int(*IDE_GetWindowCount)();
/* FUNC:81 */ BOOL(*IDE_SelectWindow)(int Index);
/* FUNC:82 */ BOOL(*IDE_ActivateWindow)(int Index);
/* FUNC:83 */ BOOL(*IDE_WindowIsModified)();
/* FUNC:84 */ BOOL(*IDE_WindowIsRunning)();
/* FUNC:90 */ void(*IDE_SplashCreate)(int ProgressMax);
/* FUNC:91 */ void(*IDE_SplashHide)();
/* FUNC:92 */ void(*IDE_SplashWrite)(char*s);
/* FUNC:93 */ void(*IDE_SplashWriteLn)(char*s);
/* FUNC:94 */ void(*IDE_SplashProgress)(int Progress);
/* FUNC:95 */ char* (*IDE_TemplatePath)();
/* FUNC:96 */ BOOL(*IDE_ExecuteTemplate)(char*Template, BOOL NewWindow);
/* FUNC:97 */ char*(*IDE_GetConnectAs)();
/* FUNC:98 */
BOOL(*IDE_SetConnectionAs)(char*Username, char*Password, char*Database,
	char*ConnectAs);
/* FUNC:100 */ char* (*IDE_GetFileOpenMenu)(int MenuIndex, int*WindowType);
/* FUNC:101 */ BOOL(*IDE_CanSaveWindow)();
/* FUNC:102 */
void(*IDE_OpenFileExternal)(int WindowType, char*Data, char*FileSystem,
	char*Tag, char*Filename);
/* FUNC:103 */ char* (*IDE_GetFileTypes)(int WindowType);
/* FUNC:104 */ char* (*IDE_GetDefaultExtension)(int WindowType);
/* FUNC:105 */ char* (*IDE_GetFiledata)();
/* FUNC:106 */
void(*IDE_FileSaved)(char*FileSystem, char*FileTag, char*Filename);
/* FUNC:107 */ BOOL(*IDE_ShowHTML)(char*Url, char*Hash, char*Title, char*ID);
/* FUNC:108 */ BOOL(*IDE_RefreshHTML)(char*Url, char*ID, BOOL BringToFront);
/* FUNC:109 */ char* (*IDE_GetProcEditExtension)(char*oType);
/* FUNC:110 */
BOOL(*IDE_GetWindowObject)(char**ObjectType, char**ObjectOwner,
	char**ObjectName, char**SubObject);
/* FUNC:111 */ char* (*IDE_FirstSelectedFile)(BOOL Files, BOOL Directories);
/* FUNC:112 */ char* (*IDE_NextSelectedFile)();
/* FUNC:113 */ void(*IDE_RefreshFileBrowser)();
/* FUNC:120 */ void(*IDE_KeyPress)(int Key, int Shift);
/* FUNC:121 */ int(*IDE_GetMenuItem)(char*MenuName);
/* FUNC:122 */ BOOL(*IDE_SelectMenu)(int MenuItem);
/* FUNC:130 */ char* (*IDE_TranslationFile)();
/* FUNC:131 */ char* (*IDE_TranslationLanguage)();
/* FUNC:132 */ char* (*IDE_GetTranslatedMenuLayout)();
/* FUNC:133 */ char* (*IDE_MainFont)();
/* FUNC:134 */ char* (*IDE_TranslateItems)(char*Group);
/* FUNC:135 */
char* (*IDE_TranslateString)(char*ID, char*Default, char Param1, char Param2);
/* FUNC:140 */ BOOL(*IDE_SaveRecoveryFiles)();
/* FUNC:141 */ int(*IDE_GetCursorX)();
/* FUNC:142 */ int(*IDE_GetCursorY)();
/* FUNC:143 */ void(*IDE_SetCursor)(int X, int Y);
/* FUNC:144 */ int(*IDE_SetBookmark)(int Index, int X, int Y);
/* FUNC:145 */ void(*IDE_ClearBookmark)(int Index);
/* FUNC:146 */ void(*IDE_GotoBookmark)(int Index);
/* FUNC:147 */ BOOL(*IDE_GetBookmark)(int Index, int X, int Y);
/* FUNC:148 */ char* (*IDE_TabInfo)(int Index);
/* FUNC:149 */ int(*IDE_TabIndex)(int Index);
/* FUNC:150 */
void(*IDE_CreateToolButton)(int ID, int Index, char*Name, char*BitmapFile,
	int BitmapHandle);
/* FUNC:153 */ BOOL(*IDE_WindowHasEditor)(BOOL CodeEditor);
/* FUNC:160 */ int(*IDE_BeautifierOptions)();
/* FUNC:161 */ BOOL(*IDE_BeautifyWindow)();
/* FUNC:162 */ char* (*IDE_BeautifyText)(char*S);
/* FUNC:165 */
BOOL(*IDE_ObjectAction)(char*Action, char*ObjectType, char*ObjectOwner,
	char*ObjectName);
/* FUNC:166 */ BOOL(*IDE_ShowDialog)(char*Dialog, char*Param);
/* FUNC:173 */ void(*IDE_DebugLog)(char*Msg);
/* FUNC:174 */ char* (*IDE_GetParamString)(char*Name);
/* FUNC:175 */ BOOL(*IDE_GetParamBool)(char*Name);
/* FUNC:176 */
void(*IDE_GetBrowserFilter)(int Index, char**Name, char**WhereClause,
	char**OrderByClause, char**User, BOOL Active);
/* FUNC:180 */ void(*IDE_CommandFeedback)(int FeedbackHandle, char*S);
/* FUNC:190 */ int(*IDE_ResultGridRowCount)();
/* FUNC:191 */ int(*IDE_ResultGridColCount)();
/* FUNC:192 */ char* (*IDE_ResultGridCell)(int Col, int Row);
/* FUNC:200 */ BOOL(*IDE_Authorized)(char*Category, char*Name, char*SubName);
/* FUNC:201 */ BOOL(*IDE_WindowAllowed)(int WindowType, BOOL ShowErrorMessage);
/* FUNC:202 */ BOOL(*IDE_Authorization)();
/* FUNC:203 */ char* (*IDE_AuthorizationItems)(char*Category);
/* FUNC:204 */ void(*IDE_AddAuthorizationItem)(int PlugInID, char*Name);
/* FUNC:210 */ char* (*IDE_GetPersonalPrefSets)();
/* FUNC:211 */ char* (*IDE_GetDefaultPrefSets)();
/* FUNC:212 */
char* (*IDE_GetPrefAsString)(int PlugInID, char*PrefSet, char*Name,
	char*Default);
/* FUNC:213 */
int(*IDE_GetPrefAsInteger)(int PlugInID, char*PrefSet, char*Name, BOOL Default);
/* FUNC:214 */
BOOL(*IDE_GetPrefAsBool)(int PlugInID, char*PrefSet, char*Name, BOOL Default);
/* FUNC:215 */
BOOL(*IDE_SetPrefAsString)(int PlugInID, char*PrefSet, char*Name, char*Value);
/* FUNC:216 */
BOOL(*IDE_SetPrefAsInteger)(int PlugInID, char*PrefSet, char*Name, int Value);
/* FUNC:217 */
BOOL(*IDE_SetPrefAsBool)(int PlugInID, char*PrefSet, char*Name, BOOL Value);
/* FUNC:218 */ char* (*IDE_GetGeneralPref)(char*Name);
/* FUNC:219 */ BOOL(*IDE_PlugInSetting)(int PlugInID, char*Setting, char*Value);
/* FUNC:220 */
int(*IDE_GetProcOverloadCount)(char*Owner, char*PackageName,
	char*ProcedureName);
/* FUNC:221 */
int(*IDE_SelectProcOverloading)(char*Owner, char*PackageName,
	char*ProcedureName);
/* FUNC:230 */ char* (*IDE_GetSessionValue)(char*Name);
/* FUNC:231 */ BOOL(*IDE_CheckDBVersion)(char*Version);

几个工具函数。
/* Define unique plug-in ID */
int nPluginID = 0;
/* Lua virtual machine */
lua_State *L = NULL;

/* Save the Plugin ID for future use */
int SavePluginID(int nID) {
	nPluginID = nID;
	return nPluginID;
}

/* Clear Lua virtual machine support */
void ClearLuaSupport() {
	if (L)
		lua_close(L);
}

/* Help functions,register c function in order to lua use */
int RegisterRoutine(lua_State *l, const char *routine, lua_CF fp) {
	if (!l)
		return REGISTER_ROUTINE_ERROR;
	lua_pushstring(l, routine);
	lua_pushcfunction(L, fp);
	lua_settable(l, LUA_GLOBALSINDEX);
	return ANYTHING_IS_OK;
}

/* Help functions,show lua messages */
int luax_ShowMessage(lua_State *l) {
#ifdef _DEBUG
	char *pszVar, msg[LUA_MESSAGE_SIZE];
	int i, n;
	CHECK_LUA;
	n = lua_gettop(l);
	memset(msg, '\0', sizeof(msg));
	for (i = 1; i <= n; ++i) {
		pszVar = (char*)lua_tostring(l, i);
		if (strlen(msg) + strlen(pszVar) >= LUA_MESSAGE_SIZE / sizeof(TCHAR))
			break;
		else
			strcat(msg, pszVar);
	}
	MessageBox((HWND)GetDesktopWindow(), msg, "Lua Messages", MB_OK);
#endif
	return 0;
}

/* Help functions,show messages and get options */
int luax_ShowMessageOption(lua_State *l) {
	char *pszVar, msg[LUA_MESSAGE_SIZE];
	int i, n, retVal;
	CHECK_LUA;
	n = lua_gettop(l);
	memset(msg, '\0', sizeof(msg));
	for (i = 1; i <= n; ++i) {
		pszVar = (char*)lua_tostring(l, i);
		if (strlen(msg) + strlen(pszVar) >= LUA_MESSAGE_SIZE / sizeof(TCHAR))
			break;
		else
			strcat(msg, pszVar);
	}
	retVal = MessageBox((HWND)GetDesktopWindow(), msg, "Lua Messages",
		MB_YESNO);
	if (retVal == IDYES) {
		lua_pushnumber(l, 1);
	}
	else if (retVal == IDNO) {
		lua_pushnumber(l, 0);
	}
	else {
		lua_pushnumber(l, -1);
	}
	return 1;
}

/* Add a not enough but common dialog to fetch user data. */
#define ID_TEXT		250
#define ID_CONTENT	300
#define ID_OK		350
#define	ID_CANCEL	400
char fetchMsg[1024];

/* Get windows error formatted messages and exit process */
void ErrorExit(LPTSTR lpszFunction) {
	LPVOID lpMsgBuf;
	LPVOID lpDisplayBuf;

	DWORD dw = GetLastError();

	FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
		NULL, dw, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPTSTR) &lpMsgBuf,
		0, NULL);

	lpDisplayBuf = (LPVOID)LocalAlloc(LMEM_ZEROINIT,
		(lstrlen((LPCTSTR)lpMsgBuf) + lstrlen((LPCTSTR)lpszFunction) + 40)
		*sizeof(TCHAR));
	wsprintf((LPTSTR)lpDisplayBuf, TEXT("%s failed with error %d: %s"),
		lpszFunction, dw, lpMsgBuf);
	MessageBox(NULL, (LPCTSTR)lpDisplayBuf, TEXT("Error"), MB_OK);

	LocalFree(lpMsgBuf);
	LocalFree(lpDisplayBuf);
	ExitProcess(dw);
}

/* Do align */
static LPWORD LPWAlign(LPWORD lpIn) {
	ULONG ul;
	ULONG dw2Power = 4;
	ul = (ULONG)lpIn;
	ul += dw2Power - 1;
	ul &= ~(dw2Power - 1);
	return (LPWORD)ul;
}
#define lpwAlign  LPWAlign

/* Self define dialog procedure */
INT_PTR CALLBACK DialogProc(HWND hwndDlg, UINT message, WPARAM wParam,
	LPARAM lParam) {
	RECT rc, rcDlg, rcOwner;
	HWND hwndOwner;
	HICON hIcon;
	switch (message) {
	case WM_INITDIALOG:
		// Get the owner window and dialog box rectangles.
		if ((hwndOwner = GetParent(hwndDlg)) == NULL) {
			hwndOwner = GetDesktopWindow();
		}

		GetWindowRect(hwndOwner, &rcOwner);
		GetWindowRect(hwndDlg, &rcDlg);
		CopyRect(&rc, &rcOwner);

		// Offset the owner and dialog box rectangles so that right and bottom
		// values represent the width and height, and then offset the owner again
		// to discard space taken up by the dialog box.

		OffsetRect(&rcDlg, -rcDlg.left, -rcDlg.top);
		OffsetRect(&rc, -rc.left, -rc.top);
		OffsetRect(&rc, -rcDlg.right, -rcDlg.bottom);

		// The new position is the sum of half the remaining space and the owner's
		// original position.

		SetWindowPos(hwndDlg, HWND_TOP, rcOwner.left + (rc.right / 2),
			rcOwner.top + (rc.bottom / 2), 0, 0, // Ignores size arguments.
			SWP_NOSIZE);

		if (GetDlgCtrlID((HWND) wParam) != ID_CONTENT) {
			SetFocus(GetDlgItem(hwndDlg, ID_CONTENT));
			return FALSE;
		}
		if (hIcon = LoadIcon(GetModuleHandle(NULL), IDI_APPLICATION)) {
			SetClassLong(hwndDlg, // window handle
				GCL_HICON, // changes icon
				(LONG) hIcon);
			return FALSE;
		}
		return TRUE;

	case WM_COMMAND:
		switch (LOWORD(wParam)) {
		case ID_OK:
			GetDlgItemText(hwndDlg, ID_CONTENT, fetchMsg,
				sizeof(fetchMsg) / sizeof(TCHAR));
			EndDialog(hwndDlg, ID_OK);
			return TRUE;

		case ID_CANCEL:
			EndDialog(hwndDlg, ID_CANCEL);
			return TRUE;
		}
	}
	return FALSE;
}

/* Show self define dialog box */
static LRESULT DisplayDialogBox(HINSTANCE hinst, HWND hwndOwner,
	LPSTR lpszTitle, LPSTR lpszDataCaption, LPSTR lpszDataDefault) {
	HGLOBAL hgbl;
	LPDLGTEMPLATE lpdt;
	LPDLGITEMTEMPLATE lpdit;
	LPWORD lpw;
	LPWSTR lpwsz, lpwszLeader, lpwszStub;
	LRESULT ret;
	int nchar;

	hgbl = GlobalAlloc(GMEM_ZEROINIT, 1024);
	if (!hgbl)
		return -1;

	lpdt = (LPDLGTEMPLATE)GlobalLock(hgbl);

	// Define a dialog box.

	lpdt->style = WS_POPUP | WS_BORDER | WS_SYSMENU | DS_MODALFRAME |
		WS_CAPTION;
	lpdt->cdit = 4; // Number of controls
	lpdt->x = 10;
	lpdt->y = 10;
	lpdt->cx = 149;
	lpdt->cy = 99;

	lpw = (LPWORD)(lpdt + 1);
	*lpw++ = 0; // No menu
	*lpw++ = 0; // Predefined dialog box class (by default)

	/* Write dialog caption */
	lpwsz = (LPWSTR)lpw;
	nchar = MultiByteToWideChar(CP_ACP, 0, lpszTitle, -1, lpwsz, 255);
	lpw += nchar;

	// -----------------------
	// Define an OK button.
	// -----------------------
	lpw = lpwAlign(lpw); // Align DLGITEMTEMPLATE on DWORD boundary
	lpdit = (LPDLGITEMTEMPLATE)lpw;
	lpdit->x = 21;
	lpdit->y = 77;
	lpdit->cx = 50;
	lpdit->cy = 14;
	lpdit->id = ID_OK; // OK button identifier
	lpdit->style = WS_CHILD | WS_VISIBLE | BS_DEFPUSHBUTTON;

	lpw = (LPWORD)(lpdit + 1);
	*lpw++ = 0xFFFF;
	*lpw++ = 0x0080; // Button class

	lpwsz = (LPWSTR)lpw;
	nchar = MultiByteToWideChar(CP_ACP, 0, "OK", -1, lpwsz, 50);
	lpw += nchar;
	lpw = lpwAlign(lpw); // Align creation data on DWORD boundary
	*lpw++ = 0; // No creation data

	// -----------------------
	// Define a Cancel button.
	// -----------------------
	lpw = lpwAlign(lpw); // Align DLGITEMTEMPLATE on DWORD boundary
	lpdit = (LPDLGITEMTEMPLATE)lpw;
	lpdit->x = 81;
	lpdit->y = 77;
	lpdit->cx = 50;
	lpdit->cy = 14;
	lpdit->id = ID_CANCEL; // Help button identifier
	lpdit->style = WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON;

	lpw = (LPWORD)(lpdit + 1);
	*lpw++ = 0xFFFF;
	*lpw++ = 0x0080; // Button class atom

	lpwsz = (LPWSTR)lpw;
	nchar = MultiByteToWideChar(CP_ACP, 0, "Cancel", -1, lpwsz, 50);
	lpw += nchar;
	lpw = lpwAlign(lpw); // Align creation data on DWORD boundary
	*lpw++ = 0; // No creation data

	// -----------------------
	// Define a Edit box.
	// -----------------------
	lpw = lpwAlign(lpw); // Align DLGITEMTEMPLATE on DWORD boundary
	lpdit = (LPDLGITEMTEMPLATE)lpw;
	lpdit->x = 9;
	lpdit->y = 22;
	lpdit->cx = 133;
	lpdit->cy = 54;
	lpdit->id = ID_CONTENT; // Edit identifier
	lpdit->style =
		WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | ES_MULTILINE |
		ES_AUTOHSCROLL | ES_WANTRETURN;

	lpw = (LPWORD)(lpdit + 1);
	*lpw++ = 0xFFFF;
	*lpw++ = 0x0081; // Edit class

	lpwsz = (LPWSTR)lpw;
	nchar = MultiByteToWideChar(CP_ACP, 0, lpszDataDefault, -1, lpwsz, 255);
	lpw += nchar;
	lpw = lpwAlign(lpw); // Align creation data on DWORD boundary
	*lpw++ = 0; // No creation data

	// -----------------------
	// Define a static text control.
	// -----------------------
	lpw = lpwAlign(lpw); // Align DLGITEMTEMPLATE on DWORD boundary
	lpdit = (LPDLGITEMTEMPLATE)lpw;
	lpdit->x = 7;
	lpdit->y = 7;
	lpdit->cx = 50;
	lpdit->cy = 12;
	lpdit->id = ID_TEXT; // Text identifier
	lpdit->style = WS_CHILD | WS_VISIBLE | SS_LEFT;

	lpw = (LPWORD)(lpdit + 1);
	*lpw++ = 0xFFFF;
	*lpw++ = 0x0082; // Static class

	lpwsz = (LPWSTR)lpw;
	nchar = MultiByteToWideChar(CP_ACP, 0, lpszDataCaption, -1, lpwsz, 255);
	lpw += nchar;
	lpw = lpwAlign(lpw); // Align creation data on DWORD boundary
	*lpw++ = 0; // No creation data

	/* */
	GlobalUnlock(hgbl);
	ret = DialogBoxIndirectParam(hinst, (LPDLGTEMPLATE)hgbl, hwndOwner,
		(DLGPROC)DialogProc, NULL);
	//
	// ErrorExit("DisplayDialogBox");
	//
	GlobalFree(hgbl);
	return ret;
}

/* Show self define dialog by lua */
int luax_FetchData(lua_State *l) {
	int ret;
	char *dlgCap, *datCap, *datDefault;
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	dlgCap = (char *)lua_tostring(l, 1);
	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	datCap = (char *)lua_tostring(l, 2);
	if (!lua_isstring(l, 3)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	datDefault = (char *)lua_tostring(l, 3);
	memset(fetchMsg, '\0', sizeof(fetchMsg));
	ret = DisplayDialogBox(GetModuleHandle(NULL), (HWND)IDE_GetWindowHandle(),
		dlgCap, datCap, datDefault);
	lua_pushstring(l, fetchMsg);
	lua_pushnumber(l, ret);
	return 2;
}

/* Dumping stack information to given buffer */
static void Stack2Buff(lua_State *L, char *buff) {
	int i;
	char msg[LUA_MESSAGE_SIZE];
	int top = lua_gettop(L);
	if (!buff)
		return;
	sprintf(buff, "-----BEGIN-----\n");
	for (i = 1; i <= top; i++) { /* repeat for each level */
		int t = lua_type(L, i);
		switch (t) {
		case LUA_TSTRING: { /* strings */
				memset(msg, '\0', sizeof(LUA_MESSAGE_SIZE));
				sprintf(msg, "[INDEX %d]'%s'\n", i, lua_tostring(L, i));
				break;
			}
		case LUA_TBOOLEAN: { /* booleans */
				memset(msg, '\0', sizeof(LUA_MESSAGE_SIZE));
				sprintf(msg, "[INDEX %d]%s\n", i, lua_toboolean(L, i) ? "true" :
					"false");
				break;
			}
		case LUA_TNUMBER: { /* numbers */
				memset(msg, '\0', sizeof(LUA_MESSAGE_SIZE));
				sprintf(msg, "[INDEX %d]%g\n", i, lua_tonumber(L, i));
				break;
			}
		default: { /* other values */
				memset(msg, '\0', sizeof(LUA_MESSAGE_SIZE));
				sprintf(msg, "[INDEX %d]%s\n", i, lua_typename(L, t));
				break;
			}
		}
		strcat(buff, msg);
	}
	strcat(buff, "-----END-----\n");
}

/* Get open file name string */
int luax_GetOpenFileName(lua_State *l) {
	// Initialize OPENFILENAME
	BOOL bResult = FALSE;
	DWORD dwError = NOERROR;
	OPENFILENAME ofn = {0};
	// Get lua parameters
	char *szFilter, *szFile; // buffer for filter and file name
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	szFilter = (char*)lua_tostring(l, 1);

	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	szFile = (char*)lua_tostring(l, 2);

	ofn.lStructSize = sizeof(OPENFILENAME);
	ofn.hwndOwner=IDE_GetWindowHandle();
	ofn.lpstrTitle="Lua Open Files";
	ofn.lpstrFilter = szFilter;
	ofn.lpstrFile = szFile;
	ofn.nMaxFile = MAX_PATH;
	ofn.Flags = OFN_EXPLORER | OFN_HIDEREADONLY | OFN_NOCHANGEDIR |
		OFN_PATHMUSTEXIST;
	// Display the Open dialog box.
	bResult = GetOpenFileName(&ofn);
	if (bResult == FALSE) {
		dwError = CommDlgExtendedError();
		lua_pushstring(l, "");
	}
	else {
		lua_pushstring(l, ofn.lpstrFile);
	}
	return 1;
}

/* Get save as file name string */
int luax_GetSaveFileName(lua_State *l) {
	// Initialize OPENFILENAME
	BOOL bResult = FALSE;
	DWORD dwError = NOERROR;
	OPENFILENAME ofn = {0};
	// Get lua parameters
	char *szFilter, *szFile; // buffer for filter and file name
	if (!lua_isstring(l, 1)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	szFilter = (char*)lua_tostring(l, 1);

	if (!lua_isstring(l, 2)) {
		lua_pushstring(l, "incorrect argument");
		lua_error(l);
	}
	szFile = (char*)lua_tostring(l, 2);

	ofn.lStructSize = sizeof(OPENFILENAME);
	ofn.hwndOwner=IDE_GetWindowHandle();
	ofn.lpstrTitle="Lua Save Files";
	ofn.lpstrFilter = szFilter;
	ofn.lpstrFile = szFile;
	ofn.nMaxFile = MAX_PATH;
	ofn.Flags = OFN_EXPLORER | OFN_HIDEREADONLY | OFN_NOCHANGEDIR |
		OFN_PATHMUSTEXIST | OFN_OVERWRITEPROMPT;
	// Display the Save dialog box.
	bResult = GetSaveFileName(&ofn);
	if (bResult == FALSE) {
		dwError = CommDlgExtendedError();
		lua_pushstring(l, "");
	}
	else {
		lua_pushstring(l, ofn.lpstrFile);
	}
	return 1;
}