1.1 --- a/core/smn_float.cpp Fri Mar 28 06:21:34 2008 +0000
1.2 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000
1.3 @@ -1,313 +0,0 @@
1.4 -/**
1.5 - * vim: set ts=4 :
1.6 - * =============================================================================
1.7 - * SourceMod
1.8 - * Copyright (C) 2004-2007 AlliedModders LLC. All rights reserved.
1.9 - * =============================================================================
1.10 - *
1.11 - * This program is free software; you can redistribute it and/or modify it under
1.12 - * the terms of the GNU General Public License, version 3.0, as published by the
1.13 - * Free Software Foundation.
1.14 - *
1.15 - * This program is distributed in the hope that it will be useful, but WITHOUT
1.16 - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
1.17 - * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
1.18 - * details.
1.19 - *
1.20 - * You should have received a copy of the GNU General Public License along with
1.21 - * this program. If not, see <http://www.gnu.org/licenses/>.
1.22 - *
1.23 - * As a special exception, AlliedModders LLC gives you permission to link the
1.24 - * code of this program (as well as its derivative works) to "Half-Life 2," the
1.25 - * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
1.26 - * by the Valve Corporation. You must obey the GNU General Public License in
1.27 - * all respects for all other code used. Additionally, AlliedModders LLC grants
1.28 - * this exception to all derivative works. AlliedModders LLC defines further
1.29 - * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
1.30 - * or <http://www.sourcemod.net/license.php>.
1.31 - *
1.32 - * Version: $Id$
1.33 - */
1.34 -
1.35 -#include <math.h>
1.36 -#include <string.h>
1.37 -#include <stdlib.h>
1.38 -#include "sm_globals.h"
1.39 -
1.40 -/****************************************
1.41 -* *
1.42 -* FLOATING POINT NATIVE IMPLEMENTATIONS *
1.43 -* *
1.44 -****************************************/
1.45 -
1.46 -
1.47 -static cell_t sm_float(IPluginContext *pCtx, const cell_t *params)
1.48 -{
1.49 - float val = static_cast<float>(params[1]);
1.50 -
1.51 - return sp_ftoc(val);
1.52 -}
1.53 -
1.54 -static cell_t sm_FloatAbs(IPluginContext *pCtx, const cell_t *params)
1.55 -{
1.56 - float val = sp_ctof(params[1]);
1.57 - val = (val >= 0.0f) ? val : -val;
1.58 -
1.59 - return sp_ftoc(val);
1.60 -}
1.61 -
1.62 -static cell_t sm_FloatAdd(IPluginContext *pCtx, const cell_t *params)
1.63 -{
1.64 - float val = sp_ctof(params[1]) + sp_ctof(params[2]);
1.65 -
1.66 - return sp_ftoc(val);
1.67 -}
1.68 -
1.69 -static cell_t sm_FloatSub(IPluginContext *pCtx, const cell_t *params)
1.70 -{
1.71 - float val = sp_ctof(params[1]) - sp_ctof(params[2]);
1.72 -
1.73 - return sp_ftoc(val);
1.74 -}
1.75 -
1.76 -static cell_t sm_FloatMul(IPluginContext *pCtx, const cell_t *params)
1.77 -{
1.78 - float val = sp_ctof(params[1]) * sp_ctof(params[2]);
1.79 -
1.80 - return sp_ftoc(val);
1.81 -}
1.82 -
1.83 -static cell_t sm_FloatDiv(IPluginContext *pCtx, const cell_t *params)
1.84 -{
1.85 - float val = sp_ctof(params[1]) / sp_ctof(params[2]);
1.86 -
1.87 - return sp_ftoc(val);
1.88 -}
1.89 -
1.90 -static cell_t sm_FloatCompare(IPluginContext *pCtx, const cell_t *params)
1.91 -{
1.92 - float val1 = sp_ctof(params[1]);
1.93 - float val2 = sp_ctof(params[2]);
1.94 -
1.95 - if (val1 > val2)
1.96 - {
1.97 - return 1;
1.98 - } else if (val1 < val2) {
1.99 - return -1;
1.100 - }
1.101 -
1.102 - return 0;
1.103 -}
1.104 -
1.105 -static cell_t sm_Logarithm(IPluginContext *pCtx, const cell_t *params)
1.106 -{
1.107 - float val = sp_ctof(params[1]);
1.108 - float base = sp_ctof(params[2]);
1.109 -
1.110 - if ((val <= 0.0f) || (base <= 0.0f))
1.111 - {
1.112 - return pCtx->ThrowNativeError("Cannot evaluate the logarithm of zero or a negative number (val:%f base:%f)", val, base);
1.113 - }
1.114 - if (base == 10.0f)
1.115 - {
1.116 - val = log10(val);
1.117 - } else {
1.118 - val = log(val) / log(base);
1.119 - }
1.120 -
1.121 - return sp_ftoc(val);
1.122 -}
1.123 -
1.124 -static cell_t sm_Exponential(IPluginContext *pCtx, const cell_t *params)
1.125 -{
1.126 - float val = sp_ctof(params[1]);
1.127 -
1.128 - return sp_ftoc(exp(val));
1.129 -}
1.130 -
1.131 -static cell_t sm_Pow(IPluginContext *pCtx, const cell_t *params)
1.132 -{
1.133 - float base = sp_ctof(params[1]);
1.134 - float exponent = sp_ctof(params[2]);
1.135 -
1.136 - return sp_ftoc(pow(base, exponent));
1.137 -}
1.138 -
1.139 -static cell_t sm_SquareRoot(IPluginContext *pCtx, const cell_t *params)
1.140 -{
1.141 - float val = sp_ctof(params[1]);
1.142 -
1.143 - if (val < 0.0f)
1.144 - {
1.145 - return pCtx->ThrowNativeError("Cannot evaluate the square root of a negative number (val:%f)", val);
1.146 - }
1.147 -
1.148 - return sp_ftoc(sqrt(val));
1.149 -}
1.150 -
1.151 -static cell_t sm_RoundToNearest(IPluginContext *pCtx, const cell_t *params)
1.152 -{
1.153 - float val = sp_ctof(params[1]);
1.154 - val = (float)floor(val + 0.5f);
1.155 -
1.156 - return static_cast<int>(val);
1.157 -}
1.158 -
1.159 -static cell_t sm_RoundToFloor(IPluginContext *pCtx, const cell_t *params)
1.160 -{
1.161 - float val = sp_ctof(params[1]);
1.162 - val = floor(val);
1.163 -
1.164 - return static_cast<int>(val);
1.165 -}
1.166 -
1.167 -static cell_t sm_RoundToCeil(IPluginContext *pCtx, const cell_t *params)
1.168 -{
1.169 - float val = sp_ctof(params[1]);
1.170 - val = ceil(val);
1.171 -
1.172 - return static_cast<int>(val);
1.173 -}
1.174 -
1.175 -static cell_t sm_RoundToZero(IPluginContext *pCtx, const cell_t *params)
1.176 -{
1.177 - float val = sp_ctof(params[1]);
1.178 - if (val >= 0.0f)
1.179 - {
1.180 - val = floor(val);
1.181 - } else {
1.182 - val = ceil(val);
1.183 - }
1.184 -
1.185 - return static_cast<int>(val);
1.186 -}
1.187 -
1.188 -static cell_t sm_FloatFraction(IPluginContext *pCtx, const cell_t *params)
1.189 -{
1.190 - float val = sp_ctof(params[1]);
1.191 - val = val - floor(val);
1.192 -
1.193 - return sp_ftoc(val);
1.194 -}
1.195 -
1.196 -static cell_t sm_Sine(IPluginContext *pCtx, const cell_t *params)
1.197 -{
1.198 - float val = sp_ctof(params[1]);
1.199 - val = sin(val);
1.200 -
1.201 - return sp_ftoc(val);
1.202 -}
1.203 -
1.204 -static cell_t sm_Cosine(IPluginContext *pCtx, const cell_t *params)
1.205 -{
1.206 - float val = sp_ctof(params[1]);
1.207 - val = cos(val);
1.208 -
1.209 - return sp_ftoc(val);
1.210 -}
1.211 -
1.212 -static cell_t sm_Tangent(IPluginContext *pCtx, const cell_t *params)
1.213 -{
1.214 - float val = sp_ctof(params[1]);
1.215 - val = tan(val);
1.216 -
1.217 - return sp_ftoc(val);
1.218 -}
1.219 -
1.220 -static cell_t sm_ArcSine(IPluginContext *pCtx, const cell_t *params)
1.221 -{
1.222 - float val = sp_ctof(params[1]);
1.223 - val = asin(val);
1.224 -
1.225 - return sp_ftoc(val);
1.226 -}
1.227 -
1.228 -static cell_t sm_ArcCosine(IPluginContext *pCtx, const cell_t *params)
1.229 -{
1.230 - float val = sp_ctof(params[1]);
1.231 - val = acos(val);
1.232 -
1.233 - return sp_ftoc(val);
1.234 -}
1.235 -
1.236 -static cell_t sm_ArcTangent(IPluginContext *pCtx, const cell_t *params)
1.237 -{
1.238 - float val = sp_ctof(params[1]);
1.239 - val = atan(val);
1.240 -
1.241 - return sp_ftoc(val);
1.242 -}
1.243 -
1.244 -static cell_t sm_ArcTangent2(IPluginContext *pCtx, const cell_t *params)
1.245 -{
1.246 - float val1 = sp_ctof(params[1]);
1.247 - float val2 = sp_ctof(params[2]);
1.248 - val1 = atan2(val1, val2);
1.249 -
1.250 - return sp_ftoc(val1);
1.251 -}
1.252 -
1.253 -static cell_t sm_FloatRound(IPluginContext *pCtx, const cell_t *params)
1.254 -{
1.255 - float val = sp_ctof(params[1]);
1.256 -
1.257 - switch (params[2])
1.258 - {
1.259 - case 1:
1.260 - {
1.261 - val = floor(val);
1.262 - break;
1.263 - }
1.264 - case 2:
1.265 - {
1.266 - val = ceil(val);
1.267 - break;
1.268 - }
1.269 - case 3:
1.270 - {
1.271 - if (val >= 0.0f)
1.272 - {
1.273 - val = floor(val);
1.274 - } else {
1.275 - val = ceil(val);
1.276 - }
1.277 - break;
1.278 - }
1.279 - default:
1.280 - {
1.281 - val = (float)floor(val + 0.5f);
1.282 - break;
1.283 - }
1.284 - }
1.285 -
1.286 - return static_cast<int>(val);
1.287 -}
1.288 -
1.289 -REGISTER_NATIVES(floatnatives)
1.290 -{
1.291 - {"float", sm_float},
1.292 - {"FloatMul", sm_FloatMul},
1.293 - {"FloatDiv", sm_FloatDiv},
1.294 - {"FloatAdd", sm_FloatAdd},
1.295 - {"FloatSub", sm_FloatSub},
1.296 - {"FloatFraction", sm_FloatFraction},
1.297 - {"RoundToZero", sm_RoundToZero},
1.298 - {"RoundToCeil", sm_RoundToCeil},
1.299 - {"RoundToFloor", sm_RoundToFloor},
1.300 - {"RoundToNearest", sm_RoundToNearest},
1.301 - {"FloatCompare", sm_FloatCompare},
1.302 - {"SquareRoot", sm_SquareRoot},
1.303 - {"Pow", sm_Pow},
1.304 - {"Exponential", sm_Exponential},
1.305 - {"Logarithm", sm_Logarithm},
1.306 - {"Sine", sm_Sine},
1.307 - {"Cosine", sm_Cosine},
1.308 - {"Tangent", sm_Tangent},
1.309 - {"FloatAbs", sm_FloatAbs},
1.310 - {"ArcTangent", sm_ArcTangent},
1.311 - {"ArcCosine", sm_ArcCosine},
1.312 - {"ArcSine", sm_ArcSine},
1.313 - {"ArcTangent2", sm_ArcTangent2},
1.314 - {"FloatRound", sm_FloatRound}, /* Backwards compat shim */
1.315 - {NULL, NULL}
1.316 -};
