dvander@1999: /**
dvander@1999: * vim: set ts=4 :
dvander@1999: * =============================================================================
dvander@1999: * SourceMod
dvander@1999: * Copyright (C) 2004-2008 AlliedModders LLC.  All rights reserved.
dvander@1999: * =============================================================================
dvander@1999: *
dvander@1999: * This program is free software; you can redistribute it and/or modify it under
dvander@1999: * the terms of the GNU General Public License, version 3.0, as published by the
dvander@1999: * Free Software Foundation.
dvander@1999: * 
dvander@1999: * This program is distributed in the hope that it will be useful, but WITHOUT
dvander@1999: * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
dvander@1999: * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
dvander@1999: * details.
dvander@1999: *
dvander@1999: * You should have received a copy of the GNU General Public License along with
dvander@1999: * this program.  If not, see <http://www.gnu.org/licenses/>.
dvander@1999: *
dvander@1999: * As a special exception, AlliedModders LLC gives you permission to link the
dvander@1999: * code of this program (as well as its derivative works) to "Half-Life 2," the
dvander@1999: * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
dvander@1999: * by the Valve Corporation.  You must obey the GNU General Public License in
dvander@1999: * all respects for all other code used.  Additionally, AlliedModders LLC grants
dvander@1999: * this exception to all derivative works.  AlliedModders LLC defines further
dvander@1999: * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
dvander@1999: * or <http://www.sourcemod.net/license.php>.
dvander@1999: *
dvander@1999: * Version: $Id$
dvander@1999: */
dvander@1999: 
dvander@1999: #include <malloc.h>
dvander@1999: #include "sm_globals.h"
dvander@1999: #include "sm_stringutil.h"
dvander@1999: #include "CellArray.h"
dvander@1999: #include "HandleSys.h"
dvander@1999: 
dvander@1999: HandleType_t htCellStack;
dvander@1999: 
dvander@1999: class CellStackHelpers : 
dvander@1999: 	public SMGlobalClass,
dvander@1999: 	public IHandleTypeDispatch
dvander@1999: {
dvander@1999: public: //SMGlobalClass
dvander@1999: 	void OnSourceModAllInitialized()
dvander@1999: 	{
dvander@1999: 		htCellStack = g_HandleSys.CreateType("CellStack", this, 0, NULL, NULL, g_pCoreIdent, NULL);
dvander@1999: 	}
dvander@1999: 	void OnSourceModShutdown()
dvander@1999: 	{
dvander@1999: 		g_HandleSys.RemoveType(htCellStack, g_pCoreIdent);
dvander@1999: 	}
dvander@1999: public: //IHandleTypeDispatch
dvander@1999: 	void OnHandleDestroy(HandleType_t type, void *object)
dvander@1999: 	{
dvander@1999: 		CellArray *array = (CellArray *)object;
dvander@1999: 		delete array;
dvander@1999: 	}
dvander@1999: 	bool GetHandleApproxSize(HandleType_t type, void *object, unsigned int *pSize)
dvander@1999: 	{
dvander@1999: 		CellArray *pArray = (CellArray *)object;
dvander@1999: 		*pSize = sizeof(CellArray) + pArray->mem_usage();
dvander@1999: 		return true;
dvander@1999: 	}
dvander@1999: } s_CellStackHelpers;
dvander@1999: 
dvander@1999: static cell_t CreateStack(IPluginContext *pContext, const cell_t *params)
dvander@1999: {
dvander@1999: 	if (params[1] < 1)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Invalid block size (must be > 0)");
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	CellArray *array = new CellArray(params[1]);
dvander@1999: 
dvander@1999: 	Handle_t hndl = g_HandleSys.CreateHandle(htCellStack, array, pContext->GetIdentity(), g_pCoreIdent, NULL);
dvander@1999: 	if (!hndl)
dvander@1999: 	{
dvander@1999: 		delete array;
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	return hndl;
dvander@1999: }
dvander@1999: 
dvander@1999: static cell_t PushStackCell(IPluginContext *pContext, const cell_t *params)
dvander@1999: {
dvander@1999: 	CellArray *array;
dvander@1999: 	HandleError err;
dvander@1999: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@1999: 
dvander@1999: 	if ((err = g_HandleSys.ReadHandle(params[1], htCellStack, &sec, (void **)&array)) 
dvander@1999: 		!= HandleError_None)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	cell_t *blk = array->push();
dvander@1999: 	if (!blk)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Failed to grow stack");
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	*blk = params[2];
dvander@1999: 
dvander@1999: 	return 1;
dvander@1999: }
dvander@1999: 
dvander@1999: static cell_t PushStackString(IPluginContext *pContext, const cell_t *params)
dvander@1999: {
dvander@1999: 	CellArray *array;
dvander@1999: 	HandleError err;
dvander@1999: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@1999: 
dvander@1999: 	if ((err = g_HandleSys.ReadHandle(params[1], htCellStack, &sec, (void **)&array)) 
dvander@1999: 		!= HandleError_None)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	cell_t *blk = array->push();
dvander@1999: 	if (!blk)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Failed to grow stack");
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	char *str;
dvander@1999: 	pContext->LocalToString(params[2], &str);
dvander@1999: 
dvander@1999: 	strncopy((char *)blk, str, array->blocksize() * sizeof(cell_t));
dvander@1999: 
dvander@1999: 	return 1;
dvander@1999: }
dvander@1999: 
dvander@1999: static cell_t PushStackArray(IPluginContext *pContext, const cell_t *params)
dvander@1999: {
dvander@1999: 	CellArray *array;
dvander@1999: 	HandleError err;
dvander@1999: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@1999: 
dvander@1999: 	if ((err = g_HandleSys.ReadHandle(params[1], htCellStack, &sec, (void **)&array)) 
dvander@1999: 		!= HandleError_None)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	cell_t *blk = array->push();
dvander@1999: 	if (!blk)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Failed to grow array");
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	cell_t *addr;
dvander@1999: 	pContext->LocalToPhysAddr(params[2], &addr);
dvander@1999: 
dvander@1999: 	size_t indexes = array->blocksize();
dvander@1999: 	if (params[3] != -1 && (size_t)params[3] <= array->blocksize())
dvander@1999: 	{
dvander@1999: 		indexes = params[3];
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	memcpy(blk, addr, sizeof(cell_t) * indexes);
dvander@1999: 
dvander@1999: 	return 1;
dvander@1999: }
dvander@1999: 
dvander@1999: static cell_t PopStackCell(IPluginContext *pContext, const cell_t *params)
dvander@1999: {
dvander@1999: 	size_t idx;
dvander@1999: 	HandleError err;
dvander@1999: 	CellArray *array;
dvander@1999: 	cell_t *blk, *buffer;
dvander@1999: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@1999: 
dvander@1999: 	if ((err = g_HandleSys.ReadHandle(params[1], htCellStack, &sec, (void **)&array)) 
dvander@1999: 		!= HandleError_None)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	if (array->size() == 0)
dvander@1999: 	{
dvander@1999: 		return 0;
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	pContext->LocalToPhysAddr(params[2], &buffer);
dvander@1999: 
dvander@1999: 	blk = array->at(array->size() - 1);
dvander@1999: 	idx = (size_t)params[3];
dvander@1999: 
dvander@1999: 	if (params[4] == 0)
dvander@1999: 	{
dvander@1999: 		if (idx >= array->blocksize())
dvander@1999: 		{
dvander@1999: 			return pContext->ThrowNativeError("Invalid block %d (blocksize: %d)", idx, array->blocksize());
dvander@1999: 		}
dvander@1999: 		*buffer = blk[idx];
dvander@1999: 	}
dvander@1999: 	else
dvander@1999: 	{
dvander@1999: 		if (idx >= array->blocksize() * 4)
dvander@1999: 		{
dvander@1999: 			return pContext->ThrowNativeError("Invalid byte %d (blocksize: %d bytes)", idx, array->blocksize() * 4);
dvander@1999: 		}
dvander@1999: 		*buffer = (cell_t)*((char *)blk + idx);
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	array->remove(array->size() - 1);
dvander@1999: 
dvander@1999: 	return 1;
dvander@1999: }
dvander@1999: 
dvander@1999: static cell_t PopStackString(IPluginContext *pContext, const cell_t *params)
dvander@1999: {
dvander@1999: 	HandleError err;
dvander@1999: 	CellArray *array;
dvander@1999: 	size_t idx, numWritten;
dvander@1999: 	cell_t *blk, *pWritten;
dvander@1999: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@1999: 
dvander@1999: 	if ((err = g_HandleSys.ReadHandle(params[1], htCellStack, &sec, (void **)&array)) 
dvander@1999: 		!= HandleError_None)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	if (array->size() == 0)
dvander@1999: 	{
dvander@1999: 		return 0;
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	idx = array->size() - 1;
dvander@1999: 	blk = array->at(idx);
dvander@1999: 	pContext->StringToLocalUTF8(params[2], params[3], (char *)blk, &numWritten);
dvander@1999: 	pContext->LocalToPhysAddr(params[4], &pWritten);
dvander@1999: 	*pWritten = (cell_t)numWritten;
dvander@1999: 	array->remove(idx);
dvander@1999: 
dvander@1999: 	return 1;
dvander@1999: }
dvander@1999: 
dvander@1999: static cell_t PopStackArray(IPluginContext *pContext, const cell_t *params)
dvander@1999: {
dvander@1999: 	size_t idx;
dvander@1999: 	cell_t *blk;
dvander@1999: 	cell_t *addr;
dvander@1999: 	size_t indexes;
dvander@1999: 	HandleError err;
dvander@1999: 	CellArray *array;
dvander@1999: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@1999: 
dvander@1999: 	if ((err = g_HandleSys.ReadHandle(params[1], htCellStack, &sec, (void **)&array)) 
dvander@1999: 		!= HandleError_None)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	if (array->size() == 0)
dvander@1999: 	{
dvander@1999: 		return 0;
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	idx = array->size() - 1;
dvander@1999: 	blk = array->at(idx);
dvander@1999: 	indexes = array->blocksize();
dvander@1999: 
dvander@1999: 	if (params[3] != -1 && (size_t)params[3] <= array->blocksize())
dvander@1999: 	{
dvander@1999: 		indexes = params[3];
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	pContext->LocalToPhysAddr(params[2], &addr);
dvander@1999: 	memcpy(addr, blk, sizeof(cell_t) * indexes);
dvander@1999: 	array->remove(idx);
dvander@1999: 
dvander@1999: 	return indexes;
dvander@1999: }
dvander@1999: 
dvander@1999: static cell_t IsStackEmpty(IPluginContext *pContext, const cell_t *params)
dvander@1999: {
dvander@1999: 	HandleError err;
dvander@1999: 	CellArray *array;
dvander@1999: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@1999: 
dvander@1999: 	if ((err = g_HandleSys.ReadHandle(params[1], htCellStack, &sec, (void **)&array)) 
dvander@1999: 		!= HandleError_None)
dvander@1999: 	{
dvander@1999: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	if (array->size() == 0)
dvander@1999: 	{
dvander@1999: 		return 1;
dvander@1999: 	}
dvander@1999: 
dvander@1999: 	return 0;
dvander@1999: }
dvander@1999: 
dvander@1999: REGISTER_NATIVES(cellStackNatives)
dvander@1999: {
dvander@1999: 	{"CreateStack",					CreateStack},
dvander@1999: 	{"IsStackEmpty",				IsStackEmpty},
dvander@1999: 	{"PopStackArray",				PopStackArray},
dvander@1999: 	{"PopStackCell",				PopStackCell},
dvander@1999: 	{"PopStackString",				PopStackString},
dvander@1999: 	{"PushStackArray",				PushStackArray},
dvander@1999: 	{"PushStackCell",				PushStackCell},
dvander@1999: 	{"PushStackString",				PushStackString},
dvander@1999: 	{NULL,							NULL},
dvander@1999: };