User:Ugleh Ulrik/ListKeyCase

Template:Needs Translation/LSL/de Template:Needs Translation/LSL/es Template:Needs Translation/LSL/el Template:Needs Translation/LSL/fr Template:Needs Translation/LSL/he Template:Needs Translation/LSL/it Template:Needs Translation/LSL/ja Template:Needs Translation/LSL/ko Template:Needs Translation/LSL/nl Template:Needs Translation/LSL/hu Template:Needs Translation/LSL/no Template:Needs Translation/LSL/da Template:Needs Translation/LSL/sv Template:Needs Translation/LSL/tr Template:Needs Translation/LSL/pl Template:Needs Translation/LSL/pt Template:Needs Translation/LSL/ru Template:Needs Translation/LSL/th Template:Needs Translation/LSL/uk Template:Needs Translation/LSL/zh-Hans Template:Needs Translation/LSL/zh-Hant

/LSL

Ugleh_Ulrik/ListKeyCase

User:ListKeyCase

Summary

Function: list ListKeyCase( list src, integer case );

Returns a list that is a copy of src with all lower-case letters or all upper-case letters.

• list	src	–	List to change case
• integer	case	–	1 is Upper, 0 is Lower.

See also: Lists

Specification

<lsl>//This version converts all list items into strings. list ListKeyCase(list src,integer case){

   list new;
   integer i;
   if (case){
       do
           new += llToUpper(llList2String(src,i));
       while (llGetListLength(src)>++i);
       return new;
   }/*else*/{
       do
           new += llToLower(llList2String(src,i));
       while (llGetListLength(src)>++i);
       return new;
   }

}</lsl>

<lsl>//This version preserves the types of all list items. list ListKeyCase(list src, integer case) {

   list new;
   integer i = 0;
   integer j = llGetListLength(src);
   integer type;
   if (case) {
       do {
           if(((type = (llGetListEntryType(src, i) - TYPE_STRING))) & -2) {
               new += llList2List(src, i, i);
           } else if(type) {
               new += (key)llToUpper(llList2String(src,i));
           } else {
               new += llToUpper(llList2String(src,i));
           }
       } while (j>++i);
       return new;
   } /*else*/ {
       do {
           if(((type = (llGetListEntryType(src, i) - TYPE_STRING))) & -2) {
               new += llList2List(src, i, i);
           } else if(type) {
               new += (key)llToLower(llList2String(src,i));
           } else {
               new += llToLower(llList2String(src,i));
           }
       } while (j>++i);
       return new;
   }

} </lsl>

Caveats

• Key equality (and inequality) testing is case sensitive.

Examples

<lsl> list test = ["Apples","Bananas","Cranberrys","Donuts"]; list newtest = ListKeyCase(test,0);

//newtest now is ["apples","bananas","cranberrys","donuts"]</lsl>