Home - sourcemod-central - file revision - core/smn_float.cpp@ecbaee393b0b Mercurial
summary | shortlog | changelog | graph | tags | branches | files | changeset | file | latest | revisions | annotate | diff | raw | help
core/smn_float.cpp
author David Anderson <dvander@alliedmods.net>
Mon Oct 15 00:38:25 2007 +0000 (2007-10-15)
changeset 1568 ecbaee393b0b
parent 1330 ab94316bb52b
child 1936 89d6e5038933
permissions -rw-r--r--
extensions can now be built for multiple engines, and will autoload from auto.X.Y folders 
     1 /**
     2  * vim: set ts=4 :
     3  * =============================================================================
     4  * SourceMod
     5  * Copyright (C) 2004-2007 AlliedModders LLC.  All rights reserved.
     6  * =============================================================================
     7  *
     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.
    11  * 
    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
    15  * details.
    16  *
    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/>.
    19  *
    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>.
    28  *
    29  * Version: $Id$
    30  */
    31 
    32 #include <math.h>
    33 #include <string.h>
    34 #include <stdlib.h>
    35 #include "sm_globals.h"
    36 
    37 /****************************************
    38 *                                       *
    39 * FLOATING POINT NATIVE IMPLEMENTATIONS *
    40 *                                       *
    41 ****************************************/
    42 
    43 
    44 static cell_t sm_float(IPluginContext *pCtx, const cell_t *params)
    45 {
    46 	float val = static_cast<float>(params[1]);
    47 
    48 	return sp_ftoc(val);
    49 }
    50 
    51 static cell_t sm_FloatAbs(IPluginContext *pCtx, const cell_t *params)
    52 {
    53 	float val = sp_ctof(params[1]);
    54 	val = (val >= 0.0f) ? val : -val;
    55 
    56 	return sp_ftoc(val);
    57 }
    58 
    59 static cell_t sm_FloatAdd(IPluginContext *pCtx, const cell_t *params)
    60 {
    61 	float val = sp_ctof(params[1]) + sp_ctof(params[2]);
    62 
    63 	return sp_ftoc(val);
    64 }
    65 
    66 static cell_t sm_FloatSub(IPluginContext *pCtx, const cell_t *params)
    67 {
    68 	float val = sp_ctof(params[1]) - sp_ctof(params[2]);
    69 
    70 	return sp_ftoc(val);
    71 }
    72 
    73 static cell_t sm_FloatMul(IPluginContext *pCtx, const cell_t *params)
    74 {
    75 	float val = sp_ctof(params[1]) * sp_ctof(params[2]);
    76 
    77 	return sp_ftoc(val);
    78 }
    79 
    80 static cell_t sm_FloatDiv(IPluginContext *pCtx, const cell_t *params)
    81 {
    82 	float val = sp_ctof(params[1]) / sp_ctof(params[2]);
    83 
    84 	return sp_ftoc(val);
    85 }
    86 
    87 static cell_t sm_FloatCompare(IPluginContext *pCtx, const cell_t *params)
    88 {
    89 	float val1 = sp_ctof(params[1]);
    90 	float val2 = sp_ctof(params[2]);
    91 
    92 	if (val1 > val2)
    93 	{
    94 		return 1;
    95 	} else if (val1 < val2) {
    96 		return -1;
    97 	}
    98 
    99 	return 0;
   100 }
   101 
   102 static cell_t sm_Logarithm(IPluginContext *pCtx, const cell_t *params)
   103 {
   104 	float val = sp_ctof(params[1]);
   105 	float base = sp_ctof(params[2]);
   106 
   107 	if ((val <= 0.0f) || (base <= 0.0f))
   108 	{
   109 		return pCtx->ThrowNativeError("Cannot evaluate the logarithm of zero or a negative number (val:%f base:%f)", val, base);
   110 	}
   111 	if (base == 10.0f)
   112 	{
   113 		val = log10(val);
   114 	} else {
   115 		val = log(val) / log(base);
   116 	}
   117 
   118 	return sp_ftoc(val);
   119 }
   120 
   121 static cell_t sm_Exponential(IPluginContext *pCtx, const cell_t *params)
   122 {
   123 	float val = sp_ctof(params[1]);
   124 
   125 	return sp_ftoc(exp(val));
   126 }
   127 
   128 static cell_t sm_Pow(IPluginContext *pCtx, const cell_t *params)
   129 {
   130 	float base = sp_ctof(params[1]);
   131 	float exponent = sp_ctof(params[2]);
   132 
   133 	return sp_ftoc(pow(base, exponent));
   134 }
   135 
   136 static cell_t sm_SquareRoot(IPluginContext *pCtx, const cell_t *params)
   137 {
   138 	float val = sp_ctof(params[1]);
   139 
   140 	if (val < 0.0f)
   141 	{
   142 		return pCtx->ThrowNativeError("Cannot evaluate the square root of a negative number (val:%f)", val);
   143 	}
   144 
   145 	return sp_ftoc(sqrt(val));
   146 }
   147 
   148 static cell_t sm_RoundToNearest(IPluginContext *pCtx, const cell_t *params)
   149 {
   150 	float val = sp_ctof(params[1]);
   151 	val = (float)floor(val + 0.5f);
   152 
   153 	return static_cast<int>(val);
   154 }
   155 
   156 static cell_t sm_RoundToFloor(IPluginContext *pCtx, const cell_t *params)
   157 {
   158 	float val = sp_ctof(params[1]);
   159 	val = floor(val);
   160 
   161 	return static_cast<int>(val);
   162 }
   163 
   164 static cell_t sm_RoundToCeil(IPluginContext *pCtx, const cell_t *params)
   165 {
   166 	float val = sp_ctof(params[1]);
   167 	val = ceil(val);
   168 
   169 	return static_cast<int>(val);
   170 }
   171 
   172 static cell_t sm_RoundToZero(IPluginContext *pCtx, const cell_t *params)
   173 {
   174 	float val = sp_ctof(params[1]);
   175 	if (val >= 0.0f)
   176 	{
   177 		val = floor(val);
   178 	} else {
   179 		val = ceil(val);
   180 	}
   181 
   182 	return static_cast<int>(val);
   183 }
   184 
   185 static cell_t sm_FloatFraction(IPluginContext *pCtx, const cell_t *params)
   186 {
   187 	float val = sp_ctof(params[1]);
   188 	val = val - floor(val);
   189 
   190 	return sp_ftoc(val);
   191 }
   192 
   193 static cell_t sm_Sine(IPluginContext *pCtx, const cell_t *params)
   194 {
   195 	float val = sp_ctof(params[1]);
   196 	val = sin(val);
   197 
   198 	return sp_ftoc(val);
   199 }
   200 
   201 static cell_t sm_Cosine(IPluginContext *pCtx, const cell_t *params)
   202 {
   203 	float val = sp_ctof(params[1]);
   204 	val = cos(val);
   205 
   206 	return sp_ftoc(val);
   207 }
   208 
   209 static cell_t sm_Tangent(IPluginContext *pCtx, const cell_t *params)
   210 {
   211 	float val = sp_ctof(params[1]);
   212 	val = tan(val);
   213 
   214 	return sp_ftoc(val);
   215 }
   216 
   217 static cell_t sm_ArcSine(IPluginContext *pCtx, const cell_t *params)
   218 {
   219 	float val = sp_ctof(params[1]);
   220 	val = asin(val);
   221 
   222 	return sp_ftoc(val);
   223 }
   224 
   225 static cell_t sm_ArcCosine(IPluginContext *pCtx, const cell_t *params)
   226 {
   227 	float val = sp_ctof(params[1]);
   228 	val = acos(val);
   229 
   230 	return sp_ftoc(val);
   231 }
   232 
   233 static cell_t sm_ArcTangent(IPluginContext *pCtx, const cell_t *params)
   234 {
   235 	float val = sp_ctof(params[1]);
   236 	val = atan(val);
   237 
   238 	return sp_ftoc(val);
   239 }
   240 
   241 static cell_t sm_ArcTangent2(IPluginContext *pCtx, const cell_t *params)
   242 {
   243 	float val1 = sp_ctof(params[1]);
   244 	float val2 = sp_ctof(params[2]);
   245 	val1 = atan2(val1, val2);
   246 
   247 	return sp_ftoc(val1);
   248 }
   249 
   250 static cell_t sm_FloatRound(IPluginContext *pCtx, const cell_t *params)
   251 {
   252 	float val = sp_ctof(params[1]);
   253 
   254 	switch (params[2])
   255 	{
   256 	case 1:
   257 		{
   258 			val = floor(val);
   259 			break;
   260 		}
   261 	case 2:
   262 		{
   263 			val = ceil(val);
   264 			break;
   265 		}
   266 	case 3:
   267 		{
   268 			if (val >= 0.0f)
   269 			{
   270 				val = floor(val);
   271 			} else {
   272 				val = ceil(val);
   273 			}
   274 			break;
   275 		}
   276 	default:
   277 		{
   278 			val = (float)floor(val + 0.5f);
   279 			break;
   280 		}
   281 	}
   282 
   283 	return static_cast<int>(val);
   284 }
   285 
   286 REGISTER_NATIVES(floatnatives)
   287 {
   288 	{"float",			sm_float},
   289 	{"FloatMul",		sm_FloatMul},
   290 	{"FloatDiv",		sm_FloatDiv},
   291 	{"FloatAdd",		sm_FloatAdd},
   292 	{"FloatSub",		sm_FloatSub},
   293 	{"FloatFraction",	sm_FloatFraction},
   294 	{"RoundToZero",		sm_RoundToZero},
   295 	{"RoundToCeil",		sm_RoundToCeil},
   296 	{"RoundToFloor",	sm_RoundToFloor},
   297 	{"RoundToNearest",	sm_RoundToNearest},
   298 	{"FloatCompare",	sm_FloatCompare},
   299 	{"SquareRoot",		sm_SquareRoot},
   300 	{"Pow",				sm_Pow},
   301 	{"Exponential",		sm_Exponential},
   302 	{"Logarithm",		sm_Logarithm},
   303 	{"Sine",			sm_Sine},
   304 	{"Cosine",			sm_Cosine},
   305 	{"Tangent",			sm_Tangent},
   306 	{"FloatAbs",		sm_FloatAbs},
   307 	{"ArcTangent",		sm_ArcTangent},
   308 	{"ArcCosine",		sm_ArcCosine},
   309 	{"ArcSine",			sm_ArcSine},
   310 	{"ArcTangent2",		sm_ArcTangent2},
   311 	{"FloatRound",		sm_FloatRound},			/* Backwards compat shim */
   312 	{NULL,				NULL}
   313 };
sourcemod-central
Feed