Talk:Array
Revision as of 13:11, 12 November 2007 by Asha Vultee (talk | contribs) (very basic associative array implementation)
Here is an elementary implementation of an associative array using the list datatype as a primitive storage mechanism.
////////////////////////////////////////////////////////////////////////////////////////////
// Asha's Associative Array
//
// ______Release 0.1______
// Basic functionality.
// Copy this code to your script
// and use the av_* functions to access
//
// TO SAVE DATA:
// av_store_assoc( [ key, value ] );
//
// TO REPLACE DATA: (currently, this is a synonum for av_store_assoc)
// av_replace_assoc( [ key, value ] );
//
// TO REMOVE DATA:
// av_remove_assoc( [ key, UNUSED ] );
//
// TO RETRIEVE DATA:
// av_assoc_get_by_key( [ key, UNUSED ] );
// av_assoc_get_by_val( [ UNUSED, val ] );
//
// CAUTION: av_assoc_get_by_val() may return a list of more than 2 elements, where the list is
// defined as [ key1, val1, key2, val2 ... keyn, valn ]
//
// TO WHACK THE LIST:
// av_reset_assoc( string reserved );
//
// CAUTION: in order to maintain API compatability with future releases, use
// av_* functions instead of calling any LSL list functions or operators directly.
////////////////////////////////////////////////////////////////////////////////////////////
// START COPYING HERE
list av_assoc_list_storage;
integer av_assoc_list_width = 3;
integer av_index_offset = 0;
integer av_assoc_key_offset = 1;
integer av_assoc_val_offset = 2;
integer av_assoc_list_id = 0;
av_reset_assoc( string rsvd )
{
av_assoc_list_storage = [];
}
av_store_assoc( list nvpair )
{
integer i;
integer j;
integer matched;
float _currkey_float;
float _currval_float;
integer _currkey_integer;
integer _currval_integer;
string _currkey_string;
string _currval_string;
key _currkey_key;
key _currval_key;
vector _currkey_vector;
vector _currval_vector;
rotation _currkey_rotation;
rotation _currval_rotation;
integer key_type;
integer inkey_type;
inkey_type = llGetListEntryType( nvpair, 0 );
matched = 0;
j = llGetListLength( av_assoc_list_storage );
if ( 0 == j )
{
av_assoc_list_storage += (av_assoc_list_id++);
av_assoc_list_storage += nvpair;
return;
}
for ( i = 0; i < j; i+= av_assoc_list_width )
{
key_type = llGetListEntryType( av_assoc_list_storage, i+av_assoc_key_offset );
if ( key_type == inkey_type )
{
if ( key_type == TYPE_INTEGER )
{
_currkey_integer = llList2Integer( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_integer = llList2Integer( nvpair, 0 );
if ( _currkey_integer == _currval_integer )
{
matched = 1;
}
}
else if ( key_type == TYPE_STRING )
{
_currkey_string = llList2String( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_string = llList2String( nvpair, 0 );
if ( _currkey_string == _currval_string )
{
matched = 1;
}
}
else if ( key_type == TYPE_VECTOR )
{
_currkey_vector = llList2Vector( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_vector = llList2Vector( nvpair, 0 );
if ( _currkey_vector == _currval_vector )
{
matched = 1;
}
}
else if ( key_type == TYPE_ROTATION )
{
_currkey_rotation = llList2Rot( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_rotation = llList2Rot( nvpair, 0 );
if ( _currkey_rotation == _currval_rotation )
{
matched = 1;
}
}
else if ( key_type == TYPE_FLOAT )
{
_currkey_float = llList2Float( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_float = llList2Float( nvpair, 0 );
if ( _currkey_rotation == _currval_rotation )
{
matched = 1;
}
}
else if ( key_type == TYPE_KEY )
{
_currkey_key = llList2Key( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_key = llList2Key( nvpair, 0 );
if ( _currkey_key == _currval_key )
{
matched = 1;
}
}
if ( matched )
{
av_assoc_list_storage = llListReplaceList( av_assoc_list_storage, nvpair, i+1, i+2 );
return;
}
}
}
av_assoc_list_storage += (av_assoc_list_id++);
av_assoc_list_storage = av_assoc_list_storage + nvpair;
}
av_replace_assoc( list nvpair )
{
av_store_assoc( nvpair );
}
av_remove_assoc( list nvpair )
{
integer i;
integer j;
integer matched;
float _currkey_float;
float _currval_float;
integer _currkey_integer;
integer _currval_integer;
string _currkey_string;
string _currval_string;
key _currkey_key;
key _currval_key;
vector _currkey_vector;
vector _currval_vector;
rotation _currkey_rotation;
rotation _currval_rotation;
integer key_type;
integer inkey_type;
inkey_type = llGetListEntryType( nvpair, 0 );
matched = 0;
j = llGetListLength( av_assoc_list_storage );
if ( 0 == j )
{
return;
}
for ( i = 0; i < j; i+= av_assoc_list_width )
{
key_type = llGetListEntryType( av_assoc_list_storage, i+av_assoc_key_offset );
if ( key_type == inkey_type )
{
if ( key_type == TYPE_INTEGER )
{
_currkey_integer = llList2Integer( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_integer = llList2Integer( nvpair, 0 );
if ( _currkey_integer == _currval_integer )
{
matched = 1;
}
}
else if ( key_type == TYPE_STRING )
{
_currkey_string = llList2String( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_string = llList2String( nvpair, 0 );
if ( _currkey_string == _currval_string )
{
matched = 1;
}
}
else if ( key_type == TYPE_VECTOR )
{
_currkey_vector = llList2Vector( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_vector = llList2Vector( nvpair, 0 );
if ( _currkey_vector == _currval_vector )
{
matched = 1;
}
}
else if ( key_type == TYPE_ROTATION )
{
_currkey_rotation = llList2Rot( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_rotation = llList2Rot( nvpair, 0 );
if ( _currkey_rotation == _currval_rotation )
{
matched = 1;
}
}
else if ( key_type == TYPE_FLOAT )
{
_currkey_float = llList2Float( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_float = llList2Float( nvpair, 0 );
if ( _currkey_rotation == _currval_rotation )
{
matched = 1;
}
}
else if ( key_type == TYPE_KEY )
{
_currkey_key = llList2Key( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_key = llList2Key( nvpair, 0 );
if ( _currkey_key == _currval_key )
{
matched = 1;
}
}
if ( matched )
{
av_assoc_list_storage = llDeleteSubList( av_assoc_list_storage, i, i+2 );
return;
}
}
}
}
list av_assoc_get_by_key( list nvpair )
{
integer i;
integer j;
integer matched;
float _currkey_float;
float _currval_float;
integer _currkey_integer;
integer _currval_integer;
string _currkey_string;
string _currval_string;
key _currkey_key;
key _currval_key;
vector _currkey_vector;
vector _currval_vector;
rotation _currkey_rotation;
rotation _currval_rotation;
integer key_type;
integer inkey_type;
inkey_type = llGetListEntryType( nvpair, 0 );
matched = 0;
j = llGetListLength( av_assoc_list_storage );
if ( 0 == j )
{
return( [] );
}
for ( i = 0; i < j; i+= av_assoc_list_width )
{
key_type = llGetListEntryType( av_assoc_list_storage, i+av_assoc_key_offset );
if ( key_type == inkey_type )
{
if ( key_type == TYPE_INTEGER )
{
_currkey_integer = llList2Integer( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_integer = llList2Integer( nvpair, 0 );
if ( _currkey_integer == _currval_integer )
{
matched = 1;
}
}
else if ( key_type == TYPE_STRING )
{
_currkey_string = llList2String( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_string = llList2String( nvpair, 0 );
if ( _currkey_string == _currval_string )
{
matched = 1;
}
}
else if ( key_type == TYPE_VECTOR )
{
_currkey_vector = llList2Vector( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_vector = llList2Vector( nvpair, 0 );
if ( _currkey_vector == _currval_vector )
{
matched = 1;
}
}
else if ( key_type == TYPE_ROTATION )
{
_currkey_rotation = llList2Rot( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_rotation = llList2Rot( nvpair, 0 );
if ( _currkey_rotation == _currval_rotation )
{
matched = 1;
}
}
else if ( key_type == TYPE_FLOAT )
{
_currkey_float = llList2Float( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_float = llList2Float( nvpair, 0 );
if ( _currkey_rotation == _currval_rotation )
{
matched = 1;
}
}
else if ( key_type == TYPE_KEY )
{
_currkey_key = llList2Key( av_assoc_list_storage, i+av_assoc_key_offset );
_currval_key = llList2Key( nvpair, 0 );
if ( _currkey_key == _currval_key )
{
matched = 1;
}
}
if ( matched )
{
list l = llList2List( av_assoc_list_storage, i+1, i+2 );
return( l );
}
}
}
return( [] );
}
list av_assoc_get_by_val( list nvpair )
{
integer i;
integer j;
integer matched;
list ret;
float _currkey_float;
float _currval_float;
integer _currkey_integer;
integer _currval_integer;
string _currkey_string;
string _currval_string;
key _currkey_key;
key _currval_key;
vector _currkey_vector;
vector _currval_vector;
rotation _currkey_rotation;
rotation _currval_rotation;
integer key_type;
integer inkey_type;
inkey_type = llGetListEntryType( nvpair, 1 );
matched = 0;
j = llGetListLength( av_assoc_list_storage );
if ( 0 == j )
{
return( [] );
}
for ( i = 0; i < j; i+= av_assoc_list_width )
{
key_type = llGetListEntryType( av_assoc_list_storage, i+av_assoc_val_offset );
if ( key_type == inkey_type )
{
if ( key_type == TYPE_INTEGER )
{
_currkey_integer = llList2Integer( av_assoc_list_storage, i+av_assoc_val_offset );
_currval_integer = llList2Integer( nvpair, 1 );
if ( _currkey_integer == _currval_integer )
{
matched = 1;
}
}
else if ( key_type == TYPE_STRING )
{
_currkey_string = llList2String( av_assoc_list_storage, i+av_assoc_val_offset );
_currval_string = llList2String( nvpair, 1 );
if ( _currkey_string == _currval_string )
{
matched = 1;
}
}
else if ( key_type == TYPE_VECTOR )
{
_currkey_vector = llList2Vector( av_assoc_list_storage, i+av_assoc_val_offset );
_currval_vector = llList2Vector( nvpair, 1 );
if ( _currkey_vector == _currval_vector )
{
matched = 1;
}
}
else if ( key_type == TYPE_ROTATION )
{
_currkey_rotation = llList2Rot( av_assoc_list_storage, i+av_assoc_val_offset );
_currval_rotation = llList2Rot( nvpair, 1 );
if ( _currkey_rotation == _currval_rotation )
{
matched = 1;
}
}
else if ( key_type == TYPE_FLOAT )
{
_currkey_float = llList2Float( av_assoc_list_storage, i+av_assoc_val_offset );
_currval_float = llList2Float( nvpair, 1 );
if ( _currkey_rotation == _currval_rotation )
{
matched = 1;
}
}
else if ( key_type == TYPE_KEY )
{
_currkey_key = llList2Key( av_assoc_list_storage, i+av_assoc_val_offset );
_currval_key = llList2Key( nvpair, 1 );
if ( _currkey_key == _currval_key )
{
matched = 1;
}
}
if ( matched )
{
ret += llList2List( av_assoc_list_storage, i+1, i+2 );
}
}
}
return( ret );
}
// STOP COPYING HERE
////////////////////////////////////////////////////////////////////////////////////////////
default
{
state_entry()
{
llOwnerSay( "Asha's Associative Array Test Ready" );
}
touch_start(integer total_number)
{
list l = [ 123, "Hello" ];
list m = [ 456, "Wassup" ];
list n = [ 789, "Yadda Yadda" ];
list o = [ 790, "Yadda Yadda" ];
list p = [ 791, "yadda YADDA" ];
av_store_assoc( l );
av_store_assoc( m );
av_store_assoc( l );
av_remove_assoc( l );
l = av_assoc_get_by_key( m );
llOwnerSay( llList2CSV( l ) );
av_store_assoc( n );
av_store_assoc( o );
av_store_assoc( p );
llOwnerSay( llList2CSV( av_assoc_get_by_val( [ "", "Yadda Yadda" ] ) ) );
}
}
--Asha Vultee 12:11, 12 November 2007 (PST)