CcFixListDatatypes
Walks a list, casts the elements to the appropriate types, and returns a fixed list. Useful for things like llSetPrimitiveParams when you've parsed your data out of a string.
Does not currently cast keys to keys. It casts them to strings.
<lsl> /////////////////////////////////////////////////////////////////////////////// // // ccFixListDatatypes // Walks a list and casts the data to the appropriate type, then returns // the cast list. Useful for things like llSetPrimitiveParams when data is // parsed from strings. // // v3 - Initial public release // v4 - Fixes parsing of negative elements in vectors and rotations. // /////////////////////////////////////////////////////////////////////////////// // // Copyright (c) 2008, Ceawlin Creations // All rights reserved. // // Redistribution and use in source and binary forms, with or without // modification, are permitted provided that the following conditions are met: // // * Redistributions of source code must retain the above copyright notice, // this list of conditions and the following disclaimer. // * Redistributions in binary form must reproduce the above copyright // notice, this list of conditions and the following disclaimer in the // documentation and/or other materials provided with the distribution. // * Neither the name of Ceawlin Creations, Liandra Ceawlin, or A. J. // Taylor, nor the names of its contributors may be used to endorse or promote // products derived from this software without specific prior written // permission. // // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE // ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE // LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR // CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF // SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS // INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN // CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) // ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE // POSSIBILITY OF SUCH DAMAGE. // ///////////////////////////////////////////////////////////////////////////////
// This code is far from optimal, lol. list ccFixListDatatypes( list l ) {
//Liandra Ceawlin 2008-09-20 integer i; for( i=0; i<llGetListLength(l); i++ ) { integer is_integer = TRUE; integer is_float = TRUE; integer is_vector = TRUE; integer is_rot = TRUE; integer j; string s = llStringTrim(llList2String(l,i),STRING_TRIM); if( s == "" ) jump cont1; for( j=0; j<llStringLength(s); j++ ) { string c = llGetSubString(s,j,j); if( (integer)c==0 && c!="0" ) { is_integer = FALSE; if( c != "." ) is_float = FALSE; } } if( llGetSubString(s,0,0)=="<" && llGetSubString(s,llStringLength(s)-1,llStringLength(s)-1)==">" ) { string tmp = llDeleteSubString(s,0,0); tmp = llDeleteSubString(tmp,llStringLength(tmp)-1,llStringLength(tmp)-1); list tl = llParseString2List(tmp,[","],[]); if( llGetListLength(tl) == 3 ) is_rot = FALSE; else if( llGetListLength(tl) == 4 ) is_vector = FALSE; else { is_rot = FALSE; is_vector = FALSE; jump cont2; } for( j=0; j<llGetListLength(tl); j++ ) { integer k; string ts = llStringTrim(llList2String(tl,j),STRING_TRIM); for( k=0; k<llStringLength(ts); k++ ) { string tc = llGetSubString(ts,k,k); if( (integer)tc==0 && tc!="0" && tc!="." && tc!="-" ) { is_rot=FALSE; is_vector = FALSE; jump cont3; } } } } else { is_vector = FALSE; is_rot = FALSE; } list n; if( is_integer ) n += (integer)s; else if( is_float ) n += (float)s; else if( is_vector ) n += (vector)s; else if( is_rot ) n += (rotation)s; else jump cont4; l = llListReplaceList(l,n,i,i); @cont1; @cont2; @cont3; @cont4; } return l;
}
default {
on_rez( integer param ) { llSay( 0, "Open your script error/warning window and touch me to run the test." ); } touch_start(integer det) { llSay( DEBUG_CHANNEL, "Testing..." ); list shape= llGetPrimitiveParams([PRIM_TYPE]); // cast shape to all strings, like we just parsed it out of some chat or something.... integer i; for( i=0; i<llGetListLength(shape); i++ ) shape = llListReplaceList( shape, [llList2String(shape,i)], i, i ); llSay( DEBUG_CHANNEL, "This will cause an error." ); llSetPrimitiveParams( shape ); // Cast the string list into the proper datatypes. list new = ccFixListDatatypes( shape ); llSay( DEBUG_CHANNEL, "But this shouldn't..." ); llSetPrimitiveParams( [PRIM_TYPE]+new ); llSay( DEBUG_CHANNEL, "Done." ); }
} </lsl>