dvander@2726: /**
dvander@2726:  * vim: set ts=4 :
dvander@2726:  * =============================================================================
dvander@2726:  * SourceMod
dvander@2726:  * Copyright (C) 2004-2008 AlliedModders LLC.  All rights reserved.
dvander@2726:  * =============================================================================
dvander@2726:  *
dvander@2726:  * This program is free software; you can redistribute it and/or modify it under
dvander@2726:  * the terms of the GNU General Public License, version 3.0, as published by the
dvander@2726:  * Free Software Foundation.
dvander@2726:  * 
dvander@2726:  * This program is distributed in the hope that it will be useful, but WITHOUT
dvander@2726:  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
dvander@2726:  * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
dvander@2726:  * details.
dvander@2726:  *
dvander@2726:  * You should have received a copy of the GNU General Public License along with
dvander@2726:  * this program.  If not, see <http://www.gnu.org/licenses/>.
dvander@2726:  *
dvander@2726:  * As a special exception, AlliedModders LLC gives you permission to link the
dvander@2726:  * code of this program (as well as its derivative works) to "Half-Life 2," the
dvander@2726:  * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
dvander@2726:  * by the Valve Corporation.  You must obey the GNU General Public License in
dvander@2726:  * all respects for all other code used.  Additionally, AlliedModders LLC grants
dvander@2726:  * this exception to all derivative works.  AlliedModders LLC defines further
dvander@2726:  * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
dvander@2726:  * or <http://www.sourcemod.net/license.php>.
dvander@2726:  *
dvander@2726:  * Version: $Id$
dvander@2726:  */
dvander@2726: 
dvander@2726: #include <stdlib.h>
dvander@2726: #include "common_logic.h"
dvander@2726: #include "CellArray.h"
dvander@2726: 
dvander@2726: HandleType_t htCellArray;
dvander@2726: 
dvander@2726: class CellArrayHelpers : 
dvander@2726: 	public SMGlobalClass,
dvander@2726: 	public IHandleTypeDispatch
dvander@2726: {
dvander@2726: public: //SMGlobalClass
dvander@2726: 	void OnSourceModAllInitialized()
dvander@2726: 	{
dvander@2726: 		htCellArray = handlesys->CreateType("CellArray", this, 0, NULL, NULL, g_pCoreIdent, NULL);
dvander@2726: 	}
dvander@2726: 	void OnSourceModShutdown()
dvander@2726: 	{
dvander@2726: 		handlesys->RemoveType(htCellArray, g_pCoreIdent);
dvander@2726: 	}
dvander@2726: public: //IHandleTypeDispatch
dvander@2726: 	void OnHandleDestroy(HandleType_t type, void *object)
dvander@2726: 	{
dvander@2726: 		CellArray *array = (CellArray *)object;
dvander@2726: 		delete array;
dvander@2726: 	}
dvander@2726: 	bool GetHandleApproxSize(HandleType_t type, void *object, unsigned int *pSize)
dvander@2726: 	{
dvander@2726: 		CellArray *pArray = (CellArray *)object;
dvander@2726: 		*pSize = sizeof(CellArray) + pArray->mem_usage();
dvander@2726: 		return true;
dvander@2726: 	}
dvander@2726: } s_CellArrayHelpers;
dvander@2726: 
dvander@2726: static cell_t CreateArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	if (!params[1])
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid block size (must be > 0)");
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	CellArray *array = new CellArray(params[1]);
dvander@2726: 
dvander@2726: 	if (params[2])
dvander@2726: 	{
dvander@2726: 		array->resize(params[2]);
dvander@2726: 	}
dvander@2726: 	
dvander@2726: 	Handle_t hndl = handlesys->CreateHandle(htCellArray, array, pContext->GetIdentity(), g_pCoreIdent, NULL);
dvander@2726: 	if (!hndl)
dvander@2726: 	{
dvander@2726: 		delete array;
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	return hndl;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t ClearArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	array->clear();
dvander@2726: 	
dvander@2726: 	return 1;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t ResizeArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	if (!array->resize(params[2]))
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Unable to resize array to \"%u\"", params[2]);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	return 1;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t GetArraySize(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	return (cell_t)array->size();
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t PushArrayCell(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->push();
dvander@2726: 	if (!blk)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Failed to grow array");
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	*blk = params[2];
dvander@2726: 
dvander@2726: 	return (cell_t)(array->size() - 1);
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t PushArrayString(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->push();
dvander@2726: 	if (!blk)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Failed to grow array");
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	char *str;
dvander@2726: 	pContext->LocalToString(params[2], &str);
dvander@2726: 
dvander@2726: 	smcore.strncopy((char *)blk, str, array->blocksize() * sizeof(cell_t));
dvander@2726: 
dvander@2726: 	return (cell_t)(array->size() - 1);
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t PushArrayArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->push();
dvander@2726: 	if (!blk)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Failed to grow array");
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *addr;
dvander@2726: 	pContext->LocalToPhysAddr(params[2], &addr);
dvander@2726: 
dvander@2726: 	size_t indexes = array->blocksize();
dvander@2726: 	if (params[3] != -1 && (size_t)params[3] <= array->blocksize())
dvander@2726: 	{
dvander@2726: 		indexes = params[3];
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	memcpy(blk, addr, sizeof(cell_t) * indexes);
dvander@2726: 
dvander@2726: 	return (cell_t)(array->size() - 1);
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t GetArrayCell(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx = (size_t)params[2];
dvander@2726: 	if (idx >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->at(idx);
dvander@2726: 
dvander@2726: 	idx = (size_t)params[3];
dvander@2726: 	if (params[4] == 0)
dvander@2726: 	{
dvander@2726: 		if (idx >= array->blocksize())
dvander@2726: 		{
dvander@2726: 			return pContext->ThrowNativeError("Invalid block %d (blocksize: %d)", idx, array->blocksize());
dvander@2726: 		}
dvander@2726: 		return blk[idx];
dvander@2726: 	} else {
dvander@2726: 		if (idx >= array->blocksize() * 4)
dvander@2726: 		{
dvander@2726: 			return pContext->ThrowNativeError("Invalid byte %d (blocksize: %d bytes)", idx, array->blocksize() * 4);
dvander@2726: 		}
dvander@2726: 		return (cell_t)*((char *)blk + idx);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	return 0;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t GetArrayString(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx = (size_t)params[2];
dvander@2726: 	if (idx >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->at(idx);
dvander@2726: 	size_t numWritten = 0;
dvander@2726: 
dvander@2726: 	pContext->StringToLocalUTF8(params[3], params[4], (char *)blk, &numWritten);
dvander@2726: 
dvander@2726: 	return numWritten;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t GetArrayArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx = (size_t)params[2];
dvander@2726: 	if (idx >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->at(idx);
dvander@2726: 	size_t indexes = array->blocksize();
dvander@2726: 	if (params[4] != -1 && (size_t)params[4] <= array->blocksize())
dvander@2726: 	{
dvander@2726: 		indexes = params[4];
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *addr;
dvander@2726: 	pContext->LocalToPhysAddr(params[3], &addr);
dvander@2726: 
dvander@2726: 	memcpy(addr, blk, sizeof(cell_t) * indexes);
dvander@2726: 
dvander@2726: 	return indexes;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t SetArrayCell(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx = (size_t)params[2];
dvander@2726: 	if (idx >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->at(idx);
dvander@2726: 
dvander@2726: 	idx = (size_t)params[4];
dvander@2726: 	if (params[5] == 0)
dvander@2726: 	{
dvander@2726: 		if (idx >= array->blocksize())
dvander@2726: 		{
dvander@2726: 			return pContext->ThrowNativeError("Invalid block %d (blocksize: %d)", idx, array->blocksize());
dvander@2726: 		}
dvander@2726: 		blk[idx] = params[3];
dvander@2726: 	} else {
dvander@2726: 		if (idx >= array->blocksize() * 4)
dvander@2726: 		{
dvander@2726: 			return pContext->ThrowNativeError("Invalid byte %d (blocksize: %d bytes)", idx, array->blocksize() * 4);
dvander@2726: 		}
dvander@2726: 		*((char *)blk + idx) = (char)params[3];
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	return 1;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t SetArrayString(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx = (size_t)params[2];
dvander@2726: 	if (idx >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->at(idx);
dvander@2726: 
dvander@2726: 	char *str;
dvander@2726: 	pContext->LocalToString(params[3], &str);
dvander@2726: 
dvander@2726: 	return smcore.strncopy((char *)blk, str, array->blocksize() * sizeof(cell_t));
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t SetArrayArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx = (size_t)params[2];
dvander@2726: 	if (idx >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *blk = array->at(idx);
dvander@2726: 	size_t indexes = array->blocksize();
dvander@2726: 	if (params[4] != -1 && (size_t)params[4] <= array->blocksize())
dvander@2726: 	{
dvander@2726: 		indexes = params[4];
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	cell_t *addr;
dvander@2726: 	pContext->LocalToPhysAddr(params[3], &addr);
dvander@2726: 
dvander@2726: 	memcpy(blk, addr, sizeof(cell_t) * indexes);
dvander@2726: 
dvander@2726: 	return indexes;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t ShiftArrayUp(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx = (size_t)params[2];
dvander@2726: 	if (idx >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	array->insert_at(idx);
dvander@2726: 
dvander@2726: 	return 1;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t RemoveFromArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx = (size_t)params[2];
dvander@2726: 	if (idx >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	array->remove(idx);
dvander@2726: 
dvander@2726: 	return 1;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t SwapArrayItems(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	size_t idx1 = (size_t)params[2];
dvander@2726: 	size_t idx2 = (size_t)params[3];
dvander@2726: 	if (idx1 >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx1, array->size());
dvander@2726: 	}
dvander@2726: 	if (idx2 >= array->size())
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid index %d (count: %d)", idx2, array->size());
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	array->swap(idx1, idx2);
dvander@2726: 
dvander@2726: 	return 1;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t CloneArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *oldArray;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&oldArray)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	CellArray *array = oldArray->clone();
dvander@2726: 	
dvander@2726: 	Handle_t hndl = handlesys->CreateHandle(htCellArray, array, pContext->GetIdentity(), g_pCoreIdent, NULL);
dvander@2726: 	if (!hndl)
dvander@2726: 	{
dvander@2726: 		delete array;
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	return hndl;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t FindStringInArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	char *str;
dvander@2726: 	pContext->LocalToString(params[2], &str);
dvander@2726: 
dvander@2726: 	for (unsigned int i = 0; i < array->size(); i++)
dvander@2726: 	{
dvander@2726: 		const char *array_str = (const char *)array->at(i);
dvander@2726: 		if (strcmp(str, array_str) == 0)
dvander@2726: 		{
dvander@2726: 			return (cell_t) i;
dvander@2726: 		}
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	return -1;
dvander@2726: }
dvander@2726: 
dvander@2726: static cell_t FindValueInArray(IPluginContext *pContext, const cell_t *params)
dvander@2726: {
dvander@2726: 	CellArray *array;
dvander@2726: 	HandleError err;
dvander@2726: 	HandleSecurity sec(pContext->GetIdentity(), g_pCoreIdent);
dvander@2726: 
dvander@2726: 	if ((err = handlesys->ReadHandle(params[1], htCellArray, &sec, (void **)&array)) 
dvander@2726: 		!= HandleError_None)
dvander@2726: 	{
dvander@2726: 		return pContext->ThrowNativeError("Invalid Handle %x (error: %d)", params[1], err);
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	for (unsigned int i = 0; i < array->size(); i++)
dvander@2726: 	{
dvander@2726: 		if (params[2] == *array->at(i))
dvander@2726: 		{
dvander@2726: 			return (cell_t) i;
dvander@2726: 		}
dvander@2726: 	}
dvander@2726: 
dvander@2726: 	return -1;
dvander@2726: }
dvander@2726: 
dvander@2726: REGISTER_NATIVES(cellArrayNatives)
dvander@2726: {
dvander@2726: 	{"ClearArray",					ClearArray},
dvander@2726: 	{"CreateArray",					CreateArray},
dvander@2726: 	{"GetArrayArray",				GetArrayArray},
dvander@2726: 	{"GetArrayCell",				GetArrayCell},
dvander@2726: 	{"GetArraySize",				GetArraySize},
dvander@2726: 	{"GetArrayString",				GetArrayString},
dvander@2726: 	{"ResizeArray",					ResizeArray},
dvander@2726: 	{"PushArrayArray",				PushArrayArray},
dvander@2726: 	{"PushArrayCell",				PushArrayCell},
dvander@2726: 	{"PushArrayString",				PushArrayString},
dvander@2726: 	{"RemoveFromArray",				RemoveFromArray},
dvander@2726: 	{"SetArrayCell",				SetArrayCell},
dvander@2726: 	{"SetArrayString",				SetArrayString},
dvander@2726: 	{"SetArrayArray",				SetArrayArray},
dvander@2726: 	{"ShiftArrayUp",				ShiftArrayUp},
dvander@2726: 	{"SwapArrayItems",				SwapArrayItems},
dvander@2726: 	{"CloneArray",					CloneArray},
dvander@2726: 	{"FindStringInArray",			FindStringInArray},
dvander@2726: 	{"FindValueInArray",			FindValueInArray},
dvander@2726: 	{NULL,							NULL},
dvander@2726: };