sourcemod-central: core/systems/PluginSys.cpp@2f2fe925f377 (annotated)

dvander@370	1	/**
ds@653	2	* vim: set ts=4 :
ds@1330	3	* =============================================================================
dvander@1231	4	* SourceMod
dvander@1231	5	* Copyright (C) 2004-2007 AlliedModders LLC. All rights reserved.
ds@1330	6	* =============================================================================
dvander@370	7	*
ds@1330	8	* This program is free software; you can redistribute it and/or modify it under
ds@1330	9	* the terms of the GNU General Public License, version 3.0, as published by the
ds@1330	10	* Free Software Foundation.
dvander@1231	11	*
ds@1330	12	* This program is distributed in the hope that it will be useful, but WITHOUT
ds@1330	13	* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
ds@1330	14	* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
ds@1330	15	* details.
dvander@1231	16	*
ds@1330	17	* You should have received a copy of the GNU General Public License along with
ds@1330	18	* this program. If not, see <http://www.gnu.org/licenses/>.
dvander@1231	19	*
ds@1330	20	* As a special exception, AlliedModders LLC gives you permission to link the
ds@1330	21	* code of this program (as well as its derivative works) to "Half-Life 2," the
ds@1330	22	* "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
ds@1330	23	* by the Valve Corporation. You must obey the GNU General Public License in
ds@1330	24	* all respects for all other code used. Additionally, AlliedModders LLC grants
ds@1330	25	* this exception to all derivative works. AlliedModders LLC defines further
ds@1330	26	* exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
ds@1330	27	* or <http://www.sourcemod.net/license.php>.
dvander@370	28	*
dvander@370	29	* Version: $Id$
dvander@370	30	*/
dvander@370	31
dvander@173	32	#include <stdio.h>
dvander@173	33	#include "PluginSys.h"
dvander@229	34	#include "ShareSys.h"
dvander@190	35	#include "LibrarySys.h"
dvander@220	36	#include "HandleSys.h"
ds@611	37	#include "ForwardSys.h"
dvander@197	38	#include "sourcemm_api.h"
dvander@209	39	#include "sourcemod.h"
dvander@591	40	#include "TextParsers.h"
dvander@592	41	#include "Logger.h"
dvander@298	42	#include "ExtensionSys.h"
dvander@309	43	#include "sm_srvcmds.h"
dvander@309	44	#include "sm_stringutil.h"
dvander@848	45	#include "ConCmdManager.h"
dvander@848	46	#include "PlayerManager.h"
dvander@978	47	#include "CoreConfig.h"
dvander@1621	48	#include "Translator.h"
dvander@173	49
dvander@211	50	CPluginManager g_PluginSys;
dvander@220	51	HandleType_t g_PluginType = 0;
dvander@229	52	IdentityType_t g_PluginIdent = 0;
dvander@173	53
dvander@209	54	CPlugin::CPlugin(const char *file)
dvander@209	55	{
dvander@209	56	static int MySerial = 0;
dvander@209	57
dvander@209	58	m_type = PluginType_Private;
dvander@209	59	m_status = Plugin_Uncompiled;
dvander@209	60	m_serial = ++MySerial;
dvander@209	61	m_plugin = NULL;
dvander@209	62	m_errormsg[256] = '\0';
dvander@209	63	snprintf(m_filename, sizeof(m_filename), "%s", file);
dvander@229	64	m_handle = 0;
dvander@229	65	m_ident = NULL;
dvander@486	66	m_pProps = sm_trie_create();
dvander@605	67	m_FakeNativesMissing = false;
faluco@1112	68	m_LibraryMissing = false;
dvander@1630	69	m_bGotAllLoaded = false;
dvander@209	70	}
dvander@209	71
dvander@209	72	CPlugin::~CPlugin()
dvander@173	73	{
dvander@298	74	if (m_handle)
dvander@298	75	{
dvander@298	76	HandleSecurity sec;
dvander@298	77	sec.pOwner = g_PluginSys.GetIdentity();
dvander@298	78	sec.pIdentity = sec.pOwner;
dvander@298	79
dvander@298	80	g_HandleSys.FreeHandle(m_handle, &sec);
dvander@298	81	g_ShareSys.DestroyIdentity(m_ident);
dvander@298	82	}
dvander@298	83
dvander@209	84	if (m_ctx.base)
dvander@209	85	{
dvander@262	86	delete m_ctx.base;
dvander@209	87	m_ctx.base = NULL;
dvander@209	88	}
dvander@209	89	if (m_ctx.ctx)
dvander@209	90	{
dvander@209	91	m_ctx.vm->FreeContext(m_ctx.ctx);
dvander@209	92	m_ctx.ctx = NULL;
dvander@209	93	}
dvander@209	94	if (m_ctx.co)
dvander@209	95	{
dvander@209	96	m_ctx.vm->AbortCompilation(m_ctx.co);
dvander@209	97	m_ctx.co = NULL;
dvander@209	98	}
dvander@209	99
dvander@222	100	if (m_plugin)
dvander@222	101	{
dvander@222	102	g_pSourcePawn->FreeFromMemory(m_plugin);
dvander@222	103	m_plugin = NULL;
dvander@222	104	}
faluco@641	105	if (m_pProps)
dvander@486	106	{
dvander@486	107	sm_trie_destroy(m_pProps);
dvander@486	108	}
dvander@978	109	for (size_t i=0; i<m_configs.size(); i++)
dvander@978	110	{
dvander@978	111	delete m_configs[i];
dvander@978	112	}
dvander@978	113	m_configs.clear();
dvander@229	114	}
dvander@229	115
dvander@229	116	void CPlugin::InitIdentity()
dvander@229	117	{
dvander@229	118	if (!m_handle)
dvander@229	119	{
dvander@868	120	m_ident = g_ShareSys.CreateIdentity(g_PluginIdent, this);
dvander@262	121	m_handle = g_HandleSys.CreateHandle(g_PluginType, this, g_PluginSys.GetIdentity(), g_PluginSys.GetIdentity(), NULL);
dvander@262	122	m_ctx.base->SetIdentity(m_ident);
dvander@229	123	}
dvander@209	124	}
dvander@209	125
dvander@536	126	Handle_t CPlugin::GetMyHandle()
dvander@536	127	{
dvander@536	128	return m_handle;
dvander@536	129	}
dvander@536	130
dvander@209	131	CPlugin CPlugin::CreatePlugin(const char file, char *error, size_t maxlength)
dvander@209	132	{
ds@652	133	char fullpath[PLATFORM_MAX_PATH];
dvander@317	134	g_SourceMod.BuildPath(Path_SM, fullpath, sizeof(fullpath), "plugins/%s", file);
dvander@209	135	FILE *fp = fopen(fullpath, "rb");
dvander@173	136
dvander@298	137	CPlugin *pPlugin = new CPlugin(file);
dvander@298	138
dvander@173	139	if (!fp)
dvander@173	140	{
dvander@209	141	if (error)
dvander@209	142	{
dvander@209	143	snprintf(error, maxlength, "Unable to open file");
dvander@209	144	}
dvander@298	145	pPlugin->m_status = Plugin_BadLoad;
dvander@298	146	return pPlugin;
dvander@173	147	}
dvander@173	148
dvander@173	149	int err;
dvander@173	150	sp_plugin_t *pl = g_pSourcePawn->LoadFromFilePointer(fp, &err);
dvander@173	151	if (pl == NULL)
dvander@173	152	{
dvander@209	153	fclose(fp);
dvander@209	154	if (error)
dvander@209	155	{
dvander@209	156	snprintf(error, maxlength, "Error %d while parsing plugin", err);
dvander@209	157	}
dvander@298	158	pPlugin->m_status = Plugin_BadLoad;
dvander@298	159	return pPlugin;
dvander@173	160	}
dvander@173	161
dvander@173	162	fclose(fp);
dvander@173	163
dvander@209	164	pPlugin->m_plugin = pl;
dvander@298	165
dvander@209	166	return pPlugin;
dvander@209	167	}
dvander@209	168
dvander@486	169	bool CPlugin::GetProperty(const char prop, void ptr, bool remove/ =false */)
dvander@486	170	{
dvander@486	171	bool exists = sm_trie_retrieve(m_pProps, prop, ptr);
dvander@486	172
dvander@486	173	if (exists && remove)
dvander@486	174	{
dvander@486	175	sm_trie_delete(m_pProps, prop);
dvander@486	176	}
dvander@486	177
dvander@486	178	return exists;
dvander@486	179	}
dvander@486	180
dvander@486	181	bool CPlugin::SetProperty(const char prop, void ptr)
dvander@486	182	{
dvander@486	183	return sm_trie_insert(m_pProps, prop, ptr);
dvander@486	184	}
dvander@486	185
dvander@209	186	ICompilation CPlugin::StartMyCompile(IVirtualMachine vm)
dvander@209	187	{
dvander@209	188	if (!m_plugin)
dvander@173	189	{
dvander@209	190	return NULL;
dvander@173	191	}
dvander@173	192
dvander@209	193	/* :NOTICE: We will eventually need to change these natives
dvander@209	194	* for swapping in new contexts
dvander@209	195	*/
dvander@209	196	if (m_ctx.co \|\| m_ctx.ctx)
dvander@173	197	{
dvander@173	198	return NULL;
dvander@173	199	}
dvander@173	200
dvander@209	201	m_status = Plugin_Uncompiled;
dvander@173	202
dvander@209	203	m_ctx.vm = vm;
dvander@209	204	m_ctx.co = vm->StartCompilation(m_plugin);
dvander@209	205
dvander@209	206	return m_ctx.co;
dvander@209	207	}
dvander@173	208
dvander@209	209	void CPlugin::CancelMyCompile()
dvander@209	210	{
dvander@209	211	if (!m_ctx.co)
dvander@209	212	{
dvander@209	213	return;
dvander@209	214	}
dvander@176	215
dvander@209	216	m_ctx.vm->AbortCompilation(m_ctx.co);
dvander@209	217	m_ctx.co = NULL;
dvander@209	218	m_ctx.vm = NULL;
dvander@209	219	}
dvander@209	220
dvander@209	221	bool CPlugin::FinishMyCompile(char *error, size_t maxlength)
dvander@209	222	{
dvander@209	223	if (!m_ctx.co)
dvander@176	224	{
dvander@209	225	return false;
dvander@176	226	}
dvander@176	227
dvander@209	228	int err;
dvander@209	229	m_ctx.ctx = m_ctx.vm->CompileToContext(m_ctx.co, &err);
dvander@209	230	if (!m_ctx.ctx)
dvander@176	231	{
dvander@209	232	memset(&m_ctx, 0, sizeof(m_ctx));
dvander@298	233	if (error)
dvander@209	234	{
dvander@803	235	snprintf(error, maxlength, "JIT failed to compile (error %d)", err);
dvander@209	236	}
dvander@209	237	return false;
dvander@176	238	}
dvander@176	239
dvander@262	240	m_ctx.base = new BaseContext(m_ctx.ctx);
dvander@209	241	m_ctx.ctx->user[SM_CONTEXTVAR_MYSELF] = (void *)this;
dvander@209	242
dvander@211	243	m_status = Plugin_Created;
faluco@216	244	m_ctx.co = NULL;
dvander@211	245
dvander@209	246	UpdateInfo();
dvander@209	247
dvander@209	248	return true;
dvander@209	249	}
dvander@209	250
dvander@209	251	void CPlugin::SetErrorState(PluginStatus status, const char *error_fmt, ...)
dvander@209	252	{
dvander@605	253	PluginStatus old_status = m_status;
dvander@209	254	m_status = status;
dvander@209	255
dvander@605	256	if (old_status == Plugin_Running)
dvander@605	257	{
dvander@605	258	/* Tell everyone we're now paused */
dvander@605	259	g_PluginSys._SetPauseState(this, true);
dvander@605	260	}
dvander@605	261
dvander@209	262	va_list ap;
dvander@209	263	va_start(ap, error_fmt);
dvander@209	264	vsnprintf(m_errormsg, sizeof(m_errormsg), error_fmt, ap);
dvander@209	265	va_end(ap);
dvander@173	266
dvander@525	267	if (m_ctx.ctx)
dvander@176	268	{
dvander@525	269	m_ctx.ctx->flags \|= SPFLAG_PLUGIN_PAUSED;
dvander@176	270	}
dvander@176	271	}
dvander@176	272
dvander@173	273	void CPlugin::UpdateInfo()
dvander@173	274	{
dvander@173	275	/* Now grab the info */
dvander@173	276	uint32_t idx;
dvander@173	277	IPluginContext *base = GetBaseContext();
dvander@173	278	int err = base->FindPubvarByName("myinfo", &idx);
dvander@173	279
dvander@413	280	memset(&m_info, 0, sizeof(m_info));
dvander@413	281
dvander@173	282	if (err == SP_ERROR_NONE)
dvander@173	283	{
dvander@173	284	struct sm_plugininfo_c_t
dvander@173	285	{
dvander@173	286	cell_t name;
dvander@173	287	cell_t description;
dvander@173	288	cell_t author;
dvander@173	289	cell_t version;
dvander@173	290	cell_t url;
dvander@173	291	};
dvander@173	292	sm_plugininfo_c_t *cinfo;
dvander@173	293	cell_t local_addr;
dvander@173	294
dvander@173	295	base->GetPubvarAddrs(idx, &local_addr, (cell_t **)&cinfo);
dvander@173	296	base->LocalToString(cinfo->name, (char **)&m_info.name);
dvander@173	297	base->LocalToString(cinfo->description, (char **)&m_info.description);
dvander@173	298	base->LocalToString(cinfo->author, (char **)&m_info.author);
dvander@173	299	base->LocalToString(cinfo->url, (char **)&m_info.url);
dvander@173	300	base->LocalToString(cinfo->version, (char **)&m_info.version);
dvander@173	301	}
dvander@173	302
dvander@173	303	m_info.author = m_info.author ? m_info.author : "";
dvander@173	304	m_info.description = m_info.description ? m_info.description : "";
dvander@173	305	m_info.name = m_info.name ? m_info.name : "";
dvander@173	306	m_info.url = m_info.url ? m_info.url : "";
dvander@173	307	m_info.version = m_info.version ? m_info.version : "";
dvander@173	308	}
dvander@173	309
ds@426	310	void CPlugin::Call_OnPluginStart()
dvander@211	311	{
dvander@211	312	if (m_status != Plugin_Loaded)
dvander@211	313	{
dvander@211	314	return;
dvander@211	315	}
dvander@211	316
dvander@211	317	m_status = Plugin_Running;
dvander@211	318
dvander@211	319	cell_t result;
dvander@340	320	IPluginFunction *pFunction = m_ctx.base->GetFunctionByName("OnPluginStart");
dvander@211	321	if (!pFunction)
dvander@211	322	{
dvander@211	323	return;
dvander@211	324	}
dvander@211	325
dvander@838	326	int err;
dvander@838	327	if ((err=pFunction->Execute(&result)) != SP_ERROR_NONE)
dvander@838	328	{
dvander@838	329	SetErrorState(Plugin_Error, "Error detected in plugin startup (see error logs)");
dvander@838	330	}
dvander@282	331	}
dvander@282	332
ds@426	333	void CPlugin::Call_OnPluginEnd()
dvander@282	334	{
faluco@736	335	if (m_status > Plugin_Paused)
dvander@211	336	{
dvander@282	337	return;
dvander@211	338	}
dvander@282	339
dvander@282	340	cell_t result;
dvander@340	341	IPluginFunction *pFunction = m_ctx.base->GetFunctionByName("OnPluginEnd");
dvander@282	342	if (!pFunction)
dvander@282	343	{
dvander@282	344	return;
dvander@282	345	}
dvander@282	346
dvander@282	347	pFunction->Execute(&result);
dvander@211	348	}
dvander@211	349
faluco@1221	350	void CPlugin::Call_OnAllPluginsLoaded()
faluco@1221	351	{
faluco@1221	352	if (m_status > Plugin_Paused)
faluco@1221	353	{
faluco@1221	354	return;
faluco@1221	355	}
faluco@1221	356
dvander@1630	357	if (m_bGotAllLoaded)
dvander@1630	358	{
dvander@1630	359	return;
dvander@1630	360	}
dvander@1630	361
dvander@1630	362	m_bGotAllLoaded = true;
dvander@1630	363
faluco@1221	364	cell_t result;
faluco@1221	365	IPluginFunction *pFunction = m_ctx.base->GetFunctionByName("OnAllPluginsLoaded");
faluco@1221	366	if (!pFunction)
faluco@1221	367	{
faluco@1221	368	return;
faluco@1221	369	}
faluco@1221	370
faluco@1221	371	pFunction->Execute(&result);
dvander@1630	372
dvander@1630	373	if (g_OnMapStarted)
dvander@1630	374	{
dvander@1630	375	if ((pFunction = m_ctx.base->GetFunctionByName("OnMapStart")) != NULL)
dvander@1630	376	{
dvander@1630	377	pFunction->Execute(NULL);
dvander@1630	378	}
dvander@1630	379	}
dvander@1630	380
dvander@1630	381	if (SM_AreConfigsExecuted())
dvander@1630	382	{
dvander@1630	383	SM_ExecuteForPlugin(GetBaseContext());
dvander@1630	384	}
faluco@1221	385	}
faluco@1221	386
dvander@211	387	bool CPlugin::Call_AskPluginLoad(char *error, size_t maxlength)
dvander@211	388	{
dvander@211	389	if (m_status != Plugin_Created)
dvander@211	390	{
dvander@211	391	return false;
dvander@211	392	}
dvander@211	393
faluco@216	394	m_status = Plugin_Loaded;
faluco@216	395
dvander@211	396	int err;
dvander@211	397	cell_t result;
dvander@327	398	IPluginFunction *pFunction = m_ctx.base->GetFunctionByName("AskPluginLoad");
dvander@211	399
dvander@211	400	if (!pFunction)
dvander@211	401	{
dvander@211	402	return true;
dvander@211	403	}
dvander@211	404
dvander@222	405	pFunction->PushCell(m_handle);
dvander@211	406	pFunction->PushCell(g_PluginSys.IsLateLoadTime() ? 1 : 0);
dvander@211	407	pFunction->PushStringEx(error, maxlength, 0, SM_PARAM_COPYBACK);
dvander@211	408	pFunction->PushCell(maxlength);
dvander@211	409	if ((err=pFunction->Execute(&result)) != SP_ERROR_NONE)
dvander@211	410	{
dvander@211	411	return false;
dvander@211	412	}
dvander@211	413
dvander@282	414	if (!result \|\| m_status != Plugin_Loaded)
dvander@211	415	{
dvander@211	416	return false;
dvander@211	417	}
dvander@211	418
dvander@211	419	return true;
dvander@211	420	}
dvander@211	421
dvander@615	422	const sp_plugin_t *CPlugin::GetPluginStructure()
dvander@173	423	{
dvander@173	424	return m_plugin;
dvander@173	425	}
dvander@173	426
dvander@615	427	IPluginContext *CPlugin::GetBaseContext()
dvander@173	428	{
dvander@209	429	return m_ctx.base;
dvander@173	430	}
dvander@173	431
dvander@615	432	sp_context_t *CPlugin::GetContext()
dvander@173	433	{
dvander@209	434	return m_ctx.ctx;
dvander@173	435	}
dvander@173	436
dvander@615	437	const char *CPlugin::GetFilename()
dvander@173	438	{
dvander@173	439	return m_filename;
dvander@173	440	}
dvander@173	441
dvander@615	442	PluginType CPlugin::GetType()
dvander@173	443	{
dvander@174	444	return m_type;
dvander@173	445	}
dvander@173	446
dvander@615	447	const sm_plugininfo_t *CPlugin::GetPublicInfo()
dvander@173	448	{
dvander@173	449	return &m_info;
dvander@173	450	}
dvander@173	451
dvander@615	452	unsigned int CPlugin::GetSerial()
dvander@173	453	{
dvander@173	454	return m_serial;
dvander@173	455	}
dvander@173	456
dvander@615	457	PluginStatus CPlugin::GetStatus()
dvander@173	458	{
dvander@173	459	return m_status;
dvander@173	460	}
dvander@173	461
dvander@615	462	bool CPlugin::IsDebugging()
dvander@173	463	{
dvander@209	464	if (!m_ctx.ctx)
dvander@209	465	{
dvander@209	466	return false;
dvander@209	467	}
dvander@209	468
dvander@209	469	return ((m_ctx.ctx->flags & SP_FLAG_DEBUG) == SP_FLAG_DEBUG);
dvander@173	470	}
dvander@173	471
dvander@1124	472	void CPlugin::LibraryActions(bool dropping)
dvander@1124	473	{
dvander@1124	474	List<String>::iterator iter;
dvander@1124	475	for (iter = m_Libraries.begin();
dvander@1124	476	iter != m_Libraries.end();
dvander@1124	477	iter++)
dvander@1124	478	{
dvander@1572	479	g_PluginSys.OnLibraryAction((*iter).c_str(), true, dropping);
dvander@1124	480	}
dvander@1124	481	}
dvander@1124	482
dvander@173	483	bool CPlugin::SetPauseState(bool paused)
dvander@173	484	{
dvander@1124	485	if (paused && GetStatus() != Plugin_Running)
dvander@173	486	{
dvander@173	487	return false;
dvander@1124	488	} else if (!paused && GetStatus() != Plugin_Paused) {
dvander@173	489	return false;
dvander@173	490	}
dvander@282	491
dvander@1124	492	if (paused)
dvander@1124	493	{
dvander@1124	494	LibraryActions(true);
dvander@1124	495	}
dvander@1124	496
dvander@327	497	IPluginFunction *pFunction = m_ctx.base->GetFunctionByName("OnPluginPauseChange");
dvander@282	498	if (pFunction)
dvander@282	499	{
dvander@282	500	cell_t result;
dvander@282	501	pFunction->PushCell(paused ? 1 : 0);
dvander@282	502	pFunction->Execute(&result);
dvander@282	503	}
dvander@173	504
dvander@525	505	if (paused)
dvander@525	506	{
dvander@525	507	m_status = Plugin_Paused;
dvander@525	508	m_ctx.ctx->flags \|= SPFLAG_PLUGIN_PAUSED;
dvander@525	509	} else {
dvander@525	510	m_status = Plugin_Running;
dvander@525	511	m_ctx.ctx->flags &= ~SPFLAG_PLUGIN_PAUSED;
dvander@525	512	}
dvander@525	513
faluco@430	514	g_PluginSys._SetPauseState(this, paused);
faluco@430	515
dvander@1124	516	if (!paused)
dvander@1124	517	{
dvander@1124	518	LibraryActions(false);
dvander@1124	519	}
dvander@1124	520
dvander@173	521	return true;
dvander@173	522	}
dvander@174	523
dvander@615	524	IdentityToken_t *CPlugin::GetIdentity()
dvander@220	525	{
dvander@229	526	return m_ident;
dvander@220	527	}
dvander@220	528
dvander@309	529	bool CPlugin::ToggleDebugMode(bool debug, char *error, size_t maxlength)
faluco@290	530	{
faluco@290	531	int err;
faluco@290	532
faluco@290	533	if (!IsRunnable())
faluco@290	534	{
dvander@309	535	if (error)
dvander@309	536	{
dvander@309	537	snprintf(error, maxlength, "Plugin is not runnable.");
dvander@309	538	}
faluco@290	539	return false;
faluco@290	540	}
faluco@290	541
dvander@309	542	if (debug && IsDebugging())
faluco@290	543	{
dvander@309	544	if (error)
dvander@309	545	{
dvander@309	546	snprintf(error, maxlength, "Plugin is already in debug mode.");
dvander@309	547	}
dvander@309	548	return false;
dvander@1630	549	}
dvander@1630	550	else if (!debug && !IsDebugging())
dvander@1630	551	{
dvander@309	552	if (error)
dvander@309	553	{
dvander@309	554	snprintf(error, maxlength, "Plugins is already in production mode.");
dvander@309	555	}
faluco@290	556	return false;
faluco@290	557	}
dvander@309	558
faluco@290	559	ICompilation *co = g_pVM->StartCompilation(m_ctx.ctx->plugin);
faluco@290	560	if (!g_pVM->SetCompilationOption(co, "debug", (debug) ? "1" : "0"))
faluco@290	561	{
dvander@309	562	if (error)
dvander@309	563	{
dvander@309	564	snprintf(error, maxlength, "Failed to change plugin mode (JIT failure).");
dvander@309	565	}
faluco@290	566	return false;
faluco@290	567	}
dvander@309	568
faluco@290	569	sp_context_t *new_ctx = g_pVM->CompileToContext(co, &err);
faluco@290	570
dvander@309	571	if (new_ctx)
dvander@309	572	{
dvander@309	573	memcpy(new_ctx->memory, m_ctx.ctx->memory, m_ctx.ctx->mem_size);
dvander@309	574	new_ctx->hp = m_ctx.ctx->hp;
dvander@309	575	new_ctx->sp = m_ctx.ctx->sp;
dvander@309	576	new_ctx->frm = m_ctx.ctx->frm;
dvander@309	577	new_ctx->dbreak = m_ctx.ctx->dbreak;
dvander@309	578	new_ctx->context = m_ctx.ctx->context;
dvander@309	579	memcpy(new_ctx->user, m_ctx.ctx->user, sizeof(m_ctx.ctx->user));
faluco@290	580
dvander@693	581	uint32_t nativeCount = m_plugin->info.natives_num;
dvander@693	582	for (uint32_t i=0; i<nativeCount; i++)
dvander@693	583	{
dvander@693	584	new_ctx->natives[i].pfn = m_ctx.ctx->natives[i].pfn;
dvander@693	585	new_ctx->natives[i].status = m_ctx.ctx->natives[i].status;
dvander@693	586	}
dvander@693	587
dvander@309	588	g_pVM->FreeContext(m_ctx.ctx);
dvander@309	589	m_ctx.ctx = new_ctx;
dvander@309	590	m_ctx.base->SetContext(new_ctx);
faluco@290	591
dvander@309	592	UpdateInfo();
dvander@1630	593	}
dvander@1630	594	else
dvander@1630	595	{
dvander@309	596	if (error)
dvander@309	597	{
dvander@309	598	snprintf(error, maxlength, "Failed to recompile plugin (JIT error %d).", err);
dvander@309	599	}
dvander@309	600	return false;
dvander@309	601	}
faluco@290	602
faluco@290	603	return true;
faluco@290	604	}
faluco@290	605
dvander@615	606	bool CPlugin::IsRunnable()
faluco@290	607	{
faluco@290	608	return (m_status <= Plugin_Paused) ? true : false;
faluco@290	609	}
faluco@290	610
faluco@333	611	time_t CPlugin::GetFileTimeStamp()
faluco@333	612	{
ds@652	613	char path[PLATFORM_MAX_PATH];
faluco@333	614	g_SourceMod.BuildPath(Path_SM, path, sizeof(path), "plugins/%s", m_filename);
faluco@333	615	#ifdef PLATFORM_WINDOWS
faluco@333	616	struct _stat s;
faluco@333	617	if (_stat(path, &s) != 0)
dvander@351	618	#elif defined PLATFORM_POSIX
faluco@333	619	struct stat s;
faluco@333	620	if (stat(path, &s) != 0)
faluco@333	621	#endif
faluco@333	622	{
faluco@333	623	return 0;
dvander@1630	624	}
dvander@1630	625	else
dvander@1630	626	{
faluco@333	627	return s.st_mtime;
faluco@333	628	}
faluco@333	629	}
faluco@333	630
dvander@615	631	time_t CPlugin::GetTimeStamp()
faluco@333	632	{
faluco@333	633	return m_LastAccess;
faluco@333	634	}
faluco@333	635
faluco@333	636	void CPlugin::SetTimeStamp(time_t t)
faluco@333	637	{
faluco@333	638	m_LastAccess = t;
faluco@333	639	}
faluco@333	640
faluco@389	641	void CPlugin::AddLangFile(unsigned int index)
faluco@389	642	{
faluco@389	643	m_PhraseFiles.push_back(index);
faluco@389	644	}
faluco@389	645
dvander@615	646	size_t CPlugin::GetLangFileCount()
faluco@389	647	{
faluco@389	648	return m_PhraseFiles.size();
faluco@389	649	}
faluco@389	650
dvander@615	651	unsigned int CPlugin::GetLangFileByIndex(unsigned int index)
faluco@389	652	{
faluco@389	653	return m_PhraseFiles.at(index);
faluco@389	654	}
faluco@389	655
dvander@605	656	void CPlugin::DependencyDropped(CPlugin *pOwner)
dvander@605	657	{
dvander@605	658	if (!m_ctx.ctx)
dvander@605	659	{
dvander@605	660	return;
dvander@605	661	}
dvander@605	662
faluco@1112	663	List<String>::iterator reqlib_iter;
faluco@1112	664	List<String>::iterator lib_iter;
faluco@1112	665	for (lib_iter=pOwner->m_Libraries.begin(); lib_iter!=pOwner->m_Libraries.end(); lib_iter++)
faluco@1112	666	{
faluco@1112	667	for (reqlib_iter=m_RequiredLibs.begin(); reqlib_iter!=m_RequiredLibs.end(); reqlib_iter++)
faluco@1112	668	{
faluco@1112	669	if ((reqlib_iter) == (lib_iter))
faluco@1112	670	{
faluco@1112	671	m_LibraryMissing = true;
faluco@1112	672	}
faluco@1112	673	}
faluco@1112	674	}
faluco@1112	675
dvander@605	676	List<FakeNative *>::iterator iter;
dvander@605	677	FakeNative *pNative;
dvander@605	678	sp_native_t *native;
dvander@605	679	uint32_t idx;
dvander@605	680	unsigned int unbound = 0;
dvander@605	681
dvander@605	682	for (iter = pOwner->m_fakeNatives.begin();
dvander@605	683	iter != pOwner->m_fakeNatives.end();
dvander@605	684	iter++)
dvander@605	685	{
dvander@605	686	pNative = (*iter);
dvander@605	687	/* Find this native! */
dvander@605	688	if (m_ctx.base->FindNativeByName(pNative->name.c_str(), &idx) != SP_ERROR_NONE)
dvander@605	689	{
dvander@605	690	continue;
dvander@605	691	}
dvander@605	692	/* Unbind it */
dvander@605	693	m_ctx.base->GetNativeByIndex(idx, &native);
dvander@605	694	native->pfn = NULL;
dvander@605	695	native->status = SP_NATIVE_UNBOUND;
dvander@605	696	unbound++;
dvander@605	697	}
dvander@605	698
dvander@605	699	if (unbound)
dvander@605	700	{
dvander@605	701	m_FakeNativesMissing = true;
faluco@1112	702	}
faluco@1112	703
faluco@1112	704	/* :IDEA: in the future, add native trapping? */
faluco@1112	705	if (m_FakeNativesMissing \|\| m_LibraryMissing)
faluco@1112	706	{
dvander@605	707	SetErrorState(Plugin_Error, "Depends on plugin: %s", pOwner->GetFilename());
dvander@605	708	}
dvander@605	709
dvander@605	710	m_dependsOn.remove(pOwner);
dvander@605	711	}
dvander@605	712
dvander@978	713	unsigned int CPlugin::GetConfigCount()
dvander@978	714	{
dvander@978	715	return (unsigned int)m_configs.size();
dvander@978	716	}
dvander@978	717
dvander@978	718	AutoConfig *CPlugin::GetConfig(unsigned int i)
dvander@978	719	{
dvander@978	720	if (i >= GetConfigCount())
dvander@978	721	{
dvander@978	722	return NULL;
dvander@978	723	}
dvander@978	724
dvander@978	725	return m_configs[i];
dvander@978	726	}
dvander@978	727
dvander@978	728	void CPlugin::AddConfig(bool autoCreate, const char cfg, const char folder)
dvander@978	729	{
dvander@978	730	AutoConfig *c = new AutoConfig;
dvander@978	731
dvander@978	732	c->autocfg = cfg;
dvander@978	733	c->folder = folder;
dvander@978	734	c->create = autoCreate;
dvander@978	735
dvander@978	736	m_configs.push_back(c);
dvander@978	737	}
dvander@978	738
dvander@174	739	/*******************
dvander@174	740	* PLUGIN ITERATOR *
dvander@174	741	*******************/
dvander@190	742
dvander@213	743	CPluginManager::CPluginIterator::CPluginIterator(List<CPlugin > _mylist)
dvander@174	744	{
dvander@174	745	mylist = _mylist;
faluco@216	746	Reset();
dvander@174	747	}
dvander@174	748
dvander@174	749	IPlugin *CPluginManager::CPluginIterator::GetPlugin()
dvander@174	750	{
dvander@174	751	return (*current);
dvander@174	752	}
dvander@174	753
dvander@174	754	bool CPluginManager::CPluginIterator::MorePlugins()
dvander@174	755	{
dvander@174	756	return (current != mylist->end());
dvander@174	757	}
dvander@174	758
dvander@174	759	void CPluginManager::CPluginIterator::NextPlugin()
dvander@174	760	{
dvander@174	761	current++;
dvander@174	762	}
dvander@174	763
dvander@174	764	void CPluginManager::CPluginIterator::Release()
dvander@174	765	{
dvander@211	766	g_PluginSys.ReleaseIterator(this);
dvander@174	767	}
dvander@174	768
dvander@174	769	CPluginManager::CPluginIterator::~CPluginIterator()
dvander@174	770	{
dvander@174	771	}
dvander@174	772
dvander@174	773	void CPluginManager::CPluginIterator::Reset()
dvander@174	774	{
dvander@174	775	current = mylist->begin();
dvander@174	776	}
dvander@174	777
dvander@174	778	/******************
dvander@174	779	* PLUGIN MANAGER *
dvander@174	780	******************/
dvander@174	781
dvander@211	782	CPluginManager::CPluginManager()
dvander@211	783	{
dvander@211	784	m_LoadLookup = sm_trie_create();
dvander@211	785	m_AllPluginsLoaded = false;
dvander@229	786	m_MyIdent = NULL;
dvander@601	787	m_pNativeLookup = sm_trie_create();
dvander@1382	788	m_pCoreNatives = sm_trie_create();
dvander@1630	789	m_LoadingLocked = false;
dvander@211	790	}
dvander@211	791
dvander@211	792	CPluginManager::~CPluginManager()
dvander@211	793	{
dvander@282	794	/* :NOTICE:
dvander@282	795	* Ignore the fact that there might be plugins in the cache.
dvander@282	796	* This usually means that Core is not being unloaded properly, and everything
dvander@282	797	* will crash anyway. YAY
dvander@282	798	*/
dvander@211	799	sm_trie_destroy(m_LoadLookup);
dvander@601	800	sm_trie_destroy(m_pNativeLookup);
dvander@1382	801	sm_trie_destroy(m_pCoreNatives);
faluco@641	802
faluco@641	803	CStack<CPluginManager::CPluginIterator *>::iterator iter;
faluco@641	804	for (iter=m_iters.begin(); iter!=m_iters.end(); iter++)
faluco@641	805	{
faluco@641	806	delete (*iter);
faluco@641	807	}
faluco@641	808	m_iters.popall();
dvander@211	809	}
dvander@211	810
dvander@1018	811	void CPluginManager::Shutdown()
dvander@1018	812	{
dvander@1018	813	List<CPlugin *>::iterator iter;
dvander@1018	814
dvander@1018	815	while ((iter = m_plugins.begin()) != m_plugins.end())
dvander@1018	816	{
dvander@1018	817	UnloadPlugin(*iter);
dvander@1018	818	}
dvander@1018	819	}
dvander@1018	820
dvander@213	821	void CPluginManager::LoadAll_FirstPass(const char config, const char basedir)
dvander@190	822	{
dvander@203	823	/* First read in the database of plugin settings */
dvander@203	824	SMCParseError err;
dvander@203	825	unsigned int line, col;
faluco@216	826	m_AllPluginsLoaded = false;
dvander@1406	827	if ((err=textparsers->ParseFile_SMC(config, &m_PluginInfo, &line, &col)) != SMCParse_Okay)
dvander@203	828	{
dvander@305	829	g_Logger.LogError("[SM] Encountered fatal error parsing file \"%s\"", config);
dvander@1406	830	const char *err_msg = textparsers->GetSMCErrorString(err);
dvander@282	831	if (err_msg)
dvander@282	832	{
dvander@305	833	g_Logger.LogError("[SM] Parse error encountered: \"%s\"", err_msg);
dvander@282	834	}
dvander@203	835	}
dvander@203	836
dvander@209	837	LoadPluginsFromDir(basedir, NULL);
dvander@209	838	}
dvander@203	839
dvander@209	840	void CPluginManager::LoadPluginsFromDir(const char basedir, const char localpath)
dvander@209	841	{
ds@652	842	char base_path[PLATFORM_MAX_PATH];
dvander@209	843
dvander@209	844	/* Form the current path to start reading from */
dvander@209	845	if (localpath == NULL)
dvander@209	846	{
dvander@209	847	g_LibSys.PathFormat(base_path, sizeof(base_path), "%s", basedir);
dvander@209	848	} else {
dvander@209	849	g_LibSys.PathFormat(base_path, sizeof(base_path), "%s/%s", basedir, localpath);
dvander@209	850	}
dvander@209	851
dvander@209	852	IDirectory *dir = g_LibSys.OpenDirectory(base_path);
dvander@209	853
dvander@209	854	if (!dir)
dvander@209	855	{
dvander@282	856	char error[256];
dvander@282	857	g_LibSys.GetPlatformError(error, sizeof(error));
dvander@305	858	g_Logger.LogError("[SM] Failure reading from plugins path: %s", localpath);
dvander@305	859	g_Logger.LogError("[SM] Platform returned error: %s", error);
dvander@209	860	return;
dvander@209	861	}
dvander@209	862
dvander@190	863	while (dir->MoreFiles())
dvander@190	864	{
dvander@209	865	if (dir->IsEntryDirectory()
dvander@209	866	&& (strcmp(dir->GetEntryName(), ".") != 0)
dvander@209	867	&& (strcmp(dir->GetEntryName(), "..") != 0)
dvander@209	868	&& (strcmp(dir->GetEntryName(), "disabled") != 0)
dvander@209	869	&& (strcmp(dir->GetEntryName(), "optional") != 0))
dvander@190	870	{
ds@652	871	char new_local[PLATFORM_MAX_PATH];
dvander@209	872	if (localpath == NULL)
dvander@209	873	{
dvander@209	874	/* If no path yet, don't add a former slash */
dvander@209	875	snprintf(new_local, sizeof(new_local), "%s", dir->GetEntryName());
dvander@209	876	} else {
dvander@209	877	g_LibSys.PathFormat(new_local, sizeof(new_local), "%s/%s", localpath, dir->GetEntryName());
dvander@209	878	}
dvander@209	879	LoadPluginsFromDir(basedir, new_local);
dvander@209	880	} else if (dir->IsEntryFile()) {
dvander@209	881	const char *name = dir->GetEntryName();
dvander@209	882	size_t len = strlen(name);
dvander@211	883	if (len >= 4
dvander@211	884	&& strcmp(&name[len-4], ".smx") == 0)
dvander@209	885	{
dvander@211	886	/* If the filename matches, load the plugin */
ds@652	887	char plugin[PLATFORM_MAX_PATH];
dvander@211	888	if (localpath == NULL)
dvander@211	889	{
dvander@211	890	snprintf(plugin, sizeof(plugin), "%s", name);
dvander@211	891	} else {
dvander@211	892	g_LibSys.PathFormat(plugin, sizeof(plugin), "%s/%s", localpath, name);
dvander@211	893	}
dvander@211	894	LoadAutoPlugin(plugin);
dvander@209	895	}
dvander@209	896	}
dvander@209	897	dir->NextEntry();
dvander@209	898	}
dvander@209	899	g_LibSys.CloseDirectory(dir);
dvander@209	900	}
dvander@209	901
dvander@211	902	//well i have discovered that gabe newell is very fat, so i wrote this comment now
ds@755	903	LoadRes CPluginManager::_LoadPlugin(CPlugin *_plugin, const char path, bool debug, PluginType type, char error[], size_t maxlength)
dvander@209	904	{
dvander@1630	905	if (m_LoadingLocked)
dvander@1630	906	{
dvander@1630	907	return LoadRes_NeverLoad;
dvander@1630	908	}
dvander@1630	909
dvander@1436	910	bool no_load = false;
dvander@1436	911	PluginSettings *pset;
dvander@1436	912	unsigned int setcount = m_PluginInfo.GetSettingsNum();
dvander@1436	913	for (unsigned int i=0; i<setcount; i++)
dvander@1436	914	{
dvander@1436	915	if ((pset = m_PluginInfo.GetSettingsIfMatch(i, path)) == NULL)
dvander@1436	916	{
dvander@1436	917	continue;
dvander@1436	918	}
dvander@1436	919	if (pset->blockload_val)
dvander@1436	920	{
dvander@1436	921	no_load = true;
dvander@1436	922	break;
dvander@1436	923	}
dvander@1436	924	}
dvander@1436	925
dvander@211	926	/**
dvander@211	927	* Does this plugin already exist?
dvander@211	928	*/
dvander@211	929	CPlugin *pPlugin;
dvander@298	930	if (sm_trie_retrieve(m_LoadLookup, path, (void **)&pPlugin))
dvander@211	931	{
dvander@211	932	/* Check to see if we should try reloading it */
dvander@211	933	if (pPlugin->GetStatus() == Plugin_BadLoad
dvander@282	934	\|\| pPlugin->GetStatus() == Plugin_Error
dvander@1436	935	\|\| pPlugin->GetStatus() == Plugin_Failed
dvander@1436	936	\|\| no_load)
dvander@211	937	{
dvander@211	938	UnloadPlugin(pPlugin);
dvander@1630	939	}
dvander@1630	940	else
dvander@1630	941	{
faluco@383	942	if (_plugin)
faluco@383	943	{
faluco@383	944	*_plugin = pPlugin;
faluco@383	945	}
faluco@383	946	return LoadRes_AlreadyLoaded;
dvander@211	947	}
dvander@211	948	}
dvander@211	949
dvander@1436	950	if (no_load)
dvander@1436	951	{
dvander@1436	952	return LoadRes_NeverLoad;
dvander@1436	953	}
dvander@1436	954
ds@755	955	pPlugin = CPlugin::CreatePlugin(path, error, maxlength);
dvander@209	956
dvander@209	957	assert(pPlugin != NULL);
dvander@209	958
dvander@209	959	pPlugin->m_type = PluginType_MapUpdated;
dvander@209	960
dvander@209	961	ICompilation *co = NULL;
dvander@209	962
dvander@209	963	if (pPlugin->m_status == Plugin_Uncompiled)
dvander@209	964	{
dvander@209	965	co = pPlugin->StartMyCompile(g_pVM);
dvander@209	966	}
dvander@209	967
dvander@209	968	for (unsigned int i=0; i<setcount; i++)
dvander@209	969	{
dvander@298	970	if ((pset=m_PluginInfo.GetSettingsIfMatch(i, path)) == NULL)
dvander@209	971	{
dvander@209	972	continue;
dvander@209	973	}
dvander@209	974	pPlugin->m_type = pset->type_val;
dvander@209	975	if (co)
dvander@209	976	{
dvander@209	977	for (unsigned int j=0; j<pset->opts_num; j++)
dvander@209	978	{
dvander@209	979	const char key, val;
dvander@209	980	m_PluginInfo.GetOptionsForPlugin(pset, j, &key, &val);
dvander@209	981	if (!key \|\| !val)
dvander@209	982	{
dvander@209	983	continue;
dvander@209	984	}
dvander@209	985	if (!g_pVM->SetCompilationOption(co, key, val))
dvander@209	986	{
dvander@298	987	if (error)
dvander@298	988	{
ds@755	989	snprintf(error, maxlength, "Unable to set JIT option (key \"%s\") (value \"%s\")", key, val);
dvander@298	990	}
dvander@209	991	pPlugin->CancelMyCompile();
dvander@209	992	co = NULL;
dvander@209	993	break;
dvander@209	994	}
dvander@209	995	}
dvander@190	996	}
dvander@190	997	}
dvander@209	998
dvander@298	999	/* Do the actual compiling */
dvander@209	1000	if (co)
dvander@209	1001	{
dvander@803	1002	pPlugin->FinishMyCompile(error, maxlength);
dvander@209	1003	co = NULL;
dvander@209	1004	}
dvander@209	1005
dvander@298	1006	/* Get the status */
dvander@211	1007	if (pPlugin->GetStatus() == Plugin_Created)
dvander@211	1008	{
dvander@211	1009	AddCoreNativesToPlugin(pPlugin);
dvander@229	1010	pPlugin->InitIdentity();
ds@755	1011	if (pPlugin->Call_AskPluginLoad(error, maxlength))
dvander@315	1012	{
dvander@315	1013	/* Autoload any modules */
ds@755	1014	LoadOrRequireExtensions(pPlugin, 1, error, maxlength);
dvander@1572	1015	}
dvander@1572	1016	else
dvander@1572	1017	{
teame06@1200	1018	pPlugin->SetErrorState(Plugin_Failed, "%s", error);
dvander@315	1019	}
dvander@211	1020	}
dvander@211	1021
faluco@333	1022	/* Save the time stamp */
faluco@333	1023	time_t t = pPlugin->GetFileTimeStamp();
faluco@333	1024	pPlugin->SetTimeStamp(t);
faluco@333	1025
dvander@298	1026	if (_plugin)
dvander@298	1027	{
dvander@298	1028	*_plugin = pPlugin;
dvander@298	1029	}
dvander@298	1030
faluco@383	1031	return (pPlugin->GetStatus() == Plugin_Loaded) ? LoadRes_Successful : LoadRes_Failure;
dvander@190	1032	}
dvander@190	1033
ds@755	1034	IPlugin CPluginManager::LoadPlugin(const char path, bool debug, PluginType type, char error[], size_t maxlength, bool *wasloaded)
dvander@174	1035	{
dvander@298	1036	CPlugin *pl;
faluco@383	1037	LoadRes res;
dvander@211	1038
faluco@383	1039	*wasloaded = false;
ds@755	1040	if ((res=_LoadPlugin(&pl, path, debug, type, error, maxlength)) == LoadRes_Failure)
dvander@211	1041	{
dvander@298	1042	delete pl;
dvander@174	1043	return NULL;
dvander@174	1044	}
dvander@174	1045
faluco@383	1046	if (res == LoadRes_AlreadyLoaded)
faluco@383	1047	{
faluco@383	1048	*wasloaded = true;
faluco@383	1049	return pl;
faluco@383	1050	}
faluco@383	1051
dvander@1436	1052	if (res == LoadRes_NeverLoad)
dvander@1436	1053	{
dvander@1630	1054	if (m_LoadingLocked)
dvander@1630	1055	{
dvander@1630	1056	UTIL_Format(error, maxlength, "There is a global plugin loading lock in effect.");
dvander@1630	1057	}
dvander@1630	1058	else
dvander@1630	1059	{
dvander@1630	1060	UTIL_Format(error, maxlength, "This plugin is blocked from loading (see plugin_settings.cfg)");
dvander@1630	1061	}
dvander@1436	1062	return NULL;
dvander@1436	1063	}
dvander@1436	1064
dvander@298	1065	AddPlugin(pl);
dvander@298	1066
dvander@315	1067	/* Run second pass if we need to */
dvander@315	1068	if (IsLateLoadTime() && pl->GetStatus() == Plugin_Loaded)
dvander@315	1069	{
ds@755	1070	if (!RunSecondPass(pl, error, maxlength))
dvander@315	1071	{
dvander@315	1072	UnloadPlugin(pl);
dvander@315	1073	return NULL;
dvander@315	1074	}
faluco@1221	1075	pl->Call_OnAllPluginsLoaded();
dvander@315	1076	}
dvander@315	1077
dvander@298	1078	return pl;
dvander@298	1079	}
dvander@298	1080
dvander@298	1081	void CPluginManager::LoadAutoPlugin(const char *plugin)
dvander@298	1082	{
dvander@1436	1083	CPlugin *pl = NULL;
faluco@383	1084	LoadRes res;
dvander@298	1085	char error[255] = "Unknown error";
dvander@298	1086
faluco@383	1087	if ((res=_LoadPlugin(&pl, plugin, false, PluginType_MapUpdated, error, sizeof(error))) == LoadRes_Failure)
dvander@209	1088	{
dvander@305	1089	g_Logger.LogError("[SM] Failed to load plugin \"%s\": %s", plugin, error);
dvander@298	1090	pl->SetErrorState(Plugin_Failed, "%s", error);
dvander@209	1091	}
dvander@209	1092
faluco@383	1093	if (res == LoadRes_Successful)
faluco@383	1094	{
faluco@383	1095	AddPlugin(pl);
faluco@383	1096	}
dvander@209	1097	}
dvander@209	1098
dvander@211	1099	void CPluginManager::AddPlugin(CPlugin *pPlugin)
dvander@209	1100	{
dvander@174	1101	List<IPluginsListener *>::iterator iter;
dvander@174	1102	IPluginsListener *pListener;
dvander@298	1103
dvander@174	1104	for (iter=m_listeners.begin(); iter!=m_listeners.end(); iter++)
dvander@174	1105	{
dvander@174	1106	pListener = (*iter);
dvander@174	1107	pListener->OnPluginCreated(pPlugin);
dvander@174	1108	}
dvander@174	1109
dvander@298	1110	m_plugins.push_back(pPlugin);
dvander@298	1111	sm_trie_insert(m_LoadLookup, pPlugin->m_filename, pPlugin);
dvander@211	1112	}
dvander@211	1113
dvander@213	1114	void CPluginManager::LoadAll_SecondPass()
dvander@213	1115	{
dvander@213	1116	List<CPlugin *>::iterator iter;
dvander@213	1117	CPlugin *pPlugin;
dvander@213	1118
dvander@315	1119	char error[256];
dvander@213	1120	for (iter=m_plugins.begin(); iter!=m_plugins.end(); iter++)
dvander@213	1121	{
dvander@213	1122	pPlugin = (*iter);
dvander@213	1123	if (pPlugin->GetStatus() == Plugin_Loaded)
dvander@213	1124	{
dvander@315	1125	error[0] = '\0';
dvander@315	1126	if (!RunSecondPass(pPlugin, error, sizeof(error)))
dvander@315	1127	{
dvander@315	1128	g_Logger.LogError("[SM] Unable to load plugin \"%s\": %s", pPlugin->GetFilename(), error);
dvander@315	1129	pPlugin->SetErrorState(Plugin_Failed, "%s", error);
dvander@315	1130	}
dvander@213	1131	}
dvander@213	1132	}
dvander@298	1133
faluco@216	1134	m_AllPluginsLoaded = true;
dvander@213	1135	}
dvander@213	1136
faluco@1112	1137	bool CPluginManager::FindOrRequirePluginDeps(CPlugin pPlugin, char error, size_t maxlength)
faluco@1112	1138	{
faluco@1112	1139	struct _pl
faluco@1112	1140	{
faluco@1112	1141	cell_t name;
faluco@1112	1142	cell_t file;
faluco@1112	1143	cell_t required;
faluco@1112	1144	} *pl;
faluco@1112	1145
faluco@1112	1146	IPluginContext *pBase = pPlugin->GetBaseContext();
faluco@1112	1147	uint32_t num = pBase->GetPubVarsNum();
faluco@1112	1148	sp_pubvar_t *pubvar;
faluco@1112	1149	char name, file;
faluco@1112	1150	char pathfile[PLATFORM_MAX_PATH];
faluco@1112	1151
faluco@1112	1152	for (uint32_t i=0; i<num; i++)
faluco@1112	1153	{
faluco@1112	1154	if (pBase->GetPubvarByIndex(i, &pubvar) != SP_ERROR_NONE)
faluco@1112	1155	{
faluco@1112	1156	continue;
faluco@1112	1157	}
faluco@1112	1158	if (strncmp(pubvar->name, "__pl_", 5) == 0)
faluco@1112	1159	{
faluco@1112	1160	pl = (_pl *)pubvar->offs;
faluco@1112	1161	if (pBase->LocalToString(pl->file, &file) != SP_ERROR_NONE)
faluco@1112	1162	{
faluco@1112	1163	continue;
faluco@1112	1164	}
faluco@1112	1165	if (pBase->LocalToString(pl->name, &name) != SP_ERROR_NONE)
faluco@1112	1166	{
faluco@1112	1167	continue;
faluco@1112	1168	}
faluco@1112	1169	g_LibSys.GetFileFromPath(pathfile, sizeof(pathfile), pPlugin->GetFilename());
faluco@1112	1170	if (strcmp(pathfile, file) == 0)
faluco@1112	1171	{
faluco@1112	1172	continue;
faluco@1112	1173	}
faluco@1112	1174	if (pl->required == false)
faluco@1112	1175	{
faluco@1112	1176	IPluginFunction *pFunc;
faluco@1112	1177	char buffer[64];
dvander@1123	1178	UTIL_Format(buffer, sizeof(buffer), "__pl_%s_SetNTVOptional", &pubvar->name[5]);
faluco@1112	1179	if ((pFunc=pBase->GetFunctionByName(buffer)))
faluco@1112	1180	{
faluco@1112	1181	cell_t res;
faluco@1112	1182	pFunc->Execute(&res);
faluco@1112	1183	if (pPlugin->GetContext()->n_err != SP_ERROR_NONE)
faluco@1112	1184	{
faluco@1112	1185	if (error)
faluco@1112	1186	{
faluco@1112	1187	snprintf(error, maxlength, "Fatal error during initializing plugin load");
faluco@1112	1188	}
faluco@1112	1189	return false;
faluco@1112	1190	}
faluco@1112	1191	}
dvander@1572	1192	}
dvander@1572	1193	else
dvander@1572	1194	{
faluco@1112	1195	/* Check that we aren't registering the same library twice */
faluco@1112	1196	if (pPlugin->m_RequiredLibs.find(name) == pPlugin->m_RequiredLibs.end())
faluco@1112	1197	{
faluco@1112	1198	pPlugin->m_RequiredLibs.push_back(name);
dvander@1572	1199	}
dvander@1572	1200	else
dvander@1572	1201	{
faluco@1112	1202	continue;
faluco@1112	1203	}
faluco@1112	1204	List<CPlugin *>::iterator iter;
faluco@1112	1205	CPlugin *pl;
faluco@1112	1206	bool found = false;
faluco@1112	1207	for (iter=m_plugins.begin(); iter!=m_plugins.end(); iter++)
faluco@1112	1208	{
faluco@1112	1209	pl = (*iter);
faluco@1112	1210	if (pl->m_Libraries.find(name) != pl->m_Libraries.end())
faluco@1112	1211	{
faluco@1112	1212	found = true;
faluco@1112	1213	break;
faluco@1112	1214	}
faluco@1112	1215	}
faluco@1112	1216	if (!found)
faluco@1112	1217	{
faluco@1112	1218	if (error)
faluco@1112	1219	{
faluco@1112	1220	snprintf(error, maxlength, "Could not find required plugin \"%s\"", name);
faluco@1112	1221	}
faluco@1112	1222	return false;
faluco@1112	1223	}
faluco@1112	1224	}
faluco@1112	1225	}
faluco@1112	1226	}
faluco@1112	1227
faluco@1112	1228	return true;
faluco@1112	1229	}
faluco@1112	1230
dvander@315	1231	bool CPluginManager::LoadOrRequireExtensions(CPlugin pPlugin, unsigned int pass, char error, size_t maxlength)
dvander@211	1232	{
dvander@298	1233	/* Find any extensions this plugin needs */
dvander@298	1234	struct _ext
dvander@298	1235	{
dvander@298	1236	cell_t name;
dvander@298	1237	cell_t file;
dvander@298	1238	cell_t autoload;
dvander@298	1239	cell_t required;
dvander@298	1240	} *ext;
dvander@298	1241
dvander@298	1242	IPluginContext *pBase = pPlugin->GetBaseContext();
dvander@298	1243	uint32_t num = pBase->GetPubVarsNum();
dvander@298	1244	sp_pubvar_t *pubvar;
dvander@298	1245	IExtension *pExt;
ds@652	1246	char path[PLATFORM_MAX_PATH];
dvander@298	1247	char file, name;
dvander@298	1248	for (uint32_t i=0; i<num; i++)
dvander@298	1249	{
dvander@298	1250	if (pBase->GetPubvarByIndex(i, &pubvar) != SP_ERROR_NONE)
dvander@298	1251	{
dvander@298	1252	continue;
dvander@298	1253	}
dvander@298	1254	if (strncmp(pubvar->name, "__ext_", 6) == 0)
dvander@298	1255	{
dvander@298	1256	ext = (_ext *)pubvar->offs;
dvander@298	1257	if (!ext->required && !ext->autoload)
dvander@298	1258	{
dvander@298	1259	continue;
dvander@298	1260	}
dvander@298	1261	if (pBase->LocalToString(ext->file, &file) != SP_ERROR_NONE)
dvander@298	1262	{
dvander@298	1263	continue;
dvander@298	1264	}
dvander@298	1265	if (pBase->LocalToString(ext->name, &name) != SP_ERROR_NONE)
dvander@298	1266	{
dvander@298	1267	continue;
dvander@298	1268	}
dvander@315	1269	if (pass == 1)
dvander@298	1270	{
dvander@315	1271	/* Attempt to auto-load if necessary */
dvander@315	1272	if (ext->autoload)
dvander@315	1273	{
dvander@315	1274	g_LibSys.PathFormat(path, PLATFORM_MAX_PATH, "%s", file);
dvander@315	1275	g_Extensions.LoadAutoExtension(path);
dvander@315	1276	}
dvander@1572	1277	}
dvander@1572	1278	else if (pass == 2)
dvander@1572	1279	{
dvander@315	1280	/* Is this required? */
dvander@315	1281	if (ext->required)
dvander@298	1282	{
dvander@315	1283	g_LibSys.PathFormat(path, PLATFORM_MAX_PATH, "%s", file);
dvander@315	1284	if ((pExt = g_Extensions.FindExtensionByFile(path)) == NULL)
dvander@315	1285	{
dvander@315	1286	pExt = g_Extensions.FindExtensionByName(name);
dvander@315	1287	}
dvander@315	1288	/* :TODO: should we bind to unloaded extensions?
dvander@315	1289	* Currently the extension manager will ignore this.
dvander@315	1290	*/
dvander@315	1291	if (!pExt \|\| !pExt->IsRunning(NULL, 0))
dvander@315	1292	{
dvander@315	1293	if (error)
dvander@315	1294	{
dvander@315	1295	snprintf(error, maxlength, "Required extension \"%s\" file(\"%s\") not running", name, file);
dvander@315	1296	}
dvander@315	1297	return false;
dvander@1572	1298	}
dvander@1572	1299	else
dvander@1572	1300	{
dvander@315	1301	g_Extensions.BindChildPlugin(pExt, pPlugin);
dvander@315	1302	}
dvander@298	1303	}
dvander@1572	1304	else
dvander@1572	1305	{
dvander@1572	1306	IPluginFunction *pFunc;
dvander@1572	1307	char buffer[64];
dvander@1572	1308	UTIL_Format(buffer, sizeof(buffer), "__ext_%s_SetNTVOptional", &pubvar->name[6]);
dvander@1572	1309
dvander@1572	1310	if ((pFunc = pBase->GetFunctionByName(buffer)) != NULL)
dvander@1572	1311	{
dvander@1572	1312	cell_t res;
dvander@1572	1313	pFunc->Execute(&res);
dvander@1572	1314	if (pPlugin->GetContext()->n_err != SP_ERROR_NONE)
dvander@1572	1315	{
dvander@1572	1316	if (error)
dvander@1572	1317	{
dvander@1572	1318	UTIL_Format(error, maxlength, "Fatal error during plugin initialization (ext req)");
dvander@1572	1319	}
dvander@1572	1320	return false;
dvander@1572	1321	}
dvander@1572	1322	}
dvander@1572	1323	}
dvander@298	1324	}
dvander@315	1325	}
dvander@315	1326	}
dvander@315	1327
dvander@315	1328	return true;
dvander@315	1329	}
dvander@315	1330
dvander@315	1331	bool CPluginManager::RunSecondPass(CPlugin pPlugin, char error, size_t maxlength)
dvander@315	1332	{
dvander@315	1333	/* Second pass for extension requirements */
dvander@315	1334	if (!LoadOrRequireExtensions(pPlugin, 2, error, maxlength))
dvander@315	1335	{
dvander@315	1336	return false;
dvander@315	1337	}
dvander@315	1338
dvander@315	1339	/* Bind all extra natives */
dvander@315	1340	g_Extensions.BindAllNativesToPlugin(pPlugin);
dvander@315	1341
faluco@1112	1342	if (!FindOrRequirePluginDeps(pPlugin, error, maxlength))
faluco@1112	1343	{
faluco@1112	1344	return false;
faluco@1112	1345	}
faluco@1112	1346
dvander@1572	1347	AddFakeNativesToPlugin(pPlugin);
dvander@1572	1348
dvander@315	1349	/* Find any unbound natives
dvander@315	1350	* Right now, these are not allowed
dvander@315	1351	*/
dvander@315	1352	IPluginContext *pContext = pPlugin->GetBaseContext();
dvander@315	1353	uint32_t num = pContext->GetNativesNum();
dvander@315	1354	sp_native_t *native;
dvander@315	1355	for (unsigned int i=0; i<num; i++)
dvander@315	1356	{
dvander@315	1357	if (pContext->GetNativeByIndex(i, &native) != SP_ERROR_NONE)
dvander@315	1358	{
dvander@315	1359	break;
dvander@315	1360	}
dvander@798	1361	if (native->status == SP_NATIVE_UNBOUND
faluco@1089	1362	&& native->name[0] != '@'
faluco@1089	1363	&& !(native->flags & SP_NTVFLAG_OPTIONAL))
dvander@315	1364	{
dvander@315	1365	if (error)
dvander@298	1366	{
dvander@315	1367	snprintf(error, maxlength, "Native \"%s\" was not found.", native->name);
dvander@298	1368	}
dvander@315	1369	return false;
dvander@298	1370	}
dvander@298	1371	}
dvander@211	1372
dvander@211	1373	/* Finish by telling all listeners */
dvander@211	1374	List<IPluginsListener *>::iterator iter;
dvander@211	1375	IPluginsListener *pListener;
dvander@211	1376	for (iter=m_listeners.begin(); iter!=m_listeners.end(); iter++)
dvander@211	1377	{
dvander@211	1378	pListener = (*iter);
dvander@211	1379	pListener->OnPluginLoaded(pPlugin);
dvander@211	1380	}
dvander@298	1381
dvander@298	1382	/* Tell this plugin to finish initializing itself */
ds@426	1383	pPlugin->Call_OnPluginStart();
dvander@298	1384
dvander@605	1385	/* Now, if we have fake natives, go through all plugins that might need rebinding */
dvander@1122	1386	if (pPlugin->GetStatus() <= Plugin_Paused && pPlugin->m_fakeNatives.size())
dvander@605	1387	{
dvander@605	1388	List<CPlugin *>::iterator pl_iter;
dvander@605	1389	CPlugin *pOther;
dvander@605	1390	for (pl_iter = m_plugins.begin();
dvander@605	1391	pl_iter != m_plugins.end();
dvander@605	1392	pl_iter++)
dvander@605	1393	{
dvander@605	1394	pOther = (*pl_iter);
dvander@1122	1395	if ((pOther->GetStatus() == Plugin_Error
faluco@1112	1396	&& (pOther->m_FakeNativesMissing \|\| pOther->m_LibraryMissing))
dvander@1122	1397	\|\| pOther->m_FakeNativesMissing)
dvander@605	1398	{
faluco@1112	1399	TryRefreshDependencies(pOther);
dvander@605	1400	}
dvander@605	1401	}
dvander@605	1402	}
dvander@605	1403
dvander@1124	1404	/* Go through our libraries and tell other plugins they're added */
dvander@1124	1405	List<String>::iterator s_iter;
dvander@1124	1406	for (s_iter = pPlugin->m_Libraries.begin();
dvander@1124	1407	s_iter != pPlugin->m_Libraries.end();
dvander@1124	1408	s_iter++)
dvander@1124	1409	{
dvander@1572	1410	OnLibraryAction((*s_iter).c_str(), true, false);
dvander@1124	1411	}
dvander@1124	1412
dvander@1621	1413	/* Finally, add the core language file */
dvander@1621	1414	pPlugin->AddLangFile(g_pCorePhraseID);
dvander@1621	1415
dvander@298	1416	return true;
dvander@211	1417	}
dvander@211	1418
dvander@211	1419	void CPluginManager::AddCoreNativesToPlugin(CPlugin *pPlugin)
dvander@211	1420	{
dvander@1382	1421	IPluginContext *pContext = pPlugin->GetBaseContext();
dvander@1382	1422
dvander@211	1423
dvander@1382	1424	uint32_t natives = pContext->GetNativesNum();
dvander@1382	1425	sp_native_t *native;
dvander@1382	1426	SPVM_NATIVE_FUNC pfn;
dvander@1382	1427	for (uint32_t i=0; i<natives; i++)
dvander@211	1428	{
dvander@1382	1429	if (pContext->GetNativeByIndex(i, &native) != SP_ERROR_NONE)
dvander@1382	1430	{
dvander@1382	1431	continue;
dvander@1382	1432	}
dvander@1382	1433	if (native->status == SP_NATIVE_BOUND)
dvander@211	1434	{
dvander@1382	1435	continue;
dvander@211	1436	}
dvander@1382	1437	if (!sm_trie_retrieve(m_pCoreNatives, native->name, (void **)&pfn))
dvander@1382	1438	{
dvander@1382	1439	continue;
dvander@1382	1440	}
dvander@1382	1441	pContext->BindNativeToIndex(i, pfn);
dvander@211	1442	}
dvander@174	1443	}
dvander@174	1444
faluco@1112	1445	void CPluginManager::TryRefreshDependencies(CPlugin *pPlugin)
dvander@605	1446	{
dvander@605	1447	assert(pPlugin->GetBaseContext() != NULL);
dvander@605	1448
dvander@605	1449	AddFakeNativesToPlugin(pPlugin);
dvander@605	1450
faluco@1112	1451	List<String>::iterator lib_iter;
faluco@1112	1452	List<String>::iterator req_iter;
faluco@1112	1453	List<CPlugin *>::iterator pl_iter;
faluco@1112	1454	CPlugin *pl;
faluco@1112	1455	for (req_iter=pPlugin->m_RequiredLibs.begin(); req_iter!=pPlugin->m_RequiredLibs.end(); req_iter++)
faluco@1112	1456	{
faluco@1112	1457	bool found = false;
faluco@1112	1458	for (pl_iter=m_plugins.begin(); pl_iter!=m_plugins.end(); pl_iter++)
faluco@1112	1459	{
faluco@1112	1460	pl = (*pl_iter);
faluco@1112	1461	for (lib_iter=pl->m_Libraries.begin(); lib_iter!=pl->m_Libraries.end(); lib_iter++)
faluco@1112	1462	{
faluco@1112	1463	if ((req_iter) == (lib_iter))
faluco@1112	1464	{
faluco@1112	1465	found = true;
faluco@1112	1466	}
faluco@1112	1467	}
faluco@1112	1468	}
faluco@1112	1469	if (!found)
faluco@1112	1470	{
faluco@1112	1471	pPlugin->SetErrorState(Plugin_Error, "Library not found: %s", (*req_iter).c_str());
faluco@1112	1472	return;
faluco@1112	1473	}
faluco@1112	1474	}
faluco@1112	1475
dvander@605	1476	/* Find any unbound natives
dvander@605	1477	* Right now, these are not allowed
dvander@605	1478	*/
dvander@605	1479	IPluginContext *pContext = pPlugin->GetBaseContext();
dvander@605	1480	uint32_t num = pContext->GetNativesNum();
dvander@605	1481	sp_native_t *native;
dvander@605	1482	for (unsigned int i=0; i<num; i++)
dvander@605	1483	{
dvander@605	1484	if (pContext->GetNativeByIndex(i, &native) != SP_ERROR_NONE)
dvander@605	1485	{
dvander@605	1486	break;
dvander@605	1487	}
faluco@1089	1488	if (native->status == SP_NATIVE_UNBOUND && !(native->flags & SP_NTVFLAG_OPTIONAL))
dvander@605	1489	{
dvander@605	1490	pPlugin->SetErrorState(Plugin_Error, "Native not found: %s", native->name);
dvander@605	1491	return;
dvander@605	1492	}
dvander@605	1493	}
dvander@605	1494
dvander@1122	1495	if (pPlugin->GetStatus() == Plugin_Error)
dvander@605	1496	{
dvander@1122	1497	/* If we got here, all natives are okay again! */
dvander@1122	1498	pPlugin->m_status = Plugin_Running;
dvander@1122	1499	if ((pPlugin->m_ctx.ctx->flags & SPFLAG_PLUGIN_PAUSED) == SPFLAG_PLUGIN_PAUSED)
dvander@1122	1500	{
dvander@1122	1501	pPlugin->m_ctx.ctx->flags &= ~SPFLAG_PLUGIN_PAUSED;
dvander@1122	1502	_SetPauseState(pPlugin, false);
dvander@1122	1503	}
dvander@605	1504	}
dvander@605	1505	}
dvander@605	1506
dvander@601	1507	void CPluginManager::AddFakeNativesToPlugin(CPlugin *pPlugin)
dvander@601	1508	{
dvander@601	1509	IPluginContext *pContext = pPlugin->GetBaseContext();
dvander@601	1510	sp_nativeinfo_t native;
dvander@601	1511
dvander@601	1512	List<FakeNative *>::iterator iter;
dvander@601	1513	FakeNative *pNative;
dvander@601	1514	sp_context_t *ctx;
dvander@601	1515	for (iter = m_Natives.begin(); iter != m_Natives.end(); iter++)
dvander@601	1516	{
dvander@601	1517	pNative = (*iter);
dvander@601	1518	ctx = pNative->ctx->GetContext();
dvander@601	1519	if ((ctx->flags & SPFLAG_PLUGIN_PAUSED) == SPFLAG_PLUGIN_PAUSED)
dvander@601	1520	{
dvander@601	1521	/* Ignore natives in paused plugins */
dvander@601	1522	continue;
dvander@601	1523	}
dvander@601	1524	native.name = pNative->name.c_str();
dvander@601	1525	native.func = pNative->func;
dvander@601	1526	if (pContext->BindNative(&native) == SP_ERROR_NONE)
dvander@601	1527	{
faluco@1089	1528	uint32_t idx;
faluco@1089	1529	pContext->FindNativeByName(native.name, &idx);
faluco@1112	1530	if (pPlugin->GetContext()->natives[idx].flags & SP_NTVFLAG_OPTIONAL)
faluco@1089	1531	{
dvander@1122	1532	WeakNative wkn(pPlugin, idx);
faluco@1112	1533	GetPluginByCtx(ctx)->m_WeakNatives.push_back(wkn);
faluco@1089	1534	continue;
faluco@1089	1535	}
dvander@605	1536	/* Add us as a dependency, but we're careful not to do this circularly! */
dvander@605	1537	if (pNative->ctx != pContext)
dvander@605	1538	{
dvander@605	1539	CPlugin *pOther = GetPluginByCtx(ctx);
dvander@605	1540	if (pOther->m_dependents.find(pPlugin) == pOther->m_dependents.end())
dvander@605	1541	{
dvander@605	1542	pOther->m_dependents.push_back(pPlugin);
dvander@605	1543	}
dvander@605	1544	if (pPlugin->m_dependsOn.find(pOther) == pPlugin->m_dependsOn.end())
dvander@605	1545	{
dvander@605	1546	pPlugin->m_dependsOn.push_back(pOther);
dvander@605	1547	}
dvander@605	1548	}
dvander@601	1549	}
dvander@601	1550	}
dvander@601	1551	}
dvander@601	1552
dvander@174	1553	bool CPluginManager::UnloadPlugin(IPlugin *plugin)
dvander@174	1554	{
dvander@174	1555	CPlugin pPlugin = (CPlugin )plugin;
dvander@298	1556
dvander@298	1557	/* This prevents removal during insertion or anything else weird */
dvander@298	1558	if (m_plugins.find(pPlugin) == m_plugins.end())
dvander@298	1559	{
dvander@298	1560	return false;
dvander@298	1561	}
dvander@298	1562
dvander@605	1563	/* Remove us from the lookup table and linked list */
dvander@605	1564	m_plugins.remove(pPlugin);
dvander@605	1565	sm_trie_delete(m_LoadLookup, pPlugin->m_filename);
dvander@605	1566
dvander@1124	1567	/* Go through our libraries and tell other plugins they're gone */
dvander@1124	1568	List<String>::iterator s_iter;
dvander@1124	1569	for (s_iter = pPlugin->m_Libraries.begin();
dvander@1124	1570	s_iter != pPlugin->m_Libraries.end();
dvander@1124	1571	s_iter++)
dvander@1124	1572	{
dvander@1572	1573	OnLibraryAction((*s_iter).c_str(), true, true);
dvander@1124	1574	}
dvander@1124	1575
dvander@605	1576	/* Go through all dependent plugins and tell them this plugin is now gone */
dvander@605	1577	List<CPlugin *>::iterator pl_iter;
dvander@605	1578	CPlugin *pOther;
dvander@605	1579	for (pl_iter = pPlugin->m_dependents.begin();
dvander@605	1580	pl_iter != pPlugin->m_dependents.end();
dvander@605	1581	pl_iter++)
dvander@605	1582	{
dvander@605	1583	pOther = (*pl_iter);
dvander@605	1584	pOther->DependencyDropped(pPlugin);
dvander@605	1585	}
dvander@605	1586
dvander@605	1587	/* Tell everyone we depend on that we no longer exist */
dvander@605	1588	for (pl_iter = pPlugin->m_dependsOn.begin();
dvander@605	1589	pl_iter != pPlugin->m_dependsOn.end();
dvander@605	1590	pl_iter++)
dvander@605	1591	{
dvander@605	1592	pOther = (*pl_iter);
dvander@605	1593	pOther->m_dependents.remove(pPlugin);
dvander@605	1594	}
dvander@605	1595
dvander@1122	1596	/* Remove weak references to us */
dvander@1122	1597	for (pl_iter = m_plugins.begin();
dvander@1122	1598	pl_iter != m_plugins.end();
dvander@1122	1599	pl_iter++)
dvander@1122	1600	{
dvander@1122	1601	pOther = (*pl_iter);
dvander@1122	1602	List<WeakNative>::iterator wk_iter = pOther->m_WeakNatives.begin();
dvander@1122	1603	while (wk_iter != pOther->m_WeakNatives.end())
dvander@1122	1604	{
dvander@1122	1605	if ((*wk_iter).pl == pPlugin)
dvander@1122	1606	{
dvander@1122	1607	wk_iter = pOther->m_WeakNatives.erase(wk_iter);
dvander@1122	1608	} else {
dvander@1122	1609	wk_iter++;
dvander@1122	1610	}
dvander@1122	1611	}
dvander@1122	1612	}
dvander@1122	1613
dvander@174	1614	List<IPluginsListener *>::iterator iter;
dvander@174	1615	IPluginsListener *pListener;
dvander@282	1616
dvander@311	1617	if (pPlugin->GetStatus() <= Plugin_Error)
dvander@282	1618	{
dvander@282	1619	/* Notify listeners of unloading */
dvander@282	1620	for (iter=m_listeners.begin(); iter!=m_listeners.end(); iter++)
dvander@282	1621	{
dvander@282	1622	pListener = (*iter);
dvander@282	1623	pListener->OnPluginUnloaded(pPlugin);
dvander@282	1624	}
dvander@282	1625	/* Notify plugin */
ds@426	1626	pPlugin->Call_OnPluginEnd();
dvander@282	1627	}
dvander@282	1628
dvander@1122	1629	/* Unbound weak natives */
dvander@1122	1630	List<WeakNative>::iterator wk_iter;
dvander@1122	1631	for (wk_iter=pPlugin->m_WeakNatives.begin(); wk_iter!=pPlugin->m_WeakNatives.end(); wk_iter++)
dvander@1122	1632	{
dvander@1122	1633	WeakNative & wkn = (*wk_iter);
dvander@1122	1634	sp_context_t *ctx = wkn.pl->GetContext();
dvander@1122	1635	ctx->natives[wkn.idx].status = SP_NATIVE_UNBOUND;
dvander@1122	1636	wkn.pl->m_FakeNativesMissing = true;
dvander@1122	1637	}
dvander@1122	1638
faluco@1112	1639	/* Remove all of our native functions */
faluco@1112	1640	List<FakeNative *>::iterator fn_iter;
faluco@1112	1641	FakeNative *pNative;
faluco@1112	1642	for (fn_iter = pPlugin->m_fakeNatives.begin();
faluco@1112	1643	fn_iter != pPlugin->m_fakeNatives.end();
faluco@1112	1644	fn_iter++)
faluco@1112	1645	{
faluco@1112	1646	pNative = (*fn_iter);
faluco@1112	1647	m_Natives.remove(pNative);
faluco@1112	1648	sm_trie_delete(m_pNativeLookup, pNative->name.c_str());
faluco@1112	1649	g_pVM->DestroyFakeNative(pNative->func);
faluco@1112	1650	delete pNative;
faluco@1112	1651	}
faluco@1112	1652
dvander@174	1653	for (iter=m_listeners.begin(); iter!=m_listeners.end(); iter++)
dvander@174	1654	{
dvander@282	1655	/* Notify listeners of destruction */
dvander@174	1656	pListener = (*iter);
dvander@174	1657	pListener->OnPluginDestroyed(pPlugin);
dvander@174	1658	}
dvander@176	1659
dvander@282	1660	/* Tell the plugin to delete itself */
dvander@174	1661	delete pPlugin;
dvander@174	1662
dvander@174	1663	return true;
dvander@174	1664	}
dvander@174	1665
dvander@174	1666	IPlugin CPluginManager::FindPluginByContext(const sp_context_t ctx)
dvander@174	1667	{
dvander@174	1668	IPlugin pl = (IPlugin )ctx->user[SM_CONTEXTVAR_MYSELF];
dvander@174	1669	return pl;
dvander@174	1670	}
dvander@174	1671
dvander@174	1672	unsigned int CPluginManager::GetPluginCount()
dvander@174	1673	{
dvander@174	1674	return m_plugins.size();
dvander@174	1675	}
dvander@174	1676
dvander@174	1677	void CPluginManager::AddPluginsListener(IPluginsListener *listener)
dvander@174	1678	{
dvander@174	1679	m_listeners.push_back(listener);
dvander@174	1680	}
dvander@174	1681
dvander@174	1682	void CPluginManager::RemovePluginsListener(IPluginsListener *listener)
dvander@174	1683	{
dvander@174	1684	m_listeners.remove(listener);
dvander@174	1685	}
dvander@174	1686
dvander@174	1687	IPluginIterator *CPluginManager::GetPluginIterator()
dvander@174	1688	{
dvander@174	1689	if (m_iters.empty())
dvander@174	1690	{
dvander@174	1691	return new CPluginIterator(&m_plugins);
dvander@174	1692	} else {
dvander@174	1693	CPluginIterator *iter = m_iters.front();
dvander@174	1694	m_iters.pop();
faluco@216	1695	iter->Reset();
dvander@174	1696	return iter;
dvander@174	1697	}
dvander@174	1698	}
dvander@174	1699
dvander@174	1700	void CPluginManager::ReleaseIterator(CPluginIterator *iter)
dvander@174	1701	{
dvander@174	1702	m_iters.push(iter);
dvander@174	1703	}
dvander@176	1704
dvander@203	1705	bool CPluginManager::TestAliasMatch(const char alias, const char localpath)
dvander@203	1706	{
dvander@203	1707	/* As an optimization, we do not call strlen, but compute the length in the first pass */
dvander@203	1708	size_t alias_len = 0;
dvander@203	1709	size_t local_len = 0;
dvander@203	1710
dvander@203	1711	const char *ptr = alias;
dvander@203	1712	unsigned int alias_explicit_paths = 0;
dvander@203	1713	unsigned int alias_path_end = 0;
dvander@203	1714	while (*ptr != '\0')
dvander@203	1715	{
dvander@203	1716	if (ptr == '\\' \|\| ptr == '/')
dvander@203	1717	{
dvander@203	1718	alias_explicit_paths++;
dvander@203	1719	alias_path_end = alias_len;
dvander@203	1720	}
dvander@203	1721	alias_len++;
dvander@203	1722	ptr++;
dvander@203	1723	}
dvander@203	1724
dvander@209	1725	if (alias_explicit_paths && alias_path_end == alias_len - 1)
dvander@203	1726	{
dvander@203	1727	/* Trailing slash is totally invalid here */
dvander@203	1728	return false;
dvander@203	1729	}
dvander@203	1730
dvander@203	1731	ptr = localpath;
dvander@203	1732	unsigned int local_explicit_paths = 0;
dvander@203	1733	unsigned int local_path_end = 0;
dvander@203	1734	while (*ptr != '\0')
dvander@203	1735	{
dvander@203	1736	if (ptr == '\\' \|\| ptr == '/')
dvander@203	1737	{
dvander@203	1738	local_explicit_paths++;
dvander@203	1739	local_path_end = local_len;
dvander@203	1740	}
dvander@203	1741	local_len++;
dvander@203	1742	ptr++;
dvander@203	1743	}
dvander@203	1744
dvander@203	1745	/* If the alias has more explicit paths than the real path,
dvander@203	1746	* no match will be possible.
dvander@203	1747	*/
dvander@203	1748	if (alias_explicit_paths > local_explicit_paths)
dvander@203	1749	{
dvander@203	1750	return false;
dvander@203	1751	}
dvander@203	1752
dvander@203	1753	if (alias_explicit_paths)
dvander@203	1754	{
dvander@203	1755	/* We need to find if the paths match now. For example, these should all match:
dvander@203	1756	* csdm csdm
dvander@203	1757	* csdm optional/csdm
dvander@203	1758	* csdm/ban optional/crab/csdm/ban
dvander@203	1759	*/
dvander@203	1760	const char *aliasptr = alias;
dvander@203	1761	const char *localptr = localpath;
dvander@203	1762	bool match = true;
dvander@203	1763	do
dvander@203	1764	{
dvander@203	1765	if (aliasptr != localptr)
dvander@203	1766	{
dvander@203	1767	/* We have to knock one path off */
dvander@203	1768	local_explicit_paths--;
dvander@203	1769	if (alias_explicit_paths > local_explicit_paths)
dvander@203	1770	{
dvander@203	1771	/* Skip out if we're gonna have an impossible match */
dvander@203	1772	return false;
dvander@203	1773	}
dvander@203	1774	/* Eat up localptr tokens until we get a result */
dvander@203	1775	while (((localptr - localpath) < (int)local_path_end)
dvander@203	1776	&& *localptr != '/'
dvander@203	1777	&& *localptr != '\\')
dvander@203	1778	{
dvander@203	1779	localptr++;
dvander@203	1780	}
dvander@203	1781	/* Check if we hit the end of our searchable area.
dvander@203	1782	* This probably isn't possible because of the path
dvander@203	1783	* count check, but it's a good idea anyway.
dvander@203	1784	*/
dvander@203	1785	if ((localptr - localpath) >= (int)local_path_end)
dvander@203	1786	{
dvander@203	1787	return false;
dvander@203	1788	} else {
dvander@203	1789	/* Consume the slash token */
dvander@203	1790	localptr++;
dvander@203	1791	}
dvander@203	1792	/* Reset the alias pointer so we can continue consuming */
dvander@203	1793	aliasptr = alias;
dvander@203	1794	match = false;
dvander@203	1795	continue;
dvander@203	1796	}
dvander@203	1797	/* Note:
dvander@203	1798	* This is safe because if localptr terminates early, aliasptr will too
dvander@203	1799	*/
dvander@203	1800	do
dvander@203	1801	{
dvander@203	1802	/* We should never reach the end of the string because of this check. */
dvander@203	1803	bool aliasend = (aliasptr - alias) > (int)alias_path_end;
dvander@203	1804	bool localend = (localptr - localpath) > (int)local_path_end;
dvander@203	1805	if (aliasend \|\| localend)
dvander@203	1806	{
dvander@203	1807	if (aliasend && localend)
dvander@203	1808	{
dvander@203	1809	/* we matched, and we can break out now */
dvander@203	1810	match = true;
dvander@203	1811	break;
dvander@203	1812	}
dvander@203	1813	/* Otherwise, we've hit the end somehow and rest won't match up. Break out. */
dvander@203	1814	match = false;
dvander@203	1815	break;
dvander@203	1816	}
dvander@203	1817
dvander@203	1818	/* If we got here, it's safe to compare the next two tokens */
dvander@203	1819	if (localptr != aliasptr)
dvander@203	1820	{
dvander@203	1821	match = false;
dvander@203	1822	break;
dvander@203	1823	}
dvander@203	1824	localptr++;
dvander@203	1825	aliasptr++;
dvander@203	1826	} while (true);
dvander@203	1827	} while (!match);
dvander@203	1828	}
dvander@203	1829
dvander@203	1830	/* If we got here, it's time to compare filenames */
dvander@203	1831	const char *aliasptr = alias;
dvander@203	1832	const char *localptr = localpath;
dvander@203	1833
dvander@203	1834	if (alias_explicit_paths)
dvander@203	1835	{
dvander@203	1836	aliasptr = &alias[alias_path_end + 1];
dvander@203	1837	}
dvander@203	1838
dvander@203	1839	if (local_explicit_paths)
dvander@203	1840	{
dvander@203	1841	localptr = &localpath[local_path_end + 1];
dvander@203	1842	}
dvander@203	1843
dvander@203	1844	while (true)
dvander@203	1845	{
dvander@203	1846	if (aliasptr == '')
dvander@203	1847	{
dvander@203	1848	/* First, see if this is the last character */
dvander@351	1849	if ((unsigned)(aliasptr - alias) == alias_len - 1)
dvander@203	1850	{
dvander@203	1851	/* If so, there's no need to match anything else */
dvander@203	1852	return true;
dvander@203	1853	}
dvander@203	1854	/* Otherwise, we need to search for an appropriate matching sequence in local.
dvander@203	1855	* Note that we only need to search up to the next asterisk.
dvander@203	1856	*/
dvander@203	1857	aliasptr++;
dvander@203	1858	bool match = true;
dvander@203	1859	const char *local_orig = localptr;
dvander@203	1860	do
dvander@203	1861	{
dvander@203	1862	match = true;
dvander@203	1863	while (aliasptr != '\0' && aliasptr != '*')
dvander@203	1864	{
dvander@203	1865	/* Since aliasptr is never '\0', localptr hitting the end will fail */
dvander@203	1866	if (aliasptr != localptr)
dvander@203	1867	{
dvander@203	1868	match = false;
dvander@203	1869	break;
dvander@203	1870	}
dvander@203	1871	aliasptr++;
dvander@203	1872	localptr++;
dvander@203	1873	}
dvander@203	1874	if (!match)
dvander@203	1875	{
dvander@203	1876	/* If we didn't get a match, we need to advance the search stream.
dvander@203	1877	* This will let us skip tokens while still searching for another match.
dvander@203	1878	*/
dvander@203	1879	localptr = ++local_orig;
dvander@203	1880	/* Make sure we don't go out of bounds */
dvander@203	1881	if (*localptr == '\0')
dvander@203	1882	{
dvander@203	1883	break;
dvander@203	1884	}
dvander@203	1885	}
dvander@203	1886	} while (!match);
dvander@203	1887
dvander@203	1888	if (!match)
dvander@203	1889	{
dvander@203	1890	return false;
dvander@203	1891	} else {
dvander@203	1892	/* If we got a match, move on to the next token */
dvander@203	1893	continue;
dvander@203	1894	}
dvander@203	1895	} else if (*aliasptr == '\0') {
dvander@203	1896	if (*localptr == '\0'
dvander@203	1897	\|\|
dvander@203	1898	strcmp(localptr, ".smx") == 0)
dvander@203	1899	{
dvander@203	1900	return true;
dvander@203	1901	} else {
dvander@203	1902	return false;
dvander@203	1903	}
dvander@203	1904	} else if (aliasptr != localptr) {
dvander@203	1905	return false;
dvander@203	1906	}
dvander@203	1907	aliasptr++;
dvander@203	1908	localptr++;
dvander@203	1909	}
dvander@203	1910
dvander@203	1911	return true;
dvander@203	1912	}
dvander@203	1913
faluco@290	1914	bool CPluginManager::IsLateLoadTime() const
dvander@176	1915	{
dvander@315	1916	return (m_AllPluginsLoaded \|\| !g_SourceMod.IsMapLoading());
dvander@176	1917	}
dvander@220	1918
dvander@220	1919	void CPluginManager::OnSourceModAllInitialized()
dvander@220	1920	{
dvander@229	1921	m_MyIdent = g_ShareSys.CreateCoreIdentity();
dvander@229	1922
dvander@262	1923	HandleAccess sec;
dvander@262	1924	g_HandleSys.InitAccessDefaults(NULL, &sec);
dvander@220	1925
dvander@262	1926	sec.access[HandleAccess_Delete] = HANDLE_RESTRICT_IDENTITY;
dvander@262	1927	sec.access[HandleAccess_Clone] = HANDLE_RESTRICT_IDENTITY;
dvander@262	1928
dvander@262	1929	g_PluginType = g_HandleSys.CreateType("Plugin", this, 0, NULL, &sec, m_MyIdent, NULL);
dvander@229	1930	g_PluginIdent = g_ShareSys.CreateIdentType("PLUGIN");
dvander@309	1931
dvander@309	1932	g_RootMenu.AddRootConsoleCommand("plugins", "Manage Plugins", this);
dvander@336	1933
dvander@336	1934	g_ShareSys.AddInterface(NULL, this);
dvander@220	1935	}
dvander@220	1936
dvander@220	1937	void CPluginManager::OnSourceModShutdown()
dvander@220	1938	{
dvander@309	1939	g_RootMenu.RemoveRootConsoleCommand("plugins", this);
dvander@309	1940
dvander@1630	1941	UnloadAll();
dvander@298	1942
dvander@229	1943	g_HandleSys.RemoveType(g_PluginType, m_MyIdent);
dvander@229	1944	g_ShareSys.DestroyIdentType(g_PluginIdent);
dvander@229	1945	g_ShareSys.DestroyIdentity(m_MyIdent);
dvander@220	1946	}
dvander@220	1947
dvander@220	1948	void CPluginManager::OnHandleDestroy(HandleType_t type, void *object)
dvander@220	1949	{
dvander@220	1950	/* We don't care about the internal object, actually */
dvander@220	1951	}
dvander@233	1952
dvander@233	1953	void CPluginManager::RegisterNativesFromCore(sp_nativeinfo_t *natives)
dvander@233	1954	{
dvander@1382	1955	for (unsigned int i = 0; natives[i].func != NULL; i++)
dvander@1382	1956	{
dvander@1388	1957	sm_trie_insert(m_pCoreNatives, natives[i].name, (void *)natives[i].func);
dvander@1382	1958	}
dvander@233	1959	}
dvander@247	1960
dvander@247	1961	IPlugin CPluginManager::PluginFromHandle(Handle_t handle, HandleError err)
dvander@247	1962	{
dvander@247	1963	IPlugin *pPlugin;
dvander@247	1964	HandleError _err;
dvander@247	1965
dvander@262	1966	HandleSecurity sec;
dvander@262	1967
dvander@262	1968	sec.pOwner = NULL;
dvander@262	1969	sec.pIdentity = m_MyIdent;
dvander@262	1970
dvander@262	1971	if ((_err=g_HandleSys.ReadHandle(handle, g_PluginType, &sec, (void **)&pPlugin)) != HandleError_None)
dvander@247	1972	{
dvander@247	1973	pPlugin = NULL;
dvander@247	1974	}
dvander@247	1975
dvander@247	1976	if (err)
dvander@247	1977	{
dvander@247	1978	*err = _err;
dvander@247	1979	}
dvander@247	1980
dvander@247	1981	return pPlugin;
dvander@247	1982	}
faluco@290	1983
faluco@290	1984	CPlugin *CPluginManager::GetPluginByOrder(int num)
faluco@290	1985	{
faluco@290	1986	if (num < 1 \|\| num > (int)GetPluginCount())
faluco@290	1987	{
faluco@290	1988	return NULL;
faluco@290	1989	}
faluco@290	1990
faluco@290	1991	CPlugin *pl;
faluco@290	1992	int id = 1;
faluco@290	1993
faluco@290	1994	IPluginIterator *iter = GetPluginIterator();
faluco@290	1995	for (; iter->MorePlugins() && id<num; iter->NextPlugin(), id++) {}
faluco@290	1996
faluco@290	1997	pl = (CPlugin *)(iter->GetPlugin());
faluco@290	1998	iter->Release();
faluco@290	1999
faluco@290	2000	return pl;
dvander@298	2001	}
dvander@309	2002
dvander@309	2003	const char *CPluginManager::GetStatusText(PluginStatus st)
dvander@309	2004	{
dvander@309	2005	switch (st)
dvander@309	2006	{
dvander@309	2007	case Plugin_Running:
dvander@309	2008	return "Running";
dvander@309	2009	case Plugin_Paused:
dvander@309	2010	return "Paused";
dvander@309	2011	case Plugin_Error:
dvander@309	2012	return "Error";
dvander@309	2013	case Plugin_Uncompiled:
dvander@309	2014	return "Uncompiled";
dvander@309	2015	case Plugin_BadLoad:
dvander@309	2016	return "Bad Load";
dvander@309	2017	case Plugin_Failed:
dvander@309	2018	return "Failed";
dvander@309	2019	default:
dvander@309	2020	assert(false);
dvander@309	2021	return "-";
dvander@309	2022	}
dvander@309	2023	}
dvander@309	2024
faluco@1541	2025	void CPluginManager::OnRootConsoleCommand(const char *cmdname, const CCommand &command)
dvander@309	2026	{
faluco@1541	2027	int argcount = command.ArgC();
dvander@309	2028	if (argcount >= 3)
dvander@309	2029	{
faluco@1541	2030	const char *cmd = command.Arg(2);
dvander@309	2031	if (strcmp(cmd, "list") == 0)
dvander@309	2032	{
dvander@309	2033	char buffer[256];
dvander@309	2034	unsigned int id = 1;
dvander@309	2035	int plnum = GetPluginCount();
dvander@309	2036
dvander@309	2037	if (!plnum)
dvander@309	2038	{
dvander@309	2039	g_RootMenu.ConsolePrint("[SM] No plugins loaded");
dvander@309	2040	return;
dvander@1630	2041	}
dvander@1630	2042	else
dvander@1630	2043	{
ds@582	2044	g_RootMenu.ConsolePrint("[SM] Listing %d plugin%s:", GetPluginCount(), (plnum > 1) ? "s" : "");
dvander@309	2045	}
dvander@309	2046
dvander@309	2047	IPluginIterator *iter = GetPluginIterator();
dvander@309	2048	for (; iter->MorePlugins(); iter->NextPlugin(), id++)
dvander@309	2049	{
dvander@309	2050	IPlugin *pl = iter->GetPlugin();
dvander@309	2051	assert(pl->GetStatus() != Plugin_Created);
dvander@309	2052	int len = 0;
dvander@309	2053	const sm_plugininfo_t *info = pl->GetPublicInfo();
dvander@351	2054	if (pl->GetStatus() != Plugin_Running)
dvander@340	2055	{
dvander@340	2056	len += UTIL_Format(buffer, sizeof(buffer), " %02d <%s>", id, GetStatusText(pl->GetStatus()));
dvander@1630	2057	}
dvander@1630	2058	else
dvander@1630	2059	{
dvander@340	2060	len += UTIL_Format(buffer, sizeof(buffer), " %02d", id);
dvander@340	2061	}
dvander@309	2062	len += UTIL_Format(&buffer[len], sizeof(buffer)-len, " \"%s\"", (IS_STR_FILLED(info->name)) ? info->name : pl->GetFilename());
dvander@309	2063	if (IS_STR_FILLED(info->version))
dvander@309	2064	{
dvander@309	2065	len += UTIL_Format(&buffer[len], sizeof(buffer)-len, " (%s)", info->version);
dvander@309	2066	}
dvander@309	2067	if (IS_STR_FILLED(info->author))
dvander@309	2068	{
dvander@309	2069	UTIL_Format(&buffer[len], sizeof(buffer)-len, " by %s", info->author);
dvander@309	2070	}
dvander@309	2071	g_RootMenu.ConsolePrint("%s", buffer);
dvander@309	2072	}
dvander@309	2073
dvander@309	2074	iter->Release();
dvander@309	2075	return;
dvander@1630	2076	}
dvander@1630	2077	else if (strcmp(cmd, "load") == 0)
dvander@1630	2078	{
dvander@309	2079	if (argcount < 4)
dvander@309	2080	{
dvander@310	2081	g_RootMenu.ConsolePrint("[SM] Usage: sm plugins load <file>");
dvander@309	2082	return;
dvander@309	2083	}
dvander@309	2084
dvander@309	2085	char error[128];
faluco@383	2086	bool wasloaded;
faluco@1541	2087	const char *filename = command.Arg(3);
ds@794	2088
ds@794	2089	char pluginfile[256];
ds@794	2090	const char *ext = g_LibSys.GetFileExtension(filename) ? "" : ".smx";
ds@794	2091	UTIL_Format(pluginfile, sizeof(pluginfile), "%s%s", filename, ext);
ds@794	2092
ds@794	2093	IPlugin *pl = LoadPlugin(pluginfile, false, PluginType_MapUpdated, error, sizeof(error), &wasloaded);
faluco@383	2094
faluco@383	2095	if (wasloaded)
faluco@383	2096	{
ds@794	2097	g_RootMenu.ConsolePrint("[SM] Plugin %s is already loaded.", pluginfile);
faluco@383	2098	return;
faluco@383	2099	}
dvander@309	2100
dvander@309	2101	if (pl)
dvander@309	2102	{
ds@794	2103	g_RootMenu.ConsolePrint("[SM] Loaded plugin %s successfully.", pluginfile);
dvander@1630	2104	}
dvander@1630	2105	else
dvander@1630	2106	{
ds@794	2107	g_RootMenu.ConsolePrint("[SM] Plugin %s failed to load: %s.", pluginfile, error);
dvander@309	2108	}
dvander@309	2109
dvander@309	2110	return;
dvander@1630	2111	}
dvander@1630	2112	else if (strcmp(cmd, "unload") == 0)
dvander@1630	2113	{
dvander@309	2114	if (argcount < 4)
dvander@309	2115	{
ds@1252	2116	g_RootMenu.ConsolePrint("[SM] Usage: sm plugins unload <#\|file>");
dvander@309	2117	return;
dvander@309	2118	}
dvander@309	2119
ds@1252	2120	CPlugin *pl;
ds@1252	2121	char *end;
faluco@1541	2122	const char *arg = command.Arg(3);
ds@1252	2123	int id = strtol(arg, &end, 10);
ds@1252	2124
ds@1252	2125	if (*end == '\0')
dvander@309	2126	{
ds@1252	2127	pl = GetPluginByOrder(id);
ds@1252	2128	if (!pl)
ds@1252	2129	{
ds@1252	2130	g_RootMenu.ConsolePrint("[SM] Plugin index %d not found.", id);
ds@1252	2131	return;
ds@1252	2132	}
dvander@1630	2133	}
dvander@1630	2134	else
dvander@1630	2135	{
ds@1252	2136	char pluginfile[256];
ds@1252	2137	const char *ext = g_LibSys.GetFileExtension(arg) ? "" : ".smx";
ds@1252	2138	UTIL_Format(pluginfile, sizeof(pluginfile), "%s%s", arg, ext);
dvander@309	2139
ds@1252	2140	if (!sm_trie_retrieve(m_LoadLookup, pluginfile, (void **)&pl))
ds@1252	2141	{
ds@1252	2142	g_RootMenu.ConsolePrint("[SM] Plugin %s is not loaded.", pluginfile);
ds@1252	2143	return;
ds@1252	2144	}
ds@1252	2145	}
dvander@309	2146
ds@652	2147	char name[PLATFORM_MAX_PATH];
dvander@309	2148	const sm_plugininfo_t *info = pl->GetPublicInfo();
dvander@309	2149	strcpy(name, (IS_STR_FILLED(info->name)) ? info->name : pl->GetFilename());
dvander@309	2150
dvander@309	2151	if (UnloadPlugin(pl))
dvander@309	2152	{
dvander@310	2153	g_RootMenu.ConsolePrint("[SM] Plugin %s unloaded successfully.", name);
dvander@1630	2154	}
dvander@1630	2155	else
dvander@1630	2156	{
dvander@310	2157	g_RootMenu.ConsolePrint("[SM] Failed to unload plugin %s.", name);
dvander@309	2158	}
dvander@309	2159
dvander@309	2160	return;
dvander@1630	2161	}
dvander@1630	2162	else if (strcmp(cmd, "unload_all") == 0)
dvander@1630	2163	{
dvander@1630	2164	g_PluginSys.UnloadAll();
dvander@1630	2165	g_RootMenu.ConsolePrint("[SM] All plugins have been unloaded.");
dvander@1630	2166	return;
dvander@1630	2167	}
dvander@1630	2168	else if (strcmp(cmd, "load_lock") == 0)
dvander@1630	2169	{
dvander@1630	2170	if (m_LoadingLocked)
dvander@1630	2171	{
dvander@1630	2172	g_RootMenu.ConsolePrint("[SM] There is already a loading lock in effect.");
dvander@1630	2173	}
dvander@1630	2174	else
dvander@1630	2175	{
dvander@1630	2176	m_LoadingLocked = true;
dvander@1630	2177	g_RootMenu.ConsolePrint("[SM] Loading is now locked; no plugins will be loaded or re-loaded.");
dvander@1630	2178	}
dvander@1630	2179	return;
dvander@1630	2180	}
dvander@1630	2181	else if (strcmp(cmd, "load_unlock") == 0)
dvander@1630	2182	{
dvander@1630	2183	if (m_LoadingLocked)
dvander@1630	2184	{
dvander@1630	2185	m_LoadingLocked = false;
dvander@1630	2186	g_RootMenu.ConsolePrint("[SM] The loading lock is no longer in effect.");
dvander@1630	2187	}
dvander@1630	2188	else
dvander@1630	2189	{
dvander@1630	2190	g_RootMenu.ConsolePrint("[SM] There was no loading lock in effect.");
dvander@1630	2191	}
dvander@1630	2192	return;
dvander@1630	2193	}
dvander@1630	2194	else if (strcmp(cmd, "info") == 0)
dvander@1630	2195	{
dvander@309	2196	if (argcount < 4)
dvander@309	2197	{
dvander@310	2198	g_RootMenu.ConsolePrint("[SM] Usage: sm plugins info <#>");
dvander@309	2199	return;
dvander@309	2200	}
dvander@309	2201
faluco@1541	2202	int num = atoi(command.Arg(3));
dvander@309	2203	if (num < 1 \|\| num > (int)GetPluginCount())
dvander@309	2204	{
dvander@310	2205	g_RootMenu.ConsolePrint("[SM] Plugin index not found.");
dvander@309	2206	return;
dvander@309	2207	}
dvander@309	2208
dvander@315	2209	CPlugin *pl = GetPluginByOrder(num);
dvander@309	2210	const sm_plugininfo_t *info = pl->GetPublicInfo();
dvander@309	2211
dvander@309	2212	g_RootMenu.ConsolePrint(" Filename: %s", pl->GetFilename());
dvander@315	2213	if (pl->GetStatus() <= Plugin_Error)
dvander@309	2214	{
dvander@315	2215	if (IS_STR_FILLED(info->name))
dvander@315	2216	{
dvander@605	2217	if (IS_STR_FILLED(info->description))
dvander@605	2218	{
dvander@605	2219	g_RootMenu.ConsolePrint(" Title: %s (%s)", info->name, info->description);
dvander@605	2220	} else {
dvander@605	2221	g_RootMenu.ConsolePrint(" Title: %s", info->name);
dvander@605	2222	}
dvander@605	2223	}
dvander@605	2224	if (IS_STR_FILLED(info->author))
dvander@605	2225	{
dvander@605	2226	g_RootMenu.ConsolePrint(" Author: %s", info->author);
dvander@315	2227	}
dvander@315	2228	if (IS_STR_FILLED(info->version))
dvander@315	2229	{
dvander@315	2230	g_RootMenu.ConsolePrint(" Version: %s", info->version);
dvander@315	2231	}
dvander@315	2232	if (IS_STR_FILLED(info->url))
dvander@315	2233	{
dvander@315	2234	g_RootMenu.ConsolePrint(" URL: %s", info->url);
dvander@315	2235	}
dvander@605	2236	if (pl->GetStatus() == Plugin_Error)
dvander@315	2237	{
dvander@605	2238	g_RootMenu.ConsolePrint(" Error: %s", pl->m_errormsg);
dvander@1630	2239	}
dvander@1630	2240	else
dvander@1630	2241	{
ds@860	2242	g_RootMenu.ConsolePrint(" Debugging: %s", pl->IsDebugging() ? "Yes" : "No");
ds@860	2243	g_RootMenu.ConsolePrint(" Running: %s", pl->GetStatus() == Plugin_Running ? "Yes" : "No");
ds@860	2244
ds@861	2245	const char *typestr = "";
ds@860	2246	switch (pl->GetType())
ds@860	2247	{
ds@860	2248	case PluginType_MapUpdated:
ds@860	2249	typestr = "Map Change if Updated";
ds@860	2250	break;
ds@860	2251	case PluginType_MapOnly:
ds@860	2252	typestr = "Map Change";
ds@860	2253	break;
ds@860	2254	case PluginType_Private:
ds@860	2255	case PluginType_Global:
ds@860	2256	typestr = "Never";
ds@860	2257	break;
ds@860	2258	}
ds@860	2259
ds@860	2260	g_RootMenu.ConsolePrint(" Reloads: %s", typestr);
dvander@315	2261	}
dvander@1630	2262	}
dvander@1630	2263	else
dvander@1630	2264	{
dvander@315	2265	g_RootMenu.ConsolePrint(" Load error: %s", pl->m_errormsg);
dvander@315	2266	g_RootMenu.ConsolePrint(" File info: (title \"%s\") (version \"%s\")",
dvander@315	2267	info->name ? info->name : "<none>",
dvander@315	2268	info->version ? info->version : "<none>");
dvander@315	2269	if (IS_STR_FILLED(info->url))
dvander@315	2270	{
dvander@315	2271	g_RootMenu.ConsolePrint(" File URL: %s", info->url);
dvander@315	2272	}
dvander@309	2273	}
dvander@309	2274
dvander@309	2275	return;
dvander@1630	2276	}
dvander@1630	2277	else if (strcmp(cmd, "debug") == 0)
dvander@1630	2278	{
dvander@309	2279	if (argcount < 5)
dvander@309	2280	{
dvander@310	2281	g_RootMenu.ConsolePrint("[SM] Usage: sm plugins debug <#> [on\|off]");
dvander@309	2282	return;
dvander@309	2283	}
dvander@309	2284
faluco@1541	2285	int num = atoi(command.Arg(3));
dvander@309	2286	if (num < 1 \|\| num > (int)GetPluginCount())
dvander@309	2287	{
dvander@310	2288	g_RootMenu.ConsolePrint("[SM] Plugin index not found.");
dvander@309	2289	return;
dvander@309	2290	}
dvander@309	2291
dvander@309	2292	int res;
faluco@1541	2293	const char *mode = command.Arg(4);
dvander@309	2294	if ((res=strcmp("on", mode)) && strcmp("off", mode))
dvander@309	2295	{
dvander@310	2296	g_RootMenu.ConsolePrint("[SM] The only possible options are \"on\" and \"off.\"");
dvander@309	2297	return;
dvander@309	2298	}
dvander@309	2299
dvander@309	2300	bool debug;
dvander@309	2301	if (!res)
dvander@309	2302	{
dvander@309	2303	debug = true;
dvander@1630	2304	}
dvander@1630	2305	else
dvander@1630	2306	{
dvander@309	2307	debug = false;
dvander@309	2308	}
dvander@309	2309
dvander@309	2310	CPlugin *pl = GetPluginByOrder(num);
dvander@309	2311	if (debug && pl->IsDebugging())
dvander@309	2312	{
dvander@309	2313	g_RootMenu.ConsolePrint("[SM] This plugin is already in debug mode.");
dvander@309	2314	return;
dvander@1630	2315	}
dvander@1630	2316	else if (!debug && !pl->IsDebugging())
dvander@1630	2317	{
dvander@309	2318	g_RootMenu.ConsolePrint("[SM] Debug mode is already disabled in this plugin.");
dvander@309	2319	return;
dvander@309	2320	}
dvander@309	2321
dvander@309	2322	char error[256];
dvander@309	2323	if (pl->ToggleDebugMode(debug, error, sizeof(error)))
dvander@309	2324	{
dvander@310	2325	g_RootMenu.ConsolePrint("[SM] Successfully toggled debug mode on plugin %s.", pl->GetFilename());
dvander@309	2326	return;
dvander@1630	2327	}
dvander@1630	2328	else
dvander@1630	2329	{
dvander@309	2330	g_RootMenu.ConsolePrint("[SM] Could not toggle debug mode on plugin %s.", pl->GetFilename());
dvander@309	2331	g_RootMenu.ConsolePrint("[SM] Plugin returned error: %s", error);
dvander@309	2332	return;
dvander@309	2333	}
dvander@1630	2334	}
dvander@1630	2335	else if (strcmp(cmd, "refresh") == 0)
dvander@1630	2336	{
dvander@1630	2337	g_SourceMod.DoGlobalPluginLoads();
dvander@1630	2338	g_RootMenu.ConsolePrint("[SM] The plugin list has been refreshed and reloaded.");
dvander@1630	2339	return;
dvander@1630	2340	}
dvander@1630	2341	else if (strcmp(cmd, "reload") == 0)
dvander@1630	2342	{
faluco@1348	2343	if (argcount < 4)
faluco@1348	2344	{
faluco@1348	2345	g_RootMenu.ConsolePrint("[SM] Usage: sm plugins reload <#\|file>");
faluco@1348	2346	return;
faluco@1348	2347	}
faluco@1348	2348
faluco@1348	2349	CPlugin *pl;
faluco@1348	2350	char *end;
faluco@1541	2351	const char *arg = command.Arg(3);
faluco@1348	2352	int id = strtol(arg, &end, 10);
faluco@1348	2353
faluco@1348	2354	if (*end == '\0')
faluco@1348	2355	{
faluco@1348	2356	pl = GetPluginByOrder(id);
faluco@1348	2357	if (!pl)
faluco@1348	2358	{
faluco@1348	2359	g_RootMenu.ConsolePrint("[SM] Plugin index %d not found.", id);
faluco@1348	2360	return;
faluco@1348	2361	}
dvander@1630	2362	}
dvander@1630	2363	else
dvander@1630	2364	{
faluco@1348	2365	char pluginfile[256];
faluco@1348	2366	const char *ext = g_LibSys.GetFileExtension(arg) ? "" : ".smx";
faluco@1348	2367	UTIL_Format(pluginfile, sizeof(pluginfile), "%s%s", arg, ext);
faluco@1348	2368
faluco@1348	2369	if (!sm_trie_retrieve(m_LoadLookup, pluginfile, (void **)&pl))
faluco@1348	2370	{
faluco@1348	2371	g_RootMenu.ConsolePrint("[SM] Plugin %s is not loaded.", pluginfile);
faluco@1348	2372	return;
faluco@1348	2373	}
faluco@1348	2374	}
faluco@1348	2375
faluco@1348	2376	char name[PLATFORM_MAX_PATH];
faluco@1348	2377	const sm_plugininfo_t *info = pl->GetPublicInfo();
faluco@1348	2378	strcpy(name, (IS_STR_FILLED(info->name)) ? info->name : pl->GetFilename());
faluco@1348	2379
faluco@1348	2380	if (ReloadPlugin(pl))
faluco@1348	2381	{
faluco@1348	2382	g_RootMenu.ConsolePrint("[SM] Plugin %s reloaded successfully.", name);
dvander@1630	2383	}
dvander@1630	2384	else
dvander@1630	2385	{
faluco@1348	2386	g_RootMenu.ConsolePrint("[SM] Failed to reload plugin %s.", name);
faluco@1348	2387	}
faluco@1348	2388
faluco@1348	2389	return;
dvander@309	2390	}
dvander@309	2391	}
dvander@309	2392
dvander@309	2393	/* Draw the main menu */
dvander@309	2394	g_RootMenu.ConsolePrint("SourceMod Plugins Menu:");
dvander@1630	2395	g_RootMenu.DrawGenericOption("debug", "Toggle debug mode on a plugin");
dvander@1630	2396	g_RootMenu.DrawGenericOption("info", "Information about a plugin");
dvander@309	2397	g_RootMenu.DrawGenericOption("list", "Show loaded plugins");
dvander@309	2398	g_RootMenu.DrawGenericOption("load", "Load a plugin");
dvander@1630	2399	g_RootMenu.DrawGenericOption("load_lock", "Prevents any more plugins from being loaded");
dvander@1630	2400	g_RootMenu.DrawGenericOption("load_unlock", "Re-enables plugin loading");
dvander@1630	2401	g_RootMenu.DrawGenericOption("refresh", "Reloads/refreshes all plugins in the plugins folder");
dvander@1630	2402	g_RootMenu.DrawGenericOption("reload", "Reloads a plugin");
dvander@309	2403	g_RootMenu.DrawGenericOption("unload", "Unload a plugin");
dvander@1630	2404	g_RootMenu.DrawGenericOption("unload_all", "Unloads all plugins");
faluco@1348	2405	}
faluco@1348	2406
faluco@1348	2407	bool CPluginManager::ReloadPlugin(CPlugin *pl)
faluco@1348	2408	{
faluco@1348	2409	List<CPlugin *>::iterator iter;
faluco@1348	2410	char filename[PLATFORM_MAX_PATH];
faluco@1348	2411	bool debug, wasloaded;
faluco@1348	2412	PluginType ptype;
faluco@1348	2413	IPlugin *newpl;
faluco@1348	2414	int id = 1;
faluco@1348	2415
faluco@1348	2416	strcpy(filename, pl->m_filename);
faluco@1348	2417	debug = pl->IsDebugging();
faluco@1348	2418	ptype = pl->GetType();
faluco@1348	2419
faluco@1348	2420	for (iter=m_plugins.begin(); iter!=m_plugins.end(); iter++, id++)
faluco@1348	2421	{
faluco@1348	2422	if ((*iter) == pl)
faluco@1348	2423	{
faluco@1348	2424	break;
faluco@1348	2425	}
faluco@1348	2426	}
faluco@1348	2427
faluco@1348	2428	if (!UnloadPlugin(pl))
faluco@1348	2429	{
faluco@1348	2430	return false;
faluco@1348	2431	}
faluco@1348	2432	if (!(newpl=LoadPlugin(filename, debug, ptype, NULL, 0, &wasloaded)))
faluco@1348	2433	{
faluco@1348	2434	return false;
faluco@1348	2435	}
faluco@1348	2436
faluco@1348	2437	for (iter=m_plugins.begin(); iter!=m_plugins.end(); iter++)
faluco@1348	2438	{
faluco@1348	2439	if ((iter) == (CPlugin )newpl)
faluco@1348	2440	{
faluco@1348	2441	m_plugins.erase(iter);
faluco@1348	2442	break;
faluco@1348	2443	}
faluco@1348	2444	}
faluco@1348	2445
faluco@1348	2446	int i;
dvander@1630	2447	for (i=1, iter=m_plugins.begin(); iter!=m_plugins.end() && i<id; iter++, i++)
dvander@1630	2448	{
dvander@1630	2449	}
faluco@1348	2450	m_plugins.insert(iter, (CPlugin *)newpl);
faluco@1348	2451
faluco@1348	2452	return true;
dvander@309	2453	}
faluco@333	2454
faluco@333	2455	void CPluginManager::ReloadOrUnloadPlugins()
faluco@333	2456	{
dvander@1630	2457	/* If we're in a load lock, just skip this whole bit. */
dvander@1630	2458	if (m_LoadingLocked)
dvander@1630	2459	{
dvander@1630	2460	return;
dvander@1630	2461	}
dvander@1630	2462
faluco@333	2463	List<CPlugin *>::iterator iter;
faluco@333	2464	List<CPlugin *> tmp_list = m_plugins;
faluco@333	2465	CPlugin *pl;
faluco@333	2466	time_t t;
faluco@333	2467
faluco@333	2468	for (iter=tmp_list.begin(); iter!=tmp_list.end(); iter++)
faluco@333	2469	{
faluco@333	2470	pl = (*iter);
faluco@333	2471	if (pl->GetType() == PluginType_MapOnly)
faluco@333	2472	{
faluco@333	2473	UnloadPlugin((IPlugin *)pl);
dvander@1630	2474	}
dvander@1630	2475	else if (pl->GetType() == PluginType_MapUpdated)
dvander@1630	2476	{
dvander@450	2477	t = pl->GetFileTimeStamp();
dvander@450	2478	if (!t \|\| t > pl->GetTimeStamp())
faluco@333	2479	{
faluco@333	2480	pl->SetTimeStamp(t);
faluco@333	2481	UnloadPlugin((IPlugin *)pl);
faluco@333	2482	}
faluco@333	2483	}
faluco@333	2484	}
faluco@333	2485	}
faluco@430	2486
faluco@430	2487	void CPluginManager::_SetPauseState(CPlugin *pl, bool paused)
faluco@430	2488	{
faluco@430	2489	List<IPluginsListener *>::iterator iter;
faluco@430	2490	IPluginsListener *pListener;
faluco@430	2491	for (iter=m_listeners.begin(); iter!=m_listeners.end(); iter++)
faluco@430	2492	{
faluco@430	2493	pListener = (*iter);
faluco@430	2494	pListener->OnPluginPauseChange(pl, paused);
faluco@430	2495	}
dvander@464	2496	}
dvander@464	2497
dvander@601	2498	bool CPluginManager::AddFakeNative(IPluginFunction pFunction, const char name, SPVM_FAKENATIVE_FUNC func)
dvander@601	2499	{
dvander@601	2500	if (sm_trie_retrieve(m_pNativeLookup, name, NULL))
dvander@601	2501	{
dvander@601	2502	return false;
dvander@601	2503	}
dvander@601	2504
dvander@601	2505	FakeNative *pNative = new FakeNative;
dvander@601	2506
dvander@601	2507	pNative->func = g_pVM->CreateFakeNative(func, pNative);
dvander@601	2508	if (!pNative->func)
dvander@601	2509	{
dvander@601	2510	delete pNative;
dvander@601	2511	return false;
dvander@601	2512	}
dvander@601	2513
dvander@601	2514	pNative->call = pFunction;
dvander@601	2515	pNative->name.assign(name);
dvander@601	2516	pNative->ctx = pFunction->GetParentContext();
dvander@601	2517
dvander@601	2518	m_Natives.push_back(pNative);
dvander@601	2519	sm_trie_insert(m_pNativeLookup, name,pNative);
dvander@601	2520
dvander@605	2521	CPlugin *pPlugin = GetPluginByCtx(pNative->ctx->GetContext());
dvander@605	2522	pPlugin->m_fakeNatives.push_back(pNative);
dvander@605	2523
dvander@601	2524	return true;
dvander@601	2525	}
ds@611	2526
ds@611	2527	void CPluginManager::AddFunctionsToForward(const char name, IChangeableForward pForward)
ds@611	2528	{
ds@611	2529	List<CPlugin *>::iterator iter;
ds@611	2530	CPlugin *pPlugin;
ds@611	2531	IPluginFunction *pFunction;
ds@611	2532
ds@611	2533	for (iter = m_plugins.begin(); iter != m_plugins.end(); iter++)
ds@611	2534	{
ds@611	2535	pPlugin = (*iter);
ds@611	2536
ds@611	2537	if (pPlugin->GetStatus() <= Plugin_Paused)
ds@611	2538	{
ds@611	2539	pFunction = pPlugin->GetBaseContext()->GetFunctionByName(name);
ds@611	2540
ds@611	2541	if (pFunction)
ds@611	2542	{
ds@611	2543	pForward->AddFunction(pFunction);
ds@611	2544	}
ds@611	2545	}
ds@611	2546	}
ds@611	2547	}
dvander@900	2548
dvander@900	2549	CPlugin CPluginManager::GetPluginFromIdentity(IdentityToken_t pToken)
dvander@900	2550	{
dvander@900	2551	if (pToken->type != g_PluginIdent)
dvander@900	2552	{
dvander@900	2553	return NULL;
dvander@900	2554	}
dvander@900	2555
dvander@900	2556	return (CPlugin *)(pToken->ptr);
dvander@900	2557	}
dvander@978	2558
dvander@1572	2559	void CPluginManager::OnLibraryAction(const char *lib, bool is_a_plugin, bool drop)
dvander@978	2560	{
dvander@978	2561	List<CPlugin *>::iterator iter;
dvander@978	2562
dvander@1124	2563	struct _pl
dvander@1124	2564	{
dvander@1124	2565	cell_t name;
dvander@1124	2566	cell_t file;
dvander@1124	2567	cell_t required;
dvander@1124	2568	} *plc;
dvander@1124	2569
dvander@1572	2570	struct _ext
dvander@1572	2571	{
dvander@1572	2572	cell_t name;
dvander@1572	2573	cell_t file;
dvander@1572	2574	cell_t autoload;
dvander@1572	2575	cell_t required;
dvander@1572	2576	} *ext;
dvander@1572	2577
dvander@1124	2578	const char *name = drop ? "OnLibraryRemoved" : "OnLibraryAdded";
dvander@1124	2579
dvander@1124	2580	for (iter=m_plugins.begin();
dvander@1124	2581	iter!=m_plugins.end();
dvander@1124	2582	iter++)
dvander@1124	2583	{
dvander@1124	2584	CPlugin pl = (iter);
dvander@1124	2585	if (pl->GetStatus() != Plugin_Running)
dvander@1124	2586	{
dvander@1124	2587	continue;
dvander@1124	2588	}
dvander@1124	2589	IPluginContext *pContext = pl->GetBaseContext();
dvander@1124	2590	IPluginFunction *pf = pContext->GetFunctionByName(name);
dvander@1124	2591	if (!pf)
dvander@1124	2592	{
dvander@1124	2593	continue;
dvander@1124	2594	}
dvander@1124	2595	uint32_t num_vars = pContext->GetPubVarsNum();
dvander@1124	2596	for (uint32_t i=0; i<num_vars; i++)
dvander@1124	2597	{
dvander@1124	2598	sp_pubvar_t *pubvar;
dvander@1124	2599	if (pContext->GetPubvarByIndex(i, &pubvar) != SP_ERROR_NONE)
dvander@1124	2600	{
dvander@1124	2601	continue;
dvander@1124	2602	}
dvander@1572	2603	if (is_a_plugin && strncmp(pubvar->name, "__pl_", 5) == 0)
dvander@1124	2604	{
dvander@1572	2605	plc = (_pl *)pubvar->offs;
dvander@1572	2606	if (plc->required)
dvander@1572	2607	{
dvander@1572	2608	continue;
dvander@1572	2609	}
dvander@1572	2610	char *str;
dvander@1572	2611	pContext->LocalToString(plc->name, &str);
dvander@1572	2612	if (strcmp(str, lib) != 0)
dvander@1572	2613	{
dvander@1572	2614	continue;
dvander@1572	2615	}
dvander@1572	2616	pf->PushString(lib);
dvander@1572	2617	pf->Execute(NULL);
dvander@1124	2618	}
dvander@1572	2619	else if (!is_a_plugin && strncmp(pubvar->name, "__ext_", 6) == 0)
dvander@1124	2620	{
dvander@1572	2621	ext = (_ext *)pubvar->offs;
dvander@1572	2622	if (ext->required)
dvander@1572	2623	{
dvander@1572	2624	continue;
dvander@1572	2625	}
dvander@1572	2626	char *str;
dvander@1572	2627	pContext->LocalToString(ext->name, &str);
dvander@1572	2628	if (strcmp(str, lib) != 0)
dvander@1572	2629	{
dvander@1572	2630	continue;
dvander@1572	2631	}
dvander@1572	2632	pf->PushString(lib);
dvander@1572	2633	pf->Execute(NULL);
dvander@1124	2634	}
dvander@1124	2635	}
dvander@1124	2636	}
dvander@978	2637	}
dvander@1124	2638
dvander@1124	2639	bool CPluginManager::LibraryExists(const char *lib)
dvander@1124	2640	{
dvander@1124	2641	List<CPlugin *>::iterator iter;
dvander@1124	2642
dvander@1124	2643	for (iter=m_plugins.begin();
dvander@1124	2644	iter!=m_plugins.end();
dvander@1124	2645	iter++)
dvander@1124	2646	{
dvander@1124	2647	CPlugin pl = (iter);
dvander@1124	2648	if (pl->GetStatus() != Plugin_Running)
dvander@1124	2649	{
dvander@1124	2650	continue;
dvander@1124	2651	}
dvander@1124	2652	List<String>::iterator s_iter;
dvander@1124	2653	for (s_iter = pl->m_Libraries.begin();
dvander@1124	2654	s_iter != pl->m_Libraries.end();
dvander@1124	2655	s_iter++)
dvander@1124	2656	{
dvander@1124	2657	if ((*s_iter).compare(lib) == 0)
dvander@1124	2658	{
dvander@1124	2659	return true;
dvander@1124	2660	}
dvander@1124	2661	}
dvander@1124	2662	}
dvander@1124	2663
dvander@1124	2664	return false;
dvander@1124	2665	}
faluco@1221	2666
faluco@1221	2667	void CPluginManager::AllPluginsLoaded()
faluco@1221	2668	{
faluco@1221	2669	List<CPlugin *>::iterator iter;
faluco@1221	2670	CPlugin *pl;
faluco@1221	2671
faluco@1221	2672	for (iter=m_plugins.begin(); iter!=m_plugins.end(); iter++)
faluco@1221	2673	{
faluco@1221	2674	pl = (*iter);
faluco@1221	2675	pl->Call_OnAllPluginsLoaded();
faluco@1221	2676	}
dvander@1232	2677	}
dvander@1630	2678
dvander@1630	2679	void CPluginManager::UnloadAll()
dvander@1630	2680	{
dvander@1630	2681	List<CPlugin *>::iterator iter;
dvander@1630	2682	while ( (iter = m_plugins.begin()) != m_plugins.end() )
dvander@1630	2683	{
dvander@1630	2684	UnloadPlugin((*iter));
dvander@1630	2685	}
dvander@1630	2686	}

author	David Anderson <dvander@alliedmods.net>
	Mon Oct 22 05:35:31 2007 +0000 (2007-10-22)
changeset 1630	2f2fe925f377
parent 1621	ac5d4c68a99a
child 1631	acaae238bd29
permissions	-rw-r--r--