3 * =============================================================================
5 * Copyright (C) 2004-2007 AlliedModders LLC. All rights reserved.
6 * =============================================================================
8 * This program is free software; you can redistribute it and/or modify it under
9 * the terms of the GNU General Public License, version 3.0, as published by the
10 * Free Software Foundation.
12 * This program is distributed in the hope that it will be useful, but WITHOUT
13 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
17 * You should have received a copy of the GNU General Public License along with
18 * this program. If not, see <http://www.gnu.org/licenses/>.
20 * As a special exception, AlliedModders LLC gives you permission to link the
21 * code of this program (as well as its derivative works) to "Half-Life 2," the
22 * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
23 * by the Valve Corporation. You must obey the GNU General Public License in
24 * all respects for all other code used. Additionally, AlliedModders LLC grants
25 * this exception to all derivative works. AlliedModders LLC defines further
26 * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
27 * or <http://www.sourcemod.net/license.php>.
35 #include "sm_stringutil.h"
36 #include "sm_globals.h"
37 #include "sourcemod.h"
38 #include "PluginSys.h"
39 #include "HandleSys.h"
40 #include "LibrarySys.h"
42 #include "ForwardSys.h"
44 #include "ExtensionSys.h"
46 #if defined PLATFORM_WINDOWS
48 #elif defined PLATFORM_LINUX
51 #include <sys/times.h>
54 HandleType_t g_PlIter;
55 ConVar sm_datetime_format("sm_datetime_format", "%m/%d/%Y - %H:%M:%S", 0, "Default formatting time rules");
56 IForward *g_OnLogAction = NULL;
58 class CoreNativeHelpers :
60 public IHandleTypeDispatch
63 void OnSourceModAllInitialized()
66 g_HandleSys.InitAccessDefaults(NULL, &hacc);
67 hacc.access[HandleAccess_Clone] = HANDLE_RESTRICT_IDENTITY|HANDLE_RESTRICT_OWNER;
69 g_PlIter = g_HandleSys.CreateType("PluginIterator", this, 0, NULL, NULL, g_pCoreIdent, NULL);
71 g_OnLogAction = g_Forwards.CreateForward("OnLogAction",
81 void OnHandleDestroy(HandleType_t type, void *object)
83 IPluginIterator *iter = (IPluginIterator *)object;
86 void OnSourceModShutdown()
88 g_Forwards.ReleaseForward(g_OnLogAction);
89 g_HandleSys.RemoveType(g_PlIter, g_pCoreIdent);
91 } g_CoreNativeHelpers;
93 void LogAction(Handle_t hndl, int type, int client, int target, const char *message)
95 if (!g_OnLogAction->GetFunctionCount())
101 g_OnLogAction->PushCell(hndl);
102 g_OnLogAction->PushCell(type);
103 g_OnLogAction->PushCell(client);
104 g_OnLogAction->PushCell(target);
105 g_OnLogAction->PushString(message);
106 g_OnLogAction->Execute(&result);
108 if (result >= (ResultType)Pl_Handled)
113 const char *logtag = "SM";
117 IPlugin *pPlugin = g_PluginSys.PluginFromHandle(hndl, &err);
120 logtag = pPlugin->GetFilename();
124 g_Logger.LogMessage("[%s] %s", logtag, message);
127 static cell_t ThrowError(IPluginContext *pContext, const cell_t *params)
131 g_SourceMod.SetGlobalTarget(LANG_SERVER);
133 g_SourceMod.FormatString(buffer, sizeof(buffer), pContext, params, 1);
135 if (pContext->GetContext()->n_err == SP_ERROR_NONE)
137 pContext->ThrowNativeErrorEx(SP_ERROR_ABORTED, "%s", buffer);
143 static cell_t GetTime(IPluginContext *pContext, const cell_t *params)
145 time_t t = GetAdjustedTime();
147 pContext->LocalToPhysAddr(params[1], &addr);
151 return static_cast<cell_t>(t);
154 #if defined SUBPLATFORM_SECURECRT
155 void _ignore_invalid_parameter(
156 const wchar_t * expression,
157 const wchar_t * function,
158 const wchar_t * file,
163 /* Wow we don't care, thanks Microsoft. */
167 static cell_t FormatTime(IPluginContext *pContext, const cell_t *params)
169 char *format, *buffer;
170 pContext->LocalToString(params[1], &buffer);
171 pContext->LocalToStringNULL(params[3], &format);
175 format = const_cast<char *>(sm_datetime_format.GetString());
178 #if defined SUBPLATFORM_SECURECRT
179 _invalid_parameter_handler handler = _set_invalid_parameter_handler(_ignore_invalid_parameter);
182 time_t t = (params[4] == -1) ? GetAdjustedTime() : (time_t)params[4];
183 size_t written = strftime(buffer, params[2], format, localtime(&t));
185 #if defined SUBPLATFORM_SECURECRT
186 _set_invalid_parameter_handler(handler);
189 if (params[2] && format[0] != '\0' && !written)
191 pContext->ThrowNativeError("Invalid time format or buffer too small");
198 static cell_t GetPluginIterator(IPluginContext *pContext, const cell_t *params)
200 IPluginIterator *iter = g_PluginSys.GetPluginIterator();
202 Handle_t hndl = g_HandleSys.CreateHandle(g_PlIter, iter, pContext->GetIdentity(), g_pCoreIdent, NULL);
204 if (hndl == BAD_HANDLE)
212 static cell_t MorePlugins(IPluginContext *pContext, const cell_t *params)
214 Handle_t hndl = (Handle_t)params[1];
216 IPluginIterator *pIter;
219 sec.pIdentity = g_pCoreIdent;
220 sec.pOwner = pContext->GetIdentity();
222 if ((err=g_HandleSys.ReadHandle(hndl, g_PlIter, &sec, (void **)&pIter)) != HandleError_None)
224 return pContext->ThrowNativeError("Could not read Handle %x (error %d)", hndl, err);
227 return pIter->MorePlugins() ? 1 : 0;
230 static cell_t ReadPlugin(IPluginContext *pContext, const cell_t *params)
232 Handle_t hndl = (Handle_t)params[1];
234 IPluginIterator *pIter;
237 sec.pIdentity = g_pCoreIdent;
238 sec.pOwner = pContext->GetIdentity();
240 if ((err=g_HandleSys.ReadHandle(hndl, g_PlIter, &sec, (void **)&pIter)) != HandleError_None)
242 return pContext->ThrowNativeError("Could not read Handle %x (error %d)", hndl, err);
245 CPlugin *pPlugin = (CPlugin *)pIter->GetPlugin();
253 return pPlugin->GetMyHandle();
256 CPlugin *GetPluginFromHandle(IPluginContext *pContext, Handle_t hndl)
258 if (hndl == BAD_HANDLE)
260 return g_PluginSys.GetPluginByCtx(pContext->GetContext());
263 CPlugin *pPlugin = (CPlugin *)g_PluginSys.PluginFromHandle(hndl, &err);
266 pContext->ThrowNativeError("Could not read Handle %x (error %d)", hndl, err);
272 static cell_t GetPluginStatus(IPluginContext *pContext, const cell_t *params)
274 CPlugin *pPlugin = GetPluginFromHandle(pContext, params[1]);
280 return pPlugin->GetStatus();
283 static cell_t GetPluginFilename(IPluginContext *pContext, const cell_t *params)
285 CPlugin *pPlugin = GetPluginFromHandle(pContext, params[1]);
291 pContext->StringToLocalUTF8(params[2], params[3], pPlugin->GetFilename(), NULL);
296 static cell_t IsPluginDebugging(IPluginContext *pContext, const cell_t *params)
298 CPlugin *pPlugin = GetPluginFromHandle(pContext, params[1]);
304 return pPlugin->IsDebugging() ? 1 : 0;
307 /* Local to plugins only */
310 PlInfo_Name, /**< Plugin name */
311 PlInfo_Author, /**< Plugin author */
312 PlInfo_Description, /**< Plugin description */
313 PlInfo_Version, /**< Plugin verison */
314 PlInfo_URL, /**< Plugin URL */
317 static cell_t GetPluginInfo(IPluginContext *pContext, const cell_t *params)
319 CPlugin *pPlugin = GetPluginFromHandle(pContext, params[1]);
325 const sm_plugininfo_t *info = pPlugin->GetPublicInfo();
332 const char *str = NULL;
334 switch ((PluginInfo)params[2])
346 case PlInfo_Description:
348 str = info->description;
363 if (!str || str[0] == '\0')
368 pContext->StringToLocalUTF8(params[3], params[4], str, NULL);
373 static cell_t SetFailState(IPluginContext *pContext, const cell_t *params)
376 pContext->LocalToString(params[1], &str);
378 CPlugin *pPlugin = g_PluginSys.GetPluginByCtx(pContext->GetContext());
379 pPlugin->SetErrorState(Plugin_Error, "%s", str);
381 return pContext->ThrowNativeErrorEx(SP_ERROR_ABORTED, "%s", str);
384 static cell_t GetSysTickCount(IPluginContext *pContext, const cell_t *params)
386 #if defined PLATFORM_WINDOWS
387 return (cell_t)GetTickCount();
388 #elif defined PLATFORM_LINUX
390 clock_t ticks = times(&tm);
391 long ticks_per_sec = sysconf(_SC_CLK_TCK);
392 double fticks = (double)ticks / (double)ticks_per_sec;
394 if (fticks > INT_MAX)
396 double r = (int)(fticks / INT_MAX) * (double)INT_MAX;
399 return (cell_t)fticks;
403 static cell_t AutoExecConfig(IPluginContext *pContext, const cell_t *params)
405 CPlugin *plugin = g_PluginSys.GetPluginByCtx(pContext->GetContext());
408 pContext->LocalToString(params[2], &cfg);
409 pContext->LocalToString(params[3], &folder);
413 static char temp_str[255];
414 static char temp_file[PLATFORM_MAX_PATH];
417 g_LibSys.GetFileFromPath(temp_str, sizeof(temp_str), plugin->GetFilename());
418 if ((ptr = strstr(temp_str, ".smx")) != NULL)
423 /* We have the raw filename! */
424 UTIL_Format(temp_file, sizeof(temp_file), "plugin.%s", temp_str);
428 plugin->AddConfig(params[1] ? true : false, cfg, folder);
433 static cell_t MarkNativeAsOptional(IPluginContext *pContext, const cell_t *params)
437 sp_context_t *ctx = pContext->GetContext();
439 pContext->LocalToString(params[1], &name);
440 if (pContext->FindNativeByName(name, &idx) != SP_ERROR_NONE)
442 /* Oops! This HAS to silently fail! */
446 ctx->natives[idx].flags |= SP_NTVFLAG_OPTIONAL;
451 static cell_t RegPluginLibrary(IPluginContext *pContext, const cell_t *params)
454 CPlugin *pl = g_PluginSys.GetPluginByCtx(pContext->GetContext());
456 pContext->LocalToString(params[1], &name);
458 pl->AddLibrary(name);
463 static cell_t LibraryExists(IPluginContext *pContext, const cell_t *params)
466 pContext->LocalToString(params[1], &str);
468 return g_PluginSys.LibraryExists(str) ? 1 : 0;
471 static cell_t sm_LogAction(IPluginContext *pContext, const cell_t *params)
474 g_SourceMod.SetGlobalTarget(LANG_SERVER);
475 g_SourceMod.FormatString(buffer, sizeof(buffer), pContext, params, 3);
477 if (pContext->GetContext()->n_err != SP_ERROR_NONE)
482 CPlugin *pPlugin = g_PluginSys.GetPluginByCtx(pContext->GetContext());
484 LogAction(pPlugin->GetMyHandle(), 2, params[1], params[2], buffer);
489 static cell_t LogToFile(IPluginContext *pContext, const cell_t *params)
492 pContext->LocalToString(params[1], &file);
494 char path[PLATFORM_MAX_PATH];
495 g_SourceMod.BuildPath(Path_Game, path, sizeof(path), "%s", file);
497 FILE *fp = fopen(path, "at");
500 return pContext->ThrowNativeError("Could not open file \"%s\"", path);
504 g_SourceMod.SetGlobalTarget(LANG_SERVER);
505 g_SourceMod.FormatString(buffer, sizeof(buffer), pContext, params, 2);
507 if (pContext->GetContext()->n_err != SP_ERROR_NONE)
513 CPlugin *pPlugin = g_PluginSys.GetPluginByCtx(pContext->GetContext());
515 g_Logger.LogToOpenFile(fp, "[%s] %s", pPlugin->GetFilename(), buffer);
522 static cell_t LogToFileEx(IPluginContext *pContext, const cell_t *params)
525 pContext->LocalToString(params[1], &file);
527 char path[PLATFORM_MAX_PATH];
528 g_SourceMod.BuildPath(Path_Game, path, sizeof(path), "%s", file);
530 FILE *fp = fopen(path, "at");
533 return pContext->ThrowNativeError("Could not open file \"%s\"", path);
537 g_SourceMod.SetGlobalTarget(LANG_SERVER);
538 g_SourceMod.FormatString(buffer, sizeof(buffer), pContext, params, 2);
540 if (pContext->GetContext()->n_err != SP_ERROR_NONE)
546 g_Logger.LogToOpenFile(fp, "%s", buffer);
553 static cell_t GetExtensionFileStatus(IPluginContext *pContext, const cell_t *params)
556 pContext->LocalToString(params[1], &str);
558 IExtension *pExtension = g_Extensions.FindExtensionByFile(str);
565 if (!pExtension->IsLoaded())
571 pContext->LocalToString(params[2], &error);
572 if (!pExtension->IsRunning(error, params[3]))
580 REGISTER_NATIVES(coreNatives)
582 {"AutoExecConfig", AutoExecConfig},
583 {"GetPluginFilename", GetPluginFilename},
584 {"GetPluginInfo", GetPluginInfo},
585 {"GetPluginIterator", GetPluginIterator},
586 {"GetPluginStatus", GetPluginStatus},
587 {"GetSysTickCount", GetSysTickCount},
588 {"GetTime", GetTime},
589 {"IsPluginDebugging", IsPluginDebugging},
590 {"MorePlugins", MorePlugins},
591 {"ReadPlugin", ReadPlugin},
592 {"ThrowError", ThrowError},
593 {"SetFailState", SetFailState},
594 {"FormatTime", FormatTime},
595 {"MarkNativeAsOptional", MarkNativeAsOptional},
596 {"RegPluginLibrary", RegPluginLibrary},
597 {"LibraryExists", LibraryExists},
598 {"LogAction", sm_LogAction},
599 {"LogToFile", LogToFile},
600 {"LogToFileEx", LogToFileEx},
601 {"GetExtensionFileStatus", GetExtensionFileStatus},