diff -r b7429834c9bd -r c96f3fab8211 core/logic/smn_float.cpp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/core/logic/smn_float.cpp	Wed May 13 21:55:50 2009 -0400
@@ -0,0 +1,314 @@
+/**
+ * vim: set ts=4 :
+ * =============================================================================
+ * SourceMod
+ * Copyright (C) 2004-2008 AlliedModders LLC.  All rights reserved.
+ * =============================================================================
+ *
+ * This program is free software; you can redistribute it and/or modify it under
+ * the terms of the GNU General Public License, version 3.0, as published by the
+ * Free Software Foundation.
+ * 
+ * This program is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+ * details.
+ *
+ * You should have received a copy of the GNU General Public License along with
+ * this program.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ * As a special exception, AlliedModders LLC gives you permission to link the
+ * code of this program (as well as its derivative works) to "Half-Life 2," the
+ * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
+ * by the Valve Corporation.  You must obey the GNU General Public License in
+ * all respects for all other code used.  Additionally, AlliedModders LLC grants
+ * this exception to all derivative works.  AlliedModders LLC defines further
+ * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
+ * or <http://www.sourcemod.net/license.php>.
+ *
+ * Version: $Id$
+ */
+
+#include <math.h>
+#include <string.h>
+#include <stdlib.h>
+#include "common_logic.h"
+
+/****************************************
+*                                       *
+* FLOATING POINT NATIVE IMPLEMENTATIONS *
+*                                       *
+****************************************/
+
+
+static cell_t sm_float(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = static_cast<float>(params[1]);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_FloatAbs(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = (val >= 0.0f) ? val : -val;
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_FloatAdd(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]) + sp_ctof(params[2]);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_FloatSub(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]) - sp_ctof(params[2]);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_FloatMul(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]) * sp_ctof(params[2]);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_FloatDiv(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]) / sp_ctof(params[2]);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_FloatCompare(IPluginContext *pCtx, const cell_t *params)
+{
+	float val1 = sp_ctof(params[1]);
+	float val2 = sp_ctof(params[2]);
+
+	if (val1 > val2)
+	{
+		return 1;
+	} else if (val1 < val2) {
+		return -1;
+	}
+
+	return 0;
+}
+
+static cell_t sm_Logarithm(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	float base = sp_ctof(params[2]);
+
+	if ((val <= 0.0f) || (base <= 0.0f))
+	{
+		return pCtx->ThrowNativeError("Cannot evaluate the logarithm of zero or a negative number (val:%f base:%f)", val, base);
+	}
+	if (base == 10.0f)
+	{
+		val = log10(val);
+	} else {
+		val = log(val) / log(base);
+	}
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_Exponential(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+
+	return sp_ftoc(exp(val));
+}
+
+static cell_t sm_Pow(IPluginContext *pCtx, const cell_t *params)
+{
+	float base = sp_ctof(params[1]);
+	float exponent = sp_ctof(params[2]);
+
+	return sp_ftoc(pow(base, exponent));
+}
+
+static cell_t sm_SquareRoot(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+
+	if (val < 0.0f)
+	{
+		return pCtx->ThrowNativeError("Cannot evaluate the square root of a negative number (val:%f)", val);
+	}
+
+	return sp_ftoc(sqrt(val));
+}
+
+static cell_t sm_RoundToNearest(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = (float)floor(val + 0.5f);
+
+	return static_cast<int>(val);
+}
+
+static cell_t sm_RoundToFloor(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = floor(val);
+
+	return static_cast<int>(val);
+}
+
+static cell_t sm_RoundToCeil(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = ceil(val);
+
+	return static_cast<int>(val);
+}
+
+static cell_t sm_RoundToZero(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	if (val >= 0.0f)
+	{
+		val = floor(val);
+	} else {
+		val = ceil(val);
+	}
+
+	return static_cast<int>(val);
+}
+
+static cell_t sm_FloatFraction(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = val - floor(val);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_Sine(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = sin(val);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_Cosine(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = cos(val);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_Tangent(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = tan(val);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_ArcSine(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = asin(val);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_ArcCosine(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = acos(val);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_ArcTangent(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+	val = atan(val);
+
+	return sp_ftoc(val);
+}
+
+static cell_t sm_ArcTangent2(IPluginContext *pCtx, const cell_t *params)
+{
+	float val1 = sp_ctof(params[1]);
+	float val2 = sp_ctof(params[2]);
+	val1 = atan2(val1, val2);
+
+	return sp_ftoc(val1);
+}
+
+#if 0
+static cell_t sm_FloatRound(IPluginContext *pCtx, const cell_t *params)
+{
+	float val = sp_ctof(params[1]);
+
+	switch (params[2])
+	{
+	case 1:
+		{
+			val = floor(val);
+			break;
+		}
+	case 2:
+		{
+			val = ceil(val);
+			break;
+		}
+	case 3:
+		{
+			if (val >= 0.0f)
+			{
+				val = floor(val);
+			} else {
+				val = ceil(val);
+			}
+			break;
+		}
+	default:
+		{
+			val = (float)floor(val + 0.5f);
+			break;
+		}
+	}
+
+	return static_cast<int>(val);
+}
+#endif
+
+REGISTER_NATIVES(floatnatives)
+{
+	{"float",			sm_float},
+	{"FloatMul",		sm_FloatMul},
+	{"FloatDiv",		sm_FloatDiv},
+	{"FloatAdd",		sm_FloatAdd},
+	{"FloatSub",		sm_FloatSub},
+	{"FloatFraction",	sm_FloatFraction},
+	{"RoundToZero",		sm_RoundToZero},
+	{"RoundToCeil",		sm_RoundToCeil},
+	{"RoundToFloor",	sm_RoundToFloor},
+	{"RoundToNearest",	sm_RoundToNearest},
+	{"FloatCompare",	sm_FloatCompare},
+	{"SquareRoot",		sm_SquareRoot},
+	{"Pow",				sm_Pow},
+	{"Exponential",		sm_Exponential},
+	{"Logarithm",		sm_Logarithm},
+	{"Sine",			sm_Sine},
+	{"Cosine",			sm_Cosine},
+	{"Tangent",			sm_Tangent},
+	{"FloatAbs",		sm_FloatAbs},
+	{"ArcTangent",		sm_ArcTangent},
+	{"ArcCosine",		sm_ArcCosine},
+	{"ArcSine",			sm_ArcSine},
+	{"ArcTangent2",		sm_ArcTangent2},
+	{NULL,				NULL}
+};